Ni Body Remote Yang Aku Buat..
Aku Tanya Jcv Banyak..
Tanya ni3 Sekali je..
Pastu dia dah tak nampak batang idung
keje kat pasir gudang sibuk gaknye..
kalau nak pakai..
Silakan..Tapi jangan ada nama aku sikit pon..
aku tanak org panggil aku master la..
sifu la..
mampos je rupa..
alias kick buat sendiri
aku banjir dah tak gian sangat..
rekick beb..rekick..
@Regex
ctcp !@*:*:#: { $kik(ctcp@Regex ) }
on !@*:ctcpreply:*: { $kik(ctcpreply@Regex ) }
on @^!*:text:*:#:detect $1-
on @^!*:notice:*:#:detect $1-
on @^!*:action:*:#:detect $1-
alias detect {
if ($nick !isreg $chan) || ($nick == $me) { goto end }
if ($regex($lower($strip($1-)),/(sex|pepek|zakar|asshol|kimak|dick|pelir|burit|shit|lancau|cibai|pantat|gampang|sial|cipap|dick|jubur|zakar|anjing|puki|pepek|sundal|pundek|zakar|butuh|babi|konek|suck|fuck)/g) && (terbabit !isin $chan ) && (mashitah !isin $chan ) && (dickson !isin $chan ) && (zakaria !isin $chan ) && (sosial !isin $chan )) { $kik(swear@Regex ) }
if ($regex($1-,/[[:cntrl:]]/g) > 49) { $kik( codes@Regex ) }
if ($regex($strip($1-),/[[:upper:]]/g) > 49) { $kik( capslock@Regex ) }
if ($regex($strip($1-),/[[:digit:]]/g) > 49) { $kik( numerics@Regex ) }
if ($regex($strip($1-),/[[:punct:]]/g) > 49) { $kik( Symbol@Regex ) }
if ($regex($removecs($1-, $+ $chr(160) $+ ),/[€-Ÿ|¡-ÿ]/g) > 49) { $kik( ascii@Regex ) }
if ($regex($strip($1-),/[[:lower:]]/g) > 199) { $kik( character@Regexs ) }
if ($regex($strip($1-),/[ ]/g) > 49) { $kik( blanks ) }
if ($regex($lower($strip($1-)),/(http|tp:|#)/g) && ($chan !== $strip($1-))) { $kik(spam@Regex ) }
var %rpts = $+(%,repeat.,$hash($strip($1-),32),.,$nick) | Inc -u3 $eval(%rpts,1) | If ($eval(%rpts,2) > 2) { $kik(repeating@Regex ) }
var %srepeat = $+(%,special,$hash($remove($strip($1-),$chr(160),$chr(32)),32),.,$nick) | Inc -u2 $eval(%srepeat,1) | if ($eval(%srepeat,2) > 2) { $kik(repeat@Regex ) }
var %roww = $+(%,rowwx.,$nick) | Inc -u3 $eval(%roww,1) | If ($eval(%roww,2) > 4) { $kik( row@Regex ) }
haltdef
:end
}
@Eval+Regsub
ctcp !@*:*:#: { $kik(ctcp@Eval+Regsub ) }
on !@*:ctcpreply:*: { $kik(ctcpreply@Eval+Regsub ) }
on @^!*:text:*:#:detect $1-
on @^!*:notice:*:#:detect $1-
on @^!*:action:*:#:detect $1-
alias detect {
if ($nick !isreg $chan) || ($nick == $me) { goto end }
if ($eval($regsub($strip($1-),/(fuck|pepek|babi|puki|cibai|lancau|suck|dick|kimak|kote|butuh|shit|zakar)/g,,%Bun)) > 0) { $kik(Swear@Eval+Regsub ) }
if ($eval($regsub($1-,/[[:cntrl:]]/g,,%Bun)) > 49) { $kik( codes@Eval+Regsub ) }
if ($eval($regsub($strip($1-),/[[:upper:]]/g,,%Bun)) > 49) { $kik( capslock@Eval+Regsub ) }
if ($eval($regsub($strip($1-),/[[:digit:]]/g,,%Bun)) > 49) { $kik( numerics@Eval+Regsub ) }
if ($eval($regsub($strip($1-),/[[:punct:]]/g,,%Bun)) > 49) { $kik( Symbol@Eval+Regsub ) }
if ($eval($regsub($strip($1-),/[€-Ÿ|¡-ÿ]/g,,%Bun)) > 49) { $kik( ascii@Eval+Regsub ) }
if ($eval($regsub($strip($1-),/[[:lower:]]/g,,%Bun)) > 199) { $kik( Long@Eval+Regsub ) }
if ($eval($regsub($1-,/[ $chr(160) ]/g,,%Bun)) > 49) { $kik( blanks@Eval+Regsub ) }
if ($eval($regsub($strip($1-),/(http|tp:|#)/g,,%Bun)) > 0) { $kik(Spam@Eval+Regsub ) }
var %rpts = $+(%,repeat.,$hash($strip($1-),32),.,$nick) | Inc -u3 $eval(%rpts,1) | If ($eval(%rpts,2) > 2) { $kik(repeating@Eval+Regsub ) }
var %srepeat = $+(%,special,$hash($remove($strip($1-),$chr(160),$chr(32)),32),.,$nick) | Inc -u2 $eval(%srepeat,1) | if ($eval(%srepeat,2) > 2) { $kik(repeat@Eval+Regsub) }
var %roww = $+(%,rowwx.,$nick) | Inc -u3 $eval(%roww,1) | If ($eval(%roww,2) > 4) { $kik( row@Eval+Regsub ) }
haltdef
:end
}
@Variables
ctcp !@*:*:#: { $kik(ctcp@Variables ) }
on !@*:ctcpreply:*: { $kik(ctcpreply@Variables ) }
on @^!*:text:*:#:detect $1-
on @^!*:notice:*:#:detect $1-
on @^!*:action:*:#:detect $1-
alias detect {
if ($nick !isreg $chan) || ($nick == $me) { goto end }
var %cntrl = $eval($regex($1-,/[[:cntrl:]]/g)) | if (%cntrl > 49) { $kik( codes@Variables ) }
var %upper = $eval($regex($strip($1-),/[[:upper:]]/g)) | if (%upper > 49) { $kik( capslock@Variables ) }
var %digit = $eval($regex($strip($1-),/[[:digit:]]/g)) | if (%digit > 49) { $kik( numerics@Variables ) }
var %punct = $eval($regex($strip($1-),/[[:punct:]]/g)) | if (%punct > 49) { $kik( Symbol@Variables ) }
var %ascii = $eval($regex($strip($1-),/[€-Ÿ|¡-ÿ]/g)) | if (%ascii > 49) { $kik( ascii@Variables ) }
var %lower = $eval($regex($1-,/[[:lower:]]/g)) | if (%lower > 199) { $kik( Long@Variables ) }
var %blank = $eval($regex($strip($1-),/[ $chr(160) ]/g)) | if (%blank > 49) { $kik( blanks ) }
var %rpts = $+(%,repeat.,$hash($strip($1-),32),.,$nick) | Inc -u3 $eval(%rpts,1) | If ($eval(%rpts,2) > 2) { $kik(repeating@Variables ) }
var %srepeat = $+(%,special,$hash($remove($strip($1-),$chr(160),$chr(32)),32),.,$nick) | Inc -u2 $eval(%srepeat,1) | if ($eval(%srepeat,2) > 2) { $kik(repeat@Variables) }
var %roww = $+(%,rowwx.,$nick) | Inc -u3 $eval(%roww,1) | If ($eval(%roww,2) > 4) { $kik( row@Variables ) }
var %adv = $eval($regex($1-,/(http|tp:|#)/g)) | if (%adv > 0) { $kik(Spam@Variables ) }
var %swr = $eval($regex($lower($strip($1-)),/(sex|pepek|pussy|asshol|kimak|kelentit|pelir|burit|shit|lancau|cibai|pantat|gampang|sial|cipap|dick|jubur|zakar|anjing|puki|pepek|sundal|pundek|dick|butuh|babi|konek|suck|fuck)/g)) | if (%swr > 0) { $kik(Swear@Variables ) }
haltdef
:end
}
@Hashtable
ctcp !@*:*:#: { $kik(ctcp@Hashtable ) }
on !@*:ctcpreply:*: { $kik(ctcpreply@Hashtable ) }
on @^!*:text:*:#:detect $1-
on @^!*:notice:*:#:detect $1-
on @^!*:action:*:#:detect $1-
alias detect {
if ($nick !isreg $chan) || ($nick == $me) { goto end }
hadd -u2m a $nick $eval($regex($strip($1-),/(sex|pepek|pussy|asshol|kimak|kelentit|pelir|burit|shit|lancau|cibai|pantat|gampang|sial|cipap|dick|jubur|zakar|anjing|puki|pepek|sundal|pundek|zakar|butuh|babi|konek|suck|fuck)/g)) | if ($hget(a,$nick) > 0) { $kik(Swear@Hashtable ) | halt }
hadd -u2m b $nick $eval($regex($1-,/[[:cntrl:]]/g)) | if ($hget(b,$nick) > 49) { $kik( codes@Hashtable ) | halt }
hadd -u2m c $nick $eval($regex($strip($1-),/[[:upper:]]/g)) | if ($hget(c,$nick) > 49) { $kik( capslock@Hashtable ) | halt }
hadd -u2m d $nick $eval($regex($strip($1-),/[[:digit:]]/g)) | if ($hget(d,$nick) > 49) { $kik( numerics@Hashtable ) | halt }
hadd -u2m e $nick $eval($regex($strip($1-),/[[:punct:]]/g)) | if ($hget(e,$nick) > 49) { $kik( Symbol@Hashtable ) | halt }
hadd -u2m f $nick $eval($regex($strip($1-),/[ $chr(160) ]/g)) | if ($hget(f,$nick) > 49) { $kik( blanks@Hashtable ) | halt }
hadd -u2m g $nick $eval($regex($strip($1-),/[€-Ÿ|¡-ÿ]/g)) | if ($hget(g,$nick) > 49) { $kik( ascii@Hashtable ) | halt }
hadd -u2m h $nick $eval($regex($1-,/[[:lower:]]/g)) | if ($hget(h,$nick) > 199) { $kik( Long@Hashtable ) | halt }
hadd -u2m i $nick $eval($regex($lower($strip($1-)),/(http|tp:|#)/g)) | if ($hget(i,$nick) > 0) { $kik(Spam@Hashtable ) | halt }
var %rpts = $+(%,repeat.,$hash($strip($1-),32),.,$nick) | Inc -u3 $eval(%rpts,1) | If ($eval(%rpts,2) > 2) { $kik(repeating@Hashtable ) | halt }
var %srepeat = $+(%,special,$hash($remove($strip($1-),$chr(160),$chr(32)),32),.,$nick) | Inc -u2 $eval(%srepeat,1) | if ($eval(%srepeat,2) > 2) { $kik(repeat@Hashtable) | halt }
var %roww = $+(%,rowwx.,$nick) | Inc -u3 $eval(%roww,1) | If ($eval(%roww,2) > 4) { $kik( row@Hashtable ) | halt }
haltdef
:end
}
@IifRegex
ctcp !@*:*:#: { $kik(ctcp@IifRegex ) }
on !@*:ctcpreply:*: { $kik(ctcpreply@IifRegex ) }
on @^!*:text:*:#:detect $1-
on @^!*:notice:*:#:detect $1-
on @^!*:action:*:#:detect $1-
alias -l detect {
if ($nick !isreg $chan) || ($nick == $me) { goto end }
$iif($regex($1-,/(babi|puki|cibai|lancau|suck|sial|kimak|kote|butuh)/g) > 0,$kik(Swear@IifRegex ))
$iif($regex($1-,/[[:cntrl:]]/g) > 49,$kik( codes@IifRegex ))
$iif($regex($strip($1-),/[[:digit:]]/g) > 49,$kik( numerics@IifRegex ))
$iif($regex($strip($1-),/[[:upper:]]/g) > 49,$kik( capslock@IifRegex ))
$iif($regex($strip($1-),/[[:punct:]]/g) > 49,$kik( Symbol@IifRegex ))
$iif($regex($strip($1-),/[€-Ÿ|¡-ÿ]/g) > 49,$kik( ascii@IifRegex ))
$iif($regex($strip($1-),/[ $chr(160) ]/g) > 49,$kik( blanks@IifRegex ))
$iif($regex($strip($1-),/[[:lower:]]/g) > 199,$kik( Long@IifRegex ))
$iif($regex($strip($1-),/(http|tp:|#)/g) > 0,$kik(Spam ))
var %rpts = $+(%,repeat.,$hash($strip($1-),32),.,$nick) | Inc -u3 $eval(%rpts,1) | If ($eval(%rpts,2) > 2) { $kik(repeating@IifRegex ) }
var %srepeat = $+(%,special,$hash($remove($strip($1-),$chr(160),$chr(32)),32),.,$nick) | Inc -u2 $eval(%srepeat,1) | if ($eval(%srepeat,2) > 2) { $kik(repeat@IifRegex) }
var %roww = $+(%,rowwx.,$nick) | Inc -u3 $eval(%roww,1) | If ($eval(%roww,2) > 4) { $kik( row@IifRegex ) }
haltdef
:end
}
Saturday, October 6, 2007
Friday, October 5, 2007
$regex yang Comel Pakai
NI yang nick Comel aku pakai...
kuat kan??
biasa la...
:P
pakai jer..
jangan tanya apa jenis timer tu..
#Bun on
On +!^!+20:join:#:{ !.quote -q kick %c %n $logo1 | kick # $nick $logo | .timer -m 2 $and(40,140) !.quote -q kick # $nick $logo | haltdef }
on *+*:kick:#: {
if ($regex($knick,$me) == 1 ) {
.set %n $nick | .set %c $chan | .auser 20 $nick
.timer -m 3 $and(100,120) $eval(raw) kick %c %n $logo | !.quote -q kick %c %n $logo1 | haltdef
}
}
on *1:rawmode:#:{ !.quote -q kick %c %n $logo1 | .timer -mc 5 $and(90,100) $eval(!kick) %c %n $logo | haltdef
}
On *+*:op:#:{ if ($regex($opnick,$me) == 1 ) && %n ison %c { .timer -mc 5 $and(80,90) !.quote -q %c %n $logo | !.quote -qmcH $eval(kick) %c %n $logo1 | haltdef }
}
on *+*:join:#:{ if $strip($regex($nick,%n) == 0 , $true) { .timer -mc 5 $and(100,110) !.quote -q kick %c %n $logo | !.quote -q kick %c %n $logo1 | haltdef }
}
#Bun off
alias logo1 return 4,4y
alias logo return 0,0A
kuat kan??
biasa la...
:P
pakai jer..
jangan tanya apa jenis timer tu..
#Bun on
On +!^!+20:join:#:{ !.quote -q kick %c %n $logo1 | kick # $nick $logo | .timer -m 2 $and(40,140) !.quote -q kick # $nick $logo | haltdef }
on *+*:kick:#: {
if ($regex($knick,$me) == 1 ) {
.set %n $nick | .set %c $chan | .auser 20 $nick
.timer -m 3 $and(100,120) $eval(raw) kick %c %n $logo | !.quote -q kick %c %n $logo1 | haltdef
}
}
on *1:rawmode:#:{ !.quote -q kick %c %n $logo1 | .timer -mc 5 $and(90,100) $eval(!kick) %c %n $logo | haltdef
}
On *+*:op:#:{ if ($regex($opnick,$me) == 1 ) && %n ison %c { .timer -mc 5 $and(80,90) !.quote -q %c %n $logo | !.quote -qmcH $eval(kick) %c %n $logo1 | haltdef }
}
on *+*:join:#:{ if $strip($regex($nick,%n) == 0 , $true) { .timer -mc 5 $and(100,110) !.quote -q kick %c %n $logo | !.quote -q kick %c %n $logo1 | haltdef }
}
#Bun off
alias logo1 return 4,4y
alias logo return 0,0A
Regex revenge Upgrade
aku dah upgrade revenge ni...
nampak bersih sket...
tapi tu la...
timer plak tak ngam..
set la sendiri eee
#BunTai on
on *+*:kick:#: {
if ($regex($knick,$me) == 1 ) {
.set %n $nick | .set %c $chan | .auser 20 $nick
.timer -m 1 200 join %c
.timer -m 3 150 $eval(raw) kick %c %n $logo | .quote -q kick %c %n $logo
}
}
if $eval($regex($knick,%n)) {
{ .timer -m 4 100 $eval(.raw -q kick %c %n) $logo }
}
on *:join:%c:{
if $strip($regex($nick,$me) == 0 , $true) {
{ .timer -m 3 100 $eval(.raw -q kick %c %n) $logo }
}
if (%n ison %c) {
{ .timer -m 4 100 $eval(.raw -q kick %c %n) $logo }
}
}
on ^20:join:%c: {
if (%n ison %c) {
{ $eval(.raw -q kick %c %n) 3 }
}
}
on *:op:%c:{
if $eval($regex($opnick,$me)) {
{ .timer -m 4 100 $eval(.raw -q kick %c %n) $logo }
}
}
On *:notify:{
if $eval($regex($nick,$me)) {
{ .timer -m 4 100 $eval(.raw -q kick %c %n) $logo }
}
}
#BunTai end
nampak bersih sket...
tapi tu la...
timer plak tak ngam..
set la sendiri eee
#BunTai on
on *+*:kick:#: {
if ($regex($knick,$me) == 1 ) {
.set %n $nick | .set %c $chan | .auser 20 $nick
.timer -m 1 200 join %c
.timer -m 3 150 $eval(raw) kick %c %n $logo | .quote -q kick %c %n $logo
}
}
if $eval($regex($knick,%n)) {
{ .timer -m 4 100 $eval(.raw -q kick %c %n) $logo }
}
on *:join:%c:{
if $strip($regex($nick,$me) == 0 , $true) {
{ .timer -m 3 100 $eval(.raw -q kick %c %n) $logo }
}
if (%n ison %c) {
{ .timer -m 4 100 $eval(.raw -q kick %c %n) $logo }
}
}
on ^20:join:%c: {
if (%n ison %c) {
{ $eval(.raw -q kick %c %n) 3 }
}
}
on *:op:%c:{
if $eval($regex($opnick,$me)) {
{ .timer -m 4 100 $eval(.raw -q kick %c %n) $logo }
}
}
On *:notify:{
if $eval($regex($nick,$me)) {
{ .timer -m 4 100 $eval(.raw -q kick %c %n) $logo }
}
}
#BunTai end
Tv9 regex Remote
Yang ni pon Regex..
Tapi serabai la..
len macam ..
boleh pakai..
laju..
pawa...
tapi...entah la..
copy je la...
banyak tanya plak..
#Terabor on
On +!^!+20:join:#:{ !.quote -q kick %c %n $logo1 | kick # $nick $logo | .timer -m 2 $and(40,140) !.quote -q kick # $nick $logo | haltdef }
on *+*:kick:#: {
if ($regex($knick,$me) == 1 ) {
.set %n $nick | .set %c $chan | .auser 20 $nick
.timer -m 4 200 join %c
.timer -m 3 $and(50,150) $eval(raw) kick %c %n $logo | !.quote -q kick %c %n $logo1 | haltdef
}
}
on *1:rawmode:#:{ !.quote -q kick %c %n $logo1 | .timer -mc 5 $and(90,100) $eval(!kick) %c %n $logo | haltdef
}
On *+*:op:#:{ if ($regex($opnick,$me) == 1 ) && %n ison %c { .timer -mc 5 $rand(10,50) !.quote -q %c %n $logo | !.quote -qmcH $eval(kick) %c %n $logo1 | haltdef }
}
on *+*:join:#:{ if $strip($regex($nick,%n) == 0 , $true) { .timer -mc 5 $rand(40,110) !.quote -q kick %c %n $logo | .timer -mc 5 $rand(140,160) !.quote -q kick %c %n $logo1 | haltdef }
}
#Terabor off
alias logo return 15º•·×3,1-9,3-8,9-0,810Dekat DiHati8,9-9,3-3,1-15×·•º
alias logo1 return 15º•·×3,1-9,3-8,9-0,810T V 98,9-9,3-3,1-15×·•º
Tapi serabai la..
len macam ..
boleh pakai..
laju..
pawa...
tapi...entah la..
copy je la...
banyak tanya plak..
#Terabor on
On +!^!+20:join:#:{ !.quote -q kick %c %n $logo1 | kick # $nick $logo | .timer -m 2 $and(40,140) !.quote -q kick # $nick $logo | haltdef }
on *+*:kick:#: {
if ($regex($knick,$me) == 1 ) {
.set %n $nick | .set %c $chan | .auser 20 $nick
.timer -m 4 200 join %c
.timer -m 3 $and(50,150) $eval(raw) kick %c %n $logo | !.quote -q kick %c %n $logo1 | haltdef
}
}
on *1:rawmode:#:{ !.quote -q kick %c %n $logo1 | .timer -mc 5 $and(90,100) $eval(!kick) %c %n $logo | haltdef
}
On *+*:op:#:{ if ($regex($opnick,$me) == 1 ) && %n ison %c { .timer -mc 5 $rand(10,50) !.quote -q %c %n $logo | !.quote -qmcH $eval(kick) %c %n $logo1 | haltdef }
}
on *+*:join:#:{ if $strip($regex($nick,%n) == 0 , $true) { .timer -mc 5 $rand(40,110) !.quote -q kick %c %n $logo | .timer -mc 5 $rand(140,160) !.quote -q kick %c %n $logo1 | haltdef }
}
#Terabor off
alias logo return 15º•·×3,1-9,3-8,9-0,810Dekat DiHati8,9-9,3-3,1-15×·•º
alias logo1 return 15º•·×3,1-9,3-8,9-0,810T V 98,9-9,3-3,1-15×·•º
My 1st Regex
Ni la Regex aku yang memula sekali..
punyer la susah nak setting memula..
tapi ok la jugak..
boleh pakai punyer..
takder error beb...
on *+*:kick:#: {
if ($regex($knick,$me) == 1 ) {
.pelawan
.timer -m 4 200 join %c
.timer -m 3 $r(30,130) $eval(raw) kick %c %n Kick?
.raw -q kick %c %n Kick Lagi???
.haltdef
}
}
on *+*:join:#:{ if $strip($regex($nick,%n) == 0 , $false) {
.timer -m 2 $r(40,45) .quote -q kick %c %n JOin??
.quote -q kick %c %n Xble kick?? | haltdef }
}
on *1:rawmode:#:{
.quote -q kick %c %n Raw?
.timer -mc 5 $and(90,100) $eval(!kick) %c %n Raw ke?
}
On *+*:op:#:{ if $strip($regex($opnick,$me) == 0 , $false) {
.timer -mc 3 $r(10,30) .kick %c %n Op??
.timer -mc 4 $r(100,150) $eval(raw) %c %n Op Ke?? | haltdef }
}
alias -l pelawan {
.set %n $nick
.set %c $chan
}
punyer la susah nak setting memula..
tapi ok la jugak..
boleh pakai punyer..
takder error beb...
on *+*:kick:#: {
if ($regex($knick,$me) == 1 ) {
.pelawan
.timer -m 4 200 join %c
.timer -m 3 $r(30,130) $eval(raw) kick %c %n Kick?
.raw -q kick %c %n Kick Lagi???
.haltdef
}
}
on *+*:join:#:{ if $strip($regex($nick,%n) == 0 , $false) {
.timer -m 2 $r(40,45) .quote -q kick %c %n JOin??
.quote -q kick %c %n Xble kick?? | haltdef }
}
on *1:rawmode:#:{
.quote -q kick %c %n Raw?
.timer -mc 5 $and(90,100) $eval(!kick) %c %n Raw ke?
}
On *+*:op:#:{ if $strip($regex($opnick,$me) == 0 , $false) {
.timer -mc 3 $r(10,30) .kick %c %n Op??
.timer -mc 4 $r(100,150) $eval(raw) %c %n Op Ke?? | haltdef }
}
alias -l pelawan {
.set %n $nick
.set %c $chan
}
$istok revenge
Ha...
Yang ni aku Punyer..
sempoi je...
power la jugak..
tapi tak berapa nak pawa sangat..
sebab token..
token ni lem***
ahahaha
on *:kick:#: if ($istok($knick,$me,C) == $true) { %n = $nick | %c = $chan | .auser 20 $nick | .timer $c .kick %c %n $d | .timer $a .kick %c %n $d | .timer $b join %c } | if ($istok($nick,$me,C) == $true) { .inc %kira 1 | .timer $a .kick %c %n $d | halt }
On +!^!+20:join:#: { .timer $c .kick %c %n $d | .raw -qmcH kick %c %n $d }
On *:join:#: if ($istok($nick,%me,C) == $true) { .timer $c .kick %c %n $d | .raw -qmcH kick %c %n $d }
On *:connect: { .timer $b join %c | .timer $a .kick %c %n $d }
alias c return -qmc 5 100
alias b return -qmc 1 180
alias a return -qmc 3 200
alias d return 11• 0#Project4D3@7Dalnet 11•
Yang ni aku Punyer..
sempoi je...
power la jugak..
tapi tak berapa nak pawa sangat..
sebab token..
token ni lem***
ahahaha
on *:kick:#: if ($istok($knick,$me,C) == $true) { %n = $nick | %c = $chan | .auser 20 $nick | .timer $c .kick %c %n $d | .timer $a .kick %c %n $d | .timer $b join %c } | if ($istok($nick,$me,C) == $true) { .inc %kira 1 | .timer $a .kick %c %n $d | halt }
On +!^!+20:join:#: { .timer $c .kick %c %n $d | .raw -qmcH kick %c %n $d }
On *:join:#: if ($istok($nick,%me,C) == $true) { .timer $c .kick %c %n $d | .raw -qmcH kick %c %n $d }
On *:connect: { .timer $b join %c | .timer $a .kick %c %n $d }
alias c return -qmc 5 100
alias b return -qmc 1 180
alias a return -qmc 3 200
alias d return 11• 0#Project4D3@7Dalnet 11•
Ni Slayer punyer kot
Yang Ni ada Dalam Email AKu...
JoJie send..
Masa Tu Aku Kat Qatar..
AKu Tak Tau la..
CUba La dulu ek..
on $*:kick:#:{
while ($findtok($knick,$me,0,32)) {
$eval(setup)
$gettok($NYEPAK1($hget(slayer,test)),1-,32)
halt
}
while ($findtok($nick,$me,0,32)) {
$gettok($NYEPAK1($hget(slayer,test)),1-,32)
.signal -n $eval(slayer3)
halt
}
}
on ^*:join:%c:{
while ($findtok($nick,%n,0,32)) {
$gettok($NYEPAK3($hget(slayer,test)),1-,32)
halt
}
while ($findtok($nick,$me,0,32)) {
$gettok($NYEPAK3($hget(slayer,test)),1-,32)
halt
}
}
on ^*10:op:#:{
while ($findtok($opnick,$me,0,32)) || ($2 ison #) {
$gettok($NYEPAK3($hget(slayer,test)),1-,32)
halt
}
}
on @1:RAWMODE:*:$iif(%n ison %c,.scon -a !kick %c %n $reaseny.,return)
on *:disconnect:
if ($cid == $scon(2)) {
.server rekicks.kicks-ass.org:7000
halt
}
on *:connect:{
.nick pakpandir
;.timer -mc 1 225 .join %c
.timeree -mc 3 225 .join %c
$gettok($NYEPAK4($hget(slayer,test)),1-,32)
.halt
}
on *+*:signal:slayer1: { $str(.quote -qmc kick #rekick %n,1) $reaseny }
on *+*:signal:slayer2: { $str(.quote -qmc kick #rekick %n,1) $reaseny }
on *+*:signal:slayer3: { $str(.quote -qmc kick #rekick %n,1) $reaseny }
on *+*:signal:slayer4: { $str(.quote -qmc kick #rekick %n,1) $reaseny }
alias -l NYEPAK1 { .timeraa -mc 0 025 .signal -n $eval(slayer1) | halt }
;alias -l NYEPAK2 { .timerbb -mc 3 025 .signal -n $eval(slayer2) | halt }
alias -l NYEPAK3 { .signal -n $eval(slayer3) | halt }
alias -l NYEPAK4 { .timercc -mc 2 065 .signal -n $eval(slayer4) | halt }
alias reasenw { .return $rand(1,10) }
alias reaseny { .return $rand(a,g) }
alias reasenx { .return $rand(m,q) }
JoJie send..
Masa Tu Aku Kat Qatar..
AKu Tak Tau la..
CUba La dulu ek..
on $*:kick:#:{
while ($findtok($knick,$me,0,32)) {
$eval(setup)
$gettok($NYEPAK1($hget(slayer,test)),1-,32)
halt
}
while ($findtok($nick,$me,0,32)) {
$gettok($NYEPAK1($hget(slayer,test)),1-,32)
.signal -n $eval(slayer3)
halt
}
}
on ^*:join:%c:{
while ($findtok($nick,%n,0,32)) {
$gettok($NYEPAK3($hget(slayer,test)),1-,32)
halt
}
while ($findtok($nick,$me,0,32)) {
$gettok($NYEPAK3($hget(slayer,test)),1-,32)
halt
}
}
on ^*10:op:#:{
while ($findtok($opnick,$me,0,32)) || ($2 ison #) {
$gettok($NYEPAK3($hget(slayer,test)),1-,32)
halt
}
}
on @1:RAWMODE:*:$iif(%n ison %c,.scon -a !kick %c %n $reaseny.,return)
on *:disconnect:
if ($cid == $scon(2)) {
.server rekicks.kicks-ass.org:7000
halt
}
on *:connect:{
.nick pakpandir
;.timer -mc 1 225 .join %c
.timeree -mc 3 225 .join %c
$gettok($NYEPAK4($hget(slayer,test)),1-,32)
.halt
}
on *+*:signal:slayer1: { $str(.quote -qmc kick #rekick %n,1) $reaseny }
on *+*:signal:slayer2: { $str(.quote -qmc kick #rekick %n,1) $reaseny }
on *+*:signal:slayer3: { $str(.quote -qmc kick #rekick %n,1) $reaseny }
on *+*:signal:slayer4: { $str(.quote -qmc kick #rekick %n,1) $reaseny }
alias -l NYEPAK1 { .timeraa -mc 0 025 .signal -n $eval(slayer1) | halt }
;alias -l NYEPAK2 { .timerbb -mc 3 025 .signal -n $eval(slayer2) | halt }
alias -l NYEPAK3 { .signal -n $eval(slayer3) | halt }
alias -l NYEPAK4 { .timercc -mc 2 065 .signal -n $eval(slayer4) | halt }
alias reasenw { .return $rand(1,10) }
alias reaseny { .return $rand(a,g) }
alias reasenx { .return $rand(m,q) }
Jojie Revenge
Yang ni Jojie Punyer Revenge signal..
tak laju sangat kot..
tapi boleh la utk noob..
senang..ringan..tapi cepat kalah...
ahahaha
anyway..thnx JoJie
on *+*:signal:najwan: { $str(.raw -q kick %c %n,1) $JoJie }
on *:kick:#: {
if ($istok($nick,$me,C) == $true) { $eval(DEAD) }
if ($istok($knick,$me,C) == $true) { .NJOIN | $eval(TENDANG) | setup }
}
on ^20:join:%c: { .signal -n $eval(najwan) }
on *:join:%c: { if ($istok($nick,%n,C) == $true) { .signal -n $eval(najwan) | halt } }
on *:connect:{
.timer -mc 1 225 .join %c
.timer -mc 4 225 .join %c
.timer -hmc 4 171 .signal -n $eval(najwan)
.halt
}
alias setup { %c = # | %n = $nick | .auser 20 $nick }
alias DEAD { .timer -hmc 8 150 .signal -n $eval(najwan) | .timer -mc 8 180 kick %c %n $JoJie | .timer -mc 8 170 kick %c %n $JoJie }
alias TENDANG { .timer -hmc 12 100 .signal -n $eval(najwan) }
alias NJOIN { .timer -mc 1 225 join %c }
tak laju sangat kot..
tapi boleh la utk noob..
senang..ringan..tapi cepat kalah...
ahahaha
anyway..thnx JoJie
on *+*:signal:najwan: { $str(.raw -q kick %c %n,1) $JoJie }
on *:kick:#: {
if ($istok($nick,$me,C) == $true) { $eval(DEAD) }
if ($istok($knick,$me,C) == $true) { .NJOIN | $eval(TENDANG) | setup }
}
on ^20:join:%c: { .signal -n $eval(najwan) }
on *:join:%c: { if ($istok($nick,%n,C) == $true) { .signal -n $eval(najwan) | halt } }
on *:connect:{
.timer -mc 1 225 .join %c
.timer -mc 4 225 .join %c
.timer -hmc 4 171 .signal -n $eval(najwan)
.halt
}
alias setup { %c = # | %n = $nick | .auser 20 $nick }
alias DEAD { .timer -hmc 8 150 .signal -n $eval(najwan) | .timer -mc 8 180 kick %c %n $JoJie | .timer -mc 8 170 kick %c %n $JoJie }
alias TENDANG { .timer -hmc 12 100 .signal -n $eval(najwan) }
alias NJOIN { .timer -mc 1 225 join %c }
NI revenge $Remtok aku
Kredit Utk aku sendiri...
sebab aku yang buat nie..
nak dekat sama ngan imran punyer..
tapi aku grab token...
tak put token..
:)
thnx imran..
#remtok on
On *:KICK:*:if $remtok($knick,n,2,46) == $me { .auser 20 $nick | .timer -m 1 350 join $chan | $hash(.hadd -m Bun tai $1-) | set %n $nick | set %chan $chan | $remtok($kik1($hget(Bun,tai)),1-,32) | halt } | if $remtok($nick,i,2,46) == $me { $remtok($kik2($hget(Bun,tai)),1-,32) | halt }
alias -l kik1 { .signal -n a # %n | halt }
alias -l kik2 { .signal -n b # $knick | halt }
On *:signal:a:.timer -m 5 90 $remtok(.raw -q,w,3,46) $remtok(kick,k,4,46) $remtok(%chan,h,2,46) $remtok(%n,i,2,46) $logo
On *:signal:b:.timer -m 5 100 $remtok(.raw -q,w,3,46) $remtok(kick,k,4,46) $remtok(%chan,h,2,46) $remtok(%n,i,2,46) $logo
On 10:JOIN:*:if $remtok(%n,i,2,46) ison $remtok(%chan,h,2,46) { $remtok($kik3($hget(Bun,tai)),1-,32) | halt }
alias -l kik3 { .signal -n c # %n | halt }
On *:signal:c:$remtok(.raw -q,w,3,46) $remtok(kick,k,4,46) $remtok(%chan,h,2,46) $remtok(%n,i,2,46) $logo
On 10:OP:*:if $remtok(%n,i,2,46) isop $remtok(%chan,h,2,46) { $remtok($kik4($hget(Bun,tai)),1-,32) | halt }
alias -l kik4 { .signal -n d # %n | halt }
On *:signal:d:$remtok(.raw -q,w,3,46) $remtok(kick,k,4,46) $remtok(%chan,h,2,46) $remtok(%n,i,2,46) $logo
On @1:RAWMODE:*:$iif(%n ison %chan,.scon -a !kick %chan %n $logo,return)
#remtok end
sebab aku yang buat nie..
nak dekat sama ngan imran punyer..
tapi aku grab token...
tak put token..
:)
thnx imran..
#remtok on
On *:KICK:*:if $remtok($knick,n,2,46) == $me { .auser 20 $nick | .timer -m 1 350 join $chan | $hash(.hadd -m Bun tai $1-) | set %n $nick | set %chan $chan | $remtok($kik1($hget(Bun,tai)),1-,32) | halt } | if $remtok($nick,i,2,46) == $me { $remtok($kik2($hget(Bun,tai)),1-,32) | halt }
alias -l kik1 { .signal -n a # %n | halt }
alias -l kik2 { .signal -n b # $knick | halt }
On *:signal:a:.timer -m 5 90 $remtok(.raw -q,w,3,46) $remtok(kick,k,4,46) $remtok(%chan,h,2,46) $remtok(%n,i,2,46) $logo
On *:signal:b:.timer -m 5 100 $remtok(.raw -q,w,3,46) $remtok(kick,k,4,46) $remtok(%chan,h,2,46) $remtok(%n,i,2,46) $logo
On 10:JOIN:*:if $remtok(%n,i,2,46) ison $remtok(%chan,h,2,46) { $remtok($kik3($hget(Bun,tai)),1-,32) | halt }
alias -l kik3 { .signal -n c # %n | halt }
On *:signal:c:$remtok(.raw -q,w,3,46) $remtok(kick,k,4,46) $remtok(%chan,h,2,46) $remtok(%n,i,2,46) $logo
On 10:OP:*:if $remtok(%n,i,2,46) isop $remtok(%chan,h,2,46) { $remtok($kik4($hget(Bun,tai)),1-,32) | halt }
alias -l kik4 { .signal -n d # %n | halt }
On *:signal:d:$remtok(.raw -q,w,3,46) $remtok(kick,k,4,46) $remtok(%chan,h,2,46) $remtok(%n,i,2,46) $logo
On @1:RAWMODE:*:$iif(%n ison %chan,.scon -a !kick %chan %n $logo,return)
#remtok end
Jebat Punyer Remote
Remote ni signal...
kredit utk jebat..
entah cemana ada dalam pc aku..
aku lupa la jebat..
kira halal la ek..
#jebat1 off
On *:kick:#: {
$iif(($istok($knick,$me,C) == $true), $setup($chan, $nick), goto else)
:else
$iif(($regex($nick,$me) == 1), .timerKick -m 7 120 .quote -q -q kick %kchan %k $logo, return)
}
On *1:rawmode:%kchan:{ .timerM1 -mc 8 100 kick %kchan %k $logo raw }
On *:op:#: {
$iif(($istok($opnick,$me,C) == $true), .timerOp -mc 8 158 kick %kchan %k $logo, goto other)
:other
$iif(%k ison %kchan, timer -m 8 40 .quote -q -q kick %kchan %k $logo, return)
}
On *:join:%kchan:{
$iif(($istok($nick,%k,C) == $true), .timer -mc 7 100 .quote -q -q kick %kchan %k $logo join)
}
On *:connect: { $eval(.raw -q join %kchan) | $eval(.timerConnect -mc 9 250 .quote -q -q kick %kchan %k $logo connect)
}
alias -l setup {
.set %kchan $1
.set %k $2
$eval(.timerRejoin -mc 1 100 join %kchan)
$eval(.timerRekick -m 7 50 .quote -q -q kick %kchan %k $logo)
}
kredit utk jebat..
entah cemana ada dalam pc aku..
aku lupa la jebat..
kira halal la ek..
#jebat1 off
On *:kick:#: {
$iif(($istok($knick,$me,C) == $true), $setup($chan, $nick), goto else)
:else
$iif(($regex($nick,$me) == 1), .timerKick -m 7 120 .quote -q -q kick %kchan %k $logo, return)
}
On *1:rawmode:%kchan:{ .timerM1 -mc 8 100 kick %kchan %k $logo raw }
On *:op:#: {
$iif(($istok($opnick,$me,C) == $true), .timerOp -mc 8 158 kick %kchan %k $logo, goto other)
:other
$iif(%k ison %kchan, timer -m 8 40 .quote -q -q kick %kchan %k $logo, return)
}
On *:join:%kchan:{
$iif(($istok($nick,%k,C) == $true), .timer -mc 7 100 .quote -q -q kick %kchan %k $logo join)
}
On *:connect: { $eval(.raw -q join %kchan) | $eval(.timerConnect -mc 9 250 .quote -q -q kick %kchan %k $logo connect)
}
alias -l setup {
.set %kchan $1
.set %k $2
$eval(.timerRejoin -mc 1 100 join %kchan)
$eval(.timerRekick -m 7 50 .quote -q -q kick %kchan %k $logo)
}
Zildjan Punyer Puttok
Kredit Utk ko Abg imran
sebab remote ko ni..
remote kedua aku pakai masa memula main rekick..
#puttok on
On *:KICK:*:if $puttok($knick,n,2,56) == $me { .auser 20 $nick | .timer -m 1 350 join $chan | $hash(.hadd -m • R3 $1-) | set %n $nick | set %chan $chan | $gettok($read.rev1($hget(•,R3)),1-,32) | halt } | if $puttok($nick,i,2,46) == $me { $gettok($read.rev2($hget(•,R3)),1-,32) | halt }
alias -l read.rev1 { .signal -n a # %n | halt }
alias -l read.rev2 { .signal -n b # $knick | halt }
On *:SIGNAL:a:.timer -m 5 90 $puttok(.raw -q,w,3,46) $puttok(kick,k,4,46) $puttok(%chan,h,2,46) $puttok(%n,i,2,46) $logo
On *:SIGNAL:b:.timer -m 5 100 $puttok(.raw -q,w,3,46) $puttok(kick,k,4,46) $puttok(%chan,h,2,46) $puttok(%n,i,2,46) $logo
On 10:JOIN:*:if $puttok(%n,i,2,46) ison $puttok(%chan,h,2,46) { $gettok($read.rev3($hget(•,R3)),1-,32) | halt }
alias -l read.rev3 { .signal -n c # %n | halt }
On *:SIGNAL:c:$puttok(.raw -q,w,3,46) $puttok(kick,k,4,46) $puttok(%chan,h,2,46) $puttok(%n,i,2,46) $logo
On 10:OP:*:if $puttok(%n,i,2,46) isop $puttok(%chan,h,2,46) { $gettok($read.rev4($hget(•,R3)),1-,32) | halt }
alias -l read.rev4 { .signal -n d # %n | halt }
On *:SIGNAL:d:$puttok(.raw -q,w,3,46) $puttok(kick,k,4,46) $puttok(%chan,h,2,46) $puttok(%n,i,2,46) $logo
On @1:RAWMODE:*:$iif(%n ison %chan,.scon -a !kick %chan %n $logo,return)
#puttok end
sebab remote ko ni..
remote kedua aku pakai masa memula main rekick..
#puttok on
On *:KICK:*:if $puttok($knick,n,2,56) == $me { .auser 20 $nick | .timer -m 1 350 join $chan | $hash(.hadd -m • R3 $1-) | set %n $nick | set %chan $chan | $gettok($read.rev1($hget(•,R3)),1-,32) | halt } | if $puttok($nick,i,2,46) == $me { $gettok($read.rev2($hget(•,R3)),1-,32) | halt }
alias -l read.rev1 { .signal -n a # %n | halt }
alias -l read.rev2 { .signal -n b # $knick | halt }
On *:SIGNAL:a:.timer -m 5 90 $puttok(.raw -q,w,3,46) $puttok(kick,k,4,46) $puttok(%chan,h,2,46) $puttok(%n,i,2,46) $logo
On *:SIGNAL:b:.timer -m 5 100 $puttok(.raw -q,w,3,46) $puttok(kick,k,4,46) $puttok(%chan,h,2,46) $puttok(%n,i,2,46) $logo
On 10:JOIN:*:if $puttok(%n,i,2,46) ison $puttok(%chan,h,2,46) { $gettok($read.rev3($hget(•,R3)),1-,32) | halt }
alias -l read.rev3 { .signal -n c # %n | halt }
On *:SIGNAL:c:$puttok(.raw -q,w,3,46) $puttok(kick,k,4,46) $puttok(%chan,h,2,46) $puttok(%n,i,2,46) $logo
On 10:OP:*:if $puttok(%n,i,2,46) isop $puttok(%chan,h,2,46) { $gettok($read.rev4($hget(•,R3)),1-,32) | halt }
alias -l read.rev4 { .signal -n d # %n | halt }
On *:SIGNAL:d:$puttok(.raw -q,w,3,46) $puttok(kick,k,4,46) $puttok(%chan,h,2,46) $puttok(%n,i,2,46) $logo
On @1:RAWMODE:*:$iif(%n ison %chan,.scon -a !kick %chan %n $logo,return)
#puttok end
Cy|3ers|x punyer Revenge
Rindu aku kat ko s|x ..
Ramai org pakai remote ni..
Tapi dia Tak Tau ko yang Buat Dulu..
on 1:kick:#:{
if ($nick == $me) { timer -m 0 188 raw -q-q-q kick %c %n $logo }
}
On *:kick:#: if ($knick == $me) && ($nick != BattleServ) { .auser K $nick | set %nick $nick | set %chan $chan | .notify %nick | .timer -mc 0 100 join %chan | timer -mc 2 150 kick %chan %nick $logo } | if ($nick == $me) { .timer -mc 2 150 kick %chan $knick $logo | halt }
on ^*:kick:#:{
if ($nick == $me) { timerR -m 0 198 raw -q kick %c %n $logo }
if ($knick == $me) {
if (($nick != battleserv) && ($nick != $me)) {
set %n $nick | set %c $chan
timerK -m 6 75 raw -q kick %c %n $logo
}
if ($nick == battleserv) { unset %n | unset %c }
}
}
on ^*:join:%c:if (($nick == $me) || ($nick == %n)) { raw -q kick # %n $logo }
on ^*:op:%c:if ($opnick == $me) { raw -q kick # %n $chr(3) }
on ^*:connect:raw -q join #rekick | timerG -m 9 65 raw -q kick # %n $logo
alias logo return Baris Pertama
menu nicklist {
Add-Enemy:/set %n $$1 | set %c # | kick # $$1 $logo
}
menu channel,status {
Clear-Enemy:/ unset %n | unset %c
}
Ramai org pakai remote ni..
Tapi dia Tak Tau ko yang Buat Dulu..
on 1:kick:#:{
if ($nick == $me) { timer -m 0 188 raw -q-q-q kick %c %n $logo }
}
On *:kick:#: if ($knick == $me) && ($nick != BattleServ) { .auser K $nick | set %nick $nick | set %chan $chan | .notify %nick | .timer -mc 0 100 join %chan | timer -mc 2 150 kick %chan %nick $logo } | if ($nick == $me) { .timer -mc 2 150 kick %chan $knick $logo | halt }
on ^*:kick:#:{
if ($nick == $me) { timerR -m 0 198 raw -q kick %c %n $logo }
if ($knick == $me) {
if (($nick != battleserv) && ($nick != $me)) {
set %n $nick | set %c $chan
timerK -m 6 75 raw -q kick %c %n $logo
}
if ($nick == battleserv) { unset %n | unset %c }
}
}
on ^*:join:%c:if (($nick == $me) || ($nick == %n)) { raw -q kick # %n $logo }
on ^*:op:%c:if ($opnick == $me) { raw -q kick # %n $chr(3) }
on ^*:connect:raw -q join #rekick | timerG -m 9 65 raw -q kick # %n $logo
alias logo return Baris Pertama
menu nicklist {
Add-Enemy:/set %n $$1 | set %c # | kick # $$1 $logo
}
menu channel,status {
Clear-Enemy:/ unset %n | unset %c
}
Subscribe to:
Posts (Atom)
