Here's a simple whois script I've made since I got bored of the looks of the default whois

Updates:
2010-07-25:
* Removed the common channels by r0t3n and added another common channels by r0t3n.
The common channels are now in the same line as channels, bolded.
2010-07-02:
* Fixed the "address" part where some of the nicks addresses wouldnt show.
* Added "counter" at the end of channels list.
* Added common channels. (Under the "channels", it'll show "Common chans") Thanks to r0t3n for the alias.
- Code: Select all
RAW 311:*:{
echo -a
echo -a 14+ 15whois: $2 14+
echo -a ¤ Realname: $mid($gettok($2-,2,42),2,99)
echo -a ¤ Address: $3 $+ @ $+ $4
halt
}
raw 319:*: {
haltdef
var %x = 1
var %l = $null
var %y = $null
while (%x <= $numtok($3-,32)) {
var %y = $gettok($3-,%x,32)
if (%y == $null) { break }
if ($me ison $mid(%y,$pos(%y,$chr(35),1),$mid(%y,$chr(35),0))) {
var %l = $instok(%l, $+ $v2 $+ ,0,32)
}
else {
var %l = $instok(%l,$v2,0,32)
}
inc %x 1
}
echo -a ¤ Channels: %l 4 $+ $numtok($3-,32)
}
RAW 313:*:{
echo -a ¤ IRC operator
halt
}
RAW 312:*:{
echo -a ¤ Server: $3 4 $+ $4-
halt
}
RAW 330:*:{
echo -a ¤ Auth: $3
halt
}
RAW 301:*:{
echo -a ¤ Away: $3-
halt
}
RAW 317:*:{
echo -a ¤ Idle: $duration($3) $+ , Signed on: $asctime($4) 4 $+ $duration($calc($ctime - $4 )) ago
halt
}
RAW 318:*:{
echo -a 14+ 15/whois: $remove($time,$right($time,3)) 14+
echo -a
halt
}
alias whois { whois $$1 $$1 }