Kod:
on $*:snotice:/Client\sconnecting/:{ if $hfind(lamer,$9,0,W) { .gline $9 :Retkit Guvenlik Sistemi | msg #güvenlik $9 Lamer listesinde oldugundan sunucudan uzaklastirildi. }
}
on $*:text:/^[.!]lamer/i:#opers:{
if !$2 || !$3 && !$regex($2,/(l[iİı]st)$/i) || !$regex($2,/(ekle|s[iİı]l|l[iİı]st)$/i) { msg # hata mesajı | return }
elseif $regex($2,/ekle$/i) {
if $hfind(lamer,$3,0,W) { msg # Eklemek istediğiniz nick lamer listesinde zaten var! Silmek için: !lamer sil $hmatch(lamer,$strip($3),1).item | return }
.hadd -m lamer $strip($3)
.hsave -o lamer lamer.liste
.msg # $3 nicki lamer listesine eklenmiştir.
.gline $3 :Sado Mirc Guvenlik Sistemi
}
elseif $regex($2,/s[iİı]l$/i) {
if !$hfind(lamer,$3,0,W) { msg # Eklemek istediğiniz nick lamer listesinde yok! | return }
.hdel -m lamer $strip($3)
.hsave -o lamer lamer.liste
.msg # $3 nicki lamer listesinden silinmiştir.
}
elseif $regex($2,/l[iİı]st$/i) {
if !$hget(lamer,0).item { msg # Lamer olarak eklenmiş nick yok! | return }
msg # $+(«,$c(5,Lamer Nick Listesi),»)
var %m-k 1 | while (%m-k <= $hget(lamer,0).item) { msg # $hget(lamer,%m-k).item | inc %m-k }
msg # $+(«,$c(5,Lamer Nick Listesi Sonu),»)
msg # Herhangi bir kaydı silmek için örnek kullanım: $c(2,!lamer sil nick)
}
}