;------------------------------------;
; MeProtection (revised: 2004-08-20) ;	      
;--------------------------------- --;
; Download auf www.Ger.Tschako.de.vu ;
; E-Mail: Ger.Tschako@web.de         ;
;------------------------------------;

alias mp-on { load -rs MeProtection.mrc }
alias mp-off { unload -rs MeProtection.mrc }

on *:load:{
  echo -a 1,02 -= MeProtection 3On2 - Du bist nun sicher ! =- 
  set %BC $$?"Bitch Mode Channel (#Channel)"
}

on *:unload:{
  echo -a 1,02 -= MeProtection 4Off2 - Du bist nun unsicher ! =-
}

on @*:ban:#:{ 
  if (($banmask iswm $address($me,5)) && ($nick != $me)) {
    msg $iif(Q ison $chan,q,l) chanlev $chan $nick -amo 
    mode $chan -bo+b $banmask $nick $address($nick,2)
    kick $chan $nick 4Don`t1 ban me !!
  } 
}

on *:kick:#:{ if (($knick == $me) && ($nick != $me)) { 
    mode $chan -o+b $banmask $nick $address($nick,2)
    msg $iif(Q ison $chan,q,l) chanlev $chan $nick -amo
    msg $iif(Q ison $chan,q,l) bandel $chan #1
    msg $iif(Q ison $chan,q,l) invite $chan
    msg $iif(Q ison $chan,q,l) deopall $chan | join $chan
    msg $iif(q ison $chan,q,l) op $chan
    msg $iif(Q ison $chan,q,l) unbanall $chan 
    mode $chan -o+b $banmask $nick $address($nick,2)
    kick $chan $nick 4Don`t1 kick me !!
  } 
}

on *:deop:#:{ if (($opnick == $me) && ($nick != $me)) {
    msg $iif(Q ison $chan,q,l) chanlev $chan $nick -amo 
    msg $iif(q ison $chan,q,l) op $chan
    timer 1 1 mode $chan -o+b $nick $address($nick,2)
    timer 1 2 kick $chan $nick 4Don`t1 deop me !! 
  } 
}

on *:op:$(%BC): { if $istok(Q L $me,$nick,32)) { return }
  if (($me isop $chan) && ($opnick != $me)) { 
    mode $chan -o $opnick  
  msg $chan « Bitch Mode on «•» Don`t OP a User »» }
} 
}