Something

if (!$hget(%table,%skill)) %display $c1(The nick) $c2(%rsn) $c1(does not appear in the hiscores for) $c2(%skill) 
    else { 
      tokenize 32 $hget(%table,%skill) 
    if (!%level) var %level = $calc($2 + 1)
         var %x = 1
         while ($ini(statcalc.ini,%skill,%x)) {
           set $+(%,rs.item.,%x) $c1($replace($v1,$chr(95),$chr(32))) $+ s: $c2(( $+ $comma($floor($calc($calc($remove($readini(statcalc.ini,level,%level),$chr(44)) - $remove($3,$chr(44))) / $calc($readini(StatCalc.ini,%skill,$v1) + 1))))) $+ ) $+ )
           inc %x
         } 
         if (%level isnum 1-99) && (%skill != overall) { var %xp2next $c1(Exp for) $c2($strip(%level)) $c1(%skill $+ :) $c2($comma($calc($remove($readini(statcalc.ini,level,$strip(%level)),$chr(44)) - $remove($3,$chr(44))))) }
         elseif ($2 != 99) && (%skill != overall) { var %xp2next $c1(Exp for) $c2($calc($2 + 1)) $c1(%skill $+ :) $c2($comma($4)) }
         %display $c2(%skill) $c1(Stats for) $c2(%target)
         %display $c1(Level:) $c2($2) $c1(Rank:) $c2($1) $c1(Exp:) $c2($3) %xp2next
         if ($2 != 99) && (%skill != overall) { %display $c1(Items for) $c2($iif(%level isnum 1-99,%level,$calc($2 + 1))) $c1(%skill) - $($+(%,rs.item.,1),2) $($+(%,rs.item.,2),2) $($+(%,rs.item.,3),2) $($+(%,rs.item.,4),2) $($+(%,rs.item.,5),2) } 
      var %pcpoint = $calc(($2 * $2) /6)
      var %pcpray = $calc(($2 * $2) /12)