shop_inventory.cpp

Go to the documentation of this file.

/*
 * Crossfire -- cooperative multi-player graphical RPG and adventure game
 *
 * Copyright (c) 1999-2014 Mark Wedel and the Crossfire Development Team
 * Copyright (c) 1992 Frank Tore Johansen
 *
 * Crossfire is free software and comes with ABSOLUTELY NO WARRANTY. You are
 * welcome to redistribute it under certain conditions. For details, please
 * see COPYING and LICENSE.
 *
 * The authors can be reached via e-mail at <crossfire@metalforge.org>.
 */

#include "global.h"

#include <stdlib.h>
#include <string.h>

#include "ob_methods.h"
#include "ob_types.h"
#include "sounds.h"
#include "sproto.h"

static method_ret shop_inventory_type_apply(object *lighter, object *applier, int aflags);

void init_type_shop_inventory(void) {
    register_apply(SHOP_INVENTORY, shop_inventory_type_apply);
}

struct shopinv {
    char        *item_sort;     
    char        *item_real;     
    uint16_t      type;           
    uint32_t      nrof;           
};

static int shop_sort(const void *a1, const void *a2) {
    const shopinv *s1 = (const shopinv *)a1, *s2 = (const shopinv *)a2;

    if (s1->type < s2->type)
        return -1;
    if (s1->type > s2->type)
        return 1;
    /* the type is the same (what atoi gets), so do a strcasecmp to sort
     * via alphabetical order
     */
    return strcasecmp(s1->item_sort, s2->item_sort);
}

static void add_shop_item(object *tmp, shopinv *items, size_t *numitems) {
    /* clear unpaid flag so that doesn't come up in query
     * string.  We clear nrof so that we can better sort
     * the object names.
     */
    char name[MAX_BUF];

    CLEAR_FLAG(tmp, FLAG_UNPAID);
    items[*numitems].nrof = tmp->nrof;
    /* Non mergable items have nrof of 0, but count them as one
     * so the display is properly.
     */
    if (tmp->nrof == 0)
        items[*numitems].nrof++;
    items[*numitems].type = tmp->type;
    query_base_name(tmp, 0, name, MAX_BUF);
    items[*numitems].item_sort = strdup_local(name);
    query_base_name(tmp, 1, name, MAX_BUF);
    items[*numitems].item_real = strdup_local(name);
    (*numitems)++;

    SET_FLAG(tmp, FLAG_UNPAID);
}

static method_ret shop_inventory_type_apply(object *lighter, object *applier, int aflags) {
    size_t i, j, numitems = 0, numallocated = 0;
    object *stack;
    shopinv *items;
    (void)lighter;
    (void)aflags;

    if (applier->type != PLAYER)
        return METHOD_UNHANDLED;

    // By using a buffer, we can make the shop inventory send all at once.
    // This will make the GTK client behave better when printing the shop inventory.
    StringBuffer *buf = stringbuffer_new();

    stringbuffer_append_string(buf, "\nThe shop contains:\n");

    items = static_cast<shopinv *>(malloc(40*sizeof(shopinv)));
    numallocated = 40;

    /* Find all the appropriate items */
    for (i = 0; i < MAP_WIDTH(applier->map); i++) {
        for (j = 0; j < MAP_HEIGHT(applier->map); j++) {
            stack = GET_MAP_OB(applier->map, i, j);

            while (stack) {
                if (QUERY_FLAG(stack, FLAG_UNPAID)) {
                    if (numitems == numallocated) {
                        items = static_cast<shopinv *>(realloc(items, sizeof(shopinv)*(numallocated+10)));
                        if (!items) {
                            LOG(llevError, "shop_inventory: couldn't allocate memory!\n");
                            fatal(OUT_OF_MEMORY);
                        }
                        numallocated += 10;
                    }
                    add_shop_item(stack, items, &numitems);
                }
                stack = stack->above;
            }
        }
    }
    if (numitems == 0) {
        stringbuffer_append_string(buf, "The shop is currently empty.\n");
        // Print before we clean and exit
        const char *str = stringbuffer_finish(buf);
        draw_ext_info(NDI_UNIQUE, 0, applier, MSG_TYPE_SHOP, MSG_TYPE_SHOP_LISTING, str);
        free((char *)str);
        free(items);
        return METHOD_OK;
    }
    qsort(items, numitems, sizeof(shopinv), (int (*)(const void *, const void *))shop_sort);

    for (i = 0; i < numitems; i++) {
        /* Collapse items of the same name together */
        if ((i+1) < numitems && !strcmp(items[i].item_real, items[i+1].item_real)) {
            items[i+1].nrof += items[i].nrof;
            free(items[i].item_sort);
            free(items[i].item_real);
        } else {
            stringbuffer_append_printf(buf,
                "%d %s\n",
                items[i].nrof ? items[i].nrof : 1,
                items[i].nrof == 1 ? items[i].item_sort : items[i].item_real);
            free(items[i].item_sort);
            free(items[i].item_real);
        }
    }
    // Okay, we've got the shop inventory, now we can send it over all at once.
    const char *str = stringbuffer_finish(buf);
    draw_ext_info(NDI_UNIQUE, 0, applier, MSG_TYPE_SHOP, MSG_TYPE_SHOP_LISTING, str);
    free((char *)str);
    free(items);
    return METHOD_OK;
}