Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on May 24th, 2012  |  syntax: mIRC  |  size: 1.92 KB  |  hits: 28  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. menu Channel,Nicklist,Menubar,Status {
  2.   -
  3.   Real name Checker
  4.   .$iif($timer(.Recheck),$style(1)) Enable:.timer.Recheck $iif($timer(.Recheck),off,1 %RN.Delay GetName.Checker)
  5.   .-
  6.   .Set Real names:set %RN.Check $$input(Separated by semi-colon,e,Real name checker,%RN.Check)
  7.   .Exception?:var %ex = $$input(Separated by semi-colon,e,Exception list,%RN.Exception) | $iif(%ex != $null,set,unset) %RN.Exception %ex
  8.   .-
  9.   .Set Delay $+($chr(40),$iif(%RN.Delay != $null,every $v1 $+ s,Not set yet),$chr(41)):set %RN.Delay $$?="Enter a number from 1 to 60"
  10.   .-
  11.   .$iif(%RN.Wise == 1,$style(1)) Use Wise Method:set %RN.Wise $iif(%RN.Wise == 1,0,1) | unset %RN.Last
  12.   -
  13. }
  14.  
  15. on !@*:Join:#:{ GetName $nick }
  16.  
  17. alias GetName {
  18.   if ($1) && ($timer(.Recheck)) {
  19.     if (!$hget(GetName)) { hmake GetName }
  20.     if (!$hget(GetName,$1)) { hadd -m GetName $1 !@! }
  21.   }
  22. }
  23.  
  24. alias GetName.Checker {
  25.   if (%RN.Delay == $null) { set %RN.Delay 1 }
  26.   if (%RN.Wise == 1) && (%RN.Last != $null) goto Jump
  27.   var %x = 1
  28.   while ($hget(GetName,%x).item) {
  29.     var %item = $hget(GetName,%x).item
  30.     if ($hget(GetName,%item) == !@!) {
  31.       .enable #WhoisHalt
  32.       set %RN.Last -u60 %item
  33.       !whois %item %item
  34.       break
  35.     }
  36.     inc %x
  37.   }
  38.   :Jump
  39.   .timer.Recheck 1 %RN.Delay GetName.Checker
  40. }
  41.  
  42. alias TakeAction {
  43.   if ($1) {
  44.     var %x = $hget(GetName,$1)
  45.     if ($istok(%RN.Check,%x,59)) {
  46.       if ($istok(%RN.Exception,%x,59)) goto Jump
  47.       var %i = 1
  48.       while ($comchan($1,%i)) { ban -k $v1 $1 2 You're not welcome! | inc %i }
  49.       :Jump
  50.       hdel GetName $1
  51.       unset %RN.Last
  52.     }
  53.   }
  54. }
  55.  
  56. raw 311:*:{ haltdef | hadd -m GetName $2 $strip($6-) | TakeAction $2 }
  57. raw 401:*:{
  58.   haltdef
  59.   if ($hget(GetName,$2).item) { hdel GetName $2 }
  60. }
  61.  
  62. #WhoisHalt off
  63. raw *:*:{
  64.   if ($numeric == 318) { .disable #WhoisHalt }
  65.   if ($istok(311 307 319 317 313 330 338 379 378 310 318,$numeric,32)) haltdef
  66. }
  67. #WhoisHalt end
create a new version of this paste RAW Paste Data