fiddlerwoaroof/crawl - Change XP6MR3Q24DQOWNEGMSHJX54ZAISKOIF65IR65M4EOR45KR2OSFVQC

Move library "item" from clua.cc to l_item.cc.

Created by Robert Vollmert on October 20, 2009

XP6MR3Q24DQOWNEGMSHJX54ZAISKOIF65IR65M4EOR45KR2OSFVQC

Dependencies

In channels

main

Change contents

Insertion in crawl-ref/source/makefile.obj at line 53 [6.79]
[4.2841]
[5.3022]
```
l_item.o \
```
Insertion in crawl-ref/source/l_libs.h at line 16 [4.2907]
[7.3235]
[3.8735]
```
void cluaopen_item(lua_State *ls);
```

Insertion in crawl-ref/source/l_libs.h at line 71 [4.2907]

[8.2997]

[9.3712]

#define LUA_ITEM(name, n) \
    item_def *name = clua_check_item(ls, n);

Insertion in crawl-ref/source/l_libs.h at line 101 [4.2907]
[10.2984]
[9.4861]
```
item_def *clua_check_item(lua_State *ls, int n);
```

File addition: l_item.cc (----------)

[11.24]

#include "AppHdr.h"
#include <sstream>
#include "clua.h"
#include "l_libs.h"
#include "artefact.h"
#include "command.h"
#include "initfile.h"
#include "invent.h"
#include "item_use.h"
#include "itemprop.h"
#include "items.h"
#include "output.h"
#include "skills2.h"
#include "stuff.h"
/////////////////////////////////////////////////////////////////////
// User bindings to get information on items. We must be careful
// to only hand out information the player already has.
//
static const item_def *excl_item = NULL;
item_def *clua_check_item(lua_State *ls, int n)
{
    if (!lua_islightuserdata(ls, n))
    {
        luaL_argerror(ls, n, "Unexpected arg type");
        return (NULL);
    }
    item_def *item = static_cast<item_def *>(lua_touserdata(ls, n )); \
    if (excl_item && item != excl_item)
    {
        luaL_argerror(ls, n, "Unexpected item");
        return (NULL);
    }
    return (item);
}
void lua_set_exclusive_item(const item_def *item)
{
    excl_item = item;
}
void lua_push_floor_items(lua_State *ls)
{
    lua_push_items(ls, igrd(you.pos()));
}
                    
void lua_push_inv_items(lua_State *ls = NULL)
{
    if (!ls)
        ls = clua.state();
    lua_newtable(ls);
    int index = 0;
    for (unsigned slot = 0; slot < ENDOFPACK; ++slot)
    {
        if (is_valid_item(you.inv[slot]))
        {
            lua_pushlightuserdata(ls, &you.inv[slot]);
            lua_rawseti(ls, -2, ++index);
        }
    }
}
void lua_push_items(lua_State *ls, int link)
{
    lua_newtable(ls);
    int index = 0;
    for ( ; link != NON_ITEM; link = mitm[link].link)
    {
        lua_pushlightuserdata(ls, &mitm[link]);
        lua_rawseti(ls, -2, ++index);
    }
}
static int l_item_inventory(lua_State *ls)
{
    lua_push_inv_items(ls);
    return (1);
}
static int l_item_index_to_letter(lua_State *ls)
{
    int index = luaL_checkint(ls, 1);
    char sletter[2] = "?";
    if (index >= 0 && index <= ENDOFPACK)
        *sletter = index_to_letter(index);
    lua_pushstring(ls, sletter);
    return (1);
}
static int l_item_letter_to_index(lua_State *ls)
{
    const char *s = luaL_checkstring(ls, 1);
    if (!s || !*s || s[1])
        return (0);
    lua_pushnumber(ls, letter_to_index(*s));
    return (1);
}
static int l_item_swap_slots(lua_State *ls)
{
    int slot1 = luaL_checkint(ls, 1),
        slot2 = luaL_checkint(ls, 2);
    bool verbose = lua_toboolean(ls, 3);
    if (slot1 < 0 || slot1 >= ENDOFPACK
        || slot2 < 0 || slot2 >= ENDOFPACK
        || slot1 == slot2 || !is_valid_item(you.inv[slot1]))
    {
        return (0);
    }
    swap_inv_slots(slot1, slot2, verbose);
    return (0);
}
static int l_item_wield(lua_State *ls)
{
    if (you.turn_is_over)
        return (0);
    LUA_ITEM(item, 1);
    int slot = -1;
    if (item && is_valid_item(*item) && in_inventory(*item))
        slot = item->link;
    bool res = wield_weapon(true, slot);
    lua_pushboolean(ls, res);
    return (1);
}
static int l_item_wear(lua_State *ls)
{
    if (you.turn_is_over)
        return (0);
    LUA_ITEM(item, 1);
    if (!item || !in_inventory(*item))
        return (0);
    bool success = do_wear_armour(item->link, false);
    lua_pushboolean(ls, success);
    return (1);
}
static int l_item_puton(lua_State *ls)
{
    if (you.turn_is_over)
        return (0);
    LUA_ITEM(item, 1);
    if (!item || !in_inventory(*item))
        return (0);
    lua_pushboolean(ls, puton_ring(item->link));
    return (1);
}
static int l_item_remove(lua_State *ls)
{
    if (you.turn_is_over)
    {
        mpr("Turn is over");
        return (0);
    }
    LUA_ITEM(item, 1);
    if (!item || !in_inventory(*item))
    {
        mpr("Bad item");
        return (0);
    }
    int eq = get_equip_slot(item);
    if (eq < 0 || eq >= NUM_EQUIP)
    {
        mpr("Item is not equipped");
        return (0);
    }
    bool result = false;
    if (eq == EQ_WEAPON)
        result = wield_weapon(true, -1);
    else if (eq == EQ_LEFT_RING || eq == EQ_RIGHT_RING || eq == EQ_AMULET)
        result = remove_ring(item->link);
    else
        result = takeoff_armour(item->link);
    lua_pushboolean(ls, result);
    return (1);
}
static int l_item_drop(lua_State *ls)
{
    if (you.turn_is_over)
        return (0);
    LUA_ITEM(item, 1);
    if (!item || !in_inventory(*item))
        return (0);
    int eq = get_equip_slot(item);
    if (eq >= 0 && eq < NUM_EQUIP)
    {
        lua_pushboolean(ls, false);
        lua_pushstring(ls, "Can't drop worn items");
        return (2);
    }
    int qty = item->quantity;
    if (lua_isnumber(ls, 2))
    {
        int q = luaL_checkint(ls, 2);
        if (q >= 1 && q <= item->quantity)
            qty = q;
    }
    lua_pushboolean(ls, drop_item(item->link, qty));
    return (1);
}
static item_def *dmx_get_item(lua_State *ls, int ndx, int subndx)
{
    if (lua_istable(ls, ndx))
    {
        lua_rawgeti(ls, ndx, subndx);
        item_def *item = util_get_userdata<item_def>(ls, -1);
        lua_pop(ls, 1);
        return (item);
    }
    return util_get_userdata<item_def>(ls, ndx);
}
static int dmx_get_qty(lua_State *ls, int ndx, int subndx)
{
    int qty = -1;
    if (lua_istable(ls, ndx))
    {
        lua_rawgeti(ls, ndx, subndx);
        if (lua_isnumber(ls, -1))
            qty = luaL_checkint(ls, -1);
        lua_pop(ls, 1);
    }
    else if (lua_isnumber(ls, ndx))
    {
        qty = luaL_checkint(ls, ndx);
    }
    return (qty);
}
static bool l_item_pickup2(item_def *item, int qty)
{
    if (!item || in_inventory(*item))
        return (false);
    int floor_link = item_on_floor(*item, you.pos());
    if (floor_link == NON_ITEM)
        return (false);
    return pickup_single_item(floor_link, qty);
}
static int l_item_pickup(lua_State *ls)
{
    if (you.turn_is_over)
        return (0);
    if (lua_islightuserdata(ls, 1))
    {
        LUA_ITEM(item, 1);
        int qty = item->quantity;
        if (lua_isnumber(ls, 2))
            qty = luaL_checkint(ls, 2);
        if (l_item_pickup2(item, qty))
            lua_pushnumber(ls, 1);
        else
            lua_pushnil(ls);
        return (1);
    }
    else if (lua_istable(ls, 1))
    {
        int dropped = 0;
        for (int i = 1; ; ++i)
        {
            lua_rawgeti(ls, 1, i);
            item_def *item = dmx_get_item(ls, -1, 1);
            int qty = dmx_get_qty(ls, -1, 2);
            lua_pop(ls, 1);
            if (l_item_pickup2(item, qty))
                dropped++;
            else
            {
                // Yes, we bail out on first failure.
                break;
            }
        }
        if (dropped)
            lua_pushnumber(ls, dropped);
        else
            lua_pushnil(ls);
        return (1);
    }
    return (0);
}
static int l_item_equipped(lua_State *ls)
{
    LUA_ITEM(item, 1);
    if (!item || !in_inventory(*item))
        return (0);
    int eq = get_equip_slot(item);
    if (eq < 0 || eq >= NUM_EQUIP)
        return (0);
    return (1);
}
// Returns item equipped in a slot defined in an argument.
static int l_item_equipped_at(lua_State *ls)
{
    int eq = -1;
    if (lua_isnumber(ls, 1))
        eq = luaL_checkint(ls, 1);
    else if (lua_isstring(ls, 1))
    {
        const char *eqname = lua_tostring(ls, 1);
        if (!eqname)
            return (0);
        eq = equip_name_to_slot(eqname);
    }
    if (eq < 0 || eq >= NUM_EQUIP)
        return (0);
    if (you.equip[eq] != -1)
        lua_pushlightuserdata(ls, &you.inv[you.equip[eq]]);
    else
        lua_pushnil(ls);
    return (1);
}
static int l_item_class(lua_State *ls)
{
    LUA_ITEM(item, 1);
    if (item)
    {
        bool terse = false;
        if (lua_isboolean(ls, 2))
            terse = lua_toboolean(ls, 2);
        std::string s = item_class_name(item->base_type, terse);
        lua_pushstring(ls, s.c_str());
    }
    else
        lua_pushnil(ls);
    return (1);
}
// FIXME: Fold this back into itemname.cc.
static const char *ring_types[] =
{
    "regeneration",
    "protection",
    "protection from fire",
    "poison resistance",
    "protection from cold",
    "strength",
    "slaying",
    "see invisible",
    "invisibility",
    "hunger",
    "teleportation",
    "evasion",
    "sustain abilities",
    "sustenance",
    "dexterity",
    "intelligence",
    "wizardry",
    "magical power",
    "levitation",
    "life protection",
    "protection from magic",
    "fire",
    "ice",
    "teleport control"
};
static const char *amulet_types[] =
{
    "rage", "resist slowing", "clarity", "warding", "resist corrosion",
    "gourmand", "conservation", "controlled flight", "inaccuracy",
    "resist mutation"
};
static int l_item_subtype(lua_State *ls)
{
    LUA_ITEM(item, 1);
    if (item)
    {
        if (item_type_known(*item))
        {
            const char *s = NULL;
            if (item->base_type == OBJ_JEWELLERY)
            {
                if (jewellery_is_amulet(*item))
                    s = amulet_types[ item->sub_type - AMU_RAGE ];
                else
                    s = ring_types[item->sub_type];
            }
            else if (item->base_type == OBJ_POTIONS)
            {
                if (item->sub_type == POT_BLOOD)
                   s = "blood";
                else if (item->sub_type == POT_BLOOD_COAGULATED)
                   s = "coagulated blood";
                else if (item->sub_type == POT_WATER)
                   s = "water";
                else if (item->sub_type == POT_PORRIDGE)
                   s = "porridge";
                else if (item->sub_type == POT_BERSERK_RAGE)
                   s = "berserk";
                else if (item->sub_type == POT_GAIN_STRENGTH
                         || item->sub_type == POT_GAIN_DEXTERITY
                         || item->sub_type == POT_GAIN_INTELLIGENCE)
                {
                   s = "gain ability";
                }
                else if (item->sub_type == POT_CURE_MUTATION)
                   s = "cure mutation";
            }
            else if (item->base_type == OBJ_BOOKS)
            {
                if (item->sub_type == BOOK_MANUAL)
                    s = "manual";
                else
                    s = "spellbook";
            }
            if (s)
                lua_pushstring(ls, s);
            else
                lua_pushnil(ls);
            lua_pushnumber(ls, item->sub_type);
            return (2);
        }
    }
    lua_pushnil(ls);
    lua_pushnil(ls);
    return (2);
}
static int l_item_cursed(lua_State *ls)
{
    LUA_ITEM(item, 1);
    bool cursed = item && item_ident(*item, ISFLAG_KNOW_CURSE)
                       && item_cursed(*item);
    lua_pushboolean(ls, cursed);
    return (1);
}
static int l_item_worn(lua_State *ls)
{
    LUA_ITEM(item, 1);
    int worn = get_equip_slot(item);
    if (worn != -1)
        lua_pushnumber(ls, worn);
    else
        lua_pushnil(ls);
    if (worn != -1)
        lua_pushstring(ls, equip_slot_to_name(worn));
    else
        lua_pushnil(ls);
    return (2);
}
static std::string _item_name(lua_State *ls, item_def* item)
{
    description_level_type ndesc = DESC_PLAIN;
    if (lua_isstring(ls, 2))
        ndesc = description_type_by_name(lua_tostring(ls, 2));
    else if (lua_isnumber(ls, 2))
        ndesc = static_cast<description_level_type>(luaL_checkint(ls, 2));
    bool terse = lua_toboolean(ls, 3);
    return (item->name(ndesc, terse));
}
static int l_item_name(lua_State *ls)
{
    LUA_ITEM(item, 1);
    if (item)
    {
        std::string name = _item_name(ls, item);
        lua_pushstring(ls, name.c_str());
    }
    else
        lua_pushnil(ls);
    return (1);
}
static int l_item_name_coloured(lua_State *ls)
{
    LUA_ITEM(item, 1);
    if (item)
    {
        std::string name   = _item_name(ls, item);
        int         col    = menu_colour(name, menu_colour_item_prefix(*item));
        std::string colstr = colour_to_str(col);
        std::ostringstream out;
        out << "<" << colstr << ">" << name << "</" << colstr << ">";
        lua_pushstring(ls, out.str().c_str());
    }
    else
        lua_pushnil(ls);
    return (1);
}
static int l_item_quantity(lua_State *ls)
{
    LUA_ITEM(item, 1);
    lua_pushnumber(ls, item? item->quantity : 0);
    return (1);
}
static int l_item_inslot(lua_State *ls)
{
    int index = luaL_checkint(ls, 1);
    if (index >= 0 && index < 52 && is_valid_item(you.inv[index]))
        lua_pushlightuserdata(ls, &you.inv[index]);
    else
        lua_pushnil(ls);
    return (1);
}
static int l_item_slot(lua_State *ls)
{
    LUA_ITEM(item, 1);
    if (item)
    {
        int slot = in_inventory(*item) ? item->link
                                       : letter_to_index(item->slot);
        lua_pushnumber(ls, slot);
    }
    else
        lua_pushnil(ls);
    return (1);
}
static int l_item_ininventory(lua_State *ls)
{
    LUA_ITEM(item, 1);
    lua_pushboolean(ls, item && in_inventory(*item));
    return (1);
}
static int l_item_equip_type(lua_State *ls)
{
    LUA_ITEM(item, 1);
    if (!item || !is_valid_item(*item))
        return (0);
    equipment_type eq = EQ_NONE;
    if (item->base_type == OBJ_WEAPONS || item->base_type == OBJ_STAVES)
        eq = EQ_WEAPON;
    else if (item->base_type == OBJ_ARMOUR)
        eq = get_armour_slot(*item);
    else if (item->base_type == OBJ_JEWELLERY)
        eq = item->sub_type >= AMU_RAGE? EQ_AMULET : EQ_RINGS;
    if (eq != EQ_NONE)
    {
        lua_pushnumber(ls, eq);
        lua_pushstring(ls, equip_slot_to_name(eq));
    }
    else
    {
        lua_pushnil(ls);
        lua_pushnil(ls);
    }
    return (2);
}
static int l_item_weap_skill(lua_State *ls)
{
    LUA_ITEM(item, 1);
    if (!item || !is_valid_item(*item))
        return (0);
    int skill = range_skill(*item);
    if (skill == SK_THROWING)
        skill = weapon_skill(*item);
    if (skill == SK_FIGHTING)
        return (0);
    lua_pushstring(ls, skill_name(skill));
    lua_pushnumber(ls, skill);
    return (2);
}
static int l_item_dropped(lua_State *ls)
{
    LUA_ITEM(item, 1);
    if (!item || !is_valid_item(*item))
        return (0);
    lua_pushboolean(ls, item->flags & ISFLAG_DROPPED);
    return (1);
}
static int l_item_can_cut_meat(lua_State *ls)
{
    LUA_ITEM(item, 1);
    if (!item || !is_valid_item(*item))
        return (0);
    lua_pushboolean(ls, can_cut_meat(*item));
    return (1);
}
static int l_item_artefact(lua_State *ls)
{
    LUA_ITEM(item, 1);
    if (!item || !is_valid_item(*item))
        return (0);
    lua_pushboolean(ls, item_ident(*item, ISFLAG_KNOW_PROPERTIES)
                && is_artefact(*item));
    return (1);
}
static int l_item_branded(lua_State *ls)
{
    LUA_ITEM(item, 1);
    if (!item || !is_valid_item(*item) || !item_type_known(*item))
        return (0);
    bool branded = false;
    switch (item->base_type)
    {
    case OBJ_WEAPONS:
        branded = get_weapon_brand(*item) != SPWPN_NORMAL;
        break;
    case OBJ_ARMOUR:
        branded = get_armour_ego_type(*item) != SPARM_NORMAL;
        break;
    case OBJ_MISSILES:
        branded = get_ammo_brand(*item) != SPMSL_NORMAL;
        break;
    default:
        break;
    }
    lua_pushboolean(ls, branded);
    return (1);
}
static const struct luaL_reg item_lib[] =
{
    { "artefact",          l_item_artefact },
    { "branded",           l_item_branded },
    { "class",             l_item_class },
    { "subtype",           l_item_subtype },
    { "cursed",            l_item_cursed },
    { "worn",              l_item_worn },
    { "name",              l_item_name },
    { "name_coloured",     l_item_name_coloured },
    { "quantity",          l_item_quantity },
    { "inslot",            l_item_inslot },
    { "slot",              l_item_slot },
    { "ininventory",       l_item_ininventory },
    { "inventory",         l_item_inventory },
    { "letter_to_index",   l_item_letter_to_index },
    { "index_to_letter",   l_item_index_to_letter },
    { "swap_slots",        l_item_swap_slots },
    { "wield",             l_item_wield },
    { "wear",              l_item_wear },
    { "puton",             l_item_puton },
    { "remove",            l_item_remove },
    { "drop",              l_item_drop },
    { "pickup",            l_item_pickup },
    { "equipped_at",       l_item_equipped_at },
    { "equipped",          l_item_equipped },
    { "equip_type",        l_item_equip_type },
    { "weap_skill",        l_item_weap_skill },
    { "dropped",           l_item_dropped },
    { "can_cut_meat",      l_item_can_cut_meat },
    { NULL, NULL },
};
void cluaopen_item(lua_State *ls)
{
    luaL_openlib(ls, "item", item_lib, 0);
}

Deletion in crawl-ref/source/food.cc at line 731 [14.3043806]
B:BD[12.36073] → [13.3996:3998]
∅:D[13.3998] → [14.3058243:3058244]
B:BD[14.3058243] → [14.3058243:3058244]
B:BD[14.3058393] → [15.428582:428625]
B:BD[15.428625] → [16.6233:6274]
```
}
void lua_push_floor_items(lua_State *ls)
{
    lua_push_items(ls, igrd(you.pos()));
```
Deletion in crawl-ref/source/food.cc at line 733 [14.3043806]
B:BD[14.3058500] → [15.428680:428863]
∅:D[15.428863] → [14.3058548:3058554]
B:BD[14.3058548] → [14.3058548:3058554]
B:BD[14.3058554] → [15.428864:428906]
∅:D[15.428906] → [14.3058584:3058594]
B:BD[14.3058584] → [14.3058584:3058594]
B:BD[14.3058594] → [15.428907:429004]
∅:D[15.429004] → [14.3058689:3058705]
B:BD[14.3058689] → [14.3058689:3058705]
B:BD[14.3058705] → [15.429005:429007]
∅:D[17.322] → [15.429014:429015]
B:BD[15.429014] → [15.429014:429015]
```
void lua_push_inv_items(lua_State *ls = NULL)
{
    if (!ls)
        ls = clua.state();
    lua_newtable(ls);
    int index = 0;
    for (unsigned slot = 0; slot < ENDOFPACK; ++slot)
    {
        if (is_valid_item(you.inv[slot]))
        {
            lua_pushlightuserdata(ls, &you.inv[slot]);
            lua_rawseti(ls, -2, ++index);
        }
    }
}
```
Deletion in crawl-ref/source/clua.cc at line 594 [15.483969]
B:BD[18.20000] → [18.20000:20034]
```
void luaopen_item(lua_State *ls);
```
Replacement in crawl-ref/source/clua.cc at line 619 [15.483969]
∅:D[19.10920] → [18.20302:20328]
B:BD[18.20302] → [18.20302:20328]
```
    luaopen_item(_state);
```
[19.10920]
[18.20328]
```
    cluaopen_item(_state);
```

Deletion in crawl-ref/source/clua.cc at line 725 [15.483969]

B:BD[15.502357] → [15.502357:503016]

B:BD[15.503016] → [20.18448:18691]

∅:D[20.18691] → [15.503016:503734]

B:BD[15.503016] → [15.503016:503734]

B:BD[15.503734] → [21.6458:6608]

∅:D[21.6608] → [15.503886:503906]

B:BD[15.503886] → [15.503886:503906]

B:BD[15.503906] → [21.6609:6615]

∅:D[21.6615] → [22.16182:16183]

B:BD[15.503906] → [22.16182:16183]

∅:D[22.16183] → [15.503911:504730]

B:BD[15.503911] → [15.503911:504730]

B:BD[15.504730] → [23.12238:12287]

∅:D[23.12287] → [15.504786:505194]

B:BD[15.504786] → [15.504786:505194]

B:BD[15.505194] → [22.16184:16185]

∅:D[22.16185] → [15.505199:506119]

B:BD[15.505199] → [15.505199:506119]

∅:D[24.102064] → [15.506182:506975]

B:BD[15.506182] → [15.506182:506975]

B:BD[15.506975] → [24.102065:102119]

∅:D[24.102119] → [15.507040:508220]

B:BD[15.507040] → [15.507040:508220]

B:BD[15.508220] → [2.2756:3055]

∅:D[2.3055] → [15.508220:509078]

B:BD[15.508220] → [15.508220:509078]

B:BD[15.509078] → [25.88484:88520]

∅:D[25.88520] → [15.509114:509565]

B:BD[15.509114] → [15.509114:509565]

B:BD[15.509565] → [26.17835:17858]

∅:D[26.17858] → [15.509589:509593]

B:BD[15.509589] → [15.509589:509593]

B:BD[15.509593] → [25.88521:88559]

∅:D[25.88559] → [15.509631:510026]

B:BD[15.509631] → [15.509631:510026]

B:BD[15.510026] → [27.4263:4311]

∅:D[27.4311] → [15.510146:510213]

B:BD[15.510146] → [15.510146:510213]

B:BD[15.510213] → [27.4312:4385]

∅:D[27.4385] → [15.510213:510227]

B:BD[15.510213] → [15.510213:510227]

B:BD[15.510227] → [28.3401:3468]

B:BD[28.3468] → [29.686:767]

B:BD[29.767] → [30.13868:13976]

∅:D[30.13976] → [28.3558:3736]

B:BD[28.3558] → [28.3558:3736]

B:BD[28.3736] → [31.1964:2254]

B:BD[31.2254] → [30.13977:13995]

∅:D[30.13995] → [31.2254:2293]

B:BD[31.2254] → [31.2254:2293]

B:BD[31.2293] → [30.13996:14014]

∅:D[30.14014] → [31.2293:2395]

B:BD[31.2293] → [31.2293:2395]

∅:D[31.2395] → [28.3736:3750]

B:BD[28.3736] → [28.3736:3750]

B:BD[28.3750] → [32.3311:3533]

∅:D[32.3533] → [22.16186:16187]

B:BD[28.3750] → [22.16186:16187]

∅:D[22.16187] → [15.510240:510498]

B:BD[15.510240] → [15.510240:510498]

B:BD[28.3839] → [31.2396:2397]

∅:D[28.5128] → [15.510499:510564]

B:BD[15.510499] → [15.510499:510564]

B:BD[15.510564] → [22.16188:16251]

B:BD[22.16251] → [26.18070:18116]

∅:D[26.18116] → [15.510671:510722]

B:BD[15.510671] → [15.510671:510722]

B:BD[15.510723] → [15.510723:511036]

B:BD[15.511036] → [33.2904:3296]

∅:D[33.3296] → [15.511737:511823]

B:BD[15.511737] → [15.511737:511823]

B:BD[15.511823] → [33.3297:3871]

∅:D[33.3871] → [15.512119:512649]

∅:D[34.31111] → [15.512119:512649]

B:BD[15.512119] → [15.512119:512649]

B:BD[15.512649] → [21.6616:6738]

∅:D[21.6738] → [15.512755:513121]

B:BD[15.512755] → [15.512755:513121]

B:BD[15.513121] → [35.1205951:1205985]

∅:D[35.1205985] → [15.513138:513279]

B:BD[15.513138] → [15.513138:513279]

B:BD[15.513279] → [35.1205986:1206023]

∅:D[35.1206023] → [15.513318:513429]

B:BD[15.513318] → [15.513318:513429]

B:BD[15.513429] → [35.1206024:1206053]

∅:D[35.1206053] → [15.513447:513479]

B:BD[15.513447] → [15.513447:513479]

B:BD[15.513531] → [15.513531:513583]

B:BD[15.513583] → [35.1206054:1206060]

∅:D[35.1206060] → [15.513583:513592]

B:BD[15.513583] → [15.513583:513592]

B:BD[15.513592] → [35.1206061:1206067]

∅:D[35.1206067] → [15.513592:513617]

B:BD[15.513592] → [15.513592:513617]

B:BD[15.513617] → [35.1206068:1206099]

∅:D[35.1206099] → [15.513617:513766]

B:BD[15.513617] → [15.513617:513766]

B:BD[15.513766] → [35.1206100:1206136]

B:BD[35.1206136] → [36.6574:6604]

∅:D[36.6604] → [35.1206171:1206208]

B:BD[35.1206171] → [35.1206171:1206208]

∅:D[35.1206208] → [15.513831:513925]

B:BD[15.513831] → [15.513831:513925]

B:BD[15.513925] → [35.1206209:1206256]

B:BD[35.1206256] → [37.3053:3255]

∅:D[37.3255] → [15.513941:513944]

∅:D[35.1206256] → [15.513941:513944]

B:BD[15.513941] → [15.513941:513944]

B:BD[15.513944] → [38.3413:3611]

∅:D[38.3611] → [39.1850:1892]

B:BD[15.513944] → [39.1850:1892]

∅:D[39.1892] → [15.513986:514138]

B:BD[15.513986] → [15.513986:514138]

B:BD[15.514138] → [40.43746:43786]

∅:D[40.43786] → [15.514215:514300]

B:BD[15.514215] → [15.514215:514300]

B:BD[15.514300] → [41.3571:3638]

∅:D[41.3638] → [15.514380:514736]

B:BD[15.514380] → [15.514380:514736]

B:BD[15.514736] → [42.4837:4865]

∅:D[42.4865] → [15.514736:514854]

B:BD[15.514736] → [15.514736:514854]

B:BD[15.514854] → [39.1893:1939]

∅:D[39.1939] → [15.514900:515033]

B:BD[15.514900] → [15.514900:515033]

∅:D[28.5178] → [15.515033:515161]

B:BD[15.515033] → [15.515033:515161]

B:BD[15.515161] → [33.3872:3923]

∅:D[33.3923] → [15.515161:515801]

B:BD[15.515161] → [15.515161:515801]

B:BD[15.515801] → [2.3056:3151]

∅:D[2.3151] → [15.515847:515943]

B:BD[15.515847] → [15.515847:515943]

B:BD[15.515943] → [37.3256:3301]

B:BD[37.3301] → [38.3612:3662]

∅:D[37.3301] → [22.16252:16253]

∅:D[38.3662] → [22.16252:16253]

B:BD[15.515943] → [22.16252:16253]

∅:D[22.16253] → [15.515948:515972]

B:BD[15.515948] → [15.515948:515972]

B:BD[15.515972] → [18.20530:20563]

∅:D[18.20563] → [15.516006:516124]

B:BD[15.516006] → [15.516006:516124]

// Bindings to get information on items. We must be extremely careful
// to only hand out information the player already has.
//
static const item_def *excl_item = NULL;
#define LUA_ITEM(name, n) \
    if (!lua_islightuserdata(ls, n)) \
    { \
        luaL_argerror(ls, n, "Unexpected arg type"); \
        return (0); \
    } \
      \
    item_def *name = static_cast<item_def *>( lua_touserdata(ls, n ) ); \
    if (excl_item && name != excl_item) \
    { \
        luaL_argerror(ls, n, "Unexpected item"); \
        return (0); \
    }
void lua_push_inv_items(lua_State *ls);
void lua_set_exclusive_item(const item_def *item)
{
    excl_item = item;
}
void lua_push_items(lua_State *ls, int link)
{
    lua_newtable(ls);
    int index = 0;
    for ( ; link != NON_ITEM; link = mitm[link].link)
    {
        lua_pushlightuserdata(ls, &mitm[link]);
        lua_rawseti(ls, -2, ++index);
    }
}
static int l_item_inventory(lua_State *ls)
{
    lua_push_inv_items(ls);
    return (1);
}
static int l_item_index_to_letter(lua_State *ls)
{
    int index = luaL_checkint(ls, 1);
    char sletter[2] = "?";
    if (index >= 0 && index <= ENDOFPACK)
        *sletter = index_to_letter(index);
    lua_pushstring(ls, sletter);
    return (1);
}
static int l_item_letter_to_index(lua_State *ls)
{
    const char *s = luaL_checkstring(ls, 1);
    if (!s || !*s || s[1])
        return (0);
    lua_pushnumber(ls, letter_to_index(*s));
    return (1);
}
static int l_item_swap_slots(lua_State *ls)
{
    int slot1 = luaL_checkint(ls, 1),
        slot2 = luaL_checkint(ls, 2);
    bool verbose = lua_toboolean(ls, 3);
    if (slot1 < 0 || slot1 >= ENDOFPACK
        || slot2 < 0 || slot2 >= ENDOFPACK
        || slot1 == slot2 || !is_valid_item(you.inv[slot1]))
    {
        return (0);
    }
    swap_inv_slots(slot1, slot2, verbose);
    return (0);
}
static int l_item_wield(lua_State *ls)
{
    if (you.turn_is_over)
        return (0);
    LUA_ITEM(item, 1);
    int slot = -1;
    if (item && is_valid_item(*item) && in_inventory(*item))
        slot = item->link;
    bool res = wield_weapon(true, slot);
    lua_pushboolean(ls, res);
    return (1);
}
static int l_item_wear(lua_State *ls)
{
    if (you.turn_is_over)
        return (0);
    LUA_ITEM(item, 1);
    if (!item || !in_inventory(*item))
        return (0);
    bool success = do_wear_armour(item->link, false);
    lua_pushboolean(ls, success);
    return (1);
}
static int l_item_puton(lua_State *ls)
{
    if (you.turn_is_over)
        return (0);
    LUA_ITEM(item, 1);
    if (!item || !in_inventory(*item))
        return (0);
    lua_pushboolean(ls, puton_ring(item->link));
    return (1);
}
static int l_item_remove(lua_State *ls)
{
    if (you.turn_is_over)
    {
        mpr("Turn is over");
        return (0);
    }
    LUA_ITEM(item, 1);
    if (!item || !in_inventory(*item))
    {
        mpr("Bad item");
        return (0);
    }
    int eq = get_equip_slot(item);
    if (eq < 0 || eq >= NUM_EQUIP)
    {
        mpr("Item is not equipped");
        return (0);
    }
    bool result = false;
    if (eq == EQ_WEAPON)
        result = wield_weapon(true, -1);
    else if (eq == EQ_LEFT_RING || eq == EQ_RIGHT_RING || eq == EQ_AMULET)
        result = remove_ring(item->link);
    else
        result = takeoff_armour(item->link);
    lua_pushboolean(ls, result);
    return (1);
}
static int l_item_drop(lua_State *ls)
{
    if (you.turn_is_over)
        return (0);
    LUA_ITEM(item, 1);
    if (!item || !in_inventory(*item))
        return (0);
    int eq = get_equip_slot(item);
    if (eq >= 0 && eq < NUM_EQUIP)
    {
        lua_pushboolean(ls, false);
        lua_pushstring(ls, "Can't drop worn items");
        return (2);
    }
    int qty = item->quantity;
    if (lua_isnumber(ls, 2))
    {
        int q = luaL_checkint(ls, 2);
        if (q >= 1 && q <= item->quantity)
            qty = q;
    }
    lua_pushboolean(ls, drop_item(item->link, qty));
    return (1);
}
static item_def *dmx_get_item(lua_State *ls, int ndx, int subndx)
{
    if (lua_istable(ls, ndx))
    {
        lua_rawgeti(ls, ndx, subndx);
        item_def *item = util_get_userdata<item_def>(ls, -1);
        lua_pop(ls, 1);
        return (item);
    }
    return util_get_userdata<item_def>(ls, ndx);
}
static int dmx_get_qty(lua_State *ls, int ndx, int subndx)
{
    int qty = -1;
    if (lua_istable(ls, ndx))
    {
        lua_rawgeti(ls, ndx, subndx);
        if (lua_isnumber(ls, -1))
            qty = luaL_checkint(ls, -1);
        lua_pop(ls, 1);
    }
    else if (lua_isnumber(ls, ndx))
    {
        qty = luaL_checkint(ls, ndx);
    }
    return (qty);
}
static bool l_item_pickup2(item_def *item, int qty)
{
    if (!item || in_inventory(*item))
        return (false);
    int floor_link = item_on_floor(*item, you.pos());
    if (floor_link == NON_ITEM)
        return (false);
    return pickup_single_item(floor_link, qty);
}
static int l_item_pickup(lua_State *ls)
{
    if (you.turn_is_over)
        return (0);
    if (lua_islightuserdata(ls, 1))
    {
        LUA_ITEM(item, 1);
        int qty = item->quantity;
        if (lua_isnumber(ls, 2))
            qty = luaL_checkint(ls, 2);
        if (l_item_pickup2(item, qty))
            lua_pushnumber(ls, 1);
        else
            lua_pushnil(ls);
        return (1);
    }
    else if (lua_istable(ls, 1))
    {
        int dropped = 0;
        for (int i = 1; ; ++i)
        {
            lua_rawgeti(ls, 1, i);
            item_def *item = dmx_get_item(ls, -1, 1);
            int qty = dmx_get_qty(ls, -1, 2);
            lua_pop(ls, 1);
            if (l_item_pickup2(item, qty))
                dropped++;
            else
            {
                // Yes, we bail out on first failure.
                break;
            }
        }
        if (dropped)
            lua_pushnumber(ls, dropped);
        else
            lua_pushnil(ls);
        return (1);
    }
    return (0);
}
static int l_item_equipped(lua_State *ls)
{
    LUA_ITEM(item, 1);
    if (!item || !in_inventory(*item))
        return (0);
    int eq = get_equip_slot(item);
    if (eq < 0 || eq >= NUM_EQUIP)
        return (0);
    return (1);
}
// Returns item equipped in a slot defined in an argument.
static int l_item_equipped_at(lua_State *ls)
{
    int eq = -1;
    if (lua_isnumber(ls, 1))
        eq = luaL_checkint(ls, 1);
    else if (lua_isstring(ls, 1))
    {
        const char *eqname = lua_tostring(ls, 1);
        if (!eqname)
            return (0);
        eq = equip_name_to_slot(eqname);
    }
    if (eq < 0 || eq >= NUM_EQUIP)
        return (0);
    if (you.equip[eq] != -1)
        lua_pushlightuserdata(ls, &you.inv[you.equip[eq]]);
    else
        lua_pushnil(ls);
    return (1);
}
static int l_item_class(lua_State *ls)
{
    LUA_ITEM(item, 1);
    if (item)
    {
        bool terse = false;
        if (lua_isboolean(ls, 2))
            terse = lua_toboolean(ls, 2);
        std::string s = item_class_name(item->base_type, terse);
        lua_pushstring(ls, s.c_str());
    }
    else
        lua_pushnil(ls);
    return (1);
}
// FIXME: Fold this back into itemname.cc.
static const char *ring_types[] =
{
    "regeneration",
    "protection",
    "protection from fire",
    "poison resistance",
    "protection from cold",
    "strength",
    "slaying",
    "see invisible",
    "invisibility",
    "hunger",
    "teleportation",
    "evasion",
    "sustain abilities",
    "sustenance",
    "dexterity",
    "intelligence",
    "wizardry",
    "magical power",
    "levitation",
    "life protection",
    "protection from magic",
    "fire",
    "ice",
    "teleport control"
};
static const char *amulet_types[] =
{
    "rage", "resist slowing", "clarity", "warding", "resist corrosion",
    "gourmand", "conservation", "controlled flight", "inaccuracy",
    "resist mutation"
};
static int l_item_subtype(lua_State *ls)
{
    LUA_ITEM(item, 1);
    if (item)
    {
        if (item_type_known(*item))
        {
            const char *s = NULL;
            if (item->base_type == OBJ_JEWELLERY)
            {
                if (jewellery_is_amulet(*item))
                    s = amulet_types[ item->sub_type - AMU_RAGE ];
                else
                    s = ring_types[item->sub_type];
            }
            else if (item->base_type == OBJ_POTIONS)
            {
                if (item->sub_type == POT_BLOOD)
                   s = "blood";
                else if (item->sub_type == POT_BLOOD_COAGULATED)
                   s = "coagulated blood";
                else if (item->sub_type == POT_WATER)
                   s = "water";
                else if (item->sub_type == POT_PORRIDGE)
                   s = "porridge";
                else if (item->sub_type == POT_BERSERK_RAGE)
                   s = "berserk";
                else if (item->sub_type == POT_GAIN_STRENGTH
                         || item->sub_type == POT_GAIN_DEXTERITY
                         || item->sub_type == POT_GAIN_INTELLIGENCE)
                {
                   s = "gain ability";
                }
                else if (item->sub_type == POT_CURE_MUTATION)
                   s = "cure mutation";
            }
            else if (item->base_type == OBJ_BOOKS)
            {
                if (item->sub_type == BOOK_MANUAL)
                    s = "manual";
                else
                    s = "spellbook";
            }
            if (s)
                lua_pushstring(ls, s);
            else
                lua_pushnil(ls);
            lua_pushnumber(ls, item->sub_type);
            return (2);
        }
    }
    lua_pushnil(ls);
    lua_pushnil(ls);
    return (2);
}
static int l_item_cursed(lua_State *ls)
{
    LUA_ITEM(item, 1);
    bool cursed = item && item_ident(*item, ISFLAG_KNOW_CURSE)
                       && item_cursed(*item);
    lua_pushboolean(ls, cursed);
    return (1);
}
static int l_item_worn(lua_State *ls)
{
    LUA_ITEM(item, 1);
    int worn = get_equip_slot(item);
    if (worn != -1)
        lua_pushnumber(ls, worn);
    else
        lua_pushnil(ls);
    if (worn != -1)
        lua_pushstring(ls, equip_slot_to_name(worn));
    else
        lua_pushnil(ls);
    return (2);
}
static std::string _item_name(lua_State *ls, item_def* item)
{
    description_level_type ndesc = DESC_PLAIN;
    if (lua_isstring(ls, 2))
        ndesc = description_type_by_name(lua_tostring(ls, 2));
    else if (lua_isnumber(ls, 2))
        ndesc = static_cast<description_level_type>(luaL_checkint(ls, 2));
    bool terse = lua_toboolean(ls, 3);
    return (item->name(ndesc, terse));
}
static int l_item_name(lua_State *ls)
{
    LUA_ITEM(item, 1);
    if (item)
    {
        std::string name = _item_name(ls, item);
        lua_pushstring(ls, name.c_str());
    }
    else
        lua_pushnil(ls);
    return (1);
}
static int l_item_name_coloured(lua_State *ls)
{
    LUA_ITEM(item, 1);
    if (item)
    {
        std::string name   = _item_name(ls, item);
        int         col    = menu_colour(name, menu_colour_item_prefix(*item));
        std::string colstr = colour_to_str(col);
        std::ostringstream out;
        out << "<" << colstr << ">" << name << "</" << colstr << ">";
        lua_pushstring(ls, out.str().c_str());
    }
    else
        lua_pushnil(ls);
    return (1);
}
static int l_item_quantity(lua_State *ls)
{
    LUA_ITEM(item, 1);
    lua_pushnumber(ls, item? item->quantity : 0);
    return (1);
}
static int l_item_inslot(lua_State *ls)
{
    int index = luaL_checkint(ls, 1);
    if (index >= 0 && index < 52 && is_valid_item(you.inv[index]))
        lua_pushlightuserdata(ls, &you.inv[index]);
    else
        lua_pushnil(ls);
    return (1);
}
static int l_item_slot(lua_State *ls)
{
    LUA_ITEM(item, 1);
    if (item)
    {
        int slot = in_inventory(*item) ? item->link
                                       : letter_to_index(item->slot);
        lua_pushnumber(ls, slot);
    }
    else
        lua_pushnil(ls);
    return (1);
}
static int l_item_ininventory(lua_State *ls)
{
    LUA_ITEM(item, 1);
    lua_pushboolean(ls, item && in_inventory(*item));
    return (1);
}
static int l_item_equip_type(lua_State *ls)
{
    LUA_ITEM(item, 1);
    if (!item || !is_valid_item(*item))
        return (0);
    equipment_type eq = EQ_NONE;
    if (item->base_type == OBJ_WEAPONS || item->base_type == OBJ_STAVES)
        eq = EQ_WEAPON;
    else if (item->base_type == OBJ_ARMOUR)
        eq = get_armour_slot(*item);
    else if (item->base_type == OBJ_JEWELLERY)
        eq = item->sub_type >= AMU_RAGE? EQ_AMULET : EQ_RINGS;
    if (eq != EQ_NONE)
    {
        lua_pushnumber(ls, eq);
        lua_pushstring(ls, equip_slot_to_name(eq));
    }
    else
    {
        lua_pushnil(ls);
        lua_pushnil(ls);
    }
    return (2);
}
static int l_item_weap_skill(lua_State *ls)
{
    LUA_ITEM(item, 1);
    if (!item || !is_valid_item(*item))
        return (0);
    int skill = range_skill(*item);
    if (skill == SK_THROWING)
        skill = weapon_skill(*item);
    if (skill == SK_FIGHTING)
        return (0);
    lua_pushstring(ls, skill_name(skill));
    lua_pushnumber(ls, skill);
    return (2);
}
static int l_item_dropped(lua_State *ls)
{
    LUA_ITEM(item, 1);
    if (!item || !is_valid_item(*item))
        return (0);
    lua_pushboolean(ls, item->flags & ISFLAG_DROPPED);
    return (1);
}
static int l_item_can_cut_meat(lua_State *ls)
{
    LUA_ITEM(item, 1);
    if (!item || !is_valid_item(*item))
        return (0);
    lua_pushboolean(ls, can_cut_meat(*item));
    return (1);
}
static int l_item_artefact(lua_State *ls)
{
    LUA_ITEM(item, 1);
    if (!item || !is_valid_item(*item))
        return (0);
    lua_pushboolean(ls, item_ident(*item, ISFLAG_KNOW_PROPERTIES)
                && is_artefact(*item));
    return (1);
}
static int l_item_branded(lua_State *ls)
{
    LUA_ITEM(item, 1);
    if (!item || !is_valid_item(*item) || !item_type_known(*item))
        return (0);
    bool branded = false;
    switch (item->base_type)
    {
    case OBJ_WEAPONS:
        branded = get_weapon_brand(*item) != SPWPN_NORMAL;
        break;
    case OBJ_ARMOUR:
        branded = get_armour_ego_type(*item) != SPARM_NORMAL;
        break;
    case OBJ_MISSILES:
        branded = get_ammo_brand(*item) != SPMSL_NORMAL;
        break;
    default:
        break;
    }
    lua_pushboolean(ls, branded);
    return (1);
}
static const struct luaL_reg item_lib[] =
{
    { "artefact",          l_item_artefact },
    { "branded",           l_item_branded },
    { "class",             l_item_class },
    { "subtype",           l_item_subtype },
    { "cursed",            l_item_cursed },
    { "worn",              l_item_worn },
    { "name",              l_item_name },
    { "name_coloured",     l_item_name_coloured },
    { "quantity",          l_item_quantity },
    { "inslot",            l_item_inslot },
    { "slot",              l_item_slot },
    { "ininventory",       l_item_ininventory },
    { "inventory",         l_item_inventory },
    { "letter_to_index",   l_item_letter_to_index },
    { "index_to_letter",   l_item_index_to_letter },
    { "swap_slots",        l_item_swap_slots },
    { "wield",             l_item_wield },
    { "wear",              l_item_wear },
    { "puton",             l_item_puton },
    { "remove",            l_item_remove },
    { "drop",              l_item_drop },
    { "pickup",            l_item_pickup },
    { "equipped_at",       l_item_equipped_at },
    { "equipped",          l_item_equipped },
    { "equip_type",        l_item_equip_type },
    { "weap_skill",        l_item_weap_skill },
    { "dropped",           l_item_dropped },
    { "can_cut_meat",      l_item_can_cut_meat },
    { NULL, NULL },
};
void luaopen_item(lua_State *ls)
{
    luaL_openlib(ls, "item", item_lib, 0);
}
/////////////////////////////////////////////////////////////////////

Move library "item" from clua.cc to l_item.cc.

Dependencies

In channels

Change contents

Insertion in crawl-ref/source/makefile.obj at line 53 [6.79]

Insertion in crawl-ref/source/l_libs.h at line 16 [4.2907]

Insertion in crawl-ref/source/l_libs.h at line 71 [4.2907]

Insertion in crawl-ref/source/l_libs.h at line 101 [4.2907]

File addition: l_item.cc (----------)

Deletion in crawl-ref/source/food.cc at line 731 [14.3043806]

Deletion in crawl-ref/source/food.cc at line 733 [14.3043806]

Deletion in crawl-ref/source/clua.cc at line 594 [15.483969]

Replacement in crawl-ref/source/clua.cc at line 619 [15.483969]

Deletion in crawl-ref/source/clua.cc at line 725 [15.483969]