SHARE
TWEET

Untitled

a guest May 19th, 2017 46 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. on *:sockread:track.*: {
  2.  
  3.   var %trackr
  4.  
  5.   sockread %trackr
  6.  
  7.   var %x 1
  8.  
  9.   if (*Date:* !iswm %trackr) && (*PHP/5* !iswm %trackr) && (*Server:* !iswm %trackr) {
  10.  
  11.     var %skills [ $+ [ $right($sockname,6) ] ] $skills
  12.  
  13.   }
  14.  
  15.   while (%x <= 28) {
  16.  
  17.  
  18.     sockread %trackr
  19.  
  20.     if ((!$regex(%trackr,/[\/\-:\.]/)) || (*-1* iswm %trackr)) {
  21. var %tmp $calc(($lvl($gettok(%trackr,2,32) + $gettok(%trackr,3,32))) - $gettok(%trackr,1,32))
  22. 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)))
  23. }
  24.  
  25.     sockread %trackr
  26.  
  27.     if ((!$regex(%trackr,/[\/\-:\.]/)) || (*-1* iswm %trackr)) hadd $sockname out $hget($sockname,out) $+ %trackr
  28.  
  29. }
  30.  
  31.     inc %x
  32.  
  33.   }
  34.  
  35.   if (%x > 28) {
  36.  
  37. $hget($sockname,output) %output
  38.  
  39.     hfree $sockname
  40.  
  41.     unset $* [ $+ [ $right($sockname,6) ] ]
  42.  
  43.     hfree address. [ $+ [ $right($sockname,6) ] ]
  44.  
  45.   }
  46.  
  47.  
  48.  
  49. }
  50.  
  51.  
  52. alias c1 return $chr(3) $+ $iif($hget(Colors,$1) != $null,$hget(Colors,$1),01) $+ $2-
  53.  
  54. alias c2 return $chr(3) $+ $iif($hget(Colors2,$1) != $null,$hget(Colors2,$1),07) $+ $2-
  55.  
  56. 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))
RAW Paste Data
Pastebin PRO Summer Special!
Get 40% OFF on Pastebin PRO accounts!
Top