[function nicktemizle]
if !(<tag0.soyad>)
src.name <strarg <src.name>>
return 1
endif

[FUNCTION sys_error]
sysmessage @0713,,1 <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

[function f_isimdegis2]
src.dialog d_isimdegis
src.tag.isimci 1
return 1

[dialog d_isimdegis]
0,0
nomove

resizepic 0 0 3600 600 400
resizepic 20 350 9350 250 30

dhtmlgump 20 20 500 30 95 0 <def.kirmizi> <serv.serv.name> Rename Deed Menü
dhtmlgump 20 60 500 30 95 0 <def.kirmizi> İsminizi değiştirirken dikkat etmeniz gerekenler
dhtmlgump 20 100 500 100 95 0 Staffların nicklerini kullanmak yasaktır. <def.br>Staff nickleri kulanmak yasaktir. <def.br>Nickinizde "@'^!" türü simgeler kullanmak yasaktir. <def.br>Küfür içerikli nick kullanmak yasaktır. <def.br>Başkasının nickini değiştirip kullanmak yasaktır.

dhtmlgump 20 220 350 30 95 0 <def.kirmizi>Yeni isminizi aşşağıdaki kutucuğa yazıp tamam'a tıklayınız.

dtextentry 25 355 100 20 0 1 Yeni isim

button 285 355 4006 4007 1 0 1

[dialog d_isimdegis button]
on=0
if (<eval <src.tag.isimci>> == 1)
sdialog d_isimdegis
return 1
else
src.sysmessage @0850,,1 Rename menü kapandı.
return 1
endif

on=1
if (strmatch("@*","<argtxt[1]>"))
src.sys_error Ayıp?
return 1
endif

if (strmatch('<argtxt[1]>',''))
src.sys_error Lütfen bir isim giriniz
return 1
endif
if ((strlen(<argtxt[1]>)) > 15) || ((strlen(<argtxt[1]>)) < 4)
src.dialog d_isimdegis
src.sys_error Isminiz az 4, en fazla 15 karakter olmalıdır.
return 1
endif
if !(<isnum <argtxt[1]>>==0)
src.dialog d_isimdegis
src.sys_error Sadece harf girebilirsiniz.
return 1
endif

local.argtxt <argtxt[1]>
for 15
if (strmatch('<strsub <eval <local._for>> 1 <local.argtxt>>',' '))
src.smsx Boşluk kullanamazsınız.
src.dialog d_pinkayip1
return 1
endif
endfor

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

src.name <argtxt[1]>
src.isimduzenle
src.sysmessage @60,,1 Yeni İsminiz : <argtxt[1]>
src.consume 1 i_rdeed
src.tag.isimci 0

[defname isimsistemi]
kirmizi <basefont color=#0ff0000>
br <br>
kucukharf_1 a
kucukharf_2 b
kucukharf_3 c
kucukharf_4 d
kucukharf_5 e
kucukharf_6 f
kucukharf_7 g
kucukharf_8 h
kucukharf_9 i
kucukharf_10 j
kucukharf_11 k
kucukharf_12 l
kucukharf_13 m
kucukharf_14 n
kucukharf_15 o
kucukharf_16 p
kucukharf_17 r
kucukharf_18 s
kucukharf_19 t
kucukharf_20 u
kucukharf_21 v
kucukharf_22 y
kucukharf_23 z
kucukharf_24 w
kucukharf_25 x
kucukharf_26 q

buyukharf_1 A
buyukharf_2 B
buyukharf_3 C
buyukharf_4 D
buyukharf_5 E
buyukharf_6 F
buyukharf_7 G
buyukharf_8 H
buyukharf_9 I
buyukharf_10 J
buyukharf_11 K
buyukharf_12 L
buyukharf_13 M
buyukharf_14 N
buyukharf_15 O
buyukharf_16 P
buyukharf_17 R
buyukharf_18 S
buyukharf_19 T
buyukharf_20 U
buyukharf_21 V
buyukharf_22 Y
buyukharf_23 Z
buyukharf_24 W
buyukharf_25 X
buyukharf_26 Q

[ITEMDEF i_rdeed]
id i_deed
name rename deed
weight 40
type t_script
value 500000

ON=@CREATE
COLOR=0867
ATTR=04

ON=@click
message @0481 <name>
return 1

ON=@DCLICK
if !(<src.targ.cont> == <src.findlayer.21.uid>)
src.smsx Çantanızdayken kullanabilirsiniz.
return 1
else
sdialog d_isimdegis
return 1
endif


[eof]