Simple whois

Paste Your small code(s) here, ex. small aliases, identifiers

Simple whois

Postby zNigel- » Sat Jun 26, 2010 8:15 pm

Hey.

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 }
zNigel-
 

Return to Mirc Scripting Snippets

Who is online

Users browsing this forum: No registered users and 1 guest

cron