Threaded Mode | Linear Mode

Breaker · 05-03-2013 03:39 PM

Is there a way to control resources for smelting ore into ingots?
i want make: 1 ingot = 2 ores
and if player not have 2 ores (RESTEST 2 i_ore_iron) for smelt, then player will see message about shortage amount

rewrite types t_ore and t_forge, still what variants?

**Mordaunt** · 05-03-2013 09:59 PM

Code:

[ITEMDEF 01bef]

//DEFNAME2=INGOTS

//DEFNAME2=IRON_INGOT

DEFNAME=i_ingot_iron   

TYPE=T_INGOT

RESOURCES=2 i_ore_iron  <------

SKILLMAKE=20.0 MINING

TDATA1=20.0

TDATA2=50.0

WEIGHT=2

DUPELIST=01bf0,01bf1,01bf2,01bf3,01bf4

CATEGORY=Items by Professions

SUBSECTION=Blacksmiths

DESCRIPTION=Iron Ingot

Breaker · 05-05-2013 09:01 PM

It does not work, I had already tried
Please advise before checking works or not ...

Rizz · 05-07-2013 11:50 PM

I used this script for make 1 ingot from 10 ores.

PHP Code:

[ITEMDEF i_ore_coal]
ID=i_ore_iron
NAME=Coal Ore
SKILLMAKE=MINING 99.0
TDATA1=i_ingot_steel
VALUE=15

ON=@Create
    COLOR=0989
    
ON=@DCLICK
LOCAL.amount=<amount>
FORITEMS 3
    IF (<TYPE>==t_forge)
        LOCAL.lega=<DLOCAL.amount>*10
        IF (<src.restest <DLOCAL.lega> i_ore_iron>)
            src.consume <DLOCAL.lega> i_ore_iron
            return 0
        ELSE 
            src.message @,3,1 You need 10 iron ore and 1 coal ore to make a steel ingot
            return 1
        ENDIF
    ENDIF
ENDFOR 

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