/***************************************************************************
* Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer, *
* Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe. *
* *
* Merc Diku Mud improvments copyright (C) 1992, 1993 by Michael *
* Chastain, Michael Quan, and Mitchell Tse. *
* *
* In order to use any part of this Merc Diku Mud, you must comply with *
* both the original Diku license in 'license.doc' as well the Merc *
* license in 'license.txt'. In particular, you may not remove either of *
* these copyright notices. *
* *
* Much time and thought has gone into this software and you are *
* benefitting. We hope that you share your changes too. What goes *
* around, comes around. *
***************************************************************************/
/***************************************************************************
* ROM 2.4 is copyright 1993-1995 Russ Taylor *
* ROM has been brought to you by the ROM consortium *
* Russ Taylor (rtaylor@pacinfo.com) *
* Gabrielle Taylor (gtaylor@pacinfo.com) *
* Brian Moore (rom@rom.efn.org) *
* By using this code, you have agreed to follow the terms of the *
* ROM license, in the file Rom24/doc/rom.license *
***************************************************************************/
/***************************************************************************
* ROT 1.4 is copyright 1996-1997 by Russ Walsh *
* By using this code, you have agreed to follow the terms of the *
* ROT license, in the file doc/rot.license *
***************************************************************************/
#if defined(macintosh)
#include <types.h>
#include <time.h>
#else
#include <sys/types.h>
#include <sys/time.h>
#endif
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include "merc.h"
#include "tables.h"
CH_CMD ( do_flag )
{
char arg1[MAX_INPUT_LENGTH], arg2[MAX_INPUT_LENGTH],
arg3[MAX_INPUT_LENGTH];
char word[MAX_INPUT_LENGTH];
CHAR_DATA *victim;
OBJ_DATA *obj;
ROOM_INDEX_DATA *location;
long *flag, old = 0, new = 0, marked = 0, pos;
char type;
char buf[100];
int sn, col;
const struct flag_type *flag_table;
argument = one_argument ( argument, arg1 );
argument = one_argument ( argument, arg2 );
argument = one_argument ( argument, arg3 );
type = argument[0];
if ( type == '=' || type == '-' || type == '+' )
argument = one_argument ( argument, word );
if ( arg1[0] == '\0' )
{
send_to_char ( "Syntax:\n\r", ch );
send_to_char ( " flag mob <name> <field> <flags>\n\r", ch );
send_to_char ( " flag char <name> <field> <flags>\n\r", ch );
send_to_char ( " flag obj <name> <field> <flags>\n\r", ch );
send_to_char ( " flag room <room> <field> <flags>\n\r", ch );
send_to_char
( " mob flags: act,act2,aff,shd,off,imm,res,vuln,form,part\n\r",
ch );
send_to_char ( " char flags: plr,comm,aff,shd,imm,res,vuln\n\r",
ch );
send_to_char ( " obj flags: extra,wear,weap\n\r", ch );
send_to_char ( " room flags: room\n\r", ch );
send_to_char ( " +: add flag, -: remove flag, = set equal to\n\r",
ch );
send_to_char ( " otherwise flag toggles the flags listed.\n\r", ch );
return;
}
if ( arg2[0] == '\0' )
{
if ( !str_prefix ( arg1, "mob" ) )
{
send_to_char ( "Syntax:\n\r", ch );
send_to_char ( " flag mob <name> <field> <flags>\n\r", ch );
send_to_char
( " mob flags: act,act2,aff,shd,off,imm,res,vuln,form,part\n\r",
ch );
return;
}
if ( !str_prefix ( arg1, "char" ) )
{
send_to_char ( "Syntax:\n\r", ch );
send_to_char ( " flag char <name> <field> <flags>\n\r", ch );
send_to_char
( " char flags: plr,plr2,comm,aff,shd,imm,res,vuln\n\r",
ch );
return;
}
if ( !str_prefix ( arg1, "obj" ) )
{
send_to_char ( "Syntax:\n\r", ch );
send_to_char ( " flag obj <name> <field> <flags>\n\r", ch );
send_to_char ( " obj flags: extra,wear,weap\n\r", ch );
return;
}
if ( !str_prefix ( arg1, "room" ) )
{
send_to_char ( "Syntax:\n\r", ch );
send_to_char ( " flag room <room> <field> <flags>\n\r", ch );
send_to_char ( " room flags: room\n\r", ch );
return;
}
send_to_char ( "Syntax:\n\r", ch );
send_to_char ( " flag mob <name> <field> <flags>\n\r", ch );
send_to_char ( " flag char <name> <field> <flags>\n\r", ch );
send_to_char ( " flag obj <name> <field> <flags>\n\r", ch );
send_to_char ( " flag room <room> <field> <flags>\n\r", ch );
return;
}
if ( arg3[0] == '\0' )
{
send_to_char ( "You need to specify a flag to set.\n\r", ch );
if ( !str_prefix ( arg1, "mob" ) )
{
send_to_char
( " mob flags: act,act2,aff,shd,off,imm,res,vuln,form,part\n\r",
ch );
}
if ( !str_prefix ( arg1, "char" ) )
{
send_to_char
( " char flags: plr,plr2,comm,aff,shd,imm,res,vuln\n\r",
ch );
}
if ( !str_prefix ( arg1, "obj" ) )
{
send_to_char ( " obj flags: extra,wear,weap\n\r", ch );
}
if ( !str_prefix ( arg1, "room" ) )
{
send_to_char ( " room flags: room\n\r", ch );
}
return;
}
if ( argument[0] == '\0' )
{
if ( !str_prefix ( arg1, "mob" ) || !str_prefix ( arg1, "char" ) )
{
victim = get_char_world ( ch, arg2 );
if ( victim == NULL )
{
send_to_char ( "You can't find them.\n\r", ch );
return;
}
if ( !str_prefix ( arg3, "act" ) )
{
if ( !IS_NPC ( victim ) )
{
send_to_char ( "Use plr for PCs.\n\r", ch );
return;
}
flag_table = act_flags;
}
else if ( !str_prefix ( arg3, "act2" ) )
{
if ( !IS_NPC ( victim ) )
{
send_to_char ( "Use plr for PCs.\n\r", ch );
return;
}
flag_table = act2_flags;
}
else if ( !str_prefix ( arg3, "plr" ) )
{
if ( IS_NPC ( victim ) )
{
send_to_char ( "Use act for NPCs.\n\r", ch );
return;
}
flag_table = plr_flags;
}
else if ( !str_prefix ( arg3, "aff" ) )
{
flag_table = affect_flags;
}
else if ( !str_prefix ( arg3, "shd" ) )
{
flag_table = shield_flags;
}
else if ( !str_prefix ( arg3, "shield" ) )
{
flag_table = shield_flags;
}
else if ( !str_prefix ( arg3, "immunity" ) )
{
flag_table = imm_flags;
}
else if ( !str_prefix ( arg3, "resist" ) )
{
flag_table = imm_flags;
}
else if ( !str_prefix ( arg3, "vuln" ) )
{
flag_table = imm_flags;
}
else if ( !str_prefix ( arg3, "form" ) )
{
if ( !IS_NPC ( victim ) )
{
send_to_char ( "Form can't be set on PCs.\n\r", ch );
return;
}
flag_table = form_flags;
}
else if ( !str_prefix ( arg3, "parts" ) )
{
if ( !IS_NPC ( victim ) )
{
send_to_char ( "Parts can't be set on PCs.\n\r", ch );
return;
}
flag_table = part_flags;
}
else if ( !str_prefix ( arg3, "comm" ) )
{
if ( IS_NPC ( victim ) )
{
send_to_char ( "Comm can't be set on NPCs.\n\r", ch );
return;
}
flag_table = comm_flags;
}
else
{
send_to_char ( "That's not an acceptable flag.\n\r", ch );
return;
}
}
else if ( !str_prefix ( arg1, "obj" ) )
{
obj = get_obj_world ( ch, arg2 );
if ( obj == NULL )
{
send_to_char ( "You can't find that.\n\r", ch );
return;
}
if ( !str_prefix ( arg3, "extra" ) )
{
flag_table = item_extra;
}
else if ( !str_prefix ( arg3, "wear" ) )
{
flag_table = item_wear;
}
else if ( !str_prefix ( arg3, "weapon" ) )
{
flag_table = item_weapon;
}
else
{
send_to_char ( "That's not an acceptable flag.\n\r", ch );
return;
}
}
else if ( !str_prefix ( arg1, "room" ) )
{
location = find_location ( ch, arg2 );
if ( location == NULL )
{
send_to_char ( "No such location.\n\r", ch );
return;
}
if ( !str_prefix ( arg3, "room" ) )
{
flag_table = area_room;
}
else
{
send_to_char ( "That's not an acceptable flag.\n\r", ch );
return;
}
}
else
{
send_to_char ( "Syntax:\n\r", ch );
send_to_char ( " flag mob <name> <field> <flags>\n\r", ch );
send_to_char ( " flag char <name> <field> <flags>\n\r", ch );
send_to_char ( " flag obj <name> <field> <flags>\n\r", ch );
send_to_char ( " flag room <room> <field> <flags>\n\r", ch );
send_to_char
( " mob flags: act,act2,aff,shd,off,imm,res,vuln,form,part\n\r",
ch );
send_to_char ( " char flags: plr,comm,aff,shd,imm,res,vuln\n\r",
ch );
send_to_char ( " obj flags: extra,wear,weap\n\r", ch );
send_to_char ( " room flags: room\n\r", ch );
send_to_char
( " +: add flag, -: remove flag, = set equal to\n\r", ch );
send_to_char ( " otherwise flag toggles the flags listed.\n\r",
ch );
return;
}
send_to_char ( "Which flags do you wish to change?\n\r", ch );
send_to_char ( " {Bchangeable {Runchangeable{x\n\r", ch );
col = 0;
for ( sn = 0; sn < 30; sn++ )
{
if ( flag_table[sn].name == NULL )
break;
if ( flag_table[sn].settable )
sprintf ( buf, "{B%-20s ", flag_table[sn].name );
else
sprintf ( buf, "{R%-20s ", flag_table[sn].name );
send_to_char ( buf, ch );
if ( ++col % 3 == 0 )
send_to_char ( "{x\n\r", ch );
}
if ( col % 3 != 0 )
send_to_char ( "{x\n\r", ch );
return;
}
if ( !str_prefix ( arg1, "mob" ) || !str_prefix ( arg1, "char" ) )
{
/* Mobiles and Characters */
victim = get_char_world ( ch, arg2 );
if ( victim == NULL )
{
send_to_char ( "You can't find them.\n\r", ch );
return;
}
/* select a flag to set */
if ( !str_prefix ( arg3, "act" ) )
{
if ( !IS_NPC ( victim ) )
{
send_to_char ( "Use plr for PCs.\n\r", ch );
return;
}
flag = &victim->act;
flag_table = act_flags;
}
/* select a flag to set */
else if ( !str_prefix ( arg3, "act2" ) )
{
if ( !IS_NPC ( victim ) )
{
send_to_char ( "Use plr for PCs.\n\r", ch );
return;
}
flag = &victim->act2;
flag_table = act2_flags;
}
else if ( !str_prefix ( arg3, "plr" ) )
{
if ( IS_NPC ( victim ) )
{
send_to_char ( "Use act for NPCs.\n\r", ch );
return;
}
flag = &victim->act;
flag_table = plr_flags;
}
else if ( !str_prefix ( arg3, "plr2" ) )
{
if ( IS_NPC ( victim ) )
{
send_to_char ( "Use act for NPCs.\n\r", ch );
return;
}
flag = &victim->act2;
flag_table = plr2_flags;
}
else if ( !str_prefix ( arg3, "aff" ) )
{
flag = &victim->affected_by;
flag_table = affect_flags;
}
else if ( !str_prefix ( arg3, "shd" ) )
{
flag = &victim->shielded_by;
flag_table = shield_flags;
}
else if ( !str_prefix ( arg3, "shield" ) )
{
flag = &victim->shielded_by;
flag_table = shield_flags;
}
else if ( !str_prefix ( arg3, "immunity" ) )
{
flag = &victim->imm_flags;
flag_table = imm_flags;
}
else if ( !str_prefix ( arg3, "resist" ) )
{
flag = &victim->res_flags;
flag_table = imm_flags;
}
else if ( !str_prefix ( arg3, "vuln" ) )
{
flag = &victim->vuln_flags;
flag_table = imm_flags;
}
else if ( !str_prefix ( arg3, "form" ) )
{
if ( !IS_NPC ( victim ) )
{
send_to_char ( "Form can't be set on PCs.\n\r", ch );
return;
}
flag = &victim->form;
flag_table = form_flags;
}
else if ( !str_prefix ( arg3, "parts" ) )
{
if ( !IS_NPC ( victim ) )
{
send_to_char ( "Parts can't be set on PCs.\n\r", ch );
return;
}
flag = &victim->parts;
flag_table = part_flags;
}
else if ( !str_prefix ( arg3, "comm" ) )
{
if ( IS_NPC ( victim ) )
{
send_to_char ( "Comm can't be set on NPCs.\n\r", ch );
return;
}
flag = &victim->comm;
flag_table = comm_flags;
}
else
{
send_to_char ( "That's not an acceptable flag.\n\r", ch );
return;
}
old = *flag;
victim->zone = NULL;
if ( type != '=' )
new = old;
/* mark the words */
for ( ;; )
{
argument = one_argument ( argument, word );
if ( word[0] == '\0' )
break;
pos = flag_lookup ( word, flag_table );
if ( pos == 0 )
{
send_to_char ( "That flag doesn't exist!\n\r", ch );
return;
}
else
SET_BIT ( marked, pos );
}
for ( pos = 0; flag_table[pos].name != NULL; pos++ )
{
if ( !flag_table[pos].settable &&
IS_SET ( old, flag_table[pos].bit ) )
{
SET_BIT ( new, flag_table[pos].bit );
continue;
}
if ( IS_SET ( marked, flag_table[pos].bit ) )
{
switch ( type )
{
case '=':
case '+':
SET_BIT ( new, flag_table[pos].bit );
break;
case '-':
REMOVE_BIT ( new, flag_table[pos].bit );
break;
default:
if ( IS_SET ( new, flag_table[pos].bit ) )
REMOVE_BIT ( new, flag_table[pos].bit );
else
SET_BIT ( new, flag_table[pos].bit );
}
}
}
*flag = new;
return;
}
else if ( !str_prefix ( arg1, "obj" ) )
{
/* Objects */
obj = get_obj_world ( ch, arg2 );
if ( obj == NULL )
{
send_to_char ( "You can't find that.\n\r", ch );
return;
}
if ( obj->item_type == ITEM_EXIT )
{
send_to_char ( "You can not flag exit objects.\n\r", ch );
return;
}
if ( !str_prefix ( arg3, "extra" ) )
{
flag = ( long * ) &obj->extra_flags;
flag_table = item_extra;
}
else if ( !str_prefix ( arg3, "wear" ) )
{
flag = ( long * ) &obj->wear_flags;
flag_table = item_wear;
}
else if ( !str_prefix ( arg3, "weapon" ) )
{
flag = ( long * ) &obj->value[4];
flag_table = item_weapon;
}
else
{
send_to_char ( "That's not an acceptable flag.\n\r", ch );
return;
}
old = *flag;
if ( type != '=' )
new = old;
/* mark the words */
for ( ;; )
{
argument = one_argument ( argument, word );
if ( word[0] == '\0' )
break;
pos = flag_lookup ( word, flag_table );
if ( pos == 0 )
{
send_to_char ( "That flag doesn't exist!\n\r", ch );
return;
}
else
SET_BIT ( marked, pos );
}
for ( pos = 0; flag_table[pos].name != NULL; pos++ )
{
if ( !flag_table[pos].settable &&
IS_SET ( old, flag_table[pos].bit ) )
{
SET_BIT ( new, flag_table[pos].bit );
continue;
}
if ( IS_SET ( marked, flag_table[pos].bit ) )
{
switch ( type )
{
case '=':
case '+':
SET_BIT ( new, flag_table[pos].bit );
break;
case '-':
REMOVE_BIT ( new, flag_table[pos].bit );
break;
default:
if ( IS_SET ( new, flag_table[pos].bit ) )
REMOVE_BIT ( new, flag_table[pos].bit );
else
SET_BIT ( new, flag_table[pos].bit );
}
}
}
*flag = new;
return;
}
else if ( !str_prefix ( arg1, "room" ) )
{
/* Rooms */
location = find_location ( ch, arg2 );
if ( location == NULL )
{
send_to_char ( "No such location.\n\r", ch );
return;
}
if ( !str_prefix ( arg3, "room" ) )
{
flag = ( long * ) &location->room_flags;
flag_table = area_room;
}
else
{
send_to_char ( "That's not an acceptable flag.\n\r", ch );
return;
}
old = *flag;
if ( type != '=' )
new = old;
/* mark the words */
for ( ;; )
{
argument = one_argument ( argument, word );
if ( word[0] == '\0' )
break;
pos = flag_lookup ( word, flag_table );
if ( pos == 0 )
{
send_to_char ( "That flag doesn't exist!\n\r", ch );
return;
}
else
SET_BIT ( marked, pos );
}
for ( pos = 0; flag_table[pos].name != NULL; pos++ )
{
if ( !flag_table[pos].settable &&
IS_SET ( old, flag_table[pos].bit ) )
{
SET_BIT ( new, flag_table[pos].bit );
continue;
}
if ( IS_SET ( marked, flag_table[pos].bit ) )
{
switch ( type )
{
case '=':
case '+':
SET_BIT ( new, flag_table[pos].bit );
break;
case '-':
REMOVE_BIT ( new, flag_table[pos].bit );
break;
default:
if ( IS_SET ( new, flag_table[pos].bit ) )
REMOVE_BIT ( new, flag_table[pos].bit );
else
SET_BIT ( new, flag_table[pos].bit );
}
}
}
*flag = new;
return;
}
}