/****************************************************************************
* Eldhamud Codebase V2.2 *
* ------------------------------------------------------------------------ *
* EldhaMUD code (C) 2003-2008 by Robert Powell (Tommi) *
* ------------------------------------------------------------------------ *
* Original SMAUG 1.4a written by Thoric (Derek Snider) with Altrag, *
* Blodkai, Haus, Narn, Scryn, Swordbearer, Tricops, Gorog, Rennard, *
* Grishnakh, Fireblade, and Nivek. *
* *
* Original MERC 2.1 code by Hatchet, Furey, and Kahn. *
* *
* Original DikuMUD code by: Hans Staerfeldt, Katja Nyboe, Tom Madsen, *
* Michael Seifert, and Sebastian Hammer. *
* ------------------------------------------------------------------------ *
* Main structure manipulation module *
****************************************************************************/
#include <ctype.h>
#include <stdio.h>
#include <string.h>
#include <time.h>
#include "./Headers/mud.h"
extern int top_exit;
extern int top_ed;
extern int top_affect;
extern int cur_qobjs;
extern int cur_qchars;
extern CHAR_DATA *gch_prev;
extern OBJ_DATA *gobj_prev;
extern REL_DATA *first_relation;
extern REL_DATA *last_relation;
CHAR_DATA *cur_char;
ROOM_INDEX_DATA *cur_room;
bool cur_char_died;
ch_ret global_retcode;
int cur_obj;
int cur_obj_serial;
bool cur_obj_extracted;
obj_ret global_objcode;
OBJ_DATA *group_object( OBJ_DATA * obj1, OBJ_DATA * obj2 );
bool in_magic_container( OBJ_DATA * obj );
void delete_reset( RESET_DATA * pReset );
/*
* Return how much exp a char has
*/
int get_exp( CHAR_DATA * ch )
{
return ch->exp;
}
/*
* Calculate roughly how much experience a character is worth
*/
int get_exp_worth( CHAR_DATA * ch )
{
int wexp;
wexp = ch->level * 200;
wexp += ch->max_hit;
wexp += ( ch->barenumdie * ch->baresizedie + GET_DAMROLL( ch ) ) * 50;
wexp += GET_HITROLL( ch ) * ch->level * 10;
wexp = URANGE( MIN_EXP_WORTH, wexp, MAX_EXP_WORTH );
return wexp;
}
short get_exp_base( CHAR_DATA * ch )
{
if( IS_NPC( ch ) )
return 1000;
return Class_table[ch->Class]->exp_base;
}
/*
* Updated exp_level function, to solve the pointless use of big numbers, and to
* correct the old bad maths. -Orion
*/
int exp_level( CHAR_DATA * ch, short level )
{
int exp_level_2;
level = UMAX( 0, level );
exp_level_2 = ( get_exp_base( ch ) + ( ch->remorts * 100 ) ) * ( ( 3.5 * level * level ) - ( 9 * level ) + 7 );
return exp_level_2;
}
/*
* Get what level ch is based on exp
*/
short level_exp( CHAR_DATA * ch, int cexp )
{
int x, lastx, y, tmp;
x = LEVEL_SUPREME;
lastx = x;
y = 0;
while( !y )
{
tmp = exp_level( ch, x );
lastx = x;
if( tmp > cexp )
x /= 2;
else if( lastx != x )
x += ( x / 2 );
else
y = x;
}
if( y < 1 )
y = 1;
if( y > LEVEL_SUPREME )
y = LEVEL_SUPREME;
return y;
}
/*
* Retrieve a character's trusted level for permission checking.
*/
short get_trust( CHAR_DATA * ch )
{
if( ch->desc && ch->desc->original )
ch = ch->desc->original;
if( ch->trust != 0 )
return ch->trust;
if( IS_NPC( ch ) && ch->level >= LEVEL_AVATAR )
return LEVEL_AVATAR;
if( ch->level >= LEVEL_NEOPHYTE && IS_RETIRED( ch ) )
return LEVEL_NEOPHYTE;
return ch->level;
}
/*
* Retrieve a character's age.
*/
short get_age( CHAR_DATA * ch )
{
return 17 + ( ch->played + ( current_time - ch->logon ) ) / 7200;
}
/*
* Retrieve character's current strength.
*/
short get_curr_str( CHAR_DATA * ch )
{
return URANGE( 3, ch->perm_str + ch->mod_str, 25 );
}
/*
* Retrieve character's current intelligence.
*/
short get_curr_int( CHAR_DATA * ch )
{
return URANGE( 3, ch->perm_int + ch->mod_int, 25 );
}
/*
* Retrieve character's current wisdom.
*/
short get_curr_wis( CHAR_DATA * ch )
{
return URANGE( 3, ch->perm_wis + ch->mod_wis, 25 );
}
/*
* Retrieve character's current dexterity.
*/
short get_curr_dex( CHAR_DATA * ch )
{
return URANGE( 3, ch->perm_dex + ch->mod_dex, 25 );
}
/*
* Retrieve character's current constitution.
*/
short get_curr_con( CHAR_DATA * ch )
{
return URANGE( 3, ch->perm_con + ch->mod_con, 25 );
}
/*
* Retrieve character's current charisma.
*/
short get_curr_cha( CHAR_DATA * ch )
{
return URANGE( 3, ch->perm_cha + ch->mod_cha, 25 );
}
/*
* Retrieve character's current luck.
*/
short get_curr_lck( CHAR_DATA * ch )
{
return URANGE( 3, ch->perm_lck + ch->mod_lck, 25 );
}
/*
* Retrieve a character's carry capacity.
* Vastly reduced (finally) due to containers -Thoric
*/
int can_carry_n( CHAR_DATA * ch )
{
int penalty = 0;
if( !IS_NPC( ch ) && ch->level >= LEVEL_IMMORTAL )
return get_trust( ch ) * 200;
if( IS_NPC( ch ) && xIS_SET( ch->act, ACT_PET ) )
return 0;
if( IS_NPC( ch ) && xIS_SET( ch->act, ACT_IMMORTAL ) )
return ch->level * 200;
if( get_eq_char( ch, WEAR_WIELD ) )
++penalty;
if( get_eq_char( ch, WEAR_DUAL_WIELD ) )
++penalty;
if( get_eq_char( ch, WEAR_MISSILE_WIELD ) )
++penalty;
if( get_eq_char( ch, WEAR_HOLD ) )
++penalty;
if( get_eq_char( ch, WEAR_SHIELD ) )
++penalty;
return URANGE( 5, ( ch->level + 15 ) + get_curr_dex( ch ) - 13 - penalty, 20 );
}
/*
* Retrieve a character's carry capacity.
*/
int can_carry_w( CHAR_DATA * ch )
{
if( !IS_NPC( ch ) && ch->level >= LEVEL_IMMORTAL )
return 1000000;
if( IS_NPC( ch ) && xIS_SET( ch->act, ACT_PET ) )
return 0;
if( IS_NPC( ch ) && xIS_SET( ch->act, ACT_IMMORTAL ) )
return 1000000;
return str_app[get_curr_str( ch )].carry * ( ch->level + 15 ) / 10;
}
/*
* See if a player/mob can take a piece of prototype eq -Thoric
*/
bool can_take_proto( CHAR_DATA * ch )
{
if( IS_IMMORTAL( ch ) )
return TRUE;
else if( IS_NPC( ch ) && xIS_SET( ch->act, ACT_PROTOTYPE ) )
return TRUE;
else
return FALSE;
}
/*
* See if a string is one of the names of an object.
*/
bool is_name( const char *str, char *namelist )
{
char name[MAX_INPUT_LENGTH];
for( ;; )
{
namelist = one_argument( namelist, name );
if( name[0] == STRING_NULL )
return FALSE;
if( !str_cmp( str, name ) )
return TRUE;
}
}
bool is_name_prefix( const char *str, char *namelist )
{
char name[MAX_INPUT_LENGTH];
for( ;; )
{
namelist = one_argument( namelist, name );
if( name[0] == STRING_NULL )
return FALSE;
if( !str_prefix( str, name ) )
return TRUE;
}
}
/*
* See if a string is one of the names of an object. -Thoric
* Treats a dash as a word delimiter as well as a space
*/
bool is_name2( const char *str, char *namelist )
{
char name[MAX_INPUT_LENGTH];
for( ;; )
{
namelist = one_argument2( namelist, name );
if( name[0] == STRING_NULL )
return FALSE;
if( !str_cmp( str, name ) )
return TRUE;
}
}
bool is_name2_prefix( const char *str, char *namelist )
{
char name[MAX_INPUT_LENGTH];
for( ;; )
{
namelist = one_argument2( namelist, name );
if( name[0] == STRING_NULL )
return FALSE;
if( !str_prefix( str, name ) )
return TRUE;
}
}
/* -Thoric
* Checks if str is a name in namelist supporting multiple keywords
*/
bool nifty_is_name( char *str, char *namelist )
{
char name[MAX_INPUT_LENGTH];
if( !str || str[0] == STRING_NULL )
return FALSE;
for( ;; )
{
str = one_argument2( str, name );
if( name[0] == STRING_NULL )
return TRUE;
if( !is_name2( name, namelist ) )
return FALSE;
}
}
bool nifty_is_name_prefix( char *str, char *namelist )
{
char name[MAX_INPUT_LENGTH];
if( !str || str[0] == STRING_NULL )
return FALSE;
for( ;; )
{
str = one_argument2( str, name );
if( name[0] == STRING_NULL )
return TRUE;
if( !is_name2_prefix( name, namelist ) )
return FALSE;
}
}
void room_affect( ROOM_INDEX_DATA * pRoomIndex, AFFECT_DATA * paf, bool fAdd )
{
if( fAdd )
{
switch ( paf->location )
{
case APPLY_ROOMFLAG:
case APPLY_SECTORTYPE:
break;
case APPLY_ROOMLIGHT:
pRoomIndex->light += paf->modifier;
break;
case APPLY_TELEVNUM:
case APPLY_TELEDELAY:
break;
}
}
else
{
switch ( paf->location )
{
case APPLY_ROOMFLAG:
case APPLY_SECTORTYPE:
break;
case APPLY_ROOMLIGHT:
pRoomIndex->light -= paf->modifier;
break;
case APPLY_TELEVNUM:
case APPLY_TELEDELAY:
break;
}
}
}
/*
* Modify a skill (hopefully) properly -Thoric
*
* On "adding" a skill modifying affect, the value set is unimportant
* upon removing the affect, the skill it enforced to a proper range.
*/
void modify_skill( CHAR_DATA * ch, int sn, int mod, bool fAdd )
{
if( !IS_NPC( ch ) )
{
if( fAdd )
ch->pcdata->learned[sn] += mod;
else
ch->pcdata->learned[sn] = URANGE( 0, ch->pcdata->learned[sn] + mod, GET_ADEPT( ch, sn ) );
}
}
/*
* Apply or remove an affect to a character.
*/
void affect_modify( CHAR_DATA * ch, AFFECT_DATA * paf, bool fAdd )
{
OBJ_DATA *wield;
int mod;
struct skill_type *skill;
ch_ret retcode;
mod = paf->modifier;
if( fAdd )
{
xSET_BITS( ch->affected_by, paf->bitvector );
if( paf->location % REVERSE_APPLY == APPLY_RECURRINGSPELL )
{
mod = abs( mod );
if( IS_VALID_SN( mod ) && ( skill = skill_table[mod] ) != NULL && skill->type == SKILL_SPELL )
xSET_BIT( ch->affected_by, AFF_RECURRINGSPELL );
else
bug( "affect_modify(%s) APPLY_RECURRINGSPELL with bad sn %d", ch->name, mod );
return;
}
}
else
{
xREMOVE_BITS( ch->affected_by, paf->bitvector );
/*
* might be an idea to have a duration removespell which returns
* the spell after the duration... but would have to store
* the removed spell's information somewhere... -Thoric
* (Though we could keep the affect, but disable it for a duration)
*/
if( paf->location % REVERSE_APPLY == APPLY_RECURRINGSPELL )
{
mod = abs( mod );
if( !IS_VALID_SN( mod ) || ( skill = skill_table[mod] ) == NULL || skill->type != SKILL_SPELL )
bug( "affect_modify(%s) APPLY_RECURRINGSPELL with bad sn %d", ch->name, mod );
xREMOVE_BIT( ch->affected_by, AFF_RECURRINGSPELL );
return;
}
switch ( paf->location % REVERSE_APPLY )
{
case APPLY_AFFECT:
REMOVE_BIT( ch->affected_by.bits[0], mod );
return;
case APPLY_EXT_AFFECT:
xREMOVE_BIT( ch->affected_by, mod );
return;
case APPLY_RESISTANT:
REMOVE_BIT( ch->resistant, mod );
return;
case APPLY_IMMUNE:
REMOVE_BIT( ch->immune, mod );
return;
case APPLY_SUSCEPTIBLE:
REMOVE_BIT( ch->susceptible, mod );
return;
case APPLY_REMOVE:
SET_BIT( ch->affected_by.bits[0], mod );
return;
default:
break;
}
mod = 0 - mod;
}
switch ( paf->location % REVERSE_APPLY )
{
default:
bug( "Affect_modify: unknown location %d.", paf->location );
return;
case APPLY_NONE:
break;
case APPLY_STR:
ch->mod_str += mod;
break;
case APPLY_DEX:
ch->mod_dex += mod;
break;
case APPLY_INT:
ch->mod_int += mod;
break;
case APPLY_WIS:
ch->mod_wis += mod;
break;
case APPLY_CON:
ch->mod_con += mod;
break;
case APPLY_CHA:
ch->mod_cha += mod;
break;
case APPLY_LCK:
ch->mod_lck += mod;
break;
case APPLY_SEX:
ch->sex = ( ch->sex + mod ) % 3;
if( ch->sex < 0 )
ch->sex += 2;
ch->sex = URANGE( 0, ch->sex, 2 );
break;
/*
* These are unused due to possible problems. Enable at your own risk.
*/
case APPLY_CLASS:
break;
case APPLY_LEVEL:
break;
case APPLY_AGE:
break;
case APPLY_GOLD:
break;
case APPLY_EXP:
break;
/*
* Regular apply types
*/
case APPLY_HEIGHT:
ch->height += mod;
break;
case APPLY_WEIGHT:
ch->weight += mod;
break;
case APPLY_MANA:
ch->max_mana += mod;
break;
case APPLY_HIT:
ch->max_hit += mod;
break;
case APPLY_MOVE:
ch->max_move += mod;
break;
case APPLY_AC:
ch->armor += mod;
break;
case APPLY_HITROLL:
ch->hitroll += mod;
break;
case APPLY_DAMROLL:
ch->damroll += mod;
break;
case APPLY_SAVING_POISON:
ch->saving_poison_death += mod;
break;
case APPLY_SAVING_MENTAL:
ch->saving_mental += mod;
break;
case APPLY_SAVING_PHYSICAL:
ch->saving_physical += mod;
break;
case APPLY_SAVING_WEAPONS:
ch->saving_weapons += mod;
break;
/*
* Bitvector modifying apply types
*/
case APPLY_AFFECT:
SET_BIT( ch->affected_by.bits[0], mod );
break;
case APPLY_EXT_AFFECT:
xSET_BIT( ch->affected_by, mod );
break;
case APPLY_RESISTANT:
SET_BIT( ch->resistant, mod );
break;
case APPLY_IMMUNE:
SET_BIT( ch->immune, mod );
break;
case APPLY_SUSCEPTIBLE:
SET_BIT( ch->susceptible, mod );
break;
case APPLY_WEAPONSPELL: /* see fight.c */
break;
case APPLY_REMOVE:
REMOVE_BIT( ch->affected_by.bits[0], mod );
break;
/*
* Specialty modfiers
*/
case APPLY_CONTAGIOUS:
break;
case APPLY_ODOR:
break;
case APPLY_STRIPSN:
if( IS_VALID_SN( mod ) )
affect_strip( ch, mod );
else
bug( "affect_modify: APPLY_STRIPSN invalid sn %d on %s in room %d", mod, ch->name, ch->in_room->vnum );
break;
/*
* spell cast upon wear/removal of an object -Thoric
*/
case APPLY_WEARSPELL:
case APPLY_REMOVESPELL:
if( xIS_SET( ch->in_room->room_flags, ROOM_NO_MAGIC ) || IS_SET( ch->immune, RIS_MAGIC ) || ( ( paf->location % REVERSE_APPLY ) == APPLY_WEARSPELL && !fAdd ) || ( ( paf->location % REVERSE_APPLY ) == APPLY_REMOVESPELL && !fAdd ) || saving_char == ch /* so save/quit doesn't trigger */
|| loading_char == ch ) /* so loading doesn't trigger */
return;
mod = abs( mod );
if( IS_VALID_SN( mod ) && ( skill = skill_table[mod] ) != NULL && skill->type == SKILL_SPELL )
{
if( skill->target == TAR_IGNORE || skill->target == TAR_OBJ_INV )
{
bug( "APPLY_WEARSPELL trying to apply bad target spell. SN is %d.", mod );
return;
}
if( ( retcode = ( *skill->spell_fun ) ( mod, ch->level, ch, ch ) ) == rCHAR_DIED || char_died( ch ) )
return;
}
break;
/*
* Skill apply types
*/
case APPLY_DODGE:
modify_skill( ch, gsn_dodge, mod, fAdd );
break;
case APPLY_MOUNT:
modify_skill( ch, gsn_mount, mod, fAdd );
break;
case APPLY_PARRY:
modify_skill( ch, gsn_parry, mod, fAdd );
break;
case APPLY_STUN:
modify_skill( ch, gsn_stun, mod, fAdd );
break;
case APPLY_GRIP:
modify_skill( ch, gsn_grip, mod, fAdd );
break;
case APPLY_SCRIBE:
modify_skill( ch, gsn_scribe, mod, fAdd );
break;
case APPLY_BREW:
modify_skill( ch, gsn_brew, mod, fAdd );
break;
/*
* Room apply types
*/
case APPLY_ROOMFLAG:
case APPLY_SECTORTYPE:
case APPLY_ROOMLIGHT:
case APPLY_TELEVNUM:
break;
/*
* Object apply types
*/
}
/*
* Check for weapon wielding.
* Guard against recursion (for weapons with affects).
*/
if( !IS_NPC( ch ) && saving_char != ch && ( wield = get_eq_char( ch, WEAR_WIELD ) ) != NULL && get_obj_weight( wield ) > str_app[get_curr_str( ch )].wield )
{
static int depth;
if( depth == 0 )
{
depth++;
act( AT_ACTION, "You are too weak to wield $p any longer.", ch, wield, NULL, TO_CHAR );
act( AT_ACTION, "$n stops wielding $p.", ch, wield, NULL, TO_ROOM );
unequip_char( ch, wield );
depth--;
}
}
return;
}
/*
* Give an affect to a char.
*/
void affect_to_char( CHAR_DATA * ch, AFFECT_DATA * paf )
{
AFFECT_DATA *paf_new;
if( !ch )
{
bug( "Affect_to_char(NULL, %d)", paf ? paf->type : 0 );
return;
}
if( !paf )
{
bug( "Affect_to_char(%s, NULL)", ch->name );
return;
}
CREATE( paf_new, AFFECT_DATA, 1 );
LINK( paf_new, ch->first_affect, ch->last_affect, next, prev );
paf_new->type = paf->type;
paf_new->duration = paf->duration;
paf_new->location = paf->location;
paf_new->modifier = paf->modifier;
paf_new->bitvector = paf->bitvector;
affect_modify( ch, paf_new, TRUE );
return;
}
/*
* Remove an affect from a char.
*/
void affect_remove( CHAR_DATA * ch, AFFECT_DATA * paf )
{
if( !ch->first_affect )
{
bug( "Affect_remove(%s, %d): no affect.", ch->name, paf ? paf->type : 0 );
return;
}
affect_modify( ch, paf, FALSE );
UNLINK( paf, ch->first_affect, ch->last_affect, next, prev );
DISPOSE( paf );
return;
}
/*
* Strip all affects of a given sn.
*/
void affect_strip( CHAR_DATA * ch, int sn )
{
AFFECT_DATA *paf;
AFFECT_DATA *paf_next;
for( paf = ch->first_affect; paf; paf = paf_next )
{
paf_next = paf->next;
if( paf->type == sn )
affect_remove( ch, paf );
}
return;
}
/*
* Return true if a char is affected by a spell.
*/
bool is_affected( CHAR_DATA * ch, int sn )
{
AFFECT_DATA *paf;
for( paf = ch->first_affect; paf; paf = paf->next )
if( paf->type == sn )
return TRUE;
return FALSE;
}
/*
* Add or enhance an affect.
* Limitations put in place by Thoric, they may be high... but at least
* they're there :)
*/
void affect_join( CHAR_DATA * ch, AFFECT_DATA * paf )
{
AFFECT_DATA *paf_old;
for( paf_old = ch->first_affect; paf_old; paf_old = paf_old->next )
if( paf_old->type == paf->type )
{
paf->duration = UMIN( 5000, paf->duration + paf_old->duration );
paf->modifier = paf_old->modifier;
affect_remove( ch, paf_old );
break;
}
affect_to_char( ch, paf );
return;
}
/*
* Apply only affected and RIS on a char
*/
void aris_affect( CHAR_DATA * ch, AFFECT_DATA * paf )
{
xSET_BITS( ch->affected_by, paf->bitvector );
switch ( paf->location % REVERSE_APPLY )
{
case APPLY_AFFECT:
SET_BIT( ch->affected_by.bits[0], paf->modifier );
break;
case APPLY_RESISTANT:
SET_BIT( ch->resistant, paf->modifier );
break;
case APPLY_IMMUNE:
SET_BIT( ch->immune, paf->modifier );
break;
case APPLY_SUSCEPTIBLE:
SET_BIT( ch->susceptible, paf->modifier );
break;
}
}
/*
* Update affecteds and RIS for a character in case things get messed.
* This should only really be used as a quick fix until the cause
* of the problem can be hunted down. - FB
* Last modified: June 30, 1997
*
* Quick fix? Looks like a good solution for a lot of problems.
*/
/* Temp mod to bypass immortals so they can keep their mset affects,
* just a band-aid until we get more time to look at it -- Blodkai */
void update_aris( CHAR_DATA * ch )
{
AFFECT_DATA *paf;
OBJ_DATA *obj;
int hiding;
if( IS_NPC( ch ) || IS_IMMORTAL( ch ) )
return;
/*
* So chars using hide skill will continue to hide
*/
hiding = IS_AFFECTED( ch, AFF_HIDE );
xCLEAR_BITS( ch->affected_by );
ch->resistant = 0;
ch->immune = 0;
ch->susceptible = 0;
xCLEAR_BITS( ch->no_affected_by );
ch->no_resistant = 0;
ch->no_immune = 0;
ch->no_susceptible = 0;
/*
* Add in effects from race
*/
xSET_BITS( ch->affected_by, race_table[ch->race]->affected );
SET_BIT( ch->resistant, race_table[ch->race]->resist );
SET_BIT( ch->susceptible, race_table[ch->race]->suscept );
/*
* Add in effects from deities
*/
if( ch->pcdata->deity )
{
if( ch->pcdata->favor > ch->pcdata->deity->affectednum )
xSET_BITS( ch->affected_by, ch->pcdata->deity->affected );
if( ch->pcdata->favor > ch->pcdata->deity->elementnum )
SET_BIT( ch->resistant, ch->pcdata->deity->element );
if( ch->pcdata->favor < ch->pcdata->deity->susceptnum )
SET_BIT( ch->susceptible, ch->pcdata->deity->suscept );
}
/*
* Add in effect from spells
*/
for( paf = ch->first_affect; paf; paf = paf->next )
aris_affect( ch, paf );
/*
* Add in effects from equipment
*/
for( obj = ch->first_carrying; obj; obj = obj->next_content )
{
if( obj->wear_loc != WEAR_NONE )
{
for( paf = obj->first_affect; paf; paf = paf->next )
aris_affect( ch, paf );
for( paf = obj->pIndexData->first_affect; paf; paf = paf->next )
aris_affect( ch, paf );
}
}
/*
* Add in effects from the room
*/
if( ch->in_room ) /* non-existant char booboo-fix --TRI */
for( paf = ch->in_room->first_affect; paf; paf = paf->next )
aris_affect( ch, paf );
/*
* If they were hiding before, make them hiding again
*/
if( hiding )
xSET_BIT( ch->affected_by, AFF_HIDE );
return;
}
/*
* Move a char out of a room.
*/
void char_from_room( CHAR_DATA * ch )
{
OBJ_DATA *obj;
AFFECT_DATA *paf;
if( !ch->in_room )
{
bug( "Char_from_room: NULL.", 0 );
return;
}
if( !IS_NPC( ch ) )
--ch->in_room->area->nplayer;
if( ( obj = get_eq_char( ch, WEAR_LIGHT ) ) != NULL && obj->item_type == ITEM_LIGHT && obj->value[2] != 0 && ch->in_room->light > 0 )
--ch->in_room->light;
/*
* Character's affect on the room
*/
for( paf = ch->first_affect; paf; paf = paf->next )
room_affect( ch->in_room, paf, FALSE );
/*
* Room's affect on the character
*/
if( !char_died( ch ) )
{
for( paf = ch->in_room->first_affect; paf; paf = paf->next )
affect_modify( ch, paf, FALSE );
if( char_died( ch ) ) /* could die from removespell, etc */
return;
}
UNLINK( ch, ch->in_room->first_person, ch->in_room->last_person, next_in_room, prev_in_room );
ch->was_in_room = ch->in_room;
ch->in_room = NULL;
ch->next_in_room = NULL;
ch->prev_in_room = NULL;
if( !IS_NPC( ch ) && get_timer( ch, TIMER_SHOVEDRAG ) > 0 )
remove_timer( ch, TIMER_SHOVEDRAG );
return;
}
/*
* Move a char into a room.
*/
void char_to_room( CHAR_DATA * ch, ROOM_INDEX_DATA * pRoomIndex )
{
OBJ_DATA *obj;
AFFECT_DATA *paf;
if( !ch )
{
bug( "Char_to_room: NULL ch!", 0 );
return;
}
if( !pRoomIndex )
{
bug( "Char_to_room: %s -> NULL room! Putting char in limbo (%d)", ch->name, ROOM_VNUM_LIMBO );
/*
* This used to just return, but there was a problem with crashing
* and I saw no reason not to just put the char in limbo. -Narn
*/
pRoomIndex = get_room_index( ROOM_VNUM_LIMBO );
}
ch->in_room = pRoomIndex;
if( ch->home_vnum < 1 )
ch->home_vnum = ch->in_room->vnum;
LINK( ch, pRoomIndex->first_person, pRoomIndex->last_person, next_in_room, prev_in_room );
if( !IS_NPC( ch ) )
if( ++pRoomIndex->area->nplayer > pRoomIndex->area->max_players )
pRoomIndex->area->max_players = pRoomIndex->area->nplayer;
if( ( obj = get_eq_char( ch, WEAR_LIGHT ) ) != NULL && obj->item_type == ITEM_LIGHT && obj->value[2] != 0 )
++pRoomIndex->light;
/*
* Room's effect on the character
*/
if( !char_died( ch ) )
{
for( paf = pRoomIndex->first_affect; paf; paf = paf->next )
affect_modify( ch, paf, TRUE );
if( char_died( ch ) ) /* could die from a wearspell, etc */
return;
}
/*
* Character's effect on the room
*/
for( paf = ch->first_affect; paf; paf = paf->next )
room_affect( pRoomIndex, paf, TRUE );
if( !IS_NPC( ch ) && xIS_SET( pRoomIndex->room_flags, ROOM_SAFE ) && get_timer( ch, TIMER_SHOVEDRAG ) <= 0 )
add_timer( ch, TIMER_SHOVEDRAG, 10, NULL, 0 );
/*-30 Seconds-*/
/*
* Delayed Teleport rooms -Thoric
* Should be the last thing checked in this function
*/
if( xIS_SET( pRoomIndex->room_flags, ROOM_TELEPORT ) && pRoomIndex->tele_delay > 0 )
{
TELEPORT_DATA *tele;
for( tele = first_teleport; tele; tele = tele->next )
if( tele->room == pRoomIndex )
return;
CREATE( tele, TELEPORT_DATA, 1 );
LINK( tele, first_teleport, last_teleport, next, prev );
tele->room = pRoomIndex;
tele->timer = pRoomIndex->tele_delay;
}
if( !ch->was_in_room )
ch->was_in_room = ch->in_room;
return;
}
/*
* Give an obj to a char.
*/
OBJ_DATA *obj_to_char( OBJ_DATA * obj, CHAR_DATA * ch )
{
OBJ_DATA *otmp;
OBJ_DATA *oret = obj;
bool skipgroup, grouped;
int oweight = get_obj_weight( obj );
int onum = get_obj_number( obj );
int wear_loc = obj->wear_loc;
EXT_BV extra_flags = obj->extra_flags;
skipgroup = FALSE;
grouped = FALSE;
if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) )
{
if( !IS_IMMORTAL( ch ) && !IS_ACT_FLAG( ch, ACT_PROTOTYPE ) )
return obj_to_room( obj, ch->in_room, ch );
}
/*
* Should handle all cases of picking stuff up from maps - Samson
*/
REMOVE_OBJ_STAT( obj, ITEM_ONMAP );
obj->x = -1;
obj->y = -1;
obj->map = -1;
if( loading_char == ch )
{
int x, y;
for( x = 0; x < MAX_WEAR; x++ )
for( y = 0; y < MAX_LAYERS; y++ )
if( save_equipment[x][y] == obj )
{
skipgroup = TRUE;
break;
}
}
if( IS_NPC( ch ) && ch->pIndexData->pShop )
skipgroup = TRUE;
if( !skipgroup )
for( otmp = ch->first_carrying; otmp; otmp = otmp->next_content )
if( ( oret = group_object( otmp, obj ) ) == otmp )
{
grouped = TRUE;
break;
}
if( !grouped )
{
if( !IS_NPC( ch ) || !ch->pIndexData->pShop )
{
LINK( obj, ch->first_carrying, ch->last_carrying, next_content, prev_content );
obj->carried_by = ch;
obj->in_room = NULL;
obj->in_obj = NULL;
}
else
{
/*
* If ch is a shopkeeper, add the obj using an insert sort
*/
for( otmp = ch->first_carrying; otmp; otmp = otmp->next_content )
{
if( obj->level > otmp->level )
{
INSERT( obj, otmp, ch->first_carrying, next_content, prev_content );
break;
}
else if( obj->level == otmp->level && strcmp( obj->short_descr, otmp->short_descr ) < 0 )
{
INSERT( obj, otmp, ch->first_carrying, next_content, prev_content );
break;
}
}
if( !otmp )
{
LINK( obj, ch->first_carrying, ch->last_carrying, next_content, prev_content );
}
obj->carried_by = ch;
obj->in_room = NULL;
obj->in_obj = NULL;
}
}
if( wear_loc == WEAR_NONE )
{
ch->carry_number += onum;
ch->carry_weight += oweight;
}
else if( !xIS_SET( extra_flags, ITEM_MAGIC ) )
ch->carry_weight += oweight;
return ( oret ? oret : obj );
}
/*
* Take an obj from its character.
*/
void obj_from_char( OBJ_DATA * obj )
{
CHAR_DATA *ch;
if( ( ch = obj->carried_by ) == NULL )
{
bug( "Obj_from_char: null ch.", 0 );
return;
}
if( obj->wear_loc != WEAR_NONE )
unequip_char( ch, obj );
/*
* obj may drop during unequip...
*/
if( !obj->carried_by )
return;
UNLINK( obj, ch->first_carrying, ch->last_carrying, next_content, prev_content );
if( IS_OBJ_STAT( obj, ITEM_COVERING ) && obj->first_content )
empty_obj( obj, NULL, NULL );
obj->in_room = NULL;
obj->carried_by = NULL;
ch->carry_number -= get_obj_number( obj );
ch->carry_weight -= get_obj_weight( obj );
return;
}
/*
* Find the ac value of an obj, including position effect.
*/
int apply_ac( OBJ_DATA * obj, int iWear )
{
if( obj->item_type != ITEM_ARMOR )
return 0;
switch ( iWear )
{
case WEAR_BODY:
return 3 * obj->value[0];
case WEAR_HEAD:
return 2 * obj->value[0];
case WEAR_LEGS:
return 2 * obj->value[0];
case WEAR_FEET:
return obj->value[0];
case WEAR_HANDS:
return obj->value[0];
case WEAR_ARMS:
return obj->value[0];
case WEAR_SHIELD:
return obj->value[0];
case WEAR_HOLD:
return obj->value[0];
case WEAR_BACK:
return obj->value[0];
}
return 0;
}
/*
* Find a piece of eq on a character.
* Will pick the top layer if clothing is layered. -Thoric
*/
OBJ_DATA *get_eq_char( CHAR_DATA * ch, int iWear )
{
OBJ_DATA *obj, *maxobj = NULL;
for( obj = ch->first_carrying; obj; obj = obj->next_content )
if( obj->wear_loc == iWear )
{
if( !obj->pIndexData->layers )
return obj;
else if( !maxobj || obj->pIndexData->layers > maxobj->pIndexData->layers )
maxobj = obj;
}
return maxobj;
}
/*
* Equip a char with an obj.
*/
void equip_char( CHAR_DATA * ch, OBJ_DATA * obj, int iWear )
{
AFFECT_DATA *paf;
OBJ_DATA *otmp;
if( obj->carried_by != ch )
{
bug( "equip_char: obj not being carried by ch!" );
return;
}
if( ( otmp = get_eq_char( ch, iWear ) ) != NULL && ( !otmp->pIndexData->layers || !obj->pIndexData->layers ) )
{
bug( "Equip_char: already equipped (%d) %s %d.", iWear, ch->name, ch->in_room->vnum );
return;
}
separate_obj( obj ); /* just in case */
if( ( IS_OBJ_STAT( obj, ITEM_ANTI_EVIL ) && IS_EVIL( ch ) )
|| ( IS_OBJ_STAT( obj, ITEM_ANTI_GOOD ) && IS_GOOD( ch ) ) || ( IS_OBJ_STAT( obj, ITEM_ANTI_NEUTRAL ) && IS_NEUTRAL( ch ) ) )
{
/*
* Thanks to Morgenes for the bug fix here!
*/
if( loading_char != ch )
{
act( AT_MAGIC, "You are zapped by $p and drop it.", ch, obj, NULL, TO_CHAR );
act( AT_MAGIC, "$n is zapped by $p and drops it.", ch, obj, NULL, TO_ROOM );
}
if( obj->carried_by )
obj_from_char( obj );
obj_to_room( obj, ch->in_room, NULL );
oprog_zap_trigger( ch, obj );
if( IS_SET( sysdata.save_flags, SV_ZAPDROP ) && !char_died( ch ) )
save_char_obj( ch );
return;
}
ch->armor -= apply_ac( obj, iWear );
obj->wear_loc = iWear;
ch->carry_number -= get_obj_number( obj );
if( IS_OBJ_STAT( obj, ITEM_MAGIC ) )
ch->carry_weight -= get_obj_weight( obj );
for( paf = obj->pIndexData->first_affect; paf; paf = paf->next )
affect_modify( ch, paf, TRUE );
for( paf = obj->first_affect; paf; paf = paf->next )
affect_modify( ch, paf, TRUE );
if( obj->item_type == ITEM_LIGHT && obj->value[2] != 0 && ch->in_room )
++ch->in_room->light;
return;
}
/*
* Unequip a char with an obj.
*/
void unequip_char( CHAR_DATA * ch, OBJ_DATA * obj )
{
AFFECT_DATA *paf;
if( obj->wear_loc == WEAR_NONE )
{
bug( "Unequip_char: already unequipped.", 0 );
return;
}
ch->carry_number += get_obj_number( obj );
if( IS_OBJ_STAT( obj, ITEM_MAGIC ) )
ch->carry_weight += get_obj_weight( obj );
ch->armor += apply_ac( obj, obj->wear_loc );
obj->wear_loc = -1;
for( paf = obj->pIndexData->first_affect; paf; paf = paf->next )
affect_modify( ch, paf, FALSE );
if( obj->carried_by )
for( paf = obj->first_affect; paf; paf = paf->next )
affect_modify( ch, paf, FALSE );
update_aris( ch );
if( !obj->carried_by )
return;
if( obj->item_type == ITEM_LIGHT && obj->value[2] != 0 && ch->in_room && ch->in_room->light > 0 )
--ch->in_room->light;
return;
}
/*
* Move an obj out of a room.
*/
int falling;
void obj_from_room( OBJ_DATA * obj )
{
ROOM_INDEX_DATA *in_room;
AFFECT_DATA *paf;
if( ( in_room = obj->in_room ) == NULL )
{
bug( "obj_from_room: NULL.", 0 );
return;
}
for( paf = obj->first_affect; paf; paf = paf->next )
room_affect( in_room, paf, FALSE );
for( paf = obj->pIndexData->first_affect; paf; paf = paf->next )
room_affect( in_room, paf, FALSE );
UNLINK( obj, in_room->first_content, in_room->last_content, next_content, prev_content );
/*
* uncover contents
*/
if( IS_OBJ_STAT( obj, ITEM_COVERING ) && obj->first_content )
empty_obj( obj, NULL, obj->in_room );
if( obj->item_type == ITEM_FIRE )
obj->in_room->light -= obj->count;
obj->carried_by = NULL;
obj->in_obj = NULL;
obj->in_room = NULL;
return;
}
/*
* Move an obj into a room.
*/
OBJ_DATA *obj_to_room( OBJ_DATA * obj, ROOM_INDEX_DATA * pRoomIndex, CHAR_DATA * ch )
{
OBJ_DATA *otmp, *oret;
short count = obj->count;
short item_type = obj->item_type;
AFFECT_DATA *paf;
for( paf = obj->first_affect; paf; paf = paf->next )
room_affect( pRoomIndex, paf, TRUE );
for( paf = obj->pIndexData->first_affect; paf; paf = paf->next )
room_affect( pRoomIndex, paf, TRUE );
for( otmp = pRoomIndex->first_content; otmp; otmp = otmp->next_content )
if( ( oret = group_object( otmp, obj ) ) == otmp )
{
if( item_type == ITEM_FIRE )
pRoomIndex->light += count;
return oret;
}
LINK( obj, pRoomIndex->first_content, pRoomIndex->last_content, next_content, prev_content );
obj->in_room = pRoomIndex;
obj->carried_by = NULL;
obj->in_obj = NULL;
if( item_type == ITEM_FIRE )
pRoomIndex->light += count;
falling++;
obj_fall( obj, FALSE );
falling--;
/*
* Hoping that this will cover all instances of objects from character to room - Samson 8-22-99
*/
if( ch != NULL )
{
if( IS_ACT_FLAG( ch, ACT_ONMAP ) || IS_PLR_FLAG( ch, PLR_ONMAP ) )
{
SET_OBJ_STAT( obj, ITEM_ONMAP );
obj->map = ch->map;
obj->x = ch->x;
obj->y = ch->y;
}
else
{
REMOVE_OBJ_STAT( obj, ITEM_ONMAP );
obj->map = -1;
obj->x = -1;
obj->y = -1;
}
}
return obj;
}
/*
* Who's carrying an item -- recursive for nested objects -Thoric
*/
CHAR_DATA *carried_by( OBJ_DATA * obj )
{
if( obj->in_obj )
return carried_by( obj->in_obj );
return obj->carried_by;
}
/*
* Move an object into an object.
*/
OBJ_DATA *obj_to_obj( OBJ_DATA * obj, OBJ_DATA * obj_to )
{
OBJ_DATA *otmp, *oret;
CHAR_DATA *who;
if( obj == obj_to )
{
bug( "Obj_to_obj: trying to put object inside itself: vnum %d", obj->pIndexData->vnum );
return obj;
}
if( !in_magic_container( obj_to ) && ( who = carried_by( obj_to ) ) != NULL )
who->carry_weight += get_obj_weight( obj );
for( otmp = obj_to->first_content; otmp; otmp = otmp->next_content )
if( ( oret = group_object( otmp, obj ) ) == otmp )
return oret;
LINK( obj, obj_to->first_content, obj_to->last_content, next_content, prev_content );
obj->in_obj = obj_to;
obj->in_room = NULL;
obj->carried_by = NULL;
return obj;
}
/*
* Move an object out of an object.
*/
void obj_from_obj( OBJ_DATA * obj )
{
OBJ_DATA *obj_from;
bool magic;
if( ( obj_from = obj->in_obj ) == NULL )
{
bug( "Obj_from_obj: null obj_from.", 0 );
return;
}
magic = in_magic_container( obj_from );
UNLINK( obj, obj_from->first_content, obj_from->last_content, next_content, prev_content );
/*
* uncover contents
*/
if( IS_OBJ_STAT( obj, ITEM_COVERING ) && obj->first_content )
empty_obj( obj, obj->in_obj, NULL );
obj->in_obj = NULL;
obj->in_room = NULL;
obj->carried_by = NULL;
/*
* This will hopefully cover all objs coming from containers going to the maps - Samson 8-22-99
*/
if( IS_OBJ_STAT( obj_from, ITEM_ONMAP ) )
{
SET_OBJ_STAT( obj, ITEM_ONMAP );
obj->map = obj_from->map;
obj->x = obj_from->x;
obj->y = obj_from->y;
}
if( !magic )
for( ; obj_from; obj_from = obj_from->in_obj )
if( obj_from->carried_by )
obj_from->carried_by->carry_weight -= get_obj_weight( obj );
return;
}
/*
* Extract an obj from the world.
*/
void extract_obj( OBJ_DATA * obj )
{
OBJ_DATA *obj_content;
REL_DATA *RQueue, *rq_next;
if( obj_extracted( obj ) )
{
bug( "extract_obj: obj %d already extracted!", obj->pIndexData->vnum );
return;
}
if( obj->item_type == ITEM_PORTAL )
remove_portal( obj );
if( obj->carried_by )
obj_from_char( obj );
else if( obj->in_room )
obj_from_room( obj );
else if( obj->in_obj )
obj_from_obj( obj );
while( ( obj_content = obj->last_content ) != NULL )
extract_obj( obj_content );
/*
* remove affects
*/
{
AFFECT_DATA *paf;
AFFECT_DATA *paf_next;
for( paf = obj->first_affect; paf; paf = paf_next )
{
paf_next = paf->next;
DISPOSE( paf );
}
obj->first_affect = obj->last_affect = NULL;
}
/*
* remove extra descriptions
*/
{
EXTRA_DESCR_DATA *ed;
EXTRA_DESCR_DATA *ed_next;
for( ed = obj->first_extradesc; ed; ed = ed_next )
{
ed_next = ed->next;
STRFREE( ed->description );
STRFREE( ed->keyword );
DISPOSE( ed );
}
obj->first_extradesc = obj->last_extradesc = NULL;
}
if( obj == gobj_prev )
gobj_prev = obj->prev;
for( RQueue = first_relation; RQueue; RQueue = rq_next )
{
rq_next = RQueue->next;
if( RQueue->Type == relOSET_ON )
{
if( obj == RQueue->Subject )
( ( CHAR_DATA * ) RQueue->Actor )->dest_buf = NULL;
else
continue;
UNLINK( RQueue, first_relation, last_relation, next, prev );
DISPOSE( RQueue );
}
}
UNLINK( obj, first_object, last_object, next, prev );
/*
* shove onto extraction queue
*/
queue_extracted_obj( obj );
obj->pIndexData->count -= obj->count;
numobjsloaded -= obj->count;
--physicalobjects;
if( obj->serial == cur_obj )
{
cur_obj_extracted = TRUE;
if( global_objcode == rNONE )
global_objcode = rOBJ_EXTRACTED;
}
return;
}
/*
* Extract a char from the world.
*/
void extract_char( CHAR_DATA * ch, bool fPull )
{
CHAR_DATA *wch;
OBJ_DATA *obj;
char buf[MAX_STRING_LENGTH];
ROOM_INDEX_DATA *location;
REL_DATA *RQueue, *rq_next;
if( !ch )
{
bug( "Extract_char: NULL ch.", 0 );
return;
}
if( !ch->in_room )
{
bug( "Extract_char: %s in NULL room.", ch->name ? ch->name : "???" );
return;
}
if( ch == supermob )
{
bug( "Extract_char: ch == supermob!", 0 );
return;
}
if( char_died( ch ) )
{
bug( "extract_char: %s already died!", ch->name );
return;
}
if( ch == cur_char )
cur_char_died = TRUE;
if( xIS_SET( ch->in_room->room_flags, ROOM_ARENA ) )
{
ch->hit = ch->max_hit;
ch->mana = ch->max_mana;
ch->move = ch->max_move;
}
/*
* shove onto extraction queue
*/
queue_extracted_char( ch, fPull );
for( RQueue = first_relation; RQueue; RQueue = rq_next )
{
rq_next = RQueue->next;
if( fPull && RQueue->Type == relMSET_ON )
{
if( ch == RQueue->Subject )
( ( CHAR_DATA * ) RQueue->Actor )->dest_buf = NULL;
else if( ch != RQueue->Actor )
continue;
UNLINK( RQueue, first_relation, last_relation, next, prev );
DISPOSE( RQueue );
}
}
if( gch_prev == ch )
gch_prev = ch->prev;
if( fPull )
die_follower( ch );
stop_fighting( ch, TRUE );
if( ch->mount )
{
xREMOVE_BIT( ch->mount->act, ACT_MOUNTED );
ch->mount = NULL;
ch->position = POS_STANDING;
}
/*
* check if this NPC was a mount or a pet
*/
if( IS_NPC( ch ) )
{
for( wch = first_char; wch; wch = wch->next )
{
if( wch->mount == ch )
{
wch->mount = NULL;
wch->position = POS_STANDING;
if( wch->in_room == ch->in_room )
{
act( AT_SOCIAL, "Your faithful mount, $N collapses beneath you...", wch, NULL, ch, TO_CHAR );
act( AT_SOCIAL, "Sadly you dismount $M for the last time.", wch, NULL, ch, TO_CHAR );
act( AT_PLAIN, "$n sadly dismounts $N for the last time.", wch, NULL, ch, TO_ROOM );
}
}
if( wch->pcdata && wch->pcdata->pet == ch )
{
wch->pcdata->pet = NULL;
if( wch->in_room == ch->in_room )
act( AT_SOCIAL, "You mourn for the loss of $N.", wch, NULL, ch, TO_CHAR );
}
}
}
xREMOVE_BIT( ch->act, ACT_MOUNTED );
if( IS_NPC( ch ) )
{
while( ( obj = ch->last_carrying ) != NULL )
extract_obj( obj );
}
char_from_room( ch );
if( !fPull )
{
location = NULL;
if( !IS_NPC( ch ) && ch->pcdata->clan )
location = get_room_index( ch->pcdata->clan->recall );
if( !location )
location = get_room_index( ROOM_VNUM_ALTAR );
if( !location )
location = get_room_index( 1 );
char_to_room( ch, location );
if( IS_PLR_FLAG( ch, PLR_ONMAP ) )
{
REMOVE_PLR_FLAG( ch, PLR_ONMAP );
REMOVE_PLR_FLAG( ch, PLR_MAPEDIT ); /* Just in case they were editing */
ch->x = -1;
ch->y = -1;
ch->map = -1;
}
/*
* Make things a little fancier -Thoric
*/
if( ( wch = get_char_room( ch, "healer" ) ) != NULL )
{
act( AT_MAGIC, "$n mutters a few incantations, waves $s hands and points $s finger.", wch, NULL, NULL, TO_ROOM );
act( AT_MAGIC, "$n appears from some strange swirling mists!", ch, NULL, NULL, TO_ROOM );
sprintf( buf, "Welcome back to the land of the living, %s", capitalize( ch->name ) );
do_say( wch, buf );
}
else
act( AT_MAGIC, "$n appears from some strange swirling mists!", ch, NULL, NULL, TO_ROOM );
ch->position = POS_RESTING;
return;
}
if( IS_NPC( ch ) )
{
--ch->pIndexData->count;
--nummobsloaded;
}
if( ch->desc && ch->desc->original )
do_return( ch, "" );
for( wch = first_char; wch; wch = wch->next )
{
if( wch->reply == ch )
wch->reply = NULL;
if( wch->retell == ch )
wch->retell = NULL;
}
UNLINK( ch, first_char, last_char, next, prev );
if( ch->desc )
{
if( ch->desc->character != ch )
bug( "Extract_char: char's descriptor points to another char", 0 );
else
{
ch->desc->character = NULL;
close_socket( ch->desc, FALSE );
ch->desc = NULL;
}
}
return;
}
/*
* Find a char in the room.
*/
CHAR_DATA *get_char_room( CHAR_DATA * ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *rch;
int number, count, vnum;
number = number_argument( argument, arg );
if( !str_cmp( arg, "self" ) )
return ch;
if( get_trust( ch ) >= LEVEL_SAVIOR && is_number( arg ) )
vnum = atoi( arg );
else
vnum = -1;
count = 0;
for( rch = ch->in_room->first_person; rch; rch = rch->next_in_room )
if( can_see( ch, rch, FALSE ) && ( nifty_is_name( arg, rch->name ) || ( IS_NPC( rch ) && vnum == rch->pIndexData->vnum ) ) )
{
if( number == 0 && !IS_NPC( rch ) )
return rch;
else if( ++count == number )
return rch;
}
if( vnum != -1 )
return NULL;
/*
* If we didn't find an exact match, run through the list of characters
* again looking for prefix matching, ie gu == guard.
* Added by Narn, Sept/96
*/
count = 0;
for( rch = ch->in_room->first_person; rch; rch = rch->next_in_room )
{
if( !can_see( ch, rch, FALSE ) || !nifty_is_name_prefix( arg, rch->name ) )
continue;
if( number == 0 && !IS_NPC( rch ) )
return rch;
else if( ++count == number )
return rch;
}
return NULL;
}
/*
* Find a char in the world.
*/
CHAR_DATA *get_char_world( CHAR_DATA * ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
CHAR_DATA *wch;
int number, count, vnum;
number = number_argument( argument, arg );
count = 0;
if( !str_cmp( arg, "self" ) )
return ch;
/*
* Allow reference by vnum for saints+ -Thoric
*/
if( get_trust( ch ) >= LEVEL_SAVIOR && is_number( arg ) )
vnum = atoi( arg );
else
vnum = -1;
/*
* check the room for an exact match
*/
for( wch = ch->in_room->first_person; wch; wch = wch->next_in_room )
if( can_see( ch, wch, TRUE ) && ( nifty_is_name( arg, wch->name ) || ( IS_NPC( wch ) && vnum == wch->pIndexData->vnum ) ) )
{
if( number == 0 && !IS_NPC( wch ) )
return wch;
else if( ++count == number )
return wch;
}
count = 0;
/*
* check the world for an exact match
*/
for( wch = first_char; wch; wch = wch->next )
if( can_see( ch, wch, TRUE ) && ( nifty_is_name( arg, wch->name ) || ( IS_NPC( wch ) && vnum == wch->pIndexData->vnum ) ) )
{
if( number == 0 && !IS_NPC( wch ) )
return wch;
else if( ++count == number )
return wch;
}
/*
* bail out if looking for a vnum match
*/
if( vnum != -1 )
return NULL;
/*
* If we didn't find an exact match, check the room for
* for a prefix match, ie gu == guard.
* Added by Narn, Sept/96
*/
count = 0;
for( wch = ch->in_room->first_person; wch; wch = wch->next_in_room )
{
if( !can_see( ch, wch, TRUE ) || !nifty_is_name_prefix( arg, wch->name ) )
continue;
if( number == 0 && !IS_NPC( wch ) )
return wch;
else if( ++count == number )
return wch;
}
/*
* If we didn't find a prefix match in the room, run through the full list
* of characters looking for prefix matching, ie gu == guard.
* Added by Narn, Sept/96
*/
count = 0;
for( wch = first_char; wch; wch = wch->next )
{
if( !can_see( ch, wch, TRUE ) || !nifty_is_name_prefix( arg, wch->name ) )
continue;
if( number == 0 && !IS_NPC( wch ) )
return wch;
else if( ++count == number )
return wch;
}
return NULL;
}
/*
* Find an obj in a list.
*/
OBJ_DATA *get_obj_list( CHAR_DATA * ch, char *argument, OBJ_DATA * list )
{
char arg[MAX_INPUT_LENGTH];
OBJ_DATA *obj;
int number;
int count;
number = number_argument( argument, arg );
count = 0;
for( obj = list; obj; obj = obj->next_content )
if( can_see_obj( ch, obj ) && nifty_is_name( arg, obj->name ) )
if( ( count += obj->count ) >= number )
return obj;
/*
* If we didn't find an exact match, run through the list of objects
* again looking for prefix matching, ie swo == sword.
* Added by Narn, Sept/96
*/
count = 0;
for( obj = list; obj; obj = obj->next_content )
if( can_see_obj( ch, obj ) && nifty_is_name_prefix( arg, obj->name ) )
if( ( count += obj->count ) >= number )
return obj;
return NULL;
}
/*
* Find an obj in a list...going the other way -Thoric
*/
OBJ_DATA *get_obj_list_rev( CHAR_DATA * ch, char *argument, OBJ_DATA * list )
{
char arg[MAX_INPUT_LENGTH];
OBJ_DATA *obj;
int number;
int count;
number = number_argument( argument, arg );
count = 0;
for( obj = list; obj; obj = obj->prev_content )
if( can_see_obj( ch, obj ) && nifty_is_name( arg, obj->name ) )
if( ( count += obj->count ) >= number )
return obj;
/*
* If we didn't find an exact match, run through the list of objects
* again looking for prefix matching, ie swo == sword.
* Added by Narn, Sept/96
*/
count = 0;
for( obj = list; obj; obj = obj->prev_content )
if( can_see_obj( ch, obj ) && nifty_is_name_prefix( arg, obj->name ) )
if( ( count += obj->count ) >= number )
return obj;
return NULL;
}
/*
* Find an obj in player's inventory or wearing via a vnum -Shaddai
*/
OBJ_DATA *get_obj_vnum( CHAR_DATA * ch, int vnum )
{
OBJ_DATA *obj;
for( obj = ch->last_carrying; obj; obj = obj->prev_content )
if( can_see_obj( ch, obj ) && obj->pIndexData->vnum == vnum )
return obj;
return NULL;
}
/*
* Find an obj in player's inventory.
*/
OBJ_DATA *get_obj_carry( CHAR_DATA * ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
OBJ_DATA *obj;
int number, count, vnum;
number = number_argument( argument, arg );
if( get_trust( ch ) >= LEVEL_SAVIOR && is_number( arg ) )
vnum = atoi( arg );
else
vnum = -1;
count = 0;
for( obj = ch->last_carrying; obj; obj = obj->prev_content )
if( obj->wear_loc == WEAR_NONE && can_see_obj( ch, obj ) && ( nifty_is_name( arg, obj->name ) || obj->pIndexData->vnum == vnum ) )
if( ( count += obj->count ) >= number )
return obj;
if( vnum != -1 )
return NULL;
/*
* If we didn't find an exact match, run through the list of objects
* again looking for prefix matching, ie swo == sword.
* Added by Narn, Sept/96
*/
count = 0;
for( obj = ch->last_carrying; obj; obj = obj->prev_content )
if( obj->wear_loc == WEAR_NONE && can_see_obj( ch, obj ) && nifty_is_name_prefix( arg, obj->name ) )
if( ( count += obj->count ) >= number )
return obj;
return NULL;
}
/*
* Find an obj in player's equipment.
*/
OBJ_DATA *get_obj_wear( CHAR_DATA * ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
OBJ_DATA *obj;
int number, count, vnum;
number = number_argument( argument, arg );
if( get_trust( ch ) >= LEVEL_SAVIOR && is_number( arg ) )
vnum = atoi( arg );
else
vnum = -1;
count = 0;
for( obj = ch->last_carrying; obj; obj = obj->prev_content )
if( obj->wear_loc != WEAR_NONE && can_see_obj( ch, obj ) && ( nifty_is_name( arg, obj->name ) || obj->pIndexData->vnum == vnum ) )
if( ++count == number )
return obj;
if( vnum != -1 )
return NULL;
/*
* If we didn't find an exact match, run through the list of objects
* again looking for prefix matching, ie swo == sword.
* Added by Narn, Sept/96
*/
count = 0;
for( obj = ch->last_carrying; obj; obj = obj->prev_content )
if( obj->wear_loc != WEAR_NONE && can_see_obj( ch, obj ) && nifty_is_name_prefix( arg, obj->name ) )
if( ++count == number )
return obj;
return NULL;
}
/*
* Find an obj in the room or in inventory.
*/
OBJ_DATA *get_obj_here( CHAR_DATA * ch, char *argument )
{
OBJ_DATA *obj;
obj = get_obj_list_rev( ch, argument, ch->in_room->last_content );
if( obj && ch->map == obj->map && ch->x == obj->x && ch->y == obj->y )
return obj;
if( ( obj = get_obj_carry( ch, argument ) ) != NULL )
return obj;
if( ( obj = get_obj_wear( ch, argument ) ) != NULL )
return obj;
return NULL;
}
/*
* Find an obj in the world.
*/
OBJ_DATA *get_obj_world( CHAR_DATA * ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
OBJ_DATA *obj;
int number, count, vnum;
if( ( obj = get_obj_here( ch, argument ) ) != NULL )
return obj;
number = number_argument( argument, arg );
/*
* Allow reference by vnum for saints+ -Thoric
*/
if( get_trust( ch ) >= LEVEL_SAVIOR && is_number( arg ) )
vnum = atoi( arg );
else
vnum = -1;
count = 0;
for( obj = first_object; obj; obj = obj->next )
if( can_see_obj( ch, obj ) && ( nifty_is_name( arg, obj->name ) || vnum == obj->pIndexData->vnum ) )
if( ( count += obj->count ) >= number )
return obj;
/*
* bail out if looking for a vnum
*/
if( vnum != -1 )
return NULL;
/*
* If we didn't find an exact match, run through the list of objects
* again looking for prefix matching, ie swo == sword.
* Added by Narn, Sept/96
*/
count = 0;
for( obj = first_object; obj; obj = obj->next )
if( can_see_obj( ch, obj ) && nifty_is_name_prefix( arg, obj->name ) )
if( ( count += obj->count ) >= number )
return obj;
return NULL;
}
/*
* Generic get obj function that supports optional containers. -Thoric
* currently only used for "eat" and "quaff".
*/
OBJ_DATA *find_obj( CHAR_DATA * ch, char *argument, bool carryonly )
{
char arg1[MAX_INPUT_LENGTH];
char arg2[MAX_INPUT_LENGTH];
OBJ_DATA *obj = NULL;
argument = one_argument( argument, arg1 );
argument = one_argument( argument, arg2 );
if( !str_cmp( arg2, "from" ) && argument[0] != STRING_NULL )
argument = one_argument( argument, arg2 );
if( arg2[0] == STRING_NULL )
{
if( carryonly && ( obj = get_obj_carry( ch, arg1 ) ) == NULL )
{
send_to_char( "You do not have that item.\r\n", ch );
return NULL;
}
else if( !carryonly && ( obj = get_obj_here( ch, arg1 ) ) == NULL )
{
act( AT_PLAIN, "I see no $T here.", ch, NULL, arg1, TO_CHAR );
return NULL;
}
return obj;
}
else
{
OBJ_DATA *container = NULL;
if( carryonly && ( container = get_obj_carry( ch, arg2 ) ) == NULL && ( container = get_obj_wear( ch, arg2 ) ) == NULL )
{
send_to_char( "You do not have that item.\r\n", ch );
return NULL;
}
if( !carryonly && ( container = get_obj_here( ch, arg2 ) ) == NULL )
{
act( AT_PLAIN, "I see no $T here.", ch, NULL, arg2, TO_CHAR );
return NULL;
}
if( !IS_OBJ_STAT( container, ITEM_COVERING ) && IS_SET( container->value[1], CONT_CLOSED ) )
{
act( AT_PLAIN, "The $d is closed.", ch, NULL, container->name, TO_CHAR );
return NULL;
}
obj = get_obj_list( ch, arg1, container->first_content );
if( !obj )
act( AT_PLAIN, IS_OBJ_STAT( container, ITEM_COVERING ) ? "I see nothing like that beneath $p." : "I see nothing like that in $p.", ch, container, NULL, TO_CHAR );
return obj;
}
return NULL;
}
int get_obj_number( OBJ_DATA * obj )
{
return obj->count;
}
/*
* Return TRUE if an object is, or nested inside a magic container
*/
bool in_magic_container( OBJ_DATA * obj )
{
if( obj->item_type == ITEM_CONTAINER && IS_OBJ_STAT( obj, ITEM_MAGIC ) )
return TRUE;
if( obj->in_obj )
return in_magic_container( obj->in_obj );
return FALSE;
}
/*
* Return weight of an object, including weight of contents (unless magic).
*/
int get_obj_weight( OBJ_DATA * obj )
{
int weight;
weight = obj->count * obj->weight;
/*
* magic containers
*/
if( obj->item_type != ITEM_CONTAINER || !IS_OBJ_STAT( obj, ITEM_MAGIC ) )
for( obj = obj->first_content; obj; obj = obj->next_content )
weight += get_obj_weight( obj );
return weight;
}
/*
* Return real weight of an object, including weight of contents.
*/
int get_real_obj_weight( OBJ_DATA * obj )
{
int weight;
weight = obj->count * obj->weight;
for( obj = obj->first_content; obj; obj = obj->next_content )
weight += get_real_obj_weight( obj );
return weight;
}
/*
* True if room is dark.
*/
bool room_is_dark( ROOM_INDEX_DATA * pRoomIndex )
{
if( !pRoomIndex )
{
bug( "room_is_dark: NULL pRoomIndex", 0 );
return FALSE;
}
if( pRoomIndex->light > 0 )
return FALSE;
if( xIS_SET( pRoomIndex->room_flags, ROOM_DARK ) )
return TRUE;
if( pRoomIndex->sector_type == SECT_INSIDE || pRoomIndex->sector_type == SECT_CITY )
return FALSE;
if( time_info.sunlight == SUN_SET || time_info.sunlight == SUN_DARK )
return TRUE;
return FALSE;
}
/*
* If room is "do not disturb" return the pointer to the imm with dnd flag
* NULL if room is not "do not disturb".
*/
CHAR_DATA *room_is_dnd( CHAR_DATA * ch, ROOM_INDEX_DATA * pRoomIndex )
{
CHAR_DATA *rch;
if( !pRoomIndex )
{
bug( "room_is_dnd: NULL pRoomIndex", 0 );
return NULL;
}
if( !xIS_SET( pRoomIndex->room_flags, ROOM_DND ) )
return NULL;
for( rch = pRoomIndex->first_person; rch; rch = rch->next_in_room )
{
if( !IS_NPC( rch ) && rch->pcdata && IS_IMMORTAL( rch ) && IS_SET( rch->pcdata->flags, PCFLAG_DND ) && get_trust( ch ) < get_trust( rch ) && can_see( ch, rch, FALSE ) )
return rch;
}
return NULL;
}
/*
* True if room is private.
*/
bool room_is_private( ROOM_INDEX_DATA * pRoomIndex )
{
CHAR_DATA *rch;
int count;
if( !pRoomIndex )
{
bug( "room_is_private: NULL pRoomIndex", 0 );
return FALSE;
}
count = 0;
for( rch = pRoomIndex->first_person; rch; rch = rch->next_in_room )
count++;
if( xIS_SET( pRoomIndex->room_flags, ROOM_PRIVATE ) && count >= 2 )
return TRUE;
if( xIS_SET( pRoomIndex->room_flags, ROOM_SOLITARY ) && count >= 1 )
return TRUE;
return FALSE;
}
/*
* True if char can see victim.
*/
bool can_see( CHAR_DATA * ch, CHAR_DATA * victim, bool override )
{
if( !victim ) /* Gorog - panicked attempt to stop crashes */
return FALSE;
if( !ch )
{
if( IS_AFFECTED( victim, AFF_INVISIBLE ) || IS_AFFECTED( victim, AFF_HIDE ) || xIS_SET( victim->act, PLR_WIZINVIS ) )
return FALSE;
else
return TRUE;
}
if( ch == victim )
return TRUE;
if( IS_PLR_FLAG( victim, PLR_WIZINVIS ) && ch->level < victim->pcdata->wizinvis )
return FALSE;
/*
* SB
*/
if( IS_ACT_FLAG( victim, ACT_MOBINVIS ) && ch->level < victim->mobinvis )
return FALSE;
/*
* Deadlies link-dead over 2 ticks aren't seen by mortals -- Blodkai
*/
if( !IS_IMMORTAL( ch ) && !IS_NPC( ch ) && !IS_NPC( victim ) && IS_PKILL( victim ) && victim->timer > 1 && !victim->desc )
return FALSE;
if( ( IS_PLR_FLAG( ch, PLR_ONMAP ) || IS_ACT_FLAG( ch, ACT_ONMAP ) ) && override == FALSE )
{
if( !is_same_map( ch, victim ) )
return FALSE;
}
if( IS_PLR_FLAG( ch, PLR_HOLYLIGHT ) )
return TRUE;
/*
* The miracle cure for blindness? -- Altrag
*/
if( !IS_AFFECTED( ch, AFF_TRUESIGHT ) )
{
if( IS_AFFECTED( ch, AFF_BLIND ) )
return FALSE;
if( room_is_dark( ch->in_room ) && !IS_AFFECTED( ch, AFF_INFRARED ) )
return FALSE;
if( IS_AFFECTED( victim, AFF_INVISIBLE ) && !IS_AFFECTED( ch, AFF_DETECT_INVIS ) )
return FALSE;
if( IS_AFFECTED( victim, AFF_HIDE ) && !IS_AFFECTED( ch, AFF_DETECT_HIDDEN ) && !victim->fighting && ( IS_NPC( ch ) ? !IS_NPC( victim ) : IS_NPC( victim ) ) )
return FALSE;
}
return TRUE;
}
/*
* True if char can see obj.
*/
bool can_see_obj( CHAR_DATA * ch, OBJ_DATA * obj )
{
if( IS_OBJ_STAT( obj, ITEM_ONMAP ) )
{
if( !IS_NPC( ch ) && !IS_PLR_FLAG( ch, PLR_ONMAP ) )
return FALSE;
if( IS_NPC( ch ) && !IS_ACT_FLAG( ch, ACT_ONMAP ) )
return FALSE;
if( ch->map != obj->map || ch->x != obj->x || ch->y != obj->y )
return FALSE;
}
if( !IS_NPC( ch ) && xIS_SET( ch->act, PLR_HOLYLIGHT ) )
return TRUE;
if( IS_NPC( ch ) && ch->pIndexData->vnum == 3 )
return TRUE;
if( IS_OBJ_STAT( obj, ITEM_BURIED ) )
return FALSE;
if( IS_OBJ_STAT( obj, ITEM_HIDDEN ) )
return FALSE;
if( IS_AFFECTED( ch, AFF_TRUESIGHT ) )
return TRUE;
if( IS_AFFECTED( ch, AFF_BLIND ) )
return FALSE;
/*
* can see lights in the dark
*/
if( obj->item_type == ITEM_LIGHT && obj->value[2] != 0 )
return TRUE;
if( room_is_dark( ch->in_room ) )
{
/*
* can see glowing items in the dark... invisible or not
*/
if( IS_OBJ_STAT( obj, ITEM_GLOW ) )
return TRUE;
if( !IS_AFFECTED( ch, AFF_INFRARED ) )
return FALSE;
}
if( IS_OBJ_STAT( obj, ITEM_INVIS ) && !IS_AFFECTED( ch, AFF_DETECT_INVIS ) )
return FALSE;
return TRUE;
}
/*
* True if char can drop obj.
*/
bool can_drop_obj( CHAR_DATA * ch, OBJ_DATA * obj )
{
if( !IS_OBJ_STAT( obj, ITEM_NODROP ) )
return TRUE;
if( !IS_NPC( ch ) && ch->level >= LEVEL_IMMORTAL )
return TRUE;
if( IS_NPC( ch ) && ch->pIndexData->vnum == 3 )
return TRUE;
return FALSE;
}
/*
* Return ascii name of an item type.
*/
char *item_type_name( OBJ_DATA * obj )
{
if( obj->item_type < 1 || obj->item_type > MAX_ITEM_TYPE )
{
bug( "Item_type_name: unknown type %d.", obj->item_type );
return "(unknown)";
}
return o_types[obj->item_type];
}
/*
* Return ascii name of an affect location.
*/
char *affect_loc_name( int location )
{
switch ( location )
{
case APPLY_NONE:
return "none";
case APPLY_STR:
return "strength";
case APPLY_DEX:
return "dexterity";
case APPLY_INT:
return "intelligence";
case APPLY_WIS:
return "wisdom";
case APPLY_CON:
return "constitution";
case APPLY_CHA:
return "charisma";
case APPLY_LCK:
return "luck";
case APPLY_SEX:
return "sex";
case APPLY_CLASS:
return "Class";
case APPLY_LEVEL:
return "level";
case APPLY_AGE:
return "age";
case APPLY_MANA:
return "mana";
case APPLY_HIT:
return "hp";
case APPLY_MOVE:
return "moves";
case APPLY_GOLD:
return "gold";
case APPLY_EXP:
return "experience";
case APPLY_AC:
return "armor Class";
case APPLY_HITROLL:
return "hit roll";
case APPLY_DAMROLL:
return "damage roll";
case APPLY_SAVING_POISON:
return "save vs poison";
case APPLY_SAVING_MENTAL:
return "save vs mental";
case APPLY_SAVING_PHYSICAL:
return "save vs physical";
case APPLY_SAVING_WEAPONS:
return "save vs weapon";
case APPLY_NOT_USED:
return "NOT USED";
case APPLY_HEIGHT:
return "height";
case APPLY_WEIGHT:
return "weight";
case APPLY_AFFECT:
return "affected_by";
case APPLY_RESISTANT:
return "resistant";
case APPLY_IMMUNE:
return "immune";
case APPLY_SUSCEPTIBLE:
return "susceptible";
case APPLY_BACKSTAB:
return "backstab";
case APPLY_PICK:
return "pick";
case APPLY_TRACK:
return "track";
case APPLY_STEAL:
return "steal";
case APPLY_SNEAK:
return "sneak";
case APPLY_HIDE:
return "hide";
case APPLY_PALM:
return "palm";
case APPLY_DODGE:
return "dodge";
case APPLY_PEEK:
return "peek";
case APPLY_SCAN:
return "scan";
case APPLY_GOUGE:
return "gouge";
case APPLY_SEARCH:
return "search";
case APPLY_MOUNT:
return "mount";
case APPLY_DISARM:
return "disarm";
case APPLY_KICK:
return "kick";
case APPLY_PARRY:
return "parry";
case APPLY_BASH:
return "bash";
case APPLY_STUN:
return "stun";
case APPLY_PUNCH:
return "punch";
case APPLY_CLIMB:
return "climb";
case APPLY_GRIP:
return "grip";
case APPLY_SCRIBE:
return "scribe";
case APPLY_BREW:
return "brew";
case APPLY_WEAPONSPELL:
return "weapon spell";
case APPLY_WEARSPELL:
return "wear spell";
case APPLY_REMOVESPELL:
return "remove spell";
case APPLY_STRIPSN:
return "dispel";
case APPLY_REMOVE:
return "remove";
case APPLY_DIG:
return "dig";
case APPLY_FULL:
return "hunger";
case APPLY_THIRST:
return "thirst";
case APPLY_BLOOD:
return "blood";
case APPLY_RECURRINGSPELL:
return "recurring spell";
case APPLY_CONTAGIOUS:
return "contagious";
case APPLY_ODOR:
return "odor";
case APPLY_ROOMFLAG:
return "roomflag";
case APPLY_SECTORTYPE:
return "sectortype";
case APPLY_ROOMLIGHT:
return "roomlight";
case APPLY_TELEVNUM:
return "teleport vnum";
case APPLY_TELEDELAY:
return "teleport delay";
};
bug( "Affect_location_name: unknown location %d.", location );
return "(unknown)";
}
/*
* Return ascii name of an affect bit vector.
*/
char *affect_bit_name( EXT_BV * vector )
{
static char buf[512];
buf[0] = STRING_NULL;
if( xIS_SET( *vector, AFF_BLIND ) )
strcat( buf, " blind" );
if( xIS_SET( *vector, AFF_INVISIBLE ) )
strcat( buf, " invisible" );
if( xIS_SET( *vector, AFF_DETECT_EVIL ) )
strcat( buf, " detect_evil" );
if( xIS_SET( *vector, AFF_DETECT_INVIS ) )
strcat( buf, " detect_invis" );
if( xIS_SET( *vector, AFF_DETECT_MAGIC ) )
strcat( buf, " detect_magic" );
if( xIS_SET( *vector, AFF_DETECT_HIDDEN ) )
strcat( buf, " detect_hidden" );
if( xIS_SET( *vector, AFF_HOLD ) )
strcat( buf, " hold" );
if( xIS_SET( *vector, AFF_SANCTUARY ) )
strcat( buf, " sanctuary" );
if( xIS_SET( *vector, AFF_FAERIE_FIRE ) )
strcat( buf, " faerie_fire" );
if( xIS_SET( *vector, AFF_INFRARED ) )
strcat( buf, " infrared" );
if( xIS_SET( *vector, AFF_CURSE ) )
strcat( buf, " curse" );
if( xIS_SET( *vector, AFF_FLAMING ) )
strcat( buf, " flaming" );
if( xIS_SET( *vector, AFF_POISON ) )
strcat( buf, " poison" );
if( xIS_SET( *vector, AFF_PROTECT ) )
strcat( buf, " protect" );
if( xIS_SET( *vector, AFF_PARALYSIS ) )
strcat( buf, " paralysis" );
if( xIS_SET( *vector, AFF_SLEEP ) )
strcat( buf, " sleep" );
if( xIS_SET( *vector, AFF_SNEAK ) )
strcat( buf, " sneak" );
if( xIS_SET( *vector, AFF_HIDE ) )
strcat( buf, " hide" );
if( xIS_SET( *vector, AFF_CHARM ) )
strcat( buf, " charm" );
if( xIS_SET( *vector, AFF_POSSESS ) )
strcat( buf, " possess" );
if( xIS_SET( *vector, AFF_FLYING ) )
strcat( buf, " flying" );
if( xIS_SET( *vector, AFF_PASS_DOOR ) )
strcat( buf, " pass_door" );
if( xIS_SET( *vector, AFF_FLOATING ) )
strcat( buf, " floating" );
if( xIS_SET( *vector, AFF_TRUESIGHT ) )
strcat( buf, " true_sight" );
if( xIS_SET( *vector, AFF_SCRYING ) )
strcat( buf, " scrying" );
if( xIS_SET( *vector, AFF_FIRESHIELD ) )
strcat( buf, " fireshield" );
if( xIS_SET( *vector, AFF_ACIDMIST ) )
strcat( buf, " acidmist" );
if( xIS_SET( *vector, AFF_VENOMSHIELD ) )
strcat( buf, " venomshield" );
if( xIS_SET( *vector, AFF_SHOCKSHIELD ) )
strcat( buf, " shockshield" );
if( xIS_SET( *vector, AFF_ICESHIELD ) )
strcat( buf, " iceshield" );
if( xIS_SET( *vector, AFF_BERSERK ) )
strcat( buf, " berserk" );
if( xIS_SET( *vector, AFF_AQUA_BREATH ) )
strcat( buf, " aqua_breath" );
return ( buf[0] != STRING_NULL ) ? buf + 1 : "none";
}
/*
* Return ascii name of extra flags vector.
*/
char *extra_bit_name( EXT_BV * extra_flags )
{
static char buf[512];
buf[0] = STRING_NULL;
if( xIS_SET( *extra_flags, ITEM_GLOW ) )
strcat( buf, " glow" );
if( xIS_SET( *extra_flags, ITEM_HUM ) )
strcat( buf, " hum" );
if( xIS_SET( *extra_flags, ITEM_DARK ) )
strcat( buf, " dark" );
if( xIS_SET( *extra_flags, ITEM_LOYAL ) )
strcat( buf, " loyal" );
if( xIS_SET( *extra_flags, ITEM_EVIL ) )
strcat( buf, " evil" );
if( xIS_SET( *extra_flags, ITEM_INVIS ) )
strcat( buf, " invis" );
if( xIS_SET( *extra_flags, ITEM_MAGIC ) )
strcat( buf, " magic" );
if( xIS_SET( *extra_flags, ITEM_NODROP ) )
strcat( buf, " nodrop" );
if( xIS_SET( *extra_flags, ITEM_BLESS ) )
strcat( buf, " bless" );
if( xIS_SET( *extra_flags, ITEM_ANTI_GOOD ) )
strcat( buf, " anti-good" );
if( xIS_SET( *extra_flags, ITEM_ANTI_EVIL ) )
strcat( buf, " anti-evil" );
if( xIS_SET( *extra_flags, ITEM_ANTI_NEUTRAL ) )
strcat( buf, " anti-neutral" );
if( xIS_SET( *extra_flags, ITEM_NOREMOVE ) )
strcat( buf, " noremove" );
if( xIS_SET( *extra_flags, ITEM_INVENTORY ) )
strcat( buf, " inventory" );
if( xIS_SET( *extra_flags, ITEM_DEATHROT ) )
strcat( buf, " deathrot" );
if( xIS_SET( *extra_flags, ITEM_GROUNDROT ) )
strcat( buf, " groundrot" );
if( xIS_SET( *extra_flags, ITEM_ORGANIC ) )
strcat( buf, " organic" );
if( xIS_SET( *extra_flags, ITEM_METAL ) )
strcat( buf, " metal" );
if( xIS_SET( *extra_flags, ITEM_DONATION ) )
strcat( buf, " donation" );
if( xIS_SET( *extra_flags, ITEM_CLANOBJECT ) )
strcat( buf, " clan" );
if( xIS_SET( *extra_flags, ITEM_CLANCORPSE ) )
strcat( buf, " clanbody" );
if( xIS_SET( *extra_flags, ITEM_PROTOTYPE ) )
strcat( buf, " prototype" );
if( xIS_SET( *extra_flags, ITEM_REFINED ) )
strcat( buf, " refined" );
if( xIS_SET( *extra_flags, ITEM_UNIQUE ) )
strcat( buf, " unique" );
if( xIS_SET( *extra_flags, ITEM_ELITE ) )
strcat( buf, " elite" );
return ( buf[0] != STRING_NULL ) ? buf + 1 : "none";
}
/*
* Return ascii name of magic flags vector. - Scryn
*/
char *magic_bit_name( int magic_flags )
{
static char buf[512];
buf[0] = STRING_NULL;
if( magic_flags & ITEM_RETURNING )
strcat( buf, " returning" );
return ( buf[0] != STRING_NULL ) ? buf + 1 : "none";
}
/*
* Return ascii name of pulltype exit setting.
*/
char *pull_type_name( int pulltype )
{
if( pulltype >= PT_FIRE )
return ex_pfire[pulltype - PT_FIRE];
if( pulltype >= PT_AIR )
return ex_pair[pulltype - PT_AIR];
if( pulltype >= PT_EARTH )
return ex_pearth[pulltype - PT_EARTH];
if( pulltype >= PT_WATER )
return ex_pwater[pulltype - PT_WATER];
if( pulltype < 0 )
return "ERROR";
return ex_pmisc[pulltype];
}
/*
* Return a pointer to the first object of a certain type found that
* a player is carrying/wearing
*/
OBJ_DATA *get_objtype( CHAR_DATA * ch, short type )
{
OBJ_DATA *obj;
for( obj = ch->first_carrying; obj; obj = obj->next_content )
if( obj->item_type == type )
return obj;
return NULL;
}
/*
* Remove an exit from a room -Thoric
*/
void extract_exit( ROOM_INDEX_DATA * room, EXIT_DATA * pexit )
{
UNLINK( pexit, room->first_exit, room->last_exit, next, prev );
if( pexit->rexit )
pexit->rexit->rexit = NULL;
STRFREE( pexit->keyword );
STRFREE( pexit->description );
DISPOSE( pexit );
}
/*
* Remove a room
*/
void extract_room( ROOM_INDEX_DATA * room )
{
bug( "extract_room: not implemented", 0 );
/*
* (remove room from hash table)
* clean_room( room )
* DISPOSE( room );
*/
return;
}
/*
* clean out a room (leave list pointers intact ) -Thoric
*/
void clean_room( ROOM_INDEX_DATA * room )
{
EXTRA_DESCR_DATA *ed, *ed_next;
EXIT_DATA *pexit, *pexit_next;
MPROG_DATA *mprog, *mprog_next;
STRFREE( room->description );
STRFREE( room->name );
for( mprog = room->mudprogs; mprog; mprog = mprog_next )
{
mprog_next = mprog->next;
STRFREE( mprog->arglist );
STRFREE( mprog->comlist );
DISPOSE( mprog );
}
for( ed = room->first_extradesc; ed; ed = ed_next )
{
ed_next = ed->next;
STRFREE( ed->description );
STRFREE( ed->keyword );
DISPOSE( ed );
top_ed--;
}
room->first_extradesc = NULL;
room->last_extradesc = NULL;
for( pexit = room->first_exit; pexit; pexit = pexit_next )
{
pexit_next = pexit->next;
extract_exit( room, pexit );
top_exit--;
}
room->first_exit = NULL;
room->last_exit = NULL;
xSET_BIT( room->room_flags, ROOM_DARK );
room->sector_type = 0;
room->light = 0;
}
/*
* clean out an object (index) (leave list pointers intact ) -Thoric
*/
void clean_obj( OBJ_INDEX_DATA * obj )
{
AFFECT_DATA *paf, *paf_next;
EXTRA_DESCR_DATA *ed, *ed_next;
MPROG_DATA *mprog, *mprog_next;
STRFREE( obj->name );
STRFREE( obj->short_descr );
STRFREE( obj->description );
STRFREE( obj->action_desc );
obj->item_type = 0;
xCLEAR_BITS( obj->extra_flags );
obj->wear_flags = 0;
obj->count = 0;
obj->weight = 0;
obj->cost = 0;
obj->value[0] = 0;
obj->value[1] = 0;
obj->value[2] = 0;
obj->value[3] = 0;
obj->value[4] = 0;
obj->value[5] = 0;
for( paf = obj->first_affect; paf; paf = paf_next )
{
paf_next = paf->next;
DISPOSE( paf );
top_affect--;
}
obj->first_affect = NULL;
obj->last_affect = NULL;
for( ed = obj->first_extradesc; ed; ed = ed_next )
{
ed_next = ed->next;
STRFREE( ed->description );
STRFREE( ed->keyword );
DISPOSE( ed );
top_ed--;
}
obj->first_extradesc = NULL;
obj->last_extradesc = NULL;
for( mprog = obj->mudprogs; mprog; mprog = mprog_next )
{
mprog_next = mprog->next;
STRFREE( mprog->arglist );
STRFREE( mprog->comlist );
DISPOSE( mprog );
}
}
/*
* clean out a mobile (index) (leave list pointers intact ) -Thoric
*/
void clean_mob( MOB_INDEX_DATA * mob )
{
MPROG_DATA *mprog, *mprog_next;
STRFREE( mob->player_name );
STRFREE( mob->short_descr );
STRFREE( mob->long_descr );
STRFREE( mob->description );
mob->spec_fun = NULL;
mob->pShop = NULL;
mob->rShop = NULL;
xCLEAR_BITS( mob->progtypes );
for( mprog = mob->mudprogs; mprog; mprog = mprog_next )
{
mprog_next = mprog->next;
STRFREE( mprog->arglist );
STRFREE( mprog->comlist );
DISPOSE( mprog );
}
mob->count = 0;
mob->killed = 0;
mob->sex = 0;
mob->level = 0;
xCLEAR_BITS( mob->act );
xCLEAR_BITS( mob->affected_by );
mob->alignment = 0;
mob->mobthac0 = 0;
mob->ac = 0;
mob->hitnodice = 0;
mob->hitsizedice = 0;
mob->hitplus = 0;
mob->damnodice = 0;
mob->damsizedice = 0;
mob->damplus = 0;
mob->gold = 0;
mob->exp = 0;
mob->position = 0;
mob->defposition = 0;
mob->height = 0;
mob->weight = 0; /* mob->vnum = 0; */
xCLEAR_BITS( mob->attacks );
xCLEAR_BITS( mob->defenses );
}
extern int top_reset;
/*
* Remove all resets from an area -Thoric
*/
void clean_resets( ROOM_INDEX_DATA * room )
{
RESET_DATA *pReset, *pReset_next;
for( pReset = room->first_reset; pReset; pReset = pReset_next )
{
pReset_next = pReset->next;
delete_reset( pReset );
--top_reset;
}
room->first_reset = NULL;
room->last_reset = NULL;
}
/*
* "Roll" players stats based on the character name -Thoric
*/
/* Rewritten by Whir. Thanks to Vor/Casteele for help 2-1-98 */
/* Racial bonus calculations moved to this function and removed
from comm.c - Samson 2-2-98 */
/* Updated to AD&D standards by Samson 9-5-98 */
/* Changed to use internal random number generator instead of
OS dependant random() function - Samson 9-5-98 */
void name_stamp_stats( CHAR_DATA * ch )
{
ch->perm_str = 4 + dice( 2, 6 );
ch->perm_dex = 4 + dice( 2, 6 );
ch->perm_wis = 4 + dice( 2, 6 );
ch->perm_int = 4 + dice( 2, 6 );
ch->perm_con = 4 + dice( 2, 6 );
ch->perm_cha = 4 + dice( 2, 6 );
ch->perm_lck = 4 + dice( 2, 6 );
ch->perm_str += race_table[ch->race]->str_plus;
ch->perm_int += race_table[ch->race]->int_plus;
ch->perm_wis += race_table[ch->race]->wis_plus;
ch->perm_dex += race_table[ch->race]->dex_plus;
ch->perm_con += race_table[ch->race]->con_plus;
ch->perm_cha += race_table[ch->race]->cha_plus;
ch->perm_lck += race_table[ch->race]->lck_plus;
}
/*
* "Fix" a character's stats -Thoric
*/
void fix_char( CHAR_DATA * ch )
{
AFFECT_DATA *aff;
OBJ_DATA *obj;
de_equip_char( ch );
for( aff = ch->first_affect; aff; aff = aff->next )
affect_modify( ch, aff, FALSE );
xCLEAR_BITS( ch->affected_by );
xSET_BITS( ch->affected_by, race_table[ch->race]->affected );
ch->hit = UMAX( 1, ch->hit );
ch->mana = UMAX( 1, ch->mana );
ch->move = UMAX( 1, ch->move );
ch->armor = 100;
ch->mod_str = 0;
ch->mod_dex = 0;
ch->mod_wis = 0;
ch->mod_int = 0;
ch->mod_con = 0;
ch->mod_cha = 0;
ch->mod_lck = 0;
ch->damroll = 0;
ch->hitroll = 0;
ch->alignment = URANGE( -1000, ch->alignment, 1000 );
ch->saving_weapons = 0;
ch->saving_mental = 0;
ch->saving_physical = 0;
ch->saving_poison_death = 0;
for( aff = ch->first_affect; aff; aff = aff->next )
affect_modify( ch, aff, TRUE );
ch->carry_weight = 0;
ch->carry_number = 0;
for( obj = ch->first_carrying; obj; obj = obj->next_content )
{
if( obj->wear_loc == WEAR_NONE )
ch->carry_number += get_obj_number( obj );
if( !xIS_SET( obj->extra_flags, ITEM_MAGIC ) )
ch->carry_weight += get_obj_weight( obj );
}
re_equip_char( ch );
}
/*
* Show an affect verbosely to a character -Thoric
*/
void showaffect( CHAR_DATA * ch, AFFECT_DATA * paf )
{
char buf[MAX_STRING_LENGTH];
int x;
if( !paf )
{
bug( "showaffect: NULL paf", 0 );
return;
}
if( paf->location != APPLY_NONE && paf->modifier != 0 )
{
switch ( paf->location )
{
default:
sprintf( buf, "Affects %s by %d.\r\n", affect_loc_name( paf->location ), paf->modifier );
break;
case APPLY_AFFECT:
sprintf( buf, "Affects %s by", affect_loc_name( paf->location ) );
for( x = 0; x < 32; x++ )
if( IS_SET( paf->modifier, 1 << x ) )
{
strcat( buf, " " );
strcat( buf, a_flags[x] );
}
strcat( buf, "\r\n" );
break;
case APPLY_WEAPONSPELL:
sprintf( buf, "Weapons Affect: '%s'\r\n", IS_VALID_SN( paf->modifier ) ? skill_table[paf->modifier]->name : "unknown" );
break;
case APPLY_WEARSPELL:
case APPLY_REMOVESPELL:
sprintf( buf, "Casts spell '%s'\r\n", IS_VALID_SN( paf->modifier ) ? skill_table[paf->modifier]->name : "unknown" );
break;
case APPLY_RESISTANT:
case APPLY_IMMUNE:
case APPLY_SUSCEPTIBLE:
sprintf( buf, "Affects %s by", affect_loc_name( paf->location ) );
for( x = 0; x < 32; x++ )
if( IS_SET( paf->modifier, 1 << x ) )
{
strcat( buf, " " );
strcat( buf, ris_flags[x] );
}
strcat( buf, "\r\n" );
break;
}
send_to_char( buf, ch );
}
}
/*
* Set the current global object to obj -Thoric
*/
void set_cur_obj( OBJ_DATA * obj )
{
cur_obj = obj->serial;
cur_obj_extracted = FALSE;
global_objcode = rNONE;
}
/*
* Check the recently extracted object queue for obj -Thoric
*/
bool obj_extracted( OBJ_DATA * obj )
{
OBJ_DATA *cod;
if( obj->serial == cur_obj && cur_obj_extracted )
return TRUE;
for( cod = extracted_obj_queue; cod; cod = cod->next )
if( obj == cod )
return TRUE;
return FALSE;
}
/*
* Stick obj onto extraction queue
*/
void queue_extracted_obj( OBJ_DATA * obj )
{
++cur_qobjs;
obj->next = extracted_obj_queue;
extracted_obj_queue = obj;
}
/*
* Clean out the extracted object queue
*/
void clean_obj_queue( )
{
OBJ_DATA *obj;
while( extracted_obj_queue )
{
obj = extracted_obj_queue;
extracted_obj_queue = extracted_obj_queue->next;
STRFREE( obj->name );
STRFREE( obj->description );
STRFREE( obj->short_descr );
STRFREE( obj->action_desc );
DISPOSE( obj );
--cur_qobjs;
}
}
/*
* Set the current global character to ch -Thoric
*/
void set_cur_char( CHAR_DATA * ch )
{
cur_char = ch;
cur_char_died = FALSE;
cur_room = ch->in_room;
global_retcode = rNONE;
}
/*
* Check to see if ch died recently -Thoric
*/
bool char_died( CHAR_DATA * ch )
{
EXTRACT_CHAR_DATA *ccd;
if( ch == cur_char && cur_char_died )
return TRUE;
for( ccd = extracted_char_queue; ccd; ccd = ccd->next )
if( ccd->ch == ch )
return TRUE;
return FALSE;
}
/*
* Add ch to the queue of recently extracted characters -Thoric
*/
void queue_extracted_char( CHAR_DATA * ch, bool extract )
{
EXTRACT_CHAR_DATA *ccd;
if( !ch )
{
bug( "queue_extracted char: ch = NULL", 0 );
return;
}
CREATE( ccd, EXTRACT_CHAR_DATA, 1 );
ccd->ch = ch;
ccd->room = ch->in_room;
ccd->extract = extract;
if( ch == cur_char )
ccd->retcode = global_retcode;
else
ccd->retcode = rCHAR_DIED;
ccd->next = extracted_char_queue;
extracted_char_queue = ccd;
cur_qchars++;
}
/*
* clean out the extracted character queue
*/
void clean_char_queue( )
{
EXTRACT_CHAR_DATA *ccd;
for( ccd = extracted_char_queue; ccd; ccd = extracted_char_queue )
{
extracted_char_queue = ccd->next;
if( ccd->extract )
free_char( ccd->ch );
DISPOSE( ccd );
--cur_qchars;
}
}
/*
* Add a timer to ch -Thoric
* Support for "call back" time delayed commands
*/
void add_timer( CHAR_DATA * ch, short type, int count, DO_FUN * fun, int value )
{
TIMER *timer;
for( timer = ch->first_timer; timer; timer = timer->next )
if( timer->type == type )
{
timer->count = count;
timer->do_fun = fun;
timer->value = value;
break;
}
if( !timer )
{
CREATE( timer, TIMER, 1 );
timer->count = count;
timer->type = type;
timer->do_fun = fun;
timer->value = value;
LINK( timer, ch->first_timer, ch->last_timer, next, prev );
}
}
TIMER *get_timerptr( CHAR_DATA * ch, short type )
{
TIMER *timer;
for( timer = ch->first_timer; timer; timer = timer->next )
if( timer->type == type )
return timer;
return NULL;
}
short get_timer( CHAR_DATA * ch, short type )
{
TIMER *timer;
if( ( timer = get_timerptr( ch, type ) ) != NULL )
return timer->count;
else
return 0;
}
void extract_timer( CHAR_DATA * ch, TIMER * timer )
{
if( !timer )
{
bug( "extract_timer: NULL timer", 0 );
return;
}
UNLINK( timer, ch->first_timer, ch->last_timer, next, prev );
DISPOSE( timer );
return;
}
void remove_timer( CHAR_DATA * ch, short type )
{
TIMER *timer;
for( timer = ch->first_timer; timer; timer = timer->next )
if( timer->type == type )
break;
if( timer )
extract_timer( ch, timer );
}
bool in_soft_range( CHAR_DATA * ch, AREA_DATA * tarea )
{
if( IS_IMMORTAL( ch ) )
return TRUE;
else if( IS_NPC( ch ) )
return TRUE;
else if( ch->level >= tarea->low_soft_range || ch->level <= tarea->hi_soft_range )
return TRUE;
else
return FALSE;
}
bool in_hard_range( CHAR_DATA * ch, AREA_DATA * tarea )
{
if( IS_IMMORTAL( ch ) )
return TRUE;
else if( IS_NPC( ch ) )
return TRUE;
else if( ch->level >= tarea->low_hard_range && ch->level <= tarea->hi_hard_range )
return TRUE;
else
return FALSE;
}
/*
* Scryn, standard luck check 2/2/96
*/
bool chance( CHAR_DATA * ch, short percent )
{
if( !ch )
{
bug( "Chance: null ch!", 0 );
return FALSE;
}
if( ( number_percent( ) - get_curr_lck( ch ) ) <= percent )
return TRUE;
else
return FALSE;
}
bool chance_attrib( CHAR_DATA * ch, short percent, short attrib )
{
/*
* Scryn, standard luck check + consideration of 1 attrib 2/2/96
*/
short deity_factor;
if( !ch )
{
bug( "Chance: null ch!", 0 );
return FALSE;
}
if( IS_DEVOTED( ch ) )
deity_factor = ch->pcdata->favor / -500;
else
deity_factor = 0;
if( number_percent( ) - get_curr_lck( ch ) + 13 - attrib + 13 + deity_factor <= percent )
return TRUE;
else
return FALSE;
}
/*
* Make a simple clone of an object (no extras...yet) -Thoric
*/
OBJ_DATA *clone_object( OBJ_DATA * obj )
{
OBJ_DATA *clone;
CREATE( clone, OBJ_DATA, 1 );
clone->pIndexData = obj->pIndexData;
clone->name = QUICKLINK( obj->name );
clone->short_descr = QUICKLINK( obj->short_descr );
clone->description = QUICKLINK( obj->description );
clone->action_desc = QUICKLINK( obj->action_desc );
clone->item_type = obj->item_type;
clone->extra_flags = obj->extra_flags;
clone->magic_flags = obj->magic_flags;
clone->wear_flags = obj->wear_flags;
clone->wear_loc = obj->wear_loc;
clone->weight = obj->weight;
clone->cost = obj->cost;
clone->level = obj->level;
clone->timer = obj->timer;
clone->map = obj->map;
clone->x = obj->x;
clone->y = obj->y;
clone->value[0] = obj->value[0];
clone->value[1] = obj->value[1];
clone->value[2] = obj->value[2];
clone->value[3] = obj->value[3];
clone->value[4] = obj->value[4];
clone->value[5] = obj->value[5];
clone->count = 1;
++obj->pIndexData->count;
++numobjsloaded;
++physicalobjects;
cur_obj_serial = UMAX( ( cur_obj_serial + 1 ) & ( BV30 - 1 ), 1 );
clone->serial = clone->pIndexData->serial = cur_obj_serial;
LINK( clone, first_object, last_object, next, prev );
return clone;
}
/*
* If possible group obj2 into obj1 -Thoric
* This code, along with clone_object, obj->count, and special support
* for it implemented throughout handler.c and save.c should show improved
* performance on MUDs with players that hoard tons of potions and scrolls
* as this will allow them to be grouped together both in memory, and in
* the player files.
*/
OBJ_DATA *group_object( OBJ_DATA * obj1, OBJ_DATA * obj2 )
{
if( !obj1 || !obj2 )
return NULL;
if( obj1 == obj2 )
return obj1;
if( obj1->pIndexData == obj2->pIndexData
/*
* && !obj1->pIndexData->mudprogs
* && !obj2->pIndexData->mudprogs
*/
&& !str_cmp( obj1->name, obj2->name ) && !str_cmp( obj1->short_descr, obj2->short_descr ) && !str_cmp( obj1->description, obj2->description ) && !str_cmp( obj1->action_desc, obj2->action_desc ) && obj1->item_type == obj2->item_type && xSAME_BITS( obj1->extra_flags, obj2->extra_flags ) && obj1->magic_flags == obj2->magic_flags && obj1->wear_flags == obj2->wear_flags && obj1->wear_loc == obj2->wear_loc && obj1->weight == obj2->weight && obj1->cost == obj2->cost && obj1->level == obj2->level && obj1->timer == obj2->timer && obj1->value[0] == obj2->value[0] && obj1->value[1] == obj2->value[1] && obj1->value[2] == obj2->value[2] && obj1->value[3] == obj2->value[3] && obj1->value[4] == obj2->value[4] && obj1->value[5] == obj2->value[5] && !obj1->first_extradesc && !obj2->first_extradesc && !obj1->first_affect && !obj2->first_affect && !obj1->first_content && !obj2->first_content && obj1->count + obj2->count > 0 /* prevent count overflow */
&& obj1->map == obj2->map && obj1->x == obj2->x && obj1->y == obj2->y )
{
obj1->count += obj2->count;
obj1->pIndexData->count += obj2->count; /* to be decremented in */
numobjsloaded += obj2->count; /* extract_obj */
extract_obj( obj2 );
return obj1;
}
return obj2;
}
/*
* Split off a grouped object -Thoric
* decreased obj's count to num, and creates a new object containing the rest
*/
void split_obj( OBJ_DATA * obj, int num )
{
int count = obj->count;
OBJ_DATA *rest;
if( count <= num || num == 0 )
return;
rest = clone_object( obj );
--obj->pIndexData->count; /* since clone_object() ups this value */
--numobjsloaded;
rest->count = obj->count - num;
obj->count = num;
if( obj->carried_by )
{
LINK( rest, obj->carried_by->first_carrying, obj->carried_by->last_carrying, next_content, prev_content );
rest->carried_by = obj->carried_by;
rest->in_room = NULL;
rest->in_obj = NULL;
}
else if( obj->in_room )
{
LINK( rest, obj->in_room->first_content, obj->in_room->last_content, next_content, prev_content );
rest->carried_by = NULL;
rest->in_room = obj->in_room;
rest->in_obj = NULL;
}
else if( obj->in_obj )
{
LINK( rest, obj->in_obj->first_content, obj->in_obj->last_content, next_content, prev_content );
rest->in_obj = obj->in_obj;
rest->in_room = NULL;
rest->carried_by = NULL;
}
}
void separate_obj( OBJ_DATA * obj )
{
split_obj( obj, 1 );
}
/*
* Empty an obj's contents... optionally into another obj, or a room
*/
bool empty_obj( OBJ_DATA * obj, OBJ_DATA * destobj, ROOM_INDEX_DATA * destroom )
{
OBJ_DATA *otmp, *otmp_next;
CHAR_DATA *ch = obj->carried_by;
bool movedsome = FALSE;
if( !obj )
{
bug( "empty_obj: NULL obj", 0 );
return FALSE;
}
if( destobj || ( !destroom && !ch && ( destobj = obj->in_obj ) != NULL ) )
{
for( otmp = obj->first_content; otmp; otmp = otmp_next )
{
otmp_next = otmp->next_content;
/*
* only keys on a keyring
*/
if( destobj->item_type == ITEM_KEYRING && otmp->item_type != ITEM_KEY )
continue;
if( destobj->item_type == ITEM_QUIVER && otmp->item_type != ITEM_PROJECTILE )
continue;
if( ( destobj->item_type == ITEM_CONTAINER || destobj->item_type == ITEM_KEYRING
|| destobj->item_type == ITEM_QUIVER ) && get_real_obj_weight( otmp ) + get_real_obj_weight( destobj ) > destobj->value[0] )
continue;
obj_from_obj( otmp );
obj_to_obj( otmp, destobj );
movedsome = TRUE;
}
return movedsome;
}
if( destroom || ( !ch && ( destroom = obj->in_room ) != NULL ) )
{
for( otmp = obj->first_content; otmp; otmp = otmp_next )
{
otmp_next = otmp->next_content;
if( ch && HAS_PROG( otmp->pIndexData, DROP_PROG ) && otmp->count > 1 )
{
separate_obj( otmp );
obj_from_obj( otmp );
if( !otmp_next )
otmp_next = obj->first_content;
}
else
obj_from_obj( otmp );
otmp = obj_to_room( otmp, destroom, ch );
if( ch )
{
oprog_drop_trigger( ch, otmp ); /* mudprogs */
if( char_died( ch ) )
ch = NULL;
}
movedsome = TRUE;
}
return movedsome;
}
if( ch )
{
for( otmp = obj->first_content; otmp; otmp = otmp_next )
{
otmp_next = otmp->next_content;
obj_from_obj( otmp );
obj_to_char( otmp, ch );
movedsome = TRUE;
}
return movedsome;
}
bug( "empty_obj: could not determine a destination for vnum %d", obj->pIndexData->vnum );
return FALSE;
}
/*
* Add gold to an area's economy -Thoric
*/
void boost_economy( AREA_DATA * tarea, int gold )
{
while( gold >= 1000000000 )
{
++tarea->high_economy;
gold -= 1000000000;
}
tarea->low_economy += gold;
while( tarea->low_economy >= 1000000000 )
{
++tarea->high_economy;
tarea->low_economy -= 1000000000;
}
}
/*
* Take gold from an area's economy -Thoric
*/
void lower_economy( AREA_DATA * tarea, int gold )
{
while( gold >= 1000000000 )
{
--tarea->high_economy;
gold -= 1000000000;
}
tarea->low_economy -= gold;
while( tarea->low_economy < 0 )
{
--tarea->high_economy;
tarea->low_economy += 1000000000;
}
}
/*
* Check to see if economy has at least this much gold -Thoric
*/
bool economy_has( AREA_DATA * tarea, int gold )
{
int hasgold = ( ( tarea->high_economy > 0 ) ? 1 : 0 ) * 1000000000 + tarea->low_economy;
if( hasgold >= gold )
return TRUE;
return FALSE;
}
/*
* Used in db.c when resetting a mob into an area -Thoric
* Makes sure mob doesn't get more than 10% of that area's gold,
* and reduces area economy by the amount of gold given to the mob
*/
void economize_mobgold( CHAR_DATA * mob )
{
int gold;
AREA_DATA *tarea;
/*
* make sure it isn't way too much
*/
mob->gold = UMIN( mob->gold, mob->level * mob->level * 400 );
if( !mob->in_room )
return;
tarea = mob->in_room->area;
gold = ( ( tarea->high_economy > 0 ) ? 1 : 0 ) * 1000000000 + tarea->low_economy;
mob->gold = URANGE( 0, mob->gold, gold / 10 );
if( mob->gold )
lower_economy( tarea, mob->gold );
}
/*
* returns area with name matching input string
* Last Modified : July 21, 1997
* Fireblade
*/
AREA_DATA *get_area( char *name )
{
AREA_DATA *pArea;
if( !name )
{
bug( "get_area: NULL input string." );
return NULL;
}
for( pArea = first_area; pArea; pArea = pArea->next )
{
if( nifty_is_name( name, pArea->name ) )
break;
}
if( !pArea )
{
for( pArea = first_build; pArea; pArea = pArea->next )
{
if( nifty_is_name( name, pArea->name ) )
break;
}
}
return pArea;
}
AREA_DATA *get_area_obj( OBJ_INDEX_DATA * pObjIndex )
{
AREA_DATA *pArea;
if( !pObjIndex )
{
bug( "get_area_obj: pObjIndex is NULL." );
return NULL;
}
for( pArea = first_area; pArea; pArea = pArea->next )
{
if( pObjIndex->vnum >= pArea->low_o_vnum && pObjIndex->vnum <= pArea->hi_o_vnum )
break;
}
return pArea;
}
/*
* Find a mob in the world by vnum.
*/
CHAR_DATA *get_mob( int vnum )
{
CHAR_DATA *wch;
/*
* check the world for an exact match
*/
for( wch = first_char; wch; wch = wch->next )
if( IS_NPC( wch ) && vnum == wch->pIndexData->vnum )
return wch;
return NULL;
}
/*
* Find an obj in the world based on its vnum
*/
OBJ_DATA *obj_by_vnum( int vnum )
{
OBJ_DATA *obj;
for( obj = first_object; obj; obj = obj->next )
if( vnum == obj->pIndexData->vnum )
return obj;
return NULL;
}