Moving Grass - GameCreators Forum

developer forums

Code Snippets / Moving Grass

Author

Message

NeX the Fairly Fast Ferret

Years of Service

User Offline

Joined: 10th Apr 2005

Location: The Fifth Plane of Oblivion

Posted: 1st Jan 2007 17:06 Edited at: 1st Jan 2007 17:07

Link

Run this program, and hold space. Sit back. For some reason, the result is something that looks like moving grass!

+ Code Snippet

sync rate 1000 : sync on : randomize timer()
do
if spacekey()

x=rnd(63)
y=rnd(63)
c=96+rnd(64)
for b=0 to rnd(3)
dot x,y,rgb(0,c,0)
dec y
if y<0 then y=63
inc x,(rnd(2))
if x<0 then x=63
if x>63 then x=0
next b

if timer() > oldtimer then sync : oldtimer=timer()+50
else
sync
endif
loop