Nick Kayitlamaya Yarar ..

Kod;

alias regnick dialog-m regn regn
ileti?im regn (
Ba?l?k Nick Kay?t
size -1 -1 125 205
simge $ mircexe


metin? ifre:, 4,10 10 100 15,
, 5,10 30 100 20, autohs de?i?tir

metin Email:, 6,10 60 190 15,
, 7,10 75 100 20, autohs de?i?tir

; kutusu
kutusu, 8,1 1 120 55
kutu, 9,1 49 120 55
kutu, 10,1 97 120 57

; Dü?mesi
dü?mesi \ \ "& Kay? t Et \ \", 11,10 160 100 20, flat ok
dü?mesi \ \ "& Kapat \ \", 12,10 180 100 20, flat

text
metin \ \ "? u Andaki Nickiniz registerlenecektir \ \", 13,20 115 150 40,

)

1: dialog: regn :*:*:{
if ($ devent == init) (
if ($) (did-a regn 5% reg.p) == 5 yapt?
if ($) (did-a regn 7% reg.em) == 7 yapt?
)
if ($ devent de?i?tir ==) (
if ($) (set% reg.p $ did (5)) == 5 yapt?
if ($) (set% reg.em $ did (7)) == 7 yapt?
)
if ($ devent == sclick) (
/ echo-a? 6 (? 12 $ + $ $ timestamp if ($) (/ nickserv register% reg.p% reg.em | msg == 11 + mi? 6)? 4Nickiniz Kay? t ediliyor. )
)
)