Miscellany

tokenize 32 $extcmbcalc($hget($sockname,attack),$hget($sockname,strength),$hget($sockname,defence),$hget($sockname,hitpoints),$hget($sockname,prayer),$hget($sockname,ranged),$hget($sockname,magic))
        $hget($sockname,disp) $c1(Combat stats for) $c2($replace($hget($sockname,name),+,$chr(32))) $c1(Level:) $c2($1-)
        $hget($sockname,disp) $c1(Att:) $c2($hget($sockname,attack)) $c1(Str:) $c2($hget($sockname,strength)) $c1(Def:) $c2($hget($sockname,defence)) $c1(Hp:) $c2($hget($sockname,hitpoints)) $c1(Pray:) $c2($hget($sockname,prayer)) $c1(Range:) $c2($hget($sockname,ranged)) $c1(Mage:) $c2($hget($sockname,magic))
       hadd -m $sockname temp $iif(*.* iswm $1,$calc(1 - $+($chr(46),$gettok($1,2,46))),1)
       if ($2- == (melee based)) { 
          $hget($sockname,disp) $c1(Levels For) $c2($calc($floor($1) + 1)) $+ $c1(:) $c1(Att:) $c2($ndp($calc($hget($sockname,temp) / 0.32707))) $& 
            $c1(Str:) $c2($ndp($calc($hget($sockname,temp) / 0.324))) $&
            $c1(Def:) $c2($ndp($calc($hget($sockname,temp) / 0.249))) $&
            $c1(Hits:) $c2($ndp($calc($hget($sockname,temp) / 0.25))) $&
            $c1(Pray:) $c2($ndp($calc($hget($sockname,temp) / 0.124)))
        }
        if ($2- == (Range based)) { 
          $hget($sockname,disp) $c1(Levels For) $c2($calc($floor($1) + 1)) $+ $c1(:) $c1(Range:) $c2($ndp($calc($hget($sockname,temp) / 0.487))) $& 
            $c1(Def:) $c2($ndp($calc($hget($sockname,temp) / 0.249))) $&
            $c1(Hits:) $c2($ndp($calc($hget($sockname,temp) / 0.25))) $&
            $c1(Pray:) $c2($ndp($calc($hget($sockname,temp) / 0.124)))
        }
        if ($2- == (Magic based)) { 
          $hget($sockname,disp) $c1(Levels For) $c2($calc($floor($1) + 1)) $+ $c1(:) $c1(Magic:) $c2($ndp($calc($hget($sockname,temp) / 0.487))) $& 
            $c1(Def:) $c2($ndp($calc($hget($sockname,temp) / 0.249))) $&
            $c1(Hits:) $c2($ndp($calc($hget($sockname,temp) / 0.25))) $&
            $c1(Pray:) $c2($ndp($calc($hget($sockname,temp) / 0.124)))
        }
      }
      hfree $sockname
      unset $+(%,$sockname,read) | sockclose $sockname