src/hcode/btech/econ.c File Reference

#include "mech.h"

Include dependency graph for econ.c:

Go to the source code of this file.

Functions
char *	silly_atr_get (int id, int flag)
void	silly_atr_set (int id, int flag, char *dat)
static void	remove_entry (char *alku, char *entry)
static void	add_entry (char *to, char *data)
static char *	find_entry (char *s, int i, int b)
char *	get_parts_short_name (int, int)
void	econ_change_items (dbref d, int id, int brand, int num)
int	econ_find_items (dbref d, int id, int brand)
void	econ_set_items (dbref d, int id, int brand, int num)

---

Function Documentation

static void add_entry	(	char *	to,
		char *	data
	)			[static]

Definition at line 50 of file econ.c.

Referenced by econ_change_items().

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

void econ_change_items	(	dbref	d,
		int	id,
		int	brand,
		int	num
	)

Definition at line 68 of file econ.c.

References A_ECONPARTS, add_entry(), Cargo, econ_change_items(), find_entry(), get_parts_short_name(), Good_obj, IsActuator, remove_entry(), S_ACTUATOR, silly_atr_get(), silly_atr_set(), and tprintf().

Referenced by econ_change_items(), econ_set_items(), fun_btaddstores(), fun_btremovestores(), and mech_Rfixstuff().

{
        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
	)

Definition at line 98 of file econ.c.

References A_ECONPARTS, find_entry(), get_parts_short_name(), Good_obj, and silly_atr_get().

Referenced by econ_set_items(), fun_btremovestores(), fun_btstores(), and stuff_change_sub().

{
        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
	)

Definition at line 115 of file econ.c.

References econ_change_items(), econ_find_items(), and Good_obj.

{
        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);
}

static char* find_entry	(	char *	s,
		int	i,
		int	b
	)			[static]

Definition at line 58 of file econ.c.

References MBUF_SIZE.

Referenced by econ_change_items(), and econ_find_items().

{
        char buf[MBUF_SIZE];

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

char* get_parts_short_name	(	int	,
		int
	)

Referenced by econ_change_items(), and econ_find_items().

static void remove_entry	(	char *	alku,
		char *	entry
	)			[static]

Definition at line 30 of file econ.c.

Referenced by econ_change_items().

{
        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';
        }
}

char* silly_atr_get	(	int	id,
		int	flag
	)

Definition at line 44 of file glue.hcode.c.

{
        int i, j;
        static char buf[LBUF_SIZE];

        atr_get_str(buf, id, flag, &i, &j);
        return buf;
#if 0                                                   /* This would waste memory, so.. :P */
        return atr_pget(id, flag, &i, &j);
#endif
}

void silly_atr_set	(	int	id,
		int	flag,
		char *	dat
	)

Definition at line 56 of file glue.hcode.c.

Referenced by autoeject(), char_disembark(), char_eject(), do_charclear(), do_name(), econ_change_items(), load_template(), mech_Rfixstuff(), mech_Rresetstuff(), store_attrs(), store_health(), tech_addtechtime(), and tele_contents().

{
        atr_add_raw(id, flag, dat);
}

---