API tools faq
paste
Advertisement
Al6r8b

Untitled

Al6r8b
Jul 30th, 2013
331
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 8.86 KB | None | 0 0
raw download clone embed print report
  1.  
  2. menu channel,menubar,nicklist {
  3. Ban Assist:dialog $iif($dialog(ban_assist),-v,-m ban_assist) ban_assist
  4. }
  5. dialog ban_assist {
  6. title "Ban Assist Dialog by Danneh"
  7. size -1 -1 203 130
  8. option dbu
  9. box "Nicknames:", 1, 3 3 66 108
  10. list 4, 6 10 59 97, size
  11. box "Options:", 5, 73 3 127 108
  12. combo 6, 101 14 95 50, size drop
  13. text "Ban Type:", 7, 76 15 25 8
  14. text "Example:", 8, 76 43 25 8
  15. text "", 9, 76 50 120 8
  16. text "Custom Kick message:", 10, 76 73 53 8, hide
  17. edit "", 11, 76 79 120 10, hide autohs
  18. button "Kick", 12, 77 94 37 12
  19. button "Kick/Ban", 13, 118 94 37 12
  20. button "Ok", 14, 50 115 37 12, ok
  21. button "Cancel", 15, 109 115 37 12, cancel
  22. text "Kick Message:", 16, 76 61 34 8
  23. combo 17, 110 60 86 50, size drop
  24. button "Ban Only", 18, 159 94 37 12
  25. combo 19, 110 29 86 50, size drop
  26. text "Ext Ban Type:", 20, 76 30 34 8
  27. menu "File", 2
  28. item "Close", 3, 2
  29. }
  30. on *:DIALOG:ban_assist:init:*: {
  31. if (!$ini(ircd.ini,$network,version)) { .version }
  32. if ($readini(ircd.ini,$network,version) == UnrealIRCd) { didtok $dname 19 124 Normal|~q:|~n:|~q: and ~n: }
  33. if ($readini(ircd.ini,$network,version) == InspIRCd) { didtok $dname 19 124 Normal|m:|n:|O:|m: and n: }
  34. if ($readini(ircd.ini,$network,version) == Unknown) { did -a $dname 19 Normal }
  35. didtok $dname 6 124 1|2|3|4|5
  36. didtok $dname 17 124 Spamming|Abusive Language|Caps|No PM Permission|Personal Attacks|Bad Attitude|Custom
  37. var %a = 1
  38. while (%a <= $nick($active,0)) {
  39. did -a $dname 4 $nick($active,%a)
  40. inc %a
  41. }
  42. }
  43. on *:DIALOG:ban_assist:menu:3: { dialog -x ban_assist }
  44. on *:DIALOG:ban_assist:sclick:4,6,12,13,17-19: {
  45. if (($did == 4) && ($did(6).sel)) { did -ra $dname 9 $address($did(ban_assist,4).seltext,$did(6).sel) }
  46. if ($did == 6) { did -ra $dname 9 $address($did(ban_assist,4).seltext,$did(6).sel) }
  47. if ($did == 12) {
  48. if ($did(17) != Custom) {
  49. did -h $dname 10,11
  50. if ($did(ban_assist,4).seltext == $null) { noop $input(Please select a nick to kick.,o) }
  51. else {
  52. if ($did(17) == Spamming) { kick $active $did(ban_assist,4).seltext Spamming is not tolerated here. }
  53. elseif ($did(17) == Abusive Language) { kick $active $did(ban_assist,4).seltext Please watch your language. We want everyone to feel welcome here. }
  54. elseif ($did(17) == Caps) { kick $active $did(ban_assist,4).seltext Talking in caps is considered yelling, annoying, and rude. Please turn them off. Thanks. }
  55. elseif ($did(17) == No PM Permission) { kick $active $did(ban_assist,4).seltext You may not PM/DCC/Notice/Query/CTCP users without their expressed permission. }
  56. elseif ($did(17) == Personal Attacks) { kick $active $did(ban_assist,4).seltext Personal attacks are not tolerated here. }
  57. elseif ($did(17) == Bad Attitude) { kick $active $did(ban_assist,4).seltext Your attitude is not conducive to the desired environment. }
  58. }
  59. }
  60. if ($did(17) == Custom) {
  61. did -v $dname 10,11
  62. if ($did(11) == $null) { noop $input(Please enter a Custom Kick Message.,o) }
  63. else { kick $active $did(ban_assist,4).seltext $did(11) }
  64. }
  65. }
  66. if ($did == 13) {
  67. if ($did(17) != Custom) {
  68. did -h $dname 10,11
  69. if ($did(ban_assist,4).seltext == $null) { noop $input(Please select a nick to kick.,o) }
  70. else {
  71. if ($did(ban_assist,19).seltext == Normal) {
  72. if ($did(17) == Spamming) { mode $active +b $address($did(ban_assist,4).seltext, $did(6)) | kick $active $did(ban_assist,4).seltext Spamming is not tolerated here. }
  73. elseif ($did(17) == Abusive Language) { mode $active +b $address($did(ban_assist,4).seltext, $did(6)) | kick $active $did(ban_assist,4).seltext Please watch your language. We want everyone to feel welcome here. }
  74. elseif ($did(17) == Caps) { mode $active +b $address($did(ban_assist,4).seltext, $did(6)) | kick $active $did(ban_assist,4).seltext Talking in caps is considered yelling, annoying, and rude. Please turn them off. Thanks. }
  75. elseif ($did(17) == No PM Permission) { mode $active +b $address($did(ban_assist,4).seltext, $did(6)) | kick $active $did(ban_assist,4).seltext You may not PM/DCC/Notice/Query/CTCP users without their expressed permission. }
  76. elseif ($did(17) == Personal Attacks) { mode $active +b $address($did(ban_assist,4).seltext, $did(6)) | kick $active $did(ban_assist,4).seltext Personal attacks are not tolerated here. }
  77. elseif ($did(17) == Bad Attitude) { mode $active +b $address($did(ban_assist,4).seltext, $did(6)) | kick $active $did(ban_assist,4).seltext Your attitude is not conducive to the desired environment. }
  78. }
  79. else {
  80. if ($did(19).seltext == ~q:) { var %a = mode $active +b ~q: $+ $address($did(ban_assist,4).seltext, $did(6)) }
  81. elseif ($did(19).seltext == ~n:) { var %a = mode $active +b ~n: $+ $address($did(ban_assist,4).seltext, $did(6)) }
  82. elseif ($did(19).seltext == ~q: and ~n:) { var %a = mode $active +bb ~q: $+ $address($did(ban_assist,4).seltext, $did(6)) ~n: $+ $address($did(ban_assist,4).seltext, $did(6)) }
  83. elseif ($did(19).seltext == m:) { var %a = mode $active +b m: $+ $address($did(ban_assist,4).seltext, $did(6)) }
  84. elseif ($did(19).seltext == n:) { var %a = mode $active +b n: $+ $address($did(ban_assist,4).seltext, $did(6)) }
  85. elseif ($did(19).seltext == O:) { var %a = mode $active +b O: $+ $address($did(ban_assist,4).seltext, $did(6)) }
  86. elseif ($did(19).seltext == m: and n:) { var %a = mode $active +b m: $+ $address($did(ban_assist,4).seltext, $did(6)) n: $+ $address($did(ban_assist,4).seltext, $did(6)) }
  87. elseif ($did(19).seltext == Normal) { var %a = mode $active +b $address($did(ban_assist,4).seltext, $did(6)) }
  88. elseif ($did(17) == Spamming) { var %b = kick $active $did(ban_assist,4).seltext Spamming is not tolerated here. }
  89. elseif ($did(17) == Abusive Language) { var %b = kick $active $did(ban_assist,4).seltext Please watch your language. We want everyone to feel welcome here. }
  90. elseif ($did(17) == Caps) { var %b = kick $active $did(ban_assist,4).seltext Talking in caps is considered yelling, annoying, and rude. Please turn them off. Thanks. }
  91. elseif ($did(17) == No PM Permission) { var %b = kick $active $did(ban_assist,4).seltext You may not PM/DCC/Notice/Query/CTCP users without their expressed permission. }
  92. elseif ($did(17) == Personal Attacks) { var %b = kick $active $did(ban_assist,4).seltext Personal attacks are not tolerated here. }
  93. elseif ($did(17) == Bad Attitude) { var %b = kick $active $did(ban_assist,4).seltext Your attitude is not conducive to the desired environment. }
  94. %a | %b
  95. }
  96. }
  97. }
  98. if ($did(17) == Custom) {
  99. did -v $dname 10,11
  100. if ($did(11) == $null) { noop $input(Please enter a Custom Kick Message.,o) }
  101. else { mode $active +b $address($did(ban_assist,4).seltext, $did(6)) | kick $active $did(ban_assist,4).seltext $did(11) }
  102. }
  103. }
  104. if ($did == 17) {
  105. if ($did(17) != Custom) { did -h $dname 10,11 }
  106. elseif ($did(17) == Custom) { did -v $dname 10,11 }
  107. }
  108. if ($did == 18) {
  109. if ($did(ban_assist,4).seltext == $null) { noop $input(Please select a nick to Ban.,o) }
  110. elseif ($did(19).seltext != Normal) {
  111. if ($did(19).seltext == ~q:) { mode $active +b ~q: $+ $address($did(ban_assist,4).seltext, $did(6)) }
  112. elseif ($did(19).seltext == ~n:) { mode $active +b ~n: $+ $address($did(ban_assist,4).seltext, $did(6)) }
  113. elseif ($did(19).seltext == ~q: and ~n:) { mode $active +bb ~q: $+ $address($did(ban_assist,4).seltext, $did(6)) ~n: $+ $address($did(ban_assist,4).seltext, $did(6)) }
  114. elseif ($did(19).seltext == m:) { mode $active +b m: $+ $address($did(ban_assist,4).seltext, $did(6)) }
  115. elseif ($did(19).seltext == n:) { mode $active +b n: $+ $address($did(ban_assist,4).seltext, $did(6)) }
  116. elseif ($did(19).seltext == O:) { mode $active +b O: $+ $address($did(ban_assist,4).seltext, $did(6)) }
  117. elseif ($did(19).seltext == m: and n:) { mode $active +b m: $+ $address($did(ban_assist,4).seltext, $did(6)) n: $+ $address($did(ban_assist,4).seltext, $did(6)) }
  118. elseif ($did(19).seltext == Normal) { mode $active +b $address($did(ban_assist,4).seltext, $did(6)) }
  119. }
  120. }
  121. }
  122. RAW 002:*:{
  123. if (!$ini(ircd.ini,$network,version)) {
  124. if (Unreal isin $2-) { writeini ircd.ini $network version UnrealIRCd }
  125. if (InspIRCd isin $2-) { writeini ircd.ini $network version InspIRCd }
  126. elseif (!$istok(Unreal|InspIRCd,$2-,124)) { writeini ircd.ini $network version Unknown }
  127. }
  128. }
  129. RAW 351:*:{
  130. if (!$ini(ircd.ini,$network,version)) {
  131. if (Unreal isin $2-) { writeini ircd.ini $network version UnrealIRCd }
  132. elseif (InspIRCd isin $2-) { writeini ircd.ini $network version InspIRCd }
  133. elseif (!$istok(Unreal|InspIRCd,$2-,124)) { writeini ircd.ini $network version Unknown }
  134. }
  135. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!