(msn still broken) says:
yup, you been up to much
walk don't run says:
not really
walk don't run says:
how about you?My program (code below) produces this error message when I compile it. Can anyone either a) point out the blindingly obvious stupid fault in the program that might cause it, or b) tell me what that error means/the location of a DBPro error message list? Really there ought to be one in the help file but I'll be damned if I can find it.
cls 0
hide mouse
sync on
rem Set some parameters
maxsnow=400
maxdead=1000
avgspeed#=4
ink rgb(255,255,255),0
rem snow#(particle number, x/y/direction of travel/speed of travel/x add/y add/c)
dim snow#(maxsnow,8)
rem dead#(particle number, exist/x)
dim dead#(maxdead,2)
rem Fill the snow# array
for n=1 to maxsnow
snow#(n,1)=rnd(640)
snow#(n,2)=rnd(480)
snow#(n,3)=rnd(180)+90.0
snow#(n,4)=rnd(avgspeed#)+avgspeed#
snow#(n,5)=snow#(n,4)*cos(snow#(n,3)-90)
snow#(n,6)=snow#(n,4)*sin(snow#(n,3)-90)
c=(255/avgspeed#*2))*snow#(n,4)
snow#(n,7)=rgb(c,c,c)
next n
rem MAIN LOOP
do
gosub refreshSnow
sync
cls
loop
refreshSnow:
for n=1 to maxsnow
rem Update snow positions
if snow#(n,3)>89.9 and snow#(n,3)<180.1
snow#(n,1)=snow#(n,1)+snow#(n,5)
snow#(n,2)=snow#(n,2)+snow#(n,6)
if snow#(n,2)>480 then snow#(n,2)=dead#(n,1)=1.0;dead#(n,2)=snow#(n,1);snow#(n,2)=0
if snow#(n,1)<0 then snow#(n,1)=640
if snow#(n,1)>640 then snow#(n,1)=0
endif
if snow#(n,3)<270.1 and snow#(n,3)>179.9
snow#(n,1)=snow#(n,1)-snow#(n,5)
snow#(n,2)=snow#(n,2)+snow#(n,6)
if snow#(n,2)>480 then snow#(n,2)=dead#(n,1)=1.0;dead#(n,2)=snow#(n,1);snow#(n,2)=0
if snow#(n,1)<0 then snow#(n,1)=640
if snow#(n,1)>640 then snow#(n,1)=0
endif
rem Draw snow
ink snow#(n,7),0
dot snow#(n,1),snow#(n,2)
if dead#(n,1)=1.0 then dot dead#(n,2),479
next n
returnYes, sir, but sir is not a rabbit, is sir?
