#!/usr/bin/perl -w
# neptune9_generator.pl - Don Yang (uguu.org)
#
# 2014-03-16

use strict;
use Compress::Zlib;

my $q = q'@c=();if(!defined($s)){if($#ARGV){print"$0 <seed>\n";exit 1;}$s=$ARGV[0];}$r=$s;for($x=0;$x<27;$x++){$c[0][$x]=$c[11][$x]=5;}for($y=1;$y<11;$y++){$c[$y][0]=$c[$y][26]=6;for($x=1;$x<26;$c[$y][$x++]=0){}}for($x=10;$x<16;$c[6][$x++]=5){$c[5][$x]=7;}$c[5][16]=6;$c[6][16]=4;@b=([0,1,1,1]);while(scalar@b){($m,$n,$o,$p)=@{pop@b};next if$c[$p][$o]&4;$c[$p][$o]|=4;if($m-$o){$c[$p][$m<$o?$m:$o]|=1;}else{$c[$n<$p?$n:$p][$o]|=2;}@m=([-1,0],[1,0],[0,-1],[0,1]);for($i=@m;--$i;){$j=($r=($r>>1)^(0xd0000001&-($r&1)))%($i+1);next if$i==$j;@m[$i,$j]=@m[$j,$i];}while(scalar@m){($i,$j)=@{pop@m};push@b,[$o,$p,$o+$i,$p+$j];}}$c[10][25]|=1;$c[1][0]&=~1;if(defined($u)){if(defined($d)){if(!$d&&($c[$v-1][$u]&2)){$v--;}elsif($d==1&&($c[$v][$u]&2)){$v++;}elsif($d==2&&$c[$v][$u-1]&1){$u--;}}else{if($c[$v][$u]&1){$u++;}}}else{$u=$v=1;}if($u==25&&$v==10){print"\n"x 25,<<z;
                           ooooooooooo
                     ood88888888888888888oo
                  d]888888888888888888888888bo
              d"""  d88888888888888888888888888bc
            od8oc   `9888888888888888888[  888888bc         G O A L !
         ]88888P  8bo8888888888888888P"""  "  98888c
         ooo8888888888"888888888 ]8888oooc  ood88888o
      `"8888888888888  88888888   88888888  ]88888888b
         "9888888888   9888888    `8888888888888888888b
        od888888889    `88 88      98P98888888888888888888b"
      o88P""888888      `P "       `" ]8888888888888P9888bc
           d889888"""`=               ]88888888888888c `""9bc
          d8"o8888               """`=]8888`8888888888c
         o" o88888                    88888b888888b 988c
            8888P8c      oooo         `8888888888888c "8
           ]8888 `9o      88P       od888888888888888c
           ]88P    `"bo         ood888888888888 9c""88c
           ]88"[      `"9oood"""98P" 9888888[`8       "
           `8P                  "    `888888[ `
            9[                       d888898
            `                       d8888  P
                                  o8P"9P

z
}else{$K=($k="\47")x 3;$y=chr(92);if($u==1&&$v==1){$q="\$s=$s;$q";}$qq=pack"u*",compress($q);eval"\$qq=~y/${y}40-${y}47${y}n\@$y$y/a-k/;";print<<"Z";
q=$K\$q=.0;use Compress::Zlib;\$u=$u;\$v=$v;(\$q="$qq")=~y/a-k/${y}40-${y}47${y}12${y}100${y}134/;\$q=uncompress(unpack"u*",\$q);eval\$q;__DATA__ $k+%{
perl<<z;exit 0
$y\$d=0;\$q
z
$K
import subprocess
r=q.rfind($k/$k)
i=subprocess.Popen("perl",stdin=subprocess.PIPE)
i.stdin.write($k\$d=1;$k+q[0:q.rfind($k/$k,0,r)]+r$k/${y}40-${y}47${y}12${y}100${y}134$k+q[r:])
i.stdin.close()
i.wait()
$K};IO.popen("perl","w"){|l|l.write($k\$d=2;$k+q);l.close_write};r=%{
Z
print"\n"x 25;@m=();for($y=0;$y<11;$y++){$n="";for($x=0;$x<26;$n.=($c[$y][$x++]&1)?"   ":"  |"){}push@m,substr($n,2)."\n";$n="";for($x=0;$x<26;$x++){$n.=(($c[$y][$x]&2)?"  ":"--").substr("+++++-+-++||+-| ",(($c[$y][$x]&3)<<2)|($c[$y+1][$x]&1)|($c[$y][$x+1]&2),1);}push@m,substr($n,2)."\n";}substr($m[10],36,4)="bash";substr($m[11],29,18)="ruby          perl";substr($m[12],35,6)="python";substr($m[21],71,5)="}#$K";substr($m[$v*2],$u*3-2,2)="<>";print foreach@m;}';


# Encode program
my $encoded = pack "u*", compress($q);
$encoded =~ y/\40-\47\n@\\/a-k/;
$encoded = "sub n(){" .
              "use Compress::Zlib;" .
              "\$q=~y/!-z\\1- /!-` -\\47\\n@\\134/d;" .
              '$q=uncompress(unpack"u*",$q);' .
              'eval$q;' .
           "}" .
           "\$q='$encoded';n();";

# Load template
open my $file, "<neptune9_template.txt" or die $!;
my $template = join '', <$file>;
close $file;

# Output bytes
$encoded =~ s/\s//gs;
my $c = 0;
for(my $i = 0; $i < length($template); $i++)
{
   my $t = substr($template, $i, 1);
   if( $t =~ /[\sxoq]/ )
   {
      print $t;
   }
   else
   {
      if( $c >= length($encoded) )
      {
         my $extra = 0;
         for(; $i < length($template); $i++)
         {
            unless( substr($template, $i, 1) =~ /[^\sxoq]/ )
            {
               $extra++;
            }
         }
         die "Template too long, excess = $extra\n";
      }
      print substr($encoded, $c, 1);
      $c++;
   }
}

if( $c != length($encoded) )
{
   my $short = length($encoded) - $c;
   die "Template too short, difference = $short\n";
}