Post by asmodeus on Apr 15, 2008 20:10:04 GMT -5
I ran the below code which I wrote in Just Basic, and it ran perfectly from the Run Basic site. I have to say I am impressed.
I do have a question. Does the personal server allow multiple connections to the same application?
Thanks,
Asmodeus
'Ad&d Auto Stat Roller - By Asmodeus
'Feel free to modify as you need
[start]
cls
print "Please enter the value you want for your stats"
print "Stats can be between 3 and 18"
print
print
input "STR = "; str
input "DEX = "; dex
input "CON = "; con
input "INT = "; int
input "WIS = "; wis
input "CHR = "; chr
print
print
print "Please wait while the computer attempts to roll your stats"
[rollloop]
index = index + 1
s = int(rnd(1)*16) + 3
d = int(rnd(1)*16) + 3
c = int(rnd(1)*16) + 3
i = int(rnd(1)*16) + 3
w = int(rnd(1)*16) + 3
ch = int(rnd(1)*16) + 3
if index = 50000 then print "Still Rolling"
if index = 100000 then print "Still Rolling"
if index = 150000 then print "Still Rolling"
if index = 200000 then print "Still Rolling"
if index = 250000 then print "Still Rolling"
if index = 300000 then print "Still Rolling"
if index = 350000 then print "Still Rolling"
if index = 400000 then print "Still Rolling"
if index = 450000 then print "Still Rolling"
if index = 500000 then goto [stop]
if (s < str) then goto [rollloop]
if (d < dex) then goto [rollloop]
if (c < con) then goto [rollloop]
if (i < int) then goto [rollloop]
if (w < wis) then goto [rollloop]
if (ch < chr) then goto [rollloop]
goto [success]
[stop]
print "Sorry - After 500,00 Rolls you still did not get your Stats"
print "Try lowering your Stats"
input "Hit Enter to Continue"; stop$
index = 0
goto [start]
[success]
print
print "Success - Number of Rolls = "; index
print
print "STR: "; s
print "DEX: "; d
print "CON: "; c
print "INT: "; i
print "WIS: "; w
print "CHR: "; ch
input "Hit Enter to Continue"; enter$
print
index = 0
input "Roll Again? 1=Yes | 2=No"; answer
if answer = 1 then goto [start]
if answer <> 1 then goto [quit]
[quit]
cls
print "Thanks for rolling your Stats with AutoRoller"
print " Program by Asmodeus"
end
I do have a question. Does the personal server allow multiple connections to the same application?
Thanks,
Asmodeus