trolls.lua

function test_trolls_ride_carts()
    local r0 = region.create(0, 0, "plain")
    local r1 = region.create(1, 0, "plain")
    local r2 = region.create(2, 0, "plain")
    local r3 = region.create(3, 0, "plain")
    local r4 = region.create(4, 0, "plain")
    local f = faction.create("troll")
    -- 1. 20 trolls can pull 5 loaded carts:
    local u1 = unit.create(f, r0, 20)
    u1:add_item("cart", 5)
    -- but with 10 or more horses, they should ride in the cart:
    u1:set_skill("riding", 1, true)
    u1:add_item("horse", 10)
    -- trolls weigh 20 GE, horses carry 20, carts carry 100 GE:
    u1:add_item("money", 100 * (10 * 20 + 5 * 100 - u1.number * 20))
    u1:add_order("NACH O O O")

    process_orders()
    assert_equal(r2, u1.region)

    u1:add_item("money", 1) -- just one wafer thin mint
    process_orders()
    assert_equal(r3, u1.region) -- can still walk
end