void make_corpse(struct char_data * ch)
{
struct obj_data *corpse, *o;
struct obj_data *money;
int i;
corpse = create_obj();
corpse->item_number = NOTHING;
IN_ROOM(corpse) = NOWHERE;
corpse->name = str_dup("corpse");
sprintf(buf2, "The corpse of %s is lying here.", GET_NAME(ch));
corpse->description = str_dup(buf2);
sprintf(buf2, "the corpse of %s", GET_NAME(ch));
corpse->short_description = str_dup(buf2);
GET_OBJ_TYPE(corpse) = ITEM_CONTAINER;
GET_OBJ_WEAR(corpse) = ITEM_WEAR_TAKE;
GET_OBJ_EXTRA(corpse) = ITEM_NODONATE;
GET_OBJ_VAL(corpse, 0) = 0; /* You can't store stuff in a corpse */
GET_OBJ_VAL(corpse, 3) = 1; /* corpse identifier */
GET_OBJ_WEIGHT(corpse) = GET_WEIGHT(ch) + IS_CARRYING_W(ch);
GET_OBJ_RENT(corpse) = 100000;
if (IS_NPC(ch))
GET_OBJ_TIMER(corpse) = max_npc_corpse_time;
else
GET_OBJ_TIMER(corpse) = max_pc_corpse_time;
/* transfer character's inventory to the corpse */
corpse->contains = ch->carrying;
for (o = corpse->contains; o != NULL; o = o->next_content)
o->in_obj = corpse;
object_list_new_owner(corpse, NULL);
/* transfer character's equipment to the corpse */
for (i = 0; i < NUM_WEARS; i++)
if (GET_EQ(ch, i)) {
remove_otrigger(GET_EQ(ch, i), ch);
obj_to_obj(unequip_char(ch, i), corpse);
}
/* transfer gold */
if (GET_GOLD(ch) > 0) {
/* following 'if' clause added to fix gold duplication loophole */
if (IS_NPC(ch) || (!IS_NPC(ch) && ch->desc)) {
money = create_money(GET_GOLD(ch));
obj_to_obj(money, corpse);
}
GET_GOLD(ch) = 0;
}
ch->carrying = NULL;
IS_CARRYING_N(ch) = 0;
IS_CARRYING_W(ch) = 0;
obj_to_room(corpse, IN_ROOM(ch));
}
void
postmaster_send_mail (struct char_data *ch, struct char_data *mailman,
int cmd, char *arg)
{
long recipient;
char buf[256], **write;
if (GET_LEVEL (ch) < MIN_MAIL_LEVEL)
{
sprintf (buf,
"$n tells you, 'Sorry, you have to be level %d to send mail!'",
MIN_MAIL_LEVEL);
act (buf, FALSE, mailman, 0, ch, TO_VICT);
return;
}
one_argument (arg, buf);
if (!*buf)
{ /* you'll get no argument from me! */
act ("$n tells you, 'You need to specify an addressee!'",
FALSE, mailman, 0, ch, TO_VICT);
return;
}
if (GET_GOLD (ch) < STAMP_PRICE)
{
sprintf (buf, "$n tells you, 'A stamp costs %d coins.'\r\n"
"$n tells you, '...which I see you can't afford.'",
STAMP_PRICE);
act (buf, FALSE, mailman, 0, ch, TO_VICT);
return;
}
if ((recipient = get_id_by_name (buf)) < 0)
{
act ("$n tells you, 'No one by that name is registered here!'",
FALSE, mailman, 0, ch, TO_VICT);
return;
}
act ("$n starts to write some mail.", TRUE, ch, 0, 0, TO_ROOM);
sprintf (buf, "$n tells you, 'I'll take %d coins for the stamp.'\r\n"
"$n tells you, 'Write your message, use @ on a new line when done.'",
STAMP_PRICE);
act (buf, FALSE, mailman, 0, ch, TO_VICT);
GET_GOLD (ch) -= STAMP_PRICE;
SET_BIT (PLR_FLAGS (ch), PLR_MAILING); /* string_write() sets writing. */
/* Start writing! */
CREATE (write, char *, 1);
string_write (ch->desc, write, MAX_MAIL_SIZE, recipient, NULL);
}
void Crash_cryosave(struct char_data *ch, int cost)
{
char buf[MAX_INPUT_LENGTH];
struct rent_info rent;
int j;
FILE *fp;
if (IS_NPC(ch))
return;
if (!get_filename(buf, sizeof(buf), CRASH_FILE, GET_NAME(ch)))
return;
if (!(fp = fopen(buf, "w")))
return;
Crash_extract_norent_eq(ch);
Crash_extract_norents(ch->carrying);
GET_GOLD(ch) = MAX(0, GET_GOLD(ch) - cost);
rent.rentcode = RENT_CRYO;
rent.time = time(0);
rent.gold = GET_GOLD(ch);
rent.account = GET_BANK_GOLD(ch);
rent.net_cost_per_diem = 0;
fprintf(fp,"%d %d %d %d %d %d\r\n",rent.rentcode,rent.time,
rent.net_cost_per_diem,rent.gold,rent.account,rent.nitems);
for (j = 0; j < NUM_WEARS; j++)
if (GET_EQ(ch, j)) {
if (!Crash_save(GET_EQ(ch, j), fp, j + 1)) {
fclose(fp);
return;
}
Crash_restore_weight(GET_EQ(ch, j));
Crash_extract_objs(GET_EQ(ch, j));
}
if (!Crash_save(ch->carrying, fp, 0)) {
fclose(fp);
return;
}
fprintf(fp, "$~\n");
fclose(fp);
Crash_extract_objs(ch->carrying);
SET_BIT(PLR_FLAGS(ch), PLR_CRYO);
}
void Crash_cryosave(struct char_data * ch, int cost)
{
char buf[MAX_INPUT_LENGTH];
struct rent_info rent;
int j;
FILE *fp;
if (IS_NPC(ch))
return;
if (!get_filename(GET_NAME(ch), buf, CRASH_FILE))
return;
if (!(fp = fopen(buf, "wb")))
return;
for (j = 0; j < NUM_WEARS; j++)
if (GET_EQ(ch, j))
obj_to_char(unequip_char(ch, j), ch);
Crash_extract_norents_from_equipped(ch);
Crash_extract_norents(ch->carrying);
GET_GOLD(ch) = MAX(0L, (long)GET_GOLD(ch) - cost);
rent.rentcode = RENT_CRYO;
rent.time = time(0);
rent.gold = GET_GOLD(ch);
rent.account = GET_BANK_GOLD(ch);
rent.net_cost_per_diem = 0;
if (!Crash_write_rentcode(ch, fp, &rent)) {
fclose(fp);
return;
}
for (j = 0; j < NUM_WEARS; j++)
if (GET_EQ(ch,j)) {
if (!Crash_save(GET_EQ(ch,j), fp, j+1)) {
fclose(fp);
return;
}
Crash_restore_weight(GET_EQ(ch,j));
Crash_extract_objs(GET_EQ(ch,j));
}
if (!Crash_save(ch->carrying, fp, 0)) {
fclose(fp);
return;
}
fclose(fp);
Crash_extract_objs(ch->carrying);
SET_BIT(PLR_FLAGS(ch), PLR_CRYO);
}
int pray_for_items(struct char_data *ch, int cmd, char *arg)
{
char buf[256];
int key_room, gold;
bool found;
struct obj_data *tmp_obj, *obj;
struct extra_descr_data *ext;
if (cmd != 176) /* You must pray to get the stuff */
return FALSE;
key_room = 1+ch->in_room;
strcpy(buf, "item_for_");
strcat(buf, GET_NAME(ch));
gold = 0;
found = FALSE;
for (tmp_obj = world[key_room].contents; tmp_obj; tmp_obj = tmp_obj->next_content)
for(ext = tmp_obj->ex_description; ext; ext = ext->next)
if (str_cmp(buf, ext->keyword) == 0) {
if (gold == 0) {
gold = 1;
act("$n kneels and at the altar and chants a prayer to Odin.",
FALSE, ch, 0, 0, TO_ROOM);
act("You notice a faint light in Odin's eye.",
FALSE, ch, 0, 0, TO_CHAR);
}
obj = read_object(tmp_obj->item_number, REAL);
obj_to_room(obj, ch->in_room);
act("$p slowly fades into existence.",FALSE,ch,obj,0,TO_ROOM);
act("$p slowly fades into existence.",FALSE,ch,obj,0,TO_CHAR);
gold += obj->obj_flags.cost;
found = TRUE;
}
if (found) {
GET_GOLD(ch) -= gold;
GET_GOLD(ch) = MAX(0, GET_GOLD(ch));
return TRUE;
}
return FALSE;
}
void npc_steal(struct char_data *ch,struct char_data *victim)
{
int gold;
if(IS_NPC(victim)) return;
if(GET_LEVEL(victim)>20) return;
if (AWAKE(victim) && (number(0,GET_LEVEL(ch)) == 0)) {
act("You discover that $n has $s hands in your wallet.",FALSE,ch,0,victim,TO_VICT);
act("$n tries to steal gold from $N.",TRUE, ch, 0, victim, TO_NOTVICT);
} else {
/* Steal some gold coins */
gold = (int) ((GET_GOLD(victim)*number(1,10))/100);
if (gold > 0) {
GET_GOLD(ch) += gold;
GET_GOLD(victim) -= gold;
}
}
}
static void event_scatter_goodies_zone(int rnum, struct room_data *rp,
struct event_goodies *stuff)
{
int i = 0;
int exit_found = 0;
int gold = 0;
struct char_data *monster = NULL;
struct obj_data *object = NULL;
struct obj_data *coins = NULL;
if (DEBUG > 1)
log_info("called %s with %d, %08zx, %08zx", __PRETTY_FUNCTION__, rnum, (size_t) rp,
(size_t) stuff);
if (!rp || rp->number < stuff->bottom || rp->number > stuff->top)
return;
if (IS_SET(rp->room_flags, (NO_MOB | PEACEFUL | PRIVATE)))
return;
exit_found = 0;
for (i = 0; i < MAX_NUM_EXITS; i++) /* neswud */
if (rp->dir_option[i]) {
exit_found = 1;
break;
}
if (!exit_found)
return;
if (number(0, 99) >= stuff->chance)
return;
gold = dice(stuff->gold_dice, stuff->gold_die) + stuff->gold_mod;
gold_count += gold;
coins = create_money(gold);
obj_to_room(coins, rnum);
rprintf(rnum,
"In a brilliant green flash, a pile of %s appears before you!\r\n",
coins->short_description);
if (number(0, 99) < stuff->mob_chance) {
i = number(1, stuff->mob_count) - 1;
if ((monster = read_mobile(stuff->mob_vnum[i], VIRTUAL))) {
GET_GOLD(monster) = 0;
mob_count++;
char_to_room(monster, rnum);
act("A rift of red light rips open and $N rushes out!", FALSE,
monster, 0, monster, TO_ROOM);
}
}
if (number(0, 99) < stuff->obj_chance) {
i = number(1, stuff->obj_count) - 1;
if ((object = read_object(stuff->obj_vnum[i], VIRTUAL))) {
obj_count++;
obj_to_room(object, rnum);
rprintf(rnum, "In a shimmering of blue light, %s %s forms!\r\n",
SANA(object), object->short_description);
}
}
}
int Crash_offer_rent(struct char_data * ch, struct char_data * receptionist,
int display, int factor)
{
char buf[MAX_INPUT_LENGTH];
int i;
long totalcost = 0, numitems = 0, norent = 0;
norent = Crash_report_unrentables(ch, receptionist, ch->carrying);
for (i = 0; i < NUM_WEARS; i++)
norent += Crash_report_unrentables(ch, receptionist, GET_EQ(ch, i));
if (norent)
return 0;
totalcost = min_rent_cost * factor;
Crash_report_rent(ch, receptionist, ch->carrying, &totalcost, &numitems, display, factor);
for (i = 0; i < NUM_WEARS; i++)
Crash_report_rent(ch, receptionist, GET_EQ(ch, i), &totalcost, &numitems, display, factor);
if (!numitems) {
sprintf(buf, "%s But you are not carrying anything! Just quit!", GET_NAME(ch));
do_tell(receptionist, buf, 0, 0);
return (0);
}
if (numitems > max_obj_save) {
sprintf(buf, "%s Sorry, but I cannot store more than %d items.",
GET_NAME(ch), max_obj_save);
do_tell(receptionist, buf, 0, 0);
return (0);
}
if (display) {
sprintf(buf, "%s Plus, my %d coin fee..", GET_NAME(ch),
min_rent_cost * factor);
do_tell(receptionist, buf, 0, 0);
sprintf(buf, "%s Totalling %ld, minus your rent credit of %ld...",
GET_NAME(ch), totalcost, (long)(GET_LEVEL(ch) * 800));
do_tell(receptionist, buf, 0, 0);
totalcost = MAX(0, (int)(totalcost - (GET_LEVEL(ch) * 800)));
sprintf(buf, "%s That will be %ld coin%s%s.", GET_NAME(ch),
totalcost, (totalcost == 1 ? "" : "s"),
(factor == RENT_FACTOR ? " per day" : ""));
do_tell(receptionist, buf, 0, 0);
if (totalcost > GET_GOLD(ch)) {
sprintf(buf, "%s ...which I see you can't afford.", GET_NAME(ch));
do_tell(receptionist, buf, 0, 0);
return (0);
} else if (factor == RENT_FACTOR)
Crash_rent_deadline(ch, receptionist, totalcost);
}
return (totalcost);
}
static void event_fill_zone_with_mobs(int rnum, struct room_data *rp,
struct event_mob_in_zone *mobs)
{
int i = 0;
int j = 0;
int couldbe = 0;
int exit_found = FALSE;
struct char_data *monster = NULL;
struct obj_data *object = NULL;
if (DEBUG > 1)
log_info("called %s with %d, %08zx, %08zx", __PRETTY_FUNCTION__, rnum, (size_t) rp,
(size_t) mobs);
if (!rp || rp->number < mobs->bottom || rp->number > mobs->top)
return;
if (IS_SET(rp->room_flags, (NO_MOB | PEACEFUL | PRIVATE)))
return;
exit_found = 0;
for (i = 0; i < MAX_NUM_EXITS; i++) /* neswud */
if (rp->dir_option[i]) {
exit_found = 1;
break;
}
if (!exit_found)
return;
couldbe = number(mobs->atleast, mobs->atmost);
for (j = 0; j < couldbe; j++) {
if (number(0, 99) >= mobs->chance)
continue;
i = number(1, mobs->count) - 1;
if (!(monster = read_mobile(mobs->mobset[i].vnum, VIRTUAL)))
continue;
monster->points.max_hit = dice(mobs->mobset[i].hp_dice,
mobs->mobset[i].hp_die) + mobs->mobset[i].hp_mod;
GET_HIT(monster) = GET_MAX_HIT(monster);
GET_EXP(monster) = (dice(mobs->mobset[i].exp_dice, mobs->mobset[i].exp_die)
+ mobs->mobset[i].exp_mod) * GET_MAX_HIT(monster);
GET_GOLD(monster) = number(mobs->mobset[i].gold_dice, mobs->mobset[i].gold_die)
+ mobs->mobset[i].gold_mod;
if (mobs->mobset[i].obj_vnum >= 0) {
if (number(0, 99) < mobs->mobset[i].obj_chance) {
if ((object = read_object(mobs->mobset[i].obj_vnum, VIRTUAL)))
obj_to_char(object, monster);
}
}
char_to_room(monster, rnum);
mob_count++;
act("In a shimmering column of blue light, $N appears!", FALSE,
monster, 0, monster, TO_ROOM);
}
}
void Crash_rent_deadline(struct char_data *ch, struct char_data *recep,
long cost)
{
long rent_deadline;
char buf[MAX_STRING_LENGTH];
if (!cost)
return;
rent_deadline = ((GET_GOLD(ch) + GET_BANK_GOLD(ch)) / cost);
snprintf(buf, sizeof(buf), "$n tells you, 'You can rent for %ld day%s with the gold you have\r\n"
"on hand and in the bank.'\r\n", rent_deadline, rent_deadline != 1 ? "s" : "");
act(buf, FALSE, recep, 0, ch, TO_VICT);
}
int dump(struct char_data *ch, int cmd, char *arg)
{
struct obj_data *k;
char buf[100];
struct char_data *tmp_char;
int value=0;
void do_drop(struct char_data *ch, char *argument, int cmd);
char *fname(char *namelist);
for(k = world[ch->in_room].contents; k ; k = world[ch->in_room].contents)
{
sprintf(buf, "The %s vanish in a puff of smoke.\n\r" ,fname(k->name));
for(tmp_char = world[ch->in_room].people; tmp_char;
tmp_char = tmp_char->next_in_room)
if (CAN_SEE_OBJ(tmp_char, k))
send_to_char(buf,tmp_char);
extract_obj(k);
}
if(cmd!=60) return(FALSE);
do_drop(ch, arg, cmd);
value = 0;
for(k = world[ch->in_room].contents; k ; k = world[ch->in_room].contents)
{
sprintf(buf, "The %s vanish in a puff of smoke.\n\r",fname(k->name));
for(tmp_char = world[ch->in_room].people; tmp_char;
tmp_char = tmp_char->next_in_room)
if (CAN_SEE_OBJ(tmp_char, k))
send_to_char(buf,tmp_char);
value += MAX(1, MIN(50, k->obj_flags.cost/10));
extract_obj(k);
}
if (value)
{
act("You are awarded for outstanding performance.", FALSE, ch, 0, 0, TO_CHAR);
act("$n has been awarded for being a good citizen.", TRUE, ch, 0,0, TO_ROOM);
if (GET_LEVEL(ch) < 3)
gain_exp(ch, value);
else
GET_GOLD(ch) += value;
}
}
void Crash_rentsave(struct char_data * ch, int cost)
{
char buf[MAX_INPUT_LENGTH];
struct rent_info rent;
int j;
FILE *fp;
if (IS_NPC(ch))
return;
if (!get_filename(GET_NAME(ch), buf, CRASH_FILE))
return;
if (!(fp = fopen(buf, "wb")))
return;
for (j = 0; j < NUM_WEARS; j++) {
if (GET_EQ(ch, j))
obj_to_char(unequip_char(ch, j), ch);
}
Crash_extract_norents_from_equipped(ch);
Crash_extract_norents(ch->carrying);
rent.net_cost_per_diem = cost;
rent.rentcode = RENT_RENTED;
rent.time = time(0);
rent.gold = GET_GOLD(ch);
rent.account = GET_BANK_GOLD(ch);
if (!Crash_write_rentcode(ch, fp, &rent)) {
fclose(fp);
return;
}
/* NOTHING SHOULD BE EQUIPPED SINCE IT WAS ALL REMOVED A FEW BLOCKS ABOVE
for (j = 0; j < NUM_WEARS; j++)
if (GET_EQ(ch,j)) {
if (!Crash_save(GET_EQ(ch,j), fp, j+1)) {
fclose(fp);
return;
}
Crash_restore_weight(GET_EQ(ch,j));
Crash_extract_objs(GET_EQ(ch,j));
}
*/
if (!Crash_save(ch->carrying, fp, 0)) {
fclose(fp);
return;
}
fclose(fp);
Crash_extract_objs(ch->carrying);
}
void Crash_rent_deadline(struct char_data * ch, struct char_data * recep,
long cost)
{
long rent_deadline;
if (!cost)
return;
rent_deadline = ((GET_GOLD(ch) + GET_BANK_GOLD(ch)) / cost);
sprintf(buf,
"%s You can rent for %ld day%s with the gold you have\r\n"
"on hand and in the bank.\r\n", GET_NAME(ch),
rent_deadline, (rent_deadline > 1) ? "s" : "");
do_tell(recep, buf, 0, 0);
}
int Crash_offer_rent(struct char_data *ch, struct char_data *receptionist,
int display, int factor)
{
char buf[MAX_INPUT_LENGTH];
int i;
long totalcost = 0, numitems = 0, norent;
norent = Crash_report_unrentables(ch, receptionist, ch->carrying);
for (i = 0; i < NUM_WEARS; i++)
norent += Crash_report_unrentables(ch, receptionist, GET_EQ(ch, i));
if (norent)
return (0);
totalcost = min_rent_cost * factor;
Crash_report_rent(ch, receptionist, ch->carrying, &totalcost, &numitems, display, factor);
for (i = 0; i < NUM_WEARS; i++)
Crash_report_rent(ch, receptionist, GET_EQ(ch, i), &totalcost, &numitems, display, factor);
if (!numitems) {
act("$n tells you, 'But you are not carrying anything! Just quit!'",
FALSE, receptionist, 0, ch, TO_VICT);
return (0);
}
if (numitems > max_obj_save) {
sprintf(buf, "$n tells you, 'Sorry, but I cannot store more than %d items.'",
max_obj_save);
act(buf, FALSE, receptionist, 0, ch, TO_VICT);
return (0);
}
if (display) {
sprintf(buf, "$n tells you, 'Plus, my %d coin fee..'",
min_rent_cost * factor);
act(buf, FALSE, receptionist, 0, ch, TO_VICT);
sprintf(buf, "$n tells you, 'For a total of %ld coins%s.'",
totalcost, (factor == RENT_FACTOR ? " per day" : ""));
act(buf, FALSE, receptionist, 0, ch, TO_VICT);
if (totalcost > GET_GOLD(ch) + GET_BANK_GOLD(ch)) {
act("$n tells you, '...which I see you can't afford.'",
FALSE, receptionist, 0, ch, TO_VICT);
return (0);
} else if (factor == RENT_FACTOR)
Crash_rent_deadline(ch, receptionist, totalcost);
}
return (totalcost);
}
static void postmaster_send_mail(struct char_data *ch, struct char_data *mailman,
int cmd, char *arg)
{
long recipient;
char buf[MAX_INPUT_LENGTH], **mailwrite;
if (GET_LEVEL(ch) < MIN_MAIL_LEVEL) {
snprintf(buf, sizeof(buf), "$n tells you, 'Sorry, you have to be level %d to send mail!'", MIN_MAIL_LEVEL);
act(buf, FALSE, mailman, 0, ch, TO_VICT);
return;
}
one_argument(arg, buf);
if (!*buf) { /* you'll get no argument from me! */
act("$n tells you, 'You need to specify an addressee!'",
FALSE, mailman, 0, ch, TO_VICT);
return;
}
if (GET_GOLD(ch) < STAMP_PRICE && GET_ADMLEVEL(ch) < ADMLVL_IMMORT) {
snprintf(buf, sizeof(buf), "$n tells you, 'A stamp costs %d coin%s.'\r\n"
"$n tells you, '...which I see you can't afford.'", STAMP_PRICE,
STAMP_PRICE == 1 ? "" : "s");
act(buf, FALSE, mailman, 0, ch, TO_VICT);
return;
}
if ((recipient = get_id_by_name(buf)) < 0 || !mail_recip_ok(buf)) {
act("$n tells you, 'No one by that name is registered here!'",
FALSE, mailman, 0, ch, TO_VICT);
return;
}
act("$n starts to write some mail.", TRUE, ch, 0, 0, TO_ROOM);
snprintf(buf, sizeof(buf), "$n tells you, 'I'll take %d coins for the stamp.'\r\n"
"$n tells you, 'Write your message. (/s saves /h for help).'",
STAMP_PRICE);
act(buf, FALSE, mailman, 0, ch, TO_VICT);
if (GET_ADMLEVEL(ch) < ADMLVL_IMMORT)
decrease_gold(ch, STAMP_PRICE);
SET_BIT_AR(PLR_FLAGS(ch), PLR_MAILING); /* string_write() sets writing. */
/* Start writing! */
CREATE(mailwrite, char *, 1);
string_write(ch->desc, mailwrite, MAX_MAIL_SIZE, recipient, NULL);
}
int write_mobile_record(mob_vnum mvnum, struct char_data *mob, FILE *fd)
{
char ldesc[MAX_STRING_LENGTH], ddesc[MAX_STRING_LENGTH];
ldesc[MAX_STRING_LENGTH - 1] = '\0';
ddesc[MAX_STRING_LENGTH - 1] = '\0';
strip_cr(strncpy(ldesc, GET_LDESC(mob), MAX_STRING_LENGTH - 1));
strip_cr(strncpy(ddesc, GET_DDESC(mob), MAX_STRING_LENGTH - 1));
fprintf(fd, "#%d\n"
"%s%c\n"
"%s%c\n"
"%s%c\n"
"%s%c\n",
mvnum,
GET_ALIAS(mob), STRING_TERMINATOR,
GET_SDESC(mob), STRING_TERMINATOR,
ldesc, STRING_TERMINATOR,
ddesc, STRING_TERMINATOR
);
fprintf(fd, "%ld %ld %d E\n"
"%d %d %d %dd%d+%d %dd%d+%d\n",
MOB_FLAGS(mob), AFF_FLAGS(mob), GET_ALIGNMENT(mob),
GET_LEVEL(mob), 20 - GET_HITROLL(mob), GET_AC(mob) / 10, GET_HIT(mob),
GET_MANA(mob), GET_MOVE(mob), GET_NDD(mob), GET_SDD(mob),
GET_DAMROLL(mob)
);
fprintf(fd, "%d %d\n"
"%d %d %d\n",
GET_GOLD(mob), GET_EXP(mob),
GET_POS(mob), GET_DEFAULT_POS(mob), GET_SEX(mob)
);
if (write_mobile_espec(mvnum, mob, fd) < 0)
log("SYSERR: GenOLC: Error writing E-specs for mobile #%d.", mvnum);
script_save_to_disk(fd, mob, MOB_TRIGGER);
#if CONFIG_GENOLC_MOBPROG
if (write_mobile_mobprog(mvnum, mob, fd) < 0)
log("SYSERR: GenOLC: Error writing MobProgs for mobile #%d.", mvnum);
#endif
return TRUE;
}
void do_mob_report (struct char_data *ch)
{
struct char_data *mob;
FILE *reportfile;
int i;
if (!(reportfile = fopen("report.mob", "w"))) {
mlog("SYSERR: Mob report file unavailable.");
send_to_char ("Report.mob could not be generated.\r\n",ch);
return;
}
sprintf(buf, "MOBS\n----\n");
for (i=0; i<top_of_mobt;i++) {
mob=read_mobile(i, REAL);
char_to_room(mob, 0);
sprintf(buf+strlen(buf), "[%5d] %s Spec Proc: ",
GET_MOB_VNUM(mob), GET_NAME(mob));
if (mob_index[GET_MOB_RNUM(mob)].func!=NULL)
get_spec_name(GET_MOB_RNUM(mob), buf2,'m');
else sprintf(buf2, "none");
sprintf(buf+strlen(buf), "%s\n",buf2);
sprintf(buf+strlen(buf),mob->player.description);
sprintf(buf+strlen(buf),"Difficulty: %d XP: %d HP: %d Mana: %d Gold %d\n",
GET_DIFFICULTY(mob), GET_EXP(mob), GET_MAX_HIT(mob), GET_MAX_MANA(mob), GET_GOLD(mob));
sprintf(buf+strlen(buf),"Passive Defense: %d Damage Reduction: %d ",
GET_PD(mob), GET_REDUCTION(mob));
sprintf(buf+strlen(buf), "Attack Type: %s\n",
attack_hit_text[mob->mob_specials.attack_type].singular);
sprintbit(MOB_FLAGS(mob), action_bits, buf2, sizeof(buf2));
sprintf(buf+strlen(buf),"Flags: %s\n", buf2);
sprintbit(AFF_FLAGS(mob), affected_bits, buf2, sizeof(buf2));
sprintf(buf+strlen(buf),"Affects: %s\n\n-------\n", buf2);
extract_char(mob);
fprintf(reportfile, buf);
buf[0]='\0';
}/*for i=0...*/
fclose (reportfile);
send_to_char ("report.mob printed\r\n",ch);
}
static void npc_steal(struct char_data *ch, struct char_data *victim)
{
int gold;
if (IS_NPC(victim))
return;
if (GET_LEVEL(victim) >= LVL_IMMORT)
return;
if (!CAN_SEE(ch, victim))
return;
if (AWAKE(victim) && (rand_number(0, GET_LEVEL(ch)) == 0)) {
act("You discover that $n has $s hands in your wallet.", FALSE, ch, 0, victim, TO_VICT);
act("$n tries to steal gold from $N.", TRUE, ch, 0, victim, TO_NOTVICT);
} else {
/* Steal some gold coins */
gold = (GET_GOLD(victim) * rand_number(1, 10)) / 100;
if (gold > 0) {
increase_gold(ch, gold);
decrease_gold(victim, gold);
}
}
}
void medit_autoroll_stats(struct descriptor_data *d)
{
int mob_lev;
mob_lev = GET_LEVEL(OLC_MOB(d));
mob_lev = GET_LEVEL(OLC_MOB(d)) = LIMIT(mob_lev, 1, LVL_IMPL);
GET_MOVE(OLC_MOB(d)) = mob_lev*10; /* hit point bonus (mobs don't use movement points */
GET_HIT(OLC_MOB(d)) = mob_lev/5; /* number of hitpoint dice */
GET_MANA(OLC_MOB(d)) = mob_lev/5; /* size of hitpoint dice */
GET_NDD(OLC_MOB(d)) = MAX(1, mob_lev/6); /* number damage dice 1-5 */
GET_SDD(OLC_MOB(d)) = MAX(2, mob_lev/6); /* size of damage dice 2-5 */
GET_DAMROLL(OLC_MOB(d)) = mob_lev/6; /* damroll (dam bonus) 0-5 */
GET_HITROLL(OLC_MOB(d)) = mob_lev/3; /* hitroll 0-10 */
GET_EXP(OLC_MOB(d)) = (mob_lev*mob_lev*100);
GET_GOLD(OLC_MOB(d)) = (mob_lev*10);
GET_AC(OLC_MOB(d)) = (100-(mob_lev*6)); /* AC 94 to -80 */
/* 'Advanced' stats are only rolled if advanced options are enabled */
if (CONFIG_MEDIT_ADVANCED) {
GET_STR(OLC_MOB(d)) = LIMIT((mob_lev*2)/3, 11, 18); /* 2/3 level in range 11 to 18 */
GET_INT(OLC_MOB(d)) = LIMIT((mob_lev*2)/3, 11, 18);
GET_WIS(OLC_MOB(d)) = LIMIT((mob_lev*2)/3, 11, 18);
GET_DEX(OLC_MOB(d)) = LIMIT((mob_lev*2)/3, 11, 18);
GET_CON(OLC_MOB(d)) = LIMIT((mob_lev*2)/3, 11, 18);
GET_CHA(OLC_MOB(d)) = LIMIT((mob_lev*2)/3, 11, 18);
GET_SAVE(OLC_MOB(d), SAVING_PARA) = mob_lev / 4; /* All Saving throws */
GET_SAVE(OLC_MOB(d), SAVING_ROD) = mob_lev / 4; /* set to a quarter */
GET_SAVE(OLC_MOB(d), SAVING_PETRI) = mob_lev / 4; /* of the mobs level */
GET_SAVE(OLC_MOB(d), SAVING_BREATH) = mob_lev / 4;
GET_SAVE(OLC_MOB(d), SAVING_SPELL) = mob_lev / 4;
}
}
void postmaster_send_mail(struct char_data * ch, struct char_data *mailman,
int cmd, char *arg)
{
long recipient;
char buf[256];
if (GET_LEVEL(ch) < MIN_MAIL_LEVEL && GET_CLASS(ch) < CLASS_VAMPIRE) {
sprintf(buf, "$n tells you, 'Sorry, you have to be level %d to send mail!'",
MIN_MAIL_LEVEL);
act(buf, FALSE, mailman, 0, ch, TO_VICT);
return;
}
one_argument(arg, buf);
if (!*buf) { /* you'll get no argument from me! */
act("$n tells you, 'You need to specify an addressee!'",
FALSE, mailman, 0, ch, TO_VICT);
return;
}
if (GET_GOLD(ch) < STAMP_PRICE && GET_LEVEL(ch) < LVL_IMMORT) {
sprintf(buf, "$n tells you, 'A stamp costs %d coins.'\r\n"
"$n tells you, '...which I see you can't afford.'", STAMP_PRICE);
act(buf, FALSE, mailman, 0, ch, TO_VICT);
return;
}
/* REMOVED FOR MAIL_ALL SNIPPET
if ((recipient = get_id_by_name(buf)) < 0) {
act("$n tells you, 'No one by that name is registered here!'",
FALSE, mailman, 0, ch, TO_VICT);
return;
}
*/
/* BEGIN MAIL_ALL SNIPPET */
if ((!(str_cmp(buf, "all")) || !(str_cmp(buf, "imms"))) && GET_LEVEL(ch) < LVL_IMPL) {
act("$n tells you, 'You must be an Implementor to send a message to everyone or immortals!'",
FALSE, mailman, 0, ch, TO_VICT);
return;
}
if (!(str_cmp(buf, "all"))) {
recipient = -1;
} else if ((recipient = get_id_by_name(buf)) < 0) {
act("$n tells you, 'No one by that name is registered here!'",
FALSE, mailman, 0, ch, TO_VICT);
return;
}
/* END MAIL_ALL SNIPPET */
if ((recipient = get_id_by_name(buf)) == 1 && GET_LEVEL(ch) < LVL_IMMORT) {
act("$n tells you, 'No one by that name exists within Dibrova.'",
FALSE, mailman, 0, ch, TO_VICT);
return;
}
act("$n starts to write some mail.", TRUE, ch, 0, 0, TO_ROOM);
sprintf(buf, "$n tells you, 'I'll take %d coins for the stamp.'\r\n"
"$n tells you, 'Write your message, (/s saves /h for help)'",
STAMP_PRICE);
act(buf, FALSE, mailman, 0, ch, TO_VICT);
GET_GOLD(ch) -= STAMP_PRICE;
SET_BIT_AR(PLR_FLAGS(ch), PLR_MAILING);
SET_BIT_AR(PLR_FLAGS(ch), PLR_WRITING);
ch->desc->mail_to = recipient;
ch->desc->str = (char **) malloc(sizeof(char *));
*(ch->desc->str) = NULL;
ch->desc->max_str = MAX_MAIL_SIZE;
}
void make_corpse(struct char_data *ch)
{
char buf2[MAX_NAME_LENGTH + 64];
struct obj_data *corpse, *o;
struct obj_data *money;
int i;
corpse = create_obj();
corpse->item_number = NOTHING;
IN_ROOM(corpse) = NOWHERE;
corpse->name = strdup("corpse");
snprintf(buf2, sizeof(buf2), "The corpse of %s is lying here.", GET_NAME(ch));
corpse->description = strdup(buf2);
snprintf(buf2, sizeof(buf2), "the corpse of %s", GET_NAME(ch));
corpse->short_description = strdup(buf2);
GET_OBJ_TYPE(corpse) = ITEM_CONTAINER;
GET_OBJ_WEAR(corpse) = ITEM_WEAR_TAKE;
GET_OBJ_EXTRA(corpse) = ITEM_NODONATE;
GET_OBJ_VAL(corpse, 0) = 0; /* You can't store stuff in a corpse */
GET_OBJ_VAL(corpse, 3) = 1; /* corpse identifier */
GET_OBJ_WEIGHT(corpse) = GET_WEIGHT(ch) + IS_CARRYING_W(ch);
GET_OBJ_RENT(corpse) = 100000;
if (IS_NPC(ch))
GET_OBJ_TIMER(corpse) = max_npc_corpse_time;
else
GET_OBJ_TIMER(corpse) = max_pc_corpse_time;
/* transfer character's inventory to the corpse */
corpse->contains = ch->carrying;
for (o = corpse->contains; o != NULL; o = o->next_content)
o->in_obj = corpse;
object_list_new_owner(corpse, NULL);
/* transfer character's equipment to the corpse */
for (i = 0; i < NUM_WEARS; i++)
if (GET_EQ(ch, i))
obj_to_obj(unequip_char(ch, i), corpse);
/* transfer gold */
if (GET_GOLD(ch) > 0) {
/*
* following 'if' clause added to fix gold duplication loophole
* The above line apparently refers to the old "partially log in,
* kill the game character, then finish login sequence" duping
* bug. The duplication has been fixed (knock on wood) but the
* test below shall live on, for a while. -gg 3/3/2002
*/
if (IS_NPC(ch) || ch->desc) {
money = create_money(GET_GOLD(ch));
obj_to_obj(money, corpse);
}
GET_GOLD(ch) = 0;
}
ch->carrying = NULL;
IS_CARRYING_N(ch) = 0;
IS_CARRYING_W(ch) = 0;
obj_to_room(corpse, IN_ROOM(ch));
}
void Crash_idlesave(struct char_data * ch)
{
char buf[MAX_INPUT_LENGTH];
struct rent_info rent;
int j;
int cost, cost_eq;
FILE *fp;
if (IS_NPC(ch))
return;
if (!get_filename(GET_NAME(ch), buf, CRASH_FILE))
return;
if (!(fp = fopen(buf, "wb")))
return;
for (j = 0; j < NUM_WEARS; j++)
if (GET_EQ(ch, j))
obj_to_char(unequip_char(ch, j), ch);
Crash_extract_norents_from_equipped(ch);
Crash_extract_norents(ch->carrying);
cost_eq = 0;
for (j = 0; j < NUM_WEARS; j++)
Crash_calculate_rent(GET_EQ(ch,j), &cost_eq);
cost = 0;
Crash_calculate_rent(ch->carrying, &cost);
cost <<= 1; /* forcerent cost is 2x normal rent */
cost_eq <<= 1;
if (cost+cost_eq > GET_GOLD(ch) + GET_BANK_GOLD(ch)) {
for (j = 0; j < NUM_WEARS; j++) /* unequip player with low money */
if (GET_EQ(ch,j))
obj_to_char(unequip_char(ch, j), ch);
cost += cost_eq;
cost_eq = 0;
}
while ((cost+cost_eq > GET_GOLD(ch) + GET_BANK_GOLD(ch)) && ch->carrying) {
Crash_extract_expensive(ch->carrying);
cost = 0;
Crash_calculate_rent(ch->carrying, &cost);
cost <<= 1;
}
if (!ch->carrying) {
for (j = 0; j < NUM_WEARS && !(GET_EQ(ch,j)); j++)
;
if (j == NUM_WEARS) { /* no eq nor inv */
fclose(fp);
Crash_delete_file(GET_NAME(ch));
return;
}
}
rent.net_cost_per_diem = cost;
rent.rentcode = RENT_TIMEDOUT;
rent.time = time(0);
rent.gold = GET_GOLD(ch);
rent.account = GET_BANK_GOLD(ch);
if (!Crash_write_rentcode(ch, fp, &rent)) {
fclose(fp);
return;
}
for (j = 0; j < NUM_WEARS; j++) {
if (GET_EQ(ch,j)) {
if (!Crash_save(GET_EQ(ch,j), fp, j+1)) {
fclose(fp);
return;
}
Crash_restore_weight(GET_EQ(ch,j));
Crash_extract_objs(GET_EQ(ch,j));
}
}
if (!Crash_save(ch->carrying, fp, 0)) {
fclose(fp);
return;
}
fclose(fp);
Crash_extract_objs(ch->carrying);
}
/* Display main menu. */
static void medit_disp_stats_menu(struct descriptor_data *d)
{
struct char_data *mob;
char buf[MAX_STRING_LENGTH];
mob = OLC_MOB(d);
get_char_colors(d->character);
clear_screen(d);
/* Color codes have to be used here, for count_color_codes to work */
sprintf(buf, "(range \ty%d\tn to \ty%d\tn)", GET_HIT(mob) + GET_MOVE(mob), (GET_HIT(mob) * GET_MANA(mob)) + GET_MOVE(mob));
/* Top section - standard stats */
write_to_output(d,
"-- Mob Number: %s[%s%d%s]%s\r\n"
"(%s1%s) Level: %s[%s%4d%s]%s\r\n"
"(%s2%s) %sAuto Set Stats (based on level)%s\r\n\r\n"
"Hit Points (xdy+z): Bare Hand Damage (xdy+z): \r\n"
"(%s3%s) HP NumDice: %s[%s%5d%s]%s (%s6%s) BHD NumDice: %s[%s%5d%s]%s\r\n"
"(%s4%s) HP SizeDice: %s[%s%5d%s]%s (%s7%s) BHD SizeDice: %s[%s%5d%s]%s\r\n"
"(%s5%s) HP Addition: %s[%s%5d%s]%s (%s8%s) DamRoll: %s[%s%5d%s]%s\r\n"
"%-*s(range %s%d%s to %s%d%s)\r\n\r\n"
"(%sA%s) Armor Class: %s[%s%4d%s]%s (%sD%s) Hitroll: %s[%s%5d%s]%s\r\n"
"(%sB%s) Exp Points: %s[%s%10d%s]%s (%sE%s) Alignment: %s[%s%5d%s]%s\r\n"
"(%sC%s) Gold: %s[%s%10d%s]%s\r\n\r\n",
cyn, yel, OLC_NUM(d), cyn, nrm,
cyn, nrm, cyn, yel, GET_LEVEL(mob), cyn, nrm,
cyn, nrm, cyn, nrm,
cyn, nrm, cyn, yel, GET_HIT(mob), cyn, nrm, cyn, nrm, cyn, yel, GET_NDD(mob), cyn, nrm,
cyn, nrm, cyn, yel, GET_MANA(mob), cyn, nrm, cyn, nrm, cyn, yel, GET_SDD(mob), cyn, nrm,
cyn, nrm, cyn, yel, GET_MOVE(mob), cyn, nrm, cyn, nrm, cyn, yel, GET_DAMROLL(mob), cyn, nrm,
count_color_chars(buf)+28, buf,
yel, GET_NDD(mob) + GET_DAMROLL(mob), nrm,
yel, (GET_NDD(mob) * GET_SDD(mob)) + GET_DAMROLL(mob), nrm,
cyn, nrm, cyn, yel, GET_AC(mob), cyn, nrm, cyn, nrm, cyn, yel, GET_HITROLL(mob), cyn, nrm,
cyn, nrm, cyn, yel, GET_EXP(mob), cyn, nrm, cyn, nrm, cyn, yel, GET_ALIGNMENT(mob), cyn, nrm,
cyn, nrm, cyn, yel, GET_GOLD(mob), cyn, nrm
);
if (CONFIG_MEDIT_ADVANCED) {
/* Bottom section - non-standard stats, togglable in cedit */
write_to_output(d,
"(%sF%s) Str: %s[%s%2d/%3d%s]%s Saving Throws\r\n"
"(%sG%s) Int: %s[%s%3d%s]%s (%sL%s) Paralysis %s[%s%3d%s]%s\r\n"
"(%sH%s) Wis: %s[%s%3d%s]%s (%sM%s) Rods/Staves %s[%s%3d%s]%s\r\n"
"(%sI%s) Dex: %s[%s%3d%s]%s (%sN%s) Petrification %s[%s%3d%s]%s\r\n"
"(%sJ%s) Con: %s[%s%3d%s]%s (%sO%s) Breath %s[%s%3d%s]%s\r\n"
"(%sK%s) Cha: %s[%s%3d%s]%s (%sP%s) Spells %s[%s%3d%s]%s\r\n\r\n",
cyn, nrm, cyn, yel, GET_STR(mob), GET_ADD(mob), cyn, nrm,
cyn, nrm, cyn, yel, GET_INT(mob), cyn, nrm, cyn, nrm, cyn, yel, GET_SAVE(mob, SAVING_PARA), cyn, nrm,
cyn, nrm, cyn, yel, GET_WIS(mob), cyn, nrm, cyn, nrm, cyn, yel, GET_SAVE(mob, SAVING_ROD), cyn, nrm,
cyn, nrm, cyn, yel, GET_DEX(mob), cyn, nrm, cyn, nrm, cyn, yel, GET_SAVE(mob, SAVING_PETRI), cyn, nrm,
cyn, nrm, cyn, yel, GET_CON(mob), cyn, nrm, cyn, nrm, cyn, yel, GET_SAVE(mob, SAVING_BREATH), cyn, nrm,
cyn, nrm, cyn, yel, GET_CHA(mob), cyn, nrm, cyn, nrm, cyn, yel, GET_SAVE(mob, SAVING_SPELL), cyn, nrm
);
}
/* Quit to previous menu option */
write_to_output(d, "(%sQ%s) Quit to main menu\r\nEnter choice : ", cyn, nrm);
OLC_MODE(d) = MEDIT_STATS_MENU;
}
/*
* return values:
* 0 - successful load, keep char in rent room.
* 1 - load failure or load of crash items -- put char in temple.
* 2 - rented equipment lost (no $)
*/
int Crash_load(struct char_data * ch)
{
FILE *fl;
char fname[MAX_STRING_LENGTH];
struct obj_file_elem object;
struct rent_info rent;
int cost, orig_rent_code, num_objs = 0, j;
float num_of_days;
struct obj_data *obj, *obj2, *cont_row[MAX_BAG_ROWS];
int location;
/* Empty all of the container lists (you never know ...) */
for (j = 0; j < MAX_BAG_ROWS; j++)
cont_row[j] = NULL;
if (!get_filename(GET_NAME(ch), fname, CRASH_FILE))
return 1;
if (!(fl = fopen(fname, "r+b"))) {
if (errno != ENOENT) { /* if it fails, NOT because of no file */
sprintf(buf1, "SYSERR: READING OBJECT FILE %s (5)", fname);
perror(buf1);
send_to_char("\r\n********************* NOTICE *********************\r\n"
"There was a problem loading your objects from disk.\r\n"
"Contact a God for assistance.\r\n", ch);
}
sprintf(buf, "%s entering game with NO equipment.", GET_NAME(ch));
mudlog(buf, NRM, MAX((int)LVL_IMMORT, (int)GET_INVIS_LEV(ch)), TRUE);
return 1;
}
if (!feof(fl))
fread(&rent, sizeof(struct rent_info), 1, fl);
else {
plog("SYSERR: Crash_load: %s's rent file was empty!", GET_NAME(ch));
return 1;
}
if (rent.rentcode == RENT_RENTED || rent.rentcode == RENT_TIMEDOUT) {
num_of_days = (float) (time(0) - rent.time) / SECS_PER_REAL_DAY;
cost = (int) (rent.net_cost_per_diem * num_of_days);
if (cost > GET_GOLD(ch) + GET_BANK_GOLD(ch)) {
fclose(fl);
sprintf(buf, "%s entering game, rented equipment lost (no $).",
GET_NAME(ch));
mudlog(buf, BRF, MAX((int)LVL_IMMORT, (int)GET_INVIS_LEV(ch)), TRUE);
Crash_crashsave(ch);
return 2;
} else {
GET_BANK_GOLD(ch) -= MAX((long)cost - GET_GOLD(ch), 0L);
GET_GOLD(ch) = MAX((long)GET_GOLD(ch) - cost, 0L);
save_char(ch, NOWHERE);
}
}
switch (orig_rent_code = rent.rentcode) {
case RENT_RENTED:
sprintf(buf, "%s un-renting and entering game.", GET_NAME(ch));
mudlog(buf, NRM, MAX((int)LVL_IMMORT, (int)GET_INVIS_LEV(ch)), TRUE);
break;
case RENT_CRASH:
sprintf(buf, "%s retrieving crash-saved items and entering game.", GET_NAME(ch));
mudlog(buf, NRM, MAX((int)LVL_IMMORT, (int)GET_INVIS_LEV(ch)), TRUE);
break;
case RENT_CRYO:
sprintf(buf, "%s un-cryo'ing and entering game.", GET_NAME(ch));
mudlog(buf, NRM, MAX((int)LVL_IMMORT, (int)GET_INVIS_LEV(ch)), TRUE);
break;
case RENT_FORCED:
case RENT_TIMEDOUT:
sprintf(buf, "%s retrieving force-saved items and entering game.", GET_NAME(ch));
mudlog(buf, NRM, MAX((int)LVL_IMMORT, (int)GET_INVIS_LEV(ch)), TRUE);
break;
default:
sprintf(buf, "WARNING: %s entering game with undefined rent code.", GET_NAME(ch));
mudlog(buf, BRF, MAX((int)LVL_IMMORT, (int)GET_INVIS_LEV(ch)), TRUE);
break;
}
while (!feof(fl)) {
fread(&object, sizeof(struct obj_file_elem), 1, fl);
if (ferror(fl)) {
perror("Reading crash file: Crash_load.");
fclose(fl);
return 1;
}
if (feof(fl))
break;
++num_objs;
if ( (obj = Obj_from_store(object, &location)) == NULL )
continue;
auto_equip( ch, obj, location );
/*
* What to do with a new loaded item:
*
* If there's a list with location less than 1 below this, then its
* container has disappeared from the file so we put the list back into
* the character's inventory. (Equipped items are 0 here.)
*
* If there's a list of contents with location of 1 below this, then we
* check if it is a container:
* - Yes: Get it from the character, fill it, and give it back so we
* have the correct weight.
* - No: The container is missing so we put everything back into the
* character's inventory.
*
* For items with negative location, we check if there is already a list
* of contents with the same location. If so, we put it there and if not,
* we start a new list.
*
* Since location for contents is < 0, the list indices are switched to
* non-negative.
*
* This looks ugly, but it works.
*/
if (location > 0) { /* Equipped */
for (j = MAX_BAG_ROWS - 1; j > 0; j--) {
if (cont_row[j]) { /* No container, back to inventory. */
for (; cont_row[j]; cont_row[j] = obj2) {
obj2 = cont_row[j]->next_content;
obj_to_char(cont_row[j], ch);
}
cont_row[j] = NULL;
}
}
if (cont_row[0]) { /* Content list existing. */
if (GET_OBJ_TYPE(obj) == ITEM_CONTAINER) {
/* Remove object, fill it, equip again. */
obj = unequip_char(ch, location - 1);
obj->contains = NULL; /* Should be NULL anyway, but just in case. */
for (; cont_row[0]; cont_row[0] = obj2) {
obj2 = cont_row[0]->next_content;
obj_to_obj(cont_row[0], obj);
}
equip_char(ch, obj, location - 1);
} else { /* Object isn't container, empty the list. */
for (; cont_row[0]; cont_row[0] = obj2) {
obj2 = cont_row[0]->next_content;
obj_to_char(cont_row[0], ch);
}
cont_row[0] = NULL;
}
}
} else { /* location <= 0 */
for (j = MAX_BAG_ROWS - 1; j > -location; j--) {
if (cont_row[j]) { /* No container, back to inventory. */
for (; cont_row[j]; cont_row[j] = obj2) {
obj2 = cont_row[j]->next_content;
obj_to_char(cont_row[j], ch);
}
cont_row[j] = NULL;
}
}
if (j == -location && cont_row[j]) { /* Content list exists. */
if (GET_OBJ_TYPE(obj) == ITEM_CONTAINER) {
/* Take the item, fill it, and give it back. */
obj_from_char(obj);
obj->contains = NULL;
for (; cont_row[j]; cont_row[j] = obj2) {
obj2 = cont_row[j]->next_content;
obj_to_obj(cont_row[j], obj);
}
obj_to_char(obj, ch); /* Add to inventory first. */
} else { /* Object isn't container, empty content list. */
for (; cont_row[j]; cont_row[j] = obj2) {
obj2 = cont_row[j]->next_content;
obj_to_char(cont_row[j], ch);
}
cont_row[j] = NULL;
}
}
if (location < 0 && location >= -MAX_BAG_ROWS) {
/*
* Let the object be part of the content list but put it at the
* list's end. Thus having the items in the same order as before
* the character rented.
*/
obj_from_char(obj);
if ((obj2 = cont_row[-location - 1]) != NULL) {
while (obj2->next_content)
obj2 = obj2->next_content;
obj2->next_content = obj;
} else
cont_row[-location - 1] = obj;
}
}
}
/* Little hoarding check. -gg 3/1/98 */
sprintf(fname, "%s (level %d) has %d object%s (max %d).",
GET_NAME(ch), GET_LEVEL(ch), num_objs,
num_objs != 1 ? "s" : "", max_obj_save);
mudlog(fname, NRM, MAX(GET_INVIS_LEV(ch), LVL_GOD), TRUE);
/* turn this into a crash file by re-writing the control block */
rent.rentcode = RENT_CRASH;
rent.time = time(0);
rewind(fl);
Crash_write_rentcode(ch, fl, &rent);
fclose(fl);
if ((orig_rent_code == RENT_RENTED) || (orig_rent_code == RENT_CRYO))
return (0);
else
return (1);
}
int gen_receptionist(struct char_data * ch, struct char_data * recep,
int cmd, char *arg, int mode)
{
int cost = 0;
extern int free_rent;
sh_int save_room;
char *action_table[] = {"smile", "dance", "sigh", "blush", "burp",
"cough", "giggle", "twiddle", "yawn"};
if (!ch->desc || IS_NPC(ch))
return FALSE;
if (!cmd && !number(0, 5)) {
do_action(recep, "", find_command(action_table[number(0, 8)]), 0);
return FALSE;
}
if (!CMD_IS("offer") && !CMD_IS("rent"))
return FALSE;
if (!AWAKE(recep)) {
send_to_char("She is unable to talk to you...\r\n", ch);
return TRUE;
}
if (!CAN_SEE(recep, ch)) {
act("$n says, 'I don't deal with people I can't see!'", FALSE, recep, 0, 0, TO_ROOM);
return TRUE;
}
if (free_rent) {
act("$n tells you, 'Rent is free here. Just quit, and your objects will be saved!'",
FALSE, recep, 0, ch, TO_VICT);
return 1;
}
if (CMD_IS("rent")) {
if (mode == RENT_FACTOR)
sprintf(buf, "%s Rent will cost you %d gold coins per day.",
GET_NAME(ch), cost);
else if (mode == CRYO_FACTOR)
sprintf(buf, "%s It will cost you %d gold coins to be frozen.",
GET_NAME(ch), cost);
do_tell(recep, buf, 0, 0);
if (cost > GET_GOLD(ch)) {
sprintf(buf, "%s ...which I see you can't afford.", GET_NAME(ch));
do_tell(recep, buf, 0, 0);
return TRUE;
}
if (mode == RENT_FACTOR)
Crash_rent_deadline(ch, recep, cost);
if (mode == RENT_FACTOR) {
act("$n stores your belongings and helps you into your private chamber.",
FALSE, recep, 0, ch, TO_VICT);
Crash_rentsave(ch, cost);
sprintf(buf, "%s has rented (%d/day, %ld tot.)", GET_NAME(ch),
cost, GET_GOLD(ch) + GET_BANK_GOLD(ch));
} else { /* cryo */
act("$n stores your belongings and helps you into your private chamber.\r\n"
"A white mist appears in the room, chilling you to the bone...\r\n"
"You begin to lose consciousness...",
FALSE, recep, 0, ch, TO_VICT);
Crash_cryosave(ch, cost);
sprintf(buf, "%s has cryo-rented.", GET_NAME(ch));
SET_BIT(PLR_FLAGS(ch), PLR_CRYO);
}
mudlog(buf, NRM, MAX((int)LVL_IMMORT, (int)GET_INVIS_LEV(ch)), TRUE);
act("$n helps $N into $S private chamber.", FALSE, recep, 0, ch, TO_NOTVICT);
save_room = ch->in_room;
extract_char(ch);
save_char(ch, save_room);
} else {
Crash_offer_rent(ch, recep, TRUE, mode);
act("$N gives $n an offer.", FALSE, ch, 0, recep, TO_ROOM);
}
return TRUE;
}
void shopping_sell( const char *arg, struct char_data *ch,
struct char_data *keeper,int shop_nr)
{
char argm[100], buf[MAX_STRING_LENGTH];
int cost,temp_cost, i;
struct obj_data *temp1;
float mult = 0;
if(!(is_ok(keeper,ch,shop_nr)))
return;
if(keeper->generic != 0)
for(i = 0; i <= MAX_TRADE; i++) {
if(keeper->generic == FAMINE)
if(shop_index[shop_nr].type[i] == ITEM_FOOD) {
mult = shop_multiplier; /* we're in a famine, we sell food, so we */
break; /* our prices to hell ;-) -DM */
}
if(keeper->generic == DWARVES_STRIKE)
if((shop_index[shop_nr].type[i] == ITEM_ARMOR) || (shop_index[shop_nr].type[i] == ITEM_WEAPON)) {
mult = shop_multiplier;
break;
}
}
only_argument(arg, argm);
if(!(*argm)) {
sprintf(buf, "%s What do you want to sell??"
,GET_NAME(ch));
do_tell(keeper,buf,19);
return;
}
if (!( temp1 = get_obj_in_list_vis(ch,argm,ch->carrying))) {
sprintf(buf, shop_index[shop_nr].no_such_item2,GET_NAME(ch));
do_tell(keeper,buf,19);
return;
}
if( IS_OBJ_STAT( temp1, ITEM_NODROP ) && !IS_IMMORTAL( ch ) )
{
send_to_char("You can't let go of it, it must be CURSED!\n\r", ch);
return;
}
if (!(trade_with(temp1,shop_nr))||(temp1->obj_flags.cost<1)) {
sprintf(buf,shop_index[shop_nr].do_not_buy,
GET_NAME(ch));
do_tell(keeper,buf,19);
return;
}
if( GET_GOLD(keeper)<(int) (temp1->obj_flags.cost*
shop_index[shop_nr].profit_sell +
((chr_apply[ (int)GET_CHR(ch)].reaction*temp1->obj_flags.cost)/100) +
(mult * temp1->obj_flags.cost)))
{
sprintf(buf,shop_index[shop_nr].missing_cash1,GET_NAME(ch));
do_tell(keeper,buf,19);
return;
}
cost = temp1->obj_flags.cost;
if ((ITEM_TYPE(temp1) == ITEM_WAND) ||
(ITEM_TYPE(temp1) == ITEM_STAFF))
{
if (temp1->obj_flags.value[1])
{
cost = (int)( cost * ( (float)temp1->obj_flags.value[2] /
(float)temp1->obj_flags.value[1] ) );
}
else
{
cost = 0;
}
}
else if (ITEM_TYPE(temp1) == ITEM_ARMOR)
{
if (temp1->obj_flags.value[1])
{
cost = (int)( cost * ( (float)temp1->obj_flags.value[0] /
(float)temp1->obj_flags.value[1] ) );
}
else
{
cost = 0;
}
}
temp1->obj_flags.cost = cost;
act("$n sells $p.", FALSE, ch, temp1, 0, TO_ROOM);
temp_cost = (int) (temp1->obj_flags.cost*shop_index[shop_nr].profit_sell +
((chr_apply[ (int)GET_CHR(ch) ].reaction *
temp1->obj_flags.cost)/100) + (mult * temp1->obj_flags.cost));
if(temp_cost < 0) temp_cost=0;
sprintf(buf,shop_index[shop_nr].message_sell,GET_NAME(ch),temp_cost);
/* (int) (temp1->obj_flags.cost*
shop_index[shop_nr].profit_sell +
((chr_apply[GET_CHR(ch)].reaction*temp1->obj_flags.cost)/100)))
; */
do_tell(keeper,buf,19);
sprintf(buf,"The shopkeeper now has %s.\n\r",
temp1->short_description);
send_to_char(buf,ch);
if (GET_GOLD(keeper)< temp_cost) {
/* (int) (temp1->obj_flags.cost*
shop_index[shop_nr].profit_sell +
((chr_apply[GET_CHR(ch)].reaction*temp1->obj_flags.cost)/100))) {
*/
sprintf(buf,shop_index[shop_nr].missing_cash1 ,GET_NAME(ch));
do_tell(keeper,buf,19);
return;
}
GET_GOLD(ch) += temp_cost;
/* (int) (temp1->obj_flags.cost*
shop_index[shop_nr].profit_sell +
((chr_apply[GET_CHR(ch)].reaction*temp1->obj_flags.cost)/100));
*/
GET_GOLD(keeper) -= temp_cost;
/* (int) (temp1->obj_flags.cost*
shop_index[shop_nr].profit_sell +
((chr_apply[GET_CHR(ch)].reaction*temp1->obj_flags.cost)/100));
*/
obj_from_char(temp1);
if (temp1 == NULL) {
send_to_char("As far as I am concerned, you are out..\n\r",ch);
return;
}
if ((get_obj_in_list(argm,keeper->carrying)) ||
(GET_ITEM_TYPE(temp1) == ITEM_TRASH)) {
extract_obj(temp1);
} else {
obj_to_char(temp1,keeper);
}
return;
}
void
shopping_sell(char *arg, struct char_data * ch,
struct char_data * keeper, int shop_nr)
{
char tempstr[200], buf[MAX_STRING_LENGTH], name[200];
char shortd[MAX_STRING_LENGTH];
struct obj_data *obj, *tag = 0;
int sellnum, sold = 0, goldamt = 0;
if (!(is_ok(keeper, ch, shop_nr)))
return;
if ((sellnum = transaction_amt(arg)) < 0)
{
sprintf(buf, "%s A negative amount? Try buying something.",
GET_NAME(ch));
do_tell(keeper, buf, cmd_tell, 0);
return;
}
if (!(*arg) || !(sellnum))
{
sprintf(buf, "%s What do you want to sell??", GET_NAME(ch));
do_tell(keeper, buf, cmd_tell, 0);
return;
}
one_argument(arg, name);
if (!(obj = get_selling_obj(ch, name, keeper, shop_nr, TRUE)))
return;
strcpy(shortd, obj->short_description);
if (GET_GOLD(keeper) + SHOP_BANK(shop_nr) < sell_price(ch, obj, shop_nr)) {
sprintf(buf, shop_index[shop_nr].missing_cash1, GET_NAME(ch));
do_tell(keeper, buf, cmd_tell, 0);
return;
}
while ((obj) && (GET_GOLD(keeper) + SHOP_BANK(shop_nr) >=
sell_price(ch, obj, shop_nr)) && (sold < sellnum))
{
sold++;
goldamt += sell_price(ch, obj, shop_nr);
GET_GOLD(keeper) -= sell_price(ch, obj, shop_nr);
obj_from_char(obj);
tag = slide_obj(obj, keeper, shop_nr);
obj = get_selling_obj(ch, name, keeper, shop_nr, FALSE);
}
if (sold < sellnum)
{
if (!obj)
sprintf(buf, "%s You only have %d of those.", GET_NAME(ch), sold);
else if (GET_GOLD(keeper) + SHOP_BANK(shop_nr) <
sell_price(ch, obj, shop_nr))
sprintf(buf, "%s I can only afford to buy %d of those.",
GET_NAME(ch), sold);
else
sprintf(buf, "%s Something really screwy made me buy %d.",
GET_NAME(ch), sold);
do_tell(keeper, buf, cmd_tell, 0);
}
GET_GOLD(ch) += goldamt;
strcpy(tempstr, times_message(0, shortd, sold));
sprintf(buf, "$n sells %s.", tempstr);
act(buf, FALSE, ch, obj, 0, TO_ROOM);
sprintf(buf, shop_index[shop_nr].message_sell, GET_NAME(ch), goldamt);
do_tell(keeper, buf, cmd_tell, 0);
sprintf(buf, "The shopkeeper now has %s.\n\r", tempstr);
send_to_char(buf, ch);
if (GET_GOLD(keeper) < MIN_OUTSIDE_BANK)
{
goldamt = MIN(MAX_OUTSIDE_BANK - GET_GOLD(keeper), SHOP_BANK(shop_nr));
SHOP_BANK(shop_nr) -= goldamt;
GET_GOLD(keeper) += goldamt;
}
}
void
shopping_buy(char *arg, struct char_data *ch,
struct char_data *keeper, int shop_nr)
{
char tempstr[200], buf[MAX_STRING_LENGTH];
struct obj_data *obj, *last_obj = NULL;
int goldamt = 0, buynum, bought = 0;
if (!(is_ok(keeper, ch, shop_nr)))
return;
if (SHOP_SORT(shop_nr) < IS_CARRYING_N(keeper))
sort_keeper_objs(keeper, shop_nr);
if ((buynum = transaction_amt(arg)) < 0)
{
sprintf(buf, "%s A negative amount? Try selling me something.",
GET_NAME(ch));
do_tell(keeper, buf, cmd_tell, 0);
return;
}
if (!(*arg) || !(buynum))
{
sprintf(buf, "%s What do you want to buy??", GET_NAME(ch));
do_tell(keeper, buf, cmd_tell, 0);
return;
}
if (!(obj = get_purchase_obj(ch, arg, keeper, shop_nr, TRUE)))
return;
if ((buy_price(ch, obj, shop_nr) > GET_GOLD(ch)) && !IS_GOD(ch))
{
sprintf(buf, shop_index[shop_nr].missing_cash2, GET_NAME(ch));
do_tell(keeper, buf, cmd_tell, 0);
switch (SHOP_BROKE_TEMPER(shop_nr))
{
case 0:
do_action(keeper, GET_NAME(ch), cmd_puke, 0);
return;
case 1:
do_echo(keeper, "smokes on his joint.", cmd_emote, SCMD_EMOTE);
return;
default:
return;
}
}
if ((IS_CARRYING_N(ch) + 1 > CAN_CARRY_N(ch)))
{
sprintf(buf, "%s: You can't carry any more items.\n\r",
fname(obj->name));
send_to_char(buf, ch);
return;
}
if ((IS_CARRYING_W(ch) + GET_OBJ_WEIGHT(obj)) > CAN_CARRY_W(ch))
{
sprintf(buf, "%s: You can't carry that much weight.\n\r",
fname(obj->name));
send_to_char(buf, ch);
return;
}
while ((obj) && ((GET_GOLD(ch) >= buy_price(ch, obj, shop_nr)) || IS_GOD(ch))
&& (IS_CARRYING_N(ch) < CAN_CARRY_N(ch)) && (bought < buynum)
&& (IS_CARRYING_W(ch) + GET_OBJ_WEIGHT(obj) <= CAN_CARRY_W(ch)))
{
bought++;
/* Test if producing shop ! */
if (shop_producing(obj, shop_nr))
obj = read_object(GET_OBJ_RNUM(obj), REAL);
else
{
obj_from_char(obj);
SHOP_SORT(shop_nr)--;
}
obj_to_char(obj, ch);
goldamt += buy_price(ch, obj, shop_nr);
if (!IS_GOD(ch))
GET_GOLD(ch) -= buy_price(ch, obj, shop_nr);
last_obj = obj;
obj = get_purchase_obj(ch, arg, keeper, shop_nr, FALSE);
if (!same_obj(obj, last_obj))
break;
}
if (bought < buynum)
{
if (!obj || !same_obj(last_obj, obj))
sprintf(buf, "%s I only have %d to sell you.", GET_NAME(ch), bought);
else if (GET_GOLD(ch) < buy_price(ch, obj, shop_nr))
sprintf(buf, "%s You can only afford %d.", GET_NAME(ch), bought);
else if (IS_CARRYING_N(ch) >= CAN_CARRY_N(ch))
sprintf(buf, "%s You can only hold %d.", GET_NAME(ch), bought);
else if (IS_CARRYING_W(ch) + GET_OBJ_WEIGHT(obj) > CAN_CARRY_W(ch))
sprintf(buf, "%s You can only carry %d.", GET_NAME(ch), bought);
else
sprintf(buf, "%s Something screwy only gave you %d.", GET_NAME(ch),
bought);
do_tell(keeper, buf, cmd_tell, 0);
}
if (!IS_GOD(ch))
GET_GOLD(keeper) += goldamt;
sprintf(tempstr, "%s", times_message(ch->carrying, 0, bought));
sprintf(buf, "$n buys %s.", tempstr);
act(buf, FALSE, ch, obj, 0, TO_ROOM);
sprintf(buf, shop_index[shop_nr].message_buy, GET_NAME(ch), goldamt);
do_tell(keeper, buf, cmd_tell, 0);
sprintf(buf, "You now have %s.\n\r", tempstr);
send_to_char(buf, ch);
if (SHOP_USES_BANK(shop_nr))
if (GET_GOLD(keeper) > MAX_OUTSIDE_BANK)
{
SHOP_BANK(shop_nr) += (GET_GOLD(keeper) - MAX_OUTSIDE_BANK);
GET_GOLD(keeper) = MAX_OUTSIDE_BANK;
}
}
void medit_parse(struct descriptor_data *d, char *arg)
{
int i = -1, j;
char *oldtext = NULL;
if (OLC_MODE(d) > MEDIT_NUMERICAL_RESPONSE) {
i = atoi(arg);
if (!*arg || (!isdigit(arg[0]) && ((*arg == '-') && !isdigit(arg[1])))) {
write_to_output(d, "Try again : ");
return;
}
} else { /* String response. */
if (!genolc_checkstring(d, arg))
return;
}
switch (OLC_MODE(d)) {
case MEDIT_CONFIRM_SAVESTRING:
/* Ensure mob has MOB_ISNPC set. */
SET_BIT_AR(MOB_FLAGS(OLC_MOB(d)), MOB_ISNPC);
switch (*arg) {
case 'y':
case 'Y':
/* Save the mob in memory and to disk. */
medit_save_internally(d);
mudlog(CMP, MAX(LVL_BUILDER, GET_INVIS_LEV(d->character)), TRUE, "OLC: %s edits mob %d", GET_NAME(d->character), OLC_NUM(d));
if (CONFIG_OLC_SAVE) {
medit_save_to_disk(zone_table[real_zone_by_thing(OLC_NUM(d))].number);
write_to_output(d, "Mobile saved to disk.\r\n");
} else
write_to_output(d, "Mobile saved to memory.\r\n");
cleanup_olc(d, CLEANUP_ALL);
return;
case 'n':
case 'N':
/* If not saving, we must free the script_proto list. We do so by
* assigning it to the edited mob and letting free_mobile in
* cleanup_olc handle it. */
OLC_MOB(d)->proto_script = OLC_SCRIPT(d);
cleanup_olc(d, CLEANUP_ALL);
return;
default:
write_to_output(d, "Invalid choice!\r\n");
write_to_output(d, "Do you wish to save your changes? : ");
return;
}
break;
case MEDIT_MAIN_MENU:
i = 0;
switch (*arg) {
case 'q':
case 'Q':
if (OLC_VAL(d)) { /* Anything been changed? */
write_to_output(d, "Do you wish to save your changes? : ");
OLC_MODE(d) = MEDIT_CONFIRM_SAVESTRING;
} else
cleanup_olc(d, CLEANUP_ALL);
return;
case '1':
OLC_MODE(d) = MEDIT_SEX;
medit_disp_sex(d);
return;
case '2':
OLC_MODE(d) = MEDIT_KEYWORD;
i--;
break;
case '3':
OLC_MODE(d) = MEDIT_S_DESC;
i--;
break;
case '4':
OLC_MODE(d) = MEDIT_L_DESC;
i--;
break;
case '5':
OLC_MODE(d) = MEDIT_D_DESC;
send_editor_help(d);
write_to_output(d, "Enter mob description:\r\n\r\n");
if (OLC_MOB(d)->player.description) {
write_to_output(d, "%s", OLC_MOB(d)->player.description);
oldtext = strdup(OLC_MOB(d)->player.description);
}
string_write(d, &OLC_MOB(d)->player.description, MAX_MOB_DESC, 0, oldtext);
OLC_VAL(d) = 1;
return;
case '6':
OLC_MODE(d) = MEDIT_POS;
medit_disp_positions(d);
return;
case '7':
OLC_MODE(d) = MEDIT_DEFAULT_POS;
medit_disp_positions(d);
return;
case '8':
OLC_MODE(d) = MEDIT_ATTACK;
medit_disp_attack_types(d);
return;
case '9':
OLC_MODE(d) = MEDIT_STATS_MENU;
medit_disp_stats_menu(d);
return;
case 'a':
case 'A':
OLC_MODE(d) = MEDIT_NPC_FLAGS;
medit_disp_mob_flags(d);
return;
case 'b':
case 'B':
OLC_MODE(d) = MEDIT_AFF_FLAGS;
medit_disp_aff_flags(d);
return;
case 'w':
case 'W':
write_to_output(d, "Copy what mob? ");
OLC_MODE(d) = MEDIT_COPY;
return;
case 'x':
case 'X':
write_to_output(d, "Are you sure you want to delete this mobile? ");
OLC_MODE(d) = MEDIT_DELETE;
return;
case 's':
case 'S':
OLC_SCRIPT_EDIT_MODE(d) = SCRIPT_MAIN_MENU;
dg_script_menu(d);
return;
default:
medit_disp_menu(d);
return;
}
if (i == 0)
break;
else if (i == 1)
write_to_output(d, "\r\nEnter new value : ");
else if (i == -1)
write_to_output(d, "\r\nEnter new text :\r\n] ");
else
write_to_output(d, "Oops...\r\n");
return;
case MEDIT_STATS_MENU:
i=0;
switch(*arg) {
case 'q':
case 'Q':
medit_disp_menu(d);
return;
case '1': /* Edit level */
OLC_MODE(d) = MEDIT_LEVEL;
i++;
break;
case '2': /* Autoroll stats */
medit_autoroll_stats(d);
medit_disp_stats_menu(d);
OLC_VAL(d) = TRUE;
return;
case '3':
OLC_MODE(d) = MEDIT_NUM_HP_DICE;
i++;
break;
case '4':
OLC_MODE(d) = MEDIT_SIZE_HP_DICE;
i++;
break;
case '5':
OLC_MODE(d) = MEDIT_ADD_HP;
i++;
break;
case '6':
OLC_MODE(d) = MEDIT_NDD;
i++;
break;
case '7':
OLC_MODE(d) = MEDIT_SDD;
i++;
break;
case '8':
OLC_MODE(d) = MEDIT_DAMROLL;
i++;
break;
case 'a':
case 'A':
OLC_MODE(d) = MEDIT_AC;
i++;
break;
case 'b':
case 'B':
OLC_MODE(d) = MEDIT_EXP;
i++;
break;
case 'c':
case 'C':
OLC_MODE(d) = MEDIT_GOLD;
i++;
break;
case 'd':
case 'D':
OLC_MODE(d) = MEDIT_HITROLL;
i++;
break;
case 'e':
case 'E':
OLC_MODE(d) = MEDIT_ALIGNMENT;
i++;
break;
case 'f':
case 'F':
if (!CONFIG_MEDIT_ADVANCED) {
write_to_output(d, "Invalid Choice!\r\nEnter Choice : ");
return;
}
OLC_MODE(d) = MEDIT_STR;
i++;
break;
case 'g':
case 'G':
if (!CONFIG_MEDIT_ADVANCED) {
write_to_output(d, "Invalid Choice!\r\nEnter Choice : ");
return;
}
OLC_MODE(d) = MEDIT_INT;
i++;
break;
case 'h':
case 'H':
if (!CONFIG_MEDIT_ADVANCED) {
write_to_output(d, "Invalid Choice!\r\nEnter Choice : ");
return;
}
OLC_MODE(d) = MEDIT_WIS;
i++;
break;
case 'i':
case 'I':
if (!CONFIG_MEDIT_ADVANCED) {
write_to_output(d, "Invalid Choice!\r\nEnter Choice : ");
return;
}
OLC_MODE(d) = MEDIT_DEX;
i++;
break;
case 'j':
case 'J':
if (!CONFIG_MEDIT_ADVANCED) {
write_to_output(d, "Invalid Choice!\r\nEnter Choice : ");
return;
}
OLC_MODE(d) = MEDIT_CON;
i++;
break;
case 'k':
case 'K':
if (!CONFIG_MEDIT_ADVANCED) {
write_to_output(d, "Invalid Choice!\r\nEnter Choice : ");
return;
}
OLC_MODE(d) = MEDIT_CHA;
i++;
break;
case 'l':
case 'L':
if (!CONFIG_MEDIT_ADVANCED) {
write_to_output(d, "Invalid Choice!\r\nEnter Choice : ");
return;
}
OLC_MODE(d) = MEDIT_PARA;
i++;
break;
case 'm':
case 'M':
if (!CONFIG_MEDIT_ADVANCED) {
write_to_output(d, "Invalid Choice!\r\nEnter Choice : ");
return;
}
OLC_MODE(d) = MEDIT_ROD;
i++;
break;
case 'n':
case 'N':
if (!CONFIG_MEDIT_ADVANCED) {
write_to_output(d, "Invalid Choice!\r\nEnter Choice : ");
return;
}
OLC_MODE(d) = MEDIT_PETRI;
i++;
break;
case 'o':
case 'O':
if (!CONFIG_MEDIT_ADVANCED) {
write_to_output(d, "Invalid Choice!\r\nEnter Choice : ");
return;
}
OLC_MODE(d) = MEDIT_BREATH;
i++;
break;
case 'p':
case 'P':
if (!CONFIG_MEDIT_ADVANCED) {
write_to_output(d, "Invalid Choice!\r\nEnter Choice : ");
return;
}
OLC_MODE(d) = MEDIT_SPELL;
i++;
break;
default:
medit_disp_stats_menu(d);
return;
}
if (i == 0)
break;
else if (i == 1)
write_to_output(d, "\r\nEnter new value : ");
else if (i == -1)
write_to_output(d, "\r\nEnter new text :\r\n] ");
else
write_to_output(d, "Oops...\r\n");
return;
case OLC_SCRIPT_EDIT:
if (dg_script_edit_parse(d, arg)) return;
break;
case MEDIT_KEYWORD:
smash_tilde(arg);
if (GET_ALIAS(OLC_MOB(d)))
free(GET_ALIAS(OLC_MOB(d)));
GET_ALIAS(OLC_MOB(d)) = str_udup(arg);
break;
case MEDIT_S_DESC:
smash_tilde(arg);
if (GET_SDESC(OLC_MOB(d)))
free(GET_SDESC(OLC_MOB(d)));
GET_SDESC(OLC_MOB(d)) = str_udup(arg);
break;
case MEDIT_L_DESC:
smash_tilde(arg);
if (GET_LDESC(OLC_MOB(d)))
free(GET_LDESC(OLC_MOB(d)));
if (arg && *arg) {
char buf[MAX_INPUT_LENGTH];
snprintf(buf, sizeof(buf), "%s\r\n", arg);
GET_LDESC(OLC_MOB(d)) = strdup(buf);
} else
GET_LDESC(OLC_MOB(d)) = strdup("undefined");
break;
case MEDIT_D_DESC:
/*
* We should never get here.
*/
cleanup_olc(d, CLEANUP_ALL);
mudlog(BRF, LVL_BUILDER, TRUE, "SYSERR: OLC: medit_parse(): Reached D_DESC case!");
write_to_output(d, "Oops...\r\n");
break;
case MEDIT_NPC_FLAGS:
if ((i = atoi(arg)) <= 0)
break;
else if ( (j = medit_get_mob_flag_by_number(i)) == -1) {
write_to_output(d, "Invalid choice!\r\n");
write_to_output(d, "Enter mob flags (0 to quit) :");
return;
} else if (j <= NUM_MOB_FLAGS) {
TOGGLE_BIT_AR(MOB_FLAGS(OLC_MOB(d)), (j));
}
medit_disp_mob_flags(d);
return;
case MEDIT_AFF_FLAGS:
if ((i = atoi(arg)) <= 0)
break;
else if (i <= NUM_AFF_FLAGS)
TOGGLE_BIT_AR(AFF_FLAGS(OLC_MOB(d)), i);
/* Remove unwanted bits right away. */
REMOVE_BIT_AR(AFF_FLAGS(OLC_MOB(d)), AFF_CHARM);
REMOVE_BIT_AR(AFF_FLAGS(OLC_MOB(d)), AFF_POISON);
REMOVE_BIT_AR(AFF_FLAGS(OLC_MOB(d)), AFF_GROUP);
REMOVE_BIT_AR(AFF_FLAGS(OLC_MOB(d)), AFF_SLEEP);
medit_disp_aff_flags(d);
return;
/* Numerical responses. */
case MEDIT_SEX:
GET_SEX(OLC_MOB(d)) = LIMIT(i - 1, 0, NUM_GENDERS - 1);
break;
case MEDIT_HITROLL:
GET_HITROLL(OLC_MOB(d)) = LIMIT(i, 0, 50);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_DAMROLL:
GET_DAMROLL(OLC_MOB(d)) = LIMIT(i, 0, 50);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_NDD:
GET_NDD(OLC_MOB(d)) = LIMIT(i, 0, 30);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_SDD:
GET_SDD(OLC_MOB(d)) = LIMIT(i, 0, 127);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_NUM_HP_DICE:
GET_HIT(OLC_MOB(d)) = LIMIT(i, 0, 30);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_SIZE_HP_DICE:
GET_MANA(OLC_MOB(d)) = LIMIT(i, 0, 1000);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_ADD_HP:
GET_MOVE(OLC_MOB(d)) = LIMIT(i, 0, 30000);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_AC:
GET_AC(OLC_MOB(d)) = LIMIT(i, -200, 200);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_EXP:
GET_EXP(OLC_MOB(d)) = LIMIT(i, 0, MAX_MOB_EXP);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_GOLD:
GET_GOLD(OLC_MOB(d)) = LIMIT(i, 0, MAX_MOB_GOLD);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_STR:
GET_STR(OLC_MOB(d)) = LIMIT(i, 11, 25);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_INT:
GET_INT(OLC_MOB(d)) = LIMIT(i, 11, 25);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_WIS:
GET_WIS(OLC_MOB(d)) = LIMIT(i, 11, 25);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_DEX:
GET_DEX(OLC_MOB(d)) = LIMIT(i, 11, 25);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_CON:
GET_CON(OLC_MOB(d)) = LIMIT(i, 11, 25);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_CHA:
GET_CHA(OLC_MOB(d)) = LIMIT(i, 11, 25);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_PARA:
GET_SAVE(OLC_MOB(d), SAVING_PARA) = LIMIT(i, 0, 100);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_ROD:
GET_SAVE(OLC_MOB(d), SAVING_ROD) = LIMIT(i, 0, 100);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_PETRI:
GET_SAVE(OLC_MOB(d), SAVING_PETRI) = LIMIT(i, 0, 100);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_BREATH:
GET_SAVE(OLC_MOB(d), SAVING_BREATH) = LIMIT(i, 0, 100);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_SPELL:
GET_SAVE(OLC_MOB(d), SAVING_SPELL) = LIMIT(i, 0, 100);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_POS:
GET_POS(OLC_MOB(d)) = LIMIT(i - 1, 0, NUM_POSITIONS - 1);
break;
case MEDIT_DEFAULT_POS:
GET_DEFAULT_POS(OLC_MOB(d)) = LIMIT(i - 1, 0, NUM_POSITIONS - 1);
break;
case MEDIT_ATTACK:
GET_ATTACK(OLC_MOB(d)) = LIMIT(i, 0, NUM_ATTACK_TYPES - 1);
break;
case MEDIT_LEVEL:
GET_LEVEL(OLC_MOB(d)) = LIMIT(i, 1, LVL_IMPL);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_ALIGNMENT:
GET_ALIGNMENT(OLC_MOB(d)) = LIMIT(i, -1000, 1000);
OLC_VAL(d) = TRUE;
medit_disp_stats_menu(d);
return;
case MEDIT_COPY:
if ((i = real_mobile(atoi(arg))) != NOWHERE) {
medit_setup_existing(d, i);
} else
write_to_output(d, "That mob does not exist.\r\n");
break;
case MEDIT_DELETE:
if (*arg == 'y' || *arg == 'Y') {
if (delete_mobile(GET_MOB_RNUM(OLC_MOB(d))) != NOBODY)
write_to_output(d, "Mobile deleted.\r\n");
else
write_to_output(d, "Couldn't delete the mobile!\r\n");
cleanup_olc(d, CLEANUP_ALL);
return;
} else if (*arg == 'n' || *arg == 'N') {
medit_disp_menu(d);
OLC_MODE(d) = MEDIT_MAIN_MENU;
return;
} else
write_to_output(d, "Please answer 'Y' or 'N': ");
break;
default:
/* We should never get here. */
cleanup_olc(d, CLEANUP_ALL);
mudlog(BRF, LVL_BUILDER, TRUE, "SYSERR: OLC: medit_parse(): Reached default case!");
write_to_output(d, "Oops...\r\n");
break;
}
/* END OF CASE If we get here, we have probably changed something, and now want
to return to main menu. Use OLC_VAL as a 'has changed' flag */
OLC_VAL(d) = TRUE;
medit_disp_menu(d);
}
void shopping_buy( const char *arg, struct char_data *ch,
struct char_data *keeper, int shop_nr)
{
char argm[100], buf[MAX_STRING_LENGTH], newarg[100];
int num = 1;
struct obj_data *temp1;
int i;
float mult = 0;
if(!(is_ok(keeper,ch,shop_nr)))
return;
if(keeper->generic != 0)
for(i = 0; i <= MAX_TRADE; i++) {
if(keeper->generic == FAMINE)
if(shop_index[shop_nr].type[i] == ITEM_FOOD) {
mult = shop_multiplier; /* we're in a famine, we sell food, so we */
break; /* our prices to hell ;-) -DM */
}
if(keeper->generic == DWARVES_STRIKE)
if((shop_index[shop_nr].type[i] == ITEM_ARMOR) || (shop_index[shop_nr].type[i] == ITEM_WEAPON)) {
mult = shop_multiplier;
break;
}
}
only_argument(arg, argm);
if(!(*argm)) {
sprintf(buf,
"%s what do you want to buy??"
,GET_NAME(ch));
do_tell(keeper,buf,19);
return;
};
if( ( num = getabunch( argm, newarg ) ) != 0 )
{
strcpy(argm,newarg);
}
if (num == 0) num = 1;
if(!( temp1 =
get_obj_in_list_vis(ch,argm,keeper->carrying))) {
sprintf(buf,
shop_index[shop_nr].no_such_item1
,GET_NAME(ch));
do_tell(keeper,buf,19);
return;
}
if(temp1->obj_flags.cost <= 0) {
sprintf(buf,
shop_index[shop_nr].no_such_item1
,GET_NAME(ch));
do_tell(keeper,buf,19);
extract_obj(temp1);
return;
}
if( GET_GOLD(ch) < (int) (num*(temp1->obj_flags.cost*
shop_index[shop_nr].profit_buy -
((chr_apply[ (int)GET_CHR(ch) ].reaction*temp1->obj_flags.cost)/100) +
(mult * temp1->obj_flags.cost))) && GetMaxLevel(ch)<DEMIGOD) {
sprintf(buf, shop_index[shop_nr].missing_cash2, GET_NAME(ch));
do_tell(keeper,buf,19);
switch(shop_index[shop_nr].temper1) {
case 0:
do_action(keeper,GET_NAME(ch),30);
return;
case 1:
do_emote(keeper,"grins happily",36);
return;
default:
return;
}
}
if ((IS_CARRYING_N(ch) + num) > (CAN_CARRY_N(ch)))
{
sprintf(buf,"%s : You can't carry that many items.\n\r",
fname(temp1->name));
send_to_char(buf, ch);
return;
}
if ((IS_CARRYING_W(ch) + (num * temp1->obj_flags.weight)) > CAN_CARRY_W(ch))
{
sprintf(buf,"%s : You can't carry that much weight.\n\r",
fname(temp1->name));
send_to_char(buf, ch);
return;
}
act("$n buys $p.", FALSE, ch, temp1, 0, TO_ROOM);
sprintf(buf, shop_index[shop_nr].message_buy,
GET_NAME(ch), (int) (num * (temp1->obj_flags.cost*
shop_index[shop_nr].profit_buy -
((chr_apply[ (int)GET_CHR(ch)].reaction*temp1->obj_flags.cost)/100) +
(mult * temp1->obj_flags.cost))));
do_tell(keeper,buf,19);
sprintf(buf,"You now have %s (*%d).\n\r",
temp1->short_description,num);
send_to_char(buf,ch);
while (num-- > 0) {
if (GetMaxLevel(ch)<DEMIGOD)
GET_GOLD(ch) -= (int)(temp1->obj_flags.cost*
shop_index[shop_nr].profit_buy -
((chr_apply[ (int)GET_CHR(ch) ].reaction*temp1->obj_flags.cost)/100)+
(mult * temp1->obj_flags.cost));
GET_GOLD(keeper) += (int)(temp1->obj_flags.cost*
shop_index[shop_nr].profit_buy -
((chr_apply[(int)GET_CHR(ch)].reaction*temp1->obj_flags.cost)/100)+
(mult * temp1->obj_flags.cost));
/* Test if producing shop ! */
if (shop_producing(temp1,shop_nr))
temp1 = read_object(temp1->item_number, REAL);
else {
obj_from_char(temp1);
if (temp1 == NULL) {
send_to_char("Sorry, I just ran out of those.\n\r",ch);
GET_GOLD(ch) += (int)(temp1->obj_flags.cost*
shop_index[shop_nr].profit_buy -
((chr_apply[ (int)GET_CHR(ch) ].reaction *
temp1->obj_flags.cost)/100)+
(mult * temp1->obj_flags.cost));
return;
}
}
obj_to_char(temp1,ch);
}
return;
}
