on *:sockread:track.*: {

  var %trackr

  sockread %trackr

  var %x 1

  if (*Date:* !iswm %trackr) && (*PHP/5* !iswm %trackr) && (*Server:* !iswm %trackr) {

    var %skills [ $+ [ $right($sockname,6) ] ] $skills

  }

  while (%x <= 28) {


    sockread %trackr

    if ((!$regex(%trackr,/[\/\-:\.]/)) || (*-1* iswm %trackr)) {
var %tmp $calc(($lvl($gettok(%trackr,2,32) + $gettok(%trackr,3,32))) - $gettok(%trackr,1,32))
hadd $sockname out $hget($sockname,out) $gettok($skills,%x,32) $+ $iif(%tmp == 0,$logo1($lvl($gettok(%trackr,2,32))),$logo2($gettok(%trackr,2,32) $+ -> $+ $gettok(%trackr,1,32)))
}

    sockread %trackr

    if ((!$regex(%trackr,/[\/\-:\.]/)) || (*-1* iswm %trackr)) hadd $sockname out $hget($sockname,out) $+ %trackr

}

    inc %x

  }

  if (%x > 28) {

$hget($sockname,output) %output

    hfree $sockname

    unset $* [ $+ [ $right($sockname,6) ] ]

    hfree address. [ $+ [ $right($sockname,6) ] ]

  }



}


alias c1 return $chr(3) $+ $iif($hget(Colors,$1) != $null,$hget(Colors,$1),01) $+ $2-

alias c2 return $chr(3) $+ $iif($hget(Colors2,$1) != $null,$hget(Colors2,$1),07) $+ $2-

alias logo1 return $c2($hget(address. [ $+ [ $right($sockname,6) ] ],address),$chr(40)) $+ $c1($hget(address. [ $+ [ $right($sockname,6) ] ],address),$$1-) $+ $c2($hget(address. [ $+ [ $right($sockname,6) ] ],address), $+ $chr(41))