Semak Ngan Whois...

/*
/whois flood protection (for ircops)
By GT`Crewz

would be 2 /whois's in 5 seconds.
*/
alias max.whois return 2 5
on ^*:snotice:* did a /whois on you.: {
  $iif(!$($+(%,$2,whois),2),set $+(-u,$gettok($max.whois,2,32)) $+(%,$2,whois) 1,inc $+(%,$2,whois) 1)
  if ($($+(%,$2,whois),2) == $gettok($max.whois,1,32)) { unset $($+(%,$2,whois),1) | kill $2 [ /whois abuser - $max.whois in $max.whois.time secs GT`crewz ] }
} 

WelkamBing Script

on *:JOIN:#: {
  if $nick = $me goto 1
  if $asctime(HH:nn:ss) >= 05:00:00 && $asctime(HH:nn:ss) <= 11:59:59 goto 2
  if $asctime(HH:nn:ss) >= 12:00:00 && $asctime(HH:nn:ss) <= 16:59:59 goto 3 
  if $asctime(HH:nn:ss) >= 17:00:00 && $asctime(HH:nn:ss) <= 23:59:59 goto 4
  if $asctime(HH:nn:ss) >= 00:00:00 && $asctime(HH:nn:ss) <= 04:59:59 goto 5
  halt
  :1
  halt
  :2
  notice $nick Selamat Datang ke $chan - Sekarang Jam $asctime(HH:nnTT)
  notice $nick Selamat Pagi $nick - Wekekeke...ENjoy2 Le Yer
  halt
  :3
  notice $nick Selamat Datang ke $chan - Dah Pukul  $asctime(HH:nnTT)
  notice $nick Selamat Tengah Hari $nick - Releks N Enjoy Ya
  halt
  :4
  notice $nick Selamat Datang ke $chan - Sekarang Jam $asctime(HH:nnTT)
  notice $nick Selamat Petang $nick - Enjoy2 Ye
  halt
  :5
  notice $nick Selamat Datang ke $chan - La Ni Pukul $asctime(HH:nnTT)
  notice $nick Good night $nick - Hepi Mengechat La ye...
  halt
}

Anti Inviter

;[-GT`crewz-]
;Tawau-Sabah-Malaysia
;V.0.1 Inviterz
;
on 1:INVITE:#:{
  if $level($maddress($address($nick,5))) == 10 { goto end }
  set %comchan 1
  :check
  if %comchan > $comchan($nick,0) { goto end }
  if $me isop $comchan($nick,%comchan) { goto invkick }
  ; if $me isop $comchan($nick,%comchan) && $nick !isop $comchan($nick,%comchan) { goto invkick }
  inc %comchan 1
  goto check
  :invkick
  /ban $comchan($nick,%comchan) $nick 2
  kick $comchan($nick,%comchan) $nick 0,12No Mass Inviter in here or ur will be go to black list !!!
  inc %comchan 1
  goto check
  :end
  unset %comchan
}
;
;GT`crewz on ur bot !
;makasih!

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