API tools faq
paste
Guest User

Untitled

a guest
May 22nd, 2018
95
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 12.63 KB | None | 0 0
raw download clone embed print report
  1. ON *:JOIN:#:{
  2.   if ($chan == #chanops) {
  3.     if ($nick == $me) {  
  4.       if (!$hget(as)) { hmake as 2 | if ($exists(as.hsh)) { hload as as.hsh } }    
  5.       if ($hget(as,chancount)) { //hadd as chancount 0 }
  6.       if ($hget(as,chans)) { //hdel as chans }
  7.       if (!$hget(pnp)) {  
  8.         //hadd as chops $+ $chan active    
  9.         .timer 1 1 //.who #chanops
  10.       }  
  11.     }    
  12.     else {
  13.       if ((bots isin $address($nick,2)) && (!$hget(pnp))) {
  14.         //hadd -u6 as chops $+ $nick active
  15.         //.who $nick      
  16.       }  
  17.     }  
  18.   }
  19. }
  20.  
  21. raw 352:*:{
  22.   if ($hget(as,chops $+ $2) == active) { haltdef }
  23.   if ($hget(as,chops $+ $6) == active) { haltdef }
  24. }
  25. raw 315:*:{
  26.   if ($hget(as,chops $+ $2) == active) { haltdef | hdel as chops $+ $2 }
  27.   if ($hget(as,chops $+ $6) == active) { haltdef | hdel as chops $+ $6 }
  28. }
  29.  
  30. ON *:OP:#:{
  31.   if ($hget(as,pstats) == On) {
  32.     if (!$istok($hget(as,ignore),#,32)) {
  33.       if (($opnick == $me) && ($chan != #chanops) && ($chan != #rmmbotlot) && (ophelp !isin $chan) && ($me ison #chanops)) {
  34.         if ($nick == Chanserv) {
  35.           if ($ialchan(*!*@bots.chanops.org,#,0) >= 1) {
  36.             if (*botop* iswm $address($me,5)) { if ($me != $gettok($address($me,2),2,46)) { //.msg chanserv deprotect $chan $me | //.msg chanserv deop $chan $me | halt } }
  37.             if ($hget(as,chancount)) { //hadd as chancount $calc( $hget(as,chancount) + 1 ) }              
  38.             if (!$hget(as,chancount)) { //hadd as chancount 1 }
  39.             //hadd as chans $iif($istok($hget(as,chans),#,32),$remtok($hget(as,chans),#,32),$addtok($hget(as,chans),#,32))
  40.             opcheck
  41.             halt
  42.           }
  43.         }
  44.         if (($nick != ChanServ) && ($nick ison #chanops)) {
  45.           if (*botop* iswm $address($me,5)) { if ($me != $gettok($address($me,2),2,46)) { //.msg chanserv deprotect $chan $me | //.msg chanserv deop $chan $me | halt } }        
  46.           if ($hget(as,chancount)) { //hadd as chancount $calc( $hget(as,chancount) + 1 ) }          
  47.           if (!$hget(as,chancount)) { //hadd as chancount 1 }
  48.           //hadd as chans $iif($istok($hget(as,chans),#,32),$remtok($hget(as,chans),#,32),$addtok($hget(as,chans),#,32))
  49.           opcheck
  50.         }  
  51.         if (($nick != ChanServ) && ($nick !ison #chanops)) {    
  52.           if ($ialchan(*!*@bots.chanops.org,#,0) >= 1) {  
  53.             if (*botop* iswm $address($me,5)) { if ($me != $gettok($address($me,2),2,46)) { //.msg chanserv deprotect $chan $me | //.msg chanserv deop $chan $me | halt } }      
  54.             //hadd as chans $iif($istok($hget(as,chans),#,32),$remtok($hget(as,chans),#,32),$addtok($hget(as,chans),#,32))
  55.             if ($hget(as,chancount)) { //hadd as chancount $calc( $hget(as,chancount) + 1 ) }          
  56.             if (!$hget(as,chancount)) { //hadd as chancount 1 }
  57.             echo #chanops 4,1 $+ $timestamp [AutoStatus] >> Warning, You Were OP'd In $chan But They Are No Bot Matchs In #Chanops      
  58.             opcheck      
  59.           }  
  60.         }
  61.         if ($nick($chan,0,h,o) == 1) { //hadd as $nick($chan,1,h,o) $iif($istok($hget(as,$hnick),#,32),$remtok($hget(as,$hnick),#,32),$addtok($hget(as,$hnick),#,32)) }  
  62.       }
  63.     }
  64.   }
  65. }
  66.  
  67. ON *:HELP:#:{
  68.   if ($hget(as,pstats) == On) {
  69.     if ($chan != #chanops) {  
  70.       if (!$istok($hget(as,ignore),#,32)) {  
  71.         if (($nick == $me) && ($hnick ison #chanops) && ($hnick != $me)) {  
  72.           //hadd as $hnick $iif($istok($hget(as,$hnick),#,32),$remtok($hget(as,$hnick),#,32),$addtok($hget(as,$hnick),#,32))        
  73.           if ($hnick ishop #chanops) { //.msg Chanserv OP #chanops $hnick }
  74.           if ($hnick !ishop #chanops) { //.msg Chanserv halfop #chanops $hnick }
  75.         }
  76.         if (($hnick == $me) && ($me ison #chanops)) {
  77.           if ($hget(as,chancount)) { //hadd as chancount $calc( $hget(as,chancount) + 1 ) }          
  78.           if (!$hget(as,chancount)) { //hadd as chancount 1 }
  79.           .timer 1 3 hpmodechk
  80.         }
  81.       }
  82.     }
  83.   }
  84. }
  85. alias -l hpmodechk {
  86.   if ($hget(as,chancount) == 0) {
  87.     if ($me ishop #chanops) { //cs dehalfop #chanops $me }
  88.     if ($me isop #chanops) { //cs deop #chanops $me }
  89.   }
  90.   if ($hget(as,chancount) == 1) {
  91.     if (($me isop #chanops) && ($me ishop #chanops)) { //cs deop #chanops $me | halt }  
  92.     if (($me !isop #chanops) && ($me !ishop #chanops)) { //cs halfop #chanops $me | halt }
  93.   }
  94.   if ($hget(as,chancount) == 2) {
  95.     if (($me !isop #chanops) && ($me ishop #chanops)) { //cs op #chanops $me | halt }
  96.   }
  97. }
  98. ON *:DEHELP:#:{
  99.   if ($hget(as,pstats) == On) {
  100.     if (!$istok($hget(as,ignore),#,32)) {
  101.       if (($nick == $me) && ($hnick ison #chanops) && ($hnick != $me)) {
  102.         //hadd as $hnick $iif($istok($hget(as,$hnick),#,32),$remtok($hget(as,$hnick),#,32))      
  103.         if ($hnick isop #chanops) { //.msg Chanserv DEOP #chanops $hnick }
  104.         if ($hnick ishop #chanops) { //.msg Chanserv DEhalfop #chanops $hnick }
  105.       }
  106.       if (($hnick == $me) && ($me ison #chanops)) {
  107.         if ($hget(as,chancount)) { //hadd as chancount $calc( $hget(as,chancount) - 1 ) }          
  108.         .timer 1 3 hpmodechk
  109.       }
  110.     }
  111.   }
  112. }
  113.  
  114. ON *:DEOP:#:{
  115.   if ($hget(as,pstats) == On) {
  116.     if (!$istok($hget(as,ignore),#,32)) {
  117.       if ($opnick == $me) {
  118.         if ($istok($hget(as,chans),#,32) == $true) {
  119.           //hadd as chans $iif($istok($hget(as,chans),#,32),$remtok($hget(as,chans),#,32))
  120.           if ($version >= 6.17) { hdec as chancount }
  121.           if ($version <= 6.16) { if ($hget(as,chancount)) { //hadd as chancount $calc( $hget(as,chancount) - 1 ) } }
  122.           opcheck
  123.         }
  124.       }
  125.     }
  126.   }
  127. }
  128.  
  129. ON *:NICK:{
  130.   if ($timer($nick)) { .timer $+ $nick Off }
  131.   if ($hget(as,$nick)) {
  132.     //hadd as $newnick $hget(as,$nick)
  133.     .timer 1 1 //hdel as $nick
  134.   }
  135. }
  136. ON *:QUIT:{
  137.   if ($timer($nick)) { .timer $+ $nick Off }
  138.   if ($hget(as,$nick)) { //hdel as $nick }
  139. }
  140. ON *:KICK:{
  141.   if ($timer($knick)) { .timer $+ $knick off }
  142.   if ($hget(as,$knick)) {
  143.     //hadd as $knick $iif($istok($hget(as,$knick),#,32),$remtok($hget(as,$knick),#,32))
  144.     if ($hget(as,$knick) isop #chanops) { //.msg chanserv deop #chanops $knick | halt }
  145.     if ($hget(as,$knick) ishop #chanops) { //.msg chanserv dehalfop #chanops $knick | halt }
  146.   }  
  147. }
  148.  
  149. ON *:PART:#:{
  150.   if ($hget(as,pstats) == On) {
  151.     if (!$istok($hget(as,ignore),#,32)) {
  152.       if (($hget(as,$nick)) && ($istok($hget(as,$nick),#,32) == $true)) {
  153.         if ($hget(as,$nick) isop #chanops) { //.msg chanserv deop #chanops $nick | halt }
  154.         if ($hget(as,$nick) ishop #chanops) { //.msg chanserv dehalfop #chanops $nick | halt }
  155.         //hadd as $nick $iif($istok($hget(as,$nick),#,32),$remtok($hget(as,$nick),#,32))    
  156.       }
  157.       if ($timer($nick)) { .timer $+ $nick Off }  
  158.       if ($nick == $me) {
  159.         if ($istok($hget(as,chans),#,32) == $true) {
  160.           //hadd as chans $iif($istok($hget(as,chans),#,32),$remtok($hget(as,chans),#,32))
  161.           if ($version >= 6.17) { hdec as chancount }
  162.           if ($version <= 6.16) { if ($hget(as,chancount)) { //hadd as chancount $calc( $hget(as,chancount) - 1 ) } }
  163.           opcheck
  164.         }
  165.       }
  166.     }
  167.   }
  168. }
  169.  
  170. alias -l opcheck {
  171.   if ($hget(as,pstats) == On) {
  172.     if ($hget(as,chancount) == 0) {
  173.       //.msg Chanserv dehalfop #chanops $me
  174.       //hdel as chancount    
  175.       if ((*botop* iswm $address($me,2)) && ($me !isop #chanops)) { //.cs op #chanops $me | //.cs founder #chanops $me }    
  176.     }
  177.     if ($hget(as,chancount) == 1) {  
  178.       if (($me !isop #german_ophelp) && ($me ison #german_ophelp)) {
  179.         //.msg chanserv op #german_ophelp $me
  180.       }
  181.       if ($me ishop #chanops) {
  182.         //.msg Chanserv deop  #Chanops $me
  183.       }
  184.       if ($me !ishop #chanops) {
  185.         //.msg chanserv halfop #chanops $me
  186.         if ((*botop* iswm $address($me,2)) && ($me isop #chanops)) { //.cs deop #chanops $me | //cs defounder #chanops $me }      
  187.       }
  188.     }
  189.     if ($hget(as,chancount) == 2) {
  190.       if (($me !isin #german_ophelp) && ($me !isin #ophelp)) {
  191.         if ($version >= 6.17) { echo -e 4,1 $+ $timestamp [AutoStatus] >> You are Opp'd In two rooms. Please join either #german_ophelp Or #Ophelp | echo -e 4,1 $+ $timestamp [AutoStatus] >> Du bist in zwei Channeln geoppt. Bitte joine entweder #german_ophelp oder #ophelp. }
  192.         if ($version <= 6.16) { echo #chanops 4,1 $+ $timestamp [AutoStatus] >> You are Opp'd In two rooms. Please join either #german_ophelp Or #Ophelp | echo #chanops 4,1 $+ $timestamp [AutoStatus] >> Du bist in zwei Channeln geoppt. Bitte joine entweder #german_ophelp oder #ophelp. }
  193.       }
  194.       if (($me !isop #german_ophelp) && ($me ison #german_ophelp)) {
  195.         //.msg chanserv op #german_ophelp $me
  196.       }
  197.       if ($me isop #chanops) {
  198.         //.msg chanserv deprotect #chanops $me
  199.       }
  200.       if (($me !isop #chanops) && ($me ison #chanops)) {
  201.         //.msg chanserv op #chanops $me
  202.       }
  203.     }
  204.     if ($hget(as,chancount) == 3) {
  205.       echo #chanops 6,1 $+ $timestamp [AutoStatus] >> You Are OP'd In 3 Channels.
  206.       //msg chanserv protect #chanops $me
  207.     }
  208.     if ($hget(as,chancount) >= 4) {
  209.       if ($version >= 6.17) { echo -e 4,1 $+ $timestamp [AutoStatus] >> Warning, You Are OP'd In ( $+ $hget(as,chancount) $+ ) Channels, Please Drop Some. }
  210.       if ($version <= 6.16) { echo #chanops 4,1 $+ $timestamp [AutoStatus] >> Warning, You Are OP'd In ( $+ $hget(as,chancount) $+ ) Channels, Please Drop Some. }
  211.     }
  212.   }  
  213. }
  214. alias asiggy { //hadd as ignore #arabians #arabic #Asia #Celestial_Chat #chinese #czsk #Egypt #Fear_of_Commitment #Fishing #Gays_In_German #Greece #Islam_chat #ICQ-Lebanon #israel #just_friends_german #lifestyles_in_german #Persian #Romance_in_German #russia #Science-Fiction #south_africa #Swedish #teens_german #turkey #vietnamese }
  215. ON *:UNLOAD:{
  216.   if ($hget(as,chans)) { hdel as chans }
  217.   if ($hget(as,chancount)) { hdel as chancount }
  218.   if (!$hget(as,ignore)) { asiggy }
  219.   if ($exists(as.hsh)) { hsave as as.hsh }
  220.   if (!$exists(as.hsh)) { hsave as as.hsh }
  221.   if ($hget(scab)) { hfree scab }
  222.   if ($hget(as)) { //hfree as }
  223.   unset %bkicknask | unset %kicknask | unset %warnask
  224. }
  225. ON *:EXIT:{
  226.   if ($exists(as.hsh)) { hsave as as.hsh }
  227.   if (!$exists(as.hsh)) { hsave as as.hsh }
  228.   if ($hget(scab)) { //hfree scab }
  229.   if ($hget(as)) { //hfree as }
  230. }
  231. alias -l ashshchk {
  232.   if ($hget(as,chancount)) { hdel as chancount }
  233.   if ($hget(as,chans)) { hdel as chans }
  234.   if (!$hget(as,ignore)) { asiggy }
  235.   if ($hget(as,ignore)) { //hdel as ignore | .timer 1 2 asiggy }
  236.   //hdel -w as *hnick
  237.   //hsave as as.hsh
  238. }
  239. ON *:LOAD:{
  240.   if (!$hget(as)) { hmake as 2 }
  241.   if ($exists(as.hsh)) { hload as as.hsh | .timer 1 2 ashshchk }
  242.   if (!$hget(scab)) { hmake scab 1 }
  243.   if (!$exists(as.hsh)) {
  244.     if (%rdbanchan) { //hadd as rdchans %rdbanchan | unset %rdbanchan }  
  245.     //hadd as arabic show | //hadd as dutch show | //hadd as english show | //hadd as french show | //hadd as german show | //hadd as hindi show | //hadd as italian show | //hadd as portuguese show | //hadd as spanish show | //hadd as russian show | //hadd as turkish show
  246.     //hadd as warnmsg Your actions are unsuitable for the channels rules. | //hadd as kickmsg Your actions are unsuitable for the channels rules. | //hadd as kickbmsg Your actions are unsuitable for the channels rules. | hadd as debug Off
  247.     asiggy
  248.     if (%desauto == Off) { //hadd as pstats Off | unset %desauto }
  249.     if (%desauto == On) { //hadd as pstats On | unset %desauto }  
  250.     //hsave as as.hsh
  251.   }  
  252. }
  253.  
  254. alias asreload { //hsave as as.hsh }  
  255.  
  256. ON *:CONNECT:{
  257.   if ($network == irc.icq.com) {
  258.     if (!$hget(scab)) { hmake scab 1 }
  259.     if ($hget(scab,exfl)) {
  260.       //partall    
  261.       .timerexfl 10 3 exfldo
  262.     }
  263.   }
  264. }
  265. alias -l exfldo {
  266.   if ($version >= 6.17) { hinc -u10 scab count }
  267.   if ($version <= 6.16) {
  268.     if ($hget(scab,count)) { //hadd -u10 scab count $calc( $hget(scab,count) + 1 ) }
  269.     if (!$hget(scab,count)) { //hadd -u10 scab count 1 }
  270.   }
  271.   if ($hget(scab,count) <= $gettok($hget(scab,chans),0,32)) { //join $gettok($hget(scab,chans),$hget(scab,count), 32) }
  272. }
  273. ON *:ERROR:*:{
  274.   if (excess flood isin $1-) {  
  275.     //hadd -u15 scab exfl active
  276.     if ($version >= 6.17) { hinc -u10 scab lcount }
  277.     if ($version <= 6.16) { if (!$hget(scab,lcount)) { //hadd -u10 scab lcount 1 } }
  278.     while ($hget(scab,lcount) <= $chan(0)) {
  279.       //hadd -u60 scab chans $hget(scab,chans) $chan($hget(scab,lcount))  
  280.       if ($version >= 6.17) { hinc -u10 scab lcount }
  281.       if ($version <= 6.16) { //hadd -u10 scab lcount $calc( $hget(scab,lcount) + 1 ) }
  282.       if ($hget(scab,lcount) > $chan(0)) { //partall | break | halt }
  283.     }
  284.   }
  285. }
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!