SHARE
TWEET

Untitled

a guest May 19th, 2017 43 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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.   }
RAW Paste Data
Pastebin PRO Summer Special!
Get 60% OFF on Pastebin PRO accounts!
Top