on *:open:?:*:{ 
  if ($nick != $me) {
    $+(timer,ozelretmesaj;) 1 29 msg $nick 2Belirlenen sürede şifrenizi girmediniz. 4Özel pencereniz kapatılıyor.
    $+(timer,ozelkabul) 1 30 close -m $nick
    ozelsifre $nick
  }
}
alias ozelsifre {
  set -e %gelennick $1
  set %ozkabul $(,$str($!r(1000,9999) $chr(32) , 1))
  msg %gelennick 2Özelime yazmak için size belirlenmiş şifre olan 4 $+(",%ozkabul,") 2şifresini 4 $+(30 saniye) 2içinde  girmeniz gerekiyor.  4!şifre <şifreniz> 2şeklinde şifrenizi girebilirsiniz. Aksi takdirde özel penceresi kapatılacaktır. | halt
}
on *:text:*:?:{
  if $regex($1,/[!.](s|ş)ifre/i) {
    if !$2 { msg $nick Şifreyi yazmadın. | return }
    if $2 == %ozkabul {
      timerozelretmesaj off 
      timerozelkabul off
      msg $nick Şifreniz Kabul Edildi.
    }
    else { .msg $nick şifrenizi yanlış girdiniz. | return }
  }
}