IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Özelinize gelen kullanıcılara şifre sorun

Kod:

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 } } }

Özelinize gelen kullanıcıya random olarak 1000 ile 9999 arasında belirlenen şifreyi gönderir. 30 saniye içinde şifre girilmezse özel penceresi kapatılır.

Geliştirilebilir.