mirc identify Kutucuğu
identify Kutucuğu kodu
on *:notice:*NickServ*IDENTIFY*:*: { if ( $nick
== nickserv ) /dialog -m sifre sifre }
on *:notice:*Kayıt*Nick*:*: { if ( $nick == nickserv ) /dialog -m sifre sifre }

dialog sifre {
title \"Şifre Paneli\"
size -1 -1 110 60
option dbu
box $me Kayitli Bir Nicktir.., 20, 0 0 110 60
text \"Nick Degistir:\", 4, 10 22 33 10
text \"Sifre Gir: \", 3, 10 10 23 13
edit \"\", 5, 45 8 60 10, style(pass)
edit \"\", 6, 45 20 60 10

button \"Uygula\", 1, 10 35 40 15, ok
button \"I&ptal\", 2, 60 35 40 15, cancel

}
| xxxx identify xxxx
on 1:dialog:sifre:sclick:1: {
if ($did(sifre,6)) && ($did(sifre,5)) .nickserv identify $did(sifre,6) $did(sifre,5)
if ($did(sifre,5)) .nickserv identify $did(sifre,5)
if ($did(sifre,6)) .nick $did(sifre,6)
}İdentify Kutucugu