Threaded Mode | Linear Mode

Breaker · 05-28-2013 07:07 AM

i make that:

Code:

[TYPEDEF t_ore]

ON=@DClick

IF (!<SRC.IsNearType,t_forge,2>)

   SRC.SYSMESSAGE You must be near a forge to smelt.

ELIF (!<SRC.RESTEST <SERV.ITEMDEF.<TDATA1>.RESOURCES>>)

   SRC.SYSMESSAGE You do not have enough <NAME> to smelt.

ELSE

   SERV.NEWITEM=i_fire

   NEW.ATTR=attr_decay

   NEW.P=<SRC.IsNearType.P,t_forge,2>

   NEW.NUDGEUP=8

   NEW.UPDATEX

   NEW.TIMER=1

   SRC.FACE=<NEW>

   SRC.EMOTE smelt <NAME>

   SRC.SOUND=84

   LOCAL.AMOUNT=<SRC.RESCOUNT <SERV.ITEMDEF.<TDATA1>.RESOURCES.0.KEY>> / <SERV.ITEMDEF.<TDATA1>.RESOURCES.0.VAL>

   SERV.NEWITEM=<TDATA1>,<dLOCAL.AMOUNT>,<SRC.BACKPACK>

   SRC.CONSUME=<EVAL (<dLOCAL.AMOUNT> * <SERV.ITEMDEF.TDATA1>.RESOURCES.0.VAL>)> <SERV.ITEMDEF.<TDATA1>.RESOURCES.0.KEY>

ENDIF

RETURN 1

[TYPEDEF t_forge]

ON=@DClick

IF (<DISTANCE> > 2)

   SRC.SYSMESSAGE You must be near a forge to melt.

ELSE

   TARGET What do you want melt?

ENDIF

RETURN 1

ON=@TargOn_Item

IF (<ARGO.TYPE>!=t_ore)

   RETURN 0

ELIF (<DISTANCE> > 2)

   SRC.SYSMESSAGE You must be near a forge to smelt.

ELIF (!<SRC.RESTEST <SERV.ITEMDEF.<ARGO.TDATA1>.RESOURCES>>)

   SRC.SYSMESSAGE You do not have enough <ARGO.NAME> to smelt.

ELSE

   SERV.NEWITEM=i_fire

   NEW.ATTR=attr_decay

   NEW.P=<P>

   NEW.NUDGEUP=8

   NEW.UPDATEX

   NEW.TIMER=1

   SRC.FACE=<NEW>

   SRC.EMOTE smelt <ARGO.NAME>

   SRC.SOUND=84

   LOCAL.AMOUNT=<SRC.RESCOUNT <SERV.ITEMDEF.<ARGO.TDATA1>.RESOURCES.0.KEY>> / <SERV.ITEMDEF.<ARGO.TDATA1>.RESOURCES.0.VAL>

   SERV.NEWITEM=<ARGO.TDATA1>,<dLOCAL.AMOUNT>,<3SRC.BACKPACK>

   SRC.CONSUME=<EVAL (<dLOCAL.AMOUNT> * <SERV.ITEMDEF.<ARGO.TDATA1>.RESOURCES.0.VAL>)> <SERV.ITEMDEF.<ARGO.TDATA1>.RESOURCES.0.KEY>

ENDIF

RETURN 1

Threaded Mode \| Linear Mode Smelt ore (2 ores smelt to one ingot)
Author	Message