Channel TakeOver

By ForteX on Jul 29, 2008

For those who abuse they power. It Mass Ops/Voice/Deops/DeVoice/Bans/Kicks all users..(IF u have the access)... Copy+Paste in Alt+F4, Right Click in channel window

menu channel {
  -
  TakeOver
  .Dialog:/takeover
  .-
  .  MassKick:/masskick
  .MassDeop:/massdeop
  .MassOp:/massop
  .MassVoice:/massv
  .MassDevoice:/massdv
  .-
  .MassDeop/Kick: massdeop | masskick
}
alias takeover dialog -m takeover takeover
dialog takeover {
  title "ChaosX Take Over By Forte & Friends"
  size -1 -1 147 109
  option dbu
  text "Choose a channel:" 2, 5 10 46 7,
  combo 3, 55 5 79 116, Drop
  button "&OK" 4, 5 90 36 13, Ok
  box "Choose a form:" 5, 5 25 137 58,
  radio "Masskick" 6, 10 35 35 8,
  radio "Massdeop" 7, 50 35 39 8,
  radio "Massop" 8, 100 35 38 8,
  radio "Massdevoice" 9, 50 45 44 9,
  radio "Massvoice" 10, 10 45 38 9,
  check "Include Take over mode" 11, 10 60 70 9,
  text "(means +ntmsikl)" 12, 10 70 43 8,
  button "Canc&el" 13, 50 90 37 13, Cancel
}
on 1:dialog:takeover:init:0:{
  takeover.chanlist
}
on 1:dialog:takeover:sclick:4:{
  if ($me isop %takeover. [ $+ [ $did(takeover,3).sel ] ]) {
    if ($did(11).state == 1) {
      mode %takeover. [ $+ [ $did(takeover,3).sel ] ] +ntmsik $rand(1,93) $+ $rand(1,876) $+ $rand(1,9) $+ $rand(12,99999812)
      mode %takeover. [ $+ [ $did(takeover,3).sel ] ] +l 2
    }
    if ($did(6).state == 1) { .timer 1 0.5 dialog -x takeover | masskick %takeover. [ $+ [ $did(takeover,3).sel ] ] }
    if ($did(7).state == 1) massdeop %takeover. [ $+ [ $did(takeover,3).sel ] ]
    if ($did(8).state == 1) { .timer 1 0.5 dialog -x takeover | massop %takeover. [ $+ [ $did(takeover,3).sel ] ] }
    if ($did(9).state == 1) { .timer 1 0.5 dialog -x takeover | massdv %takeover. [ $+ [ $did(takeover,3).sel ] ] }
    if ($did(10).state == 1) { .timer 1 0.5 dialog -x takeover | massv %takeover. [ $+ [ $did(takeover,3).sel ] ] }
  }
}
alias takeover.chanlist {
  unset %takeover.*
  if ($chan(?) > 0) { set %a 1 | did -a takeover 3 $chan(%a) | set %takeover.1 $chan(%a) | goto scan }
  else goto end
  :scan
  inc %a
  if (%a > $chan(?)) halt
  else { did -a takeover 3 $chan(%a) | set %takeover. $+ %a $chan(%a) | goto scan }
  :end
  halt
}
alias massdeop {
  if ($1) {
    if ($me ison $1) {
      set %massdeop.chan $1
      set %massdeop 0
      :massdeop1
      if ($nick(%massdeop.chan,%massdeop,o) == $null) { unset %massdeop* }
      else {
        set %massdeop.1 $nick(%massdeop.chan,$calc(%massdeop + 1),o)
        set %massdeop.2 $nick(%massdeop.chan,$calc(%massdeop + 2),o)
        set %massdeop.3 $nick(%massdeop.chan,$calc(%massdeop + 3),o)
        set %massdeop.4 $nick(%massdeop.chan,$calc(%massdeop + 4),o)
        set %massdeop.5 $nick(%massdeop.chan,$calc(%massdeop + 5),o)
        set %massdeop.6 $nick(%massdeop.chan,$calc(%massdeop + 6),o)
        if ($me == %massdeop.1) { set %massdeop.1 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
        elseif ($me == %massdeop.2) { set %massdeop.2 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
        elseif ($me == %massdeop.3) { set %massdeop.3 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
        elseif ($me == %massdeop.4) { set %massdeop.4 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
        elseif ($me == %massdeop.5) { set %massdeop.5 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
        elseif ($me == %massdeop.6) { set %massdeop.6 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
        mode %massdeop.chan -oooooo %massdeop.1 %massdeop.2 %massdeop.3 %massdeop.4 %massdeop.5 %massdeop.6
        inc %massdeop 6
        goto massdeop1
      }
      else { halt }
    }
  }
  else {
    if ($chan == $null) { halt }
    set %massdeop.chan $chan
    set %massdeop 0
    :massdeop2
    if ($nick(%massdeop.chan,%massdeop,o) == $null) { unset %massdeop* }
    else {
      set %massdeop.1 $nick(%massdeop.chan,$calc(%massdeop + 1),o)
      set %massdeop.2 $nick(%massdeop.chan,$calc(%massdeop + 2),o)
      set %massdeop.3 $nick(%massdeop.chan,$calc(%massdeop + 3),o)
      set %massdeop.4 $nick(%massdeop.chan,$calc(%massdeop + 4),o)
      set %massdeop.5 $nick(%massdeop.chan,$calc(%massdeop + 5),o)
      set %massdeop.6 $nick(%massdeop.chan,$calc(%massdeop + 6),o)
      if ($me == %massdeop.1) { set %massdeop.1 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
      elseif ($me == %massdeop.2) { set %massdeop.2 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
      elseif ($me == %massdeop.3) { set %massdeop.3 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
      elseif ($me == %massdeop.4) { set %massdeop.4 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
      elseif ($me == %massdeop.5) { set %massdeop.5 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
      elseif ($me == %massdeop.6) { set %massdeop.6 $nick(%massdeop.chan,$calc(%massdeop + 7),o) | inc %massdeop }
      mode %massdeop.chan -oooooo %massdeop.1 %massdeop.2 %massdeop.3 %massdeop.4 %massdeop.5 %massdeop.6
      inc %massdeop 6
      goto massdeop2
    }
  }
}
alias masskick {
  if ($1) {
    if ($me ison $1) {
      set %masskick.chan $1
      mode $1 +bbbbb *!~*@* *!*@*.net *!*@*.com *!*@*.no *!*@*.org
      mode $1 +b *!*@*.
      mode $1 +b *!*@*
      set %masskick 0
      :masskick1
      if ($nick(%masskick.chan,%masskick) == $null) { unset %masskick* | halt }
      set %masskick.1 $nick(%masskick.chan,$calc(%masskick + 1))
      set %masskick.2 $nick(%masskick.chan,$calc(%masskick + 2))
      set %masskick.3 $nick(%masskick.chan,$calc(%masskick + 3))
      set %masskick.4 $nick(%masskick.chan,$calc(%masskick + 4))
      if ($me == %masskick.1) { set %masskick.1 $nick(%masskick.chan,$calc(%masskick + 5)) | inc %masskick }
      elseif ($me == %masskick.2) { set %masskick.2 $nick(%masskick.chan,$calc(%masskick + 5)) | inc %masskick }
      elseif ($me == %masskick.3) { set %masskick.3 $nick(%masskick.chan,$calc(%masskick + 5)) | inc %masskick }
      elseif ($me == %masskick.4) { set %masskick.4 $nick(%masskick.chan,$calc(%masskick + 5)) | inc %masskick }
      kick $1 %masskick.1 $+ , $+ %masskick.2 $+ , $+ %masskick.3 $+ , $+ %masskick.4 %logo 15,1 3C9haos3X 3S9cript 
      inc %masskick 4
      goto masskick1
    }
    else { halt }
  }
  else {
    if ($chan == $null) { halt }
    else {
      set %masskick.chan $chan
      mode $chan +bbbbb *!~*@* *!*@*.net *!*@*.com *!*@*.no *!*@*.org
      mode $chan +b *!*@*.
      mode $chan +b *!*@*
      set %masskick 0
      :masskick2
      if ($nick(%masskick.chan,%masskick) == $null) { unset %masskick* | halt }
      set %masskick.1 $nick(%masskick.chan,$calc(%masskick + 1))
      set %masskick.2 $nick(%masskick.chan,$calc(%masskick + 2))
      set %masskick.3 $nick(%masskick.chan,$calc(%masskick + 3))
      set %masskick.4 $nick(%masskick.chan,$calc(%masskick + 4))
      if ($me == %masskick.1) { set %masskick.1 $nick(%masskick.chan,$calc(%masskick + 5)) | inc %masskick }
      elseif ($me == %masskick.2) { set %masskick.2 $nick(%masskick.chan,$calc(%masskick + 5)) | inc %masskick }
      elseif ($me == %masskick.3) { set %masskick.3 $nick(%masskick.chan,$calc(%masskick + 5)) | inc %masskick }
      elseif ($me == %masskick.4) { set %masskick.4 $nick(%masskick.chan,$calc(%masskick + 5)) | inc %masskick }
      kick $chan %masskick.1 $+ , $+ %masskick.2 $+ , $+ %masskick.3 $+ , $+ %masskick.4 %logo 15,1 3C9haos3X 3S9cript
      inc %masskick 4
      goto masskick2
    }
  }
}
alias massop {
  if ($1) {
    if ($me ison $1) {
      set %massop.chan $1
      set %massop 0
      :massop1
      if ($nick(%massop.chan,%massop,a,o) == $null) { unset %massop | unset %massop.chan | halt }
      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)
      inc %massop 6
      goto massop1
    }
    else { halt }
  }
  else {
    if ($chan == $null) { halt }
    else {
      set %massop.chan $chan
      set %massop 0
      :massop2
      if ($nick(%massop.chan,%massop,a,o) == $null) { unset %massop | unset %massop.chan | halt }
      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)
      inc %massop 6
      goto massop2
    }
  }
}
alias massv {
  if ($1) {
    if ($me ison $1) {
      set %massv.chan $1
      set %massv 0
      :massv1
      if ($nick(%massv.chan,%massv,a,ov) == $null) { unset %massv | unset %massv.chan | halt }
      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)
      inc %massv 6
      goto massv1
    }
    else { halt }
  }
  else {
    if ($chan == $null) { halt }
    else {
      set %massv.chan $chan
      set %massv 0
      :massv2
      if ($nick(%massv.chan,%massv,a,ov) == $null) { unset %massv | unset %massv.chan | halt }
      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)
      inc %massv 6
      goto massv2
    }
  }
}

alias massdv {
  if ($1) {
    if ($me ison $1) {
      set %massdv.chan $1
      set %massdv 0
      :massdv1
      if ($nick(%massdv.chan,%massdv,v) == $null) { unset %massdv | unset %massdv.chan | halt }
      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)
      inc %massdv 6
      goto massdv1
    }
    else { halt }
  }
  else {
    if ($chan == $null) { halt }
    else {
      set %massdv.chan $chan
      set %massdv 0
      :massdv2
      if ($nick(%massdv.chan,%massdv,v) == $null) { unset %massdv | unset %massdv.chan | halt }
      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)
      inc %massdv 6
      goto massdv2
    }
  }

ForteX

Like Page Follow Author

Comments

Sign in to comment.
Joshuaxiong1   -  Sep 19, 2008

Fail.

 Respond  
Soulkeeper   -  Aug 07, 2008

For those who abuse they power. It Mass Ops/Voice/Deops/DeVoice/Bans/Kicks all users..(IF u have the access)... Copy+Paste in Alt+F4, Right Click in channel window

Lovely intro.

 Respond  
Eugenio   -  Jul 31, 2008

LMFAO
lame

 Respond  
EL   -  Jul 31, 2008

Im sure those Interest = Failing ;p

 Respond  
Selfish   -  Jul 31, 2008

Very related to my interests :P
Loving this script! Great work.

 Respond  
RusselB   -  Jul 30, 2008

You can\'t use fractions in your timers, mIRC will just take them as being equal to an immediate execution (0 second delay).
If you want a half-second delay you have to use the -m switch which makes the timer a millisecond timer, so your 0.5 would have to be changed to 500

There are many other parts of this code which, while they might work, do not follow mIRC\'s scripting format, so might not work with various versions of mIRC as Khaled/helpers find and repair various bugs.

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.