Unnamed

on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@]rank) .*/Si):#:{
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
  var %multi = $right($ticks,6) 
  set %display. [ $+ [ %multi ] ] $iif(@ isin $left($1,1),msg $chan,notice $nick) 
  set %skill. [ $+ [ %multi ] ] $iif($2,$skill($2)) 
  set %rank. [ $+ [ %multi ] ] $iif($3 isnum,$3)
  sockopen RANK. [ $+ [ %multi ] ] o-ss.net 80
}
on *:sockopen:RANK.*:{  
  if ($sockerr) { halt }  
  sockwrite -nt $sockname GET /parsers/ranks.php?skill= $+ %skill. [ $+ [ $right($sockname,6) ] ] $+ &rank= $+ %rank. [ $+ [ $right($sockname,6) ] ] HTTP/1.1
  sockwrite -nt $sockname Host: o-ss.net $crlf $+ $crlf
}
on *:sockread:RANK.*:{  
  if ($sockerr) { halt } 
  else {   
    sockread %x  
    tokenize 32 %x
    if (*specify* iswm %x) { %display. [ $+ [ $right($sockname,6) ] ] $colour1(Sorry Cannot Find The User Or Skill) | halt }
    if (*RANK* iswm %x)  {  
      echo -a %skill. [ $+ [ $right($sockname,6) ] ]      
      %display. [ $+ [ $right($sockname,6) ] ] $colour1(The User Who Is Rank) $colour2(%rank. [ $+ [ $right($sockname,6) ] ]) $colour1(In The Skill) $colour2(%skill. [ $+ [ $right($sockname,6) ] ]) $colour1(Is) $colour2($2-)
      unset %skill. [ $+ [ $right($sockname,6) ] ]
      unset %rank. [ $+ [ $right($sockname,6) ] ]  
      unset %display. [ $+ [ $right($sockname,6) ] ]
      sockclose $sockname
    }  
  }
}