Thursday, May 15, 2003


break on cls
color w/n
srnd(@msecs)
$t=5

$greenies = 15
$greenie = marray("$greenies,2")
for $i=0 to $greenies
 $greenie[$i][0] = rnd(24)
 $greenie[$i][1] = rnd(78)
next

$blankies = 15
$blankie = marray("$blankies,2")
for $i=0 to ubound($blankie)
 $blankie[$i][0] = rnd(24)
 $blankie[$i][1] = rnd(78)
next

$=setoption("hidecursor","on")

while not kbhit()
 for $i = 0 to $greenies
  color g/n
  $c=rnd(100)+100
  if $c=7 or $c=149
   $c=150
  endif
  if $greenie[$i][0]
   at($greenie[$i][0],$greenie[$i][1]) chr($c)
  endif
  if $greenie[$i][0] < 23
   $greenie[$i][0] = $greenie[$i][0] + 1
   color w+/n
   at($greenie[$i][0],$greenie[$i][1]) chr($c)
  else 
   $greenie[$i][0] = rnd(5)
   $greenie[$i][1] = rnd(78)
  endif
  delay($t)
 next
 for $i = 0 to $blankies
  color w/n
  at($blankie[$i][0],$blankie[$i][1]) " "
  $blankie[$i][0]=$blankie[$i][0]+1
  if $blankie[$i][0] = 24
   $blankie[$i][0]=0
   $blankie[$i][1]=rnd(78)
  endif
  delay($t)
 next
 color w/n
 delay($t)
loop
get$
 
cls
exit 1

function delay($n)
 $ticks = @ticks +$n
 while @ticks < $ticks
 loop
endfunction

FUNCTION MArray($ind, OPTIONAL $ptr)
  IF Ubound($ind) < 1  $ind =Split($ind,",")  ENDIF
    REDIM $MArray[$ind[$ptr]]
      IF $ptr < Ubound($ind)
        $MArray[0] =MArray($ind,$ptr+1)
    DIM $L
    FOR $L = 1 TO Ubound($MArray)  $MArray[$L]=$MArray[0]  NEXT
      ENDIF
ENDFUNCTION


Code by Shawn Tassie with one minor mod.

[ 14. April 2003, 11:06: Message edited by: NTDOC ]