API tools faq
paste
Guest User

Untitled

a guest
Oct 21st, 2017
65
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 8.20 KB | None | 0 0
raw download clone embed print report
  1. ;-;-;-;-;-;-;-;-;-;-;-;-;-;-;-;
  2. IRC bY OFFICE JUNKO
  3. ;-;-;-;-;-;-;-;-;-;-;-;-;-;-;-;
  4.  
  5.  
  6. menu Nicklist {
  7. -
  8. User Access
  9. .Aop
  10. ..Enable: set %aop1 on
  11. ..Disable: unset %aop1
  12. .add nick
  13. .. $+ $$1 $+ (q): writeini localaop.ini # $address($1,1) $1 Quick add ( $+ $date $+ )
  14. .. $+ $$1 $+ (o): writeini localo.ini # $address($1,1) $1 Quick add ( $+ $date $+ )
  15. .. $+ $$1 $+ (gq): writeini globalaop.ini globalaop.ini Aop $address($1,1) $1 Quick add ( $+ $date $+ )
  16. .. $+ $$1 $+ (go): writeini globalo.ini Aop $address($1,1) $1 Quick add ( $+ $date $+ )
  17. .Local
  18. ..Local q
  19. ...Add local q: /set %reason $$?="please enter a reason for adding $$1 to Local q aop" | writeini localaop.ini # $address($1,1) $1 %reason
  20. ...Remove Local q:remini localaop.ini # $address($1,1)
  21. ..Local o
  22. ...Add Local o:/set %reason5 $$?="please enter a reason for adding $$1 to Local o" | writeini localo.ini # $address($1,1) $1 %reason5
  23. ...Remove Local o:remini localo.ini # $address($1,1)
  24. .Global
  25. ..Glocal q
  26. ...Add Global q:/set %reason3 $$?="please enter a reason for adding $$1 to Global q aop" | writeini globalaop.ini Aop $address($1,1) $1 %reason3
  27. ...Remove Global q:remini globalaop.ini Aop $address($1,1)
  28. ..Global o
  29. ...Add Global o:/set %reason6 $$?="please enter a reason for adding $$1 to global o" | writeini globalo.ini Aop $address($1,1) $1 %reason6
  30. ...Remove Global o:remini globalo.ini # $address($1,1)
  31. .Aop Settings
  32. ..Local halt + unhalt
  33. ...Halt Localq:writeini localaophalt.ini chans # halted | privmsg # localaop.ini halted for: #
  34. ...unHalt Localq:remini -c localaophalt.ini chans # halted | msg # localaophalt.ini Un halted for: #
  35. ...Halt Local o:writeini localohalt.ini chans # halted | privmsg # localo.ini halted for: #
  36. ...unHalt Local o:remini -c localohalt.ini chans # halted | msg # localohalt.ini Un halted for: #
  37. ..Global Halt + unhalt
  38. ...Halt Global q:writeini globalaophalt.ini chans # halted | privmsg # globalaop.ini halted for: #
  39. ...unHalt Global q:remini -c globalaophalt.ini chans # halted | msg # globalaophalt.ini Un halted for: #
  40. ...Halt Global o:writeini globalohalt.ini chans # halted | privmsg # globalo.ini halted for: #
  41. ...unHalt Global o:remini -c globalohalt.ini chans # halted | msg # globalohalt.ini Un halted for: #
  42. .Aop Scans
  43. ..Scan (msg):aOPscan1 $chan
  44. ..Scan (op):aOPscan $chan
  45. .Aop Mass Add:aopmassa $chan
  46. }
  47. menu channel {
  48. -
  49. Access Control
  50. .Aop Scans
  51. ..Scan (msg):aOPscan1 $chan
  52. ..Scan (op):aOPscan $chan
  53. .Aop Mass Add:aopmassa $chan
  54. }
  55.  
  56. on *:JOIN:#:{
  57. if (%aop1 != on) halt
  58. if ($readini(localaophalt.ini,chans,#) == halted) { halt }
  59. var %localaop = $readini(localaop.ini,#,$address($nick,1))
  60. if ($readini(localaop.ini,#,$address($nick,1)) != $null) && ($me isowner #) {
  61. msg # Local AOP q: $nick " $chan " reason added: $gettok(%localaop,2-,32)
  62. mode # +q $nick
  63. }
  64. if ($readini(localohalt.ini,chans,#) == halted) { halt }
  65. var %localo = $readini(localo.ini,#,$address($nick,1))
  66. if ($readini(localo.ini,#,$address($nick,1)) != $null) && ($me isop #) {
  67. msg # Local Aop o: $nick " $chan " reason added: $gettok(%localo,2-,32)
  68. mode # +o $nick
  69. }
  70. if ($readini(globalaophalt.ini,chans,#) == halted) { halt }
  71. var %globalaop = $readini(globalaop.ini,Aop,$address($nick,1))
  72. if ($readini(globalaop.ini,Aop,$address($nick,1)) != $null) && ($me isowner #) {
  73. msg # 1,41s1o1c1king 1oPERATION:1,54:1G4,1q4:1 $nick 4"1 $chan 4"1 rEASON aDDED4:1 $gettok(%globalaop,2-,32)
  74. mode # +q $nick
  75. }
  76. if ($readini(globalohalt.ini,chans,#) == halted) { halt }
  77. var %globalo = $readini(globalo.ini,Aop,$address($nick,1))
  78. if ($readini(globalo.ini,#,$address($nick,1)) != $null) && ($me isop #) {
  79. msg # Global Aop o: $nick " $chan " reason added: $gettok(%globalo,2-,32)
  80. mode # +o $nick
  81. }
  82. }
  83. alias aOPscan {
  84. var %ticks = $ticks
  85. var %a = 1
  86. msg $1 Aop: Scanning for users and op'n them
  87. while %a <= $nick($1,0) {
  88. if ($readini(globalaOP.ini,aOP,$address($nick($1,%a),1)) != $null) && ($me isop $chan) { mode $1 $iif($me isowner $1,+q,+o) $nick($1,%a) }
  89. elseif ($readini(globalo.ini,aop,$address($nick($1,%a),1)) != $null) && ($me isop $chan) { mode $1 +o $nick($1,%a) }
  90. elseif ($readini(localaop.ini,$1,$address($nick($1,%a),1)) != $null) && ($me isop $chan) { mode $1 $iif($me isowner $1,+q,+o) $nick($1,%a) }
  91. elseif ($readini(localo.ini,$1,$address($nick($1,%a),1)) != $null) && ($me isop $chan) { mode $1 +o $nick($1,%a) }
  92. inc %a 1
  93. }
  94. msg $1 Aop: Scan Complete'd in $calc(($ticks - %ticks) / 1000) sec(s)
  95. }
  96. alias aOPscan1 {
  97. var %ticks = $ticks
  98. var %a = 1
  99. var %b = 0
  100. msg # Aop: Scanning for users
  101. var %globalq = 0
  102. var %globalo = 0
  103. var %localq = 0
  104. var %localo = 0
  105. while %a <= $nick($1,0) {
  106. if ($readini(globalaOP.ini,aop,$address($nick($1,%a),1)) != $null) { msg # Global Aop q: $nick($1,%a) reason added: $gettok($readini(globalaop.ini,aOP,$address($nick($1,%a),1)),2-,32) | inc %globalq 1 | inc %b 1 }
  107. elseif ($readini(globalo.ini,aop,$address($nick($1,%a),1)) != $null) { msg # Global Aop o: $nick($1,%a) reason added: $gettok($readini(globalo.ini,aOP,$address($nick($1,%a),1)),2-,32) | inc %globalo 1 | inc %b 1 }
  108. elseif ($readini(localaop.ini,$1,$address($nick($1,%a),1)) != $null) { msg # Local Aop q: $nick($1,%a) reason added: $gettok($readini(localaop.ini,$1,$address($nick($1,%a),1)),2-,32) | inc %localq 1 | inc %b 1 }
  109. elseif ($readini(localo.ini,$1,$address($nick($1,%a),1)) != $null) { msg # Local Aop o: $nick($1,%a) reason added: $gettok($readini(localo.ini,$1,$address($nick($1,%a),1)),2-,32) | inc %localo 1 | inc %b 1 }
  110. inc %a 1
  111. }
  112. msg # Aop: Scan Complete'd in $calc(($ticks - %ticks) / 1000) sec(s) : %b user(s) found : GQ = $+(%globalq,$chr(47),$iif($ini(globalaop.ini,aop,0),$ini(globalaop.ini,aop,0),0)) : GO = $+(%globalo,$chr(47),$iif($ini(globalo.ini,aop,0),$ini(globalo.ini,aop,0),0)) : LQ = $+(%localq,$chr(47),$iif($ini(localaop.ini,$1,0),$ini(localaop.ini,$1,0),0)) : LO = $+(%localo,$chr(47),$iif($ini(localo.ini,$1,0),$ini(localo.ini,$1,0),0))
  113. }
  114. alias aOPmassa {
  115. var %ticks = $ticks
  116. msg $1 Aop: Mass adding users to the corresponding branch of aop
  117. var %a = 1
  118. var %b = 0
  119. var %c = 0
  120. while %a <= $nick($1,0) {
  121. if ($readini(globalaOP.ini,aop,$address($nick($1,%a),1)) = $null) && ($readini(localaop.ini,$1,$address($nick($1,%a),1)) == $null) && ($nick($1,%a) isowner $1) { writeini localaop.ini $1 $address($nick($1,%a),1) $nick($1,%a) mass add ( $+ $date $+ ) | inc %a 1 | inc %b 1 }
  122. elseif ($readini(globalo.ini,aop,$address($nick($1,%a),1)) = $null) && ($readini(localo.ini,$1,$address($nick($1,%a),1)) == $null) && ($nick($1,%a) isop $1) { writeini localo.ini $1 $address($nick($1,%a),1) $nick($1,%a) mass add ( $+ $date $+ ) | inc %a 1 | inc %c 1 }
  123. else { inc %a 1 }
  124. }
  125. msg $1 Aop: Mass add complete'd in $calc(($ticks - %ticks) / 1000) sec(s) : %b user(s) added to localq : %c user(s) added to localo
  126. }
  127. on *:TEXT:*:#:{
  128. if ($readini(globalaop.ini,aop,$address)) || ($readini(localaoP.ini,aop,$address)) {
  129. if ($1 == .q) && ($ini(globalaop.ini,aop,$address($nick,1))) { mode $active +q $nick }
  130. if ($1 == -q) && ($ini(globalaop.ini,aop,$address($nick,1))) { mode $active -q $nick }
  131. if ($1 == .o) && ($ini(globalaop.inii,aop,$address($nick,1))) { mode $active +o $nick }
  132. if ($1 == -o) && ($ini(globalaop.ini,aop,$address($nick,1))) { mode $active -o $nick }
  133. if ($1 == .q) && ($ini(localaop.ini, $+ $chan ,$address($nick,1))) { mode $active +q $nick }
  134. if ($1 == -q) && ($ini(localaop.ini, $+ $chan ,$address($nick,1))) { mode $active -q $nick }
  135. if ($1 == .o) && ($ini(localaop.ini, $+ $chan ,$address($nick,1))) { mode $active +o $nick }
  136. if ($1 == -o) && ($ini(localaop.ini, $+ $chan ,$address($nick,1))) { mode $active -o $nick }
  137. if ($1 == .o) && ($ini(globalo,aop ,$address($nick,1))) { mode $active +o $nick }
  138. if ($1 == -o) && ($ini(globalo,aop ,$address($nick,1))) { mode $active -o $nick }
  139. if ($1 == .o) && ($ini(localo, $+ $chan ,$address($nick,1))) { mode $active +o $nick }
  140. if ($1 == -o) && ($ini(localo, $+ $chan ,$address($nick,1))) { mode $active -o $nick }
  141. }
  142. }
  143.  
  144.  
  145. bY;CHARMY JUN custom version 2009
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!