/*obj_cmds.c: used to be all in mob_cmds.c/h, broken up 4/9/2004 7:41PM JH*/
#include <sys/types.h>
#include <cctype>
#include <cstdio>
#include <cstring>
#include <cstdlib>
#include "merc.h"
#include "obj_cmds.h"
extern ROOM_INDEX_DATA *find_location( CHAR_DATA *, char * );
extern char *prog_type_to_name( int type );
DECLARE_DO_FUN( do_look );
/*
* OBJcommand table.
*/
//JH do_opat is new 2/6/2004 9:13PM
const struct obj_cmd_type obj_cmd_table [] =
{
{ "gecho", do_opgecho },
{ "zecho", do_opzecho },
{ "echo", do_opecho },
{ "echoaround", do_opechoaround },
{ "echoat", do_opechoat },
{ "mload", do_opmload },
{ "iload", do_opiload },
{ "oload", do_opoload },
{ "purge", do_oppurge },
{ "goto", do_opgoto },
{ "transfer", do_optransfer },
{ "gtransfer", do_opgtransfer },
{ "otransfer", do_opotransfer },
{ "force", do_opforce },
{ "gforce", do_opgforce },
{ "vforce", do_opvforce },
{ "damage", do_opdamage },
{ "remember", do_opremember },
{ "forget", do_opforget },
{ "delay", do_opdelay },
{ "cancel", do_opcancel },
{ "call", do_opcall },
{ "remove", do_opremove },
{ "at", do_opat},
{ "attrib", do_opattrib },
{ "", 0 }
};
/*
* OBJprog section
*/
void do_obj( OBJ_DATA *obj, char *argument )
{
/*
* Security check!
*/
if ( obj->level < MAX_LEVEL )
return;
obj_interpret( obj, argument );
}
/*
* Obj command interpreter. Implemented separately for security and speed
* reasons. A trivial hack of interpret()
*/
void obj_interpret( OBJ_DATA *obj, char *argument )
{
char buf[MAX_STRING_LENGTH], command[MAX_INPUT_LENGTH];
int cmd;
//writelogf("obj_interpret: argument %s", argument);
argument = one_argument( argument, command );
//writelogf("obj_interpret: argument %s", argument);
/*
* Look for command in command table.
*/
for ( cmd = 0; obj_cmd_table[cmd].name[0] != '\0'; cmd++ )
{
if ( command[0] == obj_cmd_table[cmd].name[0]
&& !str_prefix( command, obj_cmd_table[cmd].name ) )
{
(*obj_cmd_table[cmd].obj_fun) ( obj, argument );
tail_chain( );
return;
}
}
sprintf( buf, "Obj_interpret: invalid cmd from obj %d: '%s'",
obj->pIndexData->vnum, command );
bug( buf, 0 );
}
/*
* Displays OBJprogram triggers of an object
*
* Syntax: opstat [name]
*/
void do_opstat( CHAR_DATA *ch, char *argument )
{
char arg[ MAX_STRING_LENGTH ];
PROG_LIST *oprg;
OBJ_DATA *obj;
int i;
one_argument( argument, arg );
if ( arg[0] == '\0' )
{
send_to_char( "Opstat what?\n\r", ch );
return;
}
if ( ( obj = get_obj_world( ch, arg ) ) == NULL )
{
send_to_char( "No such object.\n\r", ch );
return;
}
ch_printf( ch, "Object #%-6d [%s]\n\r",
obj->pIndexData->vnum, obj->short_descr );
ch_printf( ch, "Delay %-6d [%s]\n\r",
obj->oprog_delay,
obj->oprog_target == NULL
? "No target" : obj->oprog_target->name );
if ( !obj->pIndexData->oprog_flags )
{
send_to_char( "[No programs set]\n\r", ch);
return;
}
for ( i = 0, oprg = obj->pIndexData->oprogs; oprg != NULL; oprg = oprg->next )
{
draw_line(ch, "{W-{x-", 0);
ch_printf(ch, "[%2d] Trigger [%-8s] Program [%4d] Phrase [%s]\n\r Program comments :%s\n\r",
++i,
prog_type_to_name( oprg->trig_type ),
oprg->vnum,
oprg->trig_phrase,
oprg->comments );
}
return;
}
/*
* Displays the source code of a given OBJprogram
*
* Syntax: opdump [vnum]
*/
void do_opdump( CHAR_DATA *ch, char *argument )
{
char buf[ MAX_INPUT_LENGTH ];
PROG_CODE *oprg;
one_argument( argument, buf );
if ( ( oprg = get_prog_index( atoi(buf), PRG_OPROG ) ) == NULL )
{
send_to_char( "No such OBJprogram.\n\r", ch );
return;
}
page_to_char( oprg->code, ch );
}
/*
* Prints the argument to all active players in the game
*
* Syntax: obj gecho [string]
*/
void do_opgecho( OBJ_DATA *obj, char *argument )
{
DESCRIPTOR_DATA *d;
if ( argument[0] == '\0' )
{
bug( "OpGEcho: missing argument from vnum %d",
obj->pIndexData->vnum );
return;
}
for ( d = descriptor_list; d; d = d->next )
{
if ( d->connected == CON_PLAYING )
{
if ( IS_IMMORTAL(d->character) )
send_to_char( "Obj echo> ", d->character );
send_to_char( argument, d->character );
send_to_char( "\n\r", d->character );
}
}
}
/*
* Prints the argument to all players in the same area as the mob
*
* Syntax: obj zecho [string]
*/
void do_opzecho( OBJ_DATA *obj, char *argument )
{
DESCRIPTOR_DATA *d;
//JH 2/5/2004 4:47PM
OBJ_DATA *host;
//find_container_or_obj will return either the container obj is in (allow nesting)
//or return the obj itself
host = find_container_or_obj(obj);
if ( argument[0] == '\0' )
{
bug( "OpZEcho: missing argument from vnum %d",
host->pIndexData->vnum );
return;
}
if ( host->in_room == NULL && (host->carried_by == NULL || host->carried_by->in_room == NULL) )
return;
for ( d = descriptor_list; d; d = d->next )
{
if ( d->connected == CON_PLAYING
&& d->character->in_room != NULL
&& ( (host->in_room && d->character->in_room->area == host->in_room->area)
|| (host->carried_by && d->character->in_room->area == host->carried_by->in_room->area) ) )
{
if ( IS_IMMORTAL(d->character) )
send_to_char( "Obj echo> ", d->character );
send_to_char( argument, d->character );
send_to_char( "\n\r", d->character );
}
}
}
/*
* Prints the message to everyone in the room other than the mob and victim
*
* Syntax: obj echoaround [victim] [string]
*/
void do_opechoaround( OBJ_DATA *obj, char *argument )
{
char arg[ MAX_INPUT_LENGTH ];
CHAR_DATA *victim, *vch;
argument = one_argument( argument, arg );
if ( arg[0] == '\0' )
return;
OBJ_DATA *host;
//find_container_or_obj will return either the container obj is in (allow nesting)
//or return the obj itself
host = find_container_or_obj(obj);
if ( ( victim=get_char_room( NULL, host->in_room?host->in_room:host->carried_by->in_room, arg ) ) == NULL )
return;
if ( host->in_room && host->in_room->people )
vch = host->in_room->people;
else if ( host->carried_by && host->carried_by->in_room )
vch = host->carried_by->in_room->people;
else
vch = NULL;
for ( ; vch; vch = vch->next_in_room )
{
if ( vch == victim )
continue;
send_to_char( argument, vch );
}
}
/*
* Prints the message to only the victim
*
* Syntax: obj echoat [victim] [string]
*/
void do_opechoat( OBJ_DATA *obj, char *argument )
{
char arg[ MAX_INPUT_LENGTH ];
CHAR_DATA *victim;
argument = one_argument( argument, arg );
OBJ_DATA *host;
host = find_container_or_obj(obj);
if ( arg[0] == '\0' || argument[0] == '\0' )
return;
if ( ( victim = get_char_room( NULL, host->in_room?host->in_room:host->carried_by->in_room, arg ) ) == NULL )
return;
/*
writelogf("opechoat: arg: %s, host->short_descr: %s, victim->name: %s",
arg, host->short_descr, victim->name);
if (host->carried_by)
writelogf("host->carried_by->name: %s", host->carried_by->name);
else
writelogf("host->in_room->people->name: %s", host->in_room->people->name);
*/
act( argument, victim, obj, NULL, TO_CHAR );
//act( argument, host->carried_by?host->carried_by:host->in_room->people, obj, victim, TO_VICT );
}
/*
* Prints the message to the room at large
*
* Syntax: obj echo [string]
*/
void do_opecho( OBJ_DATA *obj, char *argument )
{
if ( argument[0] == '\0' )
return;
OBJ_DATA *host;
host = find_container_or_obj(obj);
if ( !host->carried_by && !host->in_room->people )
return;
act( argument, host->carried_by?host->carried_by:host->in_room->people, NULL, NULL, TO_ROOM );
act( argument, host->carried_by?host->carried_by:host->in_room->people, NULL, NULL, TO_CHAR );
}
/*
* Lets the object load a mobile.
*
* Syntax: obj mload [vnum]
*/
void do_opmload( OBJ_DATA *obj, char *argument )
{
char arg[ MAX_INPUT_LENGTH ];
MOB_INDEX_DATA *pMobIndex;
CHAR_DATA *victim;
int vnum;
one_argument( argument, arg );
OBJ_DATA *host;
host = find_container_or_obj(obj);
if ( (host->in_room == NULL
&& (host->carried_by == NULL || host->carried_by->in_room == NULL))
|| arg[0] == '\0' || !is_number(arg) )
return;
vnum = atoi(arg);
if ( ( pMobIndex = get_mob_index( vnum ) ) == NULL )
{
sprintf( arg, "Opmload: bad mob index (%d) from obj %d",
vnum, obj->pIndexData->vnum );
bug( arg, 0 );
return;
}
victim = create_mobile( pMobIndex );
char_to_room( victim, host->in_room?host->in_room:host->carried_by->in_room );
return;
}
/*
* Lets the object load another object
*
* Syntax: obj oload [vnum] [level]
*/
void do_opoload( OBJ_DATA *obj, char *argument )
{
char arg1[ MAX_INPUT_LENGTH ];
char arg2[ MAX_INPUT_LENGTH ];
OBJ_INDEX_DATA *pObjIndex;
OBJ_DATA *nobj;
int level;
argument = one_argument( argument, arg1 );
argument = one_argument( argument, arg2 );
if ( arg1[0] == '\0' || !is_number( arg1 ) )
{
bug( "Opoload - Bad syntax from vnum %d.",
obj->pIndexData->vnum );
return;
}
if ( arg2[0] == '\0' )
{
level = obj->level;
}
else
{
/*
* New feature from Alander.
*/
if ( !is_number( arg2 ) )
{
bug( "Opoload - Bad syntax from vnum %d.",
obj->pIndexData->vnum );
return;
}
level = atoi( arg2 );
if ( level < 0 || level > obj->level )
{
bug( "Opoload - Bad level from vnum %d.",
obj->pIndexData->vnum );
return;
}
}
if ( ( pObjIndex = get_obj_index( atoi( arg1 ) ) ) == NULL )
{
bug( "Opoload - Bad vnum arg from vnum %d.",
obj->pIndexData->vnum );
return;
}
nobj = create_object( pObjIndex, level );
OBJ_DATA *host;
host = find_container_or_obj(obj);
obj_to_room( nobj, host->in_room?host->in_room:host->carried_by->in_room );
return;
}
/*
* Lets the object load an object into a person's inventory.
*
* Syntax: obj iload [vnum] [person]
*/
void do_opiload( OBJ_DATA *obj, char *argument )
{
char arg1[ MAX_INPUT_LENGTH ];
char arg2[ MAX_INPUT_LENGTH ];
OBJ_INDEX_DATA *pObjIndex;
OBJ_DATA *nobj;
CHAR_DATA *victim;
OBJ_DATA *host;
host = find_container_or_obj(obj);
argument = one_argument( argument, arg1 );
argument = one_argument( argument, arg2 );
if ( arg1[0] == '\0' || !is_number( arg1 ) )
{
bug( "Opiload - Bad syntax from vnum %d.",
obj->pIndexData->vnum );
return;
}
if ( ( pObjIndex = get_obj_index( atoi( arg1 ) ) ) == NULL )
{
bug( "Opiload - Bad vnum arg from vnum %d.",
obj->pIndexData->vnum );
return;
}
if ( ( victim = get_char_room( NULL, (host->in_room)?host->in_room:host->carried_by->in_room, arg2 ) ) == NULL )
return;
nobj = create_object( pObjIndex, pObjIndex->level );
obj_to_char( nobj, victim );
return;
}
/*
* Lets the object purge all other objects and npcs in the room,
* or purge a specified object or mob in the room. The object cannot
* purge itself for safety reasons.
*
* syntax obj purge {target}
*/
void do_oppurge( OBJ_DATA *obj, char *argument )
{
char arg[ MAX_INPUT_LENGTH ];
CHAR_DATA *victim;
OBJ_DATA *vobj;
one_argument( argument, arg );
OBJ_DATA *host;
host = find_container_or_obj(obj);
if ( arg[0] == '\0' )
{
/* 'purge' */
CHAR_DATA *vnext;
OBJ_DATA *obj_next;
if ( host->in_room && host->in_room->people )
victim = host->in_room->people;
else if ( host->carried_by && host->carried_by->in_room )
victim = host->carried_by->in_room->people;
else
victim = NULL;
for ( ; victim != NULL; victim = vnext )
{
vnext = victim->next_in_room;
if ( IS_NPC( victim )
&& !IS_SET(victim->act, ACT_NOPURGE) )
extract_char( victim, TRUE );
}
if ( host->in_room )
vobj = host->in_room->contents;
else
vobj = host->carried_by->in_room->contents;
for ( ; vobj != NULL; vobj = obj_next )
{
obj_next = vobj->next_content;
if ( !IS_SET(vobj->extra_flags, ITEM_NOPURGE) && vobj != host )
extract_obj( vobj );
}
return;
}
if ( ( victim = get_char_room( NULL, host->in_room?host->in_room:host->carried_by->in_room, arg ) ) == NULL )
{
if ( ( vobj = get_obj_here( NULL, host->in_room?host->in_room:host->carried_by->in_room, arg ) ) )
{
extract_obj( vobj );
}
else if ( host->carried_by && (vobj = get_obj_carry( host->carried_by, arg, NULL )) != NULL)
{
extract_obj( vobj );
}
else if ( host->carried_by && (vobj = get_obj_wear( host->carried_by, arg, FALSE )) != NULL )
{
unequip_char( vobj->carried_by, vobj );
extract_obj( vobj );
}
else
{
bug( "Oppurge - Bad argument from vnum %d.",
obj->pIndexData->vnum );
}
return;
}
if ( !IS_NPC( victim ) )
{
bug( "Oppurge - Purging a PC from vnum %d.",
obj->pIndexData->vnum );
return;
}
extract_char( victim, TRUE );
return;
}
/*
* Lets the object goto any location it wishes that is not private.
* JH: An object can be put into another. If this is the case,
* We'll need to first remove it from its container and then send it on its way.
* Syntax: obj goto [location]
*/
void do_opgoto( OBJ_DATA *obj, char *argument )
{
char arg[ MAX_INPUT_LENGTH ];
ROOM_INDEX_DATA *location;
CHAR_DATA *victim;
OBJ_DATA *dobj;
OBJ_DATA *host;
host = find_container(obj);
one_argument( argument, arg );
if ( arg[0] == '\0' )
{
bug( "Opgoto - No argument from vnum %d.",
obj->pIndexData->vnum );
return;
}
if ( is_number(arg) )
location = get_room_index( atoi( arg ) );
else if ( (victim = get_char_world( NULL, arg )) != NULL )
location = victim->in_room;
else if ( ( dobj = get_obj_world( NULL, arg )) != NULL )
location = dobj->in_room;
else
{
bug( "Opgoto - No such location from vnum %d.",
obj->pIndexData->vnum );
return;
}
if ( obj->in_room != NULL )
obj_from_room( obj );
else if ( obj->carried_by != NULL )
obj_from_char( obj );
else if (host) //Object's in something.
obj_from_obj(obj);
obj_to_room( obj, location );
return;
}
/*
* Lets the object transfer people. The 'all' argument transfers
* everyone in the current room to the specified location
*
* Syntax: obj transfer [target|'all'] [location]
*/
void do_optransfer( OBJ_DATA *obj, char *argument )
{
char arg1[ MAX_INPUT_LENGTH ];
char arg2[ MAX_INPUT_LENGTH ];
char buf[MAX_STRING_LENGTH];
ROOM_INDEX_DATA *location;
CHAR_DATA *victim;
OBJ_DATA *dobj;
argument = one_argument( argument, arg1 );
argument = one_argument( argument, arg2 );
if ( arg1[0] == '\0' )
{
bug( "Optransfer - Bad syntax from vnum %d.",
obj->pIndexData->vnum );
return;
}
OBJ_DATA *host;
host = find_container_or_obj(obj);
if ( !str_cmp( arg1, "all" ) )
{
CHAR_DATA *victim_next;
if ( host->in_room && host->in_room->people )
victim = host->in_room->people;
else if ( host->carried_by )
victim = host->carried_by->in_room->people;
else
victim = NULL;
for ( ; victim != NULL; victim = victim_next )
{
victim_next = victim->next_in_room;
if ( !IS_NPC(victim) )
{
sprintf( buf, "%s %s", victim->name, arg2 );
do_optransfer( host, buf );
}
}
return;
}
/*
* Thanks to Grodyn for the optional location parameter.
*/
if ( arg2[0] == '\0' )
{
location = host->in_room?host->in_room:host->carried_by->in_room;
}
else
{
if ( is_number(arg2))
location = get_room_index( atoi(arg2) );
else if ( (victim = get_char_world( NULL, arg2 )) != NULL )
location = victim->in_room;
else if ( ( dobj = get_obj_world( NULL, arg2 )) != NULL )
location = dobj->in_room;
else
{
bug( "Optransfer - No such location from vnum %d.",
obj->pIndexData->vnum );
return;
}
if ( room_is_private( location ) )
return;
}
if ( ( victim = get_char_world( NULL, arg1 ) ) == NULL )
return;
if ( victim->in_room == NULL )
return;
if ( victim->fighting != NULL )
stop_fighting( victim, TRUE );
char_from_room( victim );
char_to_room( victim, location );
do_look( victim, "auto" );
return;
}
/*
* Lets the object transfer all chars in same group as the victim.
*
* Syntax: obj gtransfer [victim] [location]
*/
void do_opgtransfer( OBJ_DATA *obj, char *argument )
{
char arg1[ MAX_INPUT_LENGTH ];
char arg2[ MAX_INPUT_LENGTH ];
char buf[MAX_STRING_LENGTH];
CHAR_DATA *who, *victim, *victim_next;
argument = one_argument( argument, arg1 );
argument = one_argument( argument, arg2 );
if ( arg1[0] == '\0' )
{
bug( "Opgtransfer - Bad syntax from vnum %d.",
obj->pIndexData->vnum );
return;
}
OBJ_DATA *host;
host = find_container_or_obj(obj);
if ( (who = get_char_room( NULL, (host->in_room)?host->in_room:host->carried_by->in_room, arg1 )) == NULL )
return;
if ( host->in_room && host->in_room->people )
victim = host->in_room->people;
else if ( host->carried_by && host->carried_by->in_room)
victim = host->carried_by->in_room->people;
else
victim = NULL;
for ( ; victim; victim = victim_next )
{
victim_next = victim->next_in_room;
if( is_same_group( who,victim ) )
{
sprintf( buf, "%s %s", victim->name, arg2 );
do_optransfer( host, buf );
}
}
return;
}
/*
* Lets the object force someone to do something. Must be mortal level
* and the all argument only affects those in the room with the object.
*
* Syntax: obj force [victim] [commands]
*/
void do_opforce( OBJ_DATA *obj, char *argument )
{
char arg[ MAX_INPUT_LENGTH ];
argument = one_argument( argument, arg );
if ( arg[0] == '\0' || argument[0] == '\0' )
{
bug( "Opforce - Bad syntax from vnum %d.",
obj->pIndexData->vnum );
return;
}
OBJ_DATA *host;
host = find_container_or_obj(obj);
if ( !host->in_room && !host->carried_by )
return;
if ( host->in_room && !host->in_room->people )
return;
if ( host->carried_by && !host->carried_by->in_room )
return;
if ( !str_cmp( arg, "all" ) )
{
CHAR_DATA *vch;
CHAR_DATA *vch_next;
for ( vch = char_list; vch != NULL; vch = vch_next )
{
vch_next = vch->next;
if ( ((host->in_room && vch->in_room == host->in_room)
|| (host->carried_by && vch->in_room == host->carried_by->in_room))
&& get_trust( vch ) < obj->level )
{
interpret( vch, argument );
}
}
}
else
{
CHAR_DATA *victim;
if ( ( victim = get_char_room( NULL, (host->in_room)?host->in_room:host->carried_by->in_room, arg ) ) == NULL )
return;
interpret( victim, argument );
}
return;
}
/*
* Lets the object force a group something. Must be mortal level.
*
* Syntax: obj gforce [victim] [commands]
*/
void do_opgforce( OBJ_DATA *obj, char *argument )
{
char arg[ MAX_INPUT_LENGTH ];
CHAR_DATA *victim, *vch, *vch_next;
argument = one_argument( argument, arg );
if ( arg[0] == '\0' || argument[0] == '\0' )
{
bug( "OpGforce - Bad syntax from vnum %d.",
obj->pIndexData->vnum );
return;
}
OBJ_DATA *host;
host = find_container_or_obj(obj);
if ( ( victim = get_char_room( NULL, host->in_room?host->in_room:host->carried_by->in_room, arg ) ) == NULL )
return;
for ( vch = victim->in_room->people; vch != NULL; vch = vch_next )
{
vch_next = vch->next_in_room;
if ( is_same_group(victim,vch) )
{
interpret( vch, argument );
}
}
return;
}
/*
* Forces all mobiles of certain vnum to do something
*
* Syntax: obj vforce [vnum] [commands]
*/
void do_opvforce( OBJ_DATA *obj, char *argument )
{
CHAR_DATA *victim, *victim_next;
char arg[ MAX_INPUT_LENGTH ];
int vnum;
argument = one_argument( argument, arg );
if ( arg[0] == '\0' || argument[0] == '\0' )
{
bug( "OpVforce - Bad syntax from vnum %d.",
obj->pIndexData->vnum );
return;
}
if ( !is_number( arg ) )
{
bug( "OpVforce - Non-number argument vnum %d.",
obj->pIndexData->vnum );
return;
}
vnum = atoi( arg );
for ( victim = char_list; victim; victim = victim_next )
{
victim_next = victim->next;
if ( IS_NPC(victim) && victim->pIndexData->vnum == vnum
&& victim->fighting == NULL )
interpret( victim, argument );
}
return;
}
/*
* Lets obj cause unconditional damage to someone. Nasty, use with caution.
* Also, this is silent, you must show your own damage message...
*
* Syntax: obj damage [victim] [min] [max] {kill}
*/
void do_opdamage( OBJ_DATA *obj, char *argument )
{
CHAR_DATA *victim = NULL, *victim_next;
char target[ MAX_INPUT_LENGTH ],
min[ MAX_INPUT_LENGTH ],
max[ MAX_INPUT_LENGTH ];
int low, high;
bool fAll = FALSE, fKill = FALSE;
argument = one_argument( argument, target );
argument = one_argument( argument, min );
argument = one_argument( argument, max );
if ( target[0] == '\0' )
{
bug( "OpDamage - Bad syntax from vnum %d.", obj->pIndexData->vnum );
return;
}
OBJ_DATA *host = find_container_or_obj(obj);
if( !str_cmp( target, "all" ) )
fAll = TRUE;
else if( ( victim = get_char_room( NULL, host->in_room?host->in_room:host->carried_by->in_room, target ) ) == NULL )
return;
if ( is_number( min ) )
low = atoi( min );
else
{
bug( "OpDamage - Bad damage min vnum %d.",
obj->pIndexData->vnum );
return;
}
if ( is_number( max ) )
high = atoi( max );
else
{
bug( "OpDamage - Bad damage max vnum %d.",
obj->pIndexData->vnum );
return;
}
one_argument( argument, target );
/*
* If kill parameter is omitted, this command is "safe" and will not
* kill the victim.
*/
if ( target[0] != '\0' )
fKill = TRUE;
if ( fAll )
{
if ( host->in_room && host->in_room->people )
victim = host->in_room->people;
else if ( host->carried_by )
victim = host->carried_by->in_room->people;
else
victim = NULL;
for( ; victim; victim = victim_next )
{
victim_next = victim->next_in_room;
if (host->carried_by)
{
if (victim != host->carried_by )
damage( victim, victim,
fKill ?
number_range(low,high) : UMIN(victim->hit,number_range(low,high)),
TYPE_UNDEFINED, DAM_NONE, FALSE );
}
else
{
damage( victim, victim,
fKill ?
number_range(low,high) : UMIN(victim->hit,number_range(low,high)),
TYPE_UNDEFINED, DAM_NONE, FALSE );
}
}
}
else
damage( victim, victim,
fKill ?
number_range(low,high) : UMIN(victim->hit,number_range(low,high)),
TYPE_UNDEFINED, DAM_NONE, FALSE );
return;
}
/*
* Lets the object to remember a target. The target can be referred to
* with $q and $Q codes in OBJprograms. See also "obj forget".
*
* Syntax: obj remember [victim]
*/
void do_opremember( OBJ_DATA *obj, char *argument )
{
char arg[ MAX_INPUT_LENGTH ];
one_argument( argument, arg );
if ( arg[0] != '\0' )
obj->oprog_target = get_char_world( NULL, arg );
else
bug( "OpRemember: missing argument from vnum %d.",
obj->pIndexData->vnum );
}
/*
* Reverse of "obj remember".
*
* Syntax: obj forget
*/
void do_opforget( OBJ_DATA *obj, char *argument )
{
obj->oprog_target = NULL;
}
/*
* Sets a delay for OBJprogram execution. When the delay time expires,
* the object is checked for a OBJprogram with DELAY trigger, and if
* one is found, it is executed. Delay is counted in PULSE_TICK
*
* Syntax: obj delay [pulses]
*/
void do_opdelay( OBJ_DATA *obj, char *argument )
{
char arg[ MAX_INPUT_LENGTH ];
one_argument( argument, arg );
if ( !is_number( arg ) )
{
bug( "OpDelay: invalid arg from vnum %d.",
obj->pIndexData->vnum );
return;
}
obj->oprog_delay = atoi( arg );
}
/*
* Reverse of "obj delay", deactivates the timer.
*
* Syntax: obj cancel
*/
void do_opcancel( OBJ_DATA *obj, char *argument )
{
obj->oprog_delay = -1;
}
/*
* Lets the object to call another OBJprogram withing a OBJprogram.
* This is a crude way to implement subroutines/functions. Beware of
* nested loops and unwanted triggerings... Stack usage might be a problem.
* Characters and objects referred to must be in the same room with the
* mobile.
*
* Syntax: obj call [vnum] [victim|'null'] [object1|'null'] [object2|'null']
*
*/
//JH: I am sweating a little as I begin modifying this function. :) 2/5/2004 5:41PM
void do_opcall( OBJ_DATA *obj, char *argument )
{
char arg[ MAX_INPUT_LENGTH ];
CHAR_DATA *vch;
OBJ_DATA *obj1, *obj2;
PROG_CODE *prg;
extern void program_flow( sh_int, char *, CHAR_DATA *, OBJ_DATA *, ROOM_INDEX_DATA *, CHAR_DATA *, const void *, const void *, int );
argument = one_argument( argument, arg );
if ( arg[0] == '\0' )
{
bug( "OpCall: missing arguments from vnum %d.",
obj->pIndexData->vnum );
return;
}
if ( ( prg = get_prog_index( atoi(arg), PRG_OPROG ) ) == NULL )
{
bug( "OpCall: invalid prog from vnum %d.",
obj->pIndexData->vnum );
return;
}
vch = NULL;
obj1 = obj2 = NULL;
argument = one_argument( argument, arg );
//JH Allow the host to do work on behalf of the object if it is in a container (unfair!)
OBJ_DATA *host;
host = find_container_or_obj(obj);
if ( arg[0] != '\0' )
vch = get_char_room( NULL, host->in_room?host->in_room:host->carried_by->in_room, arg );
argument = one_argument( argument, arg );
if ( arg[0] != '\0' )
obj1 = get_obj_here( NULL, host->in_room?host->in_room:host->carried_by->in_room, arg );
argument = one_argument( argument, arg );
if ( arg[0] != '\0' )
obj2 = get_obj_here( NULL, host->in_room?host->in_room:host->carried_by->in_room, arg );
program_flow( prg->vnum, prg->code, NULL, obj, NULL, vch, (void *)obj1, (void *)obj2, 1 );
}
/*
* Lets the object to transfer an object. The object must be in the same
* room with the object.
*
* Syntax: obj otransfer [item name] [location]
*/
void do_opotransfer( OBJ_DATA *obj, char *argument )
{
OBJ_DATA *obj1, *dobj;
ROOM_INDEX_DATA *location;
char arg[ MAX_INPUT_LENGTH ];
char buf[ MAX_INPUT_LENGTH ];
CHAR_DATA *victim;
argument = one_argument( argument, arg );
if ( arg[0] == '\0' )
{
bug( "OpOTransfer - Missing argument from vnum %d.",
obj->pIndexData->vnum );
return;
}
OBJ_DATA *host;
host = find_container_or_obj(obj);
one_argument( argument, buf );
if ( is_number( buf ) )
location = get_room_index( atoi(buf) );
else if ( (victim = get_char_world( NULL, buf )) != NULL )
location = victim->in_room;
else if ( ( dobj = get_obj_world( NULL, arg )) != NULL )
location = dobj->in_room;
else
{
bug( "OpOTransfer - No such location from vnum %d.",
obj->pIndexData->vnum );
return;
}
if ( (obj1 = get_obj_here( NULL, host->in_room?host->in_room:host->carried_by->in_room, arg )) == NULL )
return;
if ( obj1->carried_by == NULL )
obj_from_room( obj1 );
else
{
if ( obj1->wear_loc != WEAR_NONE )
unequip_char( obj1->carried_by, obj1 );
obj_from_char( obj1 );
}
obj_to_room( obj1, location );
}
/*
* Lets the object to strip an object or all objects from the victim.
* Useful for removing e.g. quest objects from a character.
*
* Syntax: obj remove [victim] [object vnum|'all']
*/
void do_opremove( OBJ_DATA *obj, char *argument )
{
CHAR_DATA *victim;
OBJ_DATA *obj1, *obj_next;
sh_int vnum = 0;
bool fAll = FALSE;
char arg[ MAX_INPUT_LENGTH ];
argument = one_argument( argument, arg );
OBJ_DATA *host;
host = find_container_or_obj(obj);
if ( ( victim = get_char_room( NULL, host->in_room?host->in_room:host->carried_by->in_room, arg ) ) == NULL )
return;
one_argument( argument, arg );
if ( !str_cmp( arg, "all" ) )
fAll = TRUE;
else if ( !is_number( arg ) )
{
bug ( "OpRemove: Invalid object from vnum %d.",
obj->pIndexData->vnum );
return;
}
else
vnum = atoi( arg );
for ( obj1 = victim->carrying; obj1; obj1 = obj_next )
{
obj_next = obj->next_content;
if ( fAll || obj1->pIndexData->vnum == vnum )
{
unequip_char( victim, obj1 );
obj_from_char( obj1 );
extract_obj( obj1 );
}
}
}
/*
* Lets the object change its stats, can be related to the
* target's level by adding a +,-,*,/ to the end of the value.
*
* Syntax: obj attrib [target] [level] [condition] [v0] [v1] [v2] [v3] [v4]
*/
void do_opattrib( OBJ_DATA *obj, char *argument )
{
CHAR_DATA *ch;
char target[MAX_INPUT_LENGTH], arg1[MAX_INPUT_LENGTH], arg2[MAX_INPUT_LENGTH];
char arg3[MAX_INPUT_LENGTH], arg4[MAX_INPUT_LENGTH], arg5[MAX_INPUT_LENGTH];
char arg6[MAX_INPUT_LENGTH], arg7[MAX_INPUT_LENGTH];
char mod, *p;
int i, level, condition, value0, value1, value2, value3, value4;
argument = one_argument( argument, target );
argument = one_argument( argument, arg1 );
argument = one_argument( argument, arg2 );
argument = one_argument( argument, arg3 );
argument = one_argument( argument, arg4 );
argument = one_argument( argument, arg5 );
argument = one_argument( argument, arg6 );
one_argument( argument, arg7 );
OBJ_DATA *host;
host = find_container_or_obj(obj);
if ( !strcmp( target, "worn" ) )
{
if ( !host->carried_by )
return;
else
ch = host->carried_by;
}
else if ( ( ch = get_char_room( NULL, host->in_room ? host->in_room : host->carried_by->in_room, target ) ) == NULL )
return;
if ( !strcmp( arg1, "none" ) )
level = obj->level;
else if ( !isdigit( arg1[0] ) )
{
p = arg1;
mod = arg1[0];
for ( i = 1; i; i++ )
{
if ( arg1[i] == '\0' )
{
*p = '\0';
break;
}
*p = arg1[i];
p++;
}
if ( !is_number( arg1 ) )
{
bug( "OpAttrib: received non-number argument from vnum %d",
obj->pIndexData->vnum );
return;
}
switch ( mod )
{
case '+':
level = ch->level + atoi( arg1 );
break;
case '-':
level = ch->level - atoi( arg1 );
break;
case '*':
level = ch->level * atoi( arg1 );
break;
case '/':
level = ch->level / atoi( arg1 );
break;
default:
bug( "OpAttrib: invalid modifier from vnum %d", obj->pIndexData->vnum );
return;
}
}
else if ( is_number( arg1 ) )
level = atoi( arg1 );
else
{
bug( "OpAttrib: received non-number argument from vnum %d",
obj->pIndexData->vnum );
return;
}
if ( !strcmp( arg2, "none" ) )
condition = obj->condition;
else if ( !isdigit( arg2[0] ) )
{
p = arg2;
mod = arg2[0];
for ( i = 1; i; i++ )
{
if ( arg2[i] == '\0' )
{
*p = '\0';
break;
}
*p = arg2[i];
p++;
}
if ( !is_number( arg2 ) )
{
bug( "OpAttrib: received non-number argument from vnum %d",
obj->pIndexData->vnum );
return;
}
switch ( mod )
{
case '+':
condition = ch->level + atoi( arg2 );
break;
case '-':
condition = ch->level - atoi( arg2 );
break;
case '*':
condition = ch->level * atoi( arg2 );
break;
case '/':
condition = ch->level / atoi( arg2 );
break;
default:
bug( "OpAttrib: invalid modifier from vnum %d", obj->pIndexData->vnum );
return;
}
}
else if ( is_number( arg2 ) )
condition = atoi( arg2 );
else
{
bug( "OpAttrib: received non-number argument from vnum %d",
obj->pIndexData->vnum );
return;
}
if ( !strcmp( arg3, "none" ) )
value0 = obj->value[0];
else if ( !isdigit( arg3[0] ) )
{
p = arg3;
mod = arg3[0];
for ( i = 1; i; i++ )
{
if ( arg3[i] == '\0' )
{
*p = '\0';
break;
}
*p = arg3[i];
p++;
}
if ( !is_number( arg3 ) )
{
bug( "OpAttrib: received non-number argument from vnum %d",
obj->pIndexData->vnum );
return;
}
switch ( mod )
{
case '+':
value0 = ch->level + atoi( arg3 );
break;
case '-':
value0 = ch->level - atoi( arg3 );
break;
case '*':
value0 = ch->level * atoi( arg3 );
break;
case '/':
value0 = ch->level / atoi( arg3 );
break;
default:
bug( "OpAttrib: invalid modifier from vnum %d", obj->pIndexData->vnum );
return;
}
}
else if ( is_number( arg3 ) )
value0 = atoi( arg3 );
else
{
bug( "OpAttrib: received non-number argument from vnum %d",
obj->pIndexData->vnum );
return;
}
if ( !strcmp( arg4, "none" ) )
value1 = obj->value[1];
else if ( !isdigit( arg4[0] ) )
{
p = arg4;
mod = arg4[0];
for ( i = 1; i; i++ )
{
if ( arg4[i] == '\0' )
{
*p = '\0';
break;
}
*p = arg4[i];
p++;
}
if ( !is_number( arg4 ) )
{
bug( "OpAttrib: received non-number argument from vnum %d",
obj->pIndexData->vnum );
return;
}
switch ( mod )
{
case '+':
value1 = ch->level + atoi( arg4 );
break;
case '-':
value1 = ch->level - atoi( arg4 );
break;
case '*':
value1 = ch->level * atoi( arg4 );
break;
case '/':
value1 = ch->level / atoi( arg4 );
break;
default:
bug( "OpAttrib: invalid modifier from vnum %d", obj->pIndexData->vnum );
return;
}
}
else if ( is_number( arg4 ) )
value1 = atoi( arg4 );
else
{
bug( "OpAttrib: received non-number argument from vnum %d",
obj->pIndexData->vnum );
return;
}
if ( !strcmp( arg5, "none" ) )
value2 = obj->value[2];
else if ( !isdigit( arg5[0] ) )
{
p = arg5;
mod = arg5[0];
for ( i = 1; i; i++ )
{
if ( arg5[i] == '\0' )
{
*p = '\0';
break;
}
*p = arg5[i];
p++;
}
if ( !is_number( arg5 ) )
{
bug( "OpAttrib: received non-number argument from vnum %d",
obj->pIndexData->vnum );
return;
}
switch ( mod )
{
case '+':
value2 = ch->level + atoi( arg5 );
break;
case '-':
value2 = ch->level - atoi( arg5 );
break;
case '*':
value2 = ch->level * atoi( arg5 );
break;
case '/':
value2 = ch->level / atoi( arg5 );
break;
default:
bug( "OpAttrib: invalid modifier from vnum %d", obj->pIndexData->vnum );
return;
}
}
else if ( is_number( arg5 ) )
value2 = atoi( arg5 );
else
{
bug( "OpAttrib: received non-number argument from vnum %d",
obj->pIndexData->vnum );
return;
}
if ( !strcmp( arg6, "none" ) )
value3 = obj->value[3];
else if ( !isdigit( arg6[0] ) )
{
p = arg6;
mod = arg6[0];
for ( i = 1; i; i++ )
{
if ( arg6[i] == '\0' )
{
*p = '\0';
break;
}
*p = arg6[i];
p++;
}
if ( !is_number( arg6 ) )
{
bug( "OpAttrib: received non-number argument from vnum %d",
obj->pIndexData->vnum );
return;
}
switch ( mod )
{
case '+':
value3 = ch->level + atoi( arg6 );
break;
case '-':
value3 = ch->level - atoi( arg6 );
break;
case '*':
value3 = ch->level * atoi( arg6 );
break;
case '/':
value3 = ch->level / atoi( arg6 );
break;
default:
bug( "OpAttrib: invalid modifier from vnum %d", obj->pIndexData->vnum );
return;
}
}
else if ( is_number( arg6 ) )
value3 = atoi( arg6 );
else
{
bug( "OpAttrib: received non-number argument from vnum %d",
obj->pIndexData->vnum );
return;
}
if ( !strcmp( arg7, "none" ) )
value4 = obj->value[4];
else if ( !isdigit( arg7[0] ) )
{
p = arg7;
mod = arg7[0];
for ( i = 1; i; i++ )
{
if ( arg7[i] == '\0' )
{
*p = '\0';
break;
}
*p = arg7[i];
p++;
}
if ( !is_number( arg7 ) )
{
bug( "OpAttrib: received non-number argument from vnum %d",
obj->pIndexData->vnum );
return;
}
switch ( mod )
{
case '+':
value4 = ch->level + atoi( arg7 );
break;
case '-':
value4 = ch->level - atoi( arg7 );
break;
case '*':
value4 = ch->level * atoi( arg7 );
break;
case '/':
value4 = ch->level / atoi( arg7 );
break;
default:
bug( "OpAttrib: invalid modifier from vnum %d", obj->pIndexData->vnum );
return;
}
}
else if ( is_number( arg7 ) )
value4 = atoi( arg7 );
else
{
bug( "OpAttrib: received non-number argument from vnum %d",
obj->pIndexData->vnum );
return;
}
obj->level = level;
obj->condition = condition;
obj->value[0] = value0;
obj->value[1] = value1;
obj->value[2] = value2;
obj->value[3] = value3;
obj->value[4] = value4;
}
/*
* Lets an object do a command at another location.
* JH 2/6/2004 9:14PM
* Syntax: obj at [location] [commands]
*/
void do_opat( OBJ_DATA *obj, char *argument )
{
char arg[MIL];
ROOM_INDEX_DATA *location;
ROOM_INDEX_DATA *original;
OBJ_DATA *gobj;
argument = one_argument( argument, arg );
//writelogf("do_opat 2931: argument %s", argument);
if ( arg[0] == '\0' || argument[0] == '\0' )
{
bug( "Opat - Bad argument from vnum %d.", obj->pIndexData->vnum);
return;
}
if ( ( location = find_location( NULL, arg ) ) == NULL )
{
bug( "Opat - No such location from vnum %d.", obj->pIndexData->vnum);
return;
}
if (obj->wear_loc != WEAR_NONE)
{
bug( "Opat - Object %d is currently worn.", obj->pIndexData->vnum);
return;
}
/*Dump the 'obj' prefix, if applicable. Eg. obj at 1430 obj echo <whatever>*/
if (!str_prefix("obj", argument))
argument = one_argument( argument, arg );
else
argument = argument;
if (obj->in_room != NULL)
{
/*Check furniture.*/
if (obj->item_type == ITEM_FURNITURE)
{
CHAR_DATA *gch;
for (gch = obj->in_room->people; gch != NULL; gch = gch->next_in_room)
{
/*Get off!*/
if (gch->on == obj)
{
gch->position = POS_STANDING;
gch->on = NULL;
}
}
}
original = obj->in_room;
obj_from_room( obj );
obj_to_room(obj, location);
obj_interpret( obj, argument );
for (gobj = object_list; gobj != NULL; gobj = gobj->next)
{
if ( gobj == obj )
{
obj_from_room( obj );
obj_to_room( obj, original );
return;
}
}
return;
}
/*Check container.*/
if (obj->in_obj != NULL)
{
OBJ_DATA *in_obj = obj->in_obj;
original = (find_container(obj))->in_room;
//writelogf("Original's vnum %d and room name: %s", original->vnum, original->name);
obj_from_obj(obj);
obj_to_room(obj, location);
obj_interpret( obj, argument );
for (gobj = object_list; gobj != NULL; gobj = gobj->next)
{
if ( gobj == obj )
{
obj_from_room( obj );
if (in_obj != NULL)
obj_to_obj(obj, in_obj);
else
obj_to_room(obj, original);
return;
}
}
return;
}
/*Check inventory of player. Worn is checked earlier (messy if not).*/
if (obj->carried_by != NULL )
{
CHAR_DATA *carrier = obj->carried_by;
original = obj->carried_by->in_room;
//writelogf("Carried by's name: %s", obj->carried_by->name);
obj_from_char(obj);
obj_to_room(obj, location);
obj_interpret( obj, argument );
for (gobj = object_list; gobj != NULL; gobj = gobj->next)
{
if ( gobj == obj )
{
obj_from_room( obj );
if (carrier != NULL)
obj_to_char(obj, carrier);
else
obj_to_room(obj, original);
return;
}
}
}
}