Lencana Facebook

Wong MayatHidup | Reka Lencana Anda

12 Feb 2011

personal protection 

on *:BAN:#:{
  if ($banmask iswm $address($me,0)) goto unban
  if ($banmask iswm $address($me,1)) goto unban
  if ($banmask iswm $address($me,2)) goto unban
  if ($banmask iswm $address($me,3)) goto unban
  if ($banmask iswm $address($me,4)) goto unban
  if ($banmask iswm $address($me,5)) goto unban
  if ($banmask iswm $address($me,6)) goto unban
  if ($banmask iswm $address($me,7)) goto unban
  if ($banmask iswm $address($me,8)) goto unban
  if ($banmask iswm $address($me,9)) goto unban
  goto end
  :unban
  set %dick $nick
  cs unban $chan $banmask
  mode $chan -o-b+b %dick $banmask %dick
  kick $chan %dick Auto-Ban Protection & Revenge Triggered.
  mode $chan +b $address(%dick,4)
  goto cou
  :cou
  cs unban $me
  cs invite $chan $me
  join $chan
  goto end
  :end
}
on *:DEOP:#: {
  if ($nick = $me) halt
  if ($opnick == $me && $nick != $me) cs op $chan $me
}
on *:KICK:#:{
  if ($knick == $me) goto rejoin
  halt
  :rejoin
  cs unban $chan $me
  cs invite $chan $me
  join $chan
}
 
 
 
 
heheheheheheh sedot le ga apa apa kok
catat oleh di Tiada ulasan:

8 Feb 2011

remote utk text besoooo

menu channel {
  .bigtext
  ...Say:set %ftaction | bigcolor $??*="Text:"
}
alias bigcolor {
  unset %big.*
  if ($1 = ^^@) {
    set %ba.2 yes
    set %ba.1 $2-
    goto start
  }
  set %ba.1 $1-
  set %ba.2 no
  :start
  :nextba
  if (($left(%ba.1,1) = $null) || ($left(%ba.1,1) = $chr(32))) {
    if ($len(%ba.1) <= 1) {
      if (%ba.2 = yes) {
        goto opers
      }
      goto say
    }
    set %big.1 %big.1 0,1 0 0 0 0 0
    set %big.2 %big.2 0,1 0 0 0 0 0
    set %big.3 %big.3 0,1 0 0 0 0 0
    set %big.4 %big.4 0,1 0 0 0 0 0
    set %big.5 %big.5 0,1 0 0 0 0 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = a) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
    set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
    set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = b) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0,1 0 0
    set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0,1 0 0
    set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0,1 0 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = c) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
    set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
    set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
    set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
    set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = d) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0,1 0 0
    set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0,1 0 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = e) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
    set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
    set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
    set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
    set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = f) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
    set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
    set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
    set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
    set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = g) {
    set %big.1 %big.1 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0,1 0
    set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
    set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0,1 0
    set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.5 %big.5 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0,1 0 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = h) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
    set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = i) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
    set %big.2 %big.2 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0
    set %big.3 %big.3 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0
    set %big.4 %big.4 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0
    set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = J) {
    set %big.1 %big.1 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
    set %big.2 %big.2 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0
    set %big.3 %big.3 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0
    set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0
    set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0,1 0 0 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = k) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
    set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0,1 0 0 0 0
    set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
    set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = l) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
    set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
    set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
    set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
    set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = m) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0,1 0
    set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = n) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0,1 0
    set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0,1 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = o) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0,1 0
    set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0,1 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = p) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0,1 0
    set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0,1 0
    set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0 0
    set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = q) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0,1 0 0
    set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
    set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
    set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0,1 0 0
    set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0 0,1 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = r) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0,1 0 0
    set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0,1 0
    set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0,1 0 0 0
    set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
    set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = s) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0,1 0
    set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0 0
    set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0,1 0
    set %big.4 %big.4 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0,1 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = t) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0 0,1 0
    set %big.2 %big.2 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0
    set %big.3 %big.3 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0
    set %big.4 %big.4 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0
    set %big.5 %big.5 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = u) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0 0,1 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = v) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.3 %big.3 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
    set %big.4 %big.4 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0
    set %big.5 %big.5 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = w) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0 0 0 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.3 %big.3 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
    set %big.4 %big.4 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0
    set %big.5 %big.5 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = x) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.2 %big.2 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
    set %big.3 %big.3 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0,1 0 0 0
    set %big.4 %big.4 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
    set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = y) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.2 %big.2 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
    set %big.3 %big.3 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0,1 0 0 0
    set %big.4 %big.4 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0
    set %big.5 %big.5 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = z) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0 0,1 0
    set %big.2 %big.2 0,1 0 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
    set %big.3 %big.3 0,1 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0
    set %big.4 %big.4 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0 0
    set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0 0,1 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = -) {
    set %big.1 %big.1 0,1 0 0 0 0 0 0 0 0
    set %big.2 %big.2 0,1 0 0 0 0 0 0 0 0
    set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0 0 0,1 0
    set %big.4 %big.4 0,1 0 0 0 0 0 0 0 0
    set %big.5 %big.5 0,1 0 0 0 0 0 0 0 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = ?) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0 0,1 0 0
    set %big.2 %big.2 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.3 %big.3 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0,1 0 0
    set %big.4 %big.4 0,1 0 0 0 0 0 0 0
    set %big.5 %big.5 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = !) {
    set %big.1 %big.1 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
    set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0 0,1 0
    set %big.3 %big.3 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
    set %big.4 %big.4 0,1 0 0 0 0 0
    set %big.5 %big.5 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = ') {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.2 %big.2 0,1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0,1 0
    set %big.3 %big.3 0,1 0 0 0
    set %big.4 %big.4 0,1 0 0 0
    set %big.5 %big.5 0,1 0 0 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = :) {
    set %big.1 %big.1 0,1 0 0 0
    set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.3 %big.3 0,1 0 0 0
    set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.5 %big.5 0,1 0 0 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = $chr(41)) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0,1 0
    set %big.2 %big.2 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0,1 0
    set %big.3 %big.3 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0,1 0
    set %big.4 %big.4 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0,1 0
    set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0 0,1 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = $chr(124)) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.2 %big.2 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.4 %big.4 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = <) {
    set %big.1 %big.1 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.2 %big.2 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0
    set %big.3 %big.3 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
    set %big.4 %big.4 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0
    set %big.5 %big.5 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = >) {
    set %big.1 %big.1 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
    set %big.2 %big.2 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0
    set %big.3 %big.3 0,1 0 0 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %big.4 %big.4 0,1 0 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0
    set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0 0 0 0 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  if ($left(%ba.1,1) = .) {
    set %big.1 %big.1 0,1 0 0 0
    set %big.2 %big.2 0,1 0 0 0
    set %big.3 %big.3 0,1 0 0 0
    set %big.4 %big.4 0,1 0 0 0
    set %big.5 %big.5 $+ $rand(4,15) $+ , $+ $rand(4,15) 0 0,1 0
    set %ba.1 $mid(%ba.1,2,5000)
    goto nextba
  }
  set %ba.1 $mid(%ba.1,2,5000)
  goto nextba
  :opers
  notice @ $+ $chan %big.1
  notice @ $+ $chan %big.2
  notice @ $+ $chan %big.3
  notice @ $+ $chan %big.4
  notice @ $+ $chan %big.5
  goto end
  :say
  %ftaction say %big.1
  %ftaction say %big.2
  %ftaction say %big.3
  %ftaction say %big.4
  %ftaction say %big.5
  :end
  .unset %ftaction
  .unset %ba.*
  .unset %big.*
}
catat oleh di Tiada ulasan:

7 Feb 2011

remote reveng yg gitu2 ja


on *:kick:#: { if ($knick == $me) { .set %knick $nick | .auser 70 $nick | .raw kick # $nick %Ec } }
on @70:join:#: { if ($me isop #) { .raw kick # %knick Revenge.inC %eC | .ban $nick } }
on *:op:#: { if ($opnick == $me) && (%knick ison #) { .raw kick # %knick } }
catat oleh di Tiada ulasan:

6 Feb 2011

simple revenge


on *:kick:#:{ if ($knick == $me) && ($nick != ChanServ) { set %kchan $chan | set %knick $nick | raw -q join $chan } }

on *:op:%kchan:{ if ($opnick == $me) && (%knick ison %kchan) { raw -q kick %kchan %knick ��<>�� R-E-V-E-N-G-E ��<>�� | unset %kchan | unset %knick } }

catat oleh di Tiada ulasan:

amik le amik le amik le 

on *:TEXT:*:#:{
  if (%flood. [ $+ [ $chan ] ] == on) {
    inc -u5 %flood. [ $+ [ $nick ] ] 1
    if (%flood. [ $+ [ $nick ] ] >= 5) {
      /mode $chan +b $address($nick,0)
      /kick $chan $nick Flood Protection activated! This ban will expire in 10 minutes.
      .timer 1 600 /mode $chan -b $address($nick,0)
    }
  }
}
on *:TEXT:!flood *:#:{
  if ($nick isop $chan) {
    if ($2 == on) {
      set %flood. [ $+ [ $chan ] ] on
      msg $chan Flood protection now on. People will now be kick with 5 lines or more.
    }
    if ($2 == off) {
      unset %flood. [ $+ [ $chan ] ]
      msg $chan Flood protection now off.
    }
  }
  else {
    msg $chan Error: op je yg leh kai command ni.
  }
}
 
catat oleh di Tiada ulasan:

5 Feb 2011

revengkick gengtegar


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; simple revenge kick [war kick]                                                ;;
;; By :: gengtegar@mayat^hidup^                                                               ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on *:load:{
  SET %warchanx
  set %warnick
  set %warip
  set %kicked 0
  set %kicking 0
  set %kcnt
  set %nick $$?="Nick for war"
  set %pass $$?="NIck Password"
}
#mhkick off
raw 001:*:{ ns sidentify %nick %pass | $iif(%warchan != $null, invite %warchan) }
raw 474:%warchan:{ cs invite %warchan | halt }
raw 473:%warchan:{ cs invite %warchan | halt }
raw 477:%warchan:{ cs invite %warchan | halt }

on *:signal:kickx:{
  kick $1-
}

on *:kick:#: {
if ($me !isop #) { return }
  if (($nick == $me) && ($knick == $me)) { return }
  if ($nick != $me) && ($me == $knick) {
    set %warnick $nick
    set %warip $address($nick,4)
    if ($chan != $null) && (%warchanx != $chan)  set %warchanx  $chan
    cs deop # $nick
    .timeri -m 1 800 invite #
    .timerk -m 1 1200 .signal -nt kickx # %warnick
4You Kick Me first!! This is my revenge
7!!StaRt
    inc %kicked
    inc %kcnt
    if (%kcnt >= 6) { set %kcnt | $recon }
    halt
  }
  if ($nick == $me) && ($me != $knick) {
    inc %kicking
    inc %kcnt
    if (%kcnt >= 6) { set %kcnt | $recon }
    halt
  }
}

alias recon {
  /server
}
on *:invite:%warchan:{ echo -s $1- }
on *:connect:{
  /.autojoin -s
set %mst 0
;  .timerz  1 3 /ns sidentify %nick %pass
;  .timerc  1 5 /invite %warchanx
;  .timerv  1 8 /.signal -nt kickx %warchanx %warnick revange kick - %kicking
}

on *:join:%warchanx:{
if ($me !isop #) { return }
  if ($nick == $me) && (%mst == 0) ( set %mst 1 | signal -n kickx # %warip revange kick - %kicking | halt }
  if (%warnick == $nick) { .signal -n kickx # %warnick revange kick - %kicking | halt }
  if (($address($nick,4) == %warip) && ($nick != $me))  { set %warnick $nick | .signal -nt kickx # %warip revange kick - %kicking | halt }
}

on *:deop:%warchanx:{
  if ($nick == $me) { halt }
  if ($opnick == $me) {
    cs op # $me
    if (%warnick ison #) { .signal -nt kickx # %warnick revange kick - %kicking | halt }
  }
}

on *:op:%warchanx:{
  if ($opnick == $me) {
    if (%warnick ison #) { .signal -nt kickx # %warnick revange kick - %kicking | halt }
  }
}

on *:part:%warchanx:{
if ($nick == $me) { set %mst 0 }
}

on *:Nick:{
if ($nick = %warnick) set %warnick $newnick
}

#mhkick end

menu channel {
  MH Revange Kick
  .Mode- $+ $group(#mhkick):/$iif($group(#mhkick) == on,.disable,.enable) #mhkick
  .Resault:/echo -a Resault::[[ $me Vs %warnick ]]:: Kicking %kicking :: Kicked %kicked ::
  .Clear:/set %warchanx | set %warnick | set %warip | set %kcnt 0 | set %kicking 0 | set %kicked 0
  .Nick:/set %nick $$?="you nick" | /set %pass $$?="nick password"
}
menu nicklist {
  MH Revange Kick
  .Add Kick:/.enable #mhkick | set %warnick $$1 | set %warchanx $chan | set %warip $address($1,4) | .timerkjh 1 2 .signal -n kickx $chan %warnick
4!!Kicked You!!
12Added To List::
}


catat oleh di Tiada ulasan:
Langgan: Catatan (Atom)