Unnamed

on $*:TEXT:$(/^(\Q $+ $me $+ \E,? )?[!@.]compare/Si):#:{
  if ($readini(Status.ini,$network,$chan) == DChan && $remove($1,$chr(44)) != $me) { halt }
  else {
    var %i = $rand(10000,99999)
    set %compare.display. $+ %i $& $iif($left($iif($remove($1,$chr(44)) == $me,$iif($nick ison $.chan,$2),$1),1) == @,$iif($remove($1,$chr(44)) != $me && $readini(Status2.ini,$network,$chan),.notice $nick,msg $chan),.notice $nick)
    var %x = 1
    while (%x <= $calc($count($chr(42),$1-) + 1)) {
      tokenize 32 $gettok($iif($remove($1,$chr(44)) == $me,$3-,$2-),%x,42)
      echo $1 $2 $3
      if (($skills($1) == $null) || (!$3)) {
      }
      else {
        echo $1
        if (, isin $($1,2)) {
          echo success
          set %compare.nick1. $+ %i $+ . $+ %x $2
          set %compare.nick2. $+ %i $+ . $+ %x $3
          set %compare.skill. $+ %i $+ . $+ %x $1
          Sockopen compare. $+ %i $+ . $+ %x $+ . $+ 1 o-ss.net 80
          Sockopen compare. $+ %i $+ . $+ %x $+ . $+ 2 o-ss.net 80
        }
        inc %x
      }
    }
  }
}