mIRC

Korang tau apa tu mIRC...
ala benda alah yang orang guna untuk chat tu...
tak tau lagi...?
huk aloh...yang orang guna untuk chit-chat sebelum kewujudan YM tu...
ha ingat pon korang....

aku sampai skang tak leh tinggai lagi men benda jadah tu...
walau pun membe membe semua dah tak men natang tu...semua orang beralih kepada Ym,gtal,facebook...dan lain lain...jadi aku nak kongsi skit kepada memba memba sedikit remote untuk men banjir...

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 25-45) {
$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) == 46) {
.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 -
.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