Kod

on $*:snotice:/Client\sconnecting/:{ if $hfind(lamer,$9,0,W) { .gline $9 : $Network Guvenlik Sistemi | msg #Kanal $9 Lamer listesinde oldugundan sunucudan uzaklastirildi. } 

}
on $*:text:/^[.!]lamer/i:#Kanal:{
  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.
    .kline $3 : $Network 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: !lamer sil nick
  }
}