#!/usr/bin/perl
use strict;

my $ftext;

my $ifn = $ARGV[0];
my $ofn = $ifn;
$ofn =~ s/qsg$/decqsg/;

#my $OFH;
##open $OFH, ">&STDOUT" or die "Can't dup STDOUT: $!";
#open $OFH, ">$ofn" or die "Can't open $ofn for output: $!";


{
   my $FH;
   open $FH, $ifn or die "Unable to open $ifn: $!";
   local $/ = undef;
   $ftext = <$FH>;
}

my @chars = split //, $ftext;

my %ht = ();

my $fn;

{
my $tmp_line = '';
my @out_lines = ();
sub push_char { $tmp_line .= chr $_[0]; }
sub push_line { push @out_lines, $tmp_line; $tmp_line = ''; }
sub get_lines { return @out_lines; }
}

sub getnum {
   if ($_[0] =~ /^[0-9]*$/) { return $_[0]; }
   die "Bad number format '$_[0]'";
}


for ($fn = 0; $chars[$fn] ne chr 0; $fn ++) {
   push_char (ord $chars[$fn]);
}
push_line();

for (++ $fn; $chars[$fn] ne chr 0; $fn ++) {
   push_char (ord $chars[$fn]);
}
#print $OFH "\n";
push_line();

for (++ $fn; $fn < @chars; $fn ++) {
   my $n = 255 - ord $chars[$fn];
   if ($n == 0) {
       #print $OFH "\n";
       push_line();
   } elsif ($n == 1) {
       push_char($n); push_line();
   } else {
       #print $OFH chr $n;
       push_char($n);
   }
   #print $OFH chr(255 - ord $chars[$fn]);
}

my @result = get_lines();
#for (my $n = 0; $n < @result; $n ++) {
#    print $n, ": ", $result[$n], "\n";
#}

my $line_num = 0;
my $table_size;

sub show_result {
   for (my $i = 0; $i < @result; $i ++) {
       print "$i:  $result[$i]\n";
   }
}

if ($ARGV[1] eq '-raw') {
   show_result(); die;
}

print "Save version: ", $result[$line_num ++], "\n";
print "Game File:    ", $result[$line_num ++], "\n";
print "Current room: ", $result[$line_num ++], "\n";

print "\nTable A (properties?): size $result[$line_num]\n";
$table_size = getnum($result[$line_num ++]);
for (my $n = 0; $n < $table_size; $n ++) {
   print "  properties $n: name '", $result[$line_num++], "',   data '", $result[$line_num ++], "'\n";
}

my $s0 = '';
my $s1 = chr(1);


print "\nTable B (Objects): size $result[$line_num]\n";
$table_size = getnum($result[$line_num ++]);
for (my $n = 0; $n < $table_size; $n ++) {
   #print "  Object $n: name '", $result[$line_num ++], "',   1: '", $result[$line_num ++], "',   2: '", $result[$line_num ++], "',   3: '", $result[$line_num ++], "'\n";
   my ($p1, $p2, $t) = ($result[$line_num + 1], $result[$line_num + 2], '');
   if ($p1 eq $s0 && $p2 eq $s0) { $t = 'HI'; }
   if ($p1 eq $s0 && $p2 eq $s1) { $t = 'H '; }
   if ($p1 eq $s1 && $p2 eq $s0) { $t = 'I '; }
   if ($p1 eq $s1 && $p2 eq $s1) { $t = '  '; }
   if ($t eq '') {
       print "  objt $n: name '", $result[$line_num ++], "',   1: '", $result[$line_num ++], "',   2: '", $result[$line_num ++], "',   3: '", $result[$line_num ++], "'\n";
   } else {
       print "  $t $n: name '", $result[$line_num], "', \tparent '", $result[$line_num + 3], "'\n";
       $line_num += 4;
   }
}

print "\nTable C (changed exits): size $result[$line_num]\n";
$table_size = getnum($result[$line_num ++]);
for (my $n = 0; $n < $table_size; $n ++) {
   print "  exit $n: '", $result[$line_num ++], "' -> '", $result[$line_num ++], "'\n";
}

print "\nTable D (Timers): size $result[$line_num]\n";
$table_size = getnum($result[$line_num ++]);
for (my $n = 0; $n < $table_size; $n ++) {
   my $state = '';
   if ($result[$line_num+1] eq $s0) { $state = 'ON'; }
   elsif ($result[$line_num+1] eq $s1) { $state = 'OFF'; }
   else { $state = "state $result[$line_num+1]"; }

   print "  Timer $n: $result[$line_num] ($state), interval $result[$line_num+2]s, remaining time $result[$line_num+3]\n";
   #print "  ???? $n: '", $result[$line_num ++], "' '", $result[$line_num++],
   #   "',  '", $result[$line_num ++], "', '", $result[$line_num ++], "'\n";
   $line_num += 4;
}

print "\nTable E (string variables): size $result[$line_num]\n";
$table_size = getnum($result[$line_num ++]);
for (my $n = 0; $n < $table_size; $n ++) {
   print "  variable $n: name: '", $result[$line_num ++], "',   ";
   my $ts1 = getnum($result[$line_num ++]);
   #if ($ts1 > 0) {
   #   print "subsize ($ts1): [";
   #   for (my $m = 0; $m < $ts1; $m ++) {
   #       print "'", $result[$line_num ++], "', ";
   #   }
   #   print "]   ";
   #}
   #print "value: '", $result[$line_num ++], "'\n";
   if ($ts1 > 0) {
       my $i;
       for ($i = 0; $i < $ts1; $i ++) {
           print "$i -> '", $result[$line_num ++], "', ";
       }
       print "$i -> ";
   }
   print "'", $result[$line_num ++], "'\n";
}

print "\nTable F (numeric variables): size $result[$line_num]\n";
$table_size = getnum($result[$line_num ++]);
for (my $n = 0; $n < $table_size; $n ++) {
   print "  statvar $n: name: '", $result[$line_num ++], "',   ";
   my $ts1 = getnum ($result[$line_num ++]);
   if ($ts1 > 0) {
       print "subsize ($ts1): [";
       for (my $m = 0; $m < $ts1; $m ++) {
           print "'", $result[$line_num ++], "', ";
       }
       print "]   ";
   }
   print "value: '", $result[$line_num ++], "'\n";
}

if ($line_num < @result) {
   print "\nExcess:\n";
   while ($line_num < @result) {
       print "$line_num: '", $result[$line_num ++], "'\n";
   }
}

You are viewing proxied material from gopher.661.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.