Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Worms!

by chipmunk (Parson)
on Jul 16, 2001 at 22:53 UTC ( [id://97132]=obfuscated: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    @D=(0,0,-1,$|=print"\e[H\e[J");$x=30;$y=10;{select$,,$,,$,,.07;$p=($j
     %=@j=',rekcah lreP rehtona tsuJ'=~/./g)==$M{"@{*t=shift@w}"}&&"\e[H".
      "\e[B"x$t[0]."\e[C"x$t[1].$"if@j<=push@w,[$y,$x];{$D+=$D[rand@D];$_=
    +(
       A,D,B,C)[$D%=4];/A/&&$y?$y--:/D/&&$x?--$x:/B/&$y<20?$y++:/C/&$x<60?
    +++
        $x:redo}print$p,"\e[H","\e[B"x$y,"\e[C"x$x,$j[$M{"$y $x"}=$j++];re
    +do}
    
  2. or download this
    @T=(0,0,-1,$|=print"\e[H\e[J");@w=[([10,30])x($n=0+pop||3)];{select$,,
    +$,,$,,
     .07;my@W;$j%=@j=',rekcah lreP rehtona tsuJ'=~/./g;for$i(0..$n-1){($y,
    +$x)=@{$
      w[-1][$i]};{$D[$i]+=$T[rand@T];$_=(A,D,B,C)[$D[$i]%=4];/A/&&$y?--$y:
    +/D/&&$x?
    ...
     $Y,$X}&&"\e[H"."\e[B"x$Y."\e[C"x$X.$"if@j<=@w;push@W,[$y,$x];print$p,
    +"\e[H",
    "\e[B"x$y,"\e[C"x$x,$j[$M{$y,$x}="$j.$i"]}shift@w if@j<push@w,\@W;++$j
    +;redo}
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://97132]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others taking refuge in the Monastery: (6)
As of 2024-03-29 05:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found