Andreas/tbamud
1
0
Fork 0
mirror of https://github.com/tbamud/tbamud.git synced 2026-01-08 18:38:50 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions
tbamud/src/genshp.c

444 lines
12 KiB
C
Raw Blame History

/**************************************************************************
* File: genshp.c Part of tbaMUD *
* Usage: Generic OLC Library - Shops. *
* *
* Copyright 1996 by Harvey Gilpin, 1997-2001 by George Greer. *
**************************************************************************/
#include "conf.h"
#include "sysdep.h"
#include "structs.h"
#include "utils.h"
#include "db.h"
#include "shop.h"
#include "genolc.h"
#include "genshp.h"
#include "genzon.h"
/* NOTE (gg): Didn't modify sedit much. Don't consider it as 'recent' as the
* other editors with regard to updates or style. */
/* local (file scope) functions */
static void copy_shop_list(IDXTYPE **tlist, IDXTYPE *flist);
static void copy_shop_type_list(struct shop_buy_data **tlist, struct shop_buy_data *flist);
static void free_shop_strings(struct shop_data *shop);
static void free_shop_type_list(struct shop_buy_data **list);
void copy_shop(struct shop_data *tshop, struct shop_data *fshop, int free_old_strings)
{
/* Copy basic information over. */
S_NUM(tshop) = S_NUM(fshop);
S_KEEPER(tshop) = S_KEEPER(fshop);
S_OPEN1(tshop) = S_OPEN1(fshop);
S_CLOSE1(tshop) = S_CLOSE1(fshop);
S_OPEN2(tshop) = S_OPEN2(fshop);
S_CLOSE2(tshop) = S_CLOSE2(fshop);
S_BANK(tshop) = S_BANK(fshop);
S_BROKE_TEMPER(tshop) = S_BROKE_TEMPER(fshop);
S_BITVECTOR(tshop) = S_BITVECTOR(fshop);
S_NOTRADE(tshop) = S_NOTRADE(fshop);
S_SORT(tshop) = S_SORT(fshop);
S_BUYPROFIT(tshop) = S_BUYPROFIT(fshop);
S_SELLPROFIT(tshop) = S_SELLPROFIT(fshop);
S_FUNC(tshop) = S_FUNC(fshop);
/* Copy lists over. */
copy_shop_list(&(S_ROOMS(tshop)), S_ROOMS(fshop));
copy_shop_list(&(S_PRODUCTS(tshop)), S_PRODUCTS(fshop));
copy_shop_type_list(&(tshop->type), fshop->type);
/* Copy notification strings over. */
if (free_old_strings)
free_shop_strings(tshop);
S_NOITEM1(tshop) = str_udup(S_NOITEM1(fshop));
S_NOITEM2(tshop) = str_udup(S_NOITEM2(fshop));
S_NOCASH1(tshop) = str_udup(S_NOCASH1(fshop));
S_NOCASH2(tshop) = str_udup(S_NOCASH2(fshop));
S_NOBUY(tshop) = str_udup(S_NOBUY(fshop));
S_BUY(tshop) = str_udup(S_BUY(fshop));
S_SELL(tshop) = str_udup(S_SELL(fshop));
}
/* Copy a 'NOTHING' terminated integer array list. */
static void copy_shop_list(IDXTYPE **tlist, IDXTYPE *flist)
{
int num_items, i;
if (*tlist)
free(*tlist);
/* Count number of entries. */
for (i = 0; flist[i] != NOTHING; i++);
num_items = i + 1;
/* Make space for entries. */
CREATE(*tlist, IDXTYPE, num_items);
/* Copy entries over. */
for (i = 0; i < num_items; i++)
(*tlist)[i] = flist[i];
}
/* Copy a -1 terminated (in the type field) shop_buy_data array list. */
static void copy_shop_type_list(struct shop_buy_data **tlist, struct shop_buy_data *flist)
{
int num_items, i;
if (*tlist)
free_shop_type_list(tlist);
/* Count number of entries. */
for (i = 0; BUY_TYPE(flist[i]) != NOTHING; i++);
num_items = i + 1;
/* Make space for entries. */
CREATE(*tlist, struct shop_buy_data, num_items);
/* Copy entries over. */
for (i = 0; i < num_items; i++) {
(*tlist)[i].type = flist[i].type;
if (BUY_WORD(flist[i]))
BUY_WORD((*tlist)[i]) = strdup(BUY_WORD(flist[i]));
}
}
void remove_shop_from_type_list(struct shop_buy_data **list, int num)
{
int i, num_items;
struct shop_buy_data *nlist;
/* Count number of entries. */
for (i = 0; (*list)[i].type != NOTHING; i++);
if (num < 0 || num >= i)
return;
num_items = i;
CREATE(nlist, struct shop_buy_data, num_items);
for (i = 0; i < num_items; i++)
nlist[i] = (i < num) ? (*list)[i] : (*list)[i + 1];
free(BUY_WORD((*list)[num]));
free(*list);
*list = nlist;
}
void add_shop_to_type_list(struct shop_buy_data **list, struct shop_buy_data *newl)
{
int i, num_items;
struct shop_buy_data *nlist;
/* Count number of entries. */
for (i = 0; (*list)[i].type != NOTHING; i++);
num_items = i;
/* Make a new list and slot in the new entry. */
CREATE(nlist, struct shop_buy_data, num_items + 2);
for (i = 0; i < num_items; i++)
nlist[i] = (*list)[i];
nlist[num_items] = *newl;
nlist[num_items + 1].type = NOTHING;
/* Out with the old, in with the new. */
free(*list);
*list = nlist;
}
void add_shop_to_int_list(IDXTYPE **list, IDXTYPE newi)
{
IDXTYPE i, num_items, *nlist;
/* Count number of entries. */
for (i = 0; (*list)[i] != NOTHING; i++);
num_items = i;
/* Make a new list and slot in the new entry. */
CREATE(nlist, IDXTYPE, num_items + 2);
for (i = 0; i < num_items; i++)
nlist[i] = (*list)[i];
nlist[num_items] = newi;
nlist[num_items + 1] = NOTHING;
/* Out with the old, in with the new. */
free(*list);
*list = nlist;
}
void remove_shop_from_int_list(IDXTYPE **list, IDXTYPE num)
{
IDXTYPE i, num_items, *nlist;
/* Count number of entries. */
for (i = 0; (*list)[i] != NOTHING; i++);
#if CIRCLE_UNSIGNED_INDEX
if (num >= i)
#else
if (num < 0 || num >= i)
#endif
return;
num_items = i;
CREATE(nlist, IDXTYPE, num_items);
for (i = 0; i < num_items; i++)
nlist[i] = (i < num) ? (*list)[i] : (*list)[i + 1];
free(*list);
*list = nlist;
}
/* Free all the notice character strings in a shop structure. */
static void free_shop_strings(struct shop_data *shop)
{
if (S_NOITEM1(shop)) {
free(S_NOITEM1(shop));
S_NOITEM1(shop) = NULL;
}
if (S_NOITEM2(shop)) {
free(S_NOITEM2(shop));
S_NOITEM2(shop) = NULL;
}
if (S_NOCASH1(shop)) {
free(S_NOCASH1(shop));
S_NOCASH1(shop) = NULL;
}
if (S_NOCASH2(shop)) {
free(S_NOCASH2(shop));
S_NOCASH2(shop) = NULL;
}
if (S_NOBUY(shop)) {
free(S_NOBUY(shop));
S_NOBUY(shop) = NULL;
}
if (S_BUY(shop)) {
free(S_BUY(shop));
S_BUY(shop) = NULL;
}
if (S_SELL(shop)) {
free(S_SELL(shop));
S_SELL(shop) = NULL;
}
}
/* Free a type list and all the strings it contains. */
static void free_shop_type_list(struct shop_buy_data **list)
{
int i;
for (i = 0; (*list)[i].type != NOTHING; i++)
if (BUY_WORD((*list)[i]))
free(BUY_WORD((*list)[i]));
free(*list);
*list = NULL;
}
/* Free up the whole shop structure and it's content. */
void free_shop(struct shop_data *shop)
{
free_shop_strings(shop);
free_shop_type_list(&(S_NAMELISTS(shop)));
free(S_ROOMS(shop));
free(S_PRODUCTS(shop));
free(shop);
}
/* Returns the real number of the shop with given virtual number. We take so
* good care to keep it sorted - let's use it. - Welcor */
shop_rnum real_shop(shop_vnum vnum)
{
int bot, top, mid;
bot = 0;
top = top_shop;
/* perform binary search on shop_table */
while (bot <= top) {
mid = (bot + top) / 2;
if (SHOP_NUM(mid) == vnum)
return (mid);
if (SHOP_NUM(mid) > vnum)
top = mid - 1;
else
bot = mid + 1;
}
return NOWHERE;
}
/* Generic string modifier for shop keeper messages. */
void modify_shop_string(char **str, char *new_s)
{
char buf[MAX_STRING_LENGTH];
char *pointer;
/* Check the '%s' is present, if not, add it. */
if (*new_s != '%') {
snprintf(buf, sizeof(buf), "%%s %s", new_s);
pointer = buf;
} else
pointer = new_s;
if (*str)
free(*str);
*str = strdup(pointer);
}
int add_shop(struct shop_data *nshp)
{
shop_rnum rshop;
int found = 0;
zone_rnum rznum = real_zone_by_thing(S_NUM(nshp));
/* The shop already exists, just update it. */
if ((rshop = real_shop(S_NUM(nshp))) != NOWHERE) {
/* free old strings. They're not used in any other place -- Welcor */
copy_shop(&shop_index[rshop], nshp, TRUE);
if (rznum != NOWHERE)
add_to_save_list(zone_table[rznum].number, SL_SHP);
else
mudlog(BRF, LVL_BUILDER, TRUE, "SYSERR: GenOLC: Cannot determine shop zone.");
return rshop;
}
top_shop++;
RECREATE(shop_index, struct shop_data, top_shop + 1);
for (rshop = top_shop; rshop > 0; rshop--) {
if (nshp->vnum > SHOP_NUM(rshop - 1)) {
found = rshop;
/* Make a "nofree" variant and remove these later. */
shop_index[rshop].in_room = NULL;
shop_index[rshop].producing = NULL;
shop_index[rshop].type = NULL;
/* don't free old strings - they're still in use -- Welcor */
copy_shop(&shop_index[rshop], nshp, FALSE);
break;
}
shop_index[rshop] = shop_index[rshop - 1];
}
if (!found) {
/* Make a "nofree" variant and remove these later. */
shop_index[rshop].in_room = NULL;
shop_index[rshop].producing = NULL;
shop_index[rshop].type = NULL;
/* don't free old strings - they're still in use -- Welcor */
copy_shop(&shop_index[0], nshp, FALSE);
}
if (rznum != NOWHERE)
add_to_save_list(zone_table[rznum].number, SL_SHP);
else
mudlog(BRF, LVL_BUILDER, TRUE, "SYSERR: GenOLC: Cannot determine shop zone.");
return rshop;
}
int save_shops(zone_rnum zone_num)
{
int i, j, rshop, num_shops = 0;
FILE *shop_file;
char fname[128], oldname[128], buf[MAX_STRING_LENGTH];
struct shop_data *shop;
#if CIRCLE_UNSIGNED_INDEX
if (zone_num == NOWHERE || zone_num > top_of_zone_table) {
#else
if (zone_num < 0 || zone_num > top_of_zone_table) {
#endif
log("SYSERR: GenOLC: save_shops: Invalid real zone number %d. (0-%d)", zone_num, top_of_zone_table);
return FALSE;
}
snprintf(fname, sizeof(fname), "%s/%d.new", SHP_PREFIX, zone_table[zone_num].number);
if (!(shop_file = fopen(fname, "w"))) {
mudlog(BRF, LVL_GOD, TRUE, "SYSERR: OLC: Cannot open shop file!");
return FALSE;
} else if (fprintf(shop_file, "CircleMUD v3.0 Shop File~\n") < 0) {
mudlog(BRF, LVL_GOD, TRUE, "SYSERR: OLC: Cannot write to shop file!");
fclose(shop_file);
return FALSE;
}
/* Search database for shops in this zone. */
for (i = genolc_zone_bottom(zone_num); i <= zone_table[zone_num].top; i++) {
if ((rshop = real_shop(i)) != NOWHERE) {
fprintf(shop_file, "#%d~\n", i);
shop = shop_index + rshop;
/* Save the products. */
for (j = 0; S_PRODUCT(shop, j) != NOTHING; j++)
fprintf(shop_file, "%d\n", obj_index[S_PRODUCT(shop, j)].vnum);
fprintf(shop_file, "-1\n");
/* Save the rates. */
fprintf(shop_file, "%1.2f\n"
"%1.2f\n",
S_BUYPROFIT(shop),
S_SELLPROFIT(shop));
/* Save the buy types and namelists. */
for (j = 0;S_BUYTYPE(shop, j) != NOTHING; j++)
fprintf(shop_file, "%d%s\n",
S_BUYTYPE(shop, j),
S_BUYWORD(shop, j) ? S_BUYWORD(shop, j) : "");
fprintf(shop_file, "-1\n");
/* Save messages. Added some defaults as sanity checks. */
sprintf(buf,
"%s~\n"
"%s~\n"
"%s~\n"
"%s~\n"
"%s~\n"
"%s~\n"
"%s~\n"
"%d\n"
"%ld\n"
"%d\n"
"%d\n",
S_NOITEM1(shop) ? S_NOITEM1(shop) : "%s Ke?!",
S_NOITEM2(shop) ? S_NOITEM2(shop) : "%s Ke?!",
S_NOBUY(shop) ? S_NOBUY(shop) : "%s Ke?!",
S_NOCASH1(shop) ? S_NOCASH1(shop) : "%s Ke?!",
S_NOCASH2(shop) ? S_NOCASH2(shop) : "%s Ke?!",
S_BUY(shop) ? S_BUY(shop) : "%s Ke?! %d?",
S_SELL(shop) ? S_SELL(shop) : "%s Ke?! %d?",
S_BROKE_TEMPER(shop),
S_BITVECTOR(shop),
S_KEEPER(shop) == NOBODY ? -1 : mob_index[S_KEEPER(shop)].vnum,
S_NOTRADE(shop)
);
fputs(convert_from_tabs(buf), shop_file);
/* Save the rooms. */
for (j = 0;S_ROOM(shop, j) != NOWHERE; j++)
fprintf(shop_file, "%d\n", S_ROOM(shop, j));
fprintf(shop_file, "-1\n");
/* Save open/closing times. */
fprintf(shop_file, "%d\n%d\n%d\n%d\n", S_OPEN1(shop), S_CLOSE1(shop),
S_OPEN2(shop), S_CLOSE2(shop));
num_shops++;
}
}
fprintf(shop_file, "$~\n");
fclose(shop_file);
snprintf(oldname, sizeof(oldname), "%s/%d.shp", SHP_PREFIX, zone_table[zone_num].number);
remove(oldname);
rename(fname, oldname);
if (num_shops > 0)
create_world_index(zone_table[zone_num].number, "shp");
if (in_save_list(zone_table[zone_num].number, SL_SHP))
remove_from_save_list(zone_table[zone_num].number, SL_SHP);
return TRUE;
}
Reference in a new issue View git blame Copy permalink