#include <ctype.h> #include <stdio.h> #include <string.h> #include "mud.h" #define MAX_BUF_LINES 48 extern int top_affect; extern int top_ed; extern bool fBootDb; extern OBJ_INDEX_DATA *obj_index_hash[MAX_KEY_HASH]; extern MOB_INDEX_DATA *mob_index_hash[MAX_KEY_HASH]; extern ROOM_INDEX_DATA *room_index_hash[MAX_KEY_HASH]; bool can_rmodify( const CHAR_DATA * ch, const ROOM_INDEX_DATA * room ) { if( IS_NPC( ch ) ) return FALSE; if( IS_IMMORTAL( ch ) ) return TRUE; return FALSE; } bool can_omodify( const CHAR_DATA * ch, const OBJ_DATA * obj ) { if( IS_NPC( ch ) ) return FALSE; if( IS_IMMORTAL( ch ) ) return TRUE; return FALSE; } bool can_oedit( const CHAR_DATA * ch, const OBJ_INDEX_DATA * obj ) { if( IS_NPC( ch ) ) return FALSE; if( IS_IMMORTAL( ch ) ) return TRUE; return FALSE; } bool can_mmodify( const CHAR_DATA * ch, const CHAR_DATA * mob ) { if( mob == ch ) return TRUE; if( !IS_NPC( mob ) ) { if( IS_IMMORTAL( ch ) && get_trust( ch ) > get_trust( mob ) ) return TRUE; else send_to_char( "You can't do that.\r\n", ch ); return FALSE; } if( IS_NPC( ch ) ) return FALSE; if( IS_IMMORTAL( ch ) ) return TRUE; return FALSE; } bool can_medit( const CHAR_DATA * ch, const MOB_INDEX_DATA * mob ) { if( IS_NPC( ch ) ) return FALSE; if( IS_IMMORTAL( ch ) ) return TRUE; return FALSE; } void start_editing( CHAR_DATA * ch, char *data ) { EDITOR_DATA *edit; short lines, size, lpos; char c; if( !ch->desc ) { bug( "Fatal: start_editing: no desc", 0 ); return; } if( ch->substate == SUB_RESTRICTED ) bug( "NOT GOOD: start_editing: ch->substate == SUB_RESTRICTED", 0 ); set_char_color( AT_GREEN, ch ); send_to_char ( "Begin entering your text (/? =help /s =save /c =clear /l =list /f =format)\r\n", ch ); send_to_char ( "--------------------------------------------------------------------------\r\n> ", ch ); if( ch->editor ) stop_editing( ch ); CREATE( edit, EDITOR_DATA, 1 ); edit->numlines = 0; edit->on_line = 0; edit->size = 0; size = 0; lpos = 0; lines = 0; if( !data ) bug( "editor: data is NULL!\r\n", 0 ); else for( ;; ) { c = data[size++]; if( c == '\0' ) { edit->line[lines][lpos] = '\0'; break; } else if( c == '\r' ); else if( c == '\n' || lpos > 78 ) { edit->line[lines][lpos] = '\0'; lines++; lpos = 0; } else edit->line[lines][lpos++] = c; if( lines >= 49 || size > 4096 ) { edit->line[lines][lpos] = '\0'; break; } } edit->numlines = lines; edit->size = size; edit->on_line = lines; ch->editor = edit; ch->desc->connected = CON_EDITING; } char *copy_buffer( const CHAR_DATA * ch ) { char buf[MAX_STRING_LENGTH]; char tmp[100]; short x, len; if( !ch ) { bug( "copy_buffer: null ch", 0 ); return STRALLOC( "" ); } if( !ch->editor ) { bug( "copy_buffer: null editor", 0 ); return STRALLOC( "" ); } buf[0] = '\0'; for( x = 0; x < ch->editor->numlines; x++ ) { strcpy( tmp, ch->editor->line[x] ); smush_tilde( tmp ); len = strlen( tmp ); if( tmp[len - 1] == '~' ) tmp[len - 1] = '\0'; else strcat( tmp, "\n" ); strcat( buf, tmp ); } return STRALLOC( buf ); } void stop_editing( CHAR_DATA * ch ) { set_char_color( AT_PLAIN, ch ); DISPOSE( ch->editor ); ch->editor = NULL; send_to_char( "Done.\r\n", ch ); ch->dest_buf = NULL; ch->spare_ptr = NULL; ch->substate = SUB_NONE; if( !ch->desc ) { bug( "Fatal: stop_editing: no desc", 0 ); return; } ch->desc->connected = CON_PLAYING; } void do_goto( CHAR_DATA * ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; ROOM_INDEX_DATA *location; CHAR_DATA *fch; CHAR_DATA *fch_next; ROOM_INDEX_DATA *in_room; one_argument( argument, arg ); if( arg[0] == '\0' ) { send_to_char( "Goto where?\r\n", ch ); return; } if( ( location = find_location( ch, arg ) ) == NULL ) { send_to_char( "You cannot find that...\r\n", ch ); return; } in_room = ch->in_room; if( ch->fighting ) stop_fighting( ch, TRUE ); if( !IS_SET( ch->act, PLR_WIZINVIS ) ) { if( ch->pcdata && ch->pcdata->bamfout[0] != '\0' ) { act( AT_IMMORT, "$T", ch, NULL, ch->pcdata->bamfout, TO_ROOM ); } else { act( AT_IMMORT, "$n $T", ch, NULL, "leaves in a swirl of the force.", TO_ROOM ); } } ch->regoto = ch->in_room->vnum; char_from_room( ch ); if( ch->mount ) { char_from_room( ch->mount ); char_to_room( ch->mount, location ); } char_to_room( ch, location ); if( !IS_SET( ch->act, PLR_WIZINVIS ) ) { if( ch->pcdata && ch->pcdata->bamfin[0] != '\0' ) act( AT_IMMORT, "$T", ch, NULL, ch->pcdata->bamfin, TO_ROOM ); else act( AT_IMMORT, "$n $T", ch, NULL, "enters in a swirl of the Force.", TO_ROOM ); } do_look( ch, STRLIT_AUTO ); if( ch->in_room == in_room ) return; for( fch = in_room->first_person; fch; fch = fch_next ) { fch_next = fch->next_in_room; if( fch->master == ch && IS_IMMORTAL( fch ) ) { act( AT_ACTION, "You follow $N.", fch, NULL, ch, TO_CHAR ); do_goto( fch, argument ); } } } void do_mset( CHAR_DATA * ch, char *argument ) { char arg1[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; char arg3[MAX_INPUT_LENGTH]; char buf[MAX_STRING_LENGTH]; char outbuf[MAX_STRING_LENGTH]; int num, size, plus; char char1, char2; CHAR_DATA *victim; int value; int minattr, maxattr; bool lockvictim; if( IS_NPC( ch ) ) { send_to_char( "Mob's can't mset\r\n", ch ); return; } if( !ch->desc ) { send_to_char( "You have no descriptor\r\n", ch ); return; } switch ( ch->substate ) { default: break; case SUB_MOB_DESC: if( !ch->dest_buf ) { send_to_char( "Fatal error: report to Thoric.\r\n", ch ); bug( "do_mset: sub_mob_desc: NULL ch->dest_buf", 0 ); ch->substate = SUB_NONE; return; } victim = ( CHAR_DATA * ) ch->dest_buf; if( char_died( victim ) ) { send_to_char( "Your victim died!\r\n", ch ); stop_editing( ch ); return; } STRFREE( victim->description ); victim->description = copy_buffer( ch ); if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) { STRFREE( victim->pIndexData->description ); victim->pIndexData->description = QUICKLINK( victim->description ); } stop_editing( ch ); ch->substate = ch->tempnum; return; } victim = NULL; lockvictim = FALSE; smash_tilde( argument ); if( victim ) { lockvictim = TRUE; strcpy( arg1, victim->name ); argument = one_argument( argument, arg2 ); strcpy( arg3, argument ); } else { lockvictim = FALSE; argument = one_argument( argument, arg1 ); argument = one_argument( argument, arg2 ); strcpy( arg3, argument ); } if( arg1[0] == '\0' || arg2[0] == '\0' || !str_cmp( arg1, "?" ) ) { send_to_char( "Syntax: mset <victim> <field> <value>\r\n", ch ); send_to_char( "\r\n", ch ); send_to_char( "Field being one of:\r\n", ch ); send_to_char( " str int wis dex con cha lck frc sex\r\n", ch ); send_to_char( " credits hp force move align\r\n", ch ); send_to_char( " hitroll damroll armor affected level\r\n", ch ); send_to_char( " thirst drunk full blood flags pos defpos\r\n", ch ); send_to_char( " sav1 sav2 sav4 sav4 sav5 (see SAVINGTHROWS)\r\n", ch ); send_to_char( " resistant immune susceptible (see RIS)\r\n", ch ); send_to_char( " attack defense numattacks\r\n", ch ); send_to_char( " name short long description title spec spec2\r\n", ch ); send_to_char( " clan vip wanted\r\n", ch ); send_to_char( "\r\n", ch ); send_to_char( "For editing index/prototype mobiles:\r\n", ch ); send_to_char( " hitnumdie hitsizedie hitplus (hit points)\r\n", ch ); send_to_char( " damnumdie damsizedie damplus (damage roll)\r\n", ch ); send_to_char( "To toggle area flag: aloaded\r\n", ch ); return; } if( !victim ) { if( ( victim = get_char_world( ch, arg1 ) ) == NULL ) { send_to_char( "No one like that in all the realms.\r\n", ch ); return; } } if( get_trust( ch ) < get_trust( victim ) && !IS_NPC( victim ) ) { send_to_char( "You can't do that!\r\n", ch ); ch->dest_buf = NULL; return; } if( lockvictim ) ch->dest_buf = victim; if( IS_NPC( victim ) ) { minattr = 1; maxattr = 25; } else { minattr = 3; maxattr = 18; } value = is_number( arg3 ) ? atoi( arg3 ) : -1; if( atoi( arg3 ) < -1 && value == -1 ) value = atoi( arg3 ); if( !str_cmp( arg2, "str" ) ) { if( !can_mmodify( ch, victim ) ) return; if( value < minattr || value > maxattr ) { ch_printf( ch, "Strength range is %d to %d.\r\n", minattr, maxattr ); return; } victim->perm_str = value; if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->perm_str = value; return; } if( !str_cmp( arg2, "int" ) ) { if( !can_mmodify( ch, victim ) ) return; if( value < minattr || value > maxattr ) { ch_printf( ch, "Intelligence range is %d to %d.\r\n", minattr, maxattr ); return; } victim->perm_int = value; if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->perm_int = value; return; } if( !str_cmp( arg2, "wis" ) ) { if( !can_mmodify( ch, victim ) ) return; if( value < minattr || value > maxattr ) { ch_printf( ch, "Wisdom range is %d to %d.\r\n", minattr, maxattr ); return; } victim->perm_wis = value; if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->perm_wis = value; return; } if( !str_cmp( arg2, "dex" ) ) { if( !can_mmodify( ch, victim ) ) return; if( value < minattr || value > maxattr ) { ch_printf( ch, "Dexterity range is %d to %d.\r\n", minattr, maxattr ); return; } victim->perm_dex = value; if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->perm_dex = value; return; } if( !str_cmp( arg2, "con" ) ) { if( !can_mmodify( ch, victim ) ) return; if( value < minattr || value > maxattr ) { ch_printf( ch, "Constitution range is %d to %d.\r\n", minattr, maxattr ); return; } victim->perm_con = value; if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->perm_con = value; return; } if( !str_cmp( arg2, "cha" ) ) { if( !can_mmodify( ch, victim ) ) return; if( value < minattr || value > maxattr ) { ch_printf( ch, "Charisma range is %d to %d.\r\n", minattr, maxattr ); return; } victim->perm_cha = value; if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->perm_cha = value; return; } if( !str_cmp( arg2, "lck" ) ) { if( !can_mmodify( ch, victim ) ) return; if( value < minattr || value > maxattr ) { ch_printf( ch, "Luck range is %d to %d.\r\n", minattr, maxattr ); return; } victim->perm_lck = value; if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->perm_lck = value; return; } if( !str_cmp( arg2, "frc" ) ) { if( !can_mmodify( ch, victim ) ) return; if( value < 0 || value > 20 ) { ch_printf( ch, "Frc range is %d to %d.\r\n", minattr, maxattr ); return; } victim->perm_frc = value; if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->perm_frc = value; return; } if( !str_cmp( arg2, "sav1" ) ) { if( !can_mmodify( ch, victim ) ) return; if( value < -30 || value > 30 ) { send_to_char( "Saving throw range vs poison is -30 to 30.\r\n", ch ); return; } victim->saving_poison_death = value; if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->saving_poison_death = value; return; } if( !str_cmp( arg2, "sav2" ) ) { if( !can_mmodify( ch, victim ) ) return; if( value < -30 || value > 30 ) { send_to_char( "Saving throw range vs wands is -30 to 30.\r\n", ch ); return; } victim->saving_wand = value; if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->saving_wand = value; return; } if( !str_cmp( arg2, "sav3" ) ) { if( !can_mmodify( ch, victim ) ) return; if( value < -30 || value > 30 ) { send_to_char( "Saving throw range vs para is -30 to 30.\r\n", ch ); return; } victim->saving_para_petri = value; if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->saving_para_petri = value; return; } if( !str_cmp( arg2, "sav4" ) ) { if( !can_mmodify( ch, victim ) ) return; if( value < -30 || value > 30 ) { send_to_char( "Saving throw range vs bad breath is -30 to 30.\r\n", ch ); return; } victim->saving_breath = value; if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->saving_breath = value; return; } if( !str_cmp( arg2, "sav5" ) ) { if( !can_mmodify( ch, victim ) ) return; if( value < -30 || value > 30 ) { send_to_char ( "Saving throw range vs force powers is -30 to 30.\r\n", ch ); return; } victim->saving_spell_staff = value; if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->saving_spell_staff = value; return; } if( !str_cmp( arg2, "sex" ) ) { if( !can_mmodify( ch, victim ) ) return; if( value < 0 || value > 2 ) { send_to_char( "Sex range is 0 to 2.\r\n", ch ); return; } victim->sex = value; if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->sex = value; return; } if( !str_cmp( arg2, "armor" ) ) { if( !can_mmodify( ch, victim ) ) return; if( value < -300 || value > 300 ) { send_to_char( "AC range is -300 to 300.\r\n", ch ); return; } victim->armor = value; if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->ac = value; return; } if( !str_cmp( arg2, "numattacks" ) ) { if( !can_mmodify( ch, victim ) ) return; if( !IS_NPC( victim ) ) { send_to_char( "Not on PC's.\r\n", ch ); return; } if( value < 0 || value > 20 ) { send_to_char( "Attacks range is 0 to 20.\r\n", ch ); return; } victim->numattacks = value; if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->numattacks = value; return; } if( !str_cmp( arg2, "credits" ) ) { if( !can_mmodify( ch, victim ) ) return; victim->gold = value; if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->gold = value; return; } if( !str_cmp( arg2, "hitroll" ) ) { if( !can_mmodify( ch, victim ) ) return; victim->hitroll = URANGE( 0, value, 85 ); if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->hitroll = victim->hitroll; return; } if( !str_cmp( arg2, "damroll" ) ) { if( !can_mmodify( ch, victim ) ) return; victim->damroll = URANGE( 0, value, 65 ); if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->damroll = victim->damroll; return; } if( !str_cmp( arg2, "hp" ) ) { if( !can_mmodify( ch, victim ) ) return; if( value < 1 || value > 32700 ) { send_to_char( "Hp range is 1 to 32,700 hit points.\r\n", ch ); return; } victim->max_hit = value; return; } if( !str_cmp( arg2, "force" ) ) { if( !can_mmodify( ch, victim ) ) return; if( value < 0 || value > 30000 ) { send_to_char( "Force range is 0 to 30,000 force points.\r\n", ch ); return; } victim->max_mana = value; return; } if( !str_cmp( arg2, "move" ) ) { if( !can_mmodify( ch, victim ) ) return; if( value < 0 || value > 30000 ) { send_to_char( "Move range is 0 to 30,000 move points.\r\n", ch ); return; } victim->max_move = value; return; } if( !str_cmp( arg2, "align" ) ) { if( !can_mmodify( ch, victim ) ) return; if( value < -1000 || value > 1000 ) { send_to_char( "Alignment range is -1000 to 1000.\r\n", ch ); return; } victim->alignment = value; if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->alignment = value; return; } if( !str_cmp( arg2, "password" ) ) { char *pwdnew; char *p; if( IS_NPC( victim ) ) { send_to_char( "Mobs don't have passwords.\r\n", ch ); return; } if( strlen( arg3 ) < 5 ) { send_to_char ( "New password must be at least five characters long.\r\n", ch ); return; } /* * No tilde allowed because of player file format. */ pwdnew = encode_string( arg3 ); for( p = pwdnew; *p != '\0'; p++ ) { if( *p == '~' ) { send_to_char( "New password not acceptable, try again.\r\n", ch ); return; } } DISPOSE( victim->pcdata->pwd ); victim->pcdata->pwd = str_dup( pwdnew ); if( IS_SET( sysdata.save_flags, SV_PASSCHG ) ) save_char_obj( victim ); send_to_char( "Ok.\r\n", ch ); ch_printf( victim, "Your password has been changed by %s.\r\n", ch->name ); return; } if( !str_cmp( arg2, "mentalstate" ) ) { if( value < -100 || value > 100 ) { send_to_char( "Value must be in range -100 to +100.\r\n", ch ); return; } victim->mental_state = value; return; } if( !str_cmp( arg2, "emotion" ) ) { if( value < -100 || value > 100 ) { send_to_char( "Value must be in range -100 to +100.\r\n", ch ); return; } victim->emotional_state = value; return; } if( !str_cmp( arg2, "thirst" ) ) { if( IS_NPC( victim ) ) { send_to_char( "Not on NPC's.\r\n", ch ); return; } if( value < 0 || value > 100 ) { send_to_char( "Thirst range is 0 to 100.\r\n", ch ); return; } victim->pcdata->condition[COND_THIRST] = value; return; } if( !str_cmp( arg2, "drunk" ) ) { if( IS_NPC( victim ) ) { send_to_char( "Not on NPC's.\r\n", ch ); return; } if( value < 0 || value > 100 ) { send_to_char( "Drunk range is 0 to 100.\r\n", ch ); return; } victim->pcdata->condition[COND_DRUNK] = value; return; } if( !str_cmp( arg2, "full" ) ) { if( IS_NPC( victim ) ) { send_to_char( "Not on NPC's.\r\n", ch ); return; } if( value < 0 || value > 100 ) { send_to_char( "Full range is 0 to 100.\r\n", ch ); return; } victim->pcdata->condition[COND_FULL] = value; return; } if( !str_cmp( arg2, "name" ) ) { if( !can_mmodify( ch, victim ) ) return; if( *arg3 == '\0' ) { ch_printf( ch, "Blank name not accepted.\r\n" ); return; } STRFREE( victim->name ); victim->name = STRALLOC( arg3 ); if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) { STRFREE( victim->pIndexData->player_name ); victim->pIndexData->player_name = QUICKLINK( victim->name ); } return; } if( !str_cmp( arg2, "minsnoop" ) ) { if( IS_NPC( victim ) ) { send_to_char( "Not on NPC's.\r\n", ch ); return; } if( victim->pcdata ) { victim->pcdata->min_snoop = value; return; } } if( !str_cmp( arg2, "clan" ) ) { CLAN_DATA *clan; if( IS_NPC( victim ) ) { send_to_char( "Not on NPC's.\r\n", ch ); return; } if( arg3[0] == '\0' ) { /* * Crash bug fix, oops guess I should have caught this one :) * * But it was early in the morning :P --Shaddai */ if( victim->pcdata->clan == NULL ) return; /* * Added a check on immortals so immortals don't take up * * any membership space. --Shaddai */ if( !IS_IMMORTAL( victim ) ) { --victim->pcdata->clan->members; if( victim->pcdata->clan->members < 0 ) victim->pcdata->clan->members = 0; save_clan( victim->pcdata->clan ); } victim->pcdata->clan = NULL; return; } clan = get_clan( arg3 ); if( !clan ) { send_to_char( "No such clan.\n\r", ch ); return; } if( victim->pcdata->clan != NULL && !IS_IMMORTAL( victim ) ) { --victim->pcdata->clan->members; if( victim->pcdata->clan->members < 0 ) victim->pcdata->clan->members = 0; save_clan( victim->pcdata->clan ); } victim->pcdata->clan = clan; if( !IS_IMMORTAL( victim ) ) { ++victim->pcdata->clan->members; save_clan( victim->pcdata->clan ); } send_to_char( "Done.\n\r", ch ); return; } if( !str_cmp( arg2, "short" ) ) { STRFREE( victim->short_descr ); victim->short_descr = STRALLOC( arg3 ); if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) { STRFREE( victim->pIndexData->short_descr ); victim->pIndexData->short_descr = QUICKLINK( victim->short_descr ); } return; } if( !str_cmp( arg2, "long" ) ) { STRFREE( victim->long_descr ); strcpy( buf, arg3 ); strcat( buf, "\r\n" ); victim->long_descr = STRALLOC( buf ); if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) { STRFREE( victim->pIndexData->long_descr ); victim->pIndexData->long_descr = QUICKLINK( victim->long_descr ); } return; } if( !str_cmp( arg2, "description" ) ) { if( arg3[0] ) { STRFREE( victim->description ); victim->description = STRALLOC( arg3 ); if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) { STRFREE( victim->pIndexData->description ); victim->pIndexData->description = QUICKLINK( victim->description ); } return; } CHECK_SUBRESTRICTED( ch ); ch->tempnum = SUB_NONE; ch->substate = SUB_MOB_DESC; ch->dest_buf = victim; start_editing( ch, victim->description ); return; } if( !str_cmp( arg2, "title" ) ) { if( IS_NPC( victim ) ) { send_to_char( "Not on NPC's.\r\n", ch ); return; } set_title( victim, arg3 ); return; } if( !str_cmp( arg2, "spec" ) ) { if( !can_mmodify( ch, victim ) ) return; if( !IS_NPC( victim ) ) { send_to_char( "Not on PC's.\r\n", ch ); return; } if( !str_cmp( arg3, "none" ) ) { victim->spec_fun = NULL; send_to_char( "Special function removed.\r\n", ch ); if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->spec_fun = victim->spec_fun; return; } if( ( victim->spec_fun = spec_lookup( arg3 ) ) == 0 ) { send_to_char( "No such spec fun.\r\n", ch ); return; } if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->spec_fun = victim->spec_fun; return; } if( !str_cmp( arg2, "spec2" ) ) { if( !can_mmodify( ch, victim ) ) return; if( !IS_NPC( victim ) ) { send_to_char( "Not on PC's.\r\n", ch ); return; } if( !str_cmp( arg3, "none" ) ) { victim->spec_2 = NULL; send_to_char( "Special function removed.\r\n", ch ); if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->spec_2 = victim->spec_2; return; } if( ( victim->spec_2 = spec_lookup( arg3 ) ) == 0 ) { send_to_char( "No such spec fun.\r\n", ch ); return; } if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->spec_2 = victim->spec_2; return; } if( !str_cmp( arg2, "flags" ) ) { bool pcflag = FALSE; if( !can_mmodify( ch, victim ) ) return; if( !argument || argument[0] == '\0' ) { send_to_char( "Usage: mset <victim> flags <flag> [flag]...\r\n", ch ); send_to_char ( "sentinal, scavenger, aggressive, stayarea, wimpy, practice, immortal,\r\n", ch ); send_to_char ( "deadly, mountable, guardian, nokill, scholar, noassist, droid, nocorpse,\r\n", ch ); return; } while( argument[0] != '\0' ) { pcflag = FALSE; argument = one_argument( argument, arg3 ); value = IS_NPC( victim ) ? get_actflag( arg3 ) : get_plrflag( arg3 ); if( !IS_NPC( victim ) && ( value < 0 || value > 31 ) ) { pcflag = TRUE; value = get_pcflag( arg3 ); } if( value < 0 || value > 31 ) { ch_printf( ch, "Unknown flag: %s\r\n", arg3 ); } else { if( 1 << value == ACT_IS_NPC ) { send_to_char ( "If that could be changed, it would cause many problems.\r\n", ch ); } else if( IS_NPC( victim ) && 1 << value == ACT_POLYMORPHED ) { send_to_char( "Changing that would be a _bad_ thing.\r\n", ch ); } else { if( pcflag ) { TOGGLE_BIT( victim->pcdata->flags, 1 << value ); } else { TOGGLE_BIT( victim->act, 1 << value ); /* NPC check added by Gorog */ if( IS_NPC( victim ) && ( 1 << value == ACT_PROTOTYPE ) ) victim->pIndexData->act = victim->act; } } } } if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->act = victim->act; return; } if( !str_cmp( arg2, "affected" ) ) { if( !can_mmodify( ch, victim ) ) return; if( !argument || argument[0] == '\0' ) { send_to_char( "Usage: mset <victim> affected <flag> [flag]...\r\n", ch ); return; } while( argument[0] != '\0' ) { argument = one_argument( argument, arg3 ); value = get_aflag( arg3 ); if( value < 0 || value > 31 ) ch_printf( ch, "Unknown flag: %s\r\n", arg3 ); else TOGGLE_BIT( victim->affected_by, 1 << value ); } if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->affected_by = victim->affected_by; return; } /* * save some more finger-leather for setting RIS stuff */ if( !str_cmp( arg2, "r" ) ) { if( !can_mmodify( ch, victim ) ) return; sprintf( outbuf, "%s resistant %s", arg1, arg3 ); do_mset( ch, outbuf ); return; } if( !str_cmp( arg2, "i" ) ) { if( !can_mmodify( ch, victim ) ) return; sprintf( outbuf, "%s immune %s", arg1, arg3 ); do_mset( ch, outbuf ); return; } if( !str_cmp( arg2, "s" ) ) { if( !can_mmodify( ch, victim ) ) return; sprintf( outbuf, "%s susceptible %s", arg1, arg3 ); do_mset( ch, outbuf ); return; } if( !str_cmp( arg2, "ri" ) ) { if( !can_mmodify( ch, victim ) ) return; sprintf( outbuf, "%s resistant %s", arg1, arg3 ); do_mset( ch, outbuf ); sprintf( outbuf, "%s immune %s", arg1, arg3 ); do_mset( ch, outbuf ); return; } if( !str_cmp( arg2, "rs" ) ) { if( !can_mmodify( ch, victim ) ) return; sprintf( outbuf, "%s resistant %s", arg1, arg3 ); do_mset( ch, outbuf ); sprintf( outbuf, "%s susceptible %s", arg1, arg3 ); do_mset( ch, outbuf ); return; } if( !str_cmp( arg2, "is" ) ) { if( !can_mmodify( ch, victim ) ) return; sprintf( outbuf, "%s immune %s", arg1, arg3 ); do_mset( ch, outbuf ); sprintf( outbuf, "%s susceptible %s", arg1, arg3 ); do_mset( ch, outbuf ); return; } if( !str_cmp( arg2, "ris" ) ) { if( !can_mmodify( ch, victim ) ) return; sprintf( outbuf, "%s resistant %s", arg1, arg3 ); do_mset( ch, outbuf ); sprintf( outbuf, "%s immune %s", arg1, arg3 ); do_mset( ch, outbuf ); sprintf( outbuf, "%s susceptible %s", arg1, arg3 ); do_mset( ch, outbuf ); return; } if( !str_cmp( arg2, "resistant" ) ) { if( !can_mmodify( ch, victim ) ) return; if( !argument || argument[0] == '\0' ) { send_to_char( "Usage: mset <victim> resistant <flag> [flag]...\r\n", ch ); return; } while( argument[0] != '\0' ) { argument = one_argument( argument, arg3 ); value = get_risflag( arg3 ); if( value < 0 || value > 31 ) ch_printf( ch, "Unknown flag: %s\r\n", arg3 ); else TOGGLE_BIT( victim->resistant, 1 << value ); } if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->resistant = victim->resistant; return; } if( !str_cmp( arg2, "immune" ) ) { if( !can_mmodify( ch, victim ) ) return; if( !argument || argument[0] == '\0' ) { send_to_char( "Usage: mset <victim> immune <flag> [flag]...\r\n", ch ); return; } while( argument[0] != '\0' ) { argument = one_argument( argument, arg3 ); value = get_risflag( arg3 ); if( value < 0 || value > 31 ) ch_printf( ch, "Unknown flag: %s\r\n", arg3 ); else TOGGLE_BIT( victim->immune, 1 << value ); } if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->immune = victim->immune; return; } if( !str_cmp( arg2, "susceptible" ) ) { if( !can_mmodify( ch, victim ) ) return; if( !argument || argument[0] == '\0' ) { send_to_char ( "Usage: mset <victim> susceptible <flag> [flag]...\r\n", ch ); return; } while( argument[0] != '\0' ) { argument = one_argument( argument, arg3 ); value = get_risflag( arg3 ); if( value < 0 || value > 31 ) ch_printf( ch, "Unknown flag: %s\r\n", arg3 ); else TOGGLE_BIT( victim->susceptible, 1 << value ); } if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->susceptible = victim->susceptible; return; } if( !str_cmp( arg2, "attack" ) ) { if( !IS_NPC( victim ) ) { send_to_char( "You can only modify a mobile's attacks.\r\n", ch ); return; } if( !can_mmodify( ch, victim ) ) return; if( !argument || argument[0] == '\0' ) { send_to_char( "Usage: mset <victim> attack <flag> [flag]...\r\n", ch ); send_to_char ( "bite claws tail sting punch kick\r\n", ch ); send_to_char ( "trip bash stun gouge backstab\r\n", ch ); return; } while( argument[0] != '\0' ) { argument = one_argument( argument, arg3 ); value = get_attackflag( arg3 ); if( value < 0 || value > 31 ) ch_printf( ch, "Unknown flag: %s\r\n", arg3 ); else TOGGLE_BIT( victim->attacks, 1 << value ); } if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->attacks = victim->attacks; return; } if( !str_cmp( arg2, "defense" ) ) { if( !IS_NPC( victim ) ) { send_to_char( "You can only modify a mobile's defenses.\r\n", ch ); return; } if( !can_mmodify( ch, victim ) ) return; if( !argument || argument[0] == '\0' ) { send_to_char( "Usage: mset <victim> defense <flag> [flag]...\r\n", ch ); send_to_char( "parry dodge\r\n", ch ); return; } while( argument[0] != '\0' ) { argument = one_argument( argument, arg3 ); value = get_defenseflag( arg3 ); if( value < 0 || value > 31 ) ch_printf( ch, "Unknown flag: %s\r\n", arg3 ); else TOGGLE_BIT( victim->defenses, 1 << value ); } if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->defenses = victim->defenses; return; } if( !str_cmp( arg2, "pos" ) ) { if( !IS_NPC( victim ) ) { send_to_char( "Mobiles only.\r\n", ch ); return; } if( !can_mmodify( ch, victim ) ) return; if( value < 0 || value > POS_STANDING ) { ch_printf( ch, "Position range is 0 to %d.\r\n", POS_STANDING ); return; } victim->position = value; if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->position = victim->position; send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "defpos" ) ) { if( !IS_NPC( victim ) ) { send_to_char( "Mobiles only.\r\n", ch ); return; } if( !can_mmodify( ch, victim ) ) return; if( value < 0 || value > POS_STANDING ) { ch_printf( ch, "Position range is 0 to %d.\r\n", POS_STANDING ); return; } victim->defposition = value; if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->defposition = victim->defposition; send_to_char( "Done.\r\n", ch ); return; } /* * save some finger-leather */ if( !str_cmp( arg2, "hitdie" ) ) { if( !IS_NPC( victim ) ) { send_to_char( "Mobiles only.\r\n", ch ); return; } if( !can_mmodify( ch, victim ) ) return; sscanf( arg3, "%d %c %d %c %d", &num, &char1, &size, &char2, &plus ); sprintf( outbuf, "%s hitnumdie %d", arg1, num ); do_mset( ch, outbuf ); sprintf( outbuf, "%s hitsizedie %d", arg1, size ); do_mset( ch, outbuf ); sprintf( outbuf, "%s hitplus %d", arg1, plus ); do_mset( ch, outbuf ); return; } /* * save some more finger-leather */ if( !str_cmp( arg2, "damdie" ) ) { if( !IS_NPC( victim ) ) { send_to_char( "Mobiles only.\r\n", ch ); return; } if( !can_mmodify( ch, victim ) ) return; sscanf( arg3, "%d %c %d %c %d", &num, &char1, &size, &char2, &plus ); sprintf( outbuf, "%s damnumdie %d", arg1, num ); do_mset( ch, outbuf ); sprintf( outbuf, "%s damsizedie %d", arg1, size ); do_mset( ch, outbuf ); sprintf( outbuf, "%s damplus %d", arg1, plus ); do_mset( ch, outbuf ); return; } if( !str_cmp( arg2, "hitnumdie" ) ) { if( !IS_NPC( victim ) ) { send_to_char( "Mobiles only.\r\n", ch ); return; } if( !can_mmodify( ch, victim ) ) return; if( value < 0 || value > 32767 ) { send_to_char( "Number of hitpoint dice range is 0 to 30000.\r\n", ch ); return; } if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->hitnodice = value; send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "hitsizedie" ) ) { if( !IS_NPC( victim ) ) { send_to_char( "Mobiles only.\r\n", ch ); return; } if( !can_mmodify( ch, victim ) ) return; if( value < 0 || value > 32767 ) { send_to_char( "Hitpoint dice size range is 0 to 30000.\r\n", ch ); return; } if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->hitsizedice = value; send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "hitplus" ) ) { if( !IS_NPC( victim ) ) { send_to_char( "Mobiles only.\r\n", ch ); return; } if( !can_mmodify( ch, victim ) ) return; if( value < 0 || value > 32767 ) { send_to_char( "Hitpoint bonus range is 0 to 30000.\r\n", ch ); return; } if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->hitplus = value; send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "damnumdie" ) ) { if( !IS_NPC( victim ) ) { send_to_char( "Mobiles only.\r\n", ch ); return; } if( !can_mmodify( ch, victim ) ) return; if( value < 0 || value > 100 ) { send_to_char( "Number of damage dice range is 0 to 100.\r\n", ch ); return; } if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->damnodice = value; send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "damsizedie" ) ) { if( !IS_NPC( victim ) ) { send_to_char( "Mobiles only.\r\n", ch ); return; } if( !can_mmodify( ch, victim ) ) return; if( value < 0 || value > 100 ) { send_to_char( "Damage dice size range is 0 to 100.\r\n", ch ); return; } if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->damsizedice = value; send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "damplus" ) ) { if( !IS_NPC( victim ) ) { send_to_char( "Mobiles only.\r\n", ch ); return; } if( !can_mmodify( ch, victim ) ) return; if( value < 0 || value > 1000 ) { send_to_char( "Damage bonus range is 0 to 1000.\r\n", ch ); return; } if( IS_NPC( victim ) && IS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->damplus = value; send_to_char( "Done.\r\n", ch ); return; } /* * Generate usage message. */ do_mset( ch, STRLIT_EMPTY ); } void do_oset( CHAR_DATA * ch, char *argument ) { char arg1[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; char arg3[MAX_INPUT_LENGTH]; char buf[MAX_STRING_LENGTH]; char outbuf[MAX_STRING_LENGTH]; OBJ_DATA *obj, *tmpobj; EXTRA_DESCR_DATA *ed; bool lockobj; int value, tmp; if( IS_NPC( ch ) ) { send_to_char( "Mob's can't oset\r\n", ch ); return; } if( !ch->desc ) { send_to_char( "You have no descriptor\r\n", ch ); return; } switch ( ch->substate ) { default: break; case SUB_OBJ_EXTRA: if( !ch->dest_buf ) { send_to_char( "Fatal error: report to Thoric.\r\n", ch ); bug( "do_oset: sub_obj_extra: NULL ch->dest_buf", 0 ); ch->substate = SUB_NONE; return; } /* * hopefully the object didn't get extracted... * if you're REALLY paranoid, you could always go through * the object and index-object lists, searching through the * extra_descr lists for a matching pointer... */ ed = ( EXTRA_DESCR_DATA * ) ch->dest_buf; STRFREE( ed->description ); ed->description = copy_buffer( ch ); tmpobj = ( OBJ_DATA * ) ch->spare_ptr; stop_editing( ch ); ch->dest_buf = tmpobj; ch->substate = ( short ) ch->tempnum; return; case SUB_OBJ_LONG: if( !ch->dest_buf ) { send_to_char( "Fatal error: report to Thoric.\r\n", ch ); bug( "do_oset: sub_obj_long: NULL ch->dest_buf", 0 ); ch->substate = SUB_NONE; return; } obj = ( OBJ_DATA * ) ch->dest_buf; if( obj && obj_extracted( obj ) ) { send_to_char( "Your object was extracted!\r\n", ch ); stop_editing( ch ); return; } STRFREE( obj->description ); obj->description = copy_buffer( ch ); if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) { STRFREE( obj->pIndexData->description ); obj->pIndexData->description = QUICKLINK( obj->description ); } tmpobj = ( OBJ_DATA * ) ch->spare_ptr; stop_editing( ch ); ch->substate = ( short ) ch->tempnum; ch->dest_buf = tmpobj; return; } obj = NULL; smash_tilde( argument ); if( obj ) { lockobj = TRUE; strcpy( arg1, obj->name ); argument = one_argument( argument, arg2 ); strcpy( arg3, argument ); } else { lockobj = FALSE; argument = one_argument( argument, arg1 ); argument = one_argument( argument, arg2 ); strcpy( arg3, argument ); } if( arg1[0] == '\0' || arg2[0] == '\0' || !str_cmp( arg1, "?" ) ) { send_to_char( "Syntax: oset <object> <field> <value>\r\n", ch ); send_to_char( "\r\n", ch ); send_to_char( "Field being one of:\r\n", ch ); send_to_char( " flags wear weight cost timer\r\n", ch ); send_to_char( " name short long desc ed rmed actiondesc\r\n", ch ); send_to_char( " type value0 value1 value2 value3 value4 value5\r\n", ch ); send_to_char( " affect rmaffect layers\r\n", ch ); send_to_char( "For weapons: For armor:\r\n", ch ); send_to_char( " weapontype condition ac condition\r\n", ch ); send_to_char( " numdamdie sizedamdie \r\n", ch ); send_to_char( " charges maxcharges \r\n", ch ); send_to_char( "For devices:\r\n", ch ); send_to_char( " slevel spell maxcharges charges\r\n", ch ); send_to_char( "For containers: For levers and switches:\r\n", ch ); send_to_char( " cflags key capacity tflags\r\n", ch ); return; } if( !obj ) { if( ( obj = get_obj_world( ch, arg1 ) ) == NULL ) { send_to_char( "There is nothing like that in all the realms.\r\n", ch ); return; } } if( lockobj ) ch->dest_buf = obj; else ch->dest_buf = NULL; separate_obj( obj ); value = atoi( arg3 ); if( !str_cmp( arg2, "value0" ) || !str_cmp( arg2, "v0" ) ) { if( !can_omodify( ch, obj ) ) return; obj->value[0] = value; if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) obj->pIndexData->value[0] = value; return; } if( !str_cmp( arg2, "value1" ) || !str_cmp( arg2, "v1" ) ) { if( !can_omodify( ch, obj ) ) return; obj->value[1] = value; if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) obj->pIndexData->value[1] = value; return; } if( !str_cmp( arg2, "value2" ) || !str_cmp( arg2, "v2" ) ) { if( !can_omodify( ch, obj ) ) return; obj->value[2] = value; if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) { obj->pIndexData->value[2] = value; if( obj->item_type == ITEM_WEAPON && value != 0 ) obj->value[2] = obj->pIndexData->value[1] * obj->pIndexData->value[2]; } return; } if( !str_cmp( arg2, "value3" ) || !str_cmp( arg2, "v3" ) ) { if( !can_omodify( ch, obj ) ) return; obj->value[3] = value; if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) obj->pIndexData->value[3] = value; return; } if( !str_cmp( arg2, "value4" ) || !str_cmp( arg2, "v4" ) ) { if( !can_omodify( ch, obj ) ) return; obj->value[4] = value; if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) obj->pIndexData->value[4] = value; return; } if( !str_cmp( arg2, "value5" ) || !str_cmp( arg2, "v5" ) ) { if( !can_omodify( ch, obj ) ) return; obj->value[5] = value; if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) obj->pIndexData->value[5] = value; return; } if( !str_cmp( arg2, "type" ) ) { if( !can_omodify( ch, obj ) ) return; if( !argument || argument[0] == '\0' ) { send_to_char( "Usage: oset <object> type <type>\r\n", ch ); send_to_char( "Possible Types:\r\n", ch ); send_to_char( "None Light\r\n", ch ); send_to_char( "Armor Comlink Fabric\r\n", ch ); send_to_char( "Furniture Trash Container Drink_con\r\n", ch ); send_to_char( "Food Money\r\n", ch ); send_to_char( "Fountain Weapon Medpac\r\n", ch ); send_to_char( "Superconductor Rare_metal\r\n", ch ); send_to_char( "Paper Magnet\r\n", ch ); send_to_char( "Lockpick Shovel Thread Ammo\r\n", ch ); send_to_char( "Lens Crystal Plastic Battery\r\n", ch ); send_to_char ( "Toolkit Metal Oven Mirror Circuit\r\n", ch ); send_to_char( "Device\r\n", ch ); return; } value = get_otype( argument ); if( value < 1 ) { ch_printf( ch, "Unknown type: %s\r\n", arg3 ); return; } obj->item_type = ( short ) value; if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) obj->pIndexData->item_type = obj->item_type; return; } if( !str_cmp( arg2, "flags" ) ) { if( !can_omodify( ch, obj ) ) return; if( !argument || argument[0] == '\0' ) { send_to_char( "Usage: oset <object> flags <flag> [flag]...\r\n", ch ); send_to_char( "glow, dark, magic, bless, noremove,\r\n", ch ); send_to_char( "donation, covering, hum, invis, nodrop\r\n", ch ); send_to_char( "inventory, clanobject\r\n", ch ); send_to_char( "small_size, human_size, large_size, hutt_size\r\n", ch ); return; } while( argument[0] != '\0' ) { argument = one_argument( argument, arg3 ); value = get_oflag( arg3 ); if( value < 0 || value > 31 ) ch_printf( ch, "Unknown flag: %s\r\n", arg3 ); else { TOGGLE_BIT( obj->extra_flags, 1 << value ); if( 1 << value == ITEM_PROTOTYPE ) obj->pIndexData->extra_flags = obj->extra_flags; } } if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) obj->pIndexData->extra_flags = obj->extra_flags; return; } if( !str_cmp( arg2, "wear" ) ) { if( !can_omodify( ch, obj ) ) return; if( !argument || argument[0] == '\0' ) { send_to_char( "Usage: oset <object> wear <flag> [flag]...\r\n", ch ); send_to_char( "Possible locations:\r\n", ch ); send_to_char( "take finger neck body head legs\r\n", ch ); send_to_char( "feet hands arms shield about waist\r\n", ch ); send_to_char( "wrist wield hold ears eyes\r\n", ch ); return; } while( argument[0] != '\0' ) { argument = one_argument( argument, arg3 ); value = get_wflag( arg3 ); if( value < 0 || value > 31 ) ch_printf( ch, "Unknown flag: %s\r\n", arg3 ); else TOGGLE_BIT( obj->wear_flags, 1 << value ); } if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) obj->pIndexData->wear_flags = obj->wear_flags; return; } if( !str_cmp( arg2, "weight" ) ) { if( !can_omodify( ch, obj ) ) return; obj->weight = value; if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) obj->pIndexData->weight = value; return; } if( !str_cmp( arg2, "cost" ) ) { if( !can_omodify( ch, obj ) ) return; obj->cost = value; if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) obj->pIndexData->cost = value; return; } if( !str_cmp( arg2, "layers" ) ) { if( !can_omodify( ch, obj ) ) return; if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) obj->pIndexData->layers = value; else send_to_char( "Item must have prototype flag to set this value.\r\n", ch ); return; } if( !str_cmp( arg2, "timer" ) ) { if( !can_omodify( ch, obj ) ) return; obj->timer = value; return; } if( !str_cmp( arg2, "name" ) ) { if( !can_omodify( ch, obj ) ) return; if( *arg3 == '\0' ) { ch_printf( ch, "Blank name not accepted.\r\n" ); return; } STRFREE( obj->name ); obj->name = STRALLOC( arg3 ); if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) { STRFREE( obj->pIndexData->name ); obj->pIndexData->name = QUICKLINK( obj->name ); } return; } if( !str_cmp( arg2, "short" ) ) { STRFREE( obj->short_descr ); obj->short_descr = STRALLOC( arg3 ); if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) { STRFREE( obj->pIndexData->short_descr ); obj->pIndexData->short_descr = QUICKLINK( obj->short_descr ); } else /* Feature added by Narn, Apr/96 * If the item is not proto, add the word 'rename' to the keywords * if it is not already there. */ { if( str_infix( "rename", obj->name ) ) { sprintf( buf, "%s %s", obj->name, "rename" ); STRFREE( obj->name ); obj->name = STRALLOC( buf ); } } return; } if( !str_cmp( arg2, "actiondesc" ) ) { if( strstr( arg3, "%n" ) || strstr( arg3, "%d" ) || strstr( arg3, "%l" ) ) { send_to_char( "Illegal characters!\r\n", ch ); return; } STRFREE( obj->action_desc ); obj->action_desc = STRALLOC( arg3 ); if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) { STRFREE( obj->pIndexData->action_desc ); obj->pIndexData->action_desc = QUICKLINK( obj->action_desc ); } return; } if( !str_cmp( arg2, "long" ) ) { if( arg3[0] ) { STRFREE( obj->description ); obj->description = STRALLOC( arg3 ); if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) { STRFREE( obj->pIndexData->description ); obj->pIndexData->description = QUICKLINK( obj->description ); } return; } CHECK_SUBRESTRICTED( ch ); ch->tempnum = SUB_NONE; if( lockobj ) ch->spare_ptr = obj; else ch->spare_ptr = NULL; ch->substate = SUB_OBJ_LONG; ch->dest_buf = obj; start_editing( ch, obj->description ); return; } if( !str_cmp( arg2, "affect" ) ) { AFFECT_DATA *paf; short loc; int bitv; argument = one_argument( argument, arg2 ); if( arg2[0] == '\0' || !argument || argument[0] == 0 ) { send_to_char( "Usage: oset <object> affect <field> <value>\r\n", ch ); send_to_char( "Affect Fields:\r\n", ch ); send_to_char ( "none strength dexterity intelligence wisdom constitution\r\n", ch ); send_to_char ( "sex level age height weight force\r\n", ch ); send_to_char ( "hit move credits experience armor hitroll\r\n", ch ); send_to_char ( "damroll save_para save_rod save_poison save_breath save_power\r\n", ch ); send_to_char ( "charisma resistant immune susceptible affected luck\r\n", ch ); send_to_char ( "backstab pick track steal sneak hide\r\n", ch ); send_to_char ( "detrap dodge peek scan gouge search\r\n", ch ); send_to_char ( "mount disarm kick parry bash stun\r\n", ch ); send_to_char ( "punch climb grip scribe brew\r\n", ch ); return; } loc = get_atype( arg2 ); if( loc < 1 ) { ch_printf( ch, "Unknown field: %s\r\n", arg2 ); return; } if( loc >= APPLY_AFFECT && loc < APPLY_WEAPONSPELL ) { bitv = 0; while( argument[0] != '\0' ) { argument = one_argument( argument, arg3 ); if( loc == APPLY_AFFECT ) value = get_aflag( arg3 ); else value = get_risflag( arg3 ); if( value < 0 || value > 31 ) ch_printf( ch, "Unknown flag: %s\r\n", arg3 ); else SET_BIT( bitv, 1 << value ); } if( !bitv ) return; value = bitv; } else { argument = one_argument( argument, arg3 ); value = atoi( arg3 ); } CREATE( paf, AFFECT_DATA, 1 ); paf->type = -1; paf->duration = -1; paf->location = loc; paf->modifier = value; paf->bitvector = 0; paf->next = NULL; if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) LINK( paf, obj->pIndexData->first_affect, obj->pIndexData->last_affect, next, prev ); else LINK( paf, obj->first_affect, obj->last_affect, next, prev ); ++top_affect; send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "rmaffect" ) ) { AFFECT_DATA *paf; short loc, count; if( !argument || argument[0] == '\0' ) { send_to_char( "Usage: oset <object> rmaffect <affect#>\r\n", ch ); return; } loc = atoi( argument ); if( loc < 1 ) { send_to_char( "Invalid number.\r\n", ch ); return; } count = 0; if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) { OBJ_INDEX_DATA *pObjIndex; pObjIndex = obj->pIndexData; for( paf = pObjIndex->first_affect; paf; paf = paf->next ) { if( ++count == loc ) { UNLINK( paf, pObjIndex->first_affect, pObjIndex->last_affect, next, prev ); DISPOSE( paf ); send_to_char( "Removed.\r\n", ch ); --top_affect; return; } } send_to_char( "Not found.\r\n", ch ); return; } else { for( paf = obj->first_affect; paf; paf = paf->next ) { if( ++count == loc ) { UNLINK( paf, obj->first_affect, obj->last_affect, next, prev ); DISPOSE( paf ); send_to_char( "Removed.\r\n", ch ); --top_affect; return; } } send_to_char( "Not found.\r\n", ch ); return; } } if( !str_cmp( arg2, "ed" ) ) { if( arg3[0] == '\0' ) { send_to_char( "Syntax: oset <object> ed <keywords>\r\n", ch ); return; } CHECK_SUBRESTRICTED( ch ); if( obj->timer ) { send_to_char ( "It's not safe to edit an extra description on an object with a timer.\r\nTurn it off first.\r\n", ch ); return; } if( obj->item_type == ITEM_PAPER ) { send_to_char ( "You can not add an extra description to a note paper at the moment.\r\n", ch ); return; } if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) ed = SetOExtraProto( obj->pIndexData, arg3 ); else ed = SetOExtra( obj, arg3 ); ch->tempnum = SUB_NONE; if( lockobj ) ch->spare_ptr = obj; else ch->spare_ptr = NULL; ch->substate = SUB_OBJ_EXTRA; ch->dest_buf = ed; start_editing( ch, ed->description ); return; } if( !str_cmp( arg2, "desc" ) ) { CHECK_SUBRESTRICTED( ch ); if( obj->timer ) { send_to_char ( "It's not safe to edit a description on an object with a timer.\r\nTurn it off first.\r\n", ch ); return; } if( obj->item_type == ITEM_PAPER ) { send_to_char ( "You can not add a description to a note paper at the moment.\r\n", ch ); return; } if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) ed = SetOExtraProto( obj->pIndexData, obj->name ); else ed = SetOExtra( obj, obj->name ); ch->tempnum = SUB_NONE; if( lockobj ) ch->spare_ptr = obj; else ch->spare_ptr = NULL; ch->substate = SUB_OBJ_EXTRA; ch->dest_buf = ed; start_editing( ch, ed->description ); return; } if( !str_cmp( arg2, "rmed" ) ) { if( arg3[0] == '\0' ) { send_to_char( "Syntax: oset <object> rmed <keywords>\r\n", ch ); return; } if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) { if( DelOExtraProto( obj->pIndexData, arg3 ) ) send_to_char( "Deleted.\r\n", ch ); else send_to_char( "Not found.\r\n", ch ); return; } if( DelOExtra( obj, arg3 ) ) send_to_char( "Deleted.\r\n", ch ); else send_to_char( "Not found.\r\n", ch ); return; } /* * save some finger-leather */ if( !str_cmp( arg2, "ris" ) ) { sprintf( outbuf, "%s affect resistant %s", arg1, arg3 ); do_oset( ch, outbuf ); sprintf( outbuf, "%s affect immune %s", arg1, arg3 ); do_oset( ch, outbuf ); sprintf( outbuf, "%s affect susceptible %s", arg1, arg3 ); do_oset( ch, outbuf ); return; } if( !str_cmp( arg2, "r" ) ) { sprintf( outbuf, "%s affect resistant %s", arg1, arg3 ); do_oset( ch, outbuf ); return; } if( !str_cmp( arg2, "i" ) ) { sprintf( outbuf, "%s affect immune %s", arg1, arg3 ); do_oset( ch, outbuf ); return; } if( !str_cmp( arg2, "s" ) ) { sprintf( outbuf, "%s affect susceptible %s", arg1, arg3 ); do_oset( ch, outbuf ); return; } if( !str_cmp( arg2, "ri" ) ) { sprintf( outbuf, "%s affect resistant %s", arg1, arg3 ); do_oset( ch, outbuf ); sprintf( outbuf, "%s affect immune %s", arg1, arg3 ); do_oset( ch, outbuf ); return; } if( !str_cmp( arg2, "rs" ) ) { sprintf( outbuf, "%s affect resistant %s", arg1, arg3 ); do_oset( ch, outbuf ); sprintf( outbuf, "%s affect susceptible %s", arg1, arg3 ); do_oset( ch, outbuf ); return; } if( !str_cmp( arg2, "is" ) ) { sprintf( outbuf, "%s affect immune %s", arg1, arg3 ); do_oset( ch, outbuf ); sprintf( outbuf, "%s affect susceptible %s", arg1, arg3 ); do_oset( ch, outbuf ); return; } /* * Make it easier to set special object values by name than number * -Thoric */ tmp = -1; switch ( obj->item_type ) { case ITEM_WEAPON: if( !str_cmp( arg2, "weapontype" ) ) { size_t x; value = -1; for( x = 0; x < weapon_table_size(); x++ ) if( !str_cmp( arg3, weapon_table[x] ) ) value = ( int ) x; if( value < 0 ) { send_to_char( "Unknown weapon type.\r\n", ch ); send_to_char( "\r\nChoices:\r\n", ch ); send_to_char( " none, lightsaber, vibro-blade, blaster\r\n", ch ); return; } tmp = 3; break; } if( !str_cmp( arg2, "condition" ) ) tmp = 0; if( !str_cmp( arg2, "numdamdie" ) ) tmp = 1; if( !str_cmp( arg2, "sizedamdie" ) ) tmp = 2; if( !str_cmp( arg2, "charges" ) ) tmp = 4; if( !str_cmp( arg2, "maxcharges" ) ) tmp = 5; if( !str_cmp( arg2, "charge" ) ) tmp = 4; if( !str_cmp( arg2, "maxcharge" ) ) tmp = 5; break; case ITEM_AMMO: if( !str_cmp( arg2, "charges" ) ) tmp = 0; if( !str_cmp( arg2, "charge" ) ) tmp = 0; break; case ITEM_BATTERY: if( !str_cmp( arg2, "charges" ) ) tmp = 0; if( !str_cmp( arg2, "charge" ) ) tmp = 0; break; case ITEM_ARMOR: if( !str_cmp( arg2, "condition" ) ) tmp = 0; if( !str_cmp( arg2, "ac" ) ) tmp = 1; break; case ITEM_DEVICE: if( !str_cmp( arg2, "slevel" ) ) tmp = 0; if( !str_cmp( arg2, "spell" ) ) { tmp = 3; value = skill_lookup( arg3 ); } if( !str_cmp( arg2, "maxcharges" ) ) tmp = 1; if( !str_cmp( arg2, "charges" ) ) tmp = 2; break; case ITEM_CONTAINER: if( !str_cmp( arg2, "capacity" ) ) tmp = 0; if( !str_cmp( arg2, "cflags" ) ) tmp = 1; if( !str_cmp( arg2, "key" ) ) tmp = 2; break; } if( tmp >= 0 && tmp <= 5 ) { if( !can_omodify( ch, obj ) ) return; obj->value[tmp] = value; if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) obj->pIndexData->value[tmp] = value; return; } /* * Generate usage message. */ do_oset( ch, STRLIT_EMPTY ); } /* * Returns value 0 - 9 based on directional text. */ int get_dir( const char *txt ) { int edir; char c1, c2; if( !str_cmp( txt, "northeast" ) ) return DIR_NORTHEAST; if( !str_cmp( txt, "northwest" ) ) return DIR_NORTHWEST; if( !str_cmp( txt, "southeast" ) ) return DIR_SOUTHEAST; if( !str_cmp( txt, "southwest" ) ) return DIR_SOUTHWEST; if( !str_cmp( txt, "somewhere" ) ) return DIR_SOMEWHERE; c1 = txt[0]; if( c1 == '\0' ) return 0; c2 = txt[1]; edir = 0; switch ( c1 ) { case 'n': switch ( c2 ) { default: edir = DIR_NORTH; break; /* north */ case 'e': edir = DIR_NORTHEAST; break; /* ne */ case 'w': edir = DIR_NORTHWEST; break; /* nw */ } break; case '0': edir = DIR_NORTH; break; /* north */ case 'e': case '1': edir = DIR_EAST; break; /* east */ case 's': switch ( c2 ) { default: edir = DIR_SOUTH; break; /* south */ case 'e': edir = DIR_SOUTHEAST; break; /* se */ case 'w': edir = DIR_SOUTHWEST; break; /* sw */ } break; case '2': edir = DIR_SOUTH; break; /* south */ case 'w': case '3': edir = DIR_WEST; break; /* west */ case 'u': case '4': edir = DIR_UP; break; /* up */ case 'd': case '5': edir = DIR_DOWN; break; /* down */ case '6': edir = DIR_NORTHEAST; break; /* ne */ case '7': edir = DIR_NORTHWEST; break; /* nw */ case '8': edir = DIR_SOUTHEAST; break; /* se */ case '9': edir = DIR_SOUTHWEST; break; /* sw */ case '?': edir = DIR_SOMEWHERE; break; /* somewhere */ } return edir; } void do_redit( CHAR_DATA * ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; char arg3[MAX_INPUT_LENGTH]; char buf[MAX_STRING_LENGTH]; ROOM_INDEX_DATA *location = 0, *tmp = 0; EXTRA_DESCR_DATA *ed = 0; char dir = 0; EXIT_DATA *xit = 0, *texit = 0; int value = 0; int edir = 0, ekey = 0; long evnum = 0; if( !ch->desc ) { send_to_char( "You have no descriptor.\r\n", ch ); return; } switch ( ch->substate ) { default: break; case SUB_ROOM_DESC: location = ( ROOM_INDEX_DATA * ) ch->dest_buf; if( !location ) { bug( "redit: sub_room_desc: NULL ch->dest_buf", 0 ); location = ch->in_room; } STRFREE( location->description ); location->description = copy_buffer( ch ); stop_editing( ch ); ch->substate = ( short ) ch->tempnum; return; case SUB_ROOM_EXTRA: ed = ( EXTRA_DESCR_DATA * ) ch->dest_buf; if( !ed ) { bug( "redit: sub_room_extra: NULL ch->dest_buf", 0 ); stop_editing( ch ); return; } STRFREE( ed->description ); ed->description = copy_buffer( ch ); stop_editing( ch ); ch->substate = ( short ) ch->tempnum; return; } location = ch->in_room; smash_tilde( argument ); argument = one_argument( argument, arg ); if( arg[0] == '\0' || !str_cmp( arg, "?" ) ) { send_to_char( "Syntax: redit <field> value\r\n", ch ); send_to_char( "\r\n", ch ); send_to_char( "Field being one of:\r\n", ch ); send_to_char( " name desc ed rmed\r\n", ch ); send_to_char( " exit bexit exdesc exflags exname exkey\r\n", ch ); send_to_char( " flags sector teledelay televnum tunnel\r\n", ch ); send_to_char( " exdistance\r\n", ch ); return; } if( !can_rmodify( ch, location ) ) return; if( !str_cmp( arg, "name" ) ) { if( argument[0] == '\0' ) { send_to_char ( "Set the room name. A very brief single line room description.\r\n", ch ); send_to_char( "Usage: redit name <Room summary>\r\n", ch ); return; } STRFREE( location->name ); location->name = STRALLOC( argument ); return; } if( !str_cmp( arg, "desc" ) ) { ch->tempnum = SUB_NONE; ch->substate = SUB_ROOM_DESC; ch->dest_buf = location; start_editing( ch, location->description ); return; } if( !str_cmp( arg, "tunnel" ) ) { if( !argument || argument[0] == '\0' ) { send_to_char ( "Set the maximum characters allowed in the room at one time. (0 = unlimited).\r\n", ch ); send_to_char( "Usage: redit tunnel <value>\r\n", ch ); return; } location->tunnel = URANGE( 0, atoi( argument ), 1000 ); send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg, "ed" ) ) { if( !argument || argument[0] == '\0' ) { send_to_char( "Create an extra description.\r\n", ch ); send_to_char( "You must supply keyword(s).\r\n", ch ); return; } CHECK_SUBRESTRICTED( ch ); ed = SetRExtra( location, argument ); ch->tempnum = SUB_NONE; ch->substate = SUB_ROOM_EXTRA; ch->dest_buf = ed; start_editing( ch, ed->description ); return; } if( !str_cmp( arg, "rmed" ) ) { if( !argument || argument[0] == '\0' ) { send_to_char( "Remove an extra description.\r\n", ch ); send_to_char( "You must supply keyword(s).\r\n", ch ); return; } if( DelRExtra( location, argument ) ) send_to_char( "Deleted.\r\n", ch ); else send_to_char( "Not found.\r\n", ch ); return; } if( !str_cmp( arg, "flags" ) ) { if( !argument || argument[0] == '\0' ) { send_to_char( "Toggle the room flags.\r\n", ch ); send_to_char( "Usage: redit flags <flag> [flag]...\r\n", ch ); send_to_char( "\r\nPossible Flags: \r\n", ch ); send_to_char( "dark, nomob, indoors, nomagic, bank,\r\n", ch ); send_to_char ( "private, safe, petshop, norecall, donation, nodropall, silence,\r\n", ch ); send_to_char ( "logspeach, nodrop, clanstoreroom, plr_home, empty_home, teleport\r\n", ch ); send_to_char( "nofloor\r\n", ch ); send_to_char ( "spacecraft, auction, no_drive, can_land, can_fly, hotel\r\n", ch ); return; } while( argument[0] != '\0' ) { argument = one_argument( argument, arg2 ); value = get_rflag( arg2 ); if( value < 0 || value > 31 ) ch_printf( ch, "Unknown flag: %s\r\n", arg2 ); else { if( 1 << value == ROOM_BARRACKS || 1 << value == ROOM_CONTROL ) send_to_char ( "&RSetting Barracks or Control flags can mess up a clans production and revenue.\r\n", ch ); TOGGLE_BIT( location->room_flags, 1 << value ); } } return; } if( !str_cmp( arg, "teledelay" ) ) { if( !argument || argument[0] == '\0' ) { send_to_char( "Set the delay of the teleport. (0 = off).\r\n", ch ); send_to_char( "Usage: redit teledelay <value>\r\n", ch ); return; } location->tele_delay = atoi( argument ); send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg, "televnum" ) ) { if( !argument || argument[0] == '\0' ) { send_to_char( "Set the vnum of the room to teleport to.\r\n", ch ); send_to_char( "Usage: redit televnum <vnum>\r\n", ch ); return; } location->tele_vnum = atoi( argument ); send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg, "sector" ) ) { int sector_type = 0; if( !argument || argument[0] == '\0' ) { size_t n = 0; send_to_char( "Set the sector type.\r\n", ch ); send_to_char( "Usage: redit sector <value|name>\r\n", ch ); send_to_char( "\r\nSector Values:\r\n", ch ); for( n = 0; n < sector_names_size(); ++n ) { ch_printf( ch, "%2d: %s\r\n", n, get_sector_name( n ) ); } return; } if( is_number( argument ) ) sector_type = atoi( argument ); else sector_type = get_sector_type( argument ); if( sector_type < 0 || sector_type >= SECT_MAX ) { send_to_char( "Out of range.\r\n", ch ); return; } else send_to_char( "Done.\r\n", ch ); if( location->area->planet ) { if( location->sector_type <= SECT_CITY ) location->area->planet->citysize--; else if( location->sector_type == SECT_FARMLAND ) location->area->planet->farmland--; else if( location->sector_type != SECT_DUNNO ) location->area->planet->wilderness--; } location->sector_type = sector_type; if( location->area->planet ) { if( location->sector_type <= SECT_CITY ) location->area->planet->citysize++; else if( location->sector_type == SECT_FARMLAND ) location->area->planet->farmland++; else if( location->sector_type != SECT_DUNNO ) location->area->planet->wilderness++; } return; } if( !str_cmp( arg, "exkey" ) ) { argument = one_argument( argument, arg2 ); argument = one_argument( argument, arg3 ); if( arg2[0] == '\0' || arg3[0] == '\0' ) { send_to_char( "Usage: redit exkey <dir> <keycode>\r\n", ch ); return; } if( arg2[0] == '#' ) { edir = atoi( arg2 + 1 ); xit = get_exit_num( location, edir ); } else { edir = get_dir( arg2 ); xit = get_exit( location, edir ); } value = atoi( arg3 ); if( !xit ) { send_to_char ( "No exit in that direction. Use 'redit exit ...' first.\r\n", ch ); return; } xit->key = value; send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg, "exname" ) ) { argument = one_argument( argument, arg2 ); if( arg2[0] == '\0' ) { send_to_char( "Change or clear exit keywords.\r\n", ch ); send_to_char( "Usage: redit exname <dir> [keywords]\r\n", ch ); return; } if( arg2[0] == '#' ) { edir = atoi( arg2 + 1 ); xit = get_exit_num( location, edir ); } else { edir = get_dir( arg2 ); xit = get_exit( location, edir ); } if( !xit ) { send_to_char ( "No exit in that direction. Use 'redit exit ...' first.\r\n", ch ); return; } STRFREE( xit->keyword ); xit->keyword = STRALLOC( argument ); send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg, "exflags" ) ) { if( !argument || argument[0] == '\0' ) { send_to_char( "Toggle or display exit flags.\r\n", ch ); send_to_char( "Usage: redit exflags <dir> <flag> [flag]...\r\n", ch ); send_to_char( "\r\nExit flags:\r\n", ch ); send_to_char ( "isdoor, closed, locked, can_look, searchable, can_leave, can_climb,\r\n", ch ); send_to_char ( "nopassdoor, secret, pickproof, fly, climb, dig, window, auto, can_enter\r\n", ch ); send_to_char( "hidden, no_mob, bashproof, bashed\r\n", ch ); return; } argument = one_argument( argument, arg2 ); if( arg2[0] == '#' ) { edir = atoi( arg2 + 1 ); xit = get_exit_num( location, edir ); } else { edir = get_dir( arg2 ); xit = get_exit( location, edir ); } if( !xit ) { send_to_char ( "No exit in that direction. Use 'redit exit ...' first.\r\n", ch ); return; } if( argument[0] == '\0' ) { sprintf( buf, "Flags for exit direction: %d Keywords: %s Key: %d\r\n[ ", xit->vdir, xit->keyword, xit->key ); for( value = 0; value <= MAX_EXFLAG; value++ ) { if( IS_SET( xit->exit_info, 1 << value ) ) { strcat( buf, ex_flags[value] ); strcat( buf, " " ); } } strcat( buf, "]\r\n" ); send_to_char( buf, ch ); return; } while( argument[0] != '\0' ) { argument = one_argument( argument, arg2 ); value = get_exflag( arg2 ); if( value < 0 || value > MAX_EXFLAG ) ch_printf( ch, "Unknown flag: %s\r\n", arg2 ); else TOGGLE_BIT( xit->exit_info, 1 << value ); } return; } if( !str_cmp( arg, "ex_flags" ) ) { argument = one_argument( argument, arg2 ); value = get_exflag( arg2 ); if( value < 0 ) { send_to_char( "Bad exit flag. \r\n", ch ); return; } if( ( xit = get_exit( location, edir ) ) == NULL ) { sprintf( buf, "exit %c 1", dir ); do_redit( ch, buf ); xit = get_exit( location, edir ); } TOGGLE_BIT( xit->exit_info, value ); return; } if( !str_cmp( arg, "ex_to_room" ) ) { argument = one_argument( argument, arg2 ); evnum = atoi( arg2 ); if( evnum < 1 || evnum > 32766 ) { send_to_char( "Invalid room number.\r\n", ch ); return; } if( ( tmp = get_room_index( evnum ) ) == NULL ) { send_to_char( "Non-existant room.\r\n", ch ); return; } if( ( xit = get_exit( location, edir ) ) == NULL ) { sprintf( buf, "exit %c 1", dir ); do_redit( ch, buf ); xit = get_exit( location, edir ); } xit->vnum = evnum; return; } if( !str_cmp( arg, "ex_key" ) ) { argument = one_argument( argument, arg2 ); if( ( xit = get_exit( location, edir ) ) == NULL ) { sprintf( buf, "exit %c 1", dir ); do_redit( ch, buf ); xit = get_exit( location, edir ); } xit->key = atoi( arg2 ); return; } if( !str_cmp( arg, "ex_exdesc" ) ) { if( ( xit = get_exit( location, edir ) ) == NULL ) { sprintf( buf, "exit %c 1", dir ); do_redit( ch, buf ); } sprintf( buf, "exdesc %c %s", dir, argument ); do_redit( ch, buf ); return; } if( !str_cmp( arg, "ex_keywords" ) ) /* not called yet */ { if( ( xit = get_exit( location, edir ) ) == NULL ) { sprintf( buf, "exit %c 1", dir ); do_redit( ch, buf ); if( ( xit = get_exit( location, edir ) ) == NULL ) return; } sprintf( buf, "%s %s", xit->keyword, argument ); STRFREE( xit->keyword ); xit->keyword = STRALLOC( buf ); return; } if( !str_cmp( arg, "exit" ) ) { bool addexit, numnotdir; argument = one_argument( argument, arg2 ); argument = one_argument( argument, arg3 ); if( arg2[0] == '\0' ) { send_to_char( "Create, change or remove an exit.\r\n", ch ); send_to_char ( "Usage: redit exit <dir> [room] [flags] [key] [keywords]\r\n", ch ); return; } addexit = numnotdir = FALSE; switch ( arg2[0] ) { default: edir = get_dir( arg2 ); break; case '+': edir = get_dir( arg2 + 1 ); addexit = TRUE; break; case '#': edir = atoi( arg2 + 1 ); numnotdir = TRUE; break; } if( arg3[0] == '\0' ) evnum = 0; else evnum = atoi( arg3 ); if( numnotdir ) { if( ( xit = get_exit_num( location, edir ) ) != NULL ) edir = xit->vdir; } else xit = get_exit( location, edir ); if( !evnum ) { if( xit ) { extract_exit( location, xit ); send_to_char( "Exit removed.\r\n", ch ); return; } send_to_char( "No exit in that direction.\r\n", ch ); return; } if( evnum < 1 || evnum > 32766 ) { send_to_char( "Invalid room number.\r\n", ch ); return; } if( ( tmp = get_room_index( evnum ) ) == NULL ) { send_to_char( "Non-existant room.\r\n", ch ); return; } if( addexit || !xit ) { if( numnotdir ) { send_to_char( "Cannot add an exit by number, sorry.\r\n", ch ); return; } if( addexit && xit && get_exit_to( location, edir, tmp->vnum ) ) { send_to_char ( "There is already an exit in that direction leading to that location.\r\n", ch ); return; } xit = make_exit( location, tmp, edir ); xit->keyword = STRALLOC( "" ); xit->description = STRALLOC( "" ); xit->key = -1; xit->exit_info = 0; act( AT_IMMORT, "$n reveals a hidden passage!", ch, NULL, NULL, TO_ROOM ); } else act( AT_IMMORT, "Something is different...", ch, NULL, NULL, TO_ROOM ); if( xit->to_room != tmp ) { xit->to_room = tmp; xit->vnum = evnum; texit = get_exit_to( xit->to_room, rev_dir[edir], location->vnum ); if( texit ) { texit->rexit = xit; xit->rexit = texit; } } argument = one_argument( argument, arg3 ); if( arg3[0] != '\0' ) xit->exit_info = atoi( arg3 ); if( argument && argument[0] != '\0' ) { one_argument( argument, arg3 ); ekey = atoi( arg3 ); if( ekey != 0 || arg3[0] == '0' ) { argument = one_argument( argument, arg3 ); xit->key = ekey; } if( argument && argument[0] != '\0' ) { STRFREE( xit->keyword ); xit->keyword = STRALLOC( argument ); } } send_to_char( "Done.\r\n", ch ); return; } /* * Twisted and evil, but works -Thoric * Makes an exit, and the reverse in one shot. */ if( !str_cmp( arg, "bexit" ) ) { EXIT_DATA *one_exit, *rxit; char tmpcmd[MAX_INPUT_LENGTH]; ROOM_INDEX_DATA *tmploc; long vnum; int exnum; char rvnum[MAX_INPUT_LENGTH]; bool numnotdir; argument = one_argument( argument, arg2 ); argument = one_argument( argument, arg3 ); if( arg2[0] == '\0' ) { send_to_char( "Create, change or remove a two-way exit.\r\n", ch ); send_to_char ( "Usage: redit bexit <dir> [room] [flags] [key] [keywords]\r\n", ch ); return; } numnotdir = FALSE; switch ( arg2[0] ) { default: edir = get_dir( arg2 ); break; case '#': numnotdir = TRUE; edir = atoi( arg2 + 1 ); break; case '+': edir = get_dir( arg2 + 1 ); break; } tmploc = location; exnum = edir; if( numnotdir ) { if( ( one_exit = get_exit_num( tmploc, edir ) ) != NULL ) edir = one_exit->vdir; } else one_exit = get_exit( tmploc, edir ); rxit = NULL; vnum = 0; rvnum[0] = '\0'; if( one_exit ) { vnum = one_exit->vnum; if( arg3[0] != '\0' ) sprintf( rvnum, "%ld", tmploc->vnum ); if( one_exit->to_room ) rxit = get_exit( one_exit->to_room, rev_dir[edir] ); else rxit = NULL; } sprintf( tmpcmd, "exit %s %s %s", arg2, arg3, argument ); do_redit( ch, tmpcmd ); if( numnotdir ) one_exit = get_exit_num( tmploc, exnum ); else one_exit = get_exit( tmploc, edir ); if( !rxit && one_exit ) { vnum = one_exit->vnum; if( arg3[0] != '\0' ) sprintf( rvnum, "%ld", tmploc->vnum ); if( one_exit->to_room ) rxit = get_exit( one_exit->to_room, rev_dir[edir] ); else rxit = NULL; } if( vnum ) { sprintf( tmpcmd, "%ld redit exit %d %s %s", vnum, rev_dir[edir], rvnum, argument ); do_at( ch, tmpcmd ); } return; } if( !str_cmp( arg, "exdistance" ) ) { argument = one_argument( argument, arg2 ); if( arg2[0] == '\0' ) { send_to_char ( "Set the distance (in rooms) between this room, and the destination room.\r\n", ch ); send_to_char( "Usage: redit exdistance <dir> [distance]\r\n", ch ); return; } if( arg2[0] == '#' ) { edir = atoi( arg2 + 1 ); xit = get_exit_num( location, edir ); } else { edir = get_dir( arg2 ); xit = get_exit( location, edir ); } if( xit ) { xit->distance = URANGE( 1, atoi( argument ), 50 ); send_to_char( "Done.\r\n", ch ); return; } send_to_char ( "No exit in that direction. Use 'redit exit ...' first.\r\n", ch ); return; } if( !str_cmp( arg, "exdesc" ) ) { argument = one_argument( argument, arg2 ); if( arg2[0] == '\0' ) { send_to_char( "Create or clear a description for an exit.\r\n", ch ); send_to_char( "Usage: redit exdesc <dir> [description]\r\n", ch ); return; } if( arg2[0] == '#' ) { edir = atoi( arg2 + 1 ); xit = get_exit_num( location, edir ); } else { edir = get_dir( arg2 ); xit = get_exit( location, edir ); } if( xit ) { STRFREE( xit->description ); if( !argument || argument[0] == '\0' ) xit->description = STRALLOC( "" ); else { sprintf( buf, "%s\r\n", argument ); xit->description = STRALLOC( buf ); } send_to_char( "Done.\r\n", ch ); return; } send_to_char ( "No exit in that direction. Use 'redit exit ...' first.\r\n", ch ); return; } /* * Generate usage message. */ do_redit( ch, STRLIT_EMPTY ); } void do_ocreate( CHAR_DATA * ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; OBJ_INDEX_DATA *pObjIndex; OBJ_DATA *obj; long vnum, cvnum; if( IS_NPC( ch ) ) { send_to_char( "Mobiles cannot create.\r\n", ch ); return; } argument = one_argument( argument, arg ); vnum = is_number( arg ) ? atoi( arg ) : -1; if( vnum == -1 || !argument || argument[0] == '\0' ) { send_to_char( "Usage: ocreate <vnum> [copy vnum] <item name>\r\n", ch ); return; } if( vnum < 1 || vnum > 32767 ) { send_to_char( "Bad number.\r\n", ch ); return; } one_argument( argument, arg2 ); cvnum = atoi( arg2 ); if( cvnum != 0 ) argument = one_argument( argument, arg2 ); if( cvnum < 1 ) cvnum = 0; if( get_obj_index( vnum ) ) { send_to_char( "An object with that number already exists.\r\n", ch ); return; } if( IS_NPC( ch ) ) return; pObjIndex = make_object( vnum, cvnum, argument ); if( !pObjIndex ) { send_to_char( "Error.\r\n", ch ); log_string( "do_ocreate: make_object failed." ); return; } obj = create_object( pObjIndex ); obj_to_char( obj, ch ); act( AT_IMMORT, "$n makes some ancient arcane gestures, and opens $s hands to reveal $p!", ch, obj, NULL, TO_ROOM ); act( AT_IMMORT, "You make some ancient arcane gestures, and open your hands to reveal $p!", ch, obj, NULL, TO_CHAR ); } void do_mcreate( CHAR_DATA * ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; MOB_INDEX_DATA *pMobIndex; CHAR_DATA *mob; long vnum, cvnum; if( IS_NPC( ch ) ) { send_to_char( "Mobiles cannot create.\r\n", ch ); return; } argument = one_argument( argument, arg ); vnum = is_number( arg ) ? atoi( arg ) : -1; if( vnum == -1 || !argument || argument[0] == '\0' ) { send_to_char( "Usage: mcreate <vnum> [cvnum] <mobile name>\r\n", ch ); return; } if( vnum < 1 || vnum > 32767 ) { send_to_char( "Bad number.\r\n", ch ); return; } one_argument( argument, arg2 ); cvnum = atoi( arg2 ); if( cvnum != 0 ) argument = one_argument( argument, arg2 ); if( cvnum < 1 ) cvnum = 0; if( get_mob_index( vnum ) ) { send_to_char( "A mobile with that number already exists.\r\n", ch ); return; } if( IS_NPC( ch ) ) return; pMobIndex = make_mobile( vnum, cvnum, argument ); if( !pMobIndex ) { send_to_char( "Error.\r\n", ch ); log_string( "do_mcreate: make_mobile failed." ); return; } mob = create_mobile( pMobIndex ); char_to_room( mob, ch->in_room ); act( AT_IMMORT, "$n waves $s arms about, and $N appears at $s command!", ch, NULL, mob, TO_ROOM ); act( AT_IMMORT, "You wave your arms about, and $N appears at your command!", ch, NULL, mob, TO_CHAR ); } /* * Simple but nice and handle line editor. -Thoric */ void edit_buffer( CHAR_DATA * ch, char *argument ) { DESCRIPTOR_DATA *d; EDITOR_DATA *edit; char cmd[MAX_INPUT_LENGTH]; char buf[MAX_INPUT_LENGTH + 1]; short line; bool save; if( ( d = ch->desc ) == NULL ) { send_to_char( "You have no descriptor.\r\n", ch ); return; } if( d->connected != CON_EDITING ) { send_to_char( "You can't do that!\r\n", ch ); bug( "Edit_buffer: d->connected != CON_EDITING", 0 ); return; } if( !ch->editor ) { send_to_char( "You can't do that!\r\n", ch ); bug( "Edit_buffer: null editor", 0 ); d->connected = CON_PLAYING; return; } edit = ch->editor; save = FALSE; if( argument[0] == '/' || argument[0] == '\\' ) { one_argument( argument, cmd ); if( !str_cmp( cmd + 1, "?" ) ) { send_to_char ( "Editing commands\r\n---------------------------------\r\n", ch ); send_to_char( "/l list buffer\r\n", ch ); send_to_char( "/c clear buffer\r\n", ch ); send_to_char( "/d [line] delete line\r\n", ch ); send_to_char( "/g <line> goto line\r\n", ch ); send_to_char( "/i <line> insert line\r\n", ch ); send_to_char( "/r <old> <new> global replace\r\n", ch ); send_to_char( "/a abort editing\r\n", ch ); send_to_char( "/f format text ( to fit screen )\r\n", ch ); send_to_char ( "/! <command> execute command (do not use another editing command)\r\n", ch ); send_to_char( "/s save buffer\r\n\r\n> ", ch ); return; } if( !str_cmp( cmd + 1, "c" ) ) { memset( edit, '\0', sizeof( EDITOR_DATA ) ); edit->numlines = 0; edit->on_line = 0; send_to_char( "Buffer cleared.\r\n> ", ch ); return; } if( !str_cmp( cmd + 1, "r" ) ) { char word1[MAX_INPUT_LENGTH]; char word2[MAX_INPUT_LENGTH]; char *sptr, *wptr, *lwptr; int x, count, wordln, word2ln, lineln; sptr = one_argument( argument, word1 ); sptr = one_argument( sptr, word1 ); sptr = one_argument( sptr, word2 ); if( word1[0] == '\0' || word2[0] == '\0' ) { send_to_char( "Need word to replace, and replacement.\r\n> ", ch ); return; } if( strcmp( word1, word2 ) == 0 ) { send_to_char( "Done.\r\n> ", ch ); return; } count = 0; wordln = strlen( word1 ); word2ln = strlen( word2 ); ch_printf( ch, "Replacing all occurrences of %s with %s...\r\n", word1, word2 ); for( x = 0; x < edit->numlines; x++ ) { lwptr = edit->line[x]; while( ( wptr = strstr( lwptr, word1 ) ) != NULL ) { sptr = lwptr; lwptr = wptr + wordln; sprintf( buf, "%s%s", word2, wptr + wordln ); lineln = wptr - edit->line[x] - wordln; ++count; if( strlen( buf ) + lineln > 79 ) { lineln = UMAX( 0, ( 79 - strlen( buf ) ) ); buf[lineln] = '\0'; break; } else lineln = strlen( buf ); buf[lineln] = '\0'; strcpy( wptr, buf ); } } ch_printf( ch, "Found and replaced %d occurrence(s).\r\n> ", count ); return; } if( !str_cmp( cmd + 1, "f" ) ) { char temp_buf[MAX_STRING_LENGTH + MAX_BUF_LINES]; int x, ep, old_p, end_mark; int p = 0; for( x = 0; x < edit->numlines; x++ ) { strcpy( temp_buf + p, edit->line[x] ); p += strlen( edit->line[x] ); temp_buf[p] = ' '; p++; } temp_buf[p] = '\0'; end_mark = p; p = 75; old_p = 0; edit->on_line = 0; edit->numlines = 0; while( old_p < end_mark ) { while( temp_buf[p] != ' ' && p > old_p ) p--; if( p == old_p ) p += 75; if( p > end_mark ) p = end_mark; ep = 0; for( x = old_p; x < p; x++ ) { edit->line[edit->on_line][ep] = temp_buf[x]; ep++; } edit->line[edit->on_line][ep] = '\0'; edit->on_line++; edit->numlines++; old_p = p + 1; p += 75; } send_to_char( "OK.\r\n> ", ch ); return; } if( !str_cmp( cmd + 1, "i" ) ) { if( edit->numlines >= MAX_BUF_LINES ) send_to_char( "Buffer is full.\r\n> ", ch ); else { if( argument[2] == ' ' ) line = atoi( argument + 2 ) - 1; else line = edit->on_line; if( line < 0 ) line = edit->on_line; if( line < 0 || line > edit->numlines ) send_to_char( "Out of range.\r\n> ", ch ); else { int x = 0; for( x = ++edit->numlines; x > line; x-- ) strcpy( edit->line[x], edit->line[x - 1] ); strcpy( edit->line[line], "" ); send_to_char( "Line inserted.\r\n> ", ch ); } } return; } if( !str_cmp( cmd + 1, "d" ) ) { if( edit->numlines == 0 ) send_to_char( "Buffer is empty.\r\n> ", ch ); else { if( argument[2] == ' ' ) line = atoi( argument + 2 ) - 1; else line = edit->on_line; if( line < 0 ) line = edit->on_line; if( line < 0 || line > edit->numlines ) send_to_char( "Out of range.\r\n> ", ch ); else { int x = 0; if( line == 0 && edit->numlines == 1 ) { memset( edit, '\0', sizeof( EDITOR_DATA ) ); edit->numlines = 0; edit->on_line = 0; send_to_char( "Line deleted.\r\n> ", ch ); return; } for( x = line; x < ( edit->numlines - 1 ); x++ ) strcpy( edit->line[x], edit->line[x + 1] ); strcpy( edit->line[edit->numlines--], "" ); if( edit->on_line > edit->numlines ) edit->on_line = edit->numlines; send_to_char( "Line deleted.\r\n> ", ch ); } } return; } if( !str_cmp( cmd + 1, "g" ) ) { if( edit->numlines == 0 ) send_to_char( "Buffer is empty.\r\n> ", ch ); else { if( argument[2] == ' ' ) line = atoi( argument + 2 ) - 1; else { send_to_char( "Goto what line?\r\n> ", ch ); return; } if( line < 0 ) line = edit->on_line; if( line < 0 || line > edit->numlines ) send_to_char( "Out of range.\r\n> ", ch ); else { edit->on_line = line; ch_printf( ch, "(On line %d)\r\n> ", line + 1 ); } } return; } if( !str_cmp( cmd + 1, "l" ) ) { if( edit->numlines == 0 ) send_to_char( "Buffer is empty.\r\n> ", ch ); else { int x = 0; send_to_char( "------------------\r\n", ch ); for( x = 0; x < edit->numlines; x++ ) ch_printf( ch, "%2d> %s\r\n", x + 1, edit->line[x] ); send_to_char( "------------------\r\n> ", ch ); } return; } if( !str_cmp( cmd + 1, "a" ) ) { send_to_char( "\r\nAborting... ", ch ); stop_editing( ch ); return; } if( !str_cmp( cmd + 1, "!" ) ) { DO_FUN *last_cmd; int substate = ch->substate; last_cmd = ch->last_cmd; ch->substate = SUB_RESTRICTED; interpret( ch, argument + 3 ); ch->substate = substate; ch->last_cmd = last_cmd; set_char_color( AT_GREEN, ch ); send_to_char( "\r\n> ", ch ); return; } if( !str_cmp( cmd + 1, "s" ) ) { d->connected = CON_PLAYING; if( !ch->last_cmd ) return; ( *ch->last_cmd ) ( ch, STRLIT_EMPTY ); return; } } if( edit->size + strlen( argument ) + 1 >= MAX_STRING_LENGTH - 1 ) send_to_char( "You buffer is full.\r\n", ch ); else { int b_end; int bm = 75; int bp = 0; int ep = 0; strcpy( buf, argument ); strcat( buf, " " ); b_end = strlen( buf ); while( bp < b_end ) { while( buf[bm] != ' ' && bm > bp ) bm--; if( bm == bp ) bm += 75; if( bm > b_end ) bm = b_end; ep = 0; while( bp < bm ) { edit->line[edit->on_line][ep] = buf[bp]; bp++; ep++; } bm = bp + 75; bp++; edit->line[edit->on_line][ep] = '\0'; edit->on_line++; if( edit->on_line > edit->numlines ) edit->numlines++; if( edit->numlines > MAX_BUF_LINES ) { edit->numlines = MAX_BUF_LINES; send_to_char( "Buffer full.\r\n", ch ); save = TRUE; break; } } } if( save ) { d->connected = CON_PLAYING; if( !ch->last_cmd ) return; ( *ch->last_cmd ) ( ch, STRLIT_EMPTY ); return; } send_to_char( "> ", ch ); } void free_area( AREA_DATA * are ) { DISPOSE( are->name ); DISPOSE( are->filename ); DISPOSE( are ); } void do_aassign( CHAR_DATA * ch, char *argument ) { char buf[MAX_STRING_LENGTH]; AREA_DATA *tarea, *tmp; if( IS_NPC( ch ) ) return; if( argument[0] == '\0' ) { send_to_char( "Syntax: aassign <filename.are>\r\n", ch ); return; } if( !str_cmp( "none", argument ) || !str_cmp( "null", argument ) || !str_cmp( "clear", argument ) ) { ch->pcdata->area = NULL; if( !ch->pcdata->area ) send_to_char( "Area pointer cleared.\r\n", ch ); else send_to_char( "Originally assigned area restored.\r\n", ch ); return; } sprintf( buf, "%s", argument ); tarea = NULL; for( tmp = first_area; tmp; tmp = tmp->next ) if( !str_cmp( buf, tmp->filename ) ) { tarea = tmp; break; } if( !tarea ) { send_to_char( "No such area. Use 'zones'.\r\n", ch ); return; } ch->pcdata->area = tarea; ch_printf( ch, "Assigning you: %s\r\n", tarea->name ); return; } EXTRA_DESCR_DATA *SetRExtra( ROOM_INDEX_DATA * room, const char *keywords ) { EXTRA_DESCR_DATA *ed; for( ed = room->first_extradesc; ed; ed = ed->next ) { if( is_name( keywords, ed->keyword ) ) break; } if( !ed ) { CREATE( ed, EXTRA_DESCR_DATA, 1 ); LINK( ed, room->first_extradesc, room->last_extradesc, next, prev ); ed->keyword = STRALLOC( keywords ); ed->description = STRALLOC( "" ); top_ed++; } return ed; } bool DelRExtra( ROOM_INDEX_DATA * room, char *keywords ) { EXTRA_DESCR_DATA *rmed; for( rmed = room->first_extradesc; rmed; rmed = rmed->next ) { if( is_name( keywords, rmed->keyword ) ) break; } if( !rmed ) return FALSE; UNLINK( rmed, room->first_extradesc, room->last_extradesc, next, prev ); free_extra_descr( rmed ); return TRUE; } EXTRA_DESCR_DATA *SetOExtra( OBJ_DATA * obj, const char *keywords ) { EXTRA_DESCR_DATA *ed; for( ed = obj->first_extradesc; ed; ed = ed->next ) { if( is_name( keywords, ed->keyword ) ) break; } if( !ed ) { CREATE( ed, EXTRA_DESCR_DATA, 1 ); LINK( ed, obj->first_extradesc, obj->last_extradesc, next, prev ); ed->keyword = STRALLOC( keywords ); ed->description = STRALLOC( "" ); top_ed++; } return ed; } bool DelOExtra( OBJ_DATA * obj, char *keywords ) { EXTRA_DESCR_DATA *rmed; for( rmed = obj->first_extradesc; rmed; rmed = rmed->next ) { if( is_name( keywords, rmed->keyword ) ) break; } if( !rmed ) return FALSE; UNLINK( rmed, obj->first_extradesc, obj->last_extradesc, next, prev ); free_extra_descr( rmed ); return TRUE; } EXTRA_DESCR_DATA *SetOExtraProto( OBJ_INDEX_DATA * obj, const char *keywords ) { EXTRA_DESCR_DATA *ed; for( ed = obj->first_extradesc; ed; ed = ed->next ) { if( is_name( keywords, ed->keyword ) ) break; } if( !ed ) { CREATE( ed, EXTRA_DESCR_DATA, 1 ); LINK( ed, obj->first_extradesc, obj->last_extradesc, next, prev ); ed->keyword = STRALLOC( keywords ); ed->description = STRALLOC( "" ); top_ed++; } return ed; } bool DelOExtraProto( OBJ_INDEX_DATA * obj, char *keywords ) { EXTRA_DESCR_DATA *rmed; for( rmed = obj->first_extradesc; rmed; rmed = rmed->next ) { if( is_name( keywords, rmed->keyword ) ) break; } if( !rmed ) return FALSE; UNLINK( rmed, obj->first_extradesc, obj->last_extradesc, next, prev ); STRFREE( rmed->keyword ); STRFREE( rmed->description ); DISPOSE( rmed ); top_ed--; return TRUE; } void fold_area( const AREA_DATA * tarea, const char *filename, bool install ) { ROOM_INDEX_DATA *room = NULL; MPROG_DATA *mprog = NULL; EXIT_DATA *xit = NULL; EXTRA_DESCR_DATA *ed = NULL; char buf[MAX_STRING_LENGTH]; FILE *fpout = NULL; long vnum = 0; sprintf( buf, "Saving %s...", tarea->filename ); log_string_plus( buf, LOG_NORMAL ); sprintf( buf, "%s.bak", filename ); rename( filename, buf ); if( ( fpout = fopen( filename, "w" ) ) == NULL ) { bug( "fold_area: fopen", 0 ); perror( filename ); return; } fprintf( fpout, "#AREA %s~\n\n\n\n", tarea->name ); /* save rooms */ fprintf( fpout, "#ROOMS\n" ); for( room = tarea->first_room; room; room = room->next_in_area ) { vnum = room->vnum; if( install ) { room_extract_mobiles( room ); room_extract_contents( room ); } fprintf( fpout, "#%ld\n", vnum ); fprintf( fpout, "%s~\n", room->name ); fprintf( fpout, "%s~\n", strip_cr( room->description ) ); if( ( room->tele_delay > 0 && room->tele_vnum > 0 ) || room->tunnel > 0 ) fprintf( fpout, "0 %d %d %d %ld %d\n", room->room_flags, room->sector_type, room->tele_delay, room->tele_vnum, room->tunnel ); else fprintf( fpout, "0 %d %d\n", room->room_flags, room->sector_type ); for( xit = room->first_exit; xit; xit = xit->next ) { if( IS_SET( xit->exit_info, EX_PORTAL ) ) /* don't fold portals */ continue; fprintf( fpout, "D%d\n", xit->vdir ); fprintf( fpout, "%s~\n", strip_cr( xit->description ) ); fprintf( fpout, "%s~\n", strip_cr( xit->keyword ) ); if( xit->distance > 1 ) fprintf( fpout, "%d %d %ld %d\n", xit->exit_info & ~EX_BASHED, xit->key, xit->vnum, xit->distance ); else fprintf( fpout, "%d %d %ld\n", xit->exit_info & ~EX_BASHED, xit->key, xit->vnum ); } for( ed = room->first_extradesc; ed; ed = ed->next ) fprintf( fpout, "E\n%s~\n%s~\n", ed->keyword, strip_cr( ed->description ) ); if( room->mudprogs ) { int count = 0; for( mprog = room->mudprogs; mprog; mprog = mprog->next ) { if( ( mprog->arglist && mprog->arglist[0] != '\0' ) ) { if( mprog->type == IN_FILE_PROG ) { fprintf( fpout, "> %s %s~\n", mprog_type_to_name( mprog->type ), mprog->arglist ); count++; } /* Don't let it save progs which came from files. That would be silly. */ else if( mprog->comlist && mprog->comlist[0] != '\0' && !mprog->fileprog ) { fprintf( fpout, "> %s %s~\n%s~\n", mprog_type_to_name( mprog->type ), mprog->arglist, strip_cr( mprog->comlist ) ); count++; } } } if( count > 0 ) fprintf( fpout, "%s", "|\n" ); } fprintf( fpout, "%s", "S\n" ); } fprintf( fpout, "#0\n\n\n" ); /* END */ fprintf( fpout, "#$\n" ); fclose( fpout ); return; } /* * Dangerous command. Can be used to install an area that was either: * (a) already installed but removed from area.lst * (b) designed offline * The mud will likely crash if: * (a) this area is already loaded * (b) it contains vnums that exist * (c) the area has errors * * NOTE: Use of this command is not recommended. -Thoric */ void do_unfoldarea( CHAR_DATA * ch, char *argument ) { if( !argument || argument[0] == '\0' ) { send_to_char( "Unfold what?\r\n", ch ); return; } fBootDb = TRUE; load_area_file( last_area, argument ); fBootDb = FALSE; return; } void do_foldarea( CHAR_DATA * ch, char *argument ) { AREA_DATA *tarea; char arg[MAX_INPUT_LENGTH]; argument = one_argument( argument, arg ); if( arg[0] == '\0' ) { send_to_char( "Usage: foldarea <filename> [remproto]\r\n", ch ); return; } for( tarea = first_area; tarea; tarea = tarea->next ) { if( !str_cmp( tarea->filename, arg ) ) { char filename[MAX_STRING_LENGTH]; sprintf( filename, "%s%s", AREA_DIR, tarea->filename ); send_to_char( "Folding...\r\n", ch ); if( !strcmp( argument, "remproto" ) ) fold_area( tarea, filename, TRUE ); else fold_area( tarea, filename, FALSE ); send_to_char( "Done.\r\n", ch ); return; } } send_to_char( "No such area exists.\r\n", ch ); } extern int top_area; void write_area_list( void ) { AREA_DATA *tarea; FILE *fpout; fpout = fopen( AREA_DIR AREA_LIST, "w" ); if( !fpout ) { bug( "FATAL: cannot open area.lst for writing!\r\n", 0 ); return; } for( tarea = first_area; tarea; tarea = tarea->next ) fprintf( fpout, "%s\n", tarea->filename ); fprintf( fpout, "mobiles\n" ); fprintf( fpout, "objects\n" ); fprintf( fpout, "$\n" ); fclose( fpout ); } void do_astat( CHAR_DATA * ch, char *argument ) { AREA_DATA *tarea = 0; bool found = FALSE; for( tarea = first_area; tarea; tarea = tarea->next ) { if( !str_cmp( tarea->filename, argument ) ) { found = TRUE; break; } } if( !found ) { if( argument && argument[0] != '\0' ) { send_to_char( "Area not found. Check 'zones'.\r\n", ch ); return; } else { tarea = ch->in_room->area; } } if( tarea ) { ch_printf( ch, "Name: %s\r\nFilename: %-20s", tarea->name, tarea->filename ); ch_printf( ch, "Area flags: %s\r\n", flag_string( tarea->flags, area_flags ) ); ch_printf( ch, "Planet: %s\r\n", tarea->planet ? tarea->planet->name : "" ); } else if( IS_SET( ch->in_room->room_flags, ROOM_SPACECRAFT ) ) { ch_printf( ch, "This room is a spacecraft. It has no area.\r\n" ); } else { ch_printf( ch, "This room is not in an area!\r\n" ); bug ( "%s (%s:%d) Room not in an area, and ROOM_SPACECRAFT flag not set.", __FUNCTION__, __FILE__, __LINE__ ); } } void do_aset( CHAR_DATA * ch, char *argument ) { AREA_DATA *tarea; char arg1[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; char arg3[MAX_INPUT_LENGTH]; bool proto, found; long vnum; int value; argument = one_argument( argument, arg1 ); argument = one_argument( argument, arg2 ); vnum = atoi( argument ); if( arg1[0] == '\0' || arg2[0] == '\0' ) { send_to_char( "Usage: aset <area filename> <field> <value>\r\n", ch ); send_to_char( "\r\nField being one of:\r\n", ch ); send_to_char( " name filename\r\n", ch ); send_to_char( " flags planet\r\n", ch ); return; } found = FALSE; proto = FALSE; for( tarea = first_area; tarea; tarea = tarea->next ) if( !str_cmp( tarea->filename, arg1 ) ) { found = TRUE; break; } if( !found ) for( tarea = first_build; tarea; tarea = tarea->next ) if( !str_cmp( tarea->filename, arg1 ) ) { found = TRUE; proto = TRUE; break; } if( !found ) { send_to_char( "Area not found.\r\n", ch ); return; } if( !str_cmp( arg2, "name" ) ) { AREA_DATA *uarea; if( !argument || argument[0] == '\0' ) { send_to_char( "You can't set an area's name to nothing.\r\n", ch ); return; } for( uarea = first_area; uarea; uarea = uarea->next ) { if( !str_cmp( uarea->name, argument ) ) { send_to_char ( "There is already an installed area with that name.\r\n", ch ); return; } } for( uarea = first_build; uarea; uarea = uarea->next ) { if( !str_cmp( uarea->name, argument ) ) { send_to_char ( "There is already a prototype area with that name.\r\n", ch ); return; } } DISPOSE( tarea->name ); tarea->name = str_dup( argument ); send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "no_edit" ) ) { ROOM_INDEX_DATA *room; if( str_cmp( argument, "wholearea" ) ) { send_to_char ( "If you are sure you want the entire area not editable by players\r\nthen you must type, 'aset no_edit wholearea'.\r\n", ch ); return; } for( room = tarea->first_room; room; room = room->next_in_area ) SET_BIT( room->room_flags, ROOM_NOPEDIT ); send_to_char( "OK. Entire area set no_edit for players.\r\n", ch ); send_to_char ( "You might want to make a few rooms editable so they can expand it.\r\n", ch ); send_to_char( "Don't forget to save....\r\n", ch ); return; } if( !str_cmp( arg2, "planet" ) ) { PLANET_DATA *planet; planet = get_planet( argument ); if( tarea->planet ) { tarea->planet->area = NULL; tarea->planet->size = 0; tarea->planet->citysize = 0; tarea->planet->wilderness = 0; tarea->planet->farmland = 0; tarea->planet->barracks = 0; tarea->planet->controls = 0; } if( planet ) { ROOM_INDEX_DATA *room; planet->size = 0; planet->citysize = 0; planet->wilderness = 0; planet->farmland = 0; planet->barracks = 0; planet->controls = 0; tarea->planet = planet; planet->area = tarea; for( room = tarea->first_room; room; room = room->next_in_area ) { planet->size++; if( room->sector_type <= SECT_CITY ) planet->citysize++; else if( room->sector_type == SECT_FARMLAND ) planet->farmland++; else if( room->sector_type != SECT_DUNNO ) planet->wilderness++; if( IS_SET( room->room_flags, ROOM_BARRACKS ) ) planet->barracks++; if( IS_SET( room->room_flags, ROOM_CONTROL ) ) planet->controls++; } save_planet( planet ); } return; } if( !str_cmp( arg2, "filename" ) ) { char filename[256]; char new_fullname[256]; if( proto ) { send_to_char ( "You should only change the filename of installed areas.\r\n", ch ); return; } if( !is_valid_filename( ch, AREA_DIR, argument ) ) return; sprintf( filename, "%s%s", AREA_DIR, tarea->filename ); sprintf( new_fullname, "%s%s", AREA_DIR, argument ); DISPOSE( tarea->filename ); tarea->filename = str_dup( argument ); rename( filename, new_fullname ); write_area_list(); send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "flags" ) ) { if( !argument || argument[0] == '\0' ) { send_to_char( "Usage: aset <filename> flags <flag> [flag]...\r\n", ch ); return; } while( argument[0] != '\0' ) { argument = one_argument( argument, arg3 ); value = get_areaflag( arg3 ); if( value < 0 || value > 31 ) ch_printf( ch, "Unknown flag: %s\r\n", arg3 ); else { if( IS_SET( tarea->flags, 1 << value ) ) REMOVE_BIT( tarea->flags, 1 << value ); else SET_BIT( tarea->flags, 1 << value ); } } return; } do_aset( ch, STRLIT_EMPTY ); return; } void do_rlist( CHAR_DATA * ch, char *argument ) { ROOM_INDEX_DATA *room; AREA_DATA *tarea; char arg[MAX_INPUT_LENGTH]; argument = one_argument( argument, arg ); if( arg[0] == '\0' ) { send_to_char( "Rlist which area?\r\n", ch ); return; } for( tarea = first_area; tarea; tarea = tarea->next ) { if( !str_cmp( tarea->name, arg ) || !str_cmp( tarea->filename, arg ) ) { for( room = tarea->first_room; room; room = room->next_in_area ) pager_printf( ch, "%5d) %s\r\n", room->vnum, room->name ); return; } } send_to_char( "No such area exists... type zones for a list.\r\n", ch ); return; } void do_olist( CHAR_DATA * ch, char *argument ) { OBJ_INDEX_DATA *obj; long vnum; char arg1[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; int lrange; int trange; int hash; argument = one_argument( argument, arg1 ); argument = one_argument( argument, arg2 ); lrange = ( is_number( arg1 ) ? atoi( arg1 ) : 1 ); trange = ( is_number( arg2 ) ? atoi( arg2 ) : 1 ); if( arg1[0] == '\0' ) { for( hash = 0; hash < MAX_KEY_HASH; hash++ ) for( obj = obj_index_hash[hash]; obj; obj = obj->next ) pager_printf( ch, "%5d) %-20s '%s'\r\n", obj->vnum, obj->name, obj->short_descr ); return; } for( vnum = lrange; vnum <= trange; vnum++ ) { if( ( obj = get_obj_index( vnum ) ) == NULL ) continue; pager_printf( ch, "%5d) %-20s (%s)\r\n", vnum, obj->name, obj->short_descr ); } return; } void do_mlist( CHAR_DATA * ch, char *argument ) { MOB_INDEX_DATA *mob; long vnum; char arg1[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; int lrange; int trange; int hash; argument = one_argument( argument, arg1 ); argument = one_argument( argument, arg2 ); if( arg1[0] == '\0' ) { for( hash = 0; hash < MAX_KEY_HASH; hash++ ) for( mob = mob_index_hash[hash]; mob; mob = mob->next ) pager_printf( ch, "%5d) %-20s '%s'\r\n", mob->vnum, mob->player_name, mob->short_descr ); return; } lrange = ( is_number( arg1 ) ? atoi( arg1 ) : 1 ); trange = ( is_number( arg2 ) ? atoi( arg2 ) : 1 ); for( vnum = lrange; vnum <= trange; vnum++ ) { if( ( mob = get_mob_index( vnum ) ) == NULL ) continue; pager_printf( ch, "%5d) %-20s '%s'\r\n", vnum, mob->player_name, mob->short_descr ); } } void mpedit( CHAR_DATA * ch, MPROG_DATA * mprg, int mptype, char *argument ) { if( mptype != -1 ) { mprg->type = 1 << mptype; if( mprg->arglist ) STRFREE( mprg->arglist ); mprg->arglist = STRALLOC( argument ); } ch->substate = SUB_MPROG_EDIT; ch->dest_buf = mprg; if( !mprg->comlist ) mprg->comlist = STRALLOC( "" ); start_editing( ch, mprg->comlist ); return; } /* * Mobprogram editing - cumbersome -Thoric */ void do_mpedit( CHAR_DATA * ch, char *argument ) { char arg1[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; char arg3[MAX_INPUT_LENGTH]; char arg4[MAX_INPUT_LENGTH]; CHAR_DATA *victim; MPROG_DATA *mprog, *mprg, *mprg_next; int value, mptype, cnt; if( IS_NPC( ch ) ) { send_to_char( "Mob's can't mpedit\r\n", ch ); return; } if( !ch->desc ) { send_to_char( "You have no descriptor\r\n", ch ); return; } switch ( ch->substate ) { default: break; case SUB_MPROG_EDIT: if( !ch->dest_buf ) { send_to_char( "Fatal error: report to Thoric.\r\n", ch ); bug( "do_mpedit: sub_mprog_edit: NULL ch->dest_buf", 0 ); ch->substate = SUB_NONE; return; } mprog = ( MPROG_DATA * ) ch->dest_buf; if( mprog->comlist ) STRFREE( mprog->comlist ); mprog->comlist = copy_buffer( ch ); stop_editing( ch ); return; } smash_tilde( argument ); argument = one_argument( argument, arg1 ); argument = one_argument( argument, arg2 ); argument = one_argument( argument, arg3 ); value = atoi( arg3 ); if( arg1[0] == '\0' || arg2[0] == '\0' ) { send_to_char ( "Syntax: mpedit <victim> <command> [number] <program> <value>\r\n", ch ); send_to_char( "\r\n", ch ); send_to_char( "Command being one of:\r\n", ch ); send_to_char( " add delete insert edit list\r\n", ch ); send_to_char( "Program being one of:\r\n", ch ); send_to_char( " act speech rand fight hitprcnt greet allgreet\r\n", ch ); send_to_char( " entry give bribe death time hour script\r\n", ch ); return; } if( !IS_IMMORTAL( ch ) ) { if( ( victim = get_char_room( ch, arg1 ) ) == NULL ) { send_to_char( "They aren't here.\r\n", ch ); return; } } else { if( ( victim = get_char_world( ch, arg1 ) ) == NULL ) { send_to_char( "No one like that in all the realms.\r\n", ch ); return; } } if( get_trust( ch ) < get_trust( victim ) || !IS_NPC( victim ) ) { send_to_char( "You can't do that!\r\n", ch ); return; } if( !can_mmodify( ch, victim ) ) return; if( !IS_SET( victim->act, ACT_PROTOTYPE ) ) { send_to_char( "A mobile must have a prototype flag to be mpset.\r\n", ch ); return; } mprog = victim->pIndexData->mudprogs; set_char_color( AT_GREEN, ch ); if( !str_cmp( arg2, "list" ) ) { cnt = 0; if( !mprog ) { send_to_char( "That mobile has no mob programs.\r\n", ch ); return; } for( mprg = mprog; mprg; mprg = mprg->next ) ch_printf( ch, "%d>%s %s\r\n%s\r\n", ++cnt, mprog_type_to_name( mprg->type ), mprg->arglist, mprg->comlist ); return; } if( !str_cmp( arg2, "edit" ) ) { if( !mprog ) { send_to_char( "That mobile has no mob programs.\r\n", ch ); return; } argument = one_argument( argument, arg4 ); if( arg4[0] != '\0' ) { mptype = get_mpflag( arg4 ); if( mptype == -1 ) { send_to_char( "Unknown program type.\r\n", ch ); return; } } else mptype = -1; if( value < 1 ) { send_to_char( "Program not found.\r\n", ch ); return; } cnt = 0; for( mprg = mprog; mprg; mprg = mprg->next ) { if( ++cnt == value ) { mpedit( ch, mprg, mptype, argument ); victim->pIndexData->progtypes = 0; for( mprg = mprog; mprg; mprg = mprg->next ) victim->pIndexData->progtypes |= mprg->type; return; } } send_to_char( "Program not found.\r\n", ch ); return; } if( !str_cmp( arg2, "delete" ) ) { int num; bool found; if( !mprog ) { send_to_char( "That mobile has no mob programs.\r\n", ch ); return; } argument = one_argument( argument, arg4 ); if( value < 1 ) { send_to_char( "Program not found.\r\n", ch ); return; } cnt = 0; found = FALSE; for( mprg = mprog; mprg; mprg = mprg->next ) { if( ++cnt == value ) { mptype = mprg->type; found = TRUE; break; } } if( !found ) { send_to_char( "Program not found.\r\n", ch ); return; } cnt = num = 0; for( mprg = mprog; mprg; mprg = mprg->next ) if( IS_SET( mprg->type, mptype ) ) num++; if( value == 1 ) { mprg_next = victim->pIndexData->mudprogs; victim->pIndexData->mudprogs = mprg_next->next; } else for( mprg = mprog; mprg; mprg = mprg_next ) { mprg_next = mprg->next; if( ++cnt == ( value - 1 ) ) { mprg->next = mprg_next->next; break; } } STRFREE( mprg_next->arglist ); STRFREE( mprg_next->comlist ); DISPOSE( mprg_next ); if( num <= 1 ) REMOVE_BIT( victim->pIndexData->progtypes, mptype ); send_to_char( "Program removed.\r\n", ch ); return; } if( !str_cmp( arg2, "insert" ) ) { if( !mprog ) { send_to_char( "That mobile has no mob programs.\r\n", ch ); return; } argument = one_argument( argument, arg4 ); mptype = get_mpflag( arg4 ); if( mptype == -1 ) { send_to_char( "Unknown program type.\r\n", ch ); return; } if( value < 1 ) { send_to_char( "Program not found.\r\n", ch ); return; } if( value == 1 ) { CREATE( mprg, MPROG_DATA, 1 ); victim->pIndexData->progtypes |= ( 1 << mptype ); mpedit( ch, mprg, mptype, argument ); mprg->next = mprog; victim->pIndexData->mudprogs = mprg; return; } cnt = 1; for( mprg = mprog; mprg; mprg = mprg->next ) { if( ++cnt == value && mprg->next ) { CREATE( mprg_next, MPROG_DATA, 1 ); victim->pIndexData->progtypes |= ( 1 << mptype ); mpedit( ch, mprg_next, mptype, argument ); mprg_next->next = mprg->next; mprg->next = mprg_next; return; } } send_to_char( "Program not found.\r\n", ch ); return; } if( !str_cmp( arg2, "add" ) ) { mptype = get_mpflag( arg3 ); if( mptype == -1 ) { send_to_char( "Unknown program type.\r\n", ch ); return; } if( mprog != NULL ) for( ; mprog->next; mprog = mprog->next ); CREATE( mprg, MPROG_DATA, 1 ); if( mprog ) mprog->next = mprg; else victim->pIndexData->mudprogs = mprg; victim->pIndexData->progtypes |= ( 1 << mptype ); mpedit( ch, mprg, mptype, argument ); mprg->next = NULL; return; } do_mpedit( ch, STRLIT_EMPTY ); } void do_opedit( CHAR_DATA * ch, char *argument ) { char arg1[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; char arg3[MAX_INPUT_LENGTH]; char arg4[MAX_INPUT_LENGTH]; OBJ_DATA *obj; MPROG_DATA *mprog, *mprg, *mprg_next; int value, mptype, cnt; if( IS_NPC( ch ) ) { send_to_char( "Mob's can't opedit\r\n", ch ); return; } if( !ch->desc ) { send_to_char( "You have no descriptor\r\n", ch ); return; } switch ( ch->substate ) { default: break; case SUB_MPROG_EDIT: if( !ch->dest_buf ) { send_to_char( "Fatal error: report to Thoric.\r\n", ch ); bug( "do_opedit: sub_oprog_edit: NULL ch->dest_buf", 0 ); ch->substate = SUB_NONE; return; } mprog = ( MPROG_DATA * ) ch->dest_buf; if( mprog->comlist ) STRFREE( mprog->comlist ); mprog->comlist = copy_buffer( ch ); stop_editing( ch ); return; } smash_tilde( argument ); argument = one_argument( argument, arg1 ); argument = one_argument( argument, arg2 ); argument = one_argument( argument, arg3 ); value = atoi( arg3 ); if( arg1[0] == '\0' || arg2[0] == '\0' ) { send_to_char ( "Syntax: opedit <object> <command> [number] <program> <value>\r\n", ch ); send_to_char( "\r\n", ch ); send_to_char( "Command being one of:\r\n", ch ); send_to_char( " add delete insert edit list\r\n", ch ); send_to_char( "Program being one of:\r\n", ch ); send_to_char( " act speech rand wear remove sac zap get\r\n", ch ); send_to_char( " drop damage repair greet exa use\r\n", ch ); send_to_char( " pull push (for levers,pullchains,buttons)\r\n", ch ); send_to_char( "\r\n", ch ); send_to_char( "Object should be in your inventory to edit.\r\n", ch ); return; } if( !IS_IMMORTAL( ch ) ) { if( ( obj = get_obj_carry( ch, arg1 ) ) == NULL ) { send_to_char( "You aren't carrying that.\r\n", ch ); return; } } else { if( ( obj = get_obj_world( ch, arg1 ) ) == NULL ) { send_to_char( "Nothing like that in all the realms.\r\n", ch ); return; } } if( !can_omodify( ch, obj ) ) return; if( !IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) { send_to_char( "An object must have a prototype flag to be opset.\r\n", ch ); return; } mprog = obj->pIndexData->mudprogs; set_char_color( AT_GREEN, ch ); if( !str_cmp( arg2, "list" ) ) { cnt = 0; if( !mprog ) { send_to_char( "That object has no obj programs.\r\n", ch ); return; } for( mprg = mprog; mprg; mprg = mprg->next ) ch_printf( ch, "%d>%s %s\r\n%s\r\n", ++cnt, mprog_type_to_name( mprg->type ), mprg->arglist, mprg->comlist ); return; } if( !str_cmp( arg2, "edit" ) ) { if( !mprog ) { send_to_char( "That object has no obj programs.\r\n", ch ); return; } argument = one_argument( argument, arg4 ); if( arg4[0] != '\0' ) { mptype = get_mpflag( arg4 ); if( mptype == -1 ) { send_to_char( "Unknown program type.\r\n", ch ); return; } } else mptype = -1; if( value < 1 ) { send_to_char( "Program not found.\r\n", ch ); return; } cnt = 0; for( mprg = mprog; mprg; mprg = mprg->next ) { if( ++cnt == value ) { mpedit( ch, mprg, mptype, argument ); obj->pIndexData->progtypes = 0; for( mprg = mprog; mprg; mprg = mprg->next ) obj->pIndexData->progtypes |= mprg->type; return; } } send_to_char( "Program not found.\r\n", ch ); return; } if( !str_cmp( arg2, "delete" ) ) { int num; bool found; if( !mprog ) { send_to_char( "That object has no obj programs.\r\n", ch ); return; } argument = one_argument( argument, arg4 ); if( value < 1 ) { send_to_char( "Program not found.\r\n", ch ); return; } cnt = 0; found = FALSE; for( mprg = mprog; mprg; mprg = mprg->next ) { if( ++cnt == value ) { mptype = mprg->type; found = TRUE; break; } } if( !found ) { send_to_char( "Program not found.\r\n", ch ); return; } cnt = num = 0; for( mprg = mprog; mprg; mprg = mprg->next ) if( IS_SET( mprg->type, mptype ) ) num++; if( value == 1 ) { mprg_next = obj->pIndexData->mudprogs; obj->pIndexData->mudprogs = mprg_next->next; } else for( mprg = mprog; mprg; mprg = mprg_next ) { mprg_next = mprg->next; if( ++cnt == ( value - 1 ) ) { mprg->next = mprg_next->next; break; } } STRFREE( mprg_next->arglist ); STRFREE( mprg_next->comlist ); DISPOSE( mprg_next ); if( num <= 1 ) REMOVE_BIT( obj->pIndexData->progtypes, mptype ); send_to_char( "Program removed.\r\n", ch ); return; } if( !str_cmp( arg2, "insert" ) ) { if( !mprog ) { send_to_char( "That object has no obj programs.\r\n", ch ); return; } argument = one_argument( argument, arg4 ); mptype = get_mpflag( arg4 ); if( mptype == -1 ) { send_to_char( "Unknown program type.\r\n", ch ); return; } if( value < 1 ) { send_to_char( "Program not found.\r\n", ch ); return; } if( value == 1 ) { CREATE( mprg, MPROG_DATA, 1 ); obj->pIndexData->progtypes |= ( 1 << mptype ); mpedit( ch, mprg, mptype, argument ); mprg->next = mprog; obj->pIndexData->mudprogs = mprg; return; } cnt = 1; for( mprg = mprog; mprg; mprg = mprg->next ) { if( ++cnt == value && mprg->next ) { CREATE( mprg_next, MPROG_DATA, 1 ); obj->pIndexData->progtypes |= ( 1 << mptype ); mpedit( ch, mprg_next, mptype, argument ); mprg_next->next = mprg->next; mprg->next = mprg_next; return; } } send_to_char( "Program not found.\r\n", ch ); return; } if( !str_cmp( arg2, "add" ) ) { mptype = get_mpflag( arg3 ); if( mptype == -1 ) { send_to_char( "Unknown program type.\r\n", ch ); return; } if( mprog != NULL ) for( ; mprog->next; mprog = mprog->next ); CREATE( mprg, MPROG_DATA, 1 ); if( mprog ) mprog->next = mprg; else obj->pIndexData->mudprogs = mprg; obj->pIndexData->progtypes |= ( 1 << mptype ); mpedit( ch, mprg, mptype, argument ); mprg->next = NULL; return; } do_opedit( ch, STRLIT_EMPTY ); } /* * RoomProg Support */ void rpedit( CHAR_DATA * ch, MPROG_DATA * mprg, int mptype, char *argument ) { if( mptype != -1 ) { mprg->type = 1 << mptype; if( mprg->arglist ) STRFREE( mprg->arglist ); mprg->arglist = STRALLOC( argument ); } ch->substate = SUB_MPROG_EDIT; ch->dest_buf = mprg; if( !mprg->comlist ) mprg->comlist = STRALLOC( "" ); start_editing( ch, mprg->comlist ); return; } void do_rpedit( CHAR_DATA * ch, char *argument ) { char arg1[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; char arg3[MAX_INPUT_LENGTH]; MPROG_DATA *mprog, *mprg, *mprg_next; int value, mptype, cnt; if( IS_NPC( ch ) ) { send_to_char( "Mob's can't rpedit\r\n", ch ); return; } if( !ch->desc ) { send_to_char( "You have no descriptor\r\n", ch ); return; } switch ( ch->substate ) { default: break; case SUB_MPROG_EDIT: if( !ch->dest_buf ) { send_to_char( "Fatal error: report to Thoric.\r\n", ch ); bug( "do_opedit: sub_oprog_edit: NULL ch->dest_buf", 0 ); ch->substate = SUB_NONE; return; } mprog = ( MPROG_DATA * ) ch->dest_buf; if( mprog->comlist ) STRFREE( mprog->comlist ); mprog->comlist = copy_buffer( ch ); stop_editing( ch ); return; } smash_tilde( argument ); argument = one_argument( argument, arg1 ); argument = one_argument( argument, arg2 ); value = atoi( arg2 ); /* argument = one_argument( argument, arg3 ); */ if( arg1[0] == '\0' ) { send_to_char( "Syntax: rpedit <command> [number] <program> <value>\r\n", ch ); send_to_char( "\r\n", ch ); send_to_char( "Command being one of:\r\n", ch ); send_to_char( " add delete insert edit list\r\n", ch ); send_to_char( "Program being one of:\r\n", ch ); send_to_char( " act speech rand sleep rest rfight entry\r\n", ch ); send_to_char( " leave death\r\n", ch ); send_to_char( "\r\n", ch ); send_to_char( "You should be standing in room you wish to edit.\r\n", ch ); return; } if( !can_rmodify( ch, ch->in_room ) ) return; mprog = ch->in_room->mudprogs; set_char_color( AT_GREEN, ch ); if( !str_cmp( arg1, "list" ) ) { cnt = 0; if( !mprog ) { send_to_char( "This room has no room programs.\r\n", ch ); return; } for( mprg = mprog; mprg; mprg = mprg->next ) ch_printf( ch, "%d>%s %s\r\n%s\r\n", ++cnt, mprog_type_to_name( mprg->type ), mprg->arglist, mprg->comlist ); return; } if( !str_cmp( arg1, "edit" ) ) { if( !mprog ) { send_to_char( "This room has no room programs.\r\n", ch ); return; } argument = one_argument( argument, arg3 ); if( arg3[0] != '\0' ) { mptype = get_mpflag( arg3 ); if( mptype == -1 ) { send_to_char( "Unknown program type.\r\n", ch ); return; } } else mptype = -1; if( value < 1 ) { send_to_char( "Program not found.\r\n", ch ); return; } cnt = 0; for( mprg = mprog; mprg; mprg = mprg->next ) { if( ++cnt == value ) { mpedit( ch, mprg, mptype, argument ); ch->in_room->progtypes = 0; for( mprg = mprog; mprg; mprg = mprg->next ) ch->in_room->progtypes |= mprg->type; return; } } send_to_char( "Program not found.\r\n", ch ); return; } if( !str_cmp( arg1, "delete" ) ) { int num; bool found; if( !mprog ) { send_to_char( "That room has no room programs.\r\n", ch ); return; } argument = one_argument( argument, arg3 ); if( value < 1 ) { send_to_char( "Program not found.\r\n", ch ); return; } cnt = 0; found = FALSE; for( mprg = mprog; mprg; mprg = mprg->next ) { if( ++cnt == value ) { mptype = mprg->type; found = TRUE; break; } } if( !found ) { send_to_char( "Program not found.\r\n", ch ); return; } cnt = num = 0; for( mprg = mprog; mprg; mprg = mprg->next ) if( IS_SET( mprg->type, mptype ) ) num++; if( value == 1 ) { mprg_next = ch->in_room->mudprogs; ch->in_room->mudprogs = mprg_next->next; } else for( mprg = mprog; mprg; mprg = mprg_next ) { mprg_next = mprg->next; if( ++cnt == ( value - 1 ) ) { mprg->next = mprg_next->next; break; } } STRFREE( mprg_next->arglist ); STRFREE( mprg_next->comlist ); DISPOSE( mprg_next ); if( num <= 1 ) REMOVE_BIT( ch->in_room->progtypes, mptype ); send_to_char( "Program removed.\r\n", ch ); return; } if( !str_cmp( arg2, "insert" ) ) { if( !mprog ) { send_to_char( "That room has no room programs.\r\n", ch ); return; } argument = one_argument( argument, arg3 ); mptype = get_mpflag( arg2 ); if( mptype == -1 ) { send_to_char( "Unknown program type.\r\n", ch ); return; } if( value < 1 ) { send_to_char( "Program not found.\r\n", ch ); return; } if( value == 1 ) { CREATE( mprg, MPROG_DATA, 1 ); ch->in_room->progtypes |= ( 1 << mptype ); mpedit( ch, mprg, mptype, argument ); mprg->next = mprog; ch->in_room->mudprogs = mprg; return; } cnt = 1; for( mprg = mprog; mprg; mprg = mprg->next ) { if( ++cnt == value && mprg->next ) { CREATE( mprg_next, MPROG_DATA, 1 ); ch->in_room->progtypes |= ( 1 << mptype ); mpedit( ch, mprg_next, mptype, argument ); mprg_next->next = mprg->next; mprg->next = mprg_next; return; } } send_to_char( "Program not found.\r\n", ch ); return; } if( !str_cmp( arg1, "add" ) ) { mptype = get_mpflag( arg2 ); if( mptype == -1 ) { send_to_char( "Unknown program type.\r\n", ch ); return; } if( mprog ) for( ; mprog->next; mprog = mprog->next ); CREATE( mprg, MPROG_DATA, 1 ); if( mprog ) mprog->next = mprg; else ch->in_room->mudprogs = mprg; ch->in_room->progtypes |= ( 1 << mptype ); mpedit( ch, mprg, mptype, argument ); mprg->next = NULL; return; } do_rpedit( ch, STRLIT_EMPTY ); } void do_allsave( CHAR_DATA * ch, char *argument ) { save_mobs(); save_objects(); write_area_list(); } void save_mobs() { MOB_INDEX_DATA *pMobIndex; MPROG_DATA *mprog; SHOP_DATA *pShop; REPAIR_DATA *pRepair; char buf[MAX_STRING_LENGTH]; FILE *fpout; long vnum; bool complexmob; int hash; char filename[MAX_STRING_LENGTH]; char bakfilename[MAX_STRING_LENGTH]; sprintf( filename, "%smobiles", AREA_DIR ); sprintf( bakfilename, "%s.bak", filename ); sprintf( buf, "Saving Mobiles...." ); log_string_plus( buf, LOG_NORMAL ); rename( filename, bakfilename ); if( ( fpout = fopen( filename, "w" ) ) == NULL ) { bug( "save_mobiles: fopen", 0 ); perror( "mobiles" ); return; } fprintf( fpout, "#MOBILES\n" ); for( hash = 0; hash < MAX_KEY_HASH; hash++ ) for( pMobIndex = mob_index_hash[hash]; pMobIndex; pMobIndex = pMobIndex->next ) { vnum = pMobIndex->vnum; if( pMobIndex->perm_str != 13 || pMobIndex->perm_int != 13 || pMobIndex->perm_wis != 13 || pMobIndex->perm_dex != 13 || pMobIndex->perm_con != 13 || pMobIndex->perm_cha != 13 || pMobIndex->perm_lck != 13 || pMobIndex->hitroll != 0 || pMobIndex->damroll != 0 || pMobIndex->attacks != 0 || pMobIndex->defenses != 0 || pMobIndex->height != 0 || pMobIndex->weight != 0 || pMobIndex->numattacks != 1 ) complexmob = TRUE; else complexmob = FALSE; fprintf( fpout, "#%ld\n", vnum ); fprintf( fpout, "%s~\n", pMobIndex->player_name ); fprintf( fpout, "%s~\n", pMobIndex->short_descr ); fprintf( fpout, "%s~\n", strip_cr( pMobIndex->long_descr ) ); fprintf( fpout, "%s~\n", strip_cr( pMobIndex->description ) ); fprintf( fpout, "%d %d %d %c\n", pMobIndex->act, pMobIndex->affected_by, pMobIndex->alignment, complexmob ? 'Z' : 'S' ); fprintf( fpout, "%d %d %d ", pMobIndex->level, 0, /*pMobIndex->mobthac0,*/ pMobIndex->ac ); fprintf( fpout, "%dd%d+%d ", pMobIndex->hitnodice, pMobIndex->hitsizedice, pMobIndex->hitplus ); fprintf( fpout, "%dd%d+%d\n", pMobIndex->damnodice, pMobIndex->damsizedice, pMobIndex->damplus ); fprintf( fpout, "%d 0\n", pMobIndex->gold ); fprintf( fpout, "%d %d %d\n", pMobIndex->position, pMobIndex->defposition, pMobIndex->sex ); if( complexmob ) { fprintf( fpout, "%d %d %d %d %d %d %d\n", pMobIndex->perm_str, pMobIndex->perm_int, pMobIndex->perm_wis, pMobIndex->perm_dex, pMobIndex->perm_con, pMobIndex->perm_cha, pMobIndex->perm_lck ); fprintf( fpout, "%d %d %d %d %d\n", pMobIndex->saving_poison_death, pMobIndex->saving_wand, pMobIndex->saving_para_petri, pMobIndex->saving_breath, pMobIndex->saving_spell_staff ); fprintf( fpout, "0 0 %d %d 0 0 %d\n", pMobIndex->height, pMobIndex->weight, pMobIndex->numattacks ); fprintf( fpout, "%d %d %d %d %d %d %d %d\n", pMobIndex->hitroll, pMobIndex->damroll, 0, /* pMobIndex->xflags, */ pMobIndex->resistant, pMobIndex->immune, pMobIndex->susceptible, pMobIndex->attacks, pMobIndex->defenses ); fprintf( fpout, "0 0 0 0 0 0 0 0\n" ); } if( pMobIndex->mudprogs ) { int count = 0; for( mprog = pMobIndex->mudprogs; mprog; mprog = mprog->next ) { if( ( mprog->arglist && mprog->arglist[0] != '\0' ) ) { if( mprog->type == IN_FILE_PROG ) { fprintf( fpout, "> %s %s~\n", mprog_type_to_name( mprog->type ), mprog->arglist ); count++; } /* Don't let it save progs which came from files. That would be silly. */ else if( mprog->comlist && mprog->comlist[0] != '\0' && !mprog->fileprog ) { fprintf( fpout, "> %s %s~\n%s~\n", mprog_type_to_name( mprog->type ), mprog->arglist, strip_cr( mprog->comlist ) ); count++; } } } if( count > 0 ) fprintf( fpout, "%s", "|\n" ); } } fprintf( fpout, "#0\n\n\n" ); fprintf( fpout, "#SHOPS\n" ); for( hash = 0; hash < MAX_KEY_HASH; hash++ ) for( pMobIndex = mob_index_hash[hash]; pMobIndex; pMobIndex = pMobIndex->next ) { vnum = pMobIndex->vnum; if( ( pShop = pMobIndex->pShop ) == NULL ) continue; fprintf( fpout, " %d %2d %2d %2d %2d %2d %3d %3d", pShop->keeper, pShop->buy_type[0], pShop->buy_type[1], pShop->buy_type[2], pShop->buy_type[3], pShop->buy_type[4], pShop->profit_buy, pShop->profit_sell ); fprintf( fpout, " %2d %2d ; %s\n", pShop->open_hour, pShop->close_hour, pMobIndex->short_descr ); } fprintf( fpout, "0\n\n\n" ); /* save repair shops */ fprintf( fpout, "#REPAIRS\n" ); for( hash = 0; hash < MAX_KEY_HASH; hash++ ) for( pMobIndex = mob_index_hash[hash]; pMobIndex; pMobIndex = pMobIndex->next ) { vnum = pMobIndex->vnum; if( ( pRepair = pMobIndex->rShop ) == NULL ) continue; fprintf( fpout, " %d %2d %2d %2d %3d %3d", pRepair->keeper, pRepair->fix_type[0], pRepair->fix_type[1], pRepair->fix_type[2], pRepair->profit_fix, pRepair->shop_type ); fprintf( fpout, " %2d %2d ; %s\n", pRepair->open_hour, pRepair->close_hour, pMobIndex->short_descr ); } fprintf( fpout, "0\n\n\n" ); /* save specials */ fprintf( fpout, "#SPECIALS\n" ); for( hash = 0; hash < MAX_KEY_HASH; hash++ ) for( pMobIndex = mob_index_hash[hash]; pMobIndex; pMobIndex = pMobIndex->next ) { vnum = pMobIndex->vnum; if( pMobIndex->spec_fun ) fprintf( fpout, "M %ld %s\n", pMobIndex->vnum, lookup_spec( pMobIndex->spec_fun ) ); if( pMobIndex->spec_2 ) fprintf( fpout, "M %ld %s\n", pMobIndex->vnum, lookup_spec( pMobIndex->spec_2 ) ); } fprintf( fpout, "S\n\n\n" ); /* END */ fprintf( fpout, "#$\n" ); fclose( fpout ); } void save_objects() { OBJ_INDEX_DATA *pObjIndex; EXTRA_DESCR_DATA *ed; char buf[MAX_STRING_LENGTH]; FILE *fpout; long vnum; int hash, val0, val1, val2, val3, val4, val5; AFFECT_DATA *paf; MPROG_DATA *mprog; char filename[MAX_STRING_LENGTH]; char bakfilename[MAX_STRING_LENGTH]; sprintf( filename, "%sobjects", AREA_DIR ); sprintf( bakfilename, "%s.bak", filename ); sprintf( buf, "Saving Objects..." ); log_string_plus( buf, LOG_NORMAL ); rename( filename, bakfilename ); if( ( fpout = fopen( filename, "w" ) ) == NULL ) { bug( "fold_area: fopen", 0 ); perror( "objects" ); return; } fprintf( fpout, "#OBJECTS\n" ); for( hash = 0; hash < MAX_KEY_HASH; hash++ ) for( pObjIndex = obj_index_hash[hash]; pObjIndex; pObjIndex = pObjIndex->next ) { vnum = pObjIndex->vnum; fprintf( fpout, "#%ld\n", vnum ); fprintf( fpout, "%s~\n", pObjIndex->name ); fprintf( fpout, "%s~\n", pObjIndex->short_descr ); fprintf( fpout, "%s~\n", pObjIndex->description ); fprintf( fpout, "%s~\n", pObjIndex->action_desc ); if( pObjIndex->layers ) fprintf( fpout, "%d %d %d %d\n", pObjIndex->item_type, pObjIndex->extra_flags, pObjIndex->wear_flags, pObjIndex->layers ); else fprintf( fpout, "%d %d %d\n", pObjIndex->item_type, pObjIndex->extra_flags, pObjIndex->wear_flags ); val0 = pObjIndex->value[0]; val1 = pObjIndex->value[1]; val2 = pObjIndex->value[2]; val3 = pObjIndex->value[3]; val4 = pObjIndex->value[4]; val5 = pObjIndex->value[5]; switch ( pObjIndex->item_type ) { case ITEM_DEVICE: if( IS_VALID_SN( val3 ) ) val3 = skill_table[val3]->slot; break; } if( val4 || val5 ) fprintf( fpout, "%d %d %d %d %d %d\n", val0, val1, val2, val3, val4, val5 ); else fprintf( fpout, "%d %d %d %d\n", val0, val1, val2, val3 ); fprintf( fpout, "%d %d 0\n", pObjIndex->weight, pObjIndex->cost ); for( ed = pObjIndex->first_extradesc; ed; ed = ed->next ) fprintf( fpout, "E\n%s~\n%s~\n", ed->keyword, strip_cr( ed->description ) ); for( paf = pObjIndex->first_affect; paf; paf = paf->next ) fprintf( fpout, "A\n%d %d\n", paf->location, ( ( paf->location == APPLY_WEAPONSPELL || paf->location == APPLY_WEARSPELL || paf->location == APPLY_REMOVESPELL || paf->location == APPLY_STRIPSN ) && IS_VALID_SN( paf->modifier ) ) ? skill_table[paf->modifier]->slot : paf->modifier ); if( pObjIndex->mudprogs ) { int count = 0; for( mprog = pObjIndex->mudprogs; mprog; mprog = mprog->next ) { if( ( mprog->arglist && mprog->arglist[0] != '\0' ) ) { if( mprog->type == IN_FILE_PROG ) { fprintf( fpout, "> %s %s~\n", mprog_type_to_name( mprog->type ), mprog->arglist ); count++; } /* Don't let it save progs which came from files. That would be silly. */ else if( mprog->comlist && mprog->comlist[0] != '\0' && !mprog->fileprog ) { fprintf( fpout, "> %s %s~\n%s~\n", mprog_type_to_name( mprog->type ), mprog->arglist, strip_cr( mprog->comlist ) ); count++; } } } if( count > 0 ) fprintf( fpout, "%s", "|\n" ); } } fprintf( fpout, "#0\n\n\n" ); /* END */ fprintf( fpout, "#$\n" ); fclose( fpout ); } void save_some_areas() { AREA_DATA *area; char filename[256]; for( area = first_area; area; area = area->next ) { if( IS_SET( area->flags, AFLAG_MODIFIED ) ) { REMOVE_BIT( area->flags, AFLAG_MODIFIED ); sprintf( filename, "%s%s", AREA_DIR, area->filename ); fold_area( area, filename, FALSE ); } } }