SHARE
TWEET

Whois Mods

Seb May 7th, 2011 (edited) 447 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ## Whois mods by Sebastien (xplo)
  2. ## $comchan alias from someone in a help chan somewhere.
  3. ## If you touch at something below this line, you WILL fuckup something.
  4. ##----------------------------------------------------------------------
  5.  
  6. alias w { .enable #whois | whois $1 $1 }
  7. #whois off
  8. raw 311:*: {
  9.   echo $color(notice) -ai2 14[7###14] $iif($me == $2,Looking at yourself?,/whois7 $2)
  10.   echo -ai2 2Nick:14 $2
  11.   echo -ai2 2Address:14 $3 $+ @ $+ $4
  12.   echo -ai2 2FullName:14 $6-  
  13.   halt
  14. }
  15. raw 379:*:{ echo -ai2 2Is using modes:14 $6- | halt }
  16. raw 378:*:{ echo -ai2 2Is Connecting from:14 $6- | halt }
  17. raw 319:*: {
  18.   echo -ai2 2Channels:4 $sorttok($3-,32,c)
  19.   $iif($2 == $me,halt,echo -ai2 2Common Channels:11 $AdoComChan($2))
  20.   halt
  21. }
  22. raw 320:*:{ echo -ai2 2Custom Title:14 $3- | halt }
  23. raw 312:*: {
  24.   echo -ai2 2Server:14 $3
  25.   echo -ai2 2Description:14 $4-
  26.   halt
  27. }
  28. raw 330:*:{ echo -ai2 2Username: 4 $+ $3 $+  | halt }
  29. raw 338:*:{ echo -ai2 2Host:14 $3 | halt }
  30. raw 307:*:{ echo -ai2 3 $+ $2 $3- | halt }
  31. raw 301:*:{ echo -ai2 2 $+ $2 is away:7 $3- | halt }
  32. raw 313:*:{ echo -ai2 2Status:14 $5- | halt }
  33. raw 310:*:{ echo -ai2 2 $+ $2 14 $+ $3- | halt }
  34. raw 320:*:{ echo -ai2 2 $+ $2 14 Is using a Secure Connection (4SSL14) | halt }
  35. raw 335:*:{ echo -ai2 2 $+ $2 14 Is a Bot on $network (4BOT14) | halt }
  36. raw 671:*:{ echo -ai2 2 $+ $2 14 Is using a Secure Connection (4SSL14) | halt }
  37. raw 402:*:{ echo -ai2 4Fail:14 $2 4Does not exist | halt }
  38. raw 317:*:{
  39.   echo -a 2Idle time:4 $duration($3)
  40.   if ($4 isnum) echo -ai2 2Online time:14 $asctime($4)
  41.   halt
  42. }
  43. raw 318:*:{
  44.   echo $color(notice) -ai2 14[7###14] End of Whois for7 $2  
  45.   linesep -a
  46.   .disable #whois
  47.   halt
  48. }
  49. alias AdoComChan {
  50.   var %AdoComCh = 1
  51.   while (%AdoComCh <= $comchan($1,0)) {
  52.     var %AdoComLi = %AdoComLi $comchan($1,%AdoComCh)
  53.     inc %AdoComCh
  54.   }
  55.   if (%AdoComLi == $null) { return None }
  56.   else { return %AdoComLi }
  57. }
  58. #whois end
  59.  
  60. #EOF
RAW Paste Data
Pastebin PRO Autumn Special!
Get 40% OFF on Pastebin PRO accounts!
Top