Memberitahu status !ping / Lag seseorang yg berkata !ping
on *:text:!ping*:#: { ctcp $nick ping | notice $nick I`m Pinging you. Please wait for result. }
on *:CtcpReply:ping*: { notice $nick Your Ping is $calc($ctime - $2) $+ seconds }
Berguna bagi Operator , Otomatis melakukan kick bila seseorang mengulang kata .
on @*:TEXT:*:#:{
if ($nick isop #) { return }
if ($nick isvoice #) { return }
var %text = $hash($strip($1-),32)
; %text adalah kata-kata yang user tulis, tetapi line diatas warna telah dihilangkan, dan $hash()'d untuk save besar file
var %old.text = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
var %old.text = $deltok(%old.text,1,46)
if (%rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] == $null) || (%old.text != %text) {
; jika user tidak mengulangi kalimatnya atau user menulis
; untuk pertama kalinya maka anda perlu membuat variable ; di bawah ini
set -u5 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] 1. $+ %text
; perhatikan -u5 adalah waktu dimana user tidak boleh mengulang kata-katanya dalam waktu 5 detik
; N pada -u(N) adalah jumlah line (%text) yang di ketik return
}
var %temp = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
var %count = $gettok(%temp,1,46)
; %count digunakan untuk menghitung berapa kali user mengulang kata-katanya (N)
inc %count
; inc adalah peningkatan jumlah yang dihitung %count karena user mengulang lagi kata-katanya
set -u10 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] %count $+ . $+ %text
if (%count >= 3) {
; jika user mengulangi kata-katanya sebanyak 3x atau lebih maka user akan di kick
kick # $nick kalimat diulang >= %count kali! Repeat Text ! We heard you in first place !
}
}
Langganan:
Posting Komentar (Atom)
Posting Komentar