#egitimkonu on
on *:text:*:#: { 
  if $regex($1,/!(Chan|Nick|Memo)serv/i) { 
    set -u62 %egitimkonu $+($regml(1),serv)
    set -u62 %sifrenick $nick
    set -u62 %sifrekanal $chan
    .timerkont 1 60 sifrekontrol
    msg $nick Eğitimi başlatmak için lütfen şifreyi 60 sn. süre içerisinde özelime giriniz..Örnek !sifre 12345
    .enable #sifresorgu
    .disable #egitimkonu
  }
}
#egitimkonu end
#sifresorgu off
on *:text:*:?: { 
  if $1 == !sifre && $2 && $nick == %sifrenick {
    if $2 == %anasifre { play %sifrekanal $+(%egitimkonu,.txt) 6000 | .timerkont off | unset %sifre* %egitimkonu | .disable #sifresorgu }
    else { msg $nick Hatalı şifre... | inc %sifrehata }
    if $evalnext(%sifrehata) == 3 { msg $nick Şifreyi üst üste 3 kere yanlış girdiniz. | ignore -u60 $nick | closemsg $nick | unset %sifre* %egitimkonu | .enable #egitimkonu | .disable #sifresorgu }
  }
}
#sifresorgu end
alias sifrekontrol {
  if %sifrenick { unset %sifre* %egitimkonu | .enable #egitimkonu | .disable #sifresorgu }
}
on *:playend:if $regex($nopath($filename),/(Chan|Nick|Memo)serv\.txt/i) { .enable #egitimkonu }