----------------------------------- PHP God Fri Jun 20, 2003 10:28 am [Source Code] Meteor Shower Screensaver ----------------------------------- her it is... extreme boredom bears fruit... var raindropx,raindropy:array 1..150 of int var screen:int:=Window.Open("fullscreen") colorback (black) setscreen ("graphics,nocursor,noecho") cls % Randomize starting locations for i:1..150 randint(raindropx(i),0,maxx) randint(raindropy(i),0,maxy) end for % Rain Procedure loop % Down and Left for ii:1..200 % run raindrops for i:1..150 drawline (raindropx(i),raindropy(i),raindropx(i)-1,raindropy(i)-2,red) raindropx(i):=raindropx(i)-1 raindropy(i):=raindropy(i)-2 drawline (raindropx(i),raindropy(i),raindropx(i)-1,raindropy(i)-2,brightgreen) end for for i:1..150 if raindropy(i) = maxy then drawline (raindropx(i),raindropy(i),raindropx(i)-1,raindropy(i)+2,black) raindropy(i) := 0 randint (raindropx(i),0,maxx) drawline (raindropx(i),raindropy(i),raindropx(i)-1,raindropy(i)+2,black) end if end for end for end loop