[itemdef i_deed_soyadi]

defname i_deed_soyadi

id i_deed

name Soyadi Deed



on=@create

attr attr_newbie

color 080a



on=@click

message @48,,1 [<serv.servname>]

message @48,,1 [<name>]

return 1



on=@dclick

if (<src.tag0.birkeretikladim> == 0)

sdialog d_soyadi

src.tag0.birkeretikladim=1

else

src.sysmessage @48,,1 Bir Kere Tikladiniz...

endif

return 1



[DIALOG d_soyadi]

3, 3

PAGE 0

nomove

noclose

resizepic 0 0 3500 305 240

text 22 23 1152 0

textentry 25 100 160 16 1152 1 1

button 207 188 243 241 1 0 1

button 33 185 249 248 1 1 2



[DIALOG d_soyadi TEXT]

<serv.servname> Soyadi Menu

Soyadi Buraya



[DIALOG d_soyadi BUTTON]

on=1

src.sysmessage @48,,1 Soyadini deed'i sadece birkere kullanabilirsin dikkatli ol

src.dialog d_soyadi



on=2

if (strmatch('<argtxt[1]>','')

src.sysmessage @025,1,1 Lutfen Bir Soy Ad Giriniz.

src.dialog d_soyadi

return 1

endif



for 0 <eval strlen(<argtxt[1]>) -1>

if !strmatch('[a-z]','<strsub <eval <local._for>> 1 <argtxt[1]>>')

src.sysmessage @025,1,1 Hatali Soyadi Girdiniz : "<argtxt[1]>"

src.sdialog d_soyadi

return 1

endif

endfor



if ((strlen(<argtxt[1]>) > 12) || ((strlen(<argtxt[1]>) < 4)

src.dialog d_soyadi

src.sysmessage @025,1,1 Soy Isminiz az 4, en fazla 12 karakter olmalidir.

else

src.name <src.name> <argtxt[1]>

return 1

endif

Değerlendirmeler

0

Total votes: 0