[Events e_soyisim]



[Function Soyisim]
if !(<src.isevent.e_soyisim>)
src.dialog d_soyisim
else
src.sysmessage Zaten Soyadiniz var!
return 1

[DIALOG d_Soyisim]
0,0
resizepic 70 0 5100 420 350
resizepic 80 10 5100 400 330
resizepic 90 20 5054 380 310
resizepic 132 188 3000 322 25

Htmlgump 150 110 300 20 0 0 0

htmlgump 150 153 35 20 1 0 0
resizepic 205 150 3000 250 26
textentry 210 155 150 25 0 0 2

htmlgump 362 252 40 20 3 0 0
button 420 252 4006 4007 1 0 1

htmlgump 190 252 100 20 4 0 0
button 152 252 4006 4007 1 0 2

htmlgump 150 190 320 20 5 0 0
[DIALOG d_soyisim TEXT]
Mutluluklar Dileriz / <serv.name> Staff
Soyad:
???
Tamam
Kurallar
Soyadinizi 12 haneyi gecmeyecek sekilde alin

[DIALOG d_soyisim button]
ON=1
if (strmatch('<argtxt[0]>',''))
sysmessage @1153 Soyad Belirtmediniz...
dialog d_soyisim
elseif ((strlen(<argtxt[0]>)) > 12)
sysmessage @1153 Soyadinizi 12 haneyi gecmeyecek sekilde alin...
dialog d_soyisim
elseif (strmatch('<argtxt[0]>','@')) || (strmatch('<argtxt[0]>','!')) || (strmatch('<argtxt[0]>',''')) || (strmatch('<argtxt[0]>','^')) || (strmatch('<argtxt[0]>','$')) || (strmatch('<argtxt[0]>','&'))
sysmessage @1153 Hatali Karakterler var.
dialog d_soyisim
elseif (strmatch('<argtxt[0]>','ı')) || (strmatch('<argtxt[0]>','ö')) || (strmatch('<argtxt[0]>','ç')) || (strmatch('<argtxt[0]>','ü')) || (strmatch('<argtxt[0]>','ğ'))
sysmessage @1153 turkce Karakterler kullanmayiniz.
dialog d_soyisim
elseif (strmatch('<argtxt[0]>',' '))
sysmessage @1153 Bosluk Birakamassin.
dialog d_soyisim
else
src.events +e_soyisim
src.tag.soyadal=<ARGTXT[0]>
src.newitem i_isimci
src.act.equip
return 1
endif


[itemdef i_soyisimci]
defname i_soyisimci
id=i_memory
type=t_eq_script
weight=0
name isimci

ON=@CREATE
attr=attr_decay || attr_newbie
timer 2

ON=@timer
remove
return 1

ON=@equip
src.name=<src.name> <src.tag.soyadal>
return 1

[Function Soyadsilcem]
if (<src.isevent.e_soyisim>)
src.dialog d_ayril_isimver
else
src.sysmessage soyadiniz yokken bu komutu kullanamassiniz.
return 1

[DIALOG d_ayril_isimver]
0,0
resizepic 70 0 5100 420 350
resizepic 80 10 5100 400 330
resizepic 90 20 5054 380 310
resizepic 132 188 3000 322 25

Htmlgump 150 110 300 20 0 0 0

htmlgump 150 153 35 20 1 0 0
resizepic 205 150 3000 250 26
textentry 210 155 150 25 0 0 2

htmlgump 362 252 40 20 3 0 0
button 420 252 4006 4007 1 0 1

htmlgump 190 252 100 20 4 0 0
button 152 252 4006 4007 1 0 2

htmlgump 150 190 320 20 5 0 0

[DIALOG d_ayril_isimver text]
Yeni isminizi Yaziniz 13 Haneyi gecmesin. / <serv.name> Staff
isim:
???
Tamam
Vazgectim ayrilmayacagim
Yeni isminiz 13 Haneyi gecmesin.

[DIALOG d_ayril_isimver button]
ON=1
if (strmatch('<argtxt[0]>',''))
sysmessage @1153 Ad Belirtmediniz...
dialog d_ayril_isimver
elseif (strmatch('<strsub <eval (<local._for>> 1 <argtxt[0]>>',' ')
sysmessage @60 Isminizde bosluk kullanamazsiniz.
return 1
dialog d_ayril_isimver
elseif ((strlen(<argtxt[0]>)) > 12)
sysmessage @1153 Adiniz 12 haneyi gecmeyecek sekilde alin...
dialog d_ayril_isimver
else
        src.sysmessage @080a Bosandiniz...
        src.name <argtxt[0]>
        src.events -e_soyisim
return 1
endif

ON=2
return 1