24 March 2012

Sesuatu Yang Lain Di Sini




Teman,

Jadikanlah kelmarin sebagai Muhasabah

Jadikanlah hari ini sebagai Mujahadah

Dan jadikanlah hari esok sebagai natijah muhasabah kelmarin dan mujahadah hari ini.

Teman,

Kata orang, barang yang lepas jangan dikenang...

Sepatutnya perlu dikenang...agar ia menjadi panduan dan pengajaran untuk kita lalui hari ini dan hari esok...

Jika kelmarin penuh bersinar, hari ini kemilaukanlah sinar itu dan esok jadikanlah ia bergemerlapan..

Namun jika kelmarin suram cahayanya, hari ini cubalah kau teranginya sedaya mampu agar esok ia akan bergemerlapan jua...

Jika hendak menangis untuk kelmarin, titiskanlah tangisan muhasabah yang akan menjana mujahadah dan natijah..

Wekekek Wekekek Wekeke.....Ntah Ape2 Je

#regsubGTcrewz

on *+*:kick:#: {
if ($regsub($knick,$me,,%var) ) {
.timer -m 1 150 join #
.set %n $nick | .set %c $chan | .auser 20 $nick 
.timer -mc 10 $and(15,100) $eval(!kick) %c %n Fell The Power Of War | $eval(.raw -q kick %c %n) $VER
}
}
if $eval($regsub($knick,%n,,%var) {
{ .timer -mc 10 $r(25,700) $eval(!kick) %c %n Secret Of The War }
}
on *:join:#rekick: {
if $nick == %n { timerJ -m 10 $random(10,001) !kick %c %n death Mode $a }
haltdef 
}
on *:op:#rekick: {
if $opnick ison %c { timerO -m 10 60 !kick %c %n Opnick $a }
haltdef
}
on *:join:%c:{
if ($regsub($nick,$me,,%var) ) {
{ .timer -mc 10 $rand(80,120) $eval(!kick) %c %n Go to Death $a }
}
if (%n ison %c) {
{ .timer -mc 10 $rand(30,90) $eval(!kick) %c %n Life Or Death? $a }
}
}
on ^20:join:%c: {
if (%n ison %c) {
{ $eval(.raw -q-q-q kick %c %n) Ready to Death %n $a }
}
}
on *:op:#rekick:{
if ($regsub($opnick,$me,,%var) ) {
{ .timer -mc 10 $rand(90,150) $eval(!kick) %c %n $VER }
}
}
On *:join:*: { if (%n ison %c && $event == join) timerJ -m 10 100 kick %c %n AneMy In List | !kick %c %n War Mode Tester } 
On *+*:connect: { .timer -mc 10 $rand(0,120) $eval(kick %c %n) $VER }
on *:op:#rekick:{
if ($regsub($opnick,$me,,%var) ) {
{ .timerop -mc 10 $r(350,0) $eval(!kick) %c %n $VER }
}
}
alias VER return Revenge Master $RANDOM(Timer) Kickers 
#regsubGTcrewz END

Drone Kicker

on @*:join:#:{ 
  .timer [ $+ [ $nick ] ] 1 $r(2,6) /check $nick $chan 
} 
raw 307:*:{ .set -u3 %clean [ $+ [ $2 ] ] 1 } 
raw 319:*:{ $iif(!$window(@raw) , window -ak[0] @raw) 
  if (%clean [ $+ [ $2 ] ]) && ($2 isreg $comchan($2,1)) { .timer 1 3 $iif($2 isreg $comchan($2,1) ,/mode $comchan($2,1) +u $2) }  
  .echo @raw $2 / $3- : 4 total $gettok($3-,0,35) channel / $iif(!%clean [ $+ [ $2 ] ] ,Possibly An Inviter Or Drone, 3is a registered nick) 
  if ($gettok($3-,0,35) >= 5) && (!%clean [ $+ [ $2 ] ]) && ($chr(64) !isin $3-) && ($chr(43) !isin $3-) && ($comchan($2,1).op == $true) && ($2 ison $comchan($2,1)) && ($comchan($2,1) != #eropah) { 
    .ban -ku600 $comchan($2,1) $2 9 %naruto [ $+ [ $r(1,3) ] ] // U Has Got The Criteria Of An Drone / Inviter ...so Begone!.. (at least...use registered nick Okek!) v1.2 / Rule's is Rule's Nobody Can Run From it. (Ho Ho Ho! 
    halt 
  } 
} 
alias check { if ($1 != $null) && ($1 ison $2) && ($1 isreg $2) { ;echo -a 9***Inviter Check's for : $1 in $2 | .whois $1 } }

Script Selamat Datang

on *!:JOIN:#:{ if ($nick == $nick) msg $chan Hello $nick .... Selamat datang di chanel ini        }

23 March 2012

Cara update status Facebook via iPhone secara percuma


  • Langkah pertama, sila log in Facebook anda.
  • Sila klik sini untuk update status Facebook via iPhone secara percuma.
  • Selesai.

22 March 2012

MassJoin = single kick direct (no limit) by masta zildjan

 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
 }
 }

Alias Kick Delay ---- Wachaaaaa

alias kik {
  inc -u30 %x
  .set %nick $nick | set %chan $chan | set %reason $1- | .write clone.txt %nick | .timerclear -o 1 200 write -c clone.txt
  if (%x isnum 0-20) && (%nick ison %chan) { .kick %chan %nick %reason }
  if (%x > 50) { .timerdelay -om 1 1000 delay }
  haltdef | return
}
alias delay {
  .set %nick $read(clone.txt)
  if (%nick != $null) {
    if (%nick ison %chan) { .kick %chan %nick %reason | .timerdelays -om 1 980 delay }
    if (%nick !ison %chan) { .write -ds %nick clone.txt | .timerloopkik 1 0 delay }
  }
}

Tengok2 Le Ape Yg Patut...N Edit

on *:start:{
  server <network1>
  server -m <network2>
  server -m <network3>
  server -m <network4>
}
on ^*:notice:*nick*is registered*:*:{
  if $nick == Nickserv {    .msg $nick identify <password>  }
  else {    .msg $me 4 $nick attempted to get your password on $network  }
}
on *:connect:{
  if <network1> isin $network {    .oper <name> <password>  }
  elseif <network2> isin $network {    .oper <name> <password>  }
  var %nick = $readini(Disconnect.ini,n,$network,Nick)
  if %nick != $me {    .nick $v1  }
}
on *:snotice:%nick * is already in use* {
  .msg nickserv ghost %nick
}
on *:notice:Ghost with your nick has been killed*:*:{
  .nick %nick
}
on *:disconnect:{
  if $me && $network {
    .writeini -n Disconnect.ini $network Nick $me
    var %a = 1, %b = $chan(0)
    while %a <= %b {
      .writeini -n Disconnect.ini $network $+(Channel,%a) $chan(%a) $chan(%a).key
      inc %a
    }
  }
}

remote banjirian oleh masta ---> ni3

on @!^*:text:*:#: { if ($nick isreg #) { $banjirian($1-) | haltdef } }
on @!^*:notice:*:#: { if ($nick isreg #) { $banjirian($1-) | haltdef } }
on @!^*:action:*:#: { if ($nick isreg #) { $banjirian($1-) | haltdef } }

alias banjirian {
if ($regex($1-,/[[:cntrl:]]/g) > 49) $goto.kick codes
if ($regex($1-,/[[:upper:]]/g) > 49) $goto.kick caps
if ($regex($1-,/[[:digit:]]/g) > 49) $goto.kick number
if ($regex($1-,/[[:punct:]]/g) > 49) $goto.kick symbol
if ($regex($1-,/[ $chr(160) ]/g) > 49) $goto.kick blur
if ($regex($1-,/[ $chr(174) ]/g) > 49) $goto.kick ascii
if ($regex($1-,/[[:lower:]]/g) > 199) $goto.kick lenght
if ($regex($1-,/\b(f**k|suck|babi|puki|pregnant dog|thingy)\b/Si)) $goto.kick badword
if ($regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3})\S*)|#[^\40]\S*)/Si)) $goto.kick advertise
}

alias banjirian {
hadd -u2m a $nick $regex($1-,/[[:cntrl:]]/g)
if ($hget(a,$nick) > 49) $goto.kick codes
hadd -u2m b $nick $regex($1-,/[[:upper:]]/g)
if ($hget(b,$nick) > 49) $goto.kick caps
hadd -u2m c $nick $regex($1-,/[[:digit:]]/g)
if ($hget(c,$nick) > 49) $goto.kick number
hadd -u2m d $nick $regex($1-,/[[:punct:]]/g)
if ($hget(d,$nick) > 49) $goto.kick symbol
hadd -u2m e $nick $regex($1-,/[ $chr(160) ]/g)
if ($hget(e,$nick) > 49) $goto.kick blur
hadd -u2m f $nick $regex($1-,/[ $chr(174) ]/g)
if ($hget(f,$nick) > 49) $goto.kick ascii
hadd -u2m g $nick $regex($1-,/[[:lower:]]/g)
if ($hget(g,$nick) > 199) $goto.kick lenght
hadd -u2m h $nick $regex($1-,/\b(f**k|suck|babi|puki|pregnant dog|thingy)\b/Si))
if ($hget(h,$nick)) $goto.kick badword
hadd -u2m i $nick $regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3})\S*)|#[^\40]\S*)/Si))
if ($hget(i,$nick)) $goto.kick advertise
}

alias banjirian {
if ($regsub($1-,/[[:cntrl:]]/g,,%banjirian)) > 49) $goto.kick codes
if ($regsub($1-,/[[:upper:]]/g,,%banjirian)) > 49) $goto.kick caps
if ($regsub($1-,/[[:digit:]]/g,,%banjirian)) > 49) $goto.kick number
if ($regsub($1-,/[[:punct:]]/g,,%banjirian)) > 49) $goto.kick symbol
if ($regsub($1-,/[ $chr(160) ]/g,,%banjirian)) > 49) $goto.kick blur
if ($regsub($1-,/[ $chr(174) ]/g,,%banjirian)) > 49) $goto.kick ascii
if ($regsub($1-,/[[:lower:]]/g,,%banjirian)) > 199) $goto.kick lenght
if ($regsub($1-,/\b(f**k|suck|babi|puki|pregnant dog|thingy)\b/Si,,%banjirian))) $goto.kick badword
if ($regsub($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3})\S*)|#[^\40]\S*)/Si,,%banjirian))) $goto.kick advertise
}

alias banjirian {
var %dlla = $dll(aircdll.dll,Flood,$+(dlla,$chan,$nick,$ticks $regex($1-,/[[:cntrl:]]/g)) 50 1)
if (+FLOOD* > %dlla) $goto.kick codes
var %dllb = $dll(aircdll.dll,Flood,$+(dllb,$chan,$nick,$ticks $regex($1-,/[[:upper:]]/g)) 50 1)
if (+FLOOD* > %dllb) $goto.kick caps
var %dllc = $dll(aircdll.dll,Flood,$+(dllc,$chan,$nick,$ticks $regex($1-,/[[:digit:]]/g)) 50 1)
if (+FLOOD* > %dllc) $goto.kick number
var %dlld = $dll(aircdll.dll,Flood,$+(dlld,$chan,$nick,$ticks $regex($1-,/[[:punct:]]/g)) 50 1)
if (+FLOOD* > %dlld) $goto.kick symbol
var %dlle = $dll(aircdll.dll,Flood,$+(dlle,$chan,$nick,$ticks $regex($1-,/[ $chr(160) ]/g)) 50 1)
if (+FLOOD* > %dlle) $goto.kick blur
var %dllf = $dll(aircdll.dll,Flood,$+(dllf,$chan,$nick,$ticks $regex($1-,/[ $chr(174) ]/g)) 50 1)
if (+FLOOD* > %dllf) $goto.kick ascii
var %dllg = $dll(aircdll.dll,Flood,$+(dllg,$chan,$nick,$ticks $regex($1-,/[[:lower:]]/g)) 200 1)
if (+FLOOD* > %dllg) $goto.kick lenght
var %dllh = $dll(aircdll.dll,Flood,$+(dllh,$chan,$nick,$ticks $regex($1-,/\b(f**k|suck|babi|puki|pregnant dog|thingy)\b/Si)))
if (+FLOOD* > %dllh) $goto.kick badword
var %dlli = $dll(aircdll.dll,Flood,$+(dlli,$chan,$nick,$ticks $regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3})\S*)|#[^\40]\S*)/Si)))
if (+FLOOD* > %dlli) $goto.kick advertise
}

alias banjirian {
.hadd -u2m a $regex($1-,/[[:codes:]]/g)
if ($hregex(a,$regex($1-,/[[:codes:]]/g)) > 49) $goto.kick codes
.hadd -u2m b $regex($1-,/[[:upper:]]/g)
if ($hregex(b,$regex($1-,/[[:upper:]]/g)) > 49) $goto.kick caps
.hadd -u2m c $regex($1-,/[[:digit:]]/g)
if ($hregex(c,$regex($1-,/[[:digit:]]/g)) > 49) $goto.kick number
.hadd -u2m d $regex($1-,/[[:punct:]]/g)
if ($hregex(d,$regex($1-,/[[:punct:]]/g)) > 49) $goto.kick symbol
.hadd -u2m e $regex($1-,/[ $chr(160) ]/g)
if ($hregex(e,$regex($1-,/[ $chr(160) ]/g)) > 49) $goto.kick blur
.hadd -u2m f $regex($1-,/[ $chr(174) ]/g)
if ($hregex(f,$regex($1-,/[ $chr(174) ]/g)) > 49) $goto.kick ascii
.hadd -u2m g $regex($1-,/[[:lower:]]/g)
if ($hregex(g,$regex($1-,/[[:lower:]]/g)) > 199) $goto.kick lenght
.hadd -u2m h $regex($1-,/\b(f**k|suck|babi|puki|pregnant dog|thingy)\b/Si))
if ($hregex(h,$regex($1-,/\b(f**k|suck|babi|puki|pregnant dog|thingy)\b/Si))) $goto.kick badword
.hadd -u2m i $regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3})\S*)|#[^\40]\S*)/Si))
if ($hregex(i,$regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3 })\S*)|#[^\40]\S*)/Si))) $goto.kick advertise
}

alias banjirian {
var %a = $regex($1-,/[[:cntrl:]]/g)
var %b = $regex($1-,/[[:upper:]]/g)
var %c = $regex($1-,/[[:digit:]]/g)
var %d = $regex($1-,/[[:punct:]]/g)
var %e = $regex($1-,/[ $chr(160) ]/g)
var %f = $regex($1-,/[ $chr(174) ]/g)
var %g = $regex($1-,/[[:lower:]]/g)
var %h = $regex($1-,/\b(f**k|suck|babi|puki|pregnant dog|thingy)\b/Si))
var %i = $regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3})\S*)|#[^\40]\S*)/Si))
if ($regsubex(%a,/[[:cntrl:]]/g,\t) > 49) $goto.kick codes
if ($regsubex(%b,/[[:upper:]]/g,\t) > 49) $goto.kick caps
if ($regsubex(%c,/[[:digit:]]/g,\n) > 49) $goto.kick number
if ($regsubex(%d,/[[:punct:]]/g,\t) > 49) $goto.kick symbol
if ($regsubex(%e,/[ $chr(160) ]/g,\t) > 49) $goto.kick blur
if ($regsubex(%f,/[ $chr(174) ]/g,\t) > 49) $goto.kick ascii
if ($regsubex(%g,/[[:lower:]]/g,\t) > 199) $goto.kick lenght
if ($regsubex(%h,/\b(f**k|suck|babi|puki|pregnant dog|thingy)\b/Si,\t)) $goto.kick ascii
if ($regsubex(%i,/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3})\S*)|#[^\40]\S*)/Si,\t)) $goto.kick lenght
}

alias banjirian {
if ($gettok($regex($1-,/[[:cntrl:]]/g),1,46) > 49) $goto.kick codes
if ($gettok($regex($1-,/[[:upper:]]/g),1,46) > 49) $goto.kick caps
if ($gettok($regex($1-,/[[:digit:]]/g),1,46) > 49) $goto.kick number
if ($gettok($regex($1-,/[[:punct:]]/g),1,46) > 49) $goto.kick symbol
if ($gettok($regex($1-,/[ $chr(160) ]/g),1,46) > 49) $goto.kick blur
if ($gettok($regex($1-,/[ $chr(174) ]/g),1,46) > 49) $goto.kick ascii
if ($gettok($regex($1-,/[[:lower:]]/g),1,46) > 199) $goto.kick lenght
if ($gettok($regex($1-,/\b(f**k|suck|babi|puki|pregnant dog|thingy)\b/Si),1,46)) $goto.kick swear
if ($gettok($regex($remove($1-,$chr(40),$chr(41)),/(?:^|(\40|\240))((http+(:|s:)\/\/\S*)|((www\.{1})+(.*)+(\.{1})+(\w{2,3}) \S*)|#[^\40]\S*)/Si),1,46)) $goto.kick advertise
}

alias goto.kick {
if ($nick !ison #) return
.hinc -u15m dy dx
if ($hget(dy,dx) < 22) {
!kick # $nick $1-
;multiban
.hadd -u2m mb $+($nick,*@*banned*)
.timermb 1 1 .mode $chan $1 $+(+,$str(b,$hget(mb,*).item)) $hget(mb,1).item $hget(mb,2).item $hget(mb,3).item $hget(mb,4).item $hget(mb,5).item $hget(mb,6).item $hget(mb,7).item $hget(mb,8).item $hget(mb,9).item $hget(mb,10).item $hget(mb,11).item $hget(mb,12).item
}
}

alias goto.kick {
if ($nick !ison #) return
.hinc -u10m random $1 1
if ($hget(random,$1) > $r(0,90)) {
.inc -u5m %random.kick
if (%random.kick < 22) { !kick # $nick $1- }
}
;multiban
.hadd -u2m mb $+($nick,*@*banned*)
.timermb 1 1 .mode $chan $1 $+(+,$str(b,$hget(mb,*).item)) $hget(mb,1).item $hget(mb,2).item $hget(mb,3).item $hget(mb,4).item $hget(mb,5).item $hget(mb,6).item $hget(mb,7).item $hget(mb,8).item $hget(mb,9).item $hget(mb,10).item $hget(mb,11).item $hget(mb,12).item
}