alias regnick dialog -m regn regn 
dialog regn { 
title Nick Register 
size -1 -1 125 205 
icon $mircexe 

text Şifre:,4,10 10 100 15, 
edit ,5,10 30 100 20,autohs 

text Email: ,6,10 60 190 15, 
edit ,7,10 75 100 20,autohs 

;box 
box ,8,1 1 120 55 
box ,9,1 49 120 55 
box ,10,1 97 120 57 

; button 
button "&Kayıt Et",11,10 160 100 20,flat ok 
button "&Kapat",12,10 180 100 20,flat 

;text 
text "şu andaki nickiniz registerlenecektir",13,20 115 150 40, 

} 

on 1:dialog:regn:*:*:{ 
if ($devent == init) { 
if ($did == 5) { did -a regn 5 %reg.p } 
if ($did == 7) { did -a regn 7 %reg.em } 
} 
if ($devent == edit) { 
if ($did == 5) { set %reg.p $did(5) } 
if ($did == 7) { set %reg.em $did(7) } 
} 
if ($devent == sclick) { 
if ($did == 11) { /msg nickserv register %reg.p %reg.em | /echo -a  6( 12 $+ $timestamp $+  6)  4Nickiniz Kayıt Ediliyor. } 
} 
}