hide mouse
print "--Ilya's Particle Engine--"
print "Space to change color."
print "+ ad - to change wavelength pixel offset."
print "Shift to toggle between box and line mode."
print "[ and ] to change wavelength size."
wait key
sync on
randomize timer()
c=rnd(16000000)
restart:
for z=0 to r
y=(screen height()/2)+(-r+rnd(r*2))
for x=0 to screen width()-1
y=y+(-i+rnd(i*2))
ink c,c
if mode=0 then box x,y,x+1,y+1
if mode=1
line x,y,x2,y2
x2=x
y2=y
endif
next x
next z
if spacekey()=1 and key=0 then c=rnd(16000000) : key=1
if inkey$()="=" and key=0 then i=i+1 : key=1
if inkey$()="-" and key=0 then i=i-1 : key=1
if shiftkey()=1 and key=0 then mode=mode+1 : key=1 : if mode=2 then mode=0
if inkey$()="[" then r=r-1
if inkey$()="]" then r=r+1
if w<0 then w=0
if i<0 then i=0
if scancode()=0 then key=0
ink rgb(255,255,255),rgb(255,255,255)
line mousex(),0,mousex(),screen height()
line 0,mousey(),screen width(),mousey()
sync
cls
goto restart
Quote: "I've seen the word programming and I'm not sure what it means. Anybody please explain?"
Quote: "We shouldn't sacrifice the truth to preserve "balance"."
