void
do_commands (CHAR_DATA * ch, char *argument, int cmd)
{
int col_no = 0;
int cmd_no;
int cmd_level;
char buf[MAX_STRING_LENGTH];
*buf = '\0';
for (cmd_no = 0; *commands[cmd_no].command; cmd_no++)
{
cmd_level = 0;
if (IS_SET (commands[cmd_no].flags, C_LV5))
cmd_level = 5;
else if (IS_SET (commands[cmd_no].flags, C_LV4))
cmd_level = 4;
else if (IS_SET (commands[cmd_no].flags, C_LV3))
cmd_level = 3;
else if (IS_SET (commands[cmd_no].flags, C_LV2))
cmd_level = 2;
else if (IS_SET (commands[cmd_no].flags, C_LV1))
cmd_level = 1;
if (cmd_level)
continue;
if (cmd_level > GET_TRUST (ch))
continue;
if (IS_SET (commands[cmd_no].flags, C_XLS))
continue;
sprintf (buf + strlen (buf), "%-9.9s ", commands[cmd_no].command);
if (++col_no >= 7)
{
strcat (buf, "\n\r");
send_to_char (buf, ch);
*buf = '\0';
col_no = 0;
}
}
if (*buf)
{
strcat (buf, "\n\r");
send_to_char (buf, ch);
}
}
void
command_interpreter (CHAR_DATA * ch, char *argument)
{
char buf[MAX_STRING_LENGTH];
char *command_args, *p, *social_args;
int cmd_level = 0;
int i = 0, echo = 1;
AFFECTED_TYPE *craft_affect = NULL;
AFFECTED_TYPE *af;
ALIAS_DATA *alias;
extern int second_affect_active;
if (!ch)
return;
*buf = '\0';
p = argument;
while (*p == ' ')
p++;
if (strchr (p, '%'))
{
send_to_char ("Input with the '%' character is not permitted.\n", ch);
return;
}
if (strchr (p, '#') && IS_MORTAL (ch) && strncmp (p, "ge", 2) != 0
&& strncmp (p, "buy", 3) != 0)
{
send_to_char ("Input with the '#' character is not permitted.\n", ch);
return;
}
if (IS_MORTAL (ch) && strchr (p, '$'))
{
send_to_char ("Input with the '$' character is not permitted.\n", ch);
return;
}
std::multimap<int, room_prog>::iterator it;
if (IS_NPC(ch))
it = mob_prog_list.find(ch->mob->nVirtual);
if (IS_NPC(ch) && !get_second_affect (ch, SA_DOANYWAY, 0) && it != mob_prog_list.end())
{
if (m_prog(ch, p))
{
return;
}
}
std::pair<std::multimap<int, room_prog>::iterator, std::multimap<int, room_prog>::iterator> pair;
if (ch->right_hand && !get_second_affect (ch, SA_DOANYWAY, 0))
{
pair = obj_prog_list.equal_range(ch->right_hand->nVirtual);
for (it = pair.first; it != pair.second; it++)
{
if (it->second.type != 1 && it->second.type != 3 && it->second.type != 5)
continue;
if (o_prog(ch, p, it->second))
return;
}
}
if (ch->left_hand && !get_second_affect (ch, SA_DOANYWAY, 0))
{
pair = obj_prog_list.equal_range(ch->left_hand->nVirtual);
for (it = pair.first; it != pair.second; it++)
{
if (it->second.type != 1 && it->second.type != 3 && it->second.type != 5)
continue;
if (o_prog(ch, p, it->second))
return;
}
}
for (OBJ_DATA *tobj = ch->equip; tobj; tobj = tobj->next_content)
{
if (get_second_affect (ch, SA_DOANYWAY, 0))
break;
pair = obj_prog_list.equal_range(tobj->nVirtual);
for (it = pair.first; it != pair.second; it++)
{
if (it->second.type != 2 && it->second.type != 3 && it->second.type != 5)
continue;
if (o_prog(ch, p, it->second))
return;
}
}
/* this is where it crashes on the hour - Grommit */
if (!ch->room )
{
std::ostringstream stream;
stream << "Error in command_interpreter:commands.cpp. Command \"" <<
argument << "\" called by \"" << ch->tname << "\" with null room. Previously in "
<< (ch->last_room) << " entering null room from the " << (dirs[ch->from_dir]) << ".";
system_log(stream.str().c_str(),true);
return;
}
/* end grommit diagnostics to avoid segfaulting on the below for loop */
for (OBJ_DATA *tobj = ch->room->contents; tobj; tobj = tobj->next_content)
{
if (get_second_affect (ch, SA_DOANYWAY, 0))
break;
pair = obj_prog_list.equal_range(tobj->nVirtual);
for (it = pair.first; it != pair.second; it++)
{
if (it->second.type != 4 && it->second.type != 5)
continue;
if (o_prog(ch, p, it->second))
return;
}
}
for (CHAR_DATA *temp_char = ch->room->people; temp_char; temp_char = temp_char->next_in_room)
{
if (get_second_affect (ch, SA_DOANYWAY, 0))
break;
if (temp_char == ch)
continue;
if (!IS_NPC(temp_char))
continue;
pair = mob_prog_list.equal_range(temp_char->mob->nVirtual);
for (it = pair.first; it != pair.second; ++it)
{
if (m_prog(ch, p, it->second))
return;
}
}
if (ch->room && ch->room->prg && !get_second_affect(ch, SA_DOANYWAY, 0) && r_program (ch, p))
{
if (!IS_NPC (ch)
|| (ch->desc && (ch->pc && str_cmp (ch->pc->account_name, "Guest"))))
{
player_log (ch, "[RPROG]", p);
}
if (!IS_SET (commands[i].flags, C_NWT))
show_to_watchers (ch, argument);
return;
}
if (get_second_affect(ch, SA_DOANYWAY, 0))
remove_second_affect(get_second_affect(ch, SA_DOANYWAY, 0));
if (!IS_MORTAL (ch) && !str_cmp (argument, "sho wl"))
{
send_to_char
("Heh heh. Glad I added in this check, aren't we? No shouting for you.\n",
ch);
return;
}
if (ch->desc)
{
last_descriptor = ch->desc;
sprintf (full_last_command, "Last Command Issued, by %s [%d]: %s",
ch->tname, ch->in_room, argument);
sprintf (last_command, "%s", argument);
}
social_args = argument;
command_args = one_argument (argument, buf);
if (!*buf)
return;
while (*command_args == ' ')
command_args++;
if (ch->pc && !GET_FLAG (ch, FLAG_ALIASING))
{
if ((alias = is_alias (ch, buf)))
{
ch->flags |= FLAG_ALIASING;
while (alias)
{
command_interpreter (ch, alias->line);
if (ch->deleted)
return;
alias = alias->next_line;
}
ch->flags &= ~FLAG_ALIASING;
return;
}
}
for (i = 1; *commands[i].command; i++)
if (is_abbrev (buf, commands[i].command))
break;
if ((craft_affect = is_craft_command (ch, argument)))
i = 0;
if (IS_SET (commands[i].flags, C_IMP)) {
cmd_level = 6;
}
else if (IS_SET (commands[i].flags, C_LV5)) {
cmd_level = 5;
}
else if (IS_SET (commands[i].flags, C_LV4)) {
cmd_level = 4;
}
else if (IS_SET (commands[i].flags, C_LV3)) {
cmd_level = 3;
}
else if (IS_SET (commands[i].flags, C_LV2)) {
cmd_level = 2;
}
else if (IS_SET (commands[i].flags, C_LV1)) {
cmd_level = 1;
}
if (IS_SET (commands[i].flags, C_GDE)
&& (IS_NPC (ch) || (!ch->pc->is_guide && !ch->pc->level)))
{
send_to_char ("Eh?\n\r", ch);
return;
}
/*
Need to pass the CHAR_DATA pointer for the person who made the command and modify
the following line to test the commanding char's trust against the trust level for
the command. - Methuselah
*/
if ((!*commands[i].command)
|| (cmd_level > GET_TRUST (ch)))
{
if (!social (ch, argument))
{
echo = number (1, 9);
if (echo == 1)
send_to_char ("Eh?\n\r", ch);
else if (echo == 2)
send_to_char ("Huh?\n\r", ch);
else if (echo == 3)
send_to_char ("I'm afraid that just isn't possible...\n\r", ch);
else if (echo == 4)
send_to_char ("I don't recognize that command.\n\r", ch);
else if (echo == 5)
send_to_char ("What?\n\r", ch);
else if (echo == 6)
send_to_char
("Perhaps you should try typing it a different way?\n\r", ch);
else if (echo == 7)
send_to_char
("Try checking your typing - I don't recognize it.\n\r", ch);
else if (echo == 8)
send_to_char
("That isn't a recognized command, craft, or social.\n\r", ch);
else
send_to_char ("Hmm?\n\r", ch);
}
else
{
if (!IS_SET (commands[i].flags, C_NWT))
show_to_watchers (ch, argument);
}
return;
}
if (ch->stun)
{
send_to_char ("You're still reeling.\n", ch);
return;
}
if (ch->roundtime)
{
sprintf (buf, "You'll need to wait another %d seconds.\n",
ch->roundtime);
send_to_char (buf, ch);
return;
}
if (IS_SET (commands[i].flags, C_WLK) &&
(ch->moves || GET_FLAG (ch, FLAG_LEAVING)
|| GET_FLAG (ch, FLAG_ENTERING)))
{
send_to_char ("Stop traveling first.\n\r", ch);
return;
}
if (IS_SET (commands[i].flags, C_MNT) && IS_RIDER (ch))
{
send_to_char ("Get off your mount first.\n", ch);
return;
}
if (commands[i].min_position > GET_POS (ch))
{
switch (GET_POS (ch))
{
case DEAD:
if (IS_MORTAL (ch))
{
send_to_char ("You are dead. You can't do that.\n\r", ch);
return;
}
case UNCON:
case MORT:
send_to_char ("You're seriously wounded and unconscious.\n\r", ch);
return;
case STUN:
send_to_char ("You're too stunned to do that.\n\r", ch);
return;
case SLEEP:
send_to_char ("You can't do that while sleeping.\n\r", ch);
return;
case REST:
send_to_char ("You can't do that while lying down.\n\r", ch);
return;
case SIT:
send_to_char ("You can't do that while sitting.\n\r", ch);
return;
case FIGHT:
send_to_char ("No way! You are fighting for your life!\n\r", ch);
return;
}
return;
}
if (!IS_NPC (ch) && ch->pc->create_state == STATE_DIED &&
!IS_SET (commands[i].flags, C_DOA))
{
send_to_char ("You can't do that when you're dead.\n\r", ch);
return;
}
if (!IS_SET (commands[i].flags, C_BLD) && is_blind (ch))
{
if (get_equip (ch, WEAR_BLINDFOLD))
send_to_char ("You can't do that while blindfolded.\n\r", ch);
else
send_to_char ("You can't do that while blind.\n\r", ch);
return;
}
if ((af = get_affect (ch, MAGIC_AFFECT_PARALYSIS)) &&
!IS_SET (commands[i].flags, C_PAR) && IS_MORTAL (ch))
{
send_to_char ("You can't move.\n", ch);
return;
}
if (IS_SUBDUEE (ch) && !IS_SET (commands[i].flags, C_SUB) && !cmd_level)
{
act ("$N won't let you.", false, ch, 0, ch->subdue, TO_CHAR);
return;
}
/* Most commands break delays */
if (ch->delay && !IS_SET (commands[i].flags, C_DEL))
break_delay (ch);
/* Send this command to the log */
if (!second_affect_active && (!IS_NPC (ch) || ch->desc))
{
if (IS_SET (commands[i].flags, C_NLG))
;
else if (i > 0)
{ /* Log craft commands separately. */
if (!str_cmp (commands[i].command, "."))
player_log (ch, "say", command_args);
else if (!str_cmp (commands[i].command, ","))
player_log (ch, "emote", command_args);
else if (!str_cmp (commands[i].command, ":"))
player_log (ch, "emote", command_args);
else if (!str_cmp (commands[i].command, ";"))
player_log (ch, "wiznet", command_args);
else
player_log (ch, commands[i].command, command_args);
}
}
if (IS_MORTAL (ch) && get_affect (ch, MAGIC_HIDDEN) &&
!IS_SET (commands[i].flags, C_HID) &&
skill_level (ch, SKILL_SNEAK, 0) < number (1, MAX(100, skill_level(ch, SKILL_SNEAK, 0))) &&
would_reveal (ch))
{
remove_affect_type (ch, MAGIC_HIDDEN);
act ("$n reveals $mself.", true, ch, 0, 0, TO_ROOM | _ACT_FORMAT);
act ("Your actions have compromised your concealment.", true, ch, 0, 0,
TO_CHAR);
}
/* Execute command */
if (!IS_SET (commands[i].flags, C_NWT))
show_to_watchers (ch, social_args);
if (!i) /* craft_command */
craft_command (ch, command_args, craft_affect);
else
(*commands[i].proc) (ch, command_args, 0);
last_descriptor = NULL;
}
/*
* Write the char to the file.
*
* @param ch the character to be written
* @param fp the file to write to
*/
void fwrite_char( struct char_data *ch, FILE *fp )
{
extern struct race_data * races;
struct affected_type *paf;
int sn, i;
fprintf( fp, "#%s\n", IS_NPC( ch ) ? "MOB" : "PLAYER" );
fprintf( fp, "Name %s~\n", GET_NAME(ch) );
fprintf( fp, "ShtDsc %s~\n", GET_SHORT_DESC(ch) ?
GET_SHORT_DESC(ch) : "" );
fprintf( fp, "LngDsc %s~\n", GET_LONG_DESC(ch) ?
GET_LONG_DESC(ch) : "" );
fprintf( fp, "Dscr %s~\n", GET_DESCRIPTION(ch) ?
GET_DESCRIPTION(ch) : "" );
// fprintf( fp, "Prmpt %s~\n", ch->pcdata->prompt );
fprintf( fp, "Sx %d\n", GET_SEX(ch) );
fprintf( fp, "Race %s~\n", races[ (int)GET_RACE(ch) ].name );
fprintf( fp, "Lvl %d\n", GET_LEVEL(ch) );
fprintf( fp, "Trst %d\n", GET_TRUST(ch) );
/*
fprintf( fp, "Playd %ld\n",
GET_PLAYED(ch) + (int)( time( 0 ) - GET_LOGON(ch) ) );
*/
// fprintf( fp, "Note %ld\n", (unsigned long)ch->last_note );
fprintf( fp, "Room %ld\n",
( ch->in_room == NOWHERE && ch->was_in_room )
? ch->was_in_room : ch->in_room );
fprintf( fp, "HpMnMv %d %d %d %d %d %d\n",
GET_HIT(ch), GET_MAX_HIT(ch),
GET_MANA(ch), GET_MAX_MANA(ch),
GET_MOVE(ch), GET_MAX_MOVE(ch) );
fprintf( fp, "Gold %ld\n", GET_GOLD(ch) );
fprintf( fp, "Exp %ld\n", GET_EXP(ch) );
fprintf( fp, "Act %lld\n", PLR_FLAGS(ch) );
fprintf( fp, "Act2 %lld\n", PLR2_FLAGS(ch) );
fprintf( fp, "Pref %lld\n", PRF_FLAGS(ch) );
fprintf( fp, "Pref2 %lld\n", PRF2_FLAGS(ch) );
fprintf( fp, "AffdBy %lld\n", AFF_FLAGS(ch) );
fprintf( fp, "AffdBy2 %lld\n", AFF2_FLAGS(ch) );
/* Bug fix from Alander */
fprintf( fp, "Pos %d\n",
GET_POS(ch) == POS_FIGHTING ? POS_STANDING : GET_POS(ch) );
fprintf( fp, "Prac %d\n", GET_PRACTICES(ch) );
fprintf( fp, "PAlign %d\n", GET_PERMALIGN(ch) );
fprintf( fp, "CAlign %d\n", GET_ALIGNMENT(ch) );
fprintf( fp, "SavThr " );
for ( i = 0; i < NUM_SAVES; i++ )
fprintf( fp, "%d%s", GET_SAVE(ch, i), (i != NUM_SAVES-1 ? ", " : "\n") );
fprintf( fp, "Hitroll %d\n", GET_HITROLL(ch) );
fprintf( fp, "Damroll %d\n", GET_DAMROLL(ch) );
fprintf( fp, "Armr " );
for ( i = 0; i < ARMOR_LIMIT; i++ )
fprintf( fp, "%d%s", GET_AC(ch, i), (i != ARMOR_LIMIT-1 ? ", " : "\n") );
fprintf( fp, "Wimp %d\n", GET_WIMP_LEV(ch) );
if ( IS_NPC( ch ) ) {
fprintf( fp, "Vnum %ld\n", GET_MOB_VNUM(ch) );
} else {
fprintf( fp, "Paswd %s~\n", GET_PASSWD(ch) );
fprintf( fp, "Poofin %s~\n", POOFIN(ch) ?
POOFIN(ch) : "" );
fprintf( fp, "Poofout %s~\n", POOFOUT(ch) ?
POOFOUT(ch) : "" );
fprintf( fp, "Ttle %s~\n", GET_TITLE(ch) ?
GET_TITLE(ch) : "" );
fprintf( fp, "AtrPrm %d/%d %d %d %d %d %d %d\n",
ch->real_abils.str,
ch->real_abils.str_add,
ch->real_abils.intel,
ch->real_abils.wis,
ch->real_abils.dex,
ch->real_abils.con,
ch->real_abils.cha,
ch->real_abils.will );
fprintf( fp, "AtrMd %d/%d %d %d %d %d %d %d\n",
ch->aff_abils.str,
ch->aff_abils.str_add,
ch->aff_abils.intel,
ch->aff_abils.wis,
ch->aff_abils.dex,
ch->aff_abils.con,
ch->aff_abils.cha,
ch->aff_abils.will );
fprintf( fp, "Conditions " );
for ( i = 0; i < MAX_COND; i++ )
fprintf( fp, "%d%s", GET_COND(ch, i), (i != MAX_COND-1 ? ", " : "\n") );
fprintf( fp, "Addictions " );
for ( i = 0; i < MAX_COND; i++ )
fprintf( fp, "%d%s", GET_ADDICT(ch, i), (i != MAX_COND-1 ? ", " : "\n") );
for ( sn = 0; sn < MAX_SKILLS; sn++ ) {
if ( skill_name( sn ) &&
strcmp( skill_name( sn ), "!UNUSED!" ) &&
GET_SKILL(ch, sn) > 0 ) {
fprintf( fp, "Skill %d '%s'\n",
GET_SKILL(ch, sn),
skill_name( sn ) );
}
}
}
for ( paf = ch->affected; paf; paf = paf->next ) {
fprintf( fp, "Afft %18s~ %3d %3d %3d %lld\n",
skill_name( paf->type ),
paf->duration,
paf->modifier,
paf->location,
paf->bitvector );
}
for ( paf = ch->affected2; paf; paf = paf->next ) {
fprintf( fp, "Afft2 %18s~ %3d %3d %3d %lld\n",
skill_name( paf->type ),
paf->duration,
paf->modifier,
paf->location,
paf->bitvector );
}
fprintf( fp, "End\n\n" );
return;
}
/*
* Read in a char.
*/
int fread_char( struct char_data *ch, FILE *fp )
{
int error_count = 0;
char *word;
char buf [ MAX_STRING_LENGTH ];
struct affected_type *paf;
int sn;
int i;
int j;
int status;
int status1;
char *p;
int tmpi;
int num_keys;
int last_key = 0;
char def_sdesc [] = "Your short description was corrupted.";
char def_ldesc [] = "Your long description was corrupted.";
char def_desc [] = "Your description was corrupted.";
char def_title [] = "Your title was corrupted.";
struct key_data key_tab [] = {
{ "ShtDsc", TRUE, (int) &def_sdesc, { &GET_SHORT_DESC(ch), NULL } },
{ "LngDsc", TRUE, (int) &def_ldesc, { &GET_LONG_DESC(ch), NULL } },
{ "Dscr", TRUE, (int) &def_desc, { &GET_DESCRIPTION(ch), NULL } },
{ "Sx", FALSE, SEX_MALE, { &GET_SEX(ch), NULL } },
{ "Race", FALSE, MAND, { &GET_RACE(ch), NULL } },
{ "Lvl", FALSE, MAND, { &GET_LEVEL(ch), NULL } },
{ "Trst", FALSE, 0, { &GET_TRUST(ch), NULL } },
{ "HpMnMv", FALSE, MAND, { &GET_HIT(ch),
&GET_MAX_HIT(ch),
&GET_MANA(ch),
&GET_MAX_MANA(ch),
&GET_MOVE(ch),
&GET_MAX_MOVE(ch), NULL } },
{ "Gold", FALSE, 0, { &GET_GOLD(ch), NULL } },
{ "Exp", FALSE, MAND, { &GET_EXP(ch), NULL } },
{ "Act", FALSE, DEFLT, { &PLR_FLAGS(ch), NULL } },
{ "Act2", FALSE, DEFLT, { &PLR2_FLAGS(ch), NULL } },
{ "AffdBy", FALSE, 0, { &AFF_FLAGS(ch), NULL } },
{ "AffdBy2", FALSE, 0, { &AFF2_FLAGS(ch), NULL } },
{ "Pref", FALSE, 0, { &PRF_FLAGS(ch), NULL } },
{ "Pref2", FALSE, 0, { &PRF2_FLAGS(ch), NULL } },
{ "Pos", FALSE, POS_STANDING, { &GET_POS(ch), NULL } },
{ "Prac", FALSE, MAND, { &GET_PRACTICES(ch), NULL } },
{ "PAlign", FALSE, 0, { &GET_PERMALIGN(ch), NULL } },
{ "CAlign", FALSE, 0, { &GET_ALIGNMENT(ch), NULL } },
{ "Ttle", TRUE, (int) &def_title, { &GET_TITLE(ch), NULL } },
#if 0
{ "SavThr", FALSE, MAND, { &ch->saving_throw, NULL } },
{ "Hit", FALSE, MAND, { &ch->hitroll, NULL } },
{ "Dam", FALSE, MAND, { &ch->damroll, NULL } },
{ "Armr", FALSE, MAND, { &ch->armor, NULL } },
{ "Wimp", FALSE, 10, { &ch->wimpy, NULL } },
{ "Deaf", FALSE, 0, { &ch->deaf, NULL } },
{ "Immskll",TRUE, DEFLT, { &ch->pcdata->immskll,
NULL } },
{ "AtrPrm", FALSE, MAND, { &ch->pcdata->perm_str,
&ch->pcdata->perm_int,
&ch->pcdata->perm_wis,
&ch->pcdata->perm_dex,
&ch->pcdata->perm_con,
NULL } },
{ "AtrMd", FALSE, MAND, { &ch->pcdata->mod_str,
&ch->pcdata->mod_int,
&ch->pcdata->mod_wis,
&ch->pcdata->mod_dex,
&ch->pcdata->mod_con,
NULL } },
{ "Cond", FALSE, DEFLT, { &ch->pcdata->condition [0],
&ch->pcdata->condition [1],
&ch->pcdata->condition [2],
NULL } },
{ "Pglen", FALSE, 20, { &ch->pcdata->pagelen,
NULL } },
{ "Playd", FALSE, 0, { &ch->played, NULL } },
#endif
{ "Paswd", TRUE, MAND, { &GET_PASSWD(ch), NULL } },
{ "Poofin", TRUE, DEFLT, { &POOFIN(ch), NULL } },
{ "Poofout", TRUE, DEFLT, { &POOFOUT(ch), NULL } },
{ "\0", FALSE, 0 } };
for ( num_keys = 0; *key_tab [num_keys].key; )
num_keys++;
for ( ; !feof (fp) ; )
{
word = fread_word_stat( fp, &status );
if ( !word )
{
log( "fread_char: Error reading key. EOF?" );
fread_to_eol( fp );
break;
}
/* This little diddy searches for the keyword
from the last keyword found */
for ( i = last_key;
i < last_key + num_keys &&
str_cmp (key_tab [i % num_keys].key, word); )
i++;
i = i % num_keys;
if ( !str_cmp (key_tab [i].key, word) )
last_key = i;
else
i = num_keys;
if ( *key_tab [i].key ) /* Key entry found in key_tab */
{
if ( key_tab [i].string == SPECIFIED )
log( "Key already specified." );
/* Entry is a string */
else
if ( key_tab [i].string )
{
if ( ( p = fread_string( fp, (char*)&status ) ) && !status )
{
free( *(char **)key_tab [i].ptrs [0] );
*(char **)key_tab [i].ptrs [0] = p;
}
}
/* Entry is an integer */
else
for ( j = 0; key_tab [i].ptrs [j]; j++ )
{
tmpi = fread_number_stat( fp, &status );
if ( !status )
*(int *)key_tab [i].ptrs [j] = tmpi;
}
if ( status )
{
fread_to_eol( fp );
continue;
}
else
key_tab [i].string = SPECIFIED;
}
else if ( *word == '*' || !str_cmp( word, "Nm" ) )
fread_to_eol( fp );
else if ( !str_cmp( word, "End" ) )
break;
else if ( !str_cmp( word, "Room" ) )
{
ch->in_room = fread_number_stat( fp, &status );
if ( !ch->in_room )
ch->in_room = NOWHERE;
}
else if ( !str_cmp( word, "Race" ) )
{
i = race_lookup( fread_string( fp, (char*)&status ) );
if ( status )
log( "Fread_char: Unknown Race." );
else
GET_RACE(ch) = i;
}
else if ( !str_cmp( word, "Skill" ) )
{
i = fread_number_stat( fp, &status );
sn = skill_lookup( fread_word_stat( fp, &status1 ) );
if ( status || status1 )
{
log( "Fread_char: Error reading skill." );
fread_to_eol( fp );
continue;
}
if ( sn < 0 )
log( "Fread_char: unknown skill." );
else
GET_SKILL(ch, sn) = i;
}
else if ( !str_cmp ( word, "Afft" ) )
{
int status;
CREATE(paf, struct affected_type, 1);
memset(paf, 0, sizeof( struct affected_type ));
paf->type = skill_lookup( fread_string( fp,
(char*)&status ) );
paf->duration = fread_number_stat( fp, &status );
paf->modifier = fread_number_stat( fp, &status );
paf->location = fread_number_stat( fp, &status );
paf->bitvector = fread_number_stat( fp, &status );
paf->next = ch->affected;
ch->affected = paf;
}
else
{
void
mob_char_indirect (CHAR_DATA * mob, char *token, int *value, int *type)
{
CHAR_DATA *ch;
CHAR_DATA *person;
int i;
struct ind_data_t
{
int which_case;
char ind[15];
int type;
} ind_data[] =
{
{
0, "str", MP_TYPE_INTEGER},
{
1, "dex", MP_TYPE_INTEGER},
{
2, "int", MP_TYPE_INTEGER},
{
3, "con", MP_TYPE_INTEGER},
{
4, "wil", MP_TYPE_INTEGER},
{
5, "aur", MP_TYPE_INTEGER},
{
6, "hit", MP_TYPE_INTEGER},
{
7, "maxhit", MP_TYPE_INTEGER},
{
8, "moves", MP_TYPE_INTEGER},
{
9, "maxmoves", MP_TYPE_INTEGER},
{
10, "deity", MP_TYPE_INTEGER},
{
11, "circle", MP_TYPE_INTEGER},
{
12, "race", MP_TYPE_INTEGER},
{
13, "sex", MP_TYPE_INTEGER},
{
14, "clan_1", MP_TYPE_INTEGER},
{
15, "piety", MP_TYPE_INTEGER},
{
16, "offense", MP_TYPE_INTEGER},
{
17, "clan_2", MP_TYPE_INTEGER},
{
18, "fightmode", MP_TYPE_INTEGER},
{
19, "next_in_room", MP_TYPE_CHAR_DATA},
{
20, "name", MP_TYPE_STRING},
{
21, "level", MP_TYPE_INTEGER},
{
22, "fighting", MP_TYPE_CHAR_DATA},
{
23, "realname", MP_TYPE_STRING},
{
24, "in_room", MP_TYPE_INTEGER},
{
25, "equip", MP_TYPE_OBJ_DATA},
{
26, "inv", MP_TYPE_OBJ_DATA},
{
27, "reset_room", MP_TYPE_INTEGER},
{
28, "prisoner", MP_TYPE_CHAR_DATA},
{
0, "\0", 0}
};
*type = -1;
if (!*value)
return;
ch = (CHAR_DATA *) * value;
for (i = 0; *ind_data[i].ind; i++)
{
if (!str_cmp (ind_data[i].ind, token))
break;
}
if (!*ind_data[i].ind)
return;
*type = ind_data[i].type;
switch (ind_data[i].which_case)
{
case 0:
*value = GET_STR (ch);
break;
case 1:
*value = GET_DEX (ch);
break;
case 2:
*value = GET_INT (ch);
break;
case 3:
*value = GET_CON (ch);
break;
case 4:
*value = GET_WIL (ch);
break;
case 5:
*value = GET_AUR (ch);
break;
case 6:
*value = GET_HIT (ch);
break;
case 7:
*value = GET_MAX_HIT (ch);
break;
case 8:
*value = GET_MOVE (ch);
break;
case 9:
*value = GET_MAX_MOVE (ch);
break;
case 10:
*value = ch->deity;
break;
case 11:
*value = ch->circle;
break;
case 12:
*value = ch->race;
break;
case 13:
*value = ch->sex;
break;
case 14:
*value = 0; /* ch->clan_1; */
break;
case 15:
*value = ch->ppoints;
break;
case 16:
*value = ch->offense;
break;
case 17:
*value = 0; /* ch->clan_2; */
break;
case 18:
*value = ch->fight_mode;
break;
case 19:
if (!is_he_here (mob, ch, 0))
person = NULL;
else
{
person = ch->next_in_room;
while (person && !CAN_SEE (mob, person))
person = person->next_in_room;
}
*value = (long int) person;
break;
case 20:
*value = (long int) ch->short_descr;
break;
case 21:
*value = GET_TRUST (ch);
break;
case 22:
*value = (long int) ch->fighting;
break;
case 23:
*value = (long int) GET_NAME (ch);
break;
case 24:
*value = ch->in_room;
break;
case 25:
*value = (long int) ch->equip;
break;
case 26:
if (ch->right_hand)
*value = (long int) ch->right_hand;
else
*value = (long int) ch->left_hand;
break;
case 27:
if (ch->pc)
*value = 0;
else if (ch->mob->reset_zone != 0 || ch->mob->reset_cmd != 0)
*value = zone_table[ch->mob->reset_zone].cmd[ch->mob->reset_cmd].arg1;
else
*value = 0;
break;
case 28:
*value = (long int) (IS_SUBDUER (ch) ? ch->subdue : NULL);
break;
}
}
