Help for this page

Select Code to Download


  1. or download this
    my $data=do {local $/;<DATA>};
 
...
$data=~s/\s([\w"\\]+)(?=[\s)])/$1,/g;  # comma separated args
 
print $data;
  2. or download this
     
__DATA__
(global short rounds_completed 0)
...
    (cinematic_stop)
    (wake credits_cutscene)
)
  3. or download this
    global(short,rounds_completed,0,),
 
script(static,unit,player,
...
    cinematic_stop(),
    wake(credits_cutscene,),
),
  4. or download this
    &death7;
death6();
...
sub AUTOLOAD {
  print "undefined sub $AUTOLOAD was called\n";
}