API tools faq
paste
Advertisement
Al6r8b

Untitled

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