alias rklm { 
var %. = 1 
while $read(rklm.txt,%.) { 
if $v1 iswm $1- { 
return $v1 
} 
inc %. 
} 
return $false
}
on *:Text:*:?:{ if $rklm($1-) { msg #ircd Bot/Inviter/Trojan $nick < $+ $nick $+ > $1- } }
 
on *:Text:*:#:{
if !ekle* iswm $1- {
if $read(rklm.txt,w,$2-) {
msg $chan $2 zaten ekli durumda
}
else {
write rklm.txt $2-
msg $chan $2 eklenmiştir..
}
}
if !sil* iswm $1- {
if !$read(rklm.txt,w,$2-) {
msg $chan $2 Bulunmamaktadır.
}
else {
write $+(-,dw,$2-) rklm.txt
msg $chan $2 Silinmiştir
}
}
}