[function isimkontrol]
for 1 16
if (strmatch('<strsub <dlocal._for> 1 <src.name>>','''))
local.ismim <strsub 0 <dlocal._for> <src.name>>
src.f_isimkontrol <local.ismim>
return 1
endif
endfor
src.f_isimkontrol <src.name>
[function f_isimkontrol]
if (<var0.isim.<src.name>> == 1)
src.sysmessage @0846,,1 Şuanda <src.name> ismi Kullanılıyor.
src.dialog d_ismimhatali
src.stone
return 1
endif
else
src.say <args>
local.ilkharf <strsub 0 1 <args>>
local.gerisi <strsub 1 15 <args>>
local.1 <strtoupper <local.ilkharf>>
local.2 <strtolower <local.gerisi>>
src.name <strarg <local.1><local.2>>
[dialog d_ismimhatali]
100,410
nomove
//noclose
resizepic 100 0 3600 370 160 // arka plan
resizepic 200 120 9300 140 20 // Yeni isim arka plan
dtextentry 210 120 160 100 1152 1 _______________
dhtmlgump 120 20 200 20 0 0 <def.bfont_white> Merhaba;
dhtmlgump 120 40 330 70 0 0 <def.bfont_gray> Seçmiş olduğunuz <def.bfont_white><src.name> <def.bfont_gray>ismi daha önceden başka bir player tarafından seçilmiş.Bu yüzden isiminizi değiştirmeniz gerekmektedir.
button 350 120 55 56 1 0 1
[dialog d_ismimhatali BUTTON]
onbutton=1
if (<var.isim.<argtxt[1]>> ==1)
src.sysmessage @0846,,1 Bu isim daha önceden seçilmiş.
src.sdialog d_ismimhatali
return 1
endif
if (strmatch('<argtxt[1]>','')
src.sysmessage @025,1,1 Lütfen istediğiniz isim'i belirtiniz.
src.sdialog d_ismimhatali
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 isim : "<argtxt[1]>"
src.sdialog d_ismimhatali
return 1
endif
endfor
if ((strlen(<argtxt[1]>) > 12) || ((strlen(<argtxt[1]>) < 4)
src.sdialog d_ismimhatali
src.sysmessage @025,1,1 Enaz 4, en fazla 12 karakter olmalidir.
else
src.name <src.name> <argtxt[1]>
serv.var.isim.<argtxt[1]> = 1
src.sysmessage @0b2,,1 Yeni isminiz <src.name> olarak ayarlandı.
return 1
Fakat burada bir hata var.
Aynı isimi yazdığınız zaman ismim hatali dialogu çıkmıyor!
Şöle ekledim
[FUNCTION f_onchar_create]
src.isimkontrol
// This function is called before client is going to delete a character.
// SRC --> char being deleted
// ARGO --> the client deleting the character
// RETURN
// 0 --> normal action (delete char)
// 1 --> denyes deletion
Üye Ol veya Giriş Yap
Bu forum başlığına mesaj atmak istiyorsanız hemen üye olun veya giriş yapın.