/****************************************************************************
* _______ _ ______ _______ _______ ______ *
* ( ____ \( \ ( __ \ |\ /|( ___ )( )|\ /|( __ \ *
* | ( \/| ( | ( \ )| ) ( || ( ) || () () || ) ( || ( \ ) *
* | (__ | | | | ) || (___) || (___) || || || || | | || | ) | *
* | __) | | | | | || ___ || ___ || |(_)| || | | || | | | *
* | ( | | | | ) || ( ) || ( ) || | | || | | || | ) | *
* | (____/\| (____/\| (__/ )| ) ( || ) ( || ) ( || (___) || (__/ ) *
* (_______/(_______/(______/ |/ \||/ \||/ \|(_______)(______/ *
* +-+-+-+ +-+-+-+-+-+-+-+ +-+-+-+-+-+-+-+-+-+-+ *
* |T|h|e| |O|a|k|l|a|n|d| |C|h|r|o|n|i|c|l|e|s| *
* +-+-+-+ +-+-+-+-+-+-+-+ +-+-+-+-+-+-+-+-+-+-+ *
* ------------------------------------------------------------------------- *
* EldhaMUD code (C) 2003-2005 by Robert Powell (Tommi) *
* EldhaMUD Team: Celest, Altere and Krelowyn *
* ------------------------------------------------------------------------- *
* *
****************************************************************************/
/**************************************************************************\
* *
* OasisOLC II for Smaug 1.40 written by Evan Cortens(Tagith) *
* *
* Based on OasisOLC for CircleMUD3.0bpl9 written by Harvey Gilpin *
* *
**************************************************************************
* *
* Mobile/Player editing module (medit.c) *
* *
\**************************************************************************/
#include <stdio.h>
#include <string.h>
#include <crypt.h>
#include "./Headers/mud.h"
#include "./Headers/olc.h"
/*-------------------------------------------------------------------*/
/* Externals */
extern int top_mob_index;
MOB_INDEX_DATA *mob_index_hash[MAX_KEY_HASH];
void olc_log( DESCRIPTOR_DATA * d, char *format, ... );
/* Global Variables */
char *olc_clan_list[50];
char *olc_deity_list[50];
char *olc_council_list[50];
int olc_top_clan;
int olc_top_guild;
int olc_top_order;
int olc_top_council;
int olc_top_deity;
char *const position_names[] = {
"dead", "mortallywounded", "incapacitated", "stunned", "sleeping",
"berserk", "resting", "aggressive", "sitting", "fighting", "defensive",
"evasive", "standing", "mounted", "shoved", "dragged"
};
/*-------------------------------------------------------------------*/
/*. Function prototypes .*/
int get_actflag args( ( char *flag ) );
int get_risflag args( ( char *flag ) );
int get_partflag args( ( char *flag ) );
int get_attackflag args( ( char *flag ) );
int get_defenseflag args( ( char *flag ) );
DECLARE_DO_FUN( do_medit_reset );
void medit_disp_menu args( ( DESCRIPTOR_DATA * d ) );
void medit_disp_npc_menu args( ( DESCRIPTOR_DATA * d ) );
void medit_disp_pc_menu args( ( DESCRIPTOR_DATA * d ) );
void medit_disp_positions args( ( DESCRIPTOR_DATA * d ) );
void medit_disp_mob_flags args( ( DESCRIPTOR_DATA * d ) );
void medit_disp_plr_flags args( ( DESCRIPTOR_DATA * d ) );
void medit_disp_pcdata_flags args( ( DESCRIPTOR_DATA * d ) );
void medit_disp_aff_flags args( ( DESCRIPTOR_DATA * d ) );
void medit_disp_attack_menu args( ( DESCRIPTOR_DATA * d ) );
void medit_disp_defense_menu args( ( DESCRIPTOR_DATA * d ) );
void medit_disp_ris args( ( DESCRIPTOR_DATA * d ) );
void medit_disp_spec args( ( DESCRIPTOR_DATA * d ) );
void medit_disp_clans args( ( DESCRIPTOR_DATA * d ) );
void medit_disp_deities args( ( DESCRIPTOR_DATA * d ) );
void medit_disp_councils args( ( DESCRIPTOR_DATA * d ) );
void medit_disp_parts args( ( DESCRIPTOR_DATA * d ) );
void medit_disp_classes args( ( DESCRIPTOR_DATA * d ) );
void medit_disp_races args( ( DESCRIPTOR_DATA * d ) );
void medit_disp_saving_menu args( ( DESCRIPTOR_DATA * d ) );
void medit_setup_arrays args( ( void ) );
/*-------------------------------------------------------------------*\
initialization functions
\*-------------------------------------------------------------------*/
void do_omedit( CHAR_DATA * ch, char *argument )
{
char arg[MAX_INPUT_LENGTH];
DESCRIPTOR_DATA *d;
CHAR_DATA *victim;
if( IS_NPC( ch ) )
{
send_to_char( "I don't think so...\n\r", ch );
return;
}
one_argument( argument, arg );
if( arg[0] == '\0' )
{
send_to_char( "OEdit what?\n\r", ch );
return;
}
if( ( victim = get_char_world( ch, arg ) ) == NULL )
{
send_to_char( "Nothing like that in hell, earth, or heaven.\n\r", ch );
return;
}
/*
* Temporary, since this isnt done
* if ( !IS_NPC( victim ) && str_cmp( ch->name, "Tagith" ) )
* {
* send_to_char( "PC editing isnt complete yet, sorry.\n\r", ch );
* return;
* }
*/
if( !IS_NPC( victim ) && get_trust( ch ) < sysdata.level_modify_proto )
{
send_to_char( "Huh?\n\r", ch );
return;
}
/*
* Make sure the object isnt already being edited
*/
for( d = first_descriptor; d; d = d->next )
if( d->connected == CON_MEDIT )
if( d->olc && OLC_VNUM( d ) == victim->pIndexData->vnum )
{
ch_printf( ch, "That %s is currently being edited by %s.\n\r",
IS_NPC( victim ) ? "mobile" : "character", d->character->name );
return;
}
if( !can_mmodify( ch, victim ) )
return;
d = ch->desc;
CREATE( d->olc, OLC_DATA, 1 );
if( IS_NPC( victim ) )
{
OLC_VNUM( d ) = victim->pIndexData->vnum;
/*
* medit_setup( d, OLC_VNUM(d) );
*/
}
else
medit_setup_arrays( );
d->character->dest_buf = victim;
d->connected = CON_MEDIT;
OLC_CHANGE( d ) = FALSE;
medit_disp_menu( d );
act( AT_ACTION, "$n starts using OLC.", ch, NULL, NULL, TO_ROOM );
return;
}
void do_mcopy( CHAR_DATA * ch, char *argument )
{
char arg1[MAX_INPUT_LENGTH];
char arg2[MAX_INPUT_LENGTH];
int ovnum, cvnum;
MOB_INDEX_DATA *orig;
MOB_INDEX_DATA *copy;
MPROG_DATA *mprog, *cprog;
int iHash;
argument = one_argument( argument, arg1 );
argument = one_argument( argument, arg2 );
if( !arg1 || !arg2 )
{
send_to_char( "Usage: mcopy <original> <new>\n\r", ch );
return;
}
ovnum = atoi( arg1 );
cvnum = atoi( arg2 );
if( get_trust( ch ) < LEVEL_NEOPHYTE )
{
AREA_DATA *pArea;
if( !ch->pcdata || !( pArea = ch->pcdata->area ) )
{
send_to_char( "You must have an assigned area to copy objects.\n\r", ch );
return;
}
if( cvnum < pArea->low_o_vnum || cvnum > pArea->hi_o_vnum )
{
send_to_char( "That number is not in your allocated range.\n\r", ch );
return;
}
}
if( get_mob_index( cvnum ) )
{
send_to_char( "That object already exists.\n\r", ch );
return;
}
if( ( orig = get_mob_index( ovnum ) ) == NULL )
{
send_to_char( "How can you copy something that doesnt exist?\n\r", ch );
return;
}
CREATE( copy, MOB_INDEX_DATA, 1 );
copy->vnum = cvnum;
copy->player_name = QUICKLINK( orig->player_name );
copy->short_descr = QUICKLINK( orig->short_descr );
copy->long_descr = QUICKLINK( orig->long_descr );
copy->description = QUICKLINK( orig->description );
copy->act = orig->act;
copy->affected_by = orig->affected_by;
copy->pShop = NULL;
copy->rShop = NULL;
copy->spec_fun = orig->spec_fun;
copy->mudprogs = NULL;
xCLEAR_BITS( copy->progtypes );
copy->alignment = orig->alignment;
copy->level = orig->level;
copy->mobthac0 = orig->mobthac0;
copy->ac = orig->ac;
copy->hitnodice = orig->hitnodice;
copy->hitsizedice = orig->hitsizedice;
copy->hitplus = orig->hitplus;
copy->damnodice = orig->damnodice;
copy->damsizedice = orig->damsizedice;
copy->damplus = orig->damplus;
copy->gold = orig->gold;
copy->exp = orig->exp;
copy->position = orig->position;
copy->defposition = orig->defposition;
copy->sex = orig->sex;
copy->perm_str = orig->perm_str;
copy->perm_dex = orig->perm_dex;
copy->perm_int = orig->perm_int;
copy->perm_wis = orig->perm_wis;
copy->perm_cha = orig->perm_cha;
copy->perm_con = orig->perm_con;
copy->perm_lck = orig->perm_lck;
copy->race = orig->race;
copy->class = orig->class;
copy->xflags = orig->xflags;
copy->resistant = orig->resistant;
copy->immune = orig->immune;
copy->susceptible = orig->susceptible;
copy->numattacks = orig->numattacks;
copy->attacks = orig->attacks;
copy->defenses = orig->defenses;
copy->height = orig->height;
copy->weight = orig->weight;
copy->saving_poison_death = orig->saving_poison_death;
copy->saving_wand = orig->saving_wand;
copy->saving_para_petri = orig->saving_para_petri;
copy->saving_breath = orig->saving_breath;
copy->saving_spell_staff = orig->saving_spell_staff;
if( orig->mudprogs )
{
CREATE( mprog, MPROG_DATA, 1 );
copy->mudprogs = mprog;
for( cprog = orig->mudprogs; cprog; cprog = cprog->next )
{
mprog->type = cprog->type;
xSET_BIT( copy->progtypes, mprog->type );
mprog->arglist = QUICKLINK( cprog->arglist );
mprog->comlist = QUICKLINK( cprog->comlist );
if( cprog->next )
{
CREATE( mprog->next, MPROG_DATA, 1 );
mprog = mprog->next;
}
else
mprog->next = NULL;
}
}
copy->count = 0;
iHash = cvnum % MAX_KEY_HASH;
copy->next = mob_index_hash[iHash];
mob_index_hash[iHash] = copy;
top_mob_index++;
set_char_color( AT_PLAIN, ch );
send_to_char( "Mobile copied.\n\r", ch );
return;
}
/*
* Quite the hack here :P
*/
void medit_setup_arrays( void )
{
CLAN_DATA *clan;
DEITY_DATA *deity;
COUNCIL_DATA *council;
int count;
count = 0;
for( clan = first_clan; clan; clan = clan->next )
{
if( clan->clan_type != CLAN_ORDER && clan->clan_type != CLAN_GUILD )
{
olc_clan_list[count] = clan->name;
count++;
}
}
olc_top_clan = count - 1;
for( clan = first_clan; clan; clan = clan->next )
{
if( clan->clan_type == CLAN_GUILD )
{
olc_clan_list[count] = clan->name;
count++;
}
}
olc_top_guild = count - 1;
for( clan = first_clan; clan; clan = clan->next )
{
if( clan->clan_type == CLAN_ORDER )
{
olc_clan_list[count] = clan->name;
count++;
}
}
olc_top_order = count - 1;
count = 0;
for( deity = first_deity; deity; deity = deity->next )
{
olc_deity_list[count] = QUICKLINK( deity->name );
count++;
}
olc_top_deity = count;
count = 0;
for( council = first_council; council; council = council->next )
{
olc_council_list[count] = council->name;
count++;
}
olc_top_council = count;
}
/**************************************************************************
Menu Displaying Functions
**************************************************************************/
/*
* Display poistions (sitting, standing etc), same for pos and defpos
*/
void medit_disp_positions( DESCRIPTOR_DATA * d )
{
ch_printf_color( d->character, "&WEldhaMUD Positions OLC Menu\x1B[;H\x1B[2J\n\r", 0 );
send_to_char_color( " &P0&w) Dead\n\r", d->character );
send_to_char_color( " &P1&w) Mortally Wounded\n\r", d->character );
send_to_char_color( " &P2&w) Incapacitated\n\r", d->character );
send_to_char_color( " &P3&w) Stunned\n\r", d->character );
send_to_char_color( " &P4&w) Sleeping\n\r", d->character );
send_to_char_color( " &P5&w) Berserk\n\r", d->character );
send_to_char_color( " &P6&w) Resting\n\r", d->character );
send_to_char_color( " &P7&w) Aggressive\n\r", d->character );
send_to_char_color( " &P8&w) Sitting\n\r", d->character );
send_to_char_color( " &P9&w) Fighting\n\r", d->character );
send_to_char_color( "&P10&w) Defensive\n\r", d->character );
send_to_char_color( "&P11&w) Evasive\n\r", d->character );
send_to_char_color( "&P12&w) Standing\n\r", d->character );
/*
* for (i = 0; i < POS_MOUNTED; i++)
* {
* sprintf(buf, "&P%2d&w) %s\r\n", i, capitalize(position_names[i]));
* send_to_char_color(buf, d->character);
* }
*/
send_to_char( "Enter position number : ", d->character );
}
/*
* Display mobile sexes, this is hard coded cause it just works that way :)
*/
void medit_disp_sex( DESCRIPTOR_DATA * d )
{
ch_printf_color( d->character, "&WEldhaMUD Sex OLC Menu\x1B[;H\x1B[2J\n\r", 0 );
send_to_char_color( " &P0&w) Neutral\n\r", d->character );
send_to_char_color( " &P1&w) Male\n\r", d->character );
send_to_char_color( " &P2&w) Female\n\r", d->character );
send_to_char( "\n\rEnter gender number : ", d->character );
}
void medit_disp_spec( DESCRIPTOR_DATA * d )
{
CHAR_DATA *ch = d->character;
ch_printf_color( ch, "&WEldhaMUD Special Function OLC Menu\x1B[;H\x1B[2J\n\r", 0 );
ch_printf_color( ch, " &P 0&w) No Special\n\r" );
ch_printf_color( ch, " &P 1&w) Spec_breath_any\n\r" );
ch_printf_color( ch, " &P 2&w) Spec_breath_acid\n\r" );
ch_printf_color( ch, " &P 3&w) Spec_breath_fire\n\r" );
ch_printf_color( ch, " &P 4&w) Spec_breath_frost\n\r" );
ch_printf_color( ch, " &P 5&w) Spec_breath_gas\n\r" );
ch_printf_color( ch, " &P 6&w) Spec_breath_lightning\n\r" );
ch_printf_color( ch, " &P 7&w) Spec_cast_adept\n\r" );
ch_printf_color( ch, " &P 8&w) Spec_cast_cleric\n\r" );
ch_printf_color( ch, " &P 9&w) Spec_cast_mage\n\r" );
ch_printf_color( ch, " &P10&w) Spec_cast_undead\n\r" );
ch_printf_color( ch, " &P11&w) Spec_executioner\n\r" );
ch_printf_color( ch, " &P12&w) Spec_fido\n\r" );
ch_printf_color( ch, " &P13&w) Spec_guard\n\r" );
ch_printf_color( ch, " &P14&w) Spec_janitor\n\r" );
ch_printf_color( ch, " &P15&w) Spec_poison\n\r" );
ch_printf_color( ch, " &P16&w) Spec_thief\n\r" );
ch_printf_color( ch, " &P17&w) Spec_gen_mob\n\r" );
send_to_char( "Enter number of special: ", ch );
}
/*
* Used for both mob affected_by and object affect bitvectors
*/
void medit_disp_ris( DESCRIPTOR_DATA * d )
{
CHAR_DATA *victim = d->character->dest_buf;
int counter;
ch_printf_color( d->character, "&WEldhaMUD Resistance OLC Menu\x1B[;H\x1B[2J\n\r", 0 );
for( counter = 0; counter < 21; counter++ )
{
ch_printf_color( d->character, "&P%2d&w) %-20.20s\n\r", counter + 1, ris_flags[counter] );
}
switch ( OLC_MODE( d ) )
{
case OEDIT_AFFECT_MODIFIER:
ch_printf_color( d->character, "\n\rCurrent flags: &c%s&w\n\r", flag_string( d->character->tempnum, ris_flags ) );
break;
case MEDIT_RESISTANT:
ch_printf_color( d->character, "\n\rCurrent flags: &c%s&w\n\r", flag_string( victim->resistant, ris_flags ) );
break;
case MEDIT_IMMUNE:
ch_printf_color( d->character, "\n\rCurrent flags: &c%s&w\n\r", flag_string( victim->immune, ris_flags ) );
break;
case MEDIT_SUSCEPTIBLE:
ch_printf_color( d->character, "\n\rCurrent flags: &c%s&w\n\r", flag_string( victim->susceptible, ris_flags ) );
break;
}
send_to_char( "Enter flag (0 to quit): ", d->character );
}
/*
* Mobile attacks
*/
void medit_disp_attack_menu( DESCRIPTOR_DATA * d )
{
CHAR_DATA *victim = d->character->dest_buf;
char buf[MAX_STRING_LENGTH];
int i;
ch_printf_color( d->character, "&WEldhaMUD Attacks OLC Menu\x1B[;H\x1B[2J\n\r", 0 );
for( i = 0; i < MAX_ATTACK_TYPE; i++ )
{
sprintf( buf, "&P%2d&w) %-20.20s\n\r", i + 1, attack_flags[i] );
send_to_char_color( buf, d->character );
}
sprintf( buf, "Current flags: &c%s&w\n\rEnter attack flag (0 to exit): ",
ext_flag_string( &victim->attacks, attack_flags ) );
send_to_char_color( buf, d->character );
}
/*
* Display menu of NPC defense flags
*/
void medit_disp_defense_menu( DESCRIPTOR_DATA * d )
{
CHAR_DATA *victim = d->character->dest_buf;
char buf[MAX_STRING_LENGTH];
int i;
ch_printf_color( d->character, "&WEldhaMUD Defence OLC Menu\x1B[;H\x1B[2J\n\r", 0 );
for( i = 0; i < MAX_DEFENSE_TYPE; i++ )
{
sprintf( buf, "&P%2d&w) %-20.20s\n\r", i + 1, defense_flags[i] );
send_to_char_color( buf, d->character );
}
sprintf( buf, "Current flags: &c%s&w\n\rEnter defense flag (0 to exit): ",
ext_flag_string( &victim->defenses, defense_flags ) );
send_to_char_color( buf, d->character );
}
/*-------------------------------------------------------------------*/
/*. Display mob-flags menu .*/
void medit_disp_mob_flags( DESCRIPTOR_DATA * d )
{
char buf[MAX_STRING_LENGTH];
CHAR_DATA *victim = d->character->dest_buf;
int i, columns = 0;
ch_printf_color( d->character, "&WEldhaMUD Act Flags OLC Menu\x1B[;H\x1B[2J\n\r", 0 );
for( i = 0; i < MAX_ACT; i++ )
{
sprintf( buf, "&P%2d&w) %-20.20s ", i + 1, act_flags[i] );
if( !( ++columns % 2 ) )
strcat( buf, "\n\r" );
send_to_char_color( buf, d->character );
}
sprintf( buf, "\r\n"
"Current flags : &c%s&w\r\n" "Enter mob flags (0 to quit) : ", ext_flag_string( &victim->act, act_flags ) );
send_to_char_color( buf, d->character );
}
/*
* Special handing for PC only flags
*/
void medit_disp_plr_flags( DESCRIPTOR_DATA * d )
{
char buf[MAX_STRING_LENGTH];
CHAR_DATA *victim = d->character->dest_buf;
int i, columns = 0;
ch_printf_color( d->character, "&WEldhaMUD Player Flags OLC Menu\x1B[;H\x1B[2J\n\r", 0 );
for( i = 0; i < PLR_INVISPROMPT; i++ )
{
ch_printf_color( d->character, "&P%2d&w) %-20.20s ", i + 1, plr_flags[i] );
if( ++columns % 2 == 0 )
send_to_char( "\n\r", d->character );
}
sprintf( buf, "\n\rCurrent flags: &c%s&w\n\rEnter flags (0 to quit): ", ext_flag_string( &victim->act, plr_flags ) );
send_to_char_color( buf, d->character );
}
void medit_disp_pcdata_flags( DESCRIPTOR_DATA * d )
{
CHAR_DATA *victim = d->character->dest_buf;
int i;
ch_printf_color( d->character, "&WEldhaMUD Flags OLC Menu\x1B[;H\x1B[2J\n\r", 0 );
for( i = 0; i < 15; i++ )
{
ch_printf_color( d->character, "&P%2d&w) %-20.20s \n\r", i + 1, pc_flags[i] );
}
ch_printf_color( d->character, "\n\rCurrent flags: &c%s&w\n\rEnter flags (0 to quit): ",
flag_string( victim->pcdata->flags, pc_flags ) );
}
/*-------------------------------------------------------------------*/
/*. Display aff-flags menu .*/
void medit_disp_aff_flags( DESCRIPTOR_DATA * d )
{
char buf[MAX_STRING_LENGTH];
CHAR_DATA *victim = d->character->dest_buf;
int i, columns = 0;
ch_printf_color( d->character, "&WEldhaMUD Effected By OLC Menu\x1B[;H\x1B[2J\n\r", 0 );
for( i = 0; i < MAX_AFFECTED_BY; i++ )
{
sprintf( buf, "&P%2d&w) %-20.20s ", i + 1, a_flags[i] );
if( !( ++columns % 2 ) )
strcat( buf, "\r\n" );
send_to_char_color( buf, d->character );
}
/*
* sprintf(buf, "\r\n"
* "Current flags : &c%s&w\r\n"
* "Enter affected flags (0 to quit) : ",
* affect_bit_name( &victim->affected_by )
* );
*/
if( OLC_MODE( d ) == OEDIT_AFFECT_MODIFIER )
{
buf[0] = '\0';
for( i = 0; i < 36; i++ )
if( IS_SET( d->character->tempnum, 1 << i ) )
{
strcat( buf, " " );
strcat( buf, a_flags[i] );
}
ch_printf_color( d->character, "\n\rCurrent flags : &c%s&w\n\r", buf );
}
else
ch_printf_color( d->character, "\n\rCurrent flags : &c%s&w\n\r", affect_bit_name( &victim->affected_by ) );
send_to_char_color( "Enter affected flags (0 to quit) : ", d->character );
}
void medit_disp_clans( DESCRIPTOR_DATA * d )
{
CHAR_DATA *ch = d->character;
int count;
ch_printf_color( ch, "&WEldhaMUD Clans OLC Menu\x1B[;H\x1B[2J\n\r", 0 );
/*
* ch_printf( ch, "%d %d %d\n\r", olc_top_clan, olc_top_guild, olc_top_order );
*/
send_to_char( "Clans:\n\r", d->character );
for( count = 0; count <= olc_top_clan; count++ )
{
ch_printf_color( ch, "&P%2d&w) %-20.20s\n\r", count + 1, olc_clan_list[count] );
}
send_to_char( "\n\rGuilds:\n\r", d->character );
for( count = olc_top_clan + 1; count <= olc_top_guild; count++ )
{
ch_printf_color( ch, "&P%2d&w) %-20.20s\n\r", count + 1, olc_clan_list[count] );
}
send_to_char( "\n\rOrders:\n\r", d->character );
for( count = olc_top_guild + 1; count <= olc_top_order; count++ )
{
ch_printf_color( ch, "&P%2d&w) %-20.20s\n\r", count + 1, olc_clan_list[count] );
}
send_to_char( "Enter choice (0 for none): ", d->character );
}
void medit_disp_deities( DESCRIPTOR_DATA * d )
{
int count;
ch_printf_color( d->character, "&WEldhaMUD Deities OLC Menu\x1B[;H\x1B[2J\n\r", 0 );
ch_printf( d->character, "%d\n\r", olc_top_deity );
ch_printf_color( d->character, "&P%2d&w) %-20.20s\n\r", 0, "None" );
for( count = 0; count < olc_top_deity; count++ )
{
ch_printf_color( d->character, "&P%2d&w) %-20.20s\n\r", count + 1, olc_deity_list[count] );
}
send_to_char( "Enter choice: ", d->character );
}
void medit_disp_councils( DESCRIPTOR_DATA * d )
{
int count;
ch_printf_color( d->character, "&WEldhaMUD Councils OLC Menu\x1B[;H\x1B[2J\n\r", 0 );
ch_printf( d->character, "%d\n\r", olc_top_council );
ch_printf_color( d->character, "&P%2d&w) %-20.20s\n\r", 0, "None" );
for( count = 0; count < olc_top_council; count++ )
{
ch_printf_color( d->character, "&P%2d&w) %-20.20s\n\r", count + 1, olc_council_list[count] );
}
send_to_char( "Enter choice: ", d->character );
}
void medit_disp_parts( DESCRIPTOR_DATA * d )
{
CHAR_DATA *victim = d->character->dest_buf;
int count, columns = 0;
ch_printf_color( d->character, "&WEldhaMUD Body Parts OLC Menu\x1B[;H\x1B[2J\n\r", 0 );
for( count = 0; count < 29; count++ )
{
ch_printf_color( d->character, "&P%2d&w) %-20.20s ", count + 1, part_flags[count] );
if( ++columns % 2 == 0 )
send_to_char( "\n\r", d->character );
}
ch_printf_color( d->character, "\n\rCurrent flags: %s\n\rEnter flag or 0 to exit: ",
flag_string( victim->xflags, part_flags ) );
}
void medit_disp_classes( DESCRIPTOR_DATA * d )
{
CHAR_DATA *victim = d->character->dest_buf;
int iClass, columns = 0;
ch_printf_color( d->character, "&WEldhaMUD Classes OLC Menu\x1B[;H\x1B[2J\n\r", 0 );
if( IS_NPC( victim ) )
{
for( iClass = 0; iClass < MAX_NPC_CLASS; iClass++ )
{
ch_printf_color( d->character, "&P%2d&w) %-20.20s ", iClass, npc_class[iClass] );
if( ++columns % 2 == 0 )
send_to_char( "\n\r", d->character );
}
}
else
{
for( iClass = 0; iClass < MAX_CLASS; iClass++ )
{
ch_printf_color( d->character, "&P%2d&w) %-20.20s \n\r", iClass, class_table[iClass]->who_name );
/*
* if ( ++columns % 2 == 0 )
* send_to_char( "\n\r", d->character );
*/
}
}
send_to_char( "\n\rEnter class: ", d->character );
}
void medit_disp_races( DESCRIPTOR_DATA * d )
{
CHAR_DATA *victim = d->character->dest_buf;
int iRace, columns = 0;
ch_printf_color( d->character, "&WEldhaMUD Races OLC Menu\x1B[;H\x1B[2J\n\r", 0 );
if( IS_NPC( victim ) )
{
for( iRace = 0; iRace < MAX_NPC_RACE; iRace++ )
{
ch_printf_color( d->character, "&P%2d&w) %-20.20s ", iRace, npc_race[iRace] );
if( ++columns % 3 == 0 )
send_to_char( "\n\r", d->character );
}
}
else
{
for( iRace = 0; iRace < MAX_RACE; iRace++ )
{
ch_printf_color( d->character, "&P%2d&w) %-20.20s \n\r", iRace, race_table[iRace]->race_name );
/*
* if ( ++columns % 2 == 0 )
* send_to_char( "\n\r", d->character );
*/
}
}
send_to_char( "\n\rEnter race: ", d->character );
}
void medit_disp_saving_menu( DESCRIPTOR_DATA * d )
{
CHAR_DATA *victim = d->character->dest_buf;
ch_printf_color( d->character, "&WEldhaMUD Saving Throws OLC Menu\x1B[;H\x1B[2J\n\r", 0 );
ch_printf_color( d->character, "&P1&w) %-30.30s: %2d\n\r", "Saving vs. poison", victim->saving_poison_death );
ch_printf_color( d->character, "&P2&w) %-30.30s: %2d\n\r", "Saving vs. wands", victim->saving_wand );
ch_printf_color( d->character, "&P3&w) %-30.30s: %2d\n\r", "Saving vs. paralysis", victim->saving_para_petri );
ch_printf_color( d->character, "&P4&w) %-30.30s: %2d\n\r", "Saving vs. breath", victim->saving_breath );
ch_printf_color( d->character, "&P5&w) %-30.30s: %2d\n\r", "Saving vs. spells", victim->saving_spell_staff );
send_to_char( "\n\rModify which saving throw: ", d->character );
OLC_MODE( d ) = MEDIT_SAVE_MENU;
}
void medit_disp_menu( DESCRIPTOR_DATA * d )
{
CHAR_DATA *victim = d->character->dest_buf;
if( !IS_NPC( victim ) )
medit_disp_pc_menu( d );
else
medit_disp_npc_menu( d );
}
/*
* Display main menu for NPCs
*/
void medit_disp_npc_menu( DESCRIPTOR_DATA * d )
{
CHAR_DATA *ch = d->character;
CHAR_DATA *mob = d->character->dest_buf;
int hitestimate, damestimate;
if( !mob->pIndexData->hitnodice )
hitestimate = mob->level * 8 + number_range( mob->level * mob->level / 4, mob->level * mob->level );
else
hitestimate = mob->pIndexData->hitnodice * number_range( 1, mob->pIndexData->hitsizedice ) + mob->pIndexData->hitplus;
damestimate = number_range( mob->pIndexData->damnodice, mob->pIndexData->damsizedice * mob->pIndexData->damnodice );
damestimate += GET_DAMROLL( mob );
ch_printf_color( ch, "&WEldhaMUD NPC OLC Menu\x1B[;H\x1B[2J\n\r", 0 );
set_char_color( AT_PLAIN, d->character );
ch_printf_color( ch, "-- Mob Number: [&c%d&w]\n\r", mob->pIndexData->vnum );
ch_printf_color( ch, "&P1&w) Sex: &O%-7.7s &P2&w) Name: &O%s\n\r",
mob->sex == SEX_MALE ? "male" : mob->sex == SEX_FEMALE ? "female" : "neutral", mob->name );
ch_printf_color( ch, "&P3&w) Shortdesc: &O%s\n\r", mob->short_descr[0] == '\0' ? "(none set)" : mob->short_descr );
ch_printf_color( ch, "&P4&w) Longdesc:-\n\r&O%s\n\r", mob->long_descr[0] == '\0' ? "(none set)" : mob->long_descr );
ch_printf_color( ch, "&P5&w) Description:-\n\r&O%-74.74s\n\r", mob->description );
ch_printf_color( ch, "&P6&w) Class: [&c%-11.11s&w], &P7&w) Race: [&c%-11.11s&w]\n\r",
npc_class[mob->class], npc_race[mob->race] );
ch_printf_color( ch, "&P8&w) Level: [&c%5d&w], &P9&w) Alignment: [&c%5d&w], &PA&w) Strength: [&c%5d&w]\n\r",
mob->level, mob->alignment, get_curr_str( mob ) );
ch_printf_color( ch, "&PB&w) Intelligence:[&c%5d&w], &PC&w) Widsom: [&c%5d&w], &PD&w) Dexterity:[&c%5d&w]\n\r",
get_curr_int( mob ), get_curr_wis( mob ), get_curr_dex( mob ) );
ch_printf_color( ch, "&PE&w) Constitution:[&c%5d&w], &PF&w) Charisma: [&c%5d&w], &PG&w) Luck: [&c%5d&w]\n\r",
get_curr_con( mob ), get_curr_cha( mob ), get_curr_lck( mob ) );
ch_printf_color( ch,
"&PH&w) DamNumDice: [&c%5d&w], &PI&w) DamSizeDice: [&c%5d&w], &PJ&w) DamPlus: [&c%5d&w]=[&c%5d&w]\n\r",
mob->pIndexData->damnodice, mob->pIndexData->damsizedice, mob->pIndexData->damplus, damestimate );
ch_printf_color( ch,
"&PK&w) HitNumDice: [&c%5d&w], &PL&w) HitSizeDice: [&c%5d&w], &PM&w) HitPlus: [&c%5d&w]=[&c%5d&w]\r\n",
mob->pIndexData->hitnodice, mob->pIndexData->hitsizedice, mob->pIndexData->hitplus, hitestimate );
ch_printf_color( ch, "&PN&w) Gold: [&c%8d&w], &PO&w) Spec: &O%-22.22s\n\r", mob->gold, lookup_spec( mob->spec_fun ) );
ch_printf_color( ch, "&PP&w) Saving Throws\n\r" );
ch_printf_color( ch, "&PR&w) Resistant : &O%s\n\r", flag_string( mob->resistant, ris_flags ) );
ch_printf_color( ch, "&PS&w) Immune : &O%s\n\r", flag_string( mob->immune, ris_flags ) );
ch_printf_color( ch, "&PT&w) Susceptible : &O%s\n\r", flag_string( mob->susceptible, ris_flags ) );
ch_printf_color( ch, "&PU&w) Position : &O%s\n\r", position_names[( int )mob->position] );
ch_printf_color( ch, "&PV&w) Attacks : &c%s\n\r", ext_flag_string( &mob->attacks, attack_flags ) );
ch_printf_color( ch, "&PW&w) Defenses : &c%s\n\r", ext_flag_string( &mob->defenses, defense_flags ) );
ch_printf_color( ch, "&PX&w) Body Parts : &c%s\n\r", flag_string( mob->xflags, part_flags ) );
ch_printf_color( ch, "&PY&w) Act Flags : &c%s\n\r", ext_flag_string( &mob->act, act_flags ) );
ch_printf_color( ch, "&PZ&w) Affected : &c%s\n\r", affect_bit_name( &mob->affected_by ) );
ch_printf_color( ch, "&PQ&w) Quit\n\r" );
ch_printf_color( ch, "Enter choice : " );
OLC_MODE( d ) = MEDIT_NPC_MAIN_MENU;
}
void medit_disp_pc_menu( DESCRIPTOR_DATA * d )
{
CHAR_DATA *ch = d->character;
CHAR_DATA *victim = d->character->dest_buf;
ch_printf_color( ch, "&WEldhaMUD Player OLC Menu\n\r", 0 );
ch_printf_color( ch, "&P1&w) Sex: &O%-7.7s &P2&w) Name: &O%s\n\r",
victim->sex == SEX_MALE ? "male" : victim->sex == SEX_FEMALE ? "female" : "neutral", victim->name );
ch_printf_color( ch, "&P3&w) Description:-\n\r&O%-74.74s\n\r", victim->description );
ch_printf_color( ch, "&P4&w) Class: [&c%-11.11s&w], &P5&w) Race: [&c%-11.11s&w]\n\r",
class_table[victim->class]->who_name, race_table[victim->race]->race_name );
ch_printf_color( ch, "&P6&w) Level: [&c%5d&w], &P7&w) Alignment: [&c%5d&w], &P8&w) Strength: [&c%5d&w]\n\r",
victim->level, victim->alignment, get_curr_str( victim ) );
ch_printf_color( ch, "&P9&w) Intelligence:[&c%5d&w], &PA&w) Widsom: [&c%5d&w], &PB&w) Dexterity: [&c%5d&w]\n\r",
get_curr_int( victim ), get_curr_wis( victim ), get_curr_dex( victim ) );
ch_printf_color( ch, "&PC&w) Constitution:[&c%5d&w], &PD&w) Charisma: [&c%5d&w], &PE&w) Luck: [&c%5d&w]\n\r",
get_curr_con( victim ), get_curr_cha( victim ), get_curr_lck( victim ) );
ch_printf_color( ch,
"&PF&w) Hps: [&c%5d&w/&c%5d&w], &PG&w) Mana: [&c%5d&w/&c%5d&w], &PH&w) Move:[&c%5d&w/&c%-5d&w]\n\r",
victim->hit, victim->max_hit, victim->mana, victim->max_mana, victim->move, victim->max_move );
ch_printf_color( ch, "&PI&w) Gold: [&c%11d&w], &PJ&w) Mentalstate: [&c%5d&w], &PK&w) Emotional: [&c%5d&w]\n\r",
victim->gold, victim->mental_state, victim->emotional_state );
ch_printf_color( ch, "&PL&w) Thirst: [&c%5d&w], &PM&w) Full: [&c%5d&w], &PN&w) Drunk: [&c%5d&w]\n\r",
victim->pcdata->condition[COND_THIRST], victim->pcdata->condition[COND_FULL],
victim->pcdata->condition[COND_DRUNK] );
ch_printf_color( ch, "&PO&w) Favor: [&c%5d&w]\n\r", victim->pcdata->favor );
ch_printf_color( ch, "&PP&w) Saving Throws\n\r" );
ch_printf_color( ch, "&PR&w) Resistant : &O%s\n\r", flag_string( victim->resistant, ris_flags ) );
ch_printf_color( ch, "&PS&w) Immune : &O%s\n\r", flag_string( victim->immune, ris_flags ) );
ch_printf_color( ch, "&PT&w) Susceptible : &O%s\n\r", flag_string( victim->susceptible, ris_flags ) );
ch_printf_color( ch, "&PU&w) Position : &O%s\n\r", position_names[( int )victim->position] );
ch_printf_color( ch, "&PV&w) Act Flags : &c%s\n\r", ext_flag_string( &victim->act, plr_flags ) );
ch_printf_color( ch, "&PW&w) PC Flags : &c%s\n\r", flag_string( victim->pcdata->flags, pc_flags ) );
ch_printf_color( ch, "&PX&w) Affected : &c%s\n\r", affect_bit_name( &victim->affected_by ) );
ch_printf_color( ch, "&PY&w) Deity : &O%s\n\r", victim->pcdata->deity ? victim->pcdata->deity->name : "None" );
if( get_trust( ch ) >= LEVEL_GOD && victim->pcdata->clan )
ch_printf_color( ch, "&PZ&w) %-12.12s: &O%s\n\r",
victim->pcdata->clan->clan_type == CLAN_ORDER ? "Order" :
victim->pcdata->clan->clan_type == CLAN_GUILD ? "Guild" : "Clan", victim->pcdata->clan->name );
else if( get_trust( ch ) >= LEVEL_GOD && !victim->pcdata->clan )
ch_printf_color( ch, "&PZ&w) Clan : &ONone\n\r" );
if( get_trust( ch ) >= LEVEL_SUB_IMPLEM )
ch_printf_color( ch, "&P=&w) Council : &O%s\n\r",
victim->pcdata->council ? victim->pcdata->council->name : "None" );
ch_printf_color( ch, "&PQ&w) Quit\n\r" );
ch_printf_color( ch, "Enter choice : " );
OLC_MODE( d ) = MEDIT_PC_MAIN_MENU;
}
/*
* Bogus command for resetting stuff
*/
void do_medit_reset( CHAR_DATA * ch, char *argument )
{
CHAR_DATA *victim = ch->dest_buf;
switch ( ch->substate )
{
default:
return;
case SUB_MOB_DESC:
if( !ch->dest_buf )
{
send_to_char( "Fatal error, report to Tagith.\n\r", ch );
bug( "do_medit_reset: sub_mob_desc: NULL ch->dest_buf", 0 );
cleanup_olc( ch->desc );
ch->substate = SUB_NONE;
return;
}
STRFREE( victim->description );
victim->description = copy_buffer( ch );
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
{
STRFREE( victim->pIndexData->description );
victim->pIndexData->description = QUICKLINK( victim->description );
}
stop_editing( ch );
ch->dest_buf = victim;
ch->substate = SUB_NONE;
ch->desc->connected = CON_MEDIT;
medit_disp_menu( ch->desc );
return;
}
}
/**************************************************************************
The GARGANTAUN event handler
**************************************************************************/
void medit_parse( DESCRIPTOR_DATA * d, char *arg )
{
CHAR_DATA *victim = d->character->dest_buf;
int number = 0, minattr, maxattr;
char arg1[MAX_INPUT_LENGTH];
char buf[MAX_STRING_LENGTH];
CLAN_DATA *clan;
DEITY_DATA *deity;
COUNCIL_DATA *council;
AREA_DATA *tarea;
bool found = FALSE;
char *pwdnew, *p;
if( IS_NPC( victim ) )
{
minattr = 1;
maxattr = 25;
}
else
{
minattr = 3;
maxattr = 25;
}
switch ( OLC_MODE( d ) )
{
case MEDIT_CONFIRM_SAVESTRING:
switch ( UPPER( *arg ) )
{
case 'Y':
/*
* If its a mob, fold_area otherwise save_char_obj
*/
send_to_char( "Saving...\n\r", d->character );
if( IS_NPC( victim ) )
{
sprintf( log_buf, "OLC: %s edits mob %d(%s)", d->character->name, victim->pIndexData->vnum, victim->name );
for( tarea = first_asort; tarea; tarea = tarea->next )
{
if( OLC_VNUM( d ) >= tarea->low_m_vnum && OLC_VNUM( d ) <= tarea->hi_m_vnum )
{
if( get_trust( d->character ) >= LEVEL_SUB_IMPLEM )
fold_area( tarea, tarea->filename, FALSE );
found = TRUE;
}
}
/*
* I'm assuming that if it isn't an installed area, its the char's
*/
if( !found
&& ( tarea = d->character->pcdata->area ) != NULL
&& get_trust( d->character ) >= LEVEL_CREATOR && IS_SET( tarea->status, AREA_LOADED ) )
{
tarea = d->character->pcdata->area;
sprintf( buf, "%s%s", BUILD_DIR, tarea->filename );
fold_area( tarea, buf, FALSE );
}
}
else
{
sprintf( log_buf, "OLC: %s edits %s", d->character->name, victim->name );
save_char_obj( victim );
}
log_string_plus( log_buf, LOG_BUILD, d->character->level );
cleanup_olc( d );
return;
case 'N':
cleanup_olc( d );
return;
default:
send_to_char( "Invalid choice!\n\r", d->character );
send_to_char( "Do you wish to save to disk? : ", d->character );
return;
}
break;
case MEDIT_NPC_MAIN_MENU:
switch ( UPPER( *arg ) )
{
case 'Q':
cleanup_olc( d );
return;
case '1':
OLC_MODE( d ) = MEDIT_SEX;
medit_disp_sex( d );
return;
case '2':
OLC_MODE( d ) = MEDIT_NAME;
send_to_char( "\n\rEnter name: ", d->character );
return;
case '3':
OLC_MODE( d ) = MEDIT_S_DESC;
send_to_char( "\n\rEnter short description: ", d->character );
return;
case '4':
OLC_MODE( d ) = MEDIT_L_DESC;
send_to_char( "\n\rEnter long description: ", d->character );
return;
case '5':
OLC_MODE( d ) = MEDIT_D_DESC;
d->character->substate = SUB_MOB_DESC;
d->character->last_cmd = do_medit_reset;
send_to_char( "Enter new mob description:\r\n", d->character );
if( !victim->description )
victim->description = STRALLOC( "" );
start_editing( d->character, victim->description );
return;
case '6':
OLC_MODE( d ) = MEDIT_CLASS;
medit_disp_classes( d );
return;
case '7':
OLC_MODE( d ) = MEDIT_RACE;
medit_disp_races( d );
return;
case '8':
OLC_MODE( d ) = MEDIT_LEVEL;
send_to_char( "\n\rEnter level: ", d->character );
return;
case '9':
OLC_MODE( d ) = MEDIT_ALIGNMENT;
send_to_char( "\n\rEnter alignment: ", d->character );
return;
case 'A':
OLC_MODE( d ) = MEDIT_STRENGTH;
send_to_char( "\n\rEnter strength: ", d->character );
return;
case 'B':
OLC_MODE( d ) = MEDIT_INTELLIGENCE;
send_to_char( "\n\rEnter intelligence: ", d->character );
return;
case 'C':
OLC_MODE( d ) = MEDIT_WISDOM;
send_to_char( "\n\rEnter wisdom: ", d->character );
return;
case 'D':
OLC_MODE( d ) = MEDIT_DEXTERITY;
send_to_char( "\n\rEnter dexterity: ", d->character );
return;
case 'E':
OLC_MODE( d ) = MEDIT_CONSTITUTION;
send_to_char( "\n\rEnter constitution: ", d->character );
return;
case 'F':
OLC_MODE( d ) = MEDIT_CHARISMA;
send_to_char( "\n\rEnter charisma: ", d->character );
return;
case 'G':
OLC_MODE( d ) = MEDIT_LUCK;
send_to_char( "\n\rEnter luck: ", d->character );
return;
case 'H':
OLC_MODE( d ) = MEDIT_DAMNUMDIE;
send_to_char( "\n\rEnter number of damage dice: ", d->character );
return;
case 'I':
OLC_MODE( d ) = MEDIT_DAMSIZEDIE;
send_to_char( "\n\rEnter size of damage dice: ", d->character );
return;
case 'J':
OLC_MODE( d ) = MEDIT_DAMPLUS;
send_to_char( "\n\rEnter amount to add to damage: ", d->character );
return;
case 'K':
OLC_MODE( d ) = MEDIT_HITNUMDIE;
send_to_char( "\n\rEnter number of hitpoint dice: ", d->character );
return;
case 'L':
OLC_MODE( d ) = MEDIT_HITSIZEDIE;
send_to_char( "\n\rEnter size of hitpoint dice: ", d->character );
return;
case 'M':
OLC_MODE( d ) = MEDIT_HITPLUS;
send_to_char( "\n\rEnter amount to add to hitpoints: ", d->character );
return;
case 'N':
OLC_MODE( d ) = MEDIT_GOLD;
send_to_char( "\n\rEnter amount of gold mobile carries: ", d->character );
return;
case 'O':
OLC_MODE( d ) = MEDIT_SPEC;
medit_disp_spec( d );
return;
case 'P':
OLC_MODE( d ) = MEDIT_SAVE_MENU;
medit_disp_saving_menu( d );
return;
case 'R':
OLC_MODE( d ) = MEDIT_RESISTANT;
medit_disp_ris( d );
return;
case 'S':
OLC_MODE( d ) = MEDIT_IMMUNE;
medit_disp_ris( d );
return;
case 'T':
OLC_MODE( d ) = MEDIT_SUSCEPTIBLE;
medit_disp_ris( d );
return;
case 'U':
OLC_MODE( d ) = MEDIT_POS;
medit_disp_positions( d );
return;
case 'V':
OLC_MODE( d ) = MEDIT_ATTACK;
medit_disp_attack_menu( d );
return;
case 'W':
OLC_MODE( d ) = MEDIT_DEFENSE;
medit_disp_defense_menu( d );
return;
case 'X':
OLC_MODE( d ) = MEDIT_PARTS;
medit_disp_parts( d );
return;
case 'Y':
OLC_MODE( d ) = MEDIT_NPC_FLAGS;
medit_disp_mob_flags( d );
return;
case 'Z':
OLC_MODE( d ) = MEDIT_AFF_FLAGS;
medit_disp_aff_flags( d );
return;
default:
medit_disp_npc_menu( d );
return;
}
break;
case MEDIT_PC_MAIN_MENU:
switch ( UPPER( *arg ) )
{
case 'Q':
if( OLC_CHANGE( d ) )
{
send_to_char( "Do you wish to save changes to disk? (y/n): ", d->character );
OLC_MODE( d ) = MEDIT_CONFIRM_SAVESTRING;
}
else
cleanup_olc( d );
return;
case '1':
OLC_MODE( d ) = MEDIT_SEX;
medit_disp_sex( d );
return;
case '2':
OLC_MODE( d ) = MEDIT_NAME;
return;
case '3':
OLC_MODE( d ) = MEDIT_D_DESC;
d->character->substate = SUB_MOB_DESC;
d->character->last_cmd = do_medit_reset;
send_to_char( "Enter new player description:\r\n", d->character );
if( !victim->description )
victim->description = STRALLOC( "" );
start_editing( d->character, victim->description );
return;
case '4':
OLC_MODE( d ) = MEDIT_CLASS;
medit_disp_classes( d );
return;
case '5':
OLC_MODE( d ) = MEDIT_RACE;
medit_disp_races( d );
return;
case '6':
send_to_char( "\n\rNPC Only!!", d->character );
break;
case '7':
OLC_MODE( d ) = MEDIT_ALIGNMENT;
send_to_char( "\n\rEnter alignment: ", d->character );
return;
case '8':
OLC_MODE( d ) = MEDIT_STRENGTH;
send_to_char( "\n\rEnter strength: ", d->character );
return;
case '9':
OLC_MODE( d ) = MEDIT_INTELLIGENCE;
send_to_char( "\n\rEnter intelligence: ", d->character );
return;
case 'A':
OLC_MODE( d ) = MEDIT_WISDOM;
send_to_char( "\n\rEnter wisdom: ", d->character );
return;
case 'B':
OLC_MODE( d ) = MEDIT_DEXTERITY;
send_to_char( "\n\rEnter dexterity: ", d->character );
return;
case 'C':
OLC_MODE( d ) = MEDIT_CONSTITUTION;
send_to_char( "\n\rEnter constitution: ", d->character );
return;
case 'D':
OLC_MODE( d ) = MEDIT_CHARISMA;
send_to_char( "\n\rEnter charisma: ", d->character );
return;
case 'E':
OLC_MODE( d ) = MEDIT_LUCK;
send_to_char( "\n\rEnter luck: ", d->character );
return;
case 'F':
OLC_MODE( d ) = MEDIT_HITPOINT;
send_to_char( "\n\rEnter hitpoints: ", d->character );
return;
case 'G':
OLC_MODE( d ) = MEDIT_MANA;
send_to_char( "\n\rEnter mana: ", d->character );
return;
case 'H':
OLC_MODE( d ) = MEDIT_MOVE;
send_to_char( "\n\rEnter moves: ", d->character );
return;
case 'I':
OLC_MODE( d ) = MEDIT_GOLD;
send_to_char( "\n\rEnter amount of gold player carries: ", d->character );
return;
case 'J':
OLC_MODE( d ) = MEDIT_MENTALSTATE;
send_to_char( "\n\rEnter players mentalstate: ", d->character );
return;
case 'K':
OLC_MODE( d ) = MEDIT_EMOTIONAL;
send_to_char( "\n\rEnter players emotional state: ", d->character );
return;
case 'L':
OLC_MODE( d ) = MEDIT_THIRST;
send_to_char( "\n\rEnter player's thirst (0 = dehydrated): ", d->character );
return;
case 'M':
OLC_MODE( d ) = MEDIT_FULL;
send_to_char( "\n\rEnter player's fullness (0 = starving): ", d->character );
return;
case 'N':
OLC_MODE( d ) = MEDIT_DRUNK;
send_to_char( "\n\rEnter player's drunkeness (0 = sober): ", d->character );
return;
case 'O':
OLC_MODE( d ) = MEDIT_FAVOR;
send_to_char( "\n\rEnter player's favor (-2500 to 2500): ", d->character );
return;
case 'P':
OLC_MODE( d ) = MEDIT_SAVE_MENU;
medit_disp_saving_menu( d );
return;
case 'R':
OLC_MODE( d ) = MEDIT_RESISTANT;
medit_disp_ris( d );
return;
case 'S':
OLC_MODE( d ) = MEDIT_IMMUNE;
medit_disp_ris( d );
return;
case 'T':
OLC_MODE( d ) = MEDIT_SUSCEPTIBLE;
medit_disp_ris( d );
return;
case 'U':
send_to_char( "NPCs Only!!\n\r", d->character );
break;
case 'V':
OLC_MODE( d ) = MEDIT_PC_FLAGS;
medit_disp_plr_flags( d );
return;
case 'W':
OLC_MODE( d ) = MEDIT_PCDATA_FLAGS;
medit_disp_pcdata_flags( d );
return;
case 'X':
OLC_MODE( d ) = MEDIT_AFF_FLAGS;
medit_disp_aff_flags( d );
return;
case 'Y':
OLC_MODE( d ) = MEDIT_DEITY;
medit_disp_deities( d );
return;
case 'Z':
if( get_trust( d->character ) < LEVEL_GOD )
break;
OLC_MODE( d ) = MEDIT_CLAN;
medit_disp_clans( d );
return;
case '=':
if( get_trust( d->character ) < LEVEL_SUB_IMPLEM )
break;
OLC_MODE( d ) = MEDIT_COUNCIL;
medit_disp_councils( d );
return;
default:
medit_disp_npc_menu( d );
return;
}
break;
case MEDIT_NAME:
if( !IS_NPC( victim ) && get_trust( d->character ) > LEVEL_SUB_IMPLEM - 1 )
{
sprintf( buf, "%s %s", victim->name, arg );
do_pcrename( d->character, buf );
olc_log( d, "Changes name to %s", arg );
return;
}
STRFREE( victim->name );
victim->name = STRALLOC( arg );
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
{
STRFREE( victim->pIndexData->player_name );
victim->pIndexData->player_name = QUICKLINK( victim->name );
}
olc_log( d, "Changed name to %s", arg );
break;
case MEDIT_S_DESC:
STRFREE( victim->short_descr );
victim->short_descr = STRALLOC( arg );
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
{
STRFREE( victim->pIndexData->short_descr );
victim->pIndexData->short_descr = QUICKLINK( victim->short_descr );
}
olc_log( d, "Changed short desc to %s", arg );
break;
case MEDIT_L_DESC:
STRFREE( victim->long_descr );
strcpy( buf, arg );
strcat( buf, "\n\r" );
victim->long_descr = STRALLOC( buf );
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
{
STRFREE( victim->pIndexData->long_descr );
victim->pIndexData->long_descr = QUICKLINK( victim->long_descr );
}
olc_log( d, "Changed long desc to %s", arg );
break;
case MEDIT_D_DESC:
/*
* . We should never get here .
*/
cleanup_olc( d );
bug( "OLC: medit_parse(): Reached D_DESC case!", 0 );
break;
case MEDIT_NPC_FLAGS:
/*
* REDONE, again, then again
*/
if( is_number( arg ) )
if( atoi( arg ) == 0 )
break;
while( arg[0] != '\0' )
{
arg = one_argument( arg, arg1 );
if( is_number( arg1 ) )
{
number = atoi( arg1 );
number -= 1;
if( number < 0 || number > 37 )
{
send_to_char( "Invalid flag, try again: ", d->character );
return;
}
}
else
{
number = get_actflag( arg1 );
if( number < 0 )
{
send_to_char( "Invalid flag, try again: ", d->character );
return;
}
}
if( IS_NPC( victim )
&& number == ACT_PROTOTYPE
&& get_trust( d->character ) < 105 && !is_name( "protoflag", d->character->pcdata->bestowments ) )
send_to_char( "You don't have permission to change the prototype flag.\n\r", d->character );
else if( IS_NPC( victim ) && number == ACT_IS_NPC )
send_to_char( "It isn't possible to change that flag.\n\r", d->character );
else
{
xTOGGLE_BIT( victim->act, number );
}
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->act = victim->act;
}
medit_disp_mob_flags( d );
return;
case MEDIT_PC_FLAGS:
if( is_number( arg ) )
{
number = atoi( arg );
if( number == 0 )
break;
if( ( number > 0 ) || ( number < 31 ) )
{
number -= 1; /* offset :P */
xTOGGLE_BIT( victim->act, number );
olc_log( d, "%s the flag %s", xIS_SET( victim->act, number ) ? "Added" : "Removed", plr_flags[number] );
}
}
else
{
while( arg[0] != '\0' )
{
arg = one_argument( arg, arg1 );
number = get_actflag( arg1 );
if( number > 0 )
{
xTOGGLE_BIT( victim->act, number );
olc_log( d, "%s the flag %s", xIS_SET( victim->act, number ) ? "Added" : "Removed", plr_flags[number] );
}
}
}
medit_disp_plr_flags( d );
return;
case MEDIT_PCDATA_FLAGS:
if( is_number( arg ) )
{
number = atoi( arg );
if( number == 0 )
break;
if( ( number > 0 ) || ( number < 31 ) )
{
number -= 1;
TOGGLE_BIT( victim->pcdata->flags, 1 << number );
olc_log( d, "%s the pcflag %s", IS_SET( victim->pcdata->flags, 1 << number ) ? "Added" : "Removed",
pc_flags[number] );
}
}
else
{
while( arg[0] != '\0' )
{
arg = one_argument( arg, arg1 );
number = get_actflag( arg1 );
if( number > 0 )
{
TOGGLE_BIT( victim->pcdata->flags, 1 << number );
olc_log( d, "%s the pcflag %s", IS_SET( victim->pcdata->flags, 1 << number ) ? "Added" : "Removed",
pc_flags[number] );
}
}
}
medit_disp_pcdata_flags( d );
return;
case MEDIT_AFF_FLAGS:
if( is_number( arg ) )
{
number = atoi( arg );
if( number == 0 )
break;
if( ( number > 0 ) || ( number < 31 ) )
{
number -= 1;
xTOGGLE_BIT( victim->affected_by, number );
olc_log( d, "%s the affect %s", xIS_SET( victim->affected_by, number ) ? "Added" : "Removed",
a_flags[number] );
}
}
else
{
while( arg[0] != '\0' )
{
arg = one_argument( arg, arg1 );
number = get_actflag( arg1 );
if( number > 0 )
{
xTOGGLE_BIT( victim->affected_by, number );
olc_log( d, "%s the affect %s", xIS_SET( victim->affected_by, number ) ? "Added" : "Removed",
a_flags[number] );
}
}
}
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->affected_by = victim->affected_by;
medit_disp_aff_flags( d );
return;
/*-------------------------------------------------------------------*/
/*. Numerical responses .*/
case MEDIT_HITPOINT:
victim->max_hit = URANGE( 1, atoi( arg ), 32700 );
olc_log( d, "Changed hitpoints to %d", victim->max_hit );
break;
case MEDIT_MANA:
victim->max_mana = URANGE( 1, atoi( arg ), 30000 );
olc_log( d, "Changed mana to %d", victim->max_mana );
break;
case MEDIT_MOVE:
victim->max_move = URANGE( 1, atoi( arg ), 30000 );
olc_log( d, "Changed moves to %d", victim->max_move );
break;
case MEDIT_PRACTICE:
victim->practice = URANGE( 1, atoi( arg ), 300 );
olc_log( d, "Changed practives to %d", victim->practice );
break;
case MEDIT_PASSWORD:
if( get_trust( d->character ) < LEVEL_SUB_IMPLEM )
break;
if( strlen( arg ) < 5 )
{
send_to_char( "Password too short, try again: ", d->character );
return;
}
pwdnew = crypt( arg, victim->name );
for( p = pwdnew; *p != '\0'; p++ )
{
if( *p == '~' )
{
send_to_char( "Unacceptable choice, try again: ", d->character );
return;
}
}
DISPOSE( victim->pcdata->pwd );
victim->pcdata->pwd = str_dup( pwdnew );
if( IS_SET( sysdata.save_flags, SV_PASSCHG ) )
save_char_obj( victim );
olc_log( d, "Modified password" );
break;
case MEDIT_SAV1:
victim->saving_poison_death = URANGE( -30, atoi( arg ), 30 );
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->saving_poison_death = victim->saving_poison_death;
medit_disp_saving_menu( d );
olc_log( d, "Changed save_poison_death to %d", victim->saving_poison_death );
return;
case MEDIT_SAV2:
victim->saving_wand = URANGE( -30, atoi( arg ), 30 );
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->saving_wand = victim->saving_wand;
medit_disp_saving_menu( d );
olc_log( d, "Changed save_wand to %d", victim->saving_wand );
return;
case MEDIT_SAV3:
victim->saving_para_petri = URANGE( -30, atoi( arg ), 30 );
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->saving_para_petri = victim->saving_para_petri;
medit_disp_saving_menu( d );
olc_log( d, "Changed save_paralysis_petrification to %d", victim->saving_para_petri );
return;
case MEDIT_SAV4:
victim->saving_breath = URANGE( -30, atoi( arg ), 30 );
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->saving_breath = victim->saving_breath;
medit_disp_saving_menu( d );
olc_log( d, "Changed save_breath to %d", victim->saving_breath );
return;
case MEDIT_SAV5:
victim->saving_spell_staff = URANGE( -30, atoi( arg ), 30 );
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->saving_spell_staff = victim->saving_spell_staff;
medit_disp_saving_menu( d );
olc_log( d, "Changed save_spell_staff to %d", victim->saving_spell_staff );
return;
case MEDIT_STRENGTH:
victim->perm_str = URANGE( minattr, atoi( arg ), maxattr );
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->perm_str = victim->perm_str;
olc_log( d, "Changed strength to %d", victim->perm_str );
break;
case MEDIT_INTELLIGENCE:
victim->perm_int = URANGE( minattr, atoi( arg ), maxattr );
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->perm_int = victim->perm_int;
olc_log( d, "Changed intelligence to %d", victim->perm_int );
break;
case MEDIT_WISDOM:
victim->perm_wis = URANGE( minattr, atoi( arg ), maxattr );
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->perm_wis = victim->perm_wis;
olc_log( d, "Changed victim wisdom to %d", victim->perm_wis );
break;
case MEDIT_DEXTERITY:
victim->perm_dex = URANGE( minattr, atoi( arg ), maxattr );
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->perm_dex = victim->perm_dex;
olc_log( d, "Changed dexterity to %d", victim->perm_dex );
break;
case MEDIT_CONSTITUTION:
victim->perm_con = URANGE( minattr, atoi( arg ), maxattr );
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->perm_con = victim->perm_con;
olc_log( d, "Changed constitution to %d", victim->perm_con );
break;
case MEDIT_CHARISMA:
victim->perm_cha = URANGE( minattr, atoi( arg ), maxattr );
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->perm_cha = victim->perm_cha;
olc_log( d, "Changed charisma to %d", victim->perm_cha );
break;
case MEDIT_LUCK:
victim->perm_lck = URANGE( minattr, atoi( arg ), maxattr );
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->perm_lck = victim->perm_lck;
olc_log( d, "Changed luck to %d", victim->perm_lck );
break;
case MEDIT_SEX:
victim->sex = URANGE( 0, atoi( arg ), 2 );
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->sex = victim->sex;
olc_log( d, "Changed sex to %s", victim->sex == 1 ? "Male" : victim->sex == 2 ? "Female" : "Neutral" );
break;
case MEDIT_HITROLL:
victim->hitroll = URANGE( 0, atoi( arg ), 85 );
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->hitroll = victim->hitroll;
olc_log( d, "Changed hitroll to %d", victim->hitroll );
break;
case MEDIT_DAMROLL:
victim->damroll = URANGE( 0, atoi( arg ), 65 );
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->damroll = victim->damroll;
olc_log( d, "Changed damroll to %d", victim->damroll );
break;
case MEDIT_DAMNUMDIE:
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->damnodice = URANGE( 0, atoi( arg ), 100 );
olc_log( d, "Changed damnumdie to %d", victim->pIndexData->damnodice );
break;
case MEDIT_DAMSIZEDIE:
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->damsizedice = URANGE( 0, atoi( arg ), 100 );
olc_log( d, "Changed damsizedie to %d", victim->pIndexData->damsizedice );
break;
case MEDIT_DAMPLUS:
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->damplus = URANGE( 0, atoi( arg ), 1000 );
olc_log( d, "Changed damplus to %d", victim->pIndexData->damplus );
break;
case MEDIT_HITNUMDIE:
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->hitnodice = URANGE( 0, atoi( arg ), 32767 );
olc_log( d, "Changed hitnumdie to %d", victim->pIndexData->hitnodice );
break;
case MEDIT_HITSIZEDIE:
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->hitsizedice = URANGE( 0, atoi( arg ), 30000 );
olc_log( d, "Changed hitsizedie to %d", victim->pIndexData->hitsizedice );
break;
case MEDIT_HITPLUS:
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->hitplus = URANGE( 0, atoi( arg ), 30000 );
olc_log( d, "Changed hitplus to %d", victim->pIndexData->hitplus );
break;
case MEDIT_AC:
victim->armor = URANGE( -300, atoi( arg ), 300 );
olc_log( d, "Changed armor to %d", victim->armor );
break;
case MEDIT_GOLD:
victim->gold = UMAX( 0, atoi( arg ) );
olc_log( d, "Changed gold to %d", victim->gold );
break;
case MEDIT_POS:
victim->position = URANGE( 0, atoi( arg ), POS_STANDING );
olc_log( d, "Changed position to %d", victim->position );
break;
case MEDIT_DEFAULT_POS:
victim->defposition = URANGE( 0, atoi( arg ), POS_STANDING );
olc_log( d, "Changed default position to %d", victim->defposition );
break;
case MEDIT_MENTALSTATE:
victim->mental_state = URANGE( -100, atoi( arg ), 100 );
olc_log( d, "Changed mental state to %d", victim->mental_state );
break;
case MEDIT_EMOTIONAL:
victim->emotional_state = URANGE( -100, atoi( arg ), 100 );
olc_log( d, "Changed emotional state to %d", victim->emotional_state );
break;
case MEDIT_THIRST:
victim->pcdata->condition[COND_THIRST] = URANGE( 0, atoi( arg ), 200 );
olc_log( d, "Changed thirst to %d", victim->pcdata->condition[COND_THIRST] );
break;
case MEDIT_FULL:
victim->pcdata->condition[COND_FULL] = URANGE( 0, atoi( arg ), 200 );
olc_log( d, "Changed hunger to %d", victim->pcdata->condition[COND_FULL] );
break;
case MEDIT_DRUNK:
victim->pcdata->condition[COND_DRUNK] = URANGE( 0, atoi( arg ), 100 );
olc_log( d, "Changed drunkness to %d", victim->pcdata->condition[COND_DRUNK] );
break;
case MEDIT_FAVOR:
victim->pcdata->favor = URANGE( -2500, atoi( arg ), 2500 );
olc_log( d, "Changed favor to %d", victim->pcdata->favor );
break;
case MEDIT_SAVE_MENU:
number = atoi( arg );
switch ( number )
{
default:
send_to_char( "Invalid saving throw, try again: ", d->character );
return;
case 0:
break;
case 1:
OLC_MODE( d ) = MEDIT_SAV1;
send_to_char( "\n\rEnter throw (-30 to 30): ", d->character );
return;
case 2:
OLC_MODE( d ) = MEDIT_SAV2;
send_to_char( "\n\rEnter throw (-30 to 30): ", d->character );
return;
case 3:
OLC_MODE( d ) = MEDIT_SAV3;
send_to_char( "\n\rEnter throw (-30 to 30): ", d->character );
return;
case 4:
OLC_MODE( d ) = MEDIT_SAV4;
send_to_char( "\n\rEnter throw (-30 to 30): ", d->character );
return;
case 5:
OLC_MODE( d ) = MEDIT_SAV5;
send_to_char( "\n\rEnter throw (-30 to 30): ", d->character );
return;
}
/*
* If we reach here, we are going back to the main menu
*/
break;
case MEDIT_CLASS:
number = atoi( arg );
if( IS_NPC( victim ) )
{
victim->class = URANGE( 0, number, MAX_NPC_CLASS - 1 );
if( xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->class = victim->class;
break;
}
victim->class = URANGE( 0, number, MAX_CLASS );
olc_log( d, "Changed class to %s", npc_class[victim->class] );
break;
case MEDIT_RACE:
number = atoi( arg );
if( IS_NPC( victim ) )
{
victim->race = URANGE( 0, number, MAX_NPC_RACE - 1 );
if( xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->race = victim->race;
break;
}
victim->race = URANGE( 0, number, MAX_RACE - 1 );
olc_log( d, "Changed race to %s", npc_race[victim->race] );
break;
case MEDIT_PARTS:
number = atoi( arg );
if( number < 0 || number > 29 )
{
send_to_char( "Invalid part, try again: ", d->character );
return;
}
else
{
if( number == 0 )
break;
else
{
number -= 1;
TOGGLE_BIT( victim->xflags, 1 << number );
}
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->xflags = victim->xflags;
}
olc_log( d, "%s the body part %s", IS_SET( victim->xflags, 1 << ( number - 1 ) ) ? "Added" : "Removed",
part_flags[number] );
medit_disp_parts( d );
return;
case MEDIT_ATTACK:
if( is_number( arg ) )
{
number = atoi( arg );
if( number == 0 )
break;
number -= 1; /* offset */
if( number < 0 || number > MAX_ATTACK_TYPE + 1 )
{
send_to_char( "Invalid flag, try again: ", d->character );
return;
}
else
xTOGGLE_BIT( victim->attacks, number );
}
else
{
while( arg[0] != '\0' )
{
arg = one_argument( arg, arg1 );
number = get_attackflag( arg1 );
if( number < 0 )
{
send_to_char( "Invalid flag, try again: ", d->character );
return;
}
xTOGGLE_BIT( victim->attacks, number );
}
}
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->attacks = victim->attacks;
medit_disp_attack_menu( d );
olc_log( d, "%s the attack %s", xIS_SET( victim->attacks, number ) ? "Added" : "Removed", attack_flags[number] );
return;
case MEDIT_DEFENSE:
if( is_number( arg ) )
{
number = atoi( arg );
if( number == 0 )
break;
number -= 1; /* offset */
if( number < 0 || number > MAX_DEFENSE_TYPE + 1 )
{
send_to_char( "Invalid flag, try again: ", d->character );
return;
}
else
xTOGGLE_BIT( victim->defenses, number );
}
else
{
while( arg[0] != '\0' )
{
arg = one_argument( arg, arg1 );
number = get_defenseflag( arg1 );
if( number < 0 )
{
send_to_char( "Invalid flag, try again: ", d->character );
return;
}
xTOGGLE_BIT( victim->defenses, number );
}
}
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->defenses = victim->defenses;
medit_disp_defense_menu( d );
olc_log( d, "%s the attack %s", xIS_SET( victim->defenses, number ) ? "Added" : "Removed", defense_flags[number] );
return;
case MEDIT_LEVEL:
victim->level = URANGE( 1, atoi( arg ), MAX_LEVEL - 1 );
olc_log( d, "Changed level to %d", victim->level );
break;
case MEDIT_ALIGNMENT:
victim->alignment = URANGE( -1000, atoi( arg ), 1000 );
olc_log( d, "Changed alignment to %d", victim->alignment );
break;
case MEDIT_RESISTANT:
if( is_number( arg ) )
{
number = atoi( arg );
if( number == 0 )
break;
number -= 1; /* offset */
if( number < 0 || number > MAX_RIS_FLAG + 1 )
{
send_to_char( "Invalid flag, try again: ", d->character );
return;
}
TOGGLE_BIT( victim->resistant, 1 << number );
}
else
{
while( arg[0] != '\0' )
{
arg = one_argument( arg, arg1 );
number = get_risflag( arg1 );
if( number < 0 )
{
send_to_char( "Invalid flag, try again: ", d->character );
return;
}
TOGGLE_BIT( victim->resistant, 1 << number );
}
}
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->resistant = victim->resistant;
medit_disp_ris( d );
olc_log( d, "%s the resistant %s", IS_SET( victim->resistant, 1 << number ) ? "Added" : "Removed",
ris_flags[number] );
return;
case MEDIT_IMMUNE:
if( is_number( arg ) )
{
number = atoi( arg );
if( number == 0 )
break;
number -= 1;
if( number < 0 || number > MAX_RIS_FLAG + 1 )
{
send_to_char( "Invalid flag, try again: ", d->character );
return;
}
TOGGLE_BIT( victim->immune, 1 << number );
}
else
{
while( arg[0] != '\0' )
{
arg = one_argument( arg, arg1 );
number = get_risflag( arg1 );
if( number < 0 )
{
send_to_char( "Invalid flag, try again: ", d->character );
return;
}
TOGGLE_BIT( victim->immune, 1 << number );
}
}
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->immune = victim->immune;
medit_disp_ris( d );
olc_log( d, "%s the immune %s", IS_SET( victim->immune, 1 << number ) ? "Added" : "Removed", ris_flags[number] );
return;
case MEDIT_SUSCEPTIBLE:
if( is_number( arg ) )
{
number = atoi( arg );
if( number == 0 )
break;
number -= 1;
if( number < 0 || number > MAX_RIS_FLAG + 1 )
{
send_to_char( "Invalid flag, try again: ", d->character );
return;
}
TOGGLE_BIT( victim->susceptible, 1 << number );
}
else
{
while( arg[0] != '\0' )
{
arg = one_argument( arg, arg1 );
number = get_risflag( arg1 );
if( number < 0 )
{
send_to_char( "Invalid flag, try again: ", d->character );
return;
}
TOGGLE_BIT( victim->susceptible, 1 << number );
}
}
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->susceptible = victim->susceptible;
medit_disp_ris( d );
olc_log( d, "%s the suscept %s", IS_SET( victim->susceptible, 1 << number ) ? "Added" : "Removed",
ris_flags[number] );
return;
case MEDIT_SPEC:
number = atoi( arg );
switch ( number )
{
case 0:
victim->spec_fun = NULL;
break;
case 1:
victim->spec_fun = spec_lookup( "spec_breath_any" );
break;
case 2:
victim->spec_fun = spec_lookup( "spec_breath_acid" );
break;
case 3:
victim->spec_fun = spec_lookup( "spec_breath_fire" );
break;
case 4:
victim->spec_fun = spec_lookup( "spec_breath_frost" );
break;
case 5:
victim->spec_fun = spec_lookup( "spec_breath_gas" );
break;
case 6:
victim->spec_fun = spec_lookup( "spec_breath_lightning" );
break;
case 7:
victim->spec_fun = spec_lookup( "spec_cast_adept" );
break;
case 8:
victim->spec_fun = spec_lookup( "spec_cast_cleric" );
break;
case 9:
victim->spec_fun = spec_lookup( "spec_cast_mage" );
break;
case 10:
victim->spec_fun = spec_lookup( "spec_cast_undead" );
break;
case 11:
victim->spec_fun = spec_lookup( "spec_executioner" );
break;
case 12:
victim->spec_fun = spec_lookup( "spec_fido" );
break;
case 13:
victim->spec_fun = spec_lookup( "spec_guard" );
break;
case 14:
victim->spec_fun = spec_lookup( "spec_janitor" );
break;
case 15:
victim->spec_fun = spec_lookup( "spec_poison" );
break;
case 16:
victim->spec_fun = spec_lookup( "spec_thief" );
break;
case 17:
victim->spec_fun = spec_lookup( "spec_gen_mob" );
break;
}
if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) )
victim->pIndexData->spec_fun = victim->spec_fun;
olc_log( d, "Changes spec_func to %s", lookup_spec( victim->spec_fun ) );
break;
case MEDIT_DEITY:
number = atoi( arg );
if( number < 0 || number > olc_top_deity + 1 )
{
send_to_char( "Invalid deity, try again: ", d->character );
return;
}
if( number == 0 )
{
STRFREE( victim->pcdata->deity_name );
victim->pcdata->deity_name = STRALLOC( "" );
victim->pcdata->deity = NULL;
break;
}
number -= 1;
deity = get_deity( olc_deity_list[number] );
if( !deity )
{
bug( "Unknown deity linked into olc_deity_list.", 0 );
break;
}
STRFREE( victim->pcdata->deity_name );
victim->pcdata->deity_name = QUICKLINK( deity->name );
victim->pcdata->deity = deity;
olc_log( d, "Deity changed to %s", deity->name );
break;
case MEDIT_CLAN:
if( get_trust( d->character ) < LEVEL_GOD )
break;
number = atoi( arg );
if( number < 0 || number > olc_top_order + 1 )
{
send_to_char( "Invalid choice, try again: ", d->character );
return;
}
if( number == 0 )
{
if( !IS_IMMORTAL( victim ) )
{
--victim->pcdata->clan->members;
save_clan( victim->pcdata->clan );
}
STRFREE( victim->pcdata->clan_name );
victim->pcdata->clan_name = STRALLOC( "" );
victim->pcdata->clan = NULL;
break;
}
clan = get_clan( olc_clan_list[number - 1] );
if( !clan )
{
bug( "Non-existant clan linked into olc_clan_list.", 0 );
break;
}
if( victim->pcdata->clan != NULL && !IS_IMMORTAL( victim ) )
{
--victim->pcdata->clan->members;
save_clan( victim->pcdata->clan );
}
STRFREE( victim->pcdata->clan_name );
victim->pcdata->clan_name = QUICKLINK( clan->name );
victim->pcdata->clan = clan;
if( !IS_IMMORTAL( victim ) )
{
++victim->pcdata->clan->members;
save_clan( victim->pcdata->clan );
}
olc_log( d, "Clan changed to %s", clan->name );
break;
case MEDIT_COUNCIL:
if( get_trust( d->character ) < LEVEL_SUB_IMPLEM )
break;
number = atoi( arg );
if( number < 0 || number > olc_top_council )
{
send_to_char( "Invalid council, try again: ", d->character );
return;
}
if( number == 0 )
{
STRFREE( victim->pcdata->council_name );
victim->pcdata->council_name = STRALLOC( "" );
victim->pcdata->council = NULL;
break;
}
number -= 1; /* Offset cause 0 is first element but 0 is None, soo */
council = get_council( olc_council_list[number] );
if( !council )
{
bug( "Unknown council linked into olc_council_list.", 0 );
break;
}
STRFREE( victim->pcdata->council_name );
victim->pcdata->council_name = QUICKLINK( council->name );
victim->pcdata->council = council;
olc_log( d, "Council changed to %s", council->name );
break;
/*-------------------------------------------------------------------*/
default:
/*
* . We should never get here .
*/
bug( "OLC: medit_parse(): Reached default case!", 0 );
cleanup_olc( d );
return;;
}
/*-------------------------------------------------------------------*/
/*. END OF CASE
If we get here, we have probably changed something, and now want to
return to main menu. Use OLC_CHANGE as a 'has changed' flag .*/
OLC_CHANGE( d ) = TRUE;
medit_disp_menu( d );
}
/*. End of medit_parse() .*/