while I'm awake...

Code:
raw 319:*:{
  var %c = $3-
  var %i = 1
  while ($comchan($2,%i)) { inc %i | var %com = $addtok(%com,$ifmatch,32) }
  var %e = $numtok(%c,32), %i = 0
  while (%i < %e) {
    inc %i | var %cc = $gettok(%c,%i,32)
    var %o = $addtok(%o,$iif($istok(%com,$cpfx(%cc),32),$+($chr(2),%cc,$chr(2)),%cc),32)
  }
  echo -a WHOIS $2 on %o | haltdef
}
alias cpfx { $iif($numtok($1,35) == 2,return $right($1,-1),return $1) }


Last edited by J0ke; 12/09/03 09:38 PM.
Go ahead, jump. 100,000 lemmings can't be wrong.