Isim sorgu

on=0
src.sys_error Isminizi degistirmeniz gereklidir..
src.dialog d_isimdegis
return 1

on=1
if (strmatch('<argtxt[1]>',''))
src.sys_error Lutfen bir isim giriniz
return 1
endif
if ((strlen(<argtxt[1]>)) > 10) || ((strlen(<argtxt[1]>)) < 4)
src.dialog d_isimdegis
src.sys_error Isminiz az 4, en fazla 10 karakter olmalidir.
return 1
endif
if !(<isnum <argtxt[1]>>==0)
src.dialog d_isimdegis
src.sys_error Sadece harf girebilirsiniz..
return 1
endif

obj=<uid>
forplayers 6144
if (<obj.uid> != <uid>)
if (strmatch('<obj.name>', '<argtxt[1]>'))
src.dialog d_isimdegis
src.sys_error Bu isimden sunucuda bulunmaktadir.
return 1
endif
endif
endfor

src.name <argtxt[1]>
src.tag.isim 1
src.isimduzenle

//////////////////////////////////////////////////////////////////////////////////////
//Scripted by Slothere - 02.12.2007
//[!]This script was written for Ultima-Strike, it can not be used without permission
//https://www.ultima-strike.com | https://wiki.ultima-strike.com
//////////////////////////////////////////////////////////////////////////////////////
// Functionlar

[FUNCTION sys_error]
sysmessageua 38,6,6,trk, <args>

[function isimsorgu]
obj=<uid>
forplayers 6144
if (<obj.uid> != <uid>)
if (strmatch('<obj.name>', '<uid.<uid>.name>'))
obj.f_isimdegis
return 1
endif
endif
endfor

[function isimduzenle]
local.ilkharf <strsub 0 1 <name>>
name <strtolower <name>>
local.gerisi <strsub 1 15 <name>>

for harf 1 26
if strmatch(<local.ilkharf>,<def.kucukharf_<dlocal.harf>>)
local.yeniilkharf <def.buyukharf_<dlocal.harf>>
name <local.yeniilkharf><local.gerisi>
name <strarg <name>>
endif
endfor

[function f_isimdegis]
src.dialog d_isimdegis
return 1

// Dialogumuz

[dialog d_isimdegis]
0,0
nomove

resizepic 0 0 5170 800 600
resizepic 100 350 3000 250 30 

dhtmlgump 100 50 800 20 0 0 <def.kirmizi> <src.name> isminden sunucuda bulunmaktadir. Lutfen isminizi degistiriniz.
dhtmlgump 100 150 800 20 0 0 <def.kirmizi> Isminizi degistirirken dikkat etmeniz gerekenler;
dhtmlgump 100 180 800 500 0 0 - Stafflarin nicklerini yazmak yasaktir. <def.br>- Staff nickleri kulanmak yasaktir. <def.br>- Nickinizde "@'^!" turu simgeler kullanmak yasaktir. <def.br>- Kufur içerikli nick kullanmak yasaktir. <def.br>- Baskasinin nickini degistirip kullanmak yasaktir..

dhtmlgump 100 300 800 20 0 0 <def.kirmizi>Isminizi asagidaki kutucuga yazip onaylayin.
dtextentry 120 360 150 20 0 1 <src.name>

dhtmlgump 140 405 100 20 0 0 Tamam

dhtmlgump 320 550 200 20 0 0 <def.kirmizi> <serv.name> Isim Menusu

button 100 400 4006 4007 1 0 1

[dialog d_isimdegis button]
on=0
src.sys_error Isminizi degistirmeniz gereklidir..
src.dialog d_isimdegis
return 1

on=1
if (strmatch('<argtxt[1]>',''))
src.sys_error Lutfen bir isim giriniz
return 1
endif
if ((strlen(<argtxt[1]>)) > 10) || ((strlen(<argtxt[1]>)) < 4)
src.dialog d_isimdegis
src.sys_error Isminiz az 4, en fazla 10 karakter olmalidir.
return 1
endif
if !(<isnum <argtxt[1]>>==0)
src.dialog d_isimdegis
src.sys_error Sadece harf girebilirsiniz..
return 1
endif

obj=<uid>
forplayers 6144
if (<obj.uid> != <uid>)
if (strmatch('<obj.name>', '<argtxt[1]>'))
src.dialog d_isimdegis
src.sys_error Bu isimden sunucuda bulunmaktadir.
return 1
endif
endif
endfor

src.name <argtxt[1]>
src.tag.isim 1
src.isimduzenle


[eof]


//////////////////////////////////////////////////////////////////////////////////////
//Scripted by Slothere - 02.12.2007
//[!]This script was written for Ultima-Strike, it can not be used without permission
//https://www.ultima-strike.com | https://wiki.ultima-strike.com
//////////////////////////////////////////////////////////////////////////////////////

[function isimsorgu]
obj=<uid>
forplayers 6144
if (<obj.uid> != <uid>)
if (strmatch('<obj.name>', '<uid.<uid>.name>'))
src.sysmessage @0481,, Lutfen farkli isimde bir karakter olusturunuz.Karakteriniz 5 saniye icerisinde silinecektir.
timerf 5,obj.remove 1
endif
endif
endfor

[function checkname]
forplayers 6144
if !strcmpi(<name>,<src.name>)
return 1
endif
endfor
return 0


if <checkname>
src.sysmessage isim degis uleyn.
src.sdialog d_isim_Degis
endif