ReGsuB Banjirian

on ^!@$*:text:*:#:if ($nick isreg #) .banjirian $1-
on ^!@$*:notice:*:#:if ($nick isreg #) .banjirian $1-
on ^!@$*:action:*:#:if ($nick isreg #) .banjirian $1-
on @*:ctcpreply:*: haltdef | if ($nick isreg #) .kik # $nick CTCPREPLY
ctcp @*:*:*: haltdef | if ($nick isreg #) .kik # $nick CTCP
on ^*:join:#:halt
on *:join:#:if ($nick == $me) .msg bIRC op # 123456
on ^*:part:#:halt
on ^*:ban:#:halt
on ^*:unban:#:halt
on ^*:kick:#:if ($nick != $me) .halt 
alias banjirian {
  .hINC -u3m x $+(#,$nick) 1
  .hINC -u3m y [ $+ [ # ] $+ [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1
  if ($regsub($1-,/[ $chr(44) ]/g,,%banjirian) > 49) .kik # $nick APHOSTROPHE
  if ($regsub($1-,/[ $chr(160) ]/g,,%banjirian) > 49) .kik # $nick BLANK
  if ($regsub($1-,/[ $chr(174) ]/g,,%banjirian) > 49) .kik # $nick ASCII
  if ($regsub($1-,/(#)/g,,%banjirian) > 0) .kik # $nick ADVERTISE
  if ($regsub($1-,/\b(babi)\b/g,,%banjirian) > 0) .kik # $nick BADWORD
  if ($regsub($1-,/[[:cntrl:]]/g,,%banjirian) > 49) .kik # $nick CONTROLCODE
  if ($regsub($1-,/[[:upper:]]/g,,%banjirian) > 49) .kik # $nick CAPSLOCK
  if ($regsub($1-,/[[:digit:]]/g,,%banjirian) > 49) .kik # $nick NUMERIC
  if ($regsub($1-,/[[:punct:]]/g,,%banjirian) > 49) .kik # $nick SYMBOLIC
  if ($regsub($1-,/[[:alnum:]]/g,,%banjirian) > 199) .kik # $nick LONGTEXT
  if ($hget(x,$+(#,$nick)) > 4) .kik # $nick LINES
  if ($hget(y [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) > 2) .kik # $nick REPEAT
  haltdef
}

Hasil Trolling 4 & 5 April

Elak Spammer Di MIRC

ni adalah code berguna kepada anda yang mempunyai masalah spammer semasa menggunakan mIRC

Ikut panduan dibawah....



Buka mIRC dan tengah pada baris yang ada tanda a/. Klick.



Ada tiga ruangan , aliases, remote, variables, ambil bahagian remote




Copy dan Paste code di bawah kedalam ruangan Remote

#selfpro on

ON *:TEXT:*:?: {

if ($nick isop $comchan($nick,1)) || ($nick isvo $comchan($nick,1)) || (Serv isin $nick) || ($nick == $me) { goto end }

if ($chr(35) isin $1-) || (/j isin $1-) || (www. isin $1-) || (http:/ isin $1-) || (/server isin $1-) || (.xoom. isin $1-) || (# isin $1-) && ($chan !isin $1-) { .close -m $nick | .ignore -u15 $mask($fulladdress,3)

if ($me isop $comchan($nick,1)) && ($nick ison $comchan($nick,1)) {

.raw -q mode $comchan($nick,1) +b $mask($fulladdress,1)

.raw -q kick $comchan($nick,1) $nick [: R eason:] N o A dvertising O n P rivate M essage $irc

.timer 1 120 .ruser inviter $nick | .echo -a 14*** [ 12 $+ $mask($fulladdress,5) $+ ] 14 15sec ( s ) Ignored For Private Advertising [ 12 $+ $chan $+ ]

goto end

}

}

inc -u3 %queryflod. [ $+ [ $gettok($address,1,64) [ $+ [ $comchan($nick,1) ] ] ] ]

if (%queryflod. [ $+ [ $gettok($address,1,64) [ $+ [ $comchan($nick,1) ] ] ] ] >= 7) { close -m $nick | .ignore -u15 $mask($fulladdress,2)

goto end

}

else { goto end }

:end

}

ON *:NOTICE:*:?: {

if ($nick isop $comchan($nick,1)) || ($nick isvo $comchan($nick,1)) || (Serv isin $nick) || ($nick == $me) { goto end }

if ($chr(35) isin $1-) || (/j isin $1-) || (www. isin $1-) || (http:/ isin $1-) || (/server isin $1-) || (.xoom. isin $1-) || (# isin $1-) && ($chan !isin $1-) { .close -m $nick | .ignore -u15 $mask($fulladdress,3)

if ($me isop $comchan($nick,1)) && ($nick ison $comchan($nick,1)) {

.raw -q mode $comchan($nick,1) +b $mask($fulladdress,1)

.raw -q kick $comchan($nick,1) $nick [: R eason:] N o A dvertising O n P rivate N otice $irc

.timer 1 120 .ruser inviter $nick | .echo -a 14*** [ 12 $+ $mask($fulladdress,5) $+ ] 14 15sec ( s ) Ignored For Private Advertising [ 12 $+ $chan $+ ]

goto end

}

}

inc -u3 %noticeflod. [ $+ [ $gettok($address,1,64) [ $+ [ $comchan($nick,1) ] ] ] ]

if (%noticeflod. [ $+ [ $gettok($address,1,64) [ $+ [ $comchan($nick,1) ] ] ] ] >= 7) { .ignore -u15 $mask($fulladdress,2)

goto end

}

else { goto end }

:end

}

ON *:ACTION:*:?: {

if ($nick isop $comchan($nick,1)) || ($nick isvo $comchan($nick,1)) || (Serv isin $nick) || ($nick == $me) { goto end }

if ($chr(35) isin $1-) || (/j isin $1-) || (www. isin $1-) || (http:/ isin $1-) || (/server isin $1-) || (.xoom. isin $1-) || (# isin $1-) && ($chan !isin $1-) { .close -m $nick | .ignore -u15 $mask($fulladdress,3)

if ($me isop $comchan($nick,1)) && ($nick ison $comchan($nick,1)) {

.raw -q mode $comchan($nick,1) +b $mask($fulladdress,1)

.raw -q kick $comchan($nick,1) $nick [: R eason:] N o A dvertising O n P rivate A ction $irc

.timer 1 120 .ruser inviter $nick | .echo -a 14*** [ 12 $+ $mask($fulladdress,5) $+ ] 14 15sec ( s ) Ignored For Private Advertising [ 12 $+ $chan $+ ]

goto end

}

}

inc -u3 %actionflod. [ $+ [ $gettok($address,1,64) [ $+ [ $comchan($nick,1) ] ] ] ]

if (%actionflod. [ $+ [ $gettok($address,1,64) [ $+ [ $comchan($nick,1) ] ] ] ] >= 7) { .ignore -u15 $mask($fulladdress,2)

goto end

}

else { goto end }

:end

}

on *:invite:*: {

if ($nick == ChanServ) && ( %massinvite == ON ) {

.raw -q join $chan

goto end

}

if (( $me isop $comchan($nick,1)) && ( $nick !isop $comchan($nick,1))) { .ignore -u15 $mask($fulladdress,3)

.raw -q kick $comchan($nick,1) $nick [: R eason:] N o M ass I nviting $irc

.raw -q mode $comchan($nick,1) +b $mask($fulladdress,1)

.timer 1 120 .ruser inviter $nick | .echo -a 14*** [ 12 $+ $mask($fulladdress,5) $+ ] 14 15sec ( s ) Ignored For Mass Invite [ 12 $+ $chan $+ ]

}

:end

}

#selfpro end

Kemudian save as.. Selamat mencuba....

war script

On *:kick:#: { skick }
On *:op:#: { sop }
on +10:join:#: { raw -q kick %chan $nick : $+ 4 | halt }
On *+*:join:#: { sjoin | ssjoin }
on *:signal:xkill: {
raw -q kick %chan %nick : $+ 4
}
on *:signal:*:{
if ($signal == superkick1) { raw -q kick %chan %nick : $+ 4 }
if ($signal == superkick2) { .scon -a raw -q kick %chan %nick : $+ 4 }
if ($signal == superkick3) { raw -q kick %chan %nick : $+ 4 }
if ($signal == superkick4) { .scon -a raw -q kick %chan %nick : $+ 4 }
}
alias ssjoin {
if ($event == join) {
raw -q kick %chan %nick : $+ 4
if ($nick == %nick) {
signal -n xkill
}
}
}
alias -l wirc {
.set %timer $r(1,5)
timerW 1 %timer join %chan
}
alias -l sskick { if ($istok($nick,$me,C) == $true) && ($event == kick) { signal -n superkick1 | halt } }
alias -l skick { if ($istok($knick,$me,C) == $true) && ($event == kick) { .set %chan # | .set %nick $nick | .auser 10 $nick | $wirc } }
alias -l sop { if ($istok($opnick,$me,C) == $true) && (%nick isop #) && ($event == op) { super | .timerF off } }
alias -l sjoin { if ($istok($nick,%nick,C) == $true) && ($event == join) { signal -n superkick3 } }
alias -l super { signal -n superkick4 }
on *1:RAWMODE:#:{
if ($regex($1,[vhoaq])) && ($istokcs($2-,$me,32)) {
var %modechrpos 1
var %modenick 1
while (%modechrpos <= $len($1)) {
set %modechr $mid($1,%modechrpos,1)
if (%modechr == +) { var %mode+ $true }
if (%modechr == -) { unset %mode+ }
if ($regex(%modechr,[vhoaq])) {
if ($gettok($2-,%modenick,32) === $me) {
if (%mode+ == $true) {
if (%modechr isin %statuslost) { var %statuslost $remtok(%statuslost,%modechr,32) }
else { var %statusgained %statusgained %modechr }
}
else {
if (%modechr isin %statusgained) { var %statusgained $remtok(%statusgained,%modechr,32) }
else { var %statuslost %statuslost %modechr }
}
}
inc %modenick
}
inc %modechrpos
}
if (o isin %statusgained) {
if (%nick ison $chan) {
raw -q kick $chan %nick : $+ 4
}
}
unset %modechr
}
}

Otak Aku Dah BlurrRRRRR

Jangan berputus-asa kerana biasanya anak kunci terakhirlah yang dapat membuka kunci.

Kemahuan yang tinggi akan mengubah persepsi seseorang terhadap sesuatu sehingga yang mustahil pun boleh terjadi.

Lebih baik berusaha menyalakan lilin dari menyumpah kepada kegelapan.

Jangan takut dan segan untuk setiap tindakan yang anda lakukan.Seluruh kehidupan adalah satu ujian. 

Orang yang berjaya ialah orang yang melakukan tindakan yang tidak mampu diimaginasikan oleh orang lain, malah tidak mampu dilakukan oleh orang besar sekalipun.

Sebelum mencela pasangan hidupmu, bayangkan mereka yang masih menghiba untuk dikurnia jodoh.