Yeni Isim Sistemi

• Slothere
• 2007-12-02 19:35
• 0 Yorumlar
• 1532 Görüntüleme

//////////////////////////////////////////////////////////////////////////////////////

//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 | http://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



/// Defnameler.



[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



[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 | http://wiki.ultima-strike.com

//////////////////////////////////////////////////////////////////////////////////////

Değerlendirmeler

Total votes: 0