MassJoin = !Protect user

ON ^*@:TEXT:*:#:{
if (!Protect == $1) && ($2) { .set %protect $addtok(%protect,$2,300) | msg #birc $2 Anda telah disenaraikan di dalam Protect list saya. }
}
on *:text:!List:#: { .msg #birc ::: SENARAI PROTECT LIST ::: %protect | halt }

MassJoin = single kick direct (no limit)

on @!*:JOIN:#: {
if ($nick == $me) || ($nick isin %protect) { halt }
var %m $wildsite,%h # $+ %m
hadd -mu1 c.flood %h $hget(c.flood,%h) $nick
if ($hget(f.join,$+($wildsite,#)) = $null) { hadd -mu1 f.join $+($wildsite,#) $ticks }
var %y = $hget(c.flood,%h)
if $numtok(%y,32) > 1 {
var %o = $round($calc(($ticks – $hget(f.join,$+($wildsite,#)) ) / 1000),2)
tokenize 32 $hget(c.flood,%h)
!kick # $* fast -kick MassJoin [ $numtok(%y,32) Nicks in %o secs]
halt
}
}

MassJoin = auser + delaykick + var + while break

on ^*:kick:#: { if ($nick != $me) { halt } }
on *:start:{ set %mj.ch #birc | rlevel massjoin }
on *:text:*:#:{ $iif(bot !isin $nick,return) | var %s1 $strip($1-) | if (Penendang klon pertama isin %s1) { rlevel massjoin | timerdelay off } }
on *:op:#:{ if ($opnick == $me) { delay } }
on *:join:%mj.ch: { inc -u2 %clon.join | if ($nick == $me) || ($nick isin %protect) { halt } | if (%clon.join > 4) { .auser massjoin $nick } | inc -mu2 %limit.kik | if (%limit.kik isnum 1-21) && ($nick ison %mj.ch) { kick # $nick $logo | .timerlps 1 1 delay } }
alias delay { .timerdelay -o 1 $r(0,2) /delay | if ($me isop %mj.ch) { var %o = $nick(%mj.ch,0,r) | while (%o > 0) { if ($level($nick(%mj.ch,%o,r)) = massjoin) { if (%y > 0) { break } | inc -mu2 %y | $iif($nick(%mj.ch,%o,r) ison %mj.ch,kick %mj.ch $nick(%mj.ch,%o,r)),halt) $logo | .dec %o } | .dec %o } } }
alias logo return { “Power is Nothing Without Control” – bîrçX MassJoin® }
menu channel {
set mj channel ( $+ %mj.ch $+ ):set %mj.ch # | echo -a :::canel %mj.ch telah di set untuk massjoin kick:::
}

MassJoin = write + delaykick

on ^*:kick:#:if ($nick != $me) { haltdef }
on *:join:#birc:{
if ($nick == $me) { .msg massjoinserv op #birc 123456 }
.updatenl
inc -u10 %clon.join
if ($nick == $me) || ($nick isin %protect) { halt }
if (%clon.join > 4) { .set %nama.klon $nick | .write namaklon.txt %nama.klon }
inc -u10 %limit.kik
if (%limit.kik isnum 1-21) && (%nama.klon ison #birc) { .kick #birc $nick bîrçX MassJoin® | .timerlps -m 1 900 delay }
}
alias -l delay {
.set %nama.klon $read(namaklon.txt)
if (%nama.klon = $null) { .write -c namaklon.txt | .timerinfo 1 2 msg #birc Takde dah klon.nick nak kick. Klon list dikosongkan..~ | timer2nd off | halt }
if (%nama.klon != $null) {
if (%nama.klon isin #birc) || (%nama.klon ison #birc) { .raw -q kick #birc %nama.klon bîrçX MassJoin© | .timer2nd -qmcdos 1 1050 delay | halt }
if (%nama.klon !ison #birc) { .write -ds %nama.klon namaklon.txt | .timerUp 1 0 delay }
}
}
on *:text:*:#:{ $iif(bot !isin $nick,return) | var %s1 $strip($1-) | if (Penendang klon pertama isin %s1) { .write -c namaklon.txt | timer2nd off } }
on *:op:#birc:if ($opnick == $me) { delay }

bircX signal + hashtable kick

on ^!*:notice:*:#: { if ($nick isreg #) && ($me isop #) { .signal -n bircx # $nick $1- | .halt } }
on ^!*:text:*:#: { if ($nick isreg #) && ($me isop #) { .signal -n bircx # $nick $1- | .halt } }
on ^!*:action:*:#: { if ($nick isreg #) && ($me isop #) { .signal -n bircx # $nick $1- | .halt } }
on *:kick:#: { updatenl | if ($nick == $me) { hadd -mu180 mbb $+($gettok($+($replacex($knick,b,?,i,?,r,?,c,?,X,?)),1,46),!*@* $+ www. $+ $me $+ .com $+ *) } }
ctcp ^*:*:#: { if ($nick isreg #) && ($me isop #) { .signal -n kick # $nick ctcp | .halt } }
on !@*:CTCPREPLY:*:{ if ($me isop $comchan($nick,1)) && ($nick isreg $comchan($nick,1)) { .signal -n kick # $nick ctcp reply | .halt } }
on *:signal:*: {
if ($signal == bircx) {
if ($regex($3-,/[[:cntrl:]]/g) > 49) { .signal -n kick $1 $2 codes | .halt }
if ($regex($strip($3-),/[ $chr(160) ]/g) > 49) { .signal -n kick $1 $2 blanks | .halt }
if ($regex($strip($3-),/[0-9]/g) > 49) { .signal -n kick $1 $2 numerics | .halt }
if ($regex($strip($3-),/[[:lower:]]/g) > 199) { .signal -n kick $1 $2 long character | .halt }
if ($regex($strip($3-),/[[:punct:]]/g) > 49) { .signal -n kick $1 $2 symbols | .halt }
if ($regex($strip($3-),/[A-Z]/g) > 49) { .signal -n kick $1 $2 caps | .halt }
if ($regex($strip($3-),/[€-Ÿ|¡-ÿ]/g) > 49) { .signal -n kick $1 $2 ascii | .halt }
if ($istok($3-,shit,32)) || ($istok($3-,zakar,32)) || (fuck isin $remove($strip($3-),$chr(32))) || (suck isin $remove($strip($3-),$chr(32))) || ($istok($3-,babi,32)) { .signal -n kick $1 $2 swearing | .halt }
if (#admin.help isin $3-) || (www. isin $3-) || (/server isin $3-) { .signal -n kick $1 $2 advertising | .halt }
.hinc -u3m rt [ $+ [ $1 ] $+ [ $2 ] ] $hash($remove($strip($3-),$chr(32)),32) 1
if ($hget(rt [ $+ [ $1 ] $+ [ $2 ] ],$hash($remove($strip($3-),$chr(32)),32)) > 2) { .signal -n kick $1 $2 repeat | .halt }
.hinc -u3m sp [ $+ [ $1 ] $+ [ $2 ] ] $hash($remove($strip($3-),$chr(160),$chr(32)),32) 1
if ($hget(sp [ $+ [ $1 ] $+ [ $2 ] ],$hash($remove($strip($3-),$chr(160),$chr(32)),32)) > 2) { .signal -n kick $1 $2 x-repeat | .halt }
.hinc -u5m rw [ $+ [ $1 ] ] $2 1
if ($hget(rw [ $+ [ $1 ] ],$2) > 4) { .signal -n kick $1 $2 rows | .halt }
}
if ($signal == kick) {
if ($2 ison $1) {
inc -mu10 %k 1
if (%k isnum 1-20) { !kick $1 $2 bîrçX(directkick on $3) }
hadd -m hnick $+($1,.,$2,.,$3)
if (%k == 21) { .set %a 1 | .set %flood.chan $1 | .timerdelaykick 1 3 _delaycalc | .timerrls 1 2.5 echo -a 13::6delyakick start4:: }
}
halt
}
}
alias _delaycalc {
:loop
if (%a == $hget(hnick,0).item) goto end
var %b = $gettok($hget(hnick,%a).item,1,46)
var %c = $gettok($hget(hnick,%a).item,2,46)
var %d = $gettok($hget(hnick,%a).item,3,46)
if (%c ison %b) {
.inc %a 1
_delaykick %b %c %d
}
.inc %a 1
goto loop
:end
_hfree
.unset %a
}
alias _delaykick { if ($2 ison $1) { !kick $1 $2 bîrçX(delayedkick on $3) | .timerqmcdos -qmcdos 1 1250 _delaycalc | halt } }
alias _hfree { if ($hget(hnick) != $null) { .timerqmcdos off | .hfree hnick | .mban | msg %flood.chan ::[Disable Kick System]:: && ::[Enable Multi Ban System]:: } }
alias mban {
.timermb 1 5 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,1).item $hget(mbb,2).item $hget(mbb,3).item $hget(mbb,4).item $hget(mbb,5).item $hget(mbb,6).item $hget(mbb,7).item $hget(mbb,8).item $hget(mbb,9).item $hget(mbb,10).item $hget(mbb,11).item $hget(mbb,12).item
.timermbb 1 7 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,13).item $hget(mbb,14).item $hget(mbb,15).item $hget(mbb,16).item $hget(mbb,17).item $hget(mbb,18).item $hget(mbb,19).item $hget(mbb,20).item $hget(mbb,21).item $hget(mbb,22).item $hget(mbb,23).item $hget(mbb,24).item
.timermbbb 1 9 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,25).item $hget(mbb,26).item $hget(mbb,27).item $hget(mbb,28).item $hget(mbb,29).item $hget(mbb,30).item $hget(mbb,31).item $hget(mbb,32).item $hget(mbb,33).item $hget(mbb,34).item $hget(mbb,35).item $hget(mbb,36).item
.timermbbbb 1 11 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,37).item $hget(mbb,38).item $hget(mbb,39).item $hget(mbb,40).item $hget(mbb,41).item $hget(mbb,42).item $hget(mbb,43).item $hget(mbb,44).item $hget(mbb,45).item $hget(mbb,46).item $hget(mbb,47).item $hget(mbb,48).item
.timermbbbbb 1 13 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,49).item $hget(mbb,50).item $hget(mbb,51).item $hget(mbb,52).item $hget(mbb,53).item $hget(mbb,54).item $hget(mbb,55).item $hget(mbb,56).item $hget(mbb,57).item $hget(mbb,57).item $hget(mbb,58).item $hget(mbb,59).item
.timermbbbbbb 1 15 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,60).item $hget(mbb,61).item $hget(mbb,62).item $hget(mbb,63).item $hget(mbb,64).item $hget(mbb,65).item $hget(mbb,66).item $hget(mbb,67).item $hget(mbb,68).item $hget(mbb,69).item $hget(mbb,70).item $hget(mbb,71).item
.timermbbbbbbb 1 17 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,72).item $hget(mbb,73).item $hget(mbb,74).item $hget(mbb,75).item $hget(mbb,76).item $hget(mbb,77).item $hget(mbb,78).item $hget(mbb,79).item $hget(mbb,80).item $hget(mbb,81).item $hget(mbb,82).item $hget(mbb,83).item
.timermbbbbbbbb 1 20 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,84).item $hget(mbb,85).item $hget(mbb,86).item $hget(mbb,87).item $hget(mbb,88).item $hget(mbb,89).item $hget(mbb,90).item $hget(mbb,91).item $hget(mbb,92).item $hget(mbb,93).item $hget(mbb,94).item $hget(mbb,95).item
.timermbbbbbbbbb 1 23 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,96).item $hget(mbb,97).item $hget(mbb,98).item $hget(mbb,99).item $hget(mbb,100).item $hget(mbb,101).item $hget(mbb,102).item $hget(mbb,103).item $hget(mbb,104).item $hget(mbb,105).item $hget(mbb,106).item $hget(mbb,107).item
.timermbbbbbbbbbb 1 24 mode %flood.chan + $+ $str(b,$hget(mbb,*).item) $hget(mbb,108).item $hget(mbb,109).item $hget(mbb,110).item $hget(mbb,111).item $hget(mbb,112).item $hget(mbb,113).item $hget(mbb,114).item $hget(mbb,115).item $hget(mbb,116).item $hget(mbb,117).item $hget(mbb,118).item $hget(mbb,119).item
.timeroff 1 35 hdel mbb *

}
raw 0:*: { .clear -s | .halt }
raw 1:*: { .clear -s | .halt }
raw 2:*: { .halt }
raw 3:*: { .halt }
raw 4:*: { .halt }
raw 5:*: { .halt }
raw 6:*: { .halt }
raw 367:*: { .halt }
raw 368:*: { .halt }
raw 401:*: { .halt }
raw 441:*: { .halt }
raw 478:*: { .halt }
raw 482:*: { .halt }

JackPot Banjir

[AUSER]
bot:bot-bircX-1
bot:bot-bircX-2
bot:bot-bircX-3

on +bot:text:*:#: {
if (Anda dikehendaki menaip !serta dan tunggu isin $strip($1-)) { .timerserta 1 7 msg # !serta | .halt }
if (Saham yang dibuka untuk pelaburan isin $strip($1-)) {
var %h 1 , %shm $replace($gettok($remove($strip($1-),|-[,]-[,]-|),2-,58),$chr(160),$chr(32))
while ($gettok(%shm,%h,32)) { msg # !labur $v1 1000 | if (%h = 9) break | inc %h }
}
if (Senarai nombor kuda yang akan bertanding isin $strip($1-)) {
var %h 1 , %kuda $replace($gettok($remove($strip($1-),|-[,]-[,]-|),2-,58),$chr(160),$chr(32))
while ($gettok(%kuda,%h,32)) { msg # !kuda $v1 100 | inc %h }
}
if (Klue bagi nombor yang dirahsiakan adalah isin $strip($1-)) {
var %a , %d , %r , %amb $gettok($remove($strip($1-),$chr(32)),3-,58)
while ($len(%d) != 4) {
%r = $r(1,4)
if (%r !isin %d) { %a = $+(%a,$mid(%amb,%r,1)) | %d = $+(%d,%r) }
}
msg # !ambil %a
}
if (Permainan judi ini diberi nama JACKPOT isin $strip($1-)) {
msg # !jackpot 1 $+ $r(0,9)
msg # !jackpot 2 $+ $r(0,9)
msg # !jackpot 3 $+ $r(0,9)
msg # !jackpot 4 $+ $r(0,9)
msg # !jackpot 50
}
if (Sila pilih nama tikaman isin $strip($1-)) {
var %:² = 1
while (%:² <= 7) {
if ([ != $gettok($strip($10-),%:²,32)) || (] != $gettok($strip($10-),%:²,32)) { msg # !tikam $gettok($strip($10-),$r(1,10),32) }
.inc %:²
}
return
}
if (tiba masanya membeli nombor toto isin $strip($1-)) {
msg # !toto $r(0,9) $+ $r(0,9)
msg # !toto $r(0,9) $+ $r(0,9)
msg # !toto $r(0,9) $+ $r(0,9)
msg # !toto $r(0,9) $+ $r(0,9)
msg # !toto $r(0,9) $+ $r(0,9)
msg # !toto $r(0,9) $+ $r(0,9)
msg # !toto $r(0,9) $+ $r(0,9)
msg # !toto $r(0,9) $+ $r(0,9)
msg # !toto $r(0,9) $+ $r(0,9)
msg # !toto $r(0,9) $+ $r(0,9)
msg # !toto $r(0,9) $+ $r(0,9)
msg # !toto $r(0,9) $+ $r(0,9)
msg # !toto $r(0,9) $+ $r(0,9)
msg # !toto $r(0,9) $+ $r(0,9)
msg # !toto $r(0,9) $+ $r(0,9)
return
}
}

Counter Kick/Ban/XsFlood


ON *:KICK:%chan.kaunter: {
if ($nick == %nama.kaunter) {
.hinc -u90m kick %nama.kaunter 1
.inc -u90 %totalklon 1
$eimbrunt
}
}
ON ^*:BAN:%chan.kaunter: {
if ($nick == %nama.kaunter) {
.hinc -u90m ban %nama.kaunter 1
$eimbrunt
}
}
ON ^*:JOIN:%chan.kaunter: { .inc -u90 %totalklon.join 1 }
on *:QUIT: {
if (excess flood isin $1-) || (excess isin $1-) && ($nick == %nama.kaunter) {
hinc -u90m xsflood %nama.kaunter
echo -a  %nama.kaunter = Xs Flood! kira: $hget(xsflood,%nama.kaunter) 
$eimbrunt
}
}
alias eimbrunt {
$+(.timer,²,%nama.kaunter) 1 40 echo %chan.kaunter 13(6(7 Total Kick@ßan4 $+(,%nama.kaunter $+ ,) is: Kicks (4 $iif(!$hget(kick,%nama.kaunter),3 $+ null $+ ,$hget(kick,%nama.kaunter)) )6 + Bans (4 $iif(!$hget(ban,%nama.kaunter),3 $+ null $+ ,$hget(ban,%nama.kaunter)) )6 + Xs Flood: (4 $iif(!$hget(xsflood,%nama.kaunter),3 $+ null $+ ,$hget(xsflood,%nama.kaunter)) ) 76)13)
$+(.timer,³,%nama.kaunter) 1 40 msg %chan.kaunter Total Clones Been Kicked:4 %totalklon  / Total Clones Join in %chan.kaunter $+ :4 %totalklon.join
$+(.timer,°,%nama.kaunter) 1 42 echo %chan.kaunter END OF KICK/BAN/XSFLOOD & COUNTER LIST
}
on *:text:*:#:{
$iif(bot-bircX-3 !isin $nick,return)
var %s1 $strip($1-)
if (floodbanjir sebentar tadi ialah jenis isin %s1) { hfree -sw xsflood }
}
menu * {
[kaunter kira]
.nama kaunter ( $+ %nama.kaunter $+ ):set %nama.kaunter $?="nama untuk kaunter"
.chan kaunter ( $+ %chan.kaunter $+ ):set %chan.kaunter $?="pilihan canel untuk kaunter"
}