Advertisement
nutbaby

mIRC WHOIS Information in @whois Window

Jun 1st, 2016 (edited)
191
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. *************************************************************************
  2. **************** mIRC WHOIS Information in @whois Window ****************
  3. ******************************* by: zcnut *******************************
  4. *************************************************************************
  5.  
  6. - Active On-Join Check in all joined channels
  7. - Displays Nick, Fullname, Ident@IP, Network Info, Connect time & Idle
  8. - Display the target's CLONE/s in the channel (current/real time)
  9. - Displays if target is logged in as a regular Cservice User or IRCop
  10. - Displays Joined & Common Channels, Client info and set away
  11. *************************************************************************
  12. Paste on your mIRC remote and save.
  13. *************************************************************************
  14.  
  15. ON !*:JOIN:#: { inc -u5 %check.floodpro 1 | whois $nick $nick }
  16. if (%check.floodpro == 5) { /.disable #whoisonjoin | .timer 1 60 /.enable #whoisonjoin }
  17.  
  18. menu nicklist {
  19.   — $1  —:whois $$1 $$1
  20. }
  21. raw 311:*:{
  22.   haltdef
  23.   window @whois
  24.   echo @whois $timestamp 5•---------------• 14[Begin Whois Info:8 $2 $+ 14] 5•---------------•
  25.   echo @whois $timestamp 14|---› 14Nick:1 $2
  26.   echo @whois $timestamp 14|---› 14FullName:1 $6-
  27.   echo @whois $timestamp 14|---› 14Ident@IP:1 $3 $+ 14 $+ @ $+ 01 $+ $4
  28.   var %clone = $kanalclone($2)
  29.   if (%clone == $null)   echo @whois $timestamp 14|---› 14Clones:1 (No Clone)
  30.   else   echo @whois $timestamp 14|---› 14Clone:1 ( $+ $numtok(%clone,44) $+ ) user 04/01 %clone
  31.   haltdef
  32. }
  33. raw 313:*: {
  34.   haltdef
  35.   window @whois
  36.   echo @whois $timestamp 14|---› 14Network Info:1 $3 $4 $5 $6 $7 $8 $9
  37. }
  38. raw 314:*:{
  39.   haltdef
  40.   window @whois
  41.   echo @whois $timestamp 14|---› 9•---------------•
  42.   echo @whois $timestamp 14|---› 14Nick:7 $2
  43.   echo @whois $timestamp 14|---› 14FullName:7 $6-
  44.   echo @whois $timestamp 14|---› 14Ident@Ip:7 $3 $+ 14 $+ @ $+ 01 $+ $4
  45.   var %clone = $kanalclone($2)
  46.   if (%clone == $null)   echo @whois $timestamp 14|---› 14Clones:5 (No Clone)
  47.   else   echo @whois $timestamp 14|---› 14Clone:1 ( $+ $numtok(%clone,44) $+ ) user 04/01 %clone
  48.   haltdef
  49. }
  50. raw 317:*:{
  51.   haltdef
  52.   window @whois
  53.   echo @whois $timestamp 14|---› 14Connect Time:1 $asctime($4) 04/1 $duration($calc($ctime - $4))
  54.   echo @whois $timestamp 14|---› 14Idle:1  $duration($3)
  55.  
  56. }
  57. raw 319:*:{
  58.   haltdef
  59.   window @whois
  60.   echo @whois $timestamp 14|---› 14Joined Channels:11 $3-
  61.   echo @whois $timestamp 14|---› 14Common Channels:10 $ortak_k($2) 04/01 Total:04 $comchan($2,0) 01Chan(s)
  62.  
  63. }
  64. raw 338:*:{
  65.   haltdef
  66.   window @whois
  67.   echo @whois $timestamp 14|---› 14Real Ip:01 $4 $5 $6
  68.  
  69. }
  70. raw 320:*:{
  71.   haltdef
  72.   window @whois
  73.   echo @whois $timestamp 14|---› 14Swhois:1 $2-
  74.  
  75. }
  76. raw 330:*: echo @whois $timestamp 14|---› 14CService Login:1 $2  $4 $5 $6 $7 $3 | halt
  77. raw 378:*:{
  78.   haltdef
  79.   window @whois
  80.   echo @whois $timestamp 14|---› 14Real Ip:01 $3 $4 $5 $6 $7
  81.  
  82. }
  83. raw 379:*:{
  84.   haltdef
  85.   window @whois
  86.   echo @whois $timestamp 14|---› 14Modes:01 $6
  87. }
  88. raw 671:*:{
  89.   haltdef
  90.   window @whois
  91.   echo @whois $timestamp 14|---› 14Connection:1 $3-
  92. }
  93. raw 276:*:{
  94.   haltdef
  95.   window @whois
  96.   echo @whois $timestamp 14|---› 14Client :1 $3 $4 $5 $6 $7
  97. }
  98. raw 327:* {
  99.   window @whois
  100.   echo @whois $timestamp 14|---› 14Client Info:1 Java User
  101.   halt
  102. }
  103. raw 301:*: {
  104.   haltdef
  105.   window @whois
  106.   echo @whois $timestamp 14|---› 14Away:1 ( $+ $3- $+ )
  107. }
  108. raw 310:*: {
  109.   haltdef
  110.   window @whois
  111.   echo @whois $timestamp 14|---› 14Ircop:1 $3 $4 $5 $6  
  112.  
  113. }
  114. raw 335:*: {
  115.   echo @whois $timestamp 14|---›  14Bot:1 Yes (+B).  
  116.   halt
  117. }
  118. alias kanalclone {
  119.   if ($ial($address($1,2),0) == 1) return
  120.   var %nickler = 0 | var %clone = $1
  121.   while (%nickler < $ial($address($1,2),0)) { inc %nickler | var %clone = $addtok(%clone,$ial($address($1,2),%nickler).nick, 44) }
  122.   return %clone
  123.  
  124. }
  125. raw 318:*:{
  126.   haltdef
  127.   window @whois
  128.   .timer -h 1 200 echo @whois $timestamp 5•---------------• 14[End of Whois Info:8 $2 $+ 14] 5•---------------•
  129. }
  130.  
  131. alias ortak_k {
  132.   if ($server == $null) {   echo @whois $timestamp 14|---› 14No such server. }
  133.   elseif ($chan($me) == 0) {   echo @whois $timestamp 14|---› 14No such channel. }
  134.   elseif (!$1) {   echo @whois $timestamp 14|---› 14No such nick. }
  135.   elseif ($comchan($1,0) == 0) {   echo @whois $timestamp 14|---› 14No such nick/channel. }
  136.   else {
  137.     var %oid 1
  138.     set %orka $comchan($1,0)
  139.     unset %knms
  140.     while (%oid <= %orka) {
  141.       set %knms $comchan($1,%oid) $+ $chr(32) $+ %knms
  142.       inc %oid
  143.     }
  144.     return %knms
  145.   }
  146. }
  147.  
Advertisement
RAW Paste Data Copied
Advertisement