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

Bu yazıya ilk yorumu yazın

Sadece kayıtlı kullanıcılar yorum yazabilir.
Lütfen sisteme giriş yapın veya kayıt olun.

Powered by AkoComment Tweaked Special Edition v.1.4.6
AkoComment © Copyright 2004 by Arthur Konze - www.mamboportal.com
All right reserved