More auton script help

[dosbox-gamer]

Hi all,
Does this look right:

(block Nil
(if (itmMatches (auton) "+Military;")
(setq gCost 10)
(setq gCost 0)
)
)

Thx in advance.

[Periculi]

I am not too sure that (auton) will work as you have it.

Is it an itemStruct like: (itmMatches itemStruct criteria) ?

[dosbox-gamer]

Scratch that. How about:

; Advanced autons cost more to fix.
(objGetItems gPlayership "*+MilitaryID")
>>>>>(setq gCost (add gCost (multiply 10 (gCost))))

where >>>>> equals indent


I just need to know if the script will work.
Thanks in advance.

[digdug]

So, is that military auton going to cost 11 times the original price ?

[dosbox-gamer]

Uh, no. Multiply 5 is for the cost of repairing the autons. Right?

[alterecco]

; Advanced autons cost more to fix.
(objGetItems gPlayership "*+MilitaryID")
>>>>>(setq gCost (add gCost (multiply 10 (gCost))))

Uh, no. Multiply 5 is for the cost of repairing the autons. Right?

You can read the above script as:
gCost = gCost + (gCost * 10)

So, like digdug said, the item will end up costing 11 times more than the initial gCost.

Also, the way you use (objGetItems ...) is not right. The function merely returns a list, it does not iterate over it. However, it is not totally clear to me what you want to accomplish. With the above snippet, it looks more like you want to increase the items price if the player has a Military ID? Let us know more precisely what you want to do, and it will be easier to help...

.]

[dosbox-gamer]

From the AutonDealer <repairautons> code:

In this case, gCost is the cost to repair autons. It starts at 0 (setq gCost 0), then is calculated by:

(enum gList auton
>>>>>(for i 0 (subtract (shpGetArmorCount auton) 1)
>>>>>>>>>>(setq gCost (add gCost (multiply 5 (objGetArmorDamage auton i))))
>>>>>>>>>>)
>>>>>)

So multiply 5 is on the armor damage points -- for standard (light) autons.
My multiply 10 would be for military (heavy) autons. Okay?

[alterecco]

My multiply 10 would be for military (heavy) autons. Okay?

I see. In that case you would need to change the code a bit. What you are doing with this piece of code:

Code: Select all

(objGetItems gPlayership "*+MilitaryID") 

is get all items on the playership that have a MilitaryID attribute.

What you would want to do, is check if the auton you are getting the price for, has the Military attribute. Something like:

Code: Select all

(enum gList auton
    (if (itmHasAttribute auton 'Military)
        (setq gCost (multiply 10 gCost))
    )
) 

Hope that clears it up.

Okay?

Okay!

.]

[dosbox-gamer]

Okay 8)