Sabtu, 24 Januari 2009

sCriPt rEMotE

script invite

alias pesen {
if ( $$1 !isop $$2 ) {
notice $$1 pesan<<(isi pesan script anda)
}
}

On *:JOIN:#channel << (isi channel yg ingin anda invite):{
.timer 1 30 pesen $nick $chan
}

script ping

On 1:Text:!ping*:#: { ctcp $nick ping | %ping.chan = $chan | %ping.wkt = $ctime }
On 1:CtcpReply:ping*: {
if ( $nick ison %ping.chan ) msg %ping.chan » $nick : Ping Reply $calc( $ctime - %ping.wkt ) detik «
unset %ping.*
}

script slaps

on *:ACTION:*:#:{
if ($me isin $1- && slap isin $1-) {
inc -u20 %slap.me | var %i = %slap.me | $iif(%i > 4,return)
if (%i == 1) { describe $chan : SiaPaLaH YaNG SuKe SLaP-SLaP Ni.. oooooooo $nick ... NaK aPe SLaP2 Nie ??? }
if (%i == 2) { describe $chan : KaLau Ko BoRiNG PoN $nick JGN La SLaP aKu... }
if (%i == 3) { describe $chan : DaH La $nick JGN KaCau aKu...TGH BeRaK Nie... }
if (%i == 4) { describe $chan : MaLaS NaK LaYaN Ko. :Þ }
}
}

Tidak ada komentar: