;whois
;Redrocco
;2-12-08

raw 301:*: {
  echo -a 10Away: Yes:14 ( $+ $strip($3-) $+ )  
  return
}
raw 307:*: {
  echo -a 10Registered Nickname:14 Yes.  
  return
}
raw 310:*: {
  echo -a 10IRC Helper:14 Yes.  
  return
}
raw 311:*: {
  echo -a 10====================[14 Whois10 ]=====================
  echo -a 10NickName:14 $2  
  echo -a 10Real Name:14 $6- 
  echo -a 10Ident:14 $3 
  echo -a 10Address:14 *!*@ $+ $4 
  return
}
raw 378:*: {
  echo -a 10Hostmask:14 $6  
  echo -a 10IP:14 $7 
  return
}
raw 379:*: {
  echo -a 10Modes:14 $6- 
  return
}
raw 671:*: {
  echo -a 10Secure Connection:14 Yes  
  return
}
raw 312:*: {
  echo -a 10Server:14 $3 
  echo -a 10Description:14 $4- 
  return
}

raw 313:*: {
  echo -a 10Network Rank:14 $5-9 
  return
}
raw 319:*: { 
  var %wchns = $replace($3-,$chr(32),$chr(188))
  var %wlmt = $numtok(%wchns,188)
  var %i = 1
  while (%i <= %wlmt) {
    if ($left($gettok(%wchns,%i,188),1) == $chr(37)) var %hchn = $gettok(%wchns,%i,188) $+ $chr(32) $+ %hchn 
    if ($left($gettok(%wchns,%i,188),1) == ~) var %achn = $gettok(%wchns,%i,188) $+ $chr(32) $+ %achn 
    if ($left($gettok(%wchns,%i,188),1) == +) var %vchn = $gettok(%wchns,%i,188) $+ $chr(32) $+ %vchn 
    if ($left($gettok(%wchns,%i,188),1) == @) var %ochn = $gettok(%wchns,%i,188) $+ $chr(32) $+ %ochn 
    if ($left($gettok(%wchns,%i,188),1) == &) var %schn = $gettok(%wchns,%i,188) $+ $chr(32) $+ %schn    
    if ($left($gettok(%wchns,%i,188),1) == $chr(35))    var %rchn = $gettok(%wchns,%i,188) $+ $chr(32) $+ %rchn
    inc %i
  }
  echo -a 10===================[14 Channels 10]===================
  if (%achn != $null) echo -a 10Admin On:14 %achn
  if (%schn != $null) echo -a 10Sop On:14 %schn
  if (%ochn != $null) echo -a 10Op On:14 %ochn
  if (%hchn != $null) echo -a 10Hop On:14 %hchn
  if (%vchn != $null) echo -a 10Voiced On:14 %vchn
  if (%rchn != $null) echo -a 10On:14 %rchn
  echo -a 10=================[14 End Channels 10]=================
  return
}
raw 317:*: {
  echo -a 10Signed on at:14 $asctime($4,dddd mm/dd/yyyy HH:nn:sstt) 
  echo -a 10Time Idle:14 $duration($3) 
  echo -a 10Online:14 $duration($calc($ctime - $4)) 
  return
}
raw 335:*: { 
  echo -a 10Bot:14 Yes.  
  return
}

raw 318:*: { 
  echo -a 10=================[ 14End of Whois10 ]=================  
  return
}