API tools faq
paste
Advertisement
Guest User

Untitled

a guest
May 19th, 2017
59
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 13.45 KB | None | 0 0
raw download clone embed print report
  1. on ^*:TEXT:*:#:{
  2. if (!$istok(BanHammer@Captain_Falcon@ClanWars@Client@Coder@Machine@milk@Minibar@mIRC@Noobs@Q@RuneScape@snoozles@Unknown@W@Warcraft@Willem@X@Y@Pancake,$nick,64) && !$regex($nick,/(BigSister$|Gerty$|RuneScript$|\bVectra|\bBabylon|Noobwegian)/Si)) {
  3. if ($+(*,$me,*) iswm $1-) { notice $me 11,1 $nick 4,1has just 7,1highlighted 4,1you in9,1 $chan }
  4. }
  5.  
  6. Alias BlockChans {
  7. ; Edit this list as you wish:
  8. return #mSL #IRChelp #Help #Support #Php #BNC #4thofJuly
  9. }
  10. Alias Amsg.Tag {
  11. ; This is the amsg Tag, follow this example: (don't forget Ctrl+O at the end)
  12. ; return 3[4รƒ7mลกg3]
  13. return
  14. }
  15. Alias LoopChans {
  16. var %a 1,%c,%e
  17. while ($comchan($me,%a)) {
  18. if (!$istok($blockchans,$v1,32)) {
  19. var %c $addtok(%c,$comchan($me,%a),44)
  20. echo -t $comchan($me,%a) $+(<,$me,>) $iif(msg isin $1,$Amsg.Tag) $2-
  21. }
  22. if ($numtok(%c,44) == 20) {
  23. $1 %c $iif(msg isin $1,$Amsg.Tag) $2-
  24. var %c
  25. }
  26. inc %a
  27. }
  28. if (%c) $1 %c $iif(msg isin $1,$Amsg.Tag) $2-
  29. }
  30. Alias amsg loopchans msg $1-
  31. Alias ame loopchans describe $1-
  32.  
  33. alias gtfo {
  34. say gtfo $$1
  35. mode # -Q+b-qaohveeeIII $address($1,2) $1 $1 $1 $1 $1 $1 $address($1,2) $address($1,3) $1 $address($1,2) $address($1,3)
  36. kick $chan $1
  37. }
  38.  
  39.  
  40.  
  41. Total Ban
  42. .Add Bans:{
  43. /mode $chan +b ~n: $+ $address($$1,2)
  44. /mode $chan +b ~q: $+ $address($$1,2)
  45. /mode $chan +b $address($$1,1)
  46. /mode $chan +b $address($$1,2)
  47. /mode $chan +b $address($$1,3)
  48. /mode $chan +b $address($$1,4)
  49. /mode $chan +b $address($$1,5)
  50. /mode $chan +b $address($$1,6)
  51. /mode $chan +b $address($$1,7)
  52. /mode $chan +b $address($$1,8)
  53. /mode $chan +b $address($$1,9)
  54. /mode $chan +b $address($$1,10)
  55. /mode $chan +b $$1
  56. /mode $chan -q $$1
  57. /mode $chan -a $$1
  58. /mode $chan -o $$1
  59. /mode $chan -h $$1
  60. /mode $chan -v $$1
  61.  
  62. }
  63. .Remove Bans:{
  64. /mode $chan -b ~n: $+ $address($$1,2)
  65. /mode $chan -b ~q: $+ $address($$1,2)
  66. /mode $chan +b $address($$1,1)
  67. /mode $chan -b $address($$1,2)
  68. /mode $chan -b $address($$1,3)
  69. /mode $chan -b $address($$1,4)
  70. /mode $chan -b $address($$1,5)
  71. /mode $chan -b $address($$1,6)
  72. /mode $chan -b $address($$1,7)
  73. /mode $chan -b $address($$1,8)
  74. /mode $chan -b $address($$1,9)
  75. /mode $chan -b $address($$1,10)
  76. /mode $chan -b $$1
  77. /mode $chan +v $$1
  78. }
  79. }
  80.  
  81. ;;;;;;;;;;;;;;;;;;;;;
  82. ;;;;;;;Updated;;;;;;;
  83. ;;;;;;;;;;;;;;;;;;;;;
  84.  
  85. menu channel,nicklist {
  86. Total Ban
  87. .Add bans { var %x 1 | while (%x <= 20) { mode $active +b $address($$1,%x) | inc %x } }
  88. .remove bans { var %x 1 | while (%x <= 20) { mode $active -b $address($$1,%x) | inc %x } }
  89. }
  90.  
  91. ;There, it's not anything pro, I just can't be assed to make it look any better or spend anymore time on it. Leave me alone!
  92.  
  93.  
  94.  
  95. menu channel {
  96. -
  97. TakeOver
  98. .Dialog:/takeover
  99. .-
  100. . MassKick:/masskick
  101. .MassDeop:/massdeop
  102. .MassOp:/massop
  103. .MassVoice:/massv
  104. .MassDevoice:/massdv
  105. .-
  106. .MassDeop/Kick: massdeop | masskick
  107. }
  108. alias takeover dialog -m takeover takeover
  109. dialog takeover {
  110. title "ChaosX Take Over By Forte & Friends"
  111. size -1 -1 147 109
  112. option dbu
  113. text "Choose a channel:" 2, 5 10 46 7,
  114. combo 3, 55 5 79 116, Drop
  115. button "&OK" 4, 5 90 36 13, Ok
  116. box "Choose a form:" 5, 5 25 137 58,
  117. radio "Masskick" 6, 10 35 35 8,
  118. radio "Massdeop" 7, 50 35 39 8,
  119. radio "Massop" 8, 100 35 38 8,
  120. radio "Massdevoice" 9, 50 45 44 9,
  121. radio "Massvoice" 10, 10 45 38 9,
  122. check "Include Take over mode" 11, 10 60 70 9,
  123. text "(means +ntmsikl)" 12, 10 70 43 8,
  124. button "Canc&el" 13, 50 90 37 13, Cancel
  125. }
  126. on 1:dialog:takeover:init:0:{
  127. takeover.chanlist
  128. }
  129. on 1:dialog:takeover:sclick:4:{
  130. if ($me isop %takeover. [ $+ [ $did(takeover,3).sel ] ]) {
  131. if ($did(11).state == 1) {
  132. mode %takeover. [ $+ [ $did(takeover,3).sel ] ] +ntmsik $rand(1,93) $+ $rand(1,876) $+ $rand(1,9) $+ $rand(12,99999812)
  133. mode %takeover. [ $+ [ $did(takeover,3).sel ] ] +l 2
  134. }
  135. if ($did(6).state == 1) { .timer 1 0.5 dialog -x takeover | masskick %takeover. [ $+ [ $did(takeover,3).sel ] ] }
  136. if ($did(7).state == 1) massdeop %takeover. [ $+ [ $did(takeover,3).sel ] ]
  137. if ($did(8).state == 1) { .timer 1 0.5 dialog -x takeover | massop %takeover. [ $+ [ $did(takeover,3).sel ] ] }
  138. if ($did(9).state == 1) { .timer 1 0.5 dialog -x takeover | massdv %takeover. [ $+ [ $did(takeover,3).sel ] ] }
  139. if ($did(10).state == 1) { .timer 1 0.5 dialog -x takeover | massv %takeover. [ $+ [ $did(takeover,3).sel ] ] }
  140. }
  141. }
  142. alias takeover.chanlist {
  143. unset %takeover.*
  144. if ($chan(?) > 0) { set %a 1 | did -a takeover 3 $chan(%a) | set %takeover.1 $chan(%a) | goto scan }
  145. else goto end
  146. :scan
  147. inc %a
  148. if (%a > $chan(?)) halt
  149. else { did -a takeover 3 $chan(%a) | set %takeover. $+ %a $chan(%a) | goto scan }
  150. :end
  151. halt
  152. }
  153. alias massdeop {
  154. if ($1) {
  155. if ($me ison $1) {
  156. set %massdeop.chan $1
  157. set %massdeop 0
  158. :massdeop1
  159. if ($nick(%massdeop.chan,%massdeop,o) == $null) { unset %massdeop* }
  160. else {
  161. set %massdeop.1 $nick(%massdeop.chan,$calc(%massdeop + 1),o)
  162. set %massdeop.2 $nick(%massdeop.chan,$calc(%massdeop + 2),o)
  163. set %massdeop.3 $nick(%massdeop.chan,$calc(%massdeop + 3),o)
  164. set %massdeop.4 $nick(%massdeop.chan,$calc(%massdeop + 4),o)
  165. set %massdeop.5 $nick(%massdeop.chan,$calc(%massdeop + 5),o)
  166. set %massdeop.6 $nick(%massdeop.chan,$calc(%massdeop + 6),o)
  167. if ($me == %massdeop.1) { set %massdeop.1 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
  168. elseif ($me == %massdeop.2) { set %massdeop.2 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
  169. elseif ($me == %massdeop.3) { set %massdeop.3 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
  170. elseif ($me == %massdeop.4) { set %massdeop.4 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
  171. elseif ($me == %massdeop.5) { set %massdeop.5 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
  172. elseif ($me == %massdeop.6) { set %massdeop.6 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
  173. mode %massdeop.chan -oooooo %massdeop.1 %massdeop.2 %massdeop.3 %massdeop.4 %massdeop.5 %massdeop.6
  174. inc %massdeop 6
  175. goto massdeop1
  176. }
  177. else { halt }
  178. }
  179. }
  180. else {
  181. if ($chan == $null) { halt }
  182. set %massdeop.chan $chan
  183. set %massdeop 0
  184. :massdeop2
  185. if ($nick(%massdeop.chan,%massdeop,o) == $null) { unset %massdeop* }
  186. else {
  187. set %massdeop.1 $nick(%massdeop.chan,$calc(%massdeop + 1),o)
  188. set %massdeop.2 $nick(%massdeop.chan,$calc(%massdeop + 2),o)
  189. set %massdeop.3 $nick(%massdeop.chan,$calc(%massdeop + 3),o)
  190. set %massdeop.4 $nick(%massdeop.chan,$calc(%massdeop + 4),o)
  191. set %massdeop.5 $nick(%massdeop.chan,$calc(%massdeop + 5),o)
  192. set %massdeop.6 $nick(%massdeop.chan,$calc(%massdeop + 6),o)
  193. if ($me == %massdeop.1) { set %massdeop.1 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
  194. elseif ($me == %massdeop.2) { set %massdeop.2 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
  195. elseif ($me == %massdeop.3) { set %massdeop.3 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
  196. elseif ($me == %massdeop.4) { set %massdeop.4 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
  197. elseif ($me == %massdeop.5) { set %massdeop.5 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
  198. elseif ($me == %massdeop.6) { set %massdeop.6 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
  199. mode %massdeop.chan -oooooo %massdeop.1 %massdeop.2 %massdeop.3 %massdeop.4 %massdeop.5 %massdeop.6
  200. inc %massdeop 6
  201. goto massdeop2
  202. }
  203. }
  204. }
  205. alias masskick {
  206. if ($1) {
  207. if ($me ison $1) {
  208. set %masskick.chan $1
  209. mode $1 +bbbbb *!~*@* *!*@*.net *!*@*.com *!*@*.no *!*@*.org
  210. mode $1 +b *!*@*.
  211. mode $1 +b *!*@*
  212. set %masskick 0
  213. :masskick1
  214. if ($nick(%masskick.chan,%masskick) == $null) { unset %masskick* | halt }
  215. set %masskick.1 $nick(%masskick.chan,$calc(%masskick + 1))
  216. set %masskick.2 $nick(%masskick.chan,$calc(%masskick + 2))
  217. set %masskick.3 $nick(%masskick.chan,$calc(%masskick + 3))
  218. set %masskick.4 $nick(%masskick.chan,$calc(%masskick + 4))
  219. if ($me == %masskick.1) { set %masskick.1 $nick(%masskick.chan,$calc(%masskick + 5)) | inc %masskick }
  220. elseif ($me == %masskick.2) { set %masskick.2 $nick(%masskick.chan,$calc(%masskick + 5)) | inc %masskick }
  221. elseif ($me == %masskick.3) { set %masskick.3 $nick(%masskick.chan,$calc(%masskick + 5)) | inc %masskick }
  222. elseif ($me == %masskick.4) { set %masskick.4 $nick(%masskick.chan,$calc(%masskick + 5)) | inc %masskick }
  223. kick $1 %masskick.1 $+ , $+ %masskick.2 $+ , $+ %masskick.3 $+ , $+ %masskick.4 %logo 15,1 3C9haos3X 3S9cript
  224. inc %masskick 4
  225. goto masskick1
  226. }
  227. else { halt }
  228. }
  229. else {
  230. if ($chan == $null) { halt }
  231. else {
  232. set %masskick.chan $chan
  233. mode $chan +bbbbb *!~*@* *!*@*.net *!*@*.com *!*@*.no *!*@*.org
  234. mode $chan +b *!*@*.
  235. mode $chan +b *!*@*
  236. set %masskick 0
  237. :masskick2
  238. if ($nick(%masskick.chan,%masskick) == $null) { unset %masskick* | halt }
  239. set %masskick.1 $nick(%masskick.chan,$calc(%masskick + 1))
  240. set %masskick.2 $nick(%masskick.chan,$calc(%masskick + 2))
  241. set %masskick.3 $nick(%masskick.chan,$calc(%masskick + 3))
  242. set %masskick.4 $nick(%masskick.chan,$calc(%masskick + 4))
  243. if ($me == %masskick.1) { set %masskick.1 $nick(%masskick.chan,$calc(%masskick + 5)) | inc %masskick }
  244. elseif ($me == %masskick.2) { set %masskick.2 $nick(%masskick.chan,$calc(%masskick + 5)) | inc %masskick }
  245. elseif ($me == %masskick.3) { set %masskick.3 $nick(%masskick.chan,$calc(%masskick + 5)) | inc %masskick }
  246. elseif ($me == %masskick.4) { set %masskick.4 $nick(%masskick.chan,$calc(%masskick + 5)) | inc %masskick }
  247. kick $chan %masskick.1 $+ , $+ %masskick.2 $+ , $+ %masskick.3 $+ , $+ %masskick.4 %logo 15,1 3C9haos3X 3S9cript
  248. inc %masskick 4
  249. goto masskick2
  250. }
  251. }
  252. }
  253. alias massop {
  254. if ($1) {
  255. if ($me ison $1) {
  256. set %massop.chan $1
  257. set %massop 0
  258. :massop1
  259. if ($nick(%massop.chan,%massop,a,o) == $null) { unset %massop | unset %massop.chan | halt }
  260. mode %massop.chan +oooooo $nick(%massop.chan,$calc(%massop + 1),a,o) $nick(%massop.chan,$calc(%massop + 2),a,o) $nick(%massop.chan,$calc(%massop + 3),a,o) $nick(%massop.chan,$calc(%massop + 4),a,o) $nick(%massop.chan,$calc(%massop + 5),a,o) $nick(%massop.chan,$calc(%massop + 6),a,o)
  261. inc %massop 6
  262. goto massop1
  263. }
  264. else { halt }
  265. }
  266. else {
  267. if ($chan == $null) { halt }
  268. else {
  269. set %massop.chan $chan
  270. set %massop 0
  271. :massop2
  272. if ($nick(%massop.chan,%massop,a,o) == $null) { unset %massop | unset %massop.chan | halt }
  273. mode %massop.chan +oooooo $nick(%massop.chan,$calc(%massop + 1),a,o) $nick(%massop.chan,$calc(%massop + 2),a,o) $nick(%massop.chan,$calc(%massop + 3),a,o) $nick(%massop.chan,$calc(%massop + 4),a,o) $nick(%massop.chan,$calc(%massop + 5),a,o) $nick(%massop.chan,$calc(%massop + 6),a,o)
  274. inc %massop 6
  275. goto massop2
  276. }
  277. }
  278. }
  279. alias massv {
  280. if ($1) {
  281. if ($me ison $1) {
  282. set %massv.chan $1
  283. set %massv 0
  284. :massv1
  285. if ($nick(%massv.chan,%massv,a,ov) == $null) { unset %massv | unset %massv.chan | halt }
  286. mode %massv.chan +vvvvvv $nick(%massv.chan,$calc(%massv + 1),a,ov) $nick(%massv.chan,$calc(%massv + 2),a,ov) $nick(%massv.chan,$calc(%massv + 3),a,ov) $nick(%massv.chan,$calc(%massv + 4),a,ov) $nick(%massv.chan,$calc(%massv + 5),a,ov) $nick(%massv.chan,$calc(%massv + 6),a,ov)
  287. inc %massv 6
  288. goto massv1
  289. }
  290. else { halt }
  291. }
  292. else {
  293. if ($chan == $null) { halt }
  294. else {
  295. set %massv.chan $chan
  296. set %massv 0
  297. :massv2
  298. if ($nick(%massv.chan,%massv,a,ov) == $null) { unset %massv | unset %massv.chan | halt }
  299. mode %massv.chan +vvvvvv $nick(%massv.chan,$calc(%massv + 1),a,ov) $nick(%massv.chan,$calc(%massv + 2),a,ov) $nick(%massv.chan,$calc(%massv + 3),a,ov) $nick(%massv.chan,$calc(%massv + 4),a,ov) $nick(%massv.chan,$calc(%massv + 5),a,ov) $nick(%massv.chan,$calc(%massv + 6),a,ov)
  300. inc %massv 6
  301. goto massv2
  302. }
  303. }
  304. }
  305.  
  306. alias massdv {
  307. if ($1) {
  308. if ($me ison $1) {
  309. set %massdv.chan $1
  310. set %massdv 0
  311. :massdv1
  312. if ($nick(%massdv.chan,%massdv,v) == $null) { unset %massdv | unset %massdv.chan | halt }
  313. mode %massdv.chan -vvvvvv $nick(%massdv.chan,$calc(%massdv + 1),v) $nick(%massdv.chan,$calc(%massdv + 2),v) $nick(%massdv.chan,$calc(%massdv + 3),v) $nick(%massdv.chan,$calc(%massdv + 4),v) $nick(%massdv.chan,$calc(%massdv + 5),v) $nick(%massdv.chan,$calc(%massdv + 6),v)
  314. inc %massdv 6
  315. goto massdv1
  316. }
  317. else { halt }
  318. }
  319. else {
  320. if ($chan == $null) { halt }
  321. else {
  322. set %massdv.chan $chan
  323. set %massdv 0
  324. :massdv2
  325. if ($nick(%massdv.chan,%massdv,v) == $null) { unset %massdv | unset %massdv.chan | halt }
  326. mode %massdv.chan -vvvvvv $nick(%massdv.chan,$calc(%massdv + 1),v) $nick(%massdv.chan,$calc(%massdv + 2),v) $nick(%massdv.chan,$calc(%massdv + 3),v) $nick(%massdv.chan,$calc(%massdv + 4),v) $nick(%massdv.chan,$calc(%massdv + 5),v) $nick(%massdv.chan,$calc(%massdv + 6),v)
  327. inc %massdv 6
  328. goto massdv2
  329. }
  330. }
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!