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