Anti takeover advenced

By Magnetronkip on Jul 25, 2004

This is a Realy advanced Anti take over script look out
if you got any problems pm me

ON *:DEOP:#: { 
  if ($opnick == $me) { msg $iif(Q ison $chan,Q,L) op $chan } 
  if (($nick == $me) || ($nick == L) || ($nick == Q) || (. isin $nick)) { return } 
  if ($opnick == $me) { msg L chanlev $chan $nick -ao | msg Q chanlev $chan $nick -ao | set %deopper. [ $+ [ $chan ] ] $nick | set %deopper-addr. [ $+ [ $chan ] ] $address($nick,2)  } 
  elseif (($me isop $chan) && ($opnick != $nick)) { mode $chan -o+b $nick $address($nick,2) | kick $chan $nick Stop that. } 
} 
ON *:OP:#: { 
  if ($opnick == $me) { 
    if (%kicker. [ $+ [ $chan ] ]) { 
      mode $chan -o+b %kicker. [ $+ [ $chan ] ] %kicker-addr. [ $+ [ $chan ] ] | kick $chan %kicker. [ $+ [ $chan ] ] Banned: %kicker-addr. [ $+ [ $chan ] ] 
    } 
    elseif ((%banner. [ $+ [ $chan ] ]) && (%banner. [ $+ [ $chan ] ] != %kicker. [ $+ [ $chan ] ])) { 
      mode $chan -o+b %banner. [ $+ [ $chan ] ] %banner-addr. [ $+ [ $chan ] ] | kick $chan %banner. [ $+ [ $chan ] ] Banned: %banner-addr. [ $+ [ $chan ] ] 
    } 
    elseif ((%deopper. [ $+ [ $chan ] ]) && (%deopper. [ $+ [ $chan ] ] != %kicker. [ $+ [ $chan ] ]) && (%deopper. [ $+ [ $chan ] ] != %banner. [ $+ [ $chan ] ])) { 
      mode $chan -o+b %deopper. [ $+ [ $chan ] ] %deopper-addr. [ $+ [ $chan ] ] | kick $chan %deopper. [ $+ [ $chan ] ] Banned: %deopper-addr. [ $+ [ $chan ] ] 
    } 
    unset %kicker. [ $+ [ $chan ] ] | unset %kicker-addr. [ $+ [ $chan ] ] | unset %banner. [ $+ [ $chan ] ] | unset %banner-addr. [ $+ [ $chan ] ] | unset %deopper. [ $+ [ $chan ] ] | unset %deopper-addr. [ $+ [ $chan ] ] 
    var %i = 1,%modes,%total = $ibl($chan,0) 
    while (%i <= %total) { 
      if ($ibl($chan,%i) iswm $address($me,5)) { var %modes = %modes $ibl($chan,%i) } | if ($numtok(%modes,32) == $modespl) { mode $chan - $+ $str(b,$modespl) %modes | unset %modes } 
      inc %i 
    } 
    if (%modes) { mode $chan - $+ $str(b,$modespl) %modes | unset %modes } 
    mode $chan +tn 
  } 
  if (($nick == $me) || ($nick == L) || ($nick == Q) || (. isin $nick)) { return } 
  if (($me isop $chan) && ($opnick != $me)) {  mode $chan -oo $nick $opnick } 
} 
ON !@*:MODE:#: { 
  if (($nick != L) && ($nick != Q) && (. !isin $nick)) { 
    if ((i isincs $1) && (i isincs $gettok($chan($chan).mode,1,32))) { var %violation = 1 } 
    if ((l isincs $1) && (l isincs $gettok($chan($chan).mode,1,32))) { var %violation = 1 } 
    if ((k isincs $1) && (k isincs $gettok($chan($chan).mode,1,32))) { var %violation = 1 } 
    if (%violation) { mode $chan +btn-omilk $address($nick,2) $nick $chan($chan).key | kick $chan $nick Stop that. } 
  } 
} 
raw 474:*: msg L recover $2 | msg Q deopall $2 | msg Q banclear $2 | msg L,Q invite $2 
raw 471:*: msg L,Q clearchan $2 | msg L,Q invite $2 
raw 473:*: msg L,Q clearchan $2 | msg L,Q invite $2 
raw 475:*: msg L,Q clearchan $2 | msg L,Q invite $2 
}
on *:INVITE:#:{ if (($nick == L) || ($nick == Q)) { join $chan } } 
}
on @*:KICK:#: { 
  if (($nick != $me) && ($nick != L) && ($nick != Q) && (. !isin $nick)) { 
    if ($knick == $me) { whois $nick | set %kicker. [ $+ [ $chan ] ] $nick | set %kicker-addr. [ $+ [ $chan ] ] $address($nick,2) | msg L chanlev $chan $nick -ao | msg Q chanlev $chan $nick -ao+b  } 
    elseif ($knick != $nick) { invite $knick $chan | mode $chan -o+b $nick $address($nick,2) | kick $chan $nick That's my job. } 
  } 
} 
ON *:BAN:#: { 
  if (($nick != $me) && ($nick != L) && ($nick != Q) && (. !isin $nick)) { 
    if ($banmask iswm $address($me,5)) { 
      msg L chanlev $chan $nick -ao | msg Q chanlev $chan $nick -ao+b 
      if ($me isop $chan) { 
        mode $chan -bo+b $banmask $nick $address($nick,2) 
        kick $chan $nick Nice try. 
      } 
      else { set %banner. [ $+ [ $chan ] ] $nick | set %banner-addr. [ $+ [ $chan ] ] $address($nick,2) } 
    } 
    else { mode $chan +b-ob $address($nick,2) $nick $iif($banmask,$banmask,$bnick) | kick $chan $nick Stop that. } 
  } 
  if (($nick == $me) && ($banmask !iswm $address($me,5))) { 
    var %banmask = $iif($banmask,$ifmatch,$address($nick,2)) 
    var %i = 1 | while (%i <= $ialchan(%banmask,$chan,0)) { 
      if ($ialchan(%banmask,$chan,%i).nick ison $chan) { kick $chan $ialchan(%banmask,$chan,%i).nick Banned: $banmask } 
      inc %i 
    } 
  } 
} 

Comments

Sign in to comment.
grinch157   -  Sep 20, 2004

code is code, at times some lines of code may look like someone elses work. but who\'s to say for sure(unless it\'s abovious), however you maybe right neGron.

 Respond  
ReaperX   -  Aug 30, 2004
 Respond  
neGron   -  Aug 30, 2004

btw. he has ripped it all from others. i have seen all the different script inside this, and he hasnt made anything

 Respond  
X-FILE   -  Jul 25, 2004

np , good job btw ;)

 Respond  
Magnetronkip   -  Jul 25, 2004

sorry not good in english

 Respond  
X-FILE   -  Jul 25, 2004

advanced*

 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.