04-03-2006, 08:34 PM
Pyrokid program:
I just used his paintball program.
Code:
screen 14,16
cls
dim pic(1000) AS INTEGER
randomize timer
do until a$=chr$(27)
a$=inkey$
i+=1
IF i = 1000 THEN
y=int(rnd*610)+10
x=int(rnd*300)+10
c=INT(RND*255)+50
clr=RGB(c,0,0)
circle (x,y),10,clr
paint (x,y),clr,clr
i=0
END IF
y=int(rnd*610)+1
x=int(rnd*310)+1
get (x,y)-(x+5,y+5),pic
put (x,y-1),pic,pset
loop