Spika -  09-03-2013 01:43
Kod:
[Defname color_Q_Q]
needcolor {077e,07be,0777,0778,07c6,07e5,0ba9,07c7,079f,0790,0786,082f,07f8,07cd,07c1,0ba3,0801,0ba7,07f9,0817,07fc,0787,0492,0792,0789,07b5,0829,07a2,0bac,0bb7,0781,07ef,0bb6,048e,07cc,0819,0bb0,07a7,0831,0490,0827,07f6,0813,048d,0833,0b9d,07e8,0bb3,077d,0ba9,07ff,079d,07ea,07ee,0808,07f4,07a5,0804,0480,0481,0799,07a1,07a5,07a4,04c2,07d1,06d6,07a2,0907,07a7,052d,041b,07b1,07a3,07a6,07c1,07c8,07e5,0794,07e6,01,07f2}
needmoney 5000

[TYPEDEF=T_SERVER_TUB]
ON @dclick
IF (<SRC.TARG.TOPOBJ.DISTANCE> >= 3) || (<SRC.TARG.CANSEELOS>!=1)
SRC.SYSMESSAGE @055,,1 Eşyadan uzaktasınız.
ELSE
TARGET @046,,1 Boyamak istediğiniz kıyafeti seçiniz?
RETURN 1
ENDIF

ON @targon_item
SRC.TARG=<ARGO>
IF (<ARGO.CANSEELOS>!=1) || (<ARGO.TOPOBJ.DISTANCE>>=4)
SRC.SYSMESSAGE @0481,,1 Uzaktasınız.
ELIF <ARGO.BASEID>== I_SERVER_TUB
COLOR <HVAL <DEF.NEEDCOLOR>>
ELIF !<ARGO.cont.uid>==<src.uid>
ELIF <ARGO.TYPE> = T_CLOTHING
ARGO.COLOR <color>
ARGO.UPDATE
SOUND 023E
ELIF (<SRC.GOLD> < <DEF.NEEDMONEY>)
SRC.SYSMESSAGE @0481,,1 Deri ve demir parçaları için 5000 gold pieces gerekmektedir.
ELIF (<ARGO.TYPE> = T_aRMOR_LEATHER) || (<ARGO.TYPE> = T_aRMOR) || (<ARGO.TYPE> = T_SHIELD)
ARGO.COLOR <COLOR>
ARGO.UPDATE
SOUND 023E
SRC.GOLD -= <DEF.NEEDMONEY>
SRC.UPDATE
ELSE
SRC.SYSMESSAGE @021,,1 Sadece elbise,deri ve demir parça eşyaları boyayabilirsiniz.
ENDIF

YORUMLAR (0)

Henüz yorum yapılmamış.

BENZER SAYFALAR