/*
* RAM $Id: olc.c 81 2009-01-14 06:16:31Z ghasatta $
*/
/***************************************************************************
* File: olc.c *
* *
* 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. *
* *
* This code was freely distributed with the The Isles 1.1 source code, *
* and has been used here for OLC - OLC would not be what it is without *
* all the previous coders who released their source code. *
* *
***************************************************************************/
#include <sys/types.h>
#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include "merc.h"
#include "interp.h"
#include "db.h"
#include "act.h"
#include "tables.h"
#include "strings.h"
#include "olc.h"
/* Executed from comm.c. Minimizes compiling when changes are made. */
bool run_olc_editor( DESCRIPTOR_DATA *d )
{
switch ( d->editor )
{
case ED_AREA:
aedit( d->character, d->incomm );
break;
case ED_ROOM:
redit( d->character, d->incomm );
break;
case ED_OBJECT:
oedit( d->character, d->incomm );
break;
case ED_MOBILE:
medit( d->character, d->incomm );
break;
case ED_MPCODE:
mpedit( d->character, d->incomm );
break;
case ED_HELP:
hedit( d->character, d->incomm );
break;
default:
return false;
}
return true;
}
char *olc_ed_name( CHAR_DATA *ch )
{
static char buf[10] = "\0\0\0\0\0\0\0";
buf[0] = '\0';
switch ( ch->desc->editor )
{
case ED_AREA:
sprintf( buf, "AEdit" );
break;
case ED_ROOM:
sprintf( buf, "REdit" );
break;
case ED_OBJECT:
sprintf( buf, "OEdit" );
break;
case ED_MOBILE:
sprintf( buf, "MEdit" );
break;
case ED_MPCODE:
sprintf( buf, "MPEdit" );
break;
case ED_HELP:
sprintf( buf, "HEdit" );
break;
default:
// sprintf( buf, " " );
break;
}
return buf;
}
char *olc_ed_vnum( CHAR_DATA *ch )
{
AREA_DATA *pArea = NULL;
ROOM_INDEX_DATA *pRoom = NULL;
OBJ_INDEX_DATA *pObj = NULL;
MOB_INDEX_DATA *pMob = NULL;
MPROG_CODE *pMprog = NULL;
HELP_DATA *pHelp = NULL;
static char buf[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
buf[0] = '\0';
switch ( ch->desc->editor )
{
case ED_AREA:
pArea = ( AREA_DATA * ) ch->desc->pEdit;
sprintf( buf, "%d", pArea ? pArea->vnum : 0 );
break;
case ED_ROOM:
pRoom = ch->in_room;
sprintf( buf, "%d", pRoom ? pRoom->vnum : 0 );
break;
case ED_OBJECT:
pObj = ( OBJ_INDEX_DATA * ) ch->desc->pEdit;
sprintf( buf, "%d", pObj ? pObj->vnum : 0 );
break;
case ED_MOBILE:
pMob = ( MOB_INDEX_DATA * ) ch->desc->pEdit;
sprintf( buf, "%d", pMob ? pMob->vnum : 0 );
break;
case ED_MPCODE:
pMprog = ( MPROG_CODE * ) ch->desc->pEdit;
sprintf( buf, "%d", pMprog ? pMprog->vnum : 0 );
break;
case ED_HELP:
pHelp = ( HELP_DATA * ) ch->desc->pEdit;
sprintf( buf, "%s", pHelp ? pHelp->keyword.c_str() : "" );
break;
default:
// sprintf( buf, " " );
break;
}
return buf;
}
/*****************************************************************************
Name: show_olc_cmds
Purpose: Format up the commands from given table.
Called by: show_commands(olc_act.c).
****************************************************************************/
void show_olc_cmds( CHAR_DATA *ch, const struct olc_cmd_type *olc_table )
{
char buf[MAX_STRING_LENGTH] = "\0\0\0\0\0\0\0";
char buf1[MAX_STRING_LENGTH] = "\0\0\0\0\0\0\0";
int cmd = 0;
int col = 0;
buf1[0] = '\0';
col = 0;
for ( cmd = 0; olc_table[cmd].name != NULL; cmd++ )
{
sprintf( buf, "%-15.15s", olc_table[cmd].name );
strcat( buf1, buf );
if ( ++col % 5 == 0 )
strcat( buf1, "\r\n" );
}
if ( col % 5 != 0 )
strcat( buf1, "\r\n" );
ch_printf( ch, "%s", buf1 );
return;
}
/*****************************************************************************
Name: show_commands
Purpose: Display all olc commands.
Called by: olc interpreters.
****************************************************************************/
bool show_commands( CHAR_DATA *ch, const char *argument )
{
switch ( ch->desc->editor )
{
case ED_AREA:
show_olc_cmds( ch, aedit_table );
break;
case ED_ROOM:
show_olc_cmds( ch, redit_table );
break;
case ED_OBJECT:
show_olc_cmds( ch, oedit_table );
break;
case ED_MOBILE:
show_olc_cmds( ch, medit_table );
break;
case ED_MPCODE:
show_olc_cmds( ch, mpedit_table );
break;
case ED_HELP:
show_olc_cmds( ch, hedit_table );
break;
}
return false;
}
/*****************************************************************************
* Interpreter Tables. *
*****************************************************************************/
const struct olc_cmd_type aedit_table[] = {
/* { command function }, */
{"age", aedit_age},
{"builder", aedit_builder}, /* s removed -- Hugin */
{"commands", show_commands},
{"create", aedit_create},
{"filename", aedit_file},
{"name", aedit_name},
/* { "recall", aedit_recall }, ROM OLC */
{"reset", aedit_reset},
{"security", aedit_security},
{"show", aedit_show},
{"vnum", aedit_vnum},
{"lvnum", aedit_lvnum},
{"uvnum", aedit_uvnum},
{"credits", aedit_credits},
{"?", show_help},
{"version", show_version},
{NULL, 0,}
};
const struct olc_cmd_type redit_table[] = {
/* { command function }, */
{"commands", show_commands},
{"create", redit_create},
{"desc", redit_desc},
{"ed", redit_ed},
{"format", redit_format},
{"name", redit_name},
{"show", redit_show},
{"heal", redit_heal},
{"mana", redit_mana},
{"clan", redit_clan},
{"north", redit_north},
{"south", redit_south},
{"east", redit_east},
{"west", redit_west},
{"up", redit_up},
{"down", redit_down},
/*
* New reset commands.
*/
{"mreset", redit_mreset},
{"oreset", redit_oreset},
{"mlist", redit_mlist},
{"rlist", redit_rlist},
{"olist", redit_olist},
{"mshow", redit_mshow},
{"oshow", redit_oshow},
{"owner", redit_owner},
{"room", redit_room},
{"sector", redit_sector},
{"?", show_help},
{"version", show_version},
{NULL, 0,}
};
const struct olc_cmd_type oedit_table[] = {
/* { command function }, */
{"addaffect", oedit_addaffect},
{"addapply", oedit_addapply},
{"commands", show_commands},
{"cost", oedit_cost},
{"create", oedit_create},
{"delaffect", oedit_delaffect},
{"ed", oedit_ed},
{"long", oedit_long},
{"name", oedit_name},
{"short", oedit_short},
{"show", oedit_show},
{"v0", oedit_value0},
{"v1", oedit_value1},
{"v2", oedit_value2},
{"v3", oedit_value3},
{"v4", oedit_value4}, /* ROM */
{"weight", oedit_weight},
{"extra", oedit_extra}, /* ROM */
{"wear", oedit_wear}, /* ROM */
{"type", oedit_type}, /* ROM */
{"material", oedit_material}, /* ROM */
{"level", oedit_level}, /* ROM */
{"condition", oedit_condition}, /* ROM */
{"?", show_help},
{"version", show_version},
{NULL, 0,}
};
const struct olc_cmd_type medit_table[] = {
/* { command function }, */
{"alignment", medit_align},
{"commands", show_commands},
{"create", medit_create},
{"desc", medit_desc},
{"level", medit_level},
{"long", medit_long},
{"name", medit_name},
{"shop", medit_shop},
{"short", medit_short},
{"show", medit_show},
{"spec", medit_spec},
{"sex", medit_sex}, /* ROM */
{"act", medit_act}, /* ROM */
{"affect", medit_affect}, /* ROM */
{"armor", medit_armor}, /* ROM */
{"form", medit_form}, /* ROM */
{"part", medit_part}, /* ROM */
{"imm", medit_imm}, /* ROM */
{"res", medit_res}, /* ROM */
{"vuln", medit_vuln}, /* ROM */
{"material", medit_material}, /* ROM */
{"off", medit_off}, /* ROM */
{"size", medit_size}, /* ROM */
{"hitdice", medit_hitdice}, /* ROM */
{"manadice", medit_manadice}, /* ROM */
{"damdice", medit_damdice}, /* ROM */
{"race", medit_race}, /* ROM */
{"position", medit_position}, /* ROM */
{"wealth", medit_gold}, /* ROM */
{"hitroll", medit_hitroll}, /* ROM */
{"damtype", medit_damtype}, /* ROM */
{"group", medit_group}, /* ROM */
{"addmprog", medit_addmprog}, /* ROM */
{"delmprog", medit_delmprog}, /* ROM */
{"?", show_help},
{"version", show_version},
{NULL, 0,}
};
/*****************************************************************************
* End Interpreter Tables. *
*****************************************************************************/
/*****************************************************************************
Name: get_area_data
Purpose: Returns pointer to area with given vnum.
Called by: do_aedit(olc.c).
****************************************************************************/
AREA_DATA *get_area_data( int vnum )
{
AREA_DATA *pArea = NULL;
for ( pArea = area_first; pArea; pArea = pArea->next )
{
if ( pArea->vnum == vnum )
return pArea;
}
return 0;
}
/*****************************************************************************
Name: edit_done
Purpose: Resets builder information on completion.
Called by: aedit, redit, oedit, medit(olc.c)
****************************************************************************/
bool edit_done( CHAR_DATA *ch )
{
ch->desc->pEdit = NULL;
ch->desc->editor = 0;
return false;
}
/*****************************************************************************
* Interpreters. *
*****************************************************************************/
/* Area Interpreter, called by do_aedit. */
void aedit( CHAR_DATA *ch, const char *argument )
{
AREA_DATA *pArea = NULL;
char command[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
char arg[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
int cmd = 0;
int value = 0;
char local_argument[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
const char *lap = local_argument;
strcpy( local_argument, argument );
EDIT_AREA( ch, pArea );
smash_tilde( local_argument );
strcpy( arg, lap );
lap = one_argument( lap, command );
if ( !IS_BUILDER( ch, pArea ) )
{
ch_printf( ch, "AEdit: Insufficient security to modify area.\r\n" );
edit_done( ch );
return;
}
if ( !str_cmp( command, "done" ) )
{
edit_done( ch );
return;
}
if ( command[0] == '\0' )
{
aedit_show( ch, lap );
return;
}
if ( ( value = flag_value( area_flags, command ) ) != NO_FLAG )
{
TOGGLE_BIT( pArea->area_flags, value );
ch_printf( ch, "Flag toggled.\r\n" );
return;
}
/*
* Search Table and Dispatch Command.
*/
for ( cmd = 0; aedit_table[cmd].name != NULL; cmd++ )
{
if ( !str_prefix( command, aedit_table[cmd].name ) )
{
if ( ( *aedit_table[cmd].olc_fun ) ( ch, lap ) )
{
SET_BIT( pArea->area_flags, AREA_CHANGED );
return;
}
else
return;
}
}
/*
* Default to Standard Interpreter.
*/
interpret( ch, arg );
return;
}
/* Room Interpreter, called by do_redit. */
void redit( CHAR_DATA *ch, const char *argument )
{
AREA_DATA *pArea = NULL;
ROOM_INDEX_DATA *pRoom = NULL;
char arg[MAX_STRING_LENGTH] = "\0\0\0\0\0\0\0";
char command[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
int cmd = 0;
char local_argument[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
const char *lap = local_argument;
strcpy( local_argument, argument );
EDIT_ROOM( ch, pRoom );
pArea = pRoom->area;
smash_tilde( local_argument );
strcpy( arg, lap );
lap = one_argument( lap, command );
if ( !IS_BUILDER( ch, pArea ) )
{
ch_printf( ch, "REdit: Insufficient security to modify area.\r\n" );
edit_done( ch );
return;
}
if ( !str_cmp( command, "done" ) )
{
edit_done( ch );
return;
}
if ( command[0] == '\0' )
{
redit_show( ch, lap );
return;
}
/*
* Search Table and Dispatch Command.
*/
for ( cmd = 0; redit_table[cmd].name != NULL; cmd++ )
{
if ( !str_prefix( command, redit_table[cmd].name ) )
{
if ( ( *redit_table[cmd].olc_fun ) ( ch, lap ) )
{
SET_BIT( pArea->area_flags, AREA_CHANGED );
return;
}
else
return;
}
}
/*
* Default to Standard Interpreter.
*/
interpret( ch, arg );
return;
}
/* Object Interpreter, called by do_oedit. */
void oedit( CHAR_DATA *ch, const char *argument )
{
AREA_DATA *pArea = NULL;
OBJ_INDEX_DATA *pObj = NULL;
char arg[MAX_STRING_LENGTH] = "\0\0\0\0\0\0\0";
char command[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
int cmd = 0;
char local_argument[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
const char *lap = local_argument;
strcpy( local_argument, argument );
smash_tilde( local_argument );
strcpy( arg, lap );
lap = one_argument( lap, command );
EDIT_OBJ( ch, pObj );
pArea = pObj->area;
if ( !IS_BUILDER( ch, pArea ) )
{
ch_printf( ch, "OEdit: Insufficient security to modify area.\r\n" );
edit_done( ch );
return;
}
if ( !str_cmp( command, "done" ) )
{
edit_done( ch );
return;
}
if ( command[0] == '\0' )
{
oedit_show( ch, lap );
return;
}
/*
* Search Table and Dispatch Command.
*/
for ( cmd = 0; oedit_table[cmd].name != NULL; cmd++ )
{
if ( !str_prefix( command, oedit_table[cmd].name ) )
{
if ( ( *oedit_table[cmd].olc_fun ) ( ch, lap ) )
{
SET_BIT( pArea->area_flags, AREA_CHANGED );
return;
}
else
return;
}
}
/*
* Default to Standard Interpreter.
*/
interpret( ch, arg );
return;
}
/* Mobile Interpreter, called by do_medit. */
void medit( CHAR_DATA *ch, const char *argument )
{
AREA_DATA *pArea = NULL;
MOB_INDEX_DATA *pMob = NULL;
char command[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
char arg[MAX_STRING_LENGTH] = "\0\0\0\0\0\0\0";
int cmd = 0;
char local_argument[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
const char *lap = local_argument;
strcpy( local_argument, argument );
smash_tilde( local_argument );
strcpy( arg, lap );
lap = one_argument( lap, command );
EDIT_MOB( ch, pMob );
pArea = pMob->area;
if ( !IS_BUILDER( ch, pArea ) )
{
ch_printf( ch, "MEdit: Insufficient security to modify area.\r\n" );
edit_done( ch );
return;
}
if ( !str_cmp( command, "done" ) )
{
edit_done( ch );
return;
}
if ( command[0] == '\0' )
{
medit_show( ch, lap );
return;
}
/*
* Search Table and Dispatch Command.
*/
for ( cmd = 0; medit_table[cmd].name != NULL; cmd++ )
{
if ( !str_prefix( command, medit_table[cmd].name ) )
{
if ( ( *medit_table[cmd].olc_fun ) ( ch, lap ) )
{
SET_BIT( pArea->area_flags, AREA_CHANGED );
return;
}
else
return;
}
}
/*
* Default to Standard Interpreter.
*/
interpret( ch, arg );
return;
}
const struct editor_cmd_type editor_table[] = {
/* { command function }, */
{"area", do_aedit},
{"room", do_redit},
{"object", do_oedit},
{"mobile", do_medit},
{"mpcode", do_mpedit},
{"help", do_hedit},
{NULL, 0,}
};
/* Entry point for all editors. */
void do_olc( CHAR_DATA *ch, const char *argument )
{
char command[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
int cmd = 0;
char local_argument[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
const char *lap = local_argument;
if ( IS_NPC( ch ) )
return;
strcpy( local_argument, argument );
lap = one_argument( lap, command );
if ( command[0] == '\0' )
{
do_help( ch, "olc" );
return;
}
/*
* Search Table and Dispatch Command.
*/
for ( cmd = 0; editor_table[cmd].name != NULL; cmd++ )
{
if ( !str_prefix( command, editor_table[cmd].name ) )
{
( *editor_table[cmd].do_fun ) ( ch, lap );
return;
}
}
/*
* Invalid command, send help.
*/
do_help( ch, "olc" );
return;
}
/* Entry point for editing area_data. */
void do_aedit( CHAR_DATA *ch, const char *argument )
{
AREA_DATA *pArea = NULL;
int value = 0;
char arg[MAX_STRING_LENGTH] = "\0\0\0\0\0\0\0";
if ( IS_NPC( ch ) )
return;
pArea = ch->in_room->area;
argument = one_argument( argument, arg );
if ( is_number( arg ) )
{
value = atoi( arg );
if ( !( pArea = get_area_data( value ) ) )
{
ch_printf( ch, "AEdit: That area vnum does not exist.\r\n" );
return;
}
}
else if ( !str_cmp( arg, "create" ) )
{
if ( ch->pcdata->security < 9 )
{
ch_printf( ch, "AEdit: Insufficient security to create areas.\r\n" );
return;
}
aedit_create( ch, "" );
ch->desc->editor = ED_AREA;
return;
}
if ( !IS_BUILDER( ch, pArea ) )
{
ch_printf( ch, "AEdit: Insufficient security to modify area.\r\n" );
return;
}
ch->desc->pEdit = ( void * ) pArea;
ch->desc->editor = ED_AREA;
return;
}
/* Entry point for editing room_index_data. */
void do_redit( CHAR_DATA *ch, const char *argument )
{
ROOM_INDEX_DATA *pRoom = NULL;
char arg1[MAX_STRING_LENGTH] = "\0\0\0\0\0\0\0";
if ( IS_NPC( ch ) )
return;
argument = one_argument( argument, arg1 );
pRoom = ch->in_room;
if ( !str_cmp( arg1, "reset" ) ) /* redit reset */
{
if ( !IS_BUILDER( ch, pRoom->area ) )
{
ch_printf( ch, "REdit: Insufficient security to modify area.\r\n" );
return;
}
reset_room( pRoom );
ch_printf( ch, "Room reset.\r\n" );
return;
}
else if ( !str_cmp( arg1, "create" ) ) /* redit create <vnum> */
{
if ( argument[0] == '\0' || atoi( argument ) == 0 )
{
ch_printf( ch, "Syntax: edit room create [vnum]\r\n" );
return;
}
if ( redit_create( ch, argument ) ) /* pEdit == new room */
{
ch->desc->editor = ED_ROOM;
char_from_room( ch );
char_to_room( ch, ( ROOM_INDEX_DATA * ) ch->desc->pEdit );
SET_BIT( ( ( ROOM_INDEX_DATA * ) ch->desc->pEdit )->area->area_flags,
AREA_CHANGED );
}
return;
}
else if ( !IS_NULLSTR( arg1 ) ) /* redit <vnum> */
{
pRoom = get_room_index( atoi( arg1 ) );
if ( !pRoom )
{
ch_printf( ch, "REdit: Room does not exist.\r\n" );
return;
}
if ( !IS_BUILDER( ch, pRoom->area ) )
{
ch_printf( ch, "REdit: Insufficient security to modify area.\r\n" );
return;
}
char_from_room( ch );
char_to_room( ch, pRoom );
}
if ( !IS_BUILDER( ch, pRoom->area ) )
{
ch_printf( ch, "REdit: Insufficient security to modify area.\r\n" );
return;
}
ch->desc->pEdit = ( void * ) pRoom;
ch->desc->editor = ED_ROOM;
return;
}
/* Entry point for editing obj_index_data. */
void do_oedit( CHAR_DATA *ch, const char *argument )
{
OBJ_INDEX_DATA *pObj = NULL;
AREA_DATA *pArea = NULL;
char arg1[MAX_STRING_LENGTH] = "\0\0\0\0\0\0\0";
int value = 0;
if ( IS_NPC( ch ) )
return;
argument = one_argument( argument, arg1 );
if ( is_number( arg1 ) )
{
value = atoi( arg1 );
if ( !( pObj = get_obj_index( value ) ) )
{
ch_printf( ch, "OEdit: That vnum does not exist.\r\n" );
return;
}
if ( !IS_BUILDER( ch, pObj->area ) )
{
ch_printf( ch, "OEdit: Insufficient security to modify area.\r\n" );
return;
}
ch->desc->pEdit = ( void * ) pObj;
ch->desc->editor = ED_OBJECT;
return;
}
else
{
if ( !str_cmp( arg1, "create" ) )
{
value = atoi( argument );
if ( argument[0] == '\0' || value == 0 )
{
ch_printf( ch, "Syntax: edit object create [vnum]\r\n" );
return;
}
pArea = get_vnum_area( value );
if ( !pArea )
{
ch_printf( ch, "OEdit: That vnum is not assigned an area.\r\n" );
return;
}
if ( !IS_BUILDER( ch, pArea ) )
{
ch_printf( ch, "OEdit: Insufficient security to modify area.\r\n" );
return;
}
if ( oedit_create( ch, argument ) )
{
SET_BIT( pArea->area_flags, AREA_CHANGED );
ch->desc->editor = ED_OBJECT;
}
return;
}
}
ch_printf( ch, "OEdit: There is no default object to edit.\r\n" );
return;
}
/* Entry point for editing mob_index_data. */
void do_medit( CHAR_DATA *ch, const char *argument )
{
MOB_INDEX_DATA *pMob = NULL;
AREA_DATA *pArea = NULL;
int value = 0;
char arg1[MAX_STRING_LENGTH] = "\0\0\0\0\0\0\0";
argument = one_argument( argument, arg1 );
if ( IS_NPC( ch ) )
return;
if ( is_number( arg1 ) )
{
value = atoi( arg1 );
if ( !( pMob = get_mob_index( value ) ) )
{
ch_printf( ch, "MEdit: That vnum does not exist.\r\n" );
return;
}
if ( !IS_BUILDER( ch, pMob->area ) )
{
ch_printf( ch, "MEdit: Insufficient security to modify area.\r\n" );
return;
}
ch->desc->pEdit = ( void * ) pMob;
ch->desc->editor = ED_MOBILE;
return;
}
else
{
if ( !str_cmp( arg1, "create" ) )
{
value = atoi( argument );
if ( arg1[0] == '\0' || value == 0 )
{
ch_printf( ch, "Syntax: edit mobile create [vnum]\r\n" );
return;
}
pArea = get_vnum_area( value );
if ( !pArea )
{
ch_printf( ch, "MEdit: That vnum is not assigned an area.\r\n" );
return;
}
if ( !IS_BUILDER( ch, pArea ) )
{
ch_printf( ch, "MEdit: Insufficient security to modify area.\r\n" );
return;
}
if ( medit_create( ch, argument ) )
{
SET_BIT( pArea->area_flags, AREA_CHANGED );
ch->desc->editor = ED_MOBILE;
}
return;
}
}
ch_printf( ch, "MEdit: There is no default mobile to edit.\r\n" );
return;
}
void display_resets( CHAR_DATA *ch )
{
ROOM_INDEX_DATA *pRoom = NULL;
RESET_DATA *pReset = NULL;
MOB_INDEX_DATA *pMob = NULL;
char buf[MAX_STRING_LENGTH] = "\0\0\0\0\0\0\0";
char final[MAX_STRING_LENGTH] = "\0\0\0\0\0\0\0";
int iReset = 0;
EDIT_ROOM( ch, pRoom );
final[0] = '\0';
ch_printf( ch,
" No. Loads Description Location Vnum Mx Mn Description"
"\r\n"
"==== ======== ============= =================== ======== ===== ==========="
"\r\n" );
for ( pReset = pRoom->reset_first; pReset; pReset = pReset->next )
{
OBJ_INDEX_DATA *pObj;
MOB_INDEX_DATA *pMobIndex;
OBJ_INDEX_DATA *pObjIndex;
OBJ_INDEX_DATA *pObjToIndex;
ROOM_INDEX_DATA *pRoomIndex;
final[0] = '\0';
sprintf( final, "[%2d] ", ++iReset );
switch ( pReset->command )
{
default:
sprintf( buf, "Bad reset command: %c.", pReset->command );
strcat( final, buf );
break;
case 'M':
if ( !( pMobIndex = get_mob_index( pReset->arg1 ) ) )
{
sprintf( buf, "Load Mobile - Bad Mob %d\r\n", pReset->arg1 );
strcat( final, buf );
continue;
}
if ( !( pRoomIndex = get_room_index( pReset->arg3 ) ) )
{
sprintf( buf, "Load Mobile - Bad Room %d\r\n", pReset->arg3 );
strcat( final, buf );
continue;
}
pMob = pMobIndex;
sprintf( buf,
"M[%5d] %-13.13s in room R[%5d] %2d-%2d %-15.15s\r\n",
pReset->arg1, pMob->short_descr, pReset->arg3, pReset->arg2,
pReset->arg4, pRoomIndex->name );
strcat( final, buf );
/*
* Check for pet shop.
* -------------------
*/
{
ROOM_INDEX_DATA *pRoomIndexPrev;
pRoomIndexPrev = get_room_index( pRoomIndex->vnum - 1 );
if ( pRoomIndexPrev
&& IS_SET( pRoomIndexPrev->room_flags, ROOM_PET_SHOP ) )
final[5] = 'P';
}
break;
case 'O':
if ( !( pObjIndex = get_obj_index( pReset->arg1 ) ) )
{
sprintf( buf, "Load Object - Bad Object %d\r\n", pReset->arg1 );
strcat( final, buf );
continue;
}
pObj = pObjIndex;
if ( !( pRoomIndex = get_room_index( pReset->arg3 ) ) )
{
sprintf( buf, "Load Object - Bad Room %d\r\n", pReset->arg3 );
strcat( final, buf );
continue;
}
sprintf( buf, "O[%5d] %-13.13s in room "
"R[%5d] %-15.15s\r\n",
pReset->arg1, pObj->short_descr,
pReset->arg3, pRoomIndex->name );
strcat( final, buf );
break;
case 'P':
if ( !( pObjIndex = get_obj_index( pReset->arg1 ) ) )
{
sprintf( buf, "Put Object - Bad Object %d\r\n", pReset->arg1 );
strcat( final, buf );
continue;
}
pObj = pObjIndex;
if ( !( pObjToIndex = get_obj_index( pReset->arg3 ) ) )
{
sprintf( buf, "Put Object - Bad To Object %d\r\n", pReset->arg3 );
strcat( final, buf );
continue;
}
sprintf( buf,
"O[%5d] %-13.13s inside O[%5d] %2d-%2d %-15.15s\r\n",
pReset->arg1,
pObj->short_descr,
pReset->arg3,
pReset->arg2, pReset->arg4, pObjToIndex->short_descr );
strcat( final, buf );
break;
case 'G':
case 'E':
if ( !( pObjIndex = get_obj_index( pReset->arg1 ) ) )
{
sprintf( buf, "Give/Equip Object - Bad Object %d\r\n", pReset->arg1 );
strcat( final, buf );
continue;
}
pObj = pObjIndex;
if ( !pMob )
{
sprintf( buf, "Give/Equip Object - No Previous Mobile\r\n" );
strcat( final, buf );
break;
}
if ( pMob->pShop )
{
sprintf( buf,
"O[%5d] %-13.13s in the inventory of S[%5d] %-15.15s\r\n",
pReset->arg1,
pObj->short_descr, pMob->vnum, pMob->short_descr );
}
else
sprintf( buf,
"O[%5d] %-13.13s %-19.19s M[%5d] %-15.15s\r\n",
pReset->arg1,
pObj->short_descr,
( pReset->command == 'G' ) ?
flag_string( wear_loc_strings, WEAR_NONE )
: flag_string( wear_loc_strings, pReset->arg3 ),
pMob->vnum, pMob->short_descr );
strcat( final, buf );
break;
/*
* Doors are set in rs_flags don't need to be displayed.
* If you want to display them then uncomment the new_reset
* line in the case 'D' in load_resets in db.c and here.
*/
case 'D':
pRoomIndex = get_room_index( pReset->arg1 );
sprintf( buf, "R[%5d] %s door of %-19.19s reset to %s\r\n",
pReset->arg1,
capitalize( dir_name[pReset->arg2] ),
pRoomIndex->name, flag_string( door_resets, pReset->arg3 ) );
strcat( final, buf );
break;
/*
* End Doors Comment.
*/
case 'R':
if ( !( pRoomIndex = get_room_index( pReset->arg1 ) ) )
{
sprintf( buf, "Randomize Exits - Bad Room %d\r\n", pReset->arg1 );
strcat( final, buf );
continue;
}
sprintf( buf, "R[%5d] Exits are randomized in %s\r\n",
pReset->arg1, pRoomIndex->name );
strcat( final, buf );
break;
}
ch_printf( ch, "%s", final );
}
return;
}
/*****************************************************************************
Name: add_reset
Purpose: Inserts a new reset in the given index slot.
Called by: do_resets(olc.c).
****************************************************************************/
void add_reset( ROOM_INDEX_DATA *room, RESET_DATA *pReset, int reset_index )
{
RESET_DATA *reset = NULL;
int iReset = 0;
if ( !room->reset_first )
{
room->reset_first = pReset;
room->reset_last = pReset;
pReset->next = NULL;
return;
}
reset_index--;
if ( reset_index == 0 ) /* First slot (1) selected. */
{
pReset->next = room->reset_first;
room->reset_first = pReset;
return;
}
/*
* If negative slot( <= 0 selected) then this will find the last.
*/
for ( reset = room->reset_first; reset->next; reset = reset->next )
{
if ( ++iReset == reset_index )
break;
}
pReset->next = reset->next;
reset->next = pReset;
if ( !pReset->next )
room->reset_last = pReset;
return;
}
void do_resets( CHAR_DATA *ch, const char *argument )
{
char arg1[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
char arg2[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
char arg3[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
char arg4[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
char arg5[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
char arg6[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
char arg7[MAX_INPUT_LENGTH] = "\0\0\0\0\0\0\0";
RESET_DATA *pReset = NULL;
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 );
argument = one_argument( argument, arg7 );
if ( !IS_BUILDER( ch, ch->in_room->area ) )
{
ch_printf( ch, "Resets: Insufficient security for editing this area.\r\n" );
return;
}
/*
* Display resets in current room.
* -------------------------------
*/
if ( arg1[0] == '\0' )
{
if ( ch->in_room->reset_first )
{
ch_printf( ch,
"Resets: M = mobile, R = room, O = object, "
"P = pet, S = shopkeeper\r\n" );
display_resets( ch );
}
else
ch_printf( ch, "No resets in this room.\r\n" );
}
/*
* Take index number and search for commands.
* ------------------------------------------
*/
if ( is_number( arg1 ) )
{
ROOM_INDEX_DATA *pRoom = ch->in_room;
/*
* Delete a reset.
* ---------------
*/
if ( !str_cmp( arg2, "delete" ) )
{
int insert_loc = atoi( arg1 );
if ( !ch->in_room->reset_first )
{
ch_printf( ch, "No resets in this area.\r\n" );
return;
}
if ( insert_loc - 1 <= 0 )
{
pReset = pRoom->reset_first;
pRoom->reset_first = pRoom->reset_first->next;
if ( !pRoom->reset_first )
pRoom->reset_last = NULL;
}
else
{
int iReset = 0;
RESET_DATA *prev = NULL;
for ( pReset = pRoom->reset_first; pReset; pReset = pReset->next )
{
if ( ++iReset == insert_loc )
break;
prev = pReset;
}
if ( !pReset )
{
ch_printf( ch, "Reset not found.\r\n" );
return;
}
if ( prev )
prev->next = prev->next->next;
else
pRoom->reset_first = pRoom->reset_first->next;
for ( pRoom->reset_last = pRoom->reset_first;
pRoom->reset_last->next;
pRoom->reset_last = pRoom->reset_last->next );
}
free_reset_data( pReset );
ch_printf( ch, "Reset deleted.\r\n" );
}
else
/*
* Add a reset.
* ------------
*/
if ( ( !str_cmp( arg2, "mob" ) && is_number( arg3 ) )
|| ( !str_cmp( arg2, "obj" ) && is_number( arg3 ) ) )
{
/*
* Check for Mobile reset.
* -----------------------
*/
if ( !str_cmp( arg2, "mob" ) )
{
if ( get_mob_index( is_number( arg3 ) ? atoi( arg3 ) : 1 ) == NULL )
{
ch_printf( ch, "Mob does not exist.\r\n" );
return;
}
pReset = new_reset_data( );
pReset->command = 'M';
pReset->arg1 = atoi( arg3 );
pReset->arg2 = is_number( arg4 ) ? atoi( arg4 ) : 1; /* Max # */
pReset->arg3 = ch->in_room->vnum;
pReset->arg4 = is_number( arg5 ) ? atoi( arg5 ) : 1; /* Min # */
}
else
/*
* Check for Object reset.
* -----------------------
*/
if ( !str_cmp( arg2, "obj" ) )
{
pReset = new_reset_data( );
pReset->arg1 = atoi( arg3 );
/*
* Inside another object.
* ----------------------
*/
if ( !str_prefix( arg4, "inside" ) )
{
OBJ_INDEX_DATA *temp;
temp = get_obj_index( is_number( arg5 ) ? atoi( arg5 ) : 1 );
if ( ( temp->item_type != ITEM_CONTAINER ) &&
( temp->item_type != ITEM_CORPSE_NPC ) )
{
ch_printf( ch, "Object 2 is not a container.\r\n" );
return;
}
pReset->command = 'P';
pReset->arg2 = is_number( arg6 ) ? atoi( arg6 ) : 1;
pReset->arg3 = is_number( arg5 ) ? atoi( arg5 ) : 1;
pReset->arg4 = is_number( arg7 ) ? atoi( arg7 ) : 1;
}
else
/*
* Inside the room.
* ----------------
*/
if ( !str_cmp( arg4, "room" ) )
{
if ( get_obj_index( atoi( arg3 ) ) == NULL )
{
ch_printf( ch, "Vnum does not exist.\r\n" );
return;
}
pReset->command = 'O';
pReset->arg2 = 0;
pReset->arg3 = ch->in_room->vnum;
pReset->arg4 = 0;
}
else
/*
* Into a Mobile's inventory.
* --------------------------
*/
{
if ( flag_value( wear_loc_flags, arg4 ) == NO_FLAG )
{
ch_printf( ch, "Resets: '? wear-loc'\r\n" );
return;
}
if ( get_obj_index( atoi( arg3 ) ) == NULL )
{
ch_printf( ch, "Vnum does not exist.\r\n" );
return;
}
pReset->arg1 = atoi( arg3 );
pReset->arg3 = flag_value( wear_loc_flags, arg4 );
if ( pReset->arg3 == WEAR_NONE )
pReset->command = 'G';
else
pReset->command = 'E';
}
}
add_reset( ch->in_room, pReset, atoi( arg1 ) );
SET_BIT( ch->in_room->area->area_flags, AREA_CHANGED );
ch_printf( ch, "Reset added.\r\n" );
}
else if ( !str_cmp( arg2, "random" ) && is_number( arg3 ) )
{
if ( atoi( arg3 ) < 1 || atoi( arg3 ) > 6 )
{
ch_printf( ch, "Invalid argument.\r\n" );
return;
}
pReset = new_reset_data( );
pReset->command = 'R';
pReset->arg1 = ch->in_room->vnum;
pReset->arg2 = atoi( arg3 );
add_reset( ch->in_room, pReset, atoi( arg1 ) );
SET_BIT( ch->in_room->area->area_flags, AREA_CHANGED );
ch_printf( ch, "Random exits reset added.\r\n" );
}
else
{
ch_printf( ch, "Syntax: RESET <number> OBJ <vnum> <wear_loc>\r\n" );
ch_printf( ch,
" RESET <number> OBJ <vnum> inside <vnum> [limit] [count]\r\n" );
ch_printf( ch, " RESET <number> OBJ <vnum> room\r\n" );
ch_printf( ch,
" RESET <number> MOB <vnum> [max #x area] [max #x room]\r\n" );
ch_printf( ch, " RESET <number> DELETE\r\n" );
ch_printf( ch, " RESET <number> RANDOM [#x exits]\r\n" );
}
}
return;
}
/*****************************************************************************
Name: do_alist
Purpose: Normal command to list areas and display area information.
Called by: interpreter(interp.c)
****************************************************************************/
void do_alist( CHAR_DATA *ch, const char *argument )
{
AREA_DATA *pArea = NULL;
if ( IS_NPC( ch ) )
return;
page_printf( ch, "[%3s] [%-27s] (%-5s-%5s) [%-10s] %3s [%-10s]\r\n",
"Num", "Area Name", "lvnum", "uvnum", "Filename", "Sec", "Builders" );
for ( pArea = area_first; pArea; pArea = pArea->next )
{
page_printf( ch, "[%3d] %-29.29s (%-5d-%5d) %-12.12s [%d] [%-10.10s]\r\n",
pArea->vnum,
pArea->name,
pArea->min_vnum,
pArea->max_vnum, pArea->file_name, pArea->security, pArea->builders );
}
return;
}