[PLEVEL 1]

SilahSec

//Weapon



[FUNCTION SilahSec]

ref1 = <SRC.TAG0.WEAPONWEAR.<args>>

if ( <isempty <args>> )

SYSM K,Hangi numaralı silahi seçeceğinizi belirtmediniz.

elif !( <ref1> )

SYSM K,Silah Seçimi için kayıt oluşturmalısınız..

sdialog D_WEAPONWEAR

elif ( <ref1.TopObj> != <src> )

SYSM K,Silah üzerinizde değil yeni bir kayıt oluşturun.

sdialog D_WEAPONWEAR

else

SRC.EQUIP <REF1>

endif







[DIALOG D_WEAPONWEAR]

<DEF.DIALOGSTARTPOSITION>

MAIN 270,130,320,270,Weapon Wear



FOR 1 2

REF1=<SRC.TAG0.WEAPONWEAR.<DLOCAL._FOR>>

TBUTTON_B 315,<EVAL (<LOCAL._FOR>*50)+180>,<DLOCAL._FOR>,<DLOCAL._FOR> Kare Silahını seç <QVAL (<REF1>)?(<REF1.NAME>):>

ENDFOR





[DIALOG D_WEAPONWEAR BUTTON]

ON=1 100

SRC.TARGETF F_WEAPONWEAR <DARGN>

SRC.SYS_BEYAZ <DARGN>.Eklemek istediğiniz silahı seçiniz.













[FUNCTION F_WEAPONWEAR]

IF !(<ARGO.ISITEM>)

SRC.SYSM K,Bu bir eşya değil.

RETURN 1

ELSEIF !(<ARGO.ISWEAPON>)



SRC.SYSM K,Bu bir silah değil.

RETURN 1

ENDIF

SRC.TAG0.WEAPONWEAR.<ARGS> <ARGO>

SRC.EQUIP <ARGO>

SRC.SYSM Y,Kayıt Oluştu. (<ARGO.NAME>)

//SRC.F_DIALOG D_WEAPONWEAR









[EOF]

[FUNCTION F_WEAPONWEAR]

IF !(<ARGO.ISITEM>)

SRC.SYSM K,Bu bir eşya değil.

RETURN 1

ELSEIF !(<ARGO.ISWEAPON>)

SRC.SYSM K,Bu bir silah değil.

RETURN 1

ELSEIF ( <argo.TopObj> != <src> ) 

SRC.SYSM K,Seçtiğiniz eşya üzerinizde olmalı.

RETURN 1

ENDIF

SRC.TAG0.WEAPONWEAR.<ARGS> <ARGO>

SRC.EQUIP <ARGO>

SRC.SYSM Y,Kayıt Oluştu. (<ARGO.NAME>)

//SRC.F_DIALOG D_WEAPONWEAR