rem rain - a simple raindrop effect
rem copyright Marc Gale (Xalthorn)

open window 640,512
setrgb 0,0,0,50
curbuf=1
md=10
dim dropx(md)
dim dropy(md)
dim dropr(md)

for a=1 to md
 dropx(a)=ran(640)
 dropy(a)=ran(512)
 dropr(a)=ran(40)
next a

label main
 setdrawbuf curbuf
 curbuf=1-curbuf
 setdispbuf curbuf
 clear window

 for a=1 to md
  bri=250-dropr(a)*5
  setrgb 1,0,0,bri
  circle dropx(a),dropy(a),dropr(a)
  dropr(a)=dropr(a)+1
  if dropr(a)>40 then
   dropx(a)=ran(640)
   dropy(a)=ran(512)
   dropr(a)=0
  fi
 next a
goto main
