/* do_simple_move assumes
* 1. That there is no master and no followers.
* 2. That the direction exists.
*
* Returns :
* 1 : If succes.
* 0 : If fail
*/
int do_simple_move(struct char_data *ch, int dir, int need_specials_check)
{
room_rnum was_in;
struct char_data *i;
/*
* Check for special routines (North is 1 in command list, but 0 here) Note
* -- only check if following; this avoids 'double spec-proc' bug
*/
if (need_specials_check && special(ch, dir + 1, "")) {
return (0);
}
/* charmed? */
if (AFF_FLAGGED(ch, AFF_CHARM) && ch->master && ch->in_room == ch->master->in_room) {
send_to_char("The thought of leaving your master makes you weep.\r\n", ch);
act("$n bursts into tears.", FALSE, ch, 0, 0, TO_ROOM);
return (0);
}
/* if this room or the one we're going to needs a boat, check for one */
if ((SECT(ch->in_room) == SECT_WATER_NOSWIM) ||
(SECT(EXIT(ch, dir)->to_room) == SECT_WATER_NOSWIM)) {
if (!has_boat(ch)) {
send_to_char("You need a boat to go there.\r\n", ch);
return (0);
}
}
if((IS_CARRYING_W(ch) > (CAN_CARRY_W(ch) * 2) && GET_LEVEL(ch) < LVL_GOD && !IS_NPC(ch))) {
send_to_char("You are to heavy to move! Drop something!\r\n", ch);
return (0);
}
if(IS_NPC_FISH(ch)) {
if(SECT(EXIT(ch, dir)->to_room) != SECT_BRIDGE && SECT(EXIT(ch, dir)->to_room) != SECT_WATER_SWIM && SECT(EXIT(ch, dir)->to_room) != SECT_WATER_NOSWIM) {
// sprintf(buf, "%s %d", dirs[dir], SECT(EXIT(ch, dir)->to_room));
// mobsay(ch, buf);
return FALSE;
}
if(GET_MOB_VNUM(ch) < 1500 && ROOM_FLAGGED(EXIT(ch, dir)->to_room, ROOM_SALT_FISH)) {
return FALSE;
}
}
if (SECT(EXIT(ch, dir)->to_room) != SECT_FOREST) {
if (IS_NPC_WOLF(ch) || IS_NPC_CRAB(ch) || IS_NPC_SKELETON(ch)) {
return (0);
}
}
/* move points needed is avg. move loss for src and destination sect type */
if (ROOM_FLAGGED(EXIT(ch, dir)->to_room, ROOM_TUNNEL) &&
num_pc_in_room(&(world[EXIT(ch, dir)->to_room])) > 1) {
send_to_char("There isn't enough room there for more than one person!\r\n", ch);
return (0);
}
/* Mortals and low level gods cannot enter greater god rooms. */
if (ROOM_FLAGGED(EXIT(ch, dir)->to_room, ROOM_GODROOM) &&
GET_LEVEL(ch) < LVL_GRGOD) {
send_to_char("You aren't godly enough to use that room!\r\n", ch);
return (0);
}
/* Now we know we're allow to go into the room. */
if(AFF_FLAGGED(ch, AFF_FISHING) || GET_FISHON(ch)) {
REMOVE_BIT(AFF_FLAGS(ch), AFF_FISHING);
GET_FISHON(ch) = 0;
GET_REELIN(ch) = 0;
send_to_char("You stop fishing.\r\n", ch);
act("$n stops fishing.", FALSE, ch, 0, 0, TO_ROOM);
}
if (!AFF_FLAGGED(ch, AFF_SNEAK) && !AFF_FLAGGED(ch, AFF_INVISIBLE)) {
if(IS_NPC(ch)) {
switch(GET_RACE(ch)) {
case RACE_NPC_MAMMAL:
case RACE_NPC_HIGHHUMAN:
case RACE_NPC_GOBLIN:
case RACE_NPC_PIG:
case RACE_NPC_WOLF:
case RACE_NPC_CHICKEN:
sprintf(buf2, "$n walks %s.", dirs[dir]);
break;
case RACE_NPC_AVIAN:
sprintf(buf2, "$n flits %s.", dirs[dir]);
break;
case RACE_NPC_SHEEP:
case RACE_NPC_GOAT:
sprintf(buf2, "$n walks %s.", dirs[dir]);
break;
case RACE_NPC_SKELETON:
sprintf(buf2, "$n shambles %s.", dirs[dir]);
break;
case RACE_NPC_COW:
sprintf(buf2, "$n walks %s.", dirs[dir]);
break;
case RACE_NPC_CRAB:
sprintf(buf2, "$n scurries %s.", dirs[dir]);
break;
case RACE_NPC_FISH:
sprintf(buf2, "$n swims %s.", dirs[dir]);
break;
case RACE_NPC_INSECT:
sprintf(buf2, "$n buzzes %s.", dirs[dir]);
break;
default:
sprintf(buf2, "$n leaves %s.", dirs[dir]);
break;
}
}
else {
sprintf(buf2, "$n leaves %s.", dirs[dir]);
}
if(SECT(ch->in_room) == SECT_WATER_SWIM && !IS_NPC_FISH(ch)) {
sprintf(buf2, "$n splashes through the water, heading %s.", dirs[dir]);
}
act(buf2, FALSE, ch, 0, 0, TO_ROOM);
}
was_in = ch->in_room;
char_from_room(ch);
char_to_room(ch, world[was_in].dir_option[dir]->to_room);
if (!AFF_FLAGGED(ch, AFF_SNEAK)) {
if(!AFF_FLAGGED(ch, AFF_INVISIBLE)) {
act("$n has arrived.", FALSE, ch, 0, 0, TO_ROOM);
}
}
if (ch->desc != NULL)
look_at_room(ch, 0);
if(IS_NPC_CRAB(ch) || IS_NPC_LIVESTOCK(ch)) {
for (i = world[ch->in_room].people; i; i = i->next_in_room) {
if(IS_NPC_WOLF(i) && IS_NPC_CRAB(ch)) {
sprintf(buf, "%s sees %s and tries to run!\r\n", GET_NAME(ch), GET_NAME(i));
send_to_room(buf, ch->in_room);
if(!number(0, 2)) {
do_flee(ch, NULL, 0, 0);
}
if(i->in_room == ch->in_room && !number(0, 2)) {
hit(i, ch, TYPE_UNDEFINED);
}
}
if((IS_NPC_SKELETON(i) || IS_NPC_WOLF(i)) && IS_NPC_LIVESTOCK(ch)) {
if(ch->master) {
sprintf(buf, "%s sees %s and %s in absolute terror!\r\n", GET_NAME(ch), GET_NAME(i), livestock_afraid_vocals[(int)GET_RACE(ch)]);
send_to_room(buf, ch->in_room);
if(!number(0, 2)) {
do_flee(ch, NULL, 0, 0);
}
if(i->in_room == ch->in_room && !number(0, 2)) {
hit(i, ch, TYPE_UNDEFINED);
}
}
}
}
return (1);
}
if (ROOM_FLAGGED(ch->in_room, ROOM_DEATH) && GET_LEVEL(ch) < LVL_IMMORT) {
log_death_trap(ch);
death_cry(ch);
extract_char(ch);
return (0);
}
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
}
/* do_simple_move assumes
* 1. That there is no master and no followers.
* 2. That the direction exists.
*
* Returns :
* 1 : If succes.
* 0 : If fail
*/
int do_simple_move(struct char_data *ch, int dir, int need_specials_check)
{
char throwaway[MAX_INPUT_LENGTH] = ""; /* Functions assume writable. */
room_rnum was_in;
int need_movement, moveadd = 0;
struct obj_data *k;
/*
* Check for special routines (North is 1 in command list, but 0 here) Note
* -- only check if following; this avoids 'double spec-proc' bug
*/
if (need_specials_check && special(ch, dir + 1, throwaway))
return (0);
/* blocked by a leave trigger ? */
if (!leave_mtrigger(ch, dir))
return 0;
if (!leave_wtrigger(&world[IN_ROOM(ch)], ch, dir))
return 0;
/* charmed? */
if (AFF_FLAGGED(ch, AFF_CHARM) && ch->master && IN_ROOM(ch) == IN_ROOM(ch->master)) {
send_to_char(ch, "The thought of leaving your master makes you weep.\r\n");
act("$n bursts into tears.", FALSE, ch, 0, 0, TO_ROOM);
return (0);
}
/* if this room or the one we're going to needs a boat, check for one */
if ((SECT(IN_ROOM(ch)) == SECT_WATER_NOSWIM) ||
(SECT(EXIT(ch, dir)->to_room) == SECT_WATER_NOSWIM)) {
if (!has_boat(ch)) {
send_to_char(ch, "You need a boat to go there.\r\n");
return (0);
}
}
/* move points needed is avg. move loss for src and destination sect type
* You know .. I don't like this system, let's base this not ONLY on terrain type
* but also on dex of char.
* Needs to adjust on max abils
* Original:
* need_movement = (movement_loss[SECT(IN_ROOM(ch))] +
movement_loss[SECT(EXIT(ch, dir)->to_room)]) / 2;
*/
if (GET_DEX(ch) <= 5) /* 0(1?)-5 Dex */
moveadd = 8;
if ((GET_DEX(ch) >= 6) && (GET_DEX(ch) <= 10)) /* 6-10 Dex */
moveadd = 6;
if ((GET_DEX(ch) >= 11) && (GET_DEX(ch) <= 15)) /* 11-15 Dex */
moveadd = 4;
if (GET_DEX(ch) >= 16) /* 16+ Up to ..? Dex */
moveadd = 2;
need_movement = (movement_loss[SECT(IN_ROOM(ch))] + movement_loss[SECT(EXIT(ch, dir)->to_room)] + moveadd) / 2;
if (GET_MOVE(ch) < need_movement && !IS_NPC(ch)) {
if (need_specials_check && ch->master)
send_to_char(ch, "You are too exhausted to follow.\r\n");
else
send_to_char(ch, "You are too exhausted.\r\n");
return (0);
}
if (ROOM_FLAGGED(IN_ROOM(ch), ROOM_ATRIUM)) {
if (!House_can_enter(ch, GET_ROOM_VNUM(EXIT(ch, dir)->to_room))) {
send_to_char(ch, "That's private property -- no trespassing!\r\n");
return (0);
}
}
if (ROOM_FLAGGED(EXIT(ch, dir)->to_room, ROOM_TUNNEL) &&
num_pc_in_room(&(world[EXIT(ch, dir)->to_room])) >= tunnel_size) {
if (tunnel_size > 1)
send_to_char(ch, "There isn't enough room for you to go there!\r\n");
else
send_to_char(ch, "There isn't enough room there for more than one person!\r\n");
return (0);
}
/* Room big enough for you? */
if ((SIZE(EXIT(ch, dir)->to_room) < GET_SIZE(ch)) && (SIZE(EXIT(ch, dir)->to_room) != SIZE_SPECIAL) && (GET_LEVEL(ch) < LVL_GOD)) { //GOD+ can enter any room
send_to_char(ch, "You are too big to fit in there!\r\n");
return (0);
}
/* Mortals and low level gods cannot enter greater god rooms. */
/* irrelevant because of min/max level -mak 8.21.05 -reinstated 2.9.06
if (ROOM_FLAGGED(EXIT(ch, dir)->to_room, ROOM_GODROOM) &&
GET_LEVEL(ch) < LVL_GOD) {
send_to_char(ch, "You aren't godly enough to use that room!\r\n");
return (0);
}
uncomment to fix GODROOM */
/* No access for non-IMPs */
if (ROOM_FLAGGED(EXIT(ch, dir)->to_room, ROOM_IMPROOM) &&
GET_LEVEL(ch) < LVL_IMPL) {
send_to_char(ch, "You dare not disturb the Implementors!\r\n");
return (0);
}
if (GET_LEVEL(ch) < ROOM_MIN_LEVEL(EXIT(ch, dir)->to_room)) {
if (world[EXIT(ch, dir)->to_room].max_level_message ) {
send_to_char(ch, world[EXIT(ch, dir)->to_room].min_level_message);
send_to_char(ch, "\r\n");
}
else
send_to_char(ch, "You are not experienced enough to enter that room.\r\n");
return 0;
}
if (ROOM_MAX_LEVEL(EXIT(ch, dir)->to_room) > 0) {
if (GET_LEVEL(ch) > ROOM_MAX_LEVEL(EXIT(ch, dir)->to_room) && GET_LEVEL(ch) < LVL_SAINT ) {
if (world[EXIT(ch, dir)->to_room].max_level_message ){
send_to_char(ch, world[EXIT(ch, dir)->to_room].max_level_message);
send_to_char(ch, "\r\n");
}
else
send_to_char(ch, "You are too experienced to enter that room.\r\n");
return 0;
}
}
if (AFF_FLAGGED(ch, AFF_FLEET_FEET)) {
need_movement = need_movement / 2;
if (need_movement < 2) need_movement = 1;}
if (AFF_FLAGGED(ch, AFF_AIRWALK)) need_movement = 1;
/* Now we know we're allowed to go into the room. */
if (GET_LEVEL(ch) < LVL_SAINT && !IS_NPC(ch))
GET_MOVE(ch) -= need_movement;
if (!AFF_FLAGGED(ch, AFF_SNEAK)) {
char buf2[MAX_STRING_LENGTH];
snprintf(buf2, sizeof(buf2), "$n leaves %s.", dirs[dir]);
act(buf2, TRUE, ch, 0, 0, TO_ROOM);
}
was_in = IN_ROOM(ch);
char_from_room(ch);
char_to_room(ch, world[was_in].dir_option[dir]->to_room);
/* move them first, then move them back if they aren't allowed to go. */
/* see if an entry trigger disallows the move */
if (!entry_mtrigger(ch) || !enter_wtrigger(&world[IN_ROOM(ch)], ch, dir)) {
char_from_room(ch);
char_to_room(ch, was_in);
return 0;
}
if (!AFF_FLAGGED(ch, AFF_SNEAK))
act("$n has arrived.", TRUE, ch, 0, 0, TO_ROOM);
if (ch->desc != NULL)
look_at_room(IN_ROOM(ch), ch, 0);
if (ROOM_FLAGGED(IN_ROOM(ch), ROOM_DEATH) && GET_LEVEL(ch) < LVL_SAINT) {
clanlog(ch, "%s entered a Death Room", GET_NAME(ch));
was_in = IN_ROOM(ch);
log_death_trap(ch);
death_cry(ch);
/* Fix the PCs size first if it needs fixing */
fix_size(ch);
extract_char(ch);
for (k = world[was_in].contents; k; k = world[was_in].contents)
extract_obj(k);
return (0);
}
entry_memory_mtrigger(ch);
if (!greet_mtrigger(ch, dir)) {
char_from_room(ch);
char_to_room(ch, was_in);
look_at_room(IN_ROOM(ch), ch, 0);
} else greet_memory_mtrigger(ch);
/* send warning message if moves are getting low */
if ( GET_MOVE(ch) < (GET_MAX_MOVE(ch) / 10) )
{
send_to_char(ch, "You cannot go much further.\r\n");
}
return (1);
}
/** Move a PC/NPC character from their current location to a new location. This
* is the standard movement locomotion function that all normal walking
* movement by characters should be sent through. This function also defines
* the move cost of normal locomotion as:
* ( (move cost for source room) + (move cost for destination) ) / 2
*
* @pre Function assumes that ch has no master controlling character, that
* ch has no followers (in other words followers won't be moved by this
* function) and that the direction traveled in is one of the valid, enumerated
* direction.
* @param ch The character structure to attempt to move.
* @param dir The defined direction (NORTH, SOUTH, etc...) to attempt to
* move into.
* @param need_specials_check If TRUE will cause
* @retval int 1 for a successful move (ch is now in a new location)
* or 0 for a failed move (ch is still in the original location). */
int do_simple_move(struct char_data *ch, int dir, int need_specials_check)
{
/* Begin Local variable definitions */
/*---------------------------------------------------------------------*/
/* Used in our special proc check. By default, we pass a NULL argument
* when checking for specials */
char spec_proc_args[MAX_INPUT_LENGTH] = "";
/* The room the character is currently in and will move from... */
room_rnum was_in = IN_ROOM(ch);
/* ... and the room the character will move into. */
room_rnum going_to = EXIT(ch, dir)->to_room;
/* How many movement points are required to travel from was_in to going_to.
* We redefine this later when we need it. */
int need_movement = 0;
/* Contains the "leave" message to display to the was_in room. */
char leave_message[SMALL_BUFSIZE];
/*---------------------------------------------------------------------*/
/* End Local variable definitions */
/* Begin checks that can prevent a character from leaving the was_in room. */
/* Future checks should be implemented within this section and return 0. */
/*---------------------------------------------------------------------*/
/* Check for special routines that might activate because of the move and
* also might prevent the movement. Special requires commands, so we pass
* in the "command" equivalent of the direction (ie. North is '1' in the
* command list, but NORTH is defined as '0').
* Note -- only check if following; this avoids 'double spec-proc' bug */
if (need_specials_check && special(ch, dir + 1, spec_proc_args))
return 0;
/* Leave Trigger Checks: Does a leave trigger block exit from the room? */
if (!leave_mtrigger(ch, dir) || IN_ROOM(ch) != was_in) /* prevent teleport crashes */
return 0;
if (!leave_wtrigger(&world[IN_ROOM(ch)], ch, dir) || IN_ROOM(ch) != was_in) /* prevent teleport crashes */
return 0;
if (!leave_otrigger(&world[IN_ROOM(ch)], ch, dir) || IN_ROOM(ch) != was_in) /* prevent teleport crashes */
return 0;
/* Charm effect: Does it override the movement? */
if (AFF_FLAGGED(ch, AFF_CHARM) && ch->master && was_in == IN_ROOM(ch->master))
{
send_to_char(ch, "The thought of leaving your master makes you weep.\r\n");
act("$n bursts into tears.", FALSE, ch, 0, 0, TO_ROOM);
return (0);
}
/* Water, No Swimming Rooms: Does the deep water prevent movement? */
if ((SECT(was_in) == SECT_WATER_NOSWIM) ||
(SECT(going_to) == SECT_WATER_NOSWIM))
{
if (!has_boat(ch))
{
send_to_char(ch, "You need a boat to go there.\r\n");
return (0);
}
}
/* Flying Required: Does lack of flying prevent movement? */
if ((SECT(was_in) == SECT_FLYING) || (SECT(going_to) == SECT_FLYING))
{
if (!has_flight(ch))
{
send_to_char(ch, "You need to be flying to go there!\r\n");
return (0);
}
}
/* Underwater Room: Does lack of underwater breathing prevent movement? */
if ((SECT(was_in) == SECT_UNDERWATER) || (SECT(going_to) == SECT_UNDERWATER))
{
if (!has_scuba(ch) && !IS_NPC(ch) && !PRF_FLAGGED(ch, PRF_NOHASSLE)) {
send_to_char(ch, "You need to be able to breathe water to go there!\r\n");
return (0);
}
}
/* Houses: Can the player walk into the house? */
if (ROOM_FLAGGED(was_in, ROOM_ATRIUM))
{
if (!House_can_enter(ch, GET_ROOM_VNUM(going_to)))
{
send_to_char(ch, "That's private property -- no trespassing!\r\n");
return (0);
}
}
/* Check zone level recommendations */
if ((ZONE_MINLVL(GET_ROOM_ZONE(going_to)) != -1) && ZONE_MINLVL(GET_ROOM_ZONE(going_to)) > GET_LEVEL(ch)) {
send_to_char(ch, "This zone is above your recommended level.\r\n");
}
/* Check zone flag restrictions */
if (ZONE_FLAGGED(GET_ROOM_ZONE(going_to), ZONE_CLOSED)) {
send_to_char(ch, "A mysterious barrier forces you back! That area is off-limits.\r\n");
return (0);
}
if (ZONE_FLAGGED(GET_ROOM_ZONE(going_to), ZONE_NOIMMORT) && (GET_ADMLEVEL(ch) >= ADMLVL_IMMORT) && (GET_ADMLEVEL(ch) < ADMLVL_GRGOD)) {
send_to_char(ch, "A mysterious barrier forces you back! That area is off-limits.\r\n");
return (0);
}
/* Room Size Capacity: Is the room full of people already? */
if (ROOM_FLAGGED(going_to, ROOM_TUNNEL) &&
num_pc_in_room(&(world[going_to])) >= CONFIG_TUNNEL_SIZE)
{
if (CONFIG_TUNNEL_SIZE > 1)
send_to_char(ch, "There isn't enough room for you to go there!\r\n");
else
send_to_char(ch, "There isn't enough room there for more than one person!\r\n");
return (0);
}
/* Room Level Requirements: Is ch privileged enough to enter the room? */
if (ROOM_FLAGGED(going_to, ROOM_GODROOM) && GET_ADMLEVEL(ch) < ADMLVL_GOD)
{
send_to_char(ch, "You aren't godly enough to use that room!\r\n");
return (0);
}
/* All checks passed, nothing will prevent movement now other than lack of
* move points. */
/* move points needed is avg. move loss for src and destination sect type */
need_movement = (movement_loss[SECT(was_in)] +
movement_loss[SECT(going_to)]) / 2;
/* Move Point Requirement Check */
if (GET_MOVE(ch) < need_movement && !IS_NPC(ch))
{
if (need_specials_check && ch->master)
send_to_char(ch, "You are too exhausted to follow.\r\n");
else
send_to_char(ch, "You are too exhausted.\r\n");
return (0);
}
/*---------------------------------------------------------------------*/
/* End checks that can prevent a character from leaving the was_in room. */
/* Begin: the leave operation. */
/*---------------------------------------------------------------------*/
/* If applicable, subtract movement cost. */
if (GET_ADMLEVEL(ch) < ADMLVL_IMMORT && !IS_NPC(ch))
GET_MOVE(ch) -= need_movement;
/* Generate the leave message and display to others in the was_in room. */
if (!AFF_FLAGGED(ch, AFF_SNEAK))
{
snprintf(leave_message, sizeof(leave_message), "$n leaves %s.", dirs[dir]);
act(leave_message, TRUE, ch, 0, 0, TO_ROOM);
}
char_from_room(ch);
char_to_room(ch, going_to);
/*---------------------------------------------------------------------*/
/* End: the leave operation. The character is now in the new room. */
/* Begin: Post-move operations. */
/*---------------------------------------------------------------------*/
/* Post Move Trigger Checks: Check the new room for triggers.
* Assumptions: The character has already truly left the was_in room. If
* the entry trigger "prevents" movement into the room, it is the triggers
* job to provide a message to the original was_in room. */
if (!entry_mtrigger(ch) || !enter_wtrigger(&world[going_to], ch, dir)) {
char_from_room(ch);
char_to_room(ch, was_in);
return 0;
}
/* Display arrival information to anyone in the destination room... */
if (!AFF_FLAGGED(ch, AFF_SNEAK))
act("$n has arrived.", TRUE, ch, 0, 0, TO_ROOM);
/* ... and the room description to the character. */
if (ch->desc != NULL)
look_at_room(ch, 0);
/* ... and Kill the player if the room is a death trap. */
if (ROOM_FLAGGED(going_to, ROOM_DEATH) && GET_ADMLEVEL(ch) < ADMLVL_IMMORT)
{
mudlog(BRF, ADMLVL_IMMORT, TRUE, "%s hit death trap #%d (%s)", GET_NAME(ch), GET_ROOM_VNUM(going_to), world[going_to].name);
death_cry(ch);
extract_char(ch);
return (0);
}
/* At this point, the character is safe and in the room. */
/* Fire memory and greet triggers, check and see if the greet trigger
* prevents movement, and if so, move the player back to the previous room. */
entry_memory_mtrigger(ch);
if (!greet_mtrigger(ch, dir))
{
char_from_room(ch);
char_to_room(ch, was_in);
look_at_room(ch, 0);
/* Failed move, return a failure */
return (0);
}
else
greet_memory_mtrigger(ch);
/*---------------------------------------------------------------------*/
/* End: Post-move operations. */
/* Only here is the move successful *and* complete. Return success for
* calling functions to handle post move operations. */
return (1);
}
/* do_simple_move assumes that there is no master, no followers and that the
* direction exists. It returns 1 for success, 0 if failure. */
int do_simple_move(struct char_data *ch, int dir, int need_specials_check)
{
char throwaway[MAX_INPUT_LENGTH] = ""; /* Functions assume writable. */
room_rnum was_in = IN_ROOM(ch);
int need_movement;
/* Check for special routines (North is 1 in command list, but 0 here) Note
* -- only check if following; this avoids 'double spec-proc' bug */
if (need_specials_check && special(ch, dir + 1, throwaway))
return (0);
/* blocked by a leave trigger ? */
if (!leave_mtrigger(ch, dir) || IN_ROOM(ch) != was_in) /* prevent teleport crashes */
return 0;
if (!leave_wtrigger(&world[IN_ROOM(ch)], ch, dir) || IN_ROOM(ch) != was_in) /* prevent teleport crashes */
return 0;
if (!leave_otrigger(&world[IN_ROOM(ch)], ch, dir) || IN_ROOM(ch) != was_in) /* prevent teleport crashes */
return 0;
/* charmed? */
if (AFF_FLAGGED(ch, AFF_CHARM) && ch->master && IN_ROOM(ch) == IN_ROOM(ch->master)) {
send_to_char(ch, "The thought of leaving your master makes you weep.\r\n");
act("$n bursts into tears.", FALSE, ch, 0, 0, TO_ROOM);
return (0);
}
/* if this room or the one we're going to needs a boat, check for one */
if ((SECT(IN_ROOM(ch)) == SECT_WATER_NOSWIM) ||
(SECT(EXIT(ch, dir)->to_room) == SECT_WATER_NOSWIM)) {
if (!has_boat(ch)) {
send_to_char(ch, "You need a boat to go there.\r\n");
return (0);
}
}
/* If this room or the one we're going to needs flight, check for it. */
if ((SECT(IN_ROOM(ch)) == SECT_FLYING) || (SECT(EXIT(ch, dir)->to_room) == SECT_FLYING)) {
if (!has_flight(ch)) {
send_to_char(ch, "You need to be flying to go there!\r\n");
return (0);
}
}
/* If this room or the one we're going to needs scuba, check for it. */
if ((SECT(IN_ROOM(ch)) == SECT_UNDERWATER) || (SECT(EXIT(ch, dir)->to_room) == SECT_UNDERWATER)) {
if (!has_scuba(ch)) {
send_to_char(ch, "You need to be able to breathe water to go there!\r\n");
return (0);
}
}
/* move points needed is avg. move loss for src and destination sect type */
need_movement = (movement_loss[SECT(IN_ROOM(ch))] +
movement_loss[SECT(EXIT(ch, dir)->to_room)]) / 2;
if (GET_MOVE(ch) < need_movement && !IS_NPC(ch)) {
if (need_specials_check && ch->master)
send_to_char(ch, "You are too exhausted to follow.\r\n");
else
send_to_char(ch, "You are too exhausted.\r\n");
return (0);
}
if (ROOM_FLAGGED(IN_ROOM(ch), ROOM_ATRIUM)) {
if (!House_can_enter(ch, GET_ROOM_VNUM(EXIT(ch, dir)->to_room))) {
send_to_char(ch, "That's private property -- no trespassing!\r\n");
return (0);
}
}
if (ROOM_FLAGGED(EXIT(ch, dir)->to_room, ROOM_TUNNEL) &&
num_pc_in_room(&(world[EXIT(ch, dir)->to_room])) >= CONFIG_TUNNEL_SIZE) {
if (CONFIG_TUNNEL_SIZE > 1)
send_to_char(ch, "There isn't enough room for you to go there!\r\n");
else
send_to_char(ch, "There isn't enough room there for more than one person!\r\n");
return (0);
}
/* Mortals and low level gods cannot enter greater god rooms. */
if (ROOM_FLAGGED(EXIT(ch, dir)->to_room, ROOM_GODROOM) &&
GET_LEVEL(ch) < LVL_GOD) {
send_to_char(ch, "You aren't godly enough to use that room!\r\n");
return (0);
}
/* Now we know we're allowed to go into the room. */
if (GET_LEVEL(ch) < LVL_IMMORT && !IS_NPC(ch))
GET_MOVE(ch) -= need_movement;
if (!AFF_FLAGGED(ch, AFF_SNEAK)) {
char buf2[MAX_STRING_LENGTH];
snprintf(buf2, sizeof(buf2), "$n leaves %s.", dirs[dir]);
act(buf2, TRUE, ch, 0, 0, TO_ROOM);
}
was_in = IN_ROOM(ch);
char_from_room(ch);
char_to_room(ch, world[was_in].dir_option[dir]->to_room);
/* move them first, then move them back if they aren't allowed to go. Also,
* see if an entry trigger disallows the move */
if (!entry_mtrigger(ch) || !enter_wtrigger(&world[IN_ROOM(ch)], ch, dir)) {
char_from_room(ch);
char_to_room(ch, was_in);
return 0;
}
if (!AFF_FLAGGED(ch, AFF_SNEAK))
act("$n has arrived.", TRUE, ch, 0, 0, TO_ROOM);
if (ch->desc != NULL)
look_at_room(ch, 0);
if (ROOM_FLAGGED(IN_ROOM(ch), ROOM_DEATH) && GET_LEVEL(ch) < LVL_IMMORT) {
mudlog(BRF, LVL_IMMORT, TRUE, "%s hit death trap #%d (%s)", GET_NAME(ch), GET_ROOM_VNUM(IN_ROOM(ch)), world[IN_ROOM(ch)].name);
death_cry(ch);
extract_char(ch);
return (0);
}
entry_memory_mtrigger(ch);
if (!greet_mtrigger(ch, dir)) {
char_from_room(ch);
char_to_room(ch, was_in);
look_at_room(ch, 0);
} else greet_memory_mtrigger(ch);
return (1);
}
void beat_punish(CHAR_DATA * i)
{
int restore;
// Проверяем на выпуск чара из кутузки
if (PLR_FLAGGED(i, PLR_HELLED) && HELL_DURATION(i) && HELL_DURATION(i) <= time(NULL))
{
restore = PLR_TOG_CHK(i, PLR_HELLED);
if (HELL_REASON(i))
free(HELL_REASON(i));
HELL_REASON(i) = 0;
GET_HELL_LEV(i) = 0;
HELL_GODID(i) = 0;
HELL_DURATION(i) = 0;
send_to_char("Вас выпустили из темницы.\r\n", i);
if ((restore = GET_LOADROOM(i)) == NOWHERE)
restore = calc_loadroom(i);
restore = real_room(restore);
if (restore == NOWHERE)
{
if (GET_LEVEL(i) >= LVL_IMMORT)
restore = r_immort_start_room;
else
restore = r_mortal_start_room;
}
char_from_room(i);
char_to_room(i, restore);
look_at_room(i, restore);
act("Насвистывая \"От звонка до звонка...\", $n появил$u в центре комнаты.",
FALSE, i, 0, 0, TO_ROOM);
}
if (PLR_FLAGGED(i, PLR_NAMED) && NAME_DURATION(i) && NAME_DURATION(i) <= time(NULL))
{
restore = PLR_TOG_CHK(i, PLR_NAMED);
if (NAME_REASON(i))
free(NAME_REASON(i));
NAME_REASON(i) = 0;
GET_NAME_LEV(i) = 0;
NAME_GODID(i) = 0;
NAME_DURATION(i) = 0;
send_to_char("Вас выпустили из КОМНАТЫ ИМЕНИ.\r\n", i);
if ((restore = GET_LOADROOM(i)) == NOWHERE)
restore = calc_loadroom(i);
restore = real_room(restore);
if (restore == NOWHERE)
{
if (GET_LEVEL(i) >= LVL_IMMORT)
restore = r_immort_start_room;
else
restore = r_mortal_start_room;
}
char_from_room(i);
char_to_room(i, restore);
look_at_room(i, restore);
act("С ревом \"Имья, сестра, имья...\", $n появил$u в центре комнаты.",
FALSE, i, 0, 0, TO_ROOM);
}
if (PLR_FLAGGED(i, PLR_MUTE) && MUTE_DURATION(i) != 0 && MUTE_DURATION(i) <= time(NULL))
{
restore = PLR_TOG_CHK(i, PLR_MUTE);
if (MUTE_REASON(i))
free(MUTE_REASON(i));
MUTE_REASON(i) = 0;
GET_MUTE_LEV(i) = 0;
MUTE_GODID(i) = 0;
MUTE_DURATION(i) = 0;
send_to_char("Вы можете орать.\r\n", i);
}
if (PLR_FLAGGED(i, PLR_DUMB) && DUMB_DURATION(i) != 0 && DUMB_DURATION(i) <= time(NULL))
{
restore = PLR_TOG_CHK(i, PLR_DUMB);
if (DUMB_REASON(i))
free(DUMB_REASON(i));
DUMB_REASON(i) = 0;
GET_DUMB_LEV(i) = 0;
DUMB_GODID(i) = 0;
DUMB_DURATION(i) = 0;
send_to_char("Вы можете говорить.\r\n", i);
}
if (!PLR_FLAGGED(i, PLR_REGISTERED) && UNREG_DURATION(i) != 0 && UNREG_DURATION(i) <= time(NULL))
{
restore = PLR_TOG_CHK(i, PLR_REGISTERED);
if (UNREG_REASON(i))
free(UNREG_REASON(i));
UNREG_REASON(i) = 0;
GET_UNREG_LEV(i) = 0;
UNREG_GODID(i) = 0;
UNREG_DURATION(i) = 0;
send_to_char("Ваша регистрация восстановлена.\r\n", i);
if (IN_ROOM(i) == r_unreg_start_room)
{
if ((restore = GET_LOADROOM(i)) == NOWHERE)
restore = calc_loadroom(i);
restore = real_room(restore);
if (restore == NOWHERE)
{
if (GET_LEVEL(i) >= LVL_IMMORT)
restore = r_immort_start_room;
else
restore = r_mortal_start_room;
}
char_from_room(i);
char_to_room(i, restore);
look_at_room(i, restore);
act("$n появил$u в центре комнаты, с гордостью показывая всем штампик регистрации!",
FALSE, i, 0, 0, TO_ROOM);
};
}
if (GET_GOD_FLAG(i, GF_GODSLIKE) && GCURSE_DURATION(i) != 0 && GCURSE_DURATION(i) <= time(NULL))
{
CLR_GOD_FLAG(i, GF_GODSLIKE);
send_to_char("Вы более не под защитой Богов.\r\n", i);
}
if (GET_GOD_FLAG(i, GF_GODSCURSE) && GCURSE_DURATION(i) != 0 && GCURSE_DURATION(i) <= time(NULL))
{
CLR_GOD_FLAG(i, GF_GODSCURSE);
send_to_char("Боги более не в обиде на вас.\r\n", i);
}
if (PLR_FLAGGED(i, PLR_FROZEN) && FREEZE_DURATION(i) != 0 && FREEZE_DURATION(i) <= time(NULL))
{
restore = PLR_TOG_CHK(i, PLR_FROZEN);
if (FREEZE_REASON(i))
free(FREEZE_REASON(i));
FREEZE_REASON(i) = 0;
GET_FREEZE_LEV(i) = 0;
FREEZE_GODID(i) = 0;
FREEZE_DURATION(i) = 0;
send_to_char("Вы оттаяли.\r\n", i);
Glory::remove_freeze(GET_UNIQUE(i));
}
// Проверяем а там ли мы где должны быть по флагам.
if (IN_ROOM(i) == STRANGE_ROOM)
restore = i->get_was_in_room();
else
restore = IN_ROOM(i);
if (PLR_FLAGGED(i, PLR_HELLED))
{
if (restore != r_helled_start_room)
{
if (IN_ROOM(i) == STRANGE_ROOM)
i->set_was_in_room(r_helled_start_room);
else
{
send_to_char("Чья-то злая воля вернула вас в темницу.\r\n", i);
act("$n возвращен$a в темницу.",
FALSE, i, 0, 0, TO_ROOM);
char_from_room(i);
char_to_room(i, r_helled_start_room);
look_at_room(i, r_helled_start_room);
i->set_was_in_room(NOWHERE);
};
}
}
else if (PLR_FLAGGED(i, PLR_NAMED))
{
if (restore != r_named_start_room)
{
if (IN_ROOM(i) == STRANGE_ROOM)
i->set_was_in_room(r_named_start_room);
else
{
send_to_char("Чья-то злая воля вернула вас в комнату имени.\r\n", i);
act("$n возвращен$a в комнату имени.",
FALSE, i, 0, 0, TO_ROOM);
char_from_room(i);
char_to_room(i, r_named_start_room);
look_at_room(i, r_named_start_room);
i->set_was_in_room(NOWHERE);
};
};
}
else if (!RegisterSystem::is_registered(i) && i->desc && STATE(i->desc) == CON_PLAYING)
{
if (restore != r_unreg_start_room
&& !RENTABLE(i)
&& !DeathTrap::is_slow_dt(IN_ROOM(i))
&& !check_dupes_host(i->desc, 1))
{
if (IN_ROOM(i) == STRANGE_ROOM)
i->set_was_in_room(r_unreg_start_room);
else
{
act("$n водворен$a в комнату для незарегистрированных игроков, играющих через прокси.\r\n",
FALSE, i, 0, 0, TO_ROOM);
char_from_room(i);
char_to_room(i, r_unreg_start_room);
look_at_room(i, r_unreg_start_room);
i->set_was_in_room(NOWHERE);
};
}
else if (restore == r_unreg_start_room && check_dupes_host(i->desc, 1) && !IS_IMMORTAL(i))
{
send_to_char("Неведомая вытолкнула вас из комнаты для незарегистрированных игроков.\r\n", i);
act("$n появил$u в центре комнаты, правда без штампика регистрации...\r\n",
FALSE, i, 0, 0, TO_ROOM);
restore = i->get_was_in_room();
if (restore == NOWHERE || restore == r_unreg_start_room)
{
restore = GET_LOADROOM(i);
if (restore == NOWHERE)
restore = calc_loadroom(i);
restore = real_room(restore);
}
char_from_room(i);
char_to_room(i, restore);
look_at_room(i, restore);
i->set_was_in_room(NOWHERE);
}
}
}
void suffer_activity(int pulse)
{
struct char_data *ch, *next_ch;
char *desc;
char dam_msg1[120] = "msg1 for suffer room not defined, report this to an imm!\r\n";
char dam_msg2[120] = "msg2 for suffer room not defined, report this to an imm!\r\n";
char dam_msg3[120] = "msg3 for suffer room not defined, report this to an imm!\r\n";
char dam_msg4[120] = "msg4 for suffer room not defined, report this to an imm!\r\n";
char death_char[120] = "You drift into coma and die.";
char death_room[120] = "$n has drifted into coma and dies.";
char suffer_msg[120] = "$n is suffering.";
int percent_hp;
int min_dam = 10, max_dam = 20, dam_amount;
int hot = FALSE, cold = FALSE , dry = FALSE;
for (ch = character_list; ch; ch = next_ch) {
next_ch = ch->next;
if (GET_LEVEL(ch) >= LVL_IMMORT) /* Lets not hurt our immortals */
continue;
if (IS_NPC(ch))
continue;
// I'm adding in a check to make outlaws "suffer" if in a peace room
// Added by Sanji
if( (ROOM_FLAGGED(IN_ROOM(ch), ROOM_PEACEFUL) || IN_ARENA(ch) || IS_SET_AR(ROOM_FLAGS((ch)->in_room), ROOM_CLAN)) &&
(IS_SET_AR(PLR_FLAGS(ch), PLR_HUNTED) || IS_SET_AR(PLR_FLAGS(ch), PLR_THIEF))) {
int to_room = 18001; // Samsera center
// hurt the little cheater
GET_HIT(ch) = MAX(1, GET_HIT(ch) - GET_MAX_HIT(ch)/8);
GET_MANA(ch) = MAX(0, GET_MANA(ch) - GET_MAX_MANA(ch)/8);
GET_MOVE(ch) = MAX(0, GET_MOVE(ch) - GET_MAX_MOVE(ch)/8);
// where to send the victim?
//do
//{
// to_room = number( 0, top_of_world );
//} while (IS_SET_AR(world[to_room].room_flags, ROOM_PRIVATE) ||
// IS_SET_AR(world[to_room].room_flags, ROOM_DEATH) ||
// IS_SET_AR(world[to_room].room_flags, ROOM_PEACEFUL));
// Lets send out a message, more can be added later.
//
send_to_char("Naughty naughty. No hiding!\r\n", ch);
// Time to move the victim
char_from_room(ch);
char_to_room(ch, real_room(to_room));
look_at_room(ch, 0);
}
hot = (ROOM_FLAGGED(IN_ROOM(ch), ROOM_HOT));
cold = (ROOM_FLAGGED(IN_ROOM(ch), ROOM_COLD));
dry = (ROOM_FLAGGED(IN_ROOM(ch), ROOM_DRY));
if (!hot && !cold && !dry)
continue;
/* Getting ready to pull the damage amount out of the extra desc in the room */
if ((desc = find_exdesc("min_dam", world[ch->in_room].ex_description)) != NULL)
min_dam = atoi(desc);
else
min_dam = 0;
if ((desc = find_exdesc("max_dam", world[ch->in_room].ex_description)) != NULL)
max_dam = atoi(desc);
else
max_dam = 25;
if (max_dam < min_dam) {
send_to_char("SYSERR: Max damage lower then Min damage. Report to an Immortal.\r\n", ch);
return;
}
dam_amount = number(min_dam, max_dam);
if ((desc = find_exdesc("suffer1", world[ch->in_room].ex_description)) != NULL)
sprintf(dam_msg1, "%s", desc);
if ((desc = find_exdesc("suffer2", world[ch->in_room].ex_description)) != NULL)
sprintf(dam_msg2, "%s", desc);
if ((desc = find_exdesc("suffer3", world[ch->in_room].ex_description)) != NULL)
sprintf(dam_msg3, "%s", desc);
if ((desc = find_exdesc("suffer4", world[ch->in_room].ex_description)) != NULL)
sprintf(dam_msg4, "%s", desc);
if ((desc = find_exdesc("death_char", world[ch->in_room].ex_description)) != NULL)
sprintf(death_char, "%s", desc);
if ((desc = find_exdesc("death_room", world[ch->in_room].ex_description)) != NULL)
sprintf(death_room, "%s", desc);
if ((desc = find_exdesc("suffer_msg", world[ch->in_room].ex_description)) != NULL)
sprintf(suffer_msg, "%s", desc);
if (ROOM_FLAGGED(IN_ROOM(ch), ROOM_COLD) && IS_AFFECTED(ch, AFF_NO_COLD))
continue;
else if (ROOM_FLAGGED(IN_ROOM(ch), ROOM_HOT) && IS_AFFECTED(ch, AFF_NO_HOT))
continue;
else if (ROOM_FLAGGED(IN_ROOM(ch), ROOM_HOT) && IS_AFFECTED(ch, AFF_NO_DRY))
continue;
// DUH! added a check for soak
if (((ROOM_FLAGGED(IN_ROOM(ch), ROOM_HOT) || ROOM_FLAGGED(IN_ROOM(ch), ROOM_DRY)) && (GET_COND(ch, THIRST) > 0)))
GET_COND(ch, THIRST) = 0;
if (dam_amount >= GET_HIT(ch))
dam_amount = GET_HIT(ch) + number(4, 7);
else
act(suffer_msg, FALSE, ch, 0, 0, TO_ROOM);
GET_HIT(ch) -= dam_amount;
percent_hp = (100 * GET_HIT(ch)) / GET_MAX_HIT(ch);
// need a check here to see if the char is still in the room!
if ((ROOM_FLAGGED(IN_ROOM(ch), ROOM_HOT)) || (ROOM_FLAGGED(IN_ROOM(ch), ROOM_COLD)) || (ROOM_FLAGGED(IN_ROOM(ch), ROOM_DRY))){
if (percent_hp > 75)
send_to_char(dam_msg1, ch);
else if (percent_hp > 50)
send_to_char(dam_msg2, ch);
else if (percent_hp > 30)
send_to_char(dam_msg3, ch);
else if (percent_hp >= 15)
send_to_char(dam_msg4, ch);
else if (percent_hp >= 1) {
GET_HIT(ch) = number (-3, -5);
send_to_char("You have passed out.\r\n", ch);
act("$n has passed out and fallen to the ground.",
FALSE, ch, 0, 0, TO_ROOM);
update_pos(ch);
} else {
GET_HIT(ch) = number(-7, -10);
act(death_char, FALSE, ch, 0, 0, TO_CHAR);
act(death_room, FALSE, ch, 0, 0, TO_ROOM);
update_pos(ch);
GET_MANA(ch) = 1;
die(ch, NULL, 0);
}
}
} /* End of for loop */
}
