[function isimduzenle]
local.ilkharf=<strsub 0 1 <name>>
local.gerisi=<strsub 1 15 <name>>
local.1=<strtoupper(<local.ilkharf>)>
local.2=<strtolower(<local.gerisi>)>
name <local.1><local.2>
name <strarg <name>>
update
[function isimsorgu]
obj=<uid>
forplayers 6144
if (<obj.uid> != <uid>)
if (strmatch('<obj.name>', '<uid.<uid>.name>'))
obj.f_isimdegis //////// dialog
obj.stone 1
return 1
endif
endif
endfor
yazacağın dialog onbutton tamam bölümü
on=1
if (strmatch('<argtxt[1]>',''))
src.sysmessage @025,1,1 Lutfen bir isim giriniz
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 Hatalı kullanım.
src.sdialog d_isimdegis
return 1
endif
endfor
obj=<uid>
forplayers 6144
if (<obj.uid> != <uid>)
if (strmatch('<obj.name>', '<argtxt[1]>'))
src.dialog d_isimdegis
src.sysmessage @025,1,1 Bu isimden sunucuda bulunmaktadir.
return 1
endif
endif
endfor
if ((strlen(<argtxt[1]>) > 12) || (strlen(<argtxt[1]>) < 4))
src.dialog d_isimdegis
src.sysmessage @025,1,1 Isminiz az 4, en fazla 12 karakter olmalidir.
return 1
endif
src.name <argtxt[1]>
src.tag.isim 1
src.isimduzenle
src.sysmessage @040,1,1 Isminiz <argtxt[1]> olarak değiştirilmiştir.
src.stone 0
charcreate bölümü altına isimsorgu yazdır olay bitsin