Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement