Snow
BlitzMax Forums/BlitzMax Beginners Area/Snow
| ||
I have trouble of putting snow on screen and I dont know if I done it right even thought it is blank!Const Snow_Max=400 Graphics 640,480,0 Type Snow Field X,Y,Speed End Type Global New_Snow:Snow For i=1 To Snow_Max-1 New_Snow.x=Rnd(Snow_Max) New_Snow.y=Rnd(10) New_Snow.Speed=Rnd(1,3) Next While Not KeyDown(1) Cls For i=1 To Snow_Max Plot(New_Snow.x,New_Snow.y) New_Snow.y=New_Snow.y+New_Snow.Speed Next Flip Wend |
| ||
You only have a single snow object, of which you are replacing the Field values in your loop. You probably want to have a List/Array of snow objects : ... Global snowList:TList = New TList ... For i=1 To Snow_Max-1 Local s:Snow = New Snow s.x=Rnd(Snow_Max) s.y=Rnd(10) s.Speed=Rnd(1,3) snowList.AddLast(s) Next ... For s= Eachin snowList Plot(s.x,s.y) s.y=s.y+s.Speed Next ... and use Strict or SuperStrict, so that the compiler can catch some basic coding mistakes. |