#74493 - 2003-04-14 11:04 AM
Its Coming!
|
NTDOC
Administrator
Registered: 2000-07-28
Posts: 11623
Loc: CA
|
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 ]
|
Top
|
|
|
|
#74495 - 2003-04-14 11:07 AM
Re: Its Coming!
|
NTDOC
Administrator
Registered: 2000-07-28
Posts: 11623
Loc: CA
|
LOL...
The new one is coming. I'll let Shawn work on a KF model.
|
Top
|
|
|
|
#74497 - 2003-04-14 08:42 PM
Re: Its Coming!
|
NTDOC
Administrator
Registered: 2000-07-28
Posts: 11623
Loc: CA
|
|
Top
|
|
|
|
#74498 - 2003-04-14 09:13 PM
Re: Its Coming!
|
Howard Bullock
KiX Supporter
Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA
|
|
Top
|
|
|
|
#74509 - 2003-04-15 02:35 PM
Re: Its Coming!
|
Jochen
KiX Supporter
Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
|
|
Top
|
|
|
|
Moderator: Glenn Barnas, NTDOC, Arend_, Jochen, Radimus, Allen, ShaneEP, Ruud van Velsen, Mart
|
0 registered
and 248 anonymous users online.
|
|
|