src/hcode/btech/p.econ_cmds.h File Reference

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Functions
void	SetCargoWeight (MECH *mech)
int	loading_bay_whine (dbref player, dbref cargobay, MECH *mech)
void	mech_Rfixstuff (dbref player, void *data, char *buffer)
void	list_matching (dbref player, char *header, dbref loc, char *buf)
void	mech_manifest (dbref player, void *data, char *buffer)
void	mech_stores (dbref player, void *data, char *buffer)
void	mech_Raddstuff (dbref player, void *data, char *buffer)
void	mech_Rremovestuff (dbref player, void *data, char *buffer)
void	mech_loadcargo (dbref player, void *data, char *buffer)
void	mech_unloadcargo (dbref player, void *data, char *buffer)
void	mech_Rresetstuff (dbref player, void *data, char *buffer)

---

Function Documentation

void list_matching	(	dbref	player,
		char *	header,
		dbref	loc,
		char *	buf
	)

Definition at line 138 of file econ_cmds.c.

References A_ECONPARTS, BRANDCOUNT, BT_PART_WEIGHTS, c, CM_CENTER, CM_LINE, CM_NOTOG, CM_NUMBER, CM_ONE, CM_TWO, CreateMenuEntry_Killer(), CreateMenuEntry_Simple, find_matching_long_part(), GetPartWeight(), KillCoolMenu(), LBUF_SIZE, NUM_ITEMS, object_count, part_name_long(), SendError, short_sorted, ShowCoolMenu(), silly_atr_get(), tprintf(), UNPACK_PART, and x.

{
        int pile[BRANDCOUNT + 1][NUM_ITEMS];
        int pile2[BRANDCOUNT + 1][NUM_ITEMS];
        char *t, *ch;
        int i1, i2, i3, id, brand;
        int x, i;

#ifdef BT_PART_WEIGHTS
        char tmpstr[LBUF_SIZE];
        int sw = 0;
#endif /* BT_PART_WEIGHTS */
        coolmenu *c = NULL;
        int found = 0;

        bzero(pile, sizeof(pile));
        bzero(pile2, sizeof(pile2));
        CreateMenuEntry_Simple(&c, NULL, CM_ONE | CM_LINE);
        CreateMenuEntry_Simple(&c, header, CM_ONE | CM_CENTER);
        CreateMenuEntry_Simple(&c, NULL, CM_ONE | CM_LINE);
        /* Then, we go on a mad rampage ;-) */
        t = silly_atr_get(loc, A_ECONPARTS);
        while (*t) {
                if(*t == '[')
                        if((sscanf(t, "[%d,%d,%d]", &i1, &i2, &i3)) == 3)
                                pile[i2][i1] += i3;
                t++;
        }
        i = 0;
        if(buf)
                while (find_matching_long_part(buf, &i, &id, &brand))
                        pile2[brand][id] = pile[brand][id];
        for(i = 0; i < object_count; i++) {
                UNPACK_PART(short_sorted[i]->index, id, brand);
                if((buf && (x = pile2[brand][id])) || ((!buf &&
                                                                                                (x = pile[brand][id])))) {
#ifndef BT_PART_WEIGHTS
                        ch = part_name_long(id, brand);
#else
                        sw = GetPartWeight(id);
                        sprintf(tmpstr, "%s (%.1ft)", part_name_long(id, brand),
                                        (sw * x) / 1024.0);
                        ch = tmpstr;
#endif /* BT_PART_WEIGHTS */
                        if(!ch) {
                                SendError(tprintf
                                                  ("#%d in %d encountered odd thing: %d %d/%d's.",
                                                   player, loc, pile[brand][id], id, brand));
                                continue;
                        }
                        /* x = amount of things */
                        CreateMenuEntry_Killer(&c, ch, CM_TWO | CM_NUMBER | CM_NOTOG,
                                                                   0, x, x);
                        found++;
                }
        }
        if(!found)
                CreateMenuEntry_Simple(&c, "None", CM_ONE);
        CreateMenuEntry_Simple(&c, NULL, CM_ONE | CM_LINE);
        ShowCoolMenu(player, c);
        KillCoolMenu(c);
}

int loading_bay_whine	(	dbref	player,
		dbref	cargobay,
		MECH *	mech
	)

Definition at line 82 of file econ_cmds.c.

References A_MECHSKILLS, c, MechX, MechY, notify, notify_printf(), and silly_atr_get().

Referenced by mech_loadcargo(), and mech_stores().

{
        char *c;
        int i1, i2, i3 = 0;

        c = silly_atr_get(cargobay, A_MECHSKILLS);
        if(c && *c)
                if(sscanf(c, "%d %d %d", &i1, &i2, &i3) >= 2)
                        if(MechX(mech) != i1 || MechY(mech) != i2) {
                                notify(player, "You're not where the cargo is!");
                                if(i3)
                                        notify_printf(player,
                                                                  "Try looking around %d,%d instead.", i1,
                                                                  i2);
                                return 1;
                        }
        return 0;
}

void mech_loadcargo	(	dbref	player,
		void *	data,
		char *	buffer
	)

Definition at line 333 of file econ_cmds.c.

References CARGO_TECH, cch, correct_speed(), DOCHECK, In_Character, loading_bay_whine(), Location, MECH::mapindex, MECH_USUALO, MechSpecials, MechSpeed, MECH::mynum, and stuff_change_sub().

{
        MECH *mech = (MECH *) data;

        cch(MECH_USUALO);
        DOCHECK(!(MechSpecials(mech) & CARGO_TECH),
                        "This unit cannot haul cargo!");
        DOCHECK(fabs(MechSpeed(mech)) > 0.0, "You're moving too fast!");
        DOCHECK(Location(mech->mynum) != mech->mapindex ||
                        In_Character(Location(mech->mynum)), "You aren't inside hangar!");
        if(loading_bay_whine(player, Location(mech->mynum), mech))
                return;
        stuff_change_sub(player, buffer, mech->mynum, mech->mapindex, 1, 1);
        correct_speed(mech);
}

void mech_manifest	(	dbref	player,
		void *	data,
		char *	buffer
	)

Definition at line 207 of file econ_cmds.c.

References Location, and MY_DO_LIST.

{
        while (isspace(*buffer))
                buffer++;
        MY_DO_LIST(Location(player));
}

void mech_Raddstuff	(	dbref	player,
		void *	data,
		char *	buffer
	)

Definition at line 323 of file econ_cmds.c.

References Location, and stuff_change_sub().

{
        stuff_change_sub(player, buffer, Location(player), -1, 1, 0);
}

void mech_Rfixstuff	(	dbref	player,
		void *	data,
		char *	buffer
	)

Definition at line 101 of file econ_cmds.c.

References A_ECONPARTS, BRANDCOUNT, econ_change_items(), get_parts_long_name(), IsCrap, loc, Location, notify_printf(), NUM_ITEMS, silly_atr_get(), and silly_atr_set().

Referenced by eliminate_empties().

{
        int loc = Location(player);
        int pile[BRANDCOUNT + 1][NUM_ITEMS];
        char *t;
        int ol, nl, items = 0, kinds = 0;
        int i1, i2, i3, id, brand;

        if(!data)
                loc = atoi(buffer);
        bzero(pile, sizeof(pile));
        t = silly_atr_get(loc, A_ECONPARTS);
        ol = strlen(t);
        while (*t) {
                if(*t == '[')
                        if((sscanf(t, "[%d,%d,%d]", &i1, &i2, &i3)) == 3)
                                if(!IsCrap(i1))
                                        pile[i2][i1] += i3;
                t++;
        }
        silly_atr_set(loc, A_ECONPARTS, "");
        for(id = 0; id < NUM_ITEMS; id++)
                for(brand = 0; brand <= BRANDCOUNT; brand++)
                        if(pile[brand][id] > 0 && get_parts_long_name(id, brand)) {
                                econ_change_items(loc, id, brand, pile[brand][id]);
                                kinds++;
                                items += pile[brand][id];
                        }
        t = silly_atr_get(loc, A_ECONPARTS);
        nl = strlen(t);
        notify_printf(player,
                                  "Fixing done. Original length: %d. New length: %d.", ol,
                                  nl);
        notify_printf(player, "Items in new: %d. Unique items in new: %d.",
                                  items, kinds);
}

void mech_Rremovestuff	(	dbref	player,
		void *	data,
		char *	buffer
	)

Definition at line 328 of file econ_cmds.c.

References Location, and stuff_change_sub().

{
        stuff_change_sub(player, buffer, Location(player), -1, -1, 0);
}

void mech_Rresetstuff	(	dbref	player,
		void *	data,
		char *	buffer
	)

Definition at line 360 of file econ_cmds.c.

References A_ECONPARTS, Location, notify, SendEcon, silly_atr_set(), and tprintf().

{
        notify(player, "Inventory cleaned!");
        silly_atr_set(Location(player), A_ECONPARTS, "");
        SendEcon(tprintf("#%d reset #%d's stuff.", player, Location(player)));
}

void mech_stores	(	dbref	player,
		void *	data,
		char *	buffer
	)

Definition at line 214 of file econ_cmds.c.

References cch, DOCHECK, In_Character, loading_bay_whine(), Location, MECH::mapindex, MECH_USUAL, MY_DO_LIST, and MECH::mynum.

{
        MECH *mech = (MECH *) data;

        cch(MECH_USUAL);
        DOCHECK(Location(mech->mynum) != mech->mapindex ||
                        In_Character(Location(mech->mynum)),
                        "You aren't inside a hangar!");
        if(loading_bay_whine(player, Location(mech->mynum), mech))
                return;
        while (isspace(*buffer))
                buffer++;
        MY_DO_LIST(Location(mech->mynum));
}

void mech_unloadcargo	(	dbref	player,
		void *	data,
		char *	buffer
	)

Definition at line 349 of file econ_cmds.c.

References CARGO_TECH, cch, correct_speed(), DOCHECK, MECH::mapindex, MECH_USUALSO, MechSpecials, MECH::mynum, and stuff_change_sub().

Referenced by auto_com_event().

{
        MECH *mech = (MECH *) data;

        cch(MECH_USUALSO);
        DOCHECK(!(MechSpecials(mech) & CARGO_TECH),
                        "This unit cannot haul cargo!");
        stuff_change_sub(player, buffer, mech->mynum, mech->mapindex, -1, 1);
        correct_speed(mech);
}

void SetCargoWeight

(

MECH *

mech

)

Definition at line 40 of file econ_cmds.c.

References A_ECONPARTS, AeroFuel, AeroFuelMax, AeroFuelOrig, FlyingT, FUELTANK, GetPartType, GetPartWeight(), I2Special, IsBomb, IsSpecial, MECH::mynum, NUM_CRITICALS, NUM_ITEMS, NUM_SECTIONS, SetCarriedCargo, silly_atr_get(), and Special2I.

Referenced by bomb_drop(), correct_speed(), FuelCheck(), mech_startup_event(), and mech_udisembark().

{
        int pile[NUM_ITEMS];
        int sw, weight = 0;                     /* in 1/10 tons */
        int i, j, k;
        char *t;
        int i1, i2, i3;

        t = silly_atr_get(mech->mynum, A_ECONPARTS);
        bzero(pile, sizeof(pile));
        while (*t) {
                if(*t == '[')
                        if((sscanf(t, "[%d,%d,%d]", &i1, &i2, &i3)) == 3)
                                pile[i1] += ((IsBomb(i1)) ? 4 : 1) * i3;
                t++;
        }
        if(FlyingT(mech))
                for(i = 0; i < NUM_SECTIONS; i++)
                        for(j = 0; j < NUM_CRITICALS; j++) {
                                if(IsBomb((k = GetPartType(mech, i, j))))
                                        pile[k]++;
                                else if(IsSpecial(k))
                                        if(Special2I(k) == FUELTANK)
                                                pile[I2Special(FUELTANK)]++;
                        }
        /* We've 'so-called' pile now */
        for(i = 0; i < NUM_ITEMS; i++)
                if(pile[i]) {
                        sw = GetPartWeight(i);
                        weight += sw * pile[i];
                }
        if(FlyingT(mech)) {
                AeroFuelMax(mech) =
                        AeroFuelOrig(mech) + 2000 * pile[I2Special(FUELTANK)];
                if(AeroFuel(mech) > AeroFuelOrig(mech))
                        weight += AeroFuel(mech) - AeroFuelOrig(mech);
        }
        SetCarriedCargo(mech, weight);
}

---