#!/usr/bin/perl open(MOBF,"../lib/big.mob") || die "$!\n"; while(<MOBF>){ chop; if(substr($_,0,1) eq '#'){ $newobj = 1; printf "#%d\n",int(substr($_,1)); } elsif(/^(\d+) +(\d+) +(\d+) +(\d+)d(\d+)\+(\d+) +(\d+)d(\d+)\+(\d+)$/){ $lev = $1; $hr = $2; $ac = $3; $d1 = $4; $d2 = $5; $hp = $6; $d3 = $7; $d4 = $8; $dr = $9; $lev = 1 + ($lev + $ac + $hr)/10; $hr = $lev; $ac = $lev; $hp = 1 + $lev * $lev; $dr = $lev; $d1 = 1; $d2 = 1; $d3 = 1 + int(log(1+$lev)); $d4 = 1 + int(sqrt($lev)); printf "%d %d %d %dd%d+%d %dd%d+%d\n", $lev, $hr, $ac, $d1, $d2, $hp, $d3, $d4, $dr; } elsif(/^(\d+) +(\d+)$/){ $gc = $1; $xp = $2; printf "%d %d\n",int(sqrt($gc)),1+$lev+int(sqrt($xp)); } else { printf "%s\n", $_; } }