the chode,
Create a string array and fill the slots with your jokes.
REM << declare your array
dim joke$(3)
REM << fill your array
joke$(1) = "Yo mama so fat..."
joke$(2) = "You so skinny that..."
joke$(3) = "Your face is so..."
For the random selector, simply use the
rnd function to select a random number in between 0 and array length.
REM << when user inputs name get a random number
if spacekey() = 1
number = rnd(3)
REM << because rnd will also select a 0, increment number if it is = to 0
if number = 0 then inc number
endif
REM << print selected array slot number to screen
print joke$(number)
Below is a runnable code snippet. Try it out.
set display mode 800,600,32
sync on
sync rate 60
dim joke$(3)
joke$(1) = "Yo mama so fat that..."
joke$(2) = "You so skinny that..."
joke$(3) = "You face so ugly that..."
repeat
if spacekey() = 1
number = rnd(3)
if number = 0 then inc number
endif
print joke$(number)
`print instruction to screen
center text 400,565,"press a mouse key to end program"
center text 400,580,"press space bar to draw random insult"
sync
cls
until mousekey() > 0
end
+NanoBrain+
