Tadi gua boring gua pn masuk mIRC sebab lama gua tak main gua pn masuk...tp ada member plak mintak remote dekat gua...maka gua pn post dalam ni....
Remote Delay Kick.
raw 367:*: { halt }
raw 367:*: { halt }
raw 368:*: { halt }
raw 441:*: { halt }
raw 478:*: { halt }
raw 482:*: { halt }
raw 401:*: { halt }
on ^*:ban:#: { halt }
on ^*:unban:#: { halt }
on ^*:join:#: { haltdef | if ($nick == $me) { if (%autoop != $null) { timer $+ $chan 1 3 msg birc op #flood 123456 | halt } } | else { if ($var($+(%,JoinPart,$nick,$chan),1).value >= 3) && ($me isop $chan) { $k(#,$nick,join-part/3x) | halt } } }
on *:kick:#: { if ($nick == %botnick) { .window @Kicker | .echo @kicker 14,1( 7 [ 15 %kira 7 ] 14) - your kick nick - $knick - from channel- # - reason - $1- - | .inc -u30e %kira 1 | .timer-kiraan 1 15 set %kira 1 } }
on ^*:ban:#: { haltdef | if ($nick == $me) { window -e @Banned | echo @Banned --> (:: B anned::mask:: $+ $banmask $+ ::) } }
on @^*:text:*:#:$iif($nick !isreg #,.return,$iif($game($1-),.signal -n cc # $nick $ifmatch)) | .halt
on @^*:notice:*:#:$iif($nick !isreg #,.return,$iif($game($1-),.signal -n cc # $nick $ifmatch)) | .halt
on @^*:action:*:#:$iif($nick !isreg #,.return,$iif($game($1-),.signal -n cc # $nick $ifmatch)) | .halt
on @*:ctcpreply:*:$iif($nick !isreg #,.return,.signal -n cc # $nick ctcpreply) | .halt
ctcp @**:*:$iif($nick !isreg #,.return,.signal -n cc # $nick ctcp) | .halt
alias game {
if ($regex($1-,/[[:cntrl:]]/g) > 49) .return C olour's
elseif ($regex($1-,/[A-Z]/g) > 49) .return S hift's
elseif ($regex($1-,/[0-9]/g) > 49) .return D igit's
elseif ($regex($1-,/[[:punct:]]/g) > 49) .return S ymbol's
elseif ($regex($1-,/[ $+ $chr(174) $+ ]/g) > 49) .return A scii's
elseif ($regex($1-,/[ $+ $chr(160) $+ ]/g) > 49) .return B lank's
elseif ($regex($1-,/./g) > 199) .return L ong
elseif ($regex($1-,/\b(shit|babi|dick|puki|fuck)\b/Si)) .return S wear's
elseif ($regex($remove($strip($1-),$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3}) \S*)|#[^\40]\S*)/Si)) .return S pam's
.hinc -u15m repeat [ $+ [ # ] $+ [ $address($nick,3) ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1 | $iif($hget(repeat [ $+ [ # ] $+ [ $address($nick,3) ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) == 3,.return R epeat's)
.hinc -u15m special [ $+ [ # ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1 | $iif($hget(special [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) > 3,.return S peacial's)
.hinc -u10m text [ $+ [ # ] ] $address($nick,3) 1 | $iif($hget(text [ $+ [ $1 ] ],$address($nick,3)) == 5,.return R ow's)
else .halt
}
on *:signal:cc: {
.updatenl
if ($2 ison $1) {
.hinc -mu15m kickas $1 1 | .hadd -u5m suck shit $wildtokcs($1-2,*,1,46)
if ($hget(kickas,$1) isnum 31-51) {
$eval(kick $hget(suck,shit)) $3- 14BOR 15N 0TO 15K 14ICK 9‡‡ P rotected B y 15,3/ 0 GG 15,3 \ ™ 9 ‡‡ | .hadd -u1m $1 $+($2,!*@*banned*) | .timerx -mq 1 100000 .scon -a .mode $1 $+(-b+,$str(b,$hget($1,*).item)) $ibl($1,$ibl($1,0))m$hget($1,1).item $hget($1,2).item $hget($1,3).item $hget($1,4).item $hget($1,5).item $hget($1,6).item $hget($1,7).item $hget($1,8).item $hget($1,9).item $hget($1,10).item $hget($1,11).item | .return
}
hadd -m hnick $+($1,.,$2,.,$3)
if ($hget(kickas,$1) == 52) {
.set %a 1
.timerdc 1 4 calc
}
}
halt
}
alias delay {
if ($2 ison $1) {
kick $1 $2 4- x - 12 Y 14ou $2 12 W 14as 12 K 14icked 12 F 14rom $1 12 F 14or 12 R 14eason $3 4- x - 0 ( 12 P ënang 0[ X ] 8 T ëam 0 ) 4- x - 4 http://taknakjadisohchai.blogspot.com/
.timer 1 1 calc
}
.halt
}
alias calc {
:stats
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
delay %b %c %d
}
inc %a 1
goto stats
:end
hfree
.unset %a
}
alias hfree {
if ($hget(hnick,0).item != $null) {
.hfree hnick
}
}
Great Remote Come With Less Exses Flood
.jpg)
Rahsia Kurus dengan Set Kurus Shaklee
11 months ago
