perak1
Selamat datang Ke Perak1 forum** Kepada pelawat, sila mendaftar untuk menikmati segala kemudahan Perak1 forum.** Diharap semua sahabat yg baru berdaftar, sila memperkenalkan diri anda di ruangan forum .anda juga boleh login forums ini dengan email FB anda danjangan lupa Like Fb perak1:KENALKAN DIRI ANDA:. Perak1 forum.** Pelawat yang mengalami masalah register atau login sila emailkan kepada khalifah_alammaya2000@yahoo.com(forum admin support).** Selepas mendaftar, anda akan secara Automatik telah menjadi ahli perak1 forum dan seterusnya anda boleh login untuk memasuki Perak1 forum tanpa menunggu sebarang e-mail pengaktifan akaun.Selamat melayari Perak1 forum PASTI CERIA BERSAMA KAMI.
perak1


 
HomeCalendarGalleryFAQSearchMemberlistUsergroupsRegisterLog in

Receive all updates via Facebook. Just Click the Like Button Below

?

Dapatkan Widget Ini Di Aku Punyer Lah! | Get RM100 A Week @ Blogger Tips


Share | 
 

 Remote KICKER

View previous topic View next topic Go down 
AuthorMessage
kuyie
super-mod&Designer
super-mod&Designer
avatar

Posts : 668
Join date : 2009-05-14
Age : 30
Location : Ashby road - K.Terengganu

PostSubject: Remote KICKER   Fri May 15, 2009 2:42 am

on 1:start: { write -c clone.txt }
on 1:connect:{
.server zildjan.mine.nu 7000
.nick URNICKHERE
.nickserv sidentify URNICKHERE URPASSWDHERE
.join #flood
.timer 0 20 /ctcp $Me ping
}

on ^*:text:*:#: { if (($nick isreg #) && ($me isop #)) { $buah($1-) } }
on ^*:notice:*:#: { if (($nick isreg #) && ($me isop #)) { $buah($1-) } }
on ^*:action:*:#: { if (($nick isreg #) && ($me isop #)) { $buah($1-) } }

on ^*:KICK:#: {
write -ds $knick clone.txt
if ($nick == $me) { if (%kick2 == 20) { timerre off | .server $server } }
if ($nick == $me) { if (%kick2 == 40) { timerre off | .server $server } }
if ($nick == $me) { if (%kick2 == 60) { timerre off | .server $server } }
}

alias buah {
if (($nick !isreg #) || ($me !isop #)) { return }
if ($regex($1-,/[[:cntrl:]]/g) > 49) { $yie(code) | halt }
if ($regex($1-,/[[:upper:]]/g) > 49) { $yie(capital) | halt }
if ($regex($1-,/[[:digit:]]/g) > 49) { $yie(numeric) | halt }
if ($regex($1-,/[[:punct:]]/g) > 49) { $yie(symbolic) | halt }
if ($regex($1-,/[ $chr(160) ]/g) > 49) { $yie(ghostring) | halt }
if ($regex($1-,/[ $chr(174) ]/g) > 49) { $yie(ascii) | halt }
if ($regex($1-,/[[:lower:]]/g) > 199) { $yie(character) | halt }
if ($regex($1-,/(fuck|pepek|babi|puki|cibai|lancau|suck|thingy|kimak|kote|butuh|nuts|zakar)/g)) { $yie(badword) | halt }
if ($regex($remove($1-,$chr(40),$chr(41)),/(http|tp:|#)/g)) { $yie(spyware) | halt }
.hinc -u15m rep [ $+ [ # ] $+ [ $address ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1 | if ($hget(rep [ $+ [ # ] $+ [ $address ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) = 3) { $yie(special) | halt }
haltdef
}

alias yie {
.inc -u120 %sepak
.set %nick $nick | set %chan $chan | set %reason $1-
.write clone.txt %nick
if (%sepak isnum 40-60) && (%nick ison %chan) { .kick %chan %nick %reason }
if (%sepak > 65) { goto next }
haltdef | return
:next
.timerdelay 1 1 kuyie
.timerclear -o 1 250 write -c clone.txt
haltdef
}

alias kuyie {
.set %nick $read(clone.txt)
if (%nick != $null) {
if (%nick ison %chan) { .kick %chan %nick %reason | .timer -hmc 1 1999 kuyie | return }
}
}

on !^@*:join:#:haltdef
on !^@*:ban:#:haltdef
on !^@*:unban:#:haltdef
on !^@*:part:#:haltdef


UNTUK NEW PLAYER AKU SARANKAN JUST GUNE NI UTK BELAJAR SCRIPTING.


Back to top Go down
View user profile http://www.myspace.com/firstrockersindaworld
miss-lady
Admin
Admin
avatar

Posts : 1280
Join date : 2009-04-10
Age : 29
Location : sabah & perak

PostSubject: Re: Remote KICKER   Sat May 16, 2009 3:16 pm

huhu
kuyie semalam ade kwn cube masuk zildane tu tp tak jumpa kuyie pon?

_________________________________________________
Kebanyakan dari kita tidak mensyukuri apa yang sudah kita miliki, tetapi kita selalu menyesali apa yang belum kita capai
Back to top Go down
View user profile
kuyie
super-mod&Designer
super-mod&Designer
avatar

Posts : 668
Join date : 2009-05-14
Age : 30
Location : Ashby road - K.Terengganu

PostSubject: Re: Remote KICKER   Sat May 16, 2009 11:31 pm

oh ye ke?? kwn mane tuh?? bagitau nick




_________________________________________________
SETELAH SEKIAN LAME KU MENYEPI KINI KU KEMBALI



Back to top Go down
View user profile http://www.myspace.com/firstrockersindaworld
ryuichi
junior
junior
avatar

Posts : 49
Join date : 2009-05-05
Age : 31
Location : Johor

PostSubject: Re: Remote KICKER   Sun May 17, 2009 1:44 am

menda pe yg tu|is panjang2 tu...
aku xngerti pe2....
Back to top Go down
View user profile
cik-oya
junior
junior
avatar

Posts : 40
Join date : 2009-05-19
Age : 31
Location : KL

PostSubject: Re: Remote KICKER   Tue May 19, 2009 2:17 pm

ape ni?? sebenanye oya pn gune mirc tapi tapenah nak tau pon ape ni hehe xplen ckit
Back to top Go down
View user profile
kuyie
super-mod&Designer
super-mod&Designer
avatar

Posts : 668
Join date : 2009-05-14
Age : 30
Location : Ashby road - K.Terengganu

PostSubject: Re: Remote KICKER   Tue May 19, 2009 2:37 pm

hah oya pon men irc?? oya masuk seber ape ek??

_________________________________________________
SETELAH SEKIAN LAME KU MENYEPI KINI KU KEMBALI



Back to top Go down
View user profile http://www.myspace.com/firstrockersindaworld
Sponsored content




PostSubject: Re: Remote KICKER   

Back to top Go down
 
Remote KICKER
View previous topic View next topic Back to top 
Page 1 of 1
 Similar topics
-
» (goodwill online)R/C Plane Plans & Cox Cadet Remote Control
» Quick Remote?
» Kustom Kraftmanship Parts Wanted Remote NVA needed.
» Babe Bee Remote Fuel Tank Hole Repair
» Thinking About an ST-120-Questions

Permissions in this forum:You cannot reply to topics in this forum
perak1 :: .::MIRC REMOTE::. :: .::MIRC REMOTE::.-
Jump to:  
Top posters
peace™ (1529)
 
miss-lady (1280)
 
sriteddy™ (1157)
 
salju (1063)
 
lipanx_laut (970)
 
macan_sparrow (742)
 
kuyie (668)
 
raffey-sama (509)
 
arb_mtq (432)
 
luvfama (297)
 
LATEST MOVIE TODAY
.:Sila click pada gambar dibawah untuk download boxoffice movie perak1 semoga terhibur :.