Friday, October 5, 2007

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
}

0 comments: