on *:join:#:if $kotunick($nick) { .gline $nick  (( kurallara aykırı davranış
#NickDeğiş on
on *:NICK:{ if $kotunick($newnick) { var %_ = 1, %< = $v1 | while $comchan($newnick,%_) { if $me isop $v1 { mode $v2 +b %< | 
kick $v2 $newnick %kckmsg } | inc %_ } } }
#NickDeğiş end
alias kotunick { var %_ = 1 | while $read(nickler.txt,%_) { if $v1 iswm $1 { return $v1 } | inc %_ } | return $false }
alias krt {
if $1 ischan && $me isop $1 {
var %` = $lines(Nickler.txt)
while %` {
if $fline($1,$read(Nickler.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { if 
$line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) isreg $1 { mode $1 +b $+($read(Nickler.txt,%`),!*@*) | kick $1 
$line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) %kckmsg } | dec %~ } }
dec %` 
} 
}
}
#oto-tara on
on me*:join:#: krt $chan
#oto-tara end
;-----------------------------------------
on *:LOAD:{
echo -a $timestamp *** Kötü Rumuz Koruması başarıyla yüklendi.
echo -a $timestamp *** S1y4H
run notepad.exe nickler.txt
set %oto-tara on
set %NickDeğiş on
set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu 
değiştirmeden kanala giriş yapamazsınız.
}
on *:UNLOAD:{ 
echo -a $timestamp *** Kötü Rumuz Koruması kaldırıldı. 
unset %oto-tar
unset %NickDeğiş
unset %kckmsg
}