Pasted

## 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