Whois Mods

## Whois mods by Sebastien - last uupdate: 29/12/2019
## $comchan alias from someone in a help chan somewhere.
## If you touch at something below this line, you WILL fuckup something.
##----------------------------------------------------------------------

alias ww { .enable #whois | whois $1 $1 }
#whois off
raw 311:*: {
  echo $color(notice) -a2 14[4###14] $iif($me == $2,Looking at yourself?,/whois7 $2)
  echo -a2 7Nick:14 $2
  echo -a2 7Address:14 $3 $+ @ $+ $4
  echo -a2 7FullName:14 $6-
  halt
}
raw 379:*:{ echo -a2 7$usermodes:14 $6- | halt }
raw 378:*:{ echo -a2 7Hostname:14 $6- | halt }
raw 307:*:{ echo -a2 7Services: 3This nickname is identified and logged-in | halt }
raw 319:*: {
  echo -a2 7Channels:4 $sorttok($3-,32,c)
  $iif($2 == $me,halt,echo -a2 7Common:11 $AdoComChan($2))
  halt
}
raw 312:*: {
  echo -a2 7Server:14 $3
  echo -a2 7Description:14 $4-
  halt
}
raw 330:*:{ echo -a2 7Username: 4 $+ $3 $+  | halt }
raw 338:*:{ echo -a2 7Host:14 $3 | halt }
raw 307:*:{ echo -a2 7 $+ $2 $3- | halt }
raw 301:*:{ echo -a2 7 $+ $2 is away:7 $3- | halt }
raw 313:*:{ echo -a2 7Status:14 $5- | halt }
raw 310:*:{ echo -a2 7 $+ $2 14 $+ $3- | halt }
raw 335:*:{ echo -a2 7Bot: 14Is a Bot on $network (4BOT14) | halt }
raw 671:*:{ echo -a2 7SSL: 14Is using a Secure Connection (4SSL14) | halt }
raw 320:*:{ echo -a2 7Title: 14 $+ $1- | halt }
raw 317:*:{
  echo -a7 7Idle:4 $duration($3)
  if ($4 isnum) echo -a2 7Online:14 $asctime($4)
  halt
}
raw 318:*:{
  echo $color(notice) -a2 14[4###14] End of Whois for7 $2
  linesep -a
  .disable #whois
  halt
}
alias AdoComChan {
  var %AdoComCh = 1
  while (%AdoComCh <= $comchan($1,0)) {
    var %AdoComLi = %AdoComLi $comchan($1,%AdoComCh)
    inc %AdoComCh
  }
  if (%AdoComLi == $null) { return None }
  else { return %AdoComLi }
}
#whois end

#EOF