src/hcode/btech/econ.c

Go to the documentation of this file.

/*
 * $Id: econ.c,v 1.1.1.1 2005/01/11 21:18:06 kstevens Exp $
 *
 * Author: Markus Stenberg <fingon@iki.fi>
 *
 *  Copyright (c) 1996 Markus Stenberg
 *  Copyright (c) 1998-2002 Thomas Wouters
 *  Copyright (c) 2000-2002 Cord Awtry
 *       All rights reserved
 *
 * Created: Sat Oct  5 14:06:02 1996 fingon
 * Last modified: Sat Apr 19 13:54:56 1997 fingon
 *
 */

/* Idea:
   Store the parts in an attribute on object

   Format:
   [id,brand,count]{,[id,brand,count],..}
 */

#include "mech.h"

extern char *silly_atr_get(int id, int flag);
extern void silly_atr_set(int id, int flag, char *dat);

/* entry = pointer to [ */
static void remove_entry(char *alku, char *entry)
{
        char *j;

        if(!(j = strstr(entry, "]")))
                return;
        j++;
        if(*j) {
                /* Move the remainder of the string, including the terminating NUL,
                   but not including the separating comma */
                j++;
                memmove(entry, j, strlen(j) + 1);
        } else {
                if(entry == alku)
                        *alku = '\0';
                else
                        *(entry - 1) = '\0';
        }
}

static void add_entry(char *to, char *data)
{
        if(*to)
                sprintf(to + strlen(to), ",[%s]", data);
        else
                sprintf(to, "[%s]", data);
}

static char *find_entry(char *s, int i, int b)
{
        char buf[MBUF_SIZE];

        sprintf(buf, "[%d,%d,", i, b);
        return strstr(s, buf);
}

extern char *get_parts_short_name(int, int);

void econ_change_items(dbref d, int id, int brand, int num)
{
        char *t, *u;
        int base = 0, i1, i2, i3;

        if(!Good_obj(d))
                return;
        if(brand)
                if(get_parts_short_name(id, brand) == get_parts_short_name(id, 0))
                        brand = 0;
        t = silly_atr_get(d, A_ECONPARTS);
        if((u = find_entry(t, id, brand))) {
                if(sscanf(u, "[%d,%d,%d]", &i1, &i2, &i3) == 3)
                        base += i3;
                remove_entry(t, u);
        }
        base += num;
        if(base <= 0) {
                if(u)
                        silly_atr_set(d, A_ECONPARTS, t);
                return;
        }
        if(!(IsActuator(id)))
                add_entry(t, tprintf("%d,%d,%d", id, brand, base));
        silly_atr_set(d, A_ECONPARTS, t);
        if(IsActuator(id))
                econ_change_items(d, Cargo(S_ACTUATOR), brand, base);
        /* Successfully changed */
}

int econ_find_items(dbref d, int id, int brand)
{
        char *t, *u;
        int i1, i2, i3;

        if(!Good_obj(d))
                return 0;
        if(brand)
                if(get_parts_short_name(id, brand) == get_parts_short_name(id, 0))
                        brand = 0;
        t = silly_atr_get(d, A_ECONPARTS);
        if((u = find_entry(t, id, brand)))
                if(sscanf(u, "[%d,%d,%d]", &i1, &i2, &i3) == 3)
                        return i3;
        return 0;
}

void econ_set_items(dbref d, int id, int brand, int num)
{
        int i;

        if(!Good_obj(d))
                return;
        i = econ_find_items(d, id, brand);
        if(i != num)
                econ_change_items(d, id, brand, num - i);
}

---