on *:part:#:$iif($read(giris.txt,w,$nick),.write $+(-dl,$readn) giris.txt)
on *:quit:$iif($read(giris.txt,w,$nick),.write $+(-dl,$readn) giris.txt)
on *:nick:if $read(giris.txt,w,$nick) { .write $+(-dl,$readn) giris.txt | .write giris.txt $newnick }
on !*:join:#:if !$read(giris.txt,w,$nick) { .write giris.txt $nick | .enable #nickkay | .who $nick }
#nickkay off
raw 352:*: { if r isin $7 { .notice $6 Kayıtlı Nick. } | else { .notice $6 Kayıtsız Nick. } }
raw 315:*: { .disable #nickkay }
#nickkay end