[PLEVEL 1]

isim



[FUNCTION isim]

IF (<SRC.TAG.ISIM>==1)

IF (strmatch('<args>',''))

src.sysmessage @049,,1 Alternatif isim girdisi Kullanmalisiniz..

src.sysmessage @049,,1 Fonksiyonu ".isim Thomas" Seklinde Kullanmalisiniz..

return 1

ENDIF

IF (strmatch('<src.tag.isimsakla>','<args>'))

src.sysmessage @04,,1 Bu isimdaha onceden hatali gorulmustur. Lutfen yeni isim seciniz..

return 1

ENDIF

SRC.NAME=<ARGS>

SRC.TAG.ISIM=0

RETURN 1

ELSE

SRC.SYSMESSAGE Isminiz hatali degil.

RETURN 1

ENDIF



[PLEVEL 4]

hataliisim



[FUNCTION hataliisim]

NEWITEM isim_item

ACT.CONT <UID>

ACT.TARGET Select Target.



[ITEMDEF isim_item]

ID=i_memory

TYPE=t_eq_script



ON=@Create

TIMER=20



ON=@Timer

REMOVE

RETURN 1



ON=@Targon_char

src.targ.tag.isimsakla <src.name>

SRC.TARG.TAG.ISIM=1

SRC.TARG.TAG.ESKIISIM=<SRC.TARG.NAME>

SRC.TARG.NAME Isminiz hatalidir, .isim komutuyla degistirebilirsiniz.

RETURN 1

[EOF]