Tarih: 07-01-2008, 18:42
Bu kod belirtilen kanaldaki tüm kullanıcılara kontrol mesajı yollar. Eğer
10 saniye içerisinde herhangi bir kullanıcı mesaja cevap verirse kanaldan banlayacaktır.
Kodu kullanmak için, belirtilen kanalın client editbox kutusuna
/kontrol yazmanız yeterli olacaktır.
Kod:
alias kontrol {
write -c kontrol.txt
set -eu10 %k $active
var %1 = 1,%v1
while $nick(%k,%1) {
%v1 = $v1
if %v1 != $me {
.msg %v1 Kontrol mesajıdır.
write kontrol.txt %v1
}
inc %1
}
}
on *:text:*:?:if (%k && $nick ison %k && $read(kontrol.txt,w,$nick)) ban -k %k $nick 2 sebeb.