void Crash_save_all(void)
{
struct descriptor_data *d;
for (d = descriptor_list; d; d = d->next) {
if ((d->connected == CON_PLAYING) && !IS_NPC(d->character)) {
if (PLR_FLAGGED(d->character, PLR_CRASH)) {
Crash_crashsave(d->character);
save_char(d->character, d->character->in_room);
REMOVE_BIT(PLR_FLAGS(d->character), PLR_CRASH);
}
}
}
}
void check_idling(struct char_data * ch)
{
if (++(ch->char_specials.timer) > idle_void) {
if (GET_WAS_IN(ch) == NOWHERE && IN_ROOM(ch) != NOWHERE) {
GET_WAS_IN(ch) = IN_ROOM(ch);
if (FIGHTING(ch)) {
stop_fighting(FIGHTING(ch));
stop_fighting(ch);
}
act("$n disappears into the void.", TRUE, ch, 0, 0, TO_ROOM);
send_to_char("You have been idle, and are pulled into a void.\r\n", ch);
save_char(ch, NOWHERE);
Crash_crashsave(ch);
char_from_room(ch);
char_to_room(ch, 1);
} else if (ch->char_specials.timer > idle_rent_time) {
if (IN_ROOM(ch) != NOWHERE)
char_from_room(ch);
char_to_room(ch, 3);
if (ch->desc) {
STATE(ch->desc) = CON_DISCONNECT;
/*
* For the 'if (d->character)' test in close_socket().
* -gg 3/1/98 (Happy anniversary.)
*/
ch->desc->character = NULL;
ch->desc = NULL;
}
if (free_rent)
Crash_rentsave(ch, 0);
else
Crash_idlesave(ch);
sprintf(buf, "%s force-rented and extracted (idle).", GET_NAME(ch));
mudlog(buf, CMP, LVL_GOD, TRUE);
extract_char(ch);
}
}
}
/*
* 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);
}
void
check_idling( CharData * ch )
{
#define VOID_TIME 8
#define EXTRACT_TIME 32
void Crash_rentsave(CharData *ch, int cost);
void Crash_cryosave(CharData *ch, int cost);
/*
** CONJURED timer
*/
int i = 0;
for(;i < 4;i++) {
if( GET_CONJ_CNT(ch, i) > 0)
{
SET_CONJ_CNT(ch, i) -= 1;
if(SET_CONJ_CNT(ch, i) == 0)
switch(GET_CLASS(ch)) {
case CLASS_RANGER:
sendChar( ch, "The creatures of the wild will answer your call again.\r\n" );
break;
case CLASS_NECROMANCER:
sendChar(ch, "The dead will heed your summons once more.\r\n");
case CLASS_MAGIC_USER:
switch(i) {
case TIMER_GATE: sendChar(ch, "Demons will answer your summons again.\r\n"); break;
case TIMER_MONSTER: sendChar(ch, "Monsters will answer your summons again.\r\n"); break;
case TIMER_ELEMENTAL: sendChar(ch, "Elementals will answer your summons again.\r\n"); break;
}
break;
default:
sendChar( ch, "Conjured creatures will answer your summons again.\r\n" );
}
}
}
/*
** HUNTED timer
*/
if( IS_SET_AR( PLR_FLAGS(ch), PLR_HUNTED ) && ch->desc &&
(--(ch)->player_specials->saved.phunt_countdown <= 0))
{
sendChar( ch, "You are no longer hunted.\r\n" );
unset_hunted_player(ch);
}
/*
** THIEF timer
*/
if( IS_SET_AR(PLR_FLAGS(ch), PLR_THIEF) && ch->desc &&
(--(ch)->player_specials->saved.pthief_countdown <= 0))
{
REMOVE_BIT_AR(PLR_FLAGS(ch), PLR_THIEF);
send_to_char("You are no longer a registered thief.\r\n", ch);
(ch)->player_specials->saved.pthief_countdown = 0;
}
/* KILLER timer */
if (IS_SET_AR(PLR_FLAGS(ch), PLR_KILLER)
&& (--(ch)->player_specials->saved.pkill_countdown <= 0))
{
REMOVE_BIT_AR(PLR_FLAGS(ch), PLR_KILLER);
send_to_char("You are no longer a registered killer.\r\n", ch);
(ch)->player_specials->saved.pkill_countdown = 0;
}
/* JAILED timer */
if (IS_SET_AR(PLR_FLAGS(ch), PLR_JAILED)
&& (--(ch)->player_specials->saved.jail_timer <= 0))
{
int jail_exit_room;
REMOVE_BIT_AR(PLR_FLAGS(ch), PLR_JAILED);
if (PRF_FLAGGED(ch, PRF_GOLD_TEAM) && IN_ROOM(ch) == real_room(GOLD_TEAM_JAIL))
{
jail_exit_room = real_room(GOLD_TEAM_START_ROOM);
GET_HIT(ch) = GET_MAX_HIT(ch);
GET_MANA(ch) = GET_MAX_MANA(ch);
GET_MOVE(ch) = GET_MAX_MOVE(ch);
char_from_room(ch);
char_to_room(ch, jail_exit_room);
look_at_room(ch, 0);
}
if (PRF_FLAGGED(ch, PRF_BLACK_TEAM) && IN_ROOM(ch) == real_room(BLACK_TEAM_JAIL))
{
jail_exit_room = real_room(BLACK_TEAM_START_ROOM);
GET_HIT(ch) = GET_MAX_HIT(ch);
GET_MANA(ch) = GET_MAX_MANA(ch);
GET_MOVE(ch) = GET_MAX_MOVE(ch);
char_from_room(ch);
char_to_room(ch, jail_exit_room);
look_at_room(ch, 0);
}
if (PRF_FLAGGED(ch, PRF_ROGUE_TEAM) && IN_ROOM(ch) == real_room(ROGUE_TEAM_JAIL))
{
jail_exit_room = real_room(ROGUE_TEAM_START_ROOM);
GET_HIT(ch) = GET_MAX_HIT(ch);
GET_MANA(ch) = GET_MAX_MANA(ch);
GET_MOVE(ch) = GET_MAX_MOVE(ch);
char_from_room(ch);
char_to_room(ch, jail_exit_room);
look_at_room(ch, 0);
}
sendChar(ch, "Your imprisonement is over.\r\n");
// if (PRF_FLAGGED(ch, PRF_GOLD_TEAM))
// jail_exit_room = IN_ROOM(ch);
// else if (PRF_FLAGGED(ch, PRF_BLACK_TEAM))
// jail_exit_room = IN_ROOM(ch);
// else if (PRF_FLAGGED(ch, PRF_ROGUE_TEAM))
// jail_exit_room = IN_ROOM(ch);
// else
// jail_exit_room = getStartRoom(ch);
// char_to_room(ch, jail_exit_room);
// look_at_room(ch, 0);
}
/*
** If your hunted there is NO escape.
*/
if(( ++(ch->char_specials.timer) > VOID_TIME ) &&
!IS_SET_AR(PLR_FLAGS(ch), PLR_HUNTED))
{
if (GET_WAS_IN(ch) == NOWHERE && ch->in_room != NOWHERE)
{
GET_WAS_IN(ch) = ch->in_room;
end_fight(ch);
act("$n disappears into the void.", TRUE, ch, 0, 0, TO_ROOM);
send_to_char("You have been idle, and are pulled into a void.\r\n", ch);
save_char(ch, NOWHERE);
Crash_crashsave(ch);
GET_WAS_IN(ch) = ch->in_room;
char_from_room(ch);
char_to_room(ch, 1);
}
//else if (ch->char_specials.timer > EXTRACT_TIME)
//{
//if (ch->in_room != NOWHERE)
//char_from_room(ch);
//char_to_room(ch, 1);
//if (ch->desc)
//SET_DCPENDING(ch->desc);
//ch->desc = NULL;
//Crash_idlesave(ch); /* apparently causing problems? */
//crashRentSave(ch, -1);
//mudlog( NRM, LVL_LRGOD, TRUE, "%s force-rented and extracted (idle).", GET_NAME(ch));
//extract_char(ch);
//}
}
#undef VOID_TIME
#undef EXTRACT_TIME
}
int Crash_load_objs(struct char_data *ch) {
FILE *fl;
char fname[MAX_STRING_LENGTH];
char line[256];
int t[10],i,num_of_days;
int orig_rent_code;
struct obj_data *temp;
int locate=0, nr,cost,num_objs=0;
struct obj_data *cont_row[MAX_BAG_ROWS];
int rentcode,timed,netcost,gold,account,nitems;
if (!get_filename(fname, sizeof(fname), CRASH_FILE, GET_NAME(ch)))
return 1;
for (i = 0; i < MAX_BAG_ROWS; i++)
cont_row[i] = NULL;
if (!(fl = fopen(fname, "r"))) {
if (errno != ENOENT) { /* if it fails, NOT because of no file */
char buf[MAX_STRING_LENGTH];
sprintf(buf, "SYSERR: READING OBJECT FILE %s (5)", fname);
perror(buf);
send_to_char(ch, "\r\n********************* NOTICE *********************\r\n"
"There was a problem loading your objects from disk.\r\n"
"Contact a God for assistance.\r\n");
}
mudlog(NRM, MAX(LVL_IMMORT, GET_INVIS_LEV(ch)), TRUE, "%s entering game with no equipment.", GET_NAME(ch));
return 1;
}
if (get_line(fl, line))
sscanf(line,"%d %d %d %d %d %d",&rentcode, &timed,
&netcost,&gold,&account,&nitems);
if (rentcode == RENT_RENTED || rentcode == RENT_TIMEDOUT) {
char str[64];
sprintf(str, "%d", SECS_PER_REAL_DAY);
num_of_days = (int)((float) (time(0) - timed) / (float)atoi(str));
cost = (int) (netcost * num_of_days);
if (cost > GET_GOLD(ch) + GET_BANK_GOLD(ch)) {
fclose(fl);
mudlog(BRF, MAX(LVL_IMMORT, GET_INVIS_LEV(ch)), TRUE,
"%s entering game, rented equipment lost (no $).", GET_NAME(ch));
Crash_crashsave(ch);
return 2;
} else {
GET_BANK_GOLD(ch) -= MAX(cost - GET_GOLD(ch), 0);
GET_GOLD(ch) = MAX(GET_GOLD(ch) - cost, 0);
save_char(ch);
}
}
switch (orig_rent_code = rentcode) {
case RENT_RENTED:
mudlog(NRM, MAX(LVL_IMMORT, GET_INVIS_LEV(ch)), TRUE,
"%s un-renting and entering game.", GET_NAME(ch));
break;
case RENT_CRASH:
mudlog(NRM, MAX(LVL_IMMORT, GET_INVIS_LEV(ch)), TRUE,
"%s retrieving crash-saved items and entering game.", GET_NAME(ch));
break;
case RENT_CRYO:
mudlog(NRM, MAX(LVL_IMMORT, GET_INVIS_LEV(ch)), TRUE,
"%s un-cryo'ing and entering game.", GET_NAME(ch));
break;
case RENT_FORCED:
case RENT_TIMEDOUT:
mudlog(NRM, MAX(LVL_IMMORT, GET_INVIS_LEV(ch)), TRUE,
"%s retrieving force-saved items and entering game.", GET_NAME(ch));
break;
default:
mudlog(NRM, MAX(LVL_IMMORT, GET_INVIS_LEV(ch)), TRUE,
"WARNING: %s entering game with undefined rent code.", GET_NAME(ch));
break;
}
temp = NULL;
while (get_line(fl, line)) {
char tag[6];
int num;
/* first, we get the number. Not too hard. */
if(*line == '$' && line[1] == '~') {
if (temp)
num_objs += handle_obj(temp, ch, locate, cont_row);
break;
}
if (*line == '#') {
if (sscanf(line, "#%d", &nr) != 1) {
continue;
} else {
if (temp)
num_objs += handle_obj(temp, ch, locate, cont_row);
temp = NULL;
locate = 0;
}
/* we have the number, check it, load obj. */
if (nr == NOTHING) { /* then it is unique */
temp = create_obj();
temp->item_number=NOTHING;
} else if (nr < 0) {
continue;
} else {
if(nr >= 999999)
continue;
if(real_object(nr) != NOTHING) {
temp=read_object(nr,VIRTUAL);
if (!temp) {
continue;
}
} else {
log("Nonexistent object %d found in rent file.", nr);
continue;
}
}
}
tag_argument(line, tag);
num = atoi(line);
switch(*tag) {
case 'A':
if (!strcmp(tag, "ADes")) {
char error[40];
snprintf(error, sizeof(error)-1, "rent(Ades):%s", temp->name);
temp->action_description = fread_string(fl, error);
} else if (!strcmp(tag, "Aff ")) {
sscanf(line, "%d %d %d", &t[0], &t[1], &t[2]);
if (t[0] < MAX_OBJ_AFFECT) {
temp->affected[t[0]].location = t[1];
temp->affected[t[0]].modifier = t[2];
}
}
break;
case 'C':
if (!strcmp(tag, "Cost"))
GET_OBJ_COST(temp) = num;
break;
case 'D':
if (!strcmp(tag, "Desc"))
temp->description = strdup(line);
break;
case 'E':
if(!strcmp(tag, "EDes")) {
struct extra_descr_data *new_desc;
char error[40];
snprintf(error, sizeof(error)-1, "rent(Edes): %s", temp->name);
if (temp->item_number != NOTHING && /* Regular object */
temp->ex_description && /* with ex_desc == prototype */
(temp->ex_description == obj_proto[real_object(temp->item_number)].ex_description))
temp->ex_description = NULL;
CREATE(new_desc, struct extra_descr_data, 1);
new_desc->keyword = fread_string(fl, error);
new_desc->description = fread_string(fl, error);
new_desc->next = temp->ex_description;
temp->ex_description = new_desc;
}
break;
case 'F':
if (!strcmp(tag, "Flag"))
GET_OBJ_EXTRA(temp) = asciiflag_conv(line);
break;
case 'L':
if(!strcmp(tag, "Loc "))
locate = num;
break;
case 'N':
if (!strcmp(tag, "Name"))
temp->name = strdup(line);
break;
case 'P':
if (!strcmp(tag, "Perm"))
temp->obj_flags.bitvector = asciiflag_conv(line);
break;
case 'R':
if (!strcmp(tag, "Rent"))
GET_OBJ_RENT(temp) = num;
break;
case 'S':
if (!strcmp(tag, "Shrt"))
temp->short_description = strdup(line);
break;
case 'T':
if (!strcmp(tag, "Type"))
GET_OBJ_TYPE(temp) = num;
break;
case 'W':
if (!strcmp(tag, "Wear"))
GET_OBJ_WEAR(temp) = asciiflag_conv(line);
else if (!strcmp(tag, "Wght"))
GET_OBJ_WEIGHT(temp) = num;
break;
case 'V':
if (!strcmp(tag, "Vals")) {
sscanf(line, "%d %d %d %d", &t[0], &t[1], &t[2], &t[3]);
for (i = 0; i < 4; i++)
GET_OBJ_VAL(temp, i) = t[i];
}
break;
}
}
/* Little hoarding check. -gg 3/1/98 */
mudlog(NRM, MAX(LVL_GOD, GET_INVIS_LEV(ch)), TRUE, "%s (level %d) has %d objects (max %d).",
GET_NAME(ch), GET_LEVEL(ch), num_objs, max_obj_save);
fclose(fl);
if ((orig_rent_code == RENT_RENTED) || (orig_rent_code == RENT_CRYO))
return 0;
else
return 1;
}
