/**************************************************************************** * ResortMUD 4.0 Beta by Ntanel, Garinan, Badastaz, Josh, Digifuzz, Senir, * * Kratas, Scion, Shogar and Tagith. Special thanks to Thoric, Nivek, * * Altrag, Arlorn, Justice, Samson, Dace, HyperEye and Yakkov. * **************************************************************************** * Copyright (C) 1996 - 2001 Haslage Net Electronics: MudWorld * * of Lorain, Ohio - ALL RIGHTS RESERVED * * The text and pictures of this publication, or any part thereof, may not * * be reproduced or transmitted in any form or by any means, electronic or * * mechanical, includes photocopying, recording, storage in a information * * retrieval system, or otherwise, without the prior written or e-mail * * consent from the publisher. * **************************************************************************** * GREETING must mention ResortMUD programmers and the help file named * * CREDITS must remain completely intact as listed in the SMAUG license. * ****************************************************************************/ /**************************************************************************** * [S]imulated [M]edieval [A]dventure multi[U]ser [G]ame | \\._.// * * -----------------------------------------------------------| (0...0) * * SMAUG 1.0 (C) 1994, 1995, 1996, 1998 by Derek Snider | ).:.( * * -----------------------------------------------------------| {o o} * * SMAUG code team: Thoric, Altrag, Blodkai, Narn, Haus, | / ' ' \ * * Scryn, Rennard, Swordbearer, Gorog, Grishnakh, Nivek, |~'~.VxvxV.~'~* * Tricops and Fireblade | * * ------------------------------------------------------------------------ * * Merc 2.1 Diku Mud improvments copyright (C) 1992, 1993 by Michael * * Chastain, Michael Quan, and Mitchell Tse. * * Original Diku Mud copyright (C) 1990, 1991 by Sebastian Hammer, * * Michael Seifert, Hans Henrik St{rfeldt, Tom Madsen, and Katja Nyboe. * * ------------------------------------------------------------------------ * * Online Building and Editing Module * ****************************************************************************/ #include <sys/types.h> #include <ctype.h> #include <stdio.h> #include <string.h> #include <time.h> #include "mud.h" extern int top_affect; extern int top_reset; extern int top_ed; extern bool fBootDb; REL_DATA *first_relation = NULL; REL_DATA *last_relation = NULL; char *sprint_reset( RESET_DATA * pReset, short *num ); void fix_exits( void ); bool check_area_conflict( AREA_DATA *area, int low_range, int hi_range ); char *const fur_pos[] = { "stand_at", "stand_on", "stand_in", "sit_at", "sit_on", "sit_in", "reset_at", "rest_on", "rest_in", "sleep_at", "sleep_on", "sleep_in", "put_at", "put_on", "put_in" }; char *const ex_pmisc[] = { "undefined", "vortex", "vacuum", "slip", "ice", "mysterious" }; char *const ex_pwater[] = { "current", "wave", "whirlpool", "geyser" }; char *const ex_pair[] = { "wind", "storm", "coldwind", "breeze" }; char *const ex_pearth[] = { "landslide", "sinkhole", "quicksand", "earthquake" }; char *const ex_pfire[] = { "lava", "hotair" }; char *const ex_flags[] = { "isdoor", "closed", "locked", "secret", "swim", "pickproof", "fly", "climb", "dig", "eatkey", "nopassdoor", "hidden", "passage", "portal", "r14", "r15", "can_climb", "can_enter", "can_leave", "auto", "noflee", "searchable", "bashed", "bashproof", "nomob", "window", "can_look", "r27", "r28", "r29", "r30", "r31" }; char *const r_flags[] = { "dark", "death", "nomob", "indoors", "lawful", "neutral", "chaotic", "nomagic", "tunnel", "private", "safe", "solitary", "petshop", "norecall", "donation", "nodropall", "silence", "logspeech", "nodrop", "clanstoreroom", "nosummon", "noastral", "teleport", "teleshowdesc", "nofloor", "nosupplicate", "arena", "nomissile", "amplify", "locker", "prototype", "r31" }; char *const o_flags[] = { "glow", "hum", "dark", "loyal", "evil", "invis", "magic", "nodrop", "bless", "antigood", "antievil", "antineutral", "noremove", "inventory", "antimage", "antithief", "antiwarrior", "anticleric", "organic", "metal", "donation", "clanobject", "clancorpse", "antivampire", "antidruid", "hidden", "poisoned", "covering", "deathrot", "buried", "prototype", "nolocate", "groundrot", "artifact", "plrbld" }; char *const container_flags[] = { "closeable", "pickproof", "closed", "locked", "eatkey", "r1", "r2", "r3", "r4", "r5", "r6", "r7", "r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15", "r16", "r17", "r18", "r19", "r20", "r21", "r22", "r23", "r24", "r25", "r26", "r27" }; char *const mag_flags[] = { "returning", "backstabber", "bane", "loyal", "haste", "drain", "lightning_blade" }; char *const w_flags[] = { "take", "finger", "neck", "body", "head", "legs", "feet", "hands", "arms", "shield", "about", "waist", "wrist", "wield", "hold", "_dual_", "ears", "eyes", "missile", "back", "face", "ankle", "floating", "r5", "r6", "r7", "r8", "r9", "r10", "r11", "r12", "r13" }; char *const area_flags[] = { "nopkill", "freekill", "noteleport", "prototype", "r4", "r5", "r6", "r7", "r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15", "r16", "r17", "r18", "r19", "r20", "r21", "r22", "r23", "r24", "r25", "r26", "r27", "r28", "r29", "r30", "r31" }; char *const o_types[] = { "none", "light", "scroll", "wand", "staff", "weapon", "_fireweapon", "_missile", "treasure", "armor", "potion", "_worn", "furniture", "trash", "_oldtrap", "container", "_note", "drinkcon", "key", "food", "money", "pen", "boat", "corpse", "corpse_pc", "fountain", "pill", "blood", "bloodstain", "scraps", "pipe", "herbcon", "herb", "incense", "fire", "book", "switch", "lever", "pullchain", "button", "dial", "rune", "runepouch", "match", "trap", "map", "portal", "paper", "tinder", "lockpick", "spike", "disease", "oil", "fuel", "_empty1", "_empty2", "missileweapon", "projectile", "quiver", "shovel", "salve", "cook", "keyring", "odor" }; char *const a_types[] = { "none", "strength", "dexterity", "intelligence", "wisdom", "constitution", "sex", "class", "level", "age", "height", "weight", "mana", "hit", "move", "gold", "experience", "armor", "hitroll", "damroll", "save_poison", "save_rod", "save_para", "save_breath", "save_spell", "charisma", "affected", "resistant", "immune", "susceptible", "weaponspell", "luck", "backstab", "pick", "track", "steal", "sneak", "hide", "palm", "detrap", "dodge", "peek", "scan", "gouge", "search", "mount", "disarm", "kick", "parry", "bash", "stun", "punch", "climb", "grip", "scribe", "brew", "wearspell", "removespell", "emotion", "mentalstate", "stripsn", "remove", "dig", "full", "thirst", "drunk", "blood", "cook", "recurringspell", "contagious", "xaffected", "odor", "roomflag", "sectortype", "roomlight", "televnum", "teledelay" }; char *const a_flags[] = { "blind", "invisible", "detect_evil", "detect_invis", "detect_magic", "detect_hidden", "hold", "sanctuary", "faerie_fire", "infrared", "curse", "_flaming", "poison", "protect", "_paralysis", "sneak", "hide", "sleep", "charm", "flying", "pass_door", "floating", "truesight", "detect_traps", "scrying", "fireshield", "shockshield", "r1", "iceshield", "possess", "berserk", "aqua_breath", "recurringspell", "contagious", "haste", "slow" }; char *const act_flags[] = { "npc", "sentinel", "scavenger", "r1", "r2", "aggressive", "stayarea", "wimpy", "pet", "train", "practice", "immortal", "deadly", "polyself", "meta_aggr", "guardian", "running", "nowander", "mountable", "mounted", "scholar", "secretive", "r10", "mobinvis", "noassist", "autonomous", "pacifist", "noattack", "annoying", "r13", "prototype", "r14", "banker", }; char *const pc_flags[] = { "r1", "deadly", "unauthed", "norecall", "nointro", "gag", "retired", "guest", /* changed "r8" to "" so players on watch can't see it -- Gorog */ "nosummon", "pager", "notitled", "groupwho", "diagnose", "highgag", "", "nstart", "dnd", "idle", "r18", "r19", "r20", "r21", "r22", "r23", "r24", "r25", "r26", "r27", "r28", "r29", "r30", "r31" }; char *const plr_flags[] = { "npc", "boughtpet", "shovedrag", "autoexits", "autoloot", "autosac", "blank", "outcast", "brief", "combine", "prompt", "telnet_ga", "holylight", "wizinvis", "roomvnum", "silence", "noemote", "attacker", "notell", "log", "deny", "freeze", "thief", "killer", "litterbug", "ansi", "rip", "nice", "flee", "autogold", "automap", "afk", "invisprompt", "married", "nomenu" }; char *const trap_flags[] = { "room", "obj", "enter", "leave", "open", "close", "get", "put", "pick", "unlock", "north", "south", "east", "r1", "west", "up", "down", "examine", "r2", "r3", "r4", "r5", "r6", "r7", "r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15" }; char *const cmd_flags[] = { "possessed", "polymorphed", "r1", "r2", "r3", "r4", "r5", "r6", "r7", "r8", "r9", "r10", "r11", "r12", "r13", "r14", "r15", "r16", "r17", "r18", "r19", "r20", "r21", "r22", "r23", "r24", "r25", "r26", "r27", "r28", "r29", "r30" }; char *const wear_locs[] = { "light", "finger1", "finger2", "neck1", "neck2", "body", "head", "legs", "feet", "hands", "arms", "shield", "about", "waist", "wrist1", "wrist2", "wield", "hold", "dual_wield", "ears", "eyes", "missile_wield", "back", "face", "ankle1", "ankle2", "float" }; char *const ris_flags[] = { "fire", "cold", "electricity", "energy", "blunt", "pierce", "slash", "acid", "poison", "drain", "sleep", "charm", "hold", "nonmagic", "plus1", "plus2", "plus3", "plus4", "plus5", "plus6", "magic", "paralysis", "r1", "r2", "r3", "r4", "r5", "r6", "r7", "r8", "r9", "r10" }; char *const trig_flags[] = { "up", "unlock", "lock", "d_north", "d_south", "d_east", "d_west", "d_up", "d_down", "door", "container", "open", "close", "passage", "oload", "mload", "teleport", "teleportall", "teleportplus", "death", "cast", "fakeblade", "rand4", "rand6", "trapdoor", "anotherroom", "usedial", "absolutevnum", "showroomdesc", "autoreturn", "r2", "r3" }; char *const part_flags[] = { "head", "arms", "legs", "heart", "brains", "guts", "hands", "feet", "fingers", "ear", "eye", "long_tongue", "eyestalks", "tentacles", "fins", "wings", "tail", "scales", "claws", "fangs", "horns", "tusks", "tailattack", "sharpscales", "beak", "haunches", "hooves", "paws", "forelegs", "feathers", "r1", "r2" }; char *const attack_flags[] = { "bite", "claws", "tail", "sting", "punch", "kick", "trip", "bash", "stun", "gouge", "backstab", "feed", "drain", "firebreath", "frostbreath", "acidbreath", "lightnbreath", "gasbreath", "poison", "nastypoison", "gaze", "blindness", "causeserious", "earthquake", "causecritical", "curse", "flamestrike", "harm", "fireball", "colorspray", "weaken", "spiralblast" }; char *const defense_flags[] = { "parry", "dodge", "heal", "curelight", "cureserious", "curecritical", "dispelmagic", "dispelevil", "sanctuary", "fireshield", "shockshield", "shield", "bless", "stoneskin", "teleport", "monsum1", "monsum2", "monsum3", "monsum4", "disarm", "iceshield", "grip", "truesight", "acidmist", "venomshield" }; /* * Note: I put them all in one big set of flags since almost all of these * can be shared between mobs, objs and rooms for the exception of * bribe and hitprcnt, which will probably only be used on mobs. * ie: drop -- for an object, it would be triggered when that object is * dropped; -- for a room, it would be triggered when anything is dropped * -- for a mob, it would be triggered when anything is dropped * * Something to consider: some of these triggers can be grouped together, * and differentiated by different arguments... for example: * hour and time, rand and randiw, speech and speechiw * */ char *const mprog_flags[] = { "act", "speech", "rand", "fight", "death", "hitprcnt", "entry", "greet", "allgreet", "give", "bribe", "hour", "time", "wear", "remove", "sac", "look", "exa", "zap", "get", "drop", "damage", "repair", "randiw", "speechiw", "pull", "push", "sleep", "rest", "leave", "script", "use" }; char *flag_string( int bitvector, char *const flagarray[] ) { static char buf[MAX_STRING_LENGTH]; int x; buf[0] = '\0'; for( x = 0; x < 32; x++ ) if( IS_SET( bitvector, 1 << x ) ) { strcat( buf, flagarray[x] ); strcat( buf, " " ); } if( ( x = strlen( buf ) ) > 0 ) buf[--x] = '\0'; return buf; } char *ext_flag_string( EXT_BV * bitvector, char *const flagarray[] ) { static char buf[MAX_STRING_LENGTH]; int x; buf[0] = '\0'; for( x = 0; x < MAX_BITS; x++ ) if( xIS_SET( *bitvector, x ) ) { strcat( buf, flagarray[x] ); strcat( buf, " " ); } if( ( x = strlen( buf ) ) > 0 ) buf[--x] = '\0'; return buf; } bool can_rmodify( CHAR_DATA * ch, ROOM_INDEX_DATA * room ) { int vnum = room->vnum; AREA_DATA *pArea; if( IS_NPC( ch ) ) return FALSE; if( get_trust( ch ) >= sysdata.level_modify_proto ) return TRUE; if( !IS_SET( room->room_flags, ROOM_PROTOTYPE ) ) { send_to_char( "You cannot modify this room.\r\n", ch ); return FALSE; } if( !ch->pcdata || !( pArea = ch->pcdata->area ) ) { send_to_char( "You must have an assigned area to modify this room.\r\n", ch ); return FALSE; } if( vnum >= pArea->low_r_vnum && vnum <= pArea->hi_r_vnum ) return TRUE; send_to_char( "That room is not in your allocated range.\r\n", ch ); return FALSE; } bool can_omodify( CHAR_DATA * ch, OBJ_DATA * obj ) { int vnum = obj->pIndexData->vnum; AREA_DATA *pArea; if( IS_NPC( ch ) ) return FALSE; if( get_trust( ch ) >= sysdata.level_modify_proto ) return TRUE; if( !IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) { send_to_char( "You cannot modify this object.\r\n", ch ); return FALSE; } if( !ch->pcdata || !( pArea = ch->pcdata->area ) ) { send_to_char( "You must have an assigned area to modify this object.\r\n", ch ); return FALSE; } if( vnum >= pArea->low_o_vnum && vnum <= pArea->hi_o_vnum ) return TRUE; send_to_char( "That object is not in your allocated range.\r\n", ch ); return FALSE; } bool can_oedit( CHAR_DATA * ch, OBJ_INDEX_DATA * obj ) { int vnum = obj->vnum; AREA_DATA *pArea; if( IS_NPC( ch ) ) return FALSE; if( get_trust( ch ) >= LEVEL_GOD ) return TRUE; if( !IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) { send_to_char( "You cannot modify this object.\r\n", ch ); return FALSE; } if( !ch->pcdata || !( pArea = ch->pcdata->area ) ) { send_to_char( "You must have an assigned area to modify this object.\r\n", ch ); return FALSE; } if( vnum >= pArea->low_o_vnum && vnum <= pArea->hi_o_vnum ) return TRUE; send_to_char( "That object is not in your allocated range.\r\n", ch ); return FALSE; } bool can_mmodify( CHAR_DATA * ch, CHAR_DATA * mob ) { int vnum; AREA_DATA *pArea; if( mob == ch ) return TRUE; if( !IS_NPC( mob ) ) { if( get_trust( ch ) >= sysdata.level_modify_proto && get_trust( ch ) > get_trust( mob ) ) return TRUE; else send_to_char( "You can't do that.\r\n", ch ); return FALSE; } vnum = mob->pIndexData->vnum; if( IS_NPC( ch ) ) return FALSE; if( get_trust( ch ) >= sysdata.level_modify_proto ) return TRUE; if( !xIS_SET( mob->act, ACT_PROTOTYPE ) ) { send_to_char( "You cannot modify this mobile.\r\n", ch ); return FALSE; } if( !ch->pcdata || !( pArea = ch->pcdata->area ) ) { send_to_char( "You must have an assigned area to modify this mobile.\r\n", ch ); return FALSE; } if( vnum >= pArea->low_m_vnum && vnum <= pArea->hi_m_vnum ) return TRUE; send_to_char( "That mobile is not in your allocated range.\r\n", ch ); return FALSE; } bool can_medit( CHAR_DATA * ch, MOB_INDEX_DATA * mob ) { int vnum = mob->vnum; AREA_DATA *pArea; if( IS_NPC( ch ) ) return FALSE; if( get_trust( ch ) >= LEVEL_GOD ) return TRUE; if( !xIS_SET( mob->act, ACT_PROTOTYPE ) ) { send_to_char( "You cannot modify this mobile.\r\n", ch ); return FALSE; } if( !ch->pcdata || !( pArea = ch->pcdata->area ) ) { send_to_char( "You must have an assigned area to modify this mobile.\r\n", ch ); return FALSE; } if( vnum >= pArea->low_m_vnum && vnum <= pArea->hi_m_vnum ) return TRUE; send_to_char( "That mobile is not in your allocated range.\r\n", ch ); return FALSE; } int get_otype( char *type ) { int x; for( x = 0; x < ( sizeof( o_types ) / sizeof( o_types[0] ) ); x++ ) if( !str_cmp( type, o_types[x] ) ) return x; return -1; } int get_aflag( char *flag ) { int x; for( x = 0; x < ( sizeof( a_flags ) / sizeof( a_flags[0] ) ); x++ ) if( !str_cmp( flag, a_flags[x] ) ) return x; return -1; } int get_trapflag( char *flag ) { int x; for( x = 0; x < ( sizeof( trap_flags ) / sizeof( trap_flags[0] ) ); x++ ) if( !str_cmp( flag, trap_flags[x] ) ) return x; return -1; } int get_atype( char *type ) { int x; for( x = 0; x < ( sizeof( a_types ) / sizeof( a_types[0] ) ); x++ ) if( !str_cmp( type, a_types[x] ) ) return x; return -1; } int get_npc_race( char *type ) { int x; for( x = 0; x < MAX_NPC_RACE; x++ ) if( !str_cmp( type, npc_race[x] ) ) return x; return -1; } int get_fur_pos( char *type ) { int x; for( x = 0; x < ( sizeof( fur_pos ) / sizeof( fur_pos[0] ) ); x++ ) if( !str_cmp( type, fur_pos[x] ) ) return x; return -1; } int get_pc_class( char *Class ) { int x; for( x = 0; x < MAX_CLASS; x++ ) if( !str_cmp( class_table[x]->who_name, Class ) ) return x; return -1; } int get_pc_race( char *type ) { int i; for( i = 0; i < MAX_RACE; i++ ) if( !str_cmp( type, race_table[i]->race_name ) ) return i; return -1; } int get_wearloc( char *type ) { int x; for( x = 0; x < ( sizeof( wear_locs ) / sizeof( wear_locs[0] ) ); x++ ) if( !str_cmp( type, wear_locs[x] ) ) return x; return -1; } int get_exflag( char *flag ) { int x; for( x = 0; x < ( sizeof( ex_flags ) / sizeof( ex_flags[0] ) ); x++ ) if( !str_cmp( flag, ex_flags[x] ) ) return x; return -1; } int get_pulltype( char *type ) { int x; if( !str_cmp( type, "none" ) || !str_cmp( type, "clear" ) ) return 0; for( x = 0; x < ( sizeof( ex_pmisc ) / sizeof( ex_pmisc[0] ) ); x++ ) if( !str_cmp( type, ex_pmisc[x] ) ) return x; for( x = 0; x < ( sizeof( ex_pwater ) / sizeof( ex_pwater[0] ) ); x++ ) if( !str_cmp( type, ex_pwater[x] ) ) return x + PT_WATER; for( x = 0; x < ( sizeof( ex_pair ) / sizeof( ex_pair[0] ) ); x++ ) if( !str_cmp( type, ex_pair[x] ) ) return x + PT_AIR; for( x = 0; x < ( sizeof( ex_pearth ) / sizeof( ex_pearth[0] ) ); x++ ) if( !str_cmp( type, ex_pearth[x] ) ) return x + PT_EARTH; for( x = 0; x < ( sizeof( ex_pfire ) / sizeof( ex_pfire[0] ) ); x++ ) if( !str_cmp( type, ex_pfire[x] ) ) return x + PT_FIRE; return -1; } int get_rflag( char *flag ) { int x; for( x = 0; x < ( sizeof( r_flags ) / sizeof( r_flags[0] ) ); x++ ) if( !str_cmp( flag, r_flags[x] ) ) return x; return -1; } int get_mpflag( char *flag ) { int x; for( x = 0; x < ( sizeof( mprog_flags ) / sizeof( mprog_flags[0] ) ); x++ ) if( !str_cmp( flag, mprog_flags[x] ) ) return x; return -1; } int get_oflag( char *flag ) { int x; for( x = 0; x < ( sizeof( o_flags ) / sizeof( o_flags[0] ) ); x++ ) if( !str_cmp( flag, o_flags[x] ) ) return x; return -1; } int get_areaflag( char *flag ) { int x; for( x = 0; x < ( sizeof( area_flags ) / sizeof( area_flags[0] ) ); x++ ) if( !str_cmp( flag, area_flags[x] ) ) return x; return -1; } int get_wflag( char *flag ) { int x; for( x = 0; x < ( sizeof( w_flags ) / sizeof( w_flags[0] ) ); x++ ) if( !str_cmp( flag, w_flags[x] ) ) return x; return -1; } int get_actflag( char *flag ) { int x; for( x = 0; x < ( sizeof( act_flags ) / sizeof( act_flags[0] ) ); x++ ) if( !str_cmp( flag, act_flags[x] ) ) return x; return -1; } int get_pcflag( char *flag ) { int x; for( x = 0; x < ( sizeof( pc_flags ) / sizeof( pc_flags[0] ) ); x++ ) if( !str_cmp( flag, pc_flags[x] ) ) return x; return -1; } int get_plrflag( char *flag ) { int x; for( x = 0; x < ( sizeof( plr_flags ) / sizeof( plr_flags[0] ) ); x++ ) if( !str_cmp( flag, plr_flags[x] ) ) return x; return -1; } int get_risflag( char *flag ) { int x; for( x = 0; x < ( sizeof( ris_flags ) / sizeof( ris_flags[0] ) ); x++ ) if( !str_cmp( flag, ris_flags[x] ) ) return x; return -1; } /* * For use with cedit --Shaddai */ int get_cmdflag( char *flag ) { int x; for( x = 0; x < ( sizeof( cmd_flags ) / sizeof( cmd_flags[0] ) ); x++ ) if( !str_cmp( flag, cmd_flags[x] ) ) return x; return -1; } int get_trigflag( char *flag ) { int x; for( x = 0; x < ( sizeof( trig_flags ) / sizeof( trig_flags[0] ) ); x++ ) if( !str_cmp( flag, trig_flags[x] ) ) return x; return -1; } int get_partflag( char *flag ) { int x; for( x = 0; x < ( sizeof( part_flags ) / sizeof( part_flags[0] ) ); x++ ) if( !str_cmp( flag, part_flags[x] ) ) return x; return -1; } int get_attackflag( char *flag ) { int x; for( x = 0; x < ( sizeof( attack_flags ) / sizeof( attack_flags[0] ) ); x++ ) if( !str_cmp( flag, attack_flags[x] ) ) return x; return -1; } int get_defenseflag( char *flag ) { int x; for( x = 0; x < ( sizeof( defense_flags ) / sizeof( defense_flags[0] ) ); x++ ) if( !str_cmp( flag, defense_flags[x] ) ) return x; return -1; } int get_langflag( char *flag ) { int x; for( x = 0; lang_array[x] != LANG_UNKNOWN; x++ ) if( !str_cmp( flag, lang_names[x] ) ) return lang_array[x]; return LANG_UNKNOWN; } int get_langnum( char *flag ) { int x; for( x = 0; lang_array[x] != LANG_UNKNOWN; x++ ) if( !str_cmp( flag, lang_names[x] ) ) return x; return -1; } /* * Remove carriage returns from a line */ char *strip_cr( char *str ) { static char newstr[MAX_STRING_LENGTH]; int i, j; if( !str || str[0] == '\0' ) return ""; for( i = j = 0; str[i] != '\0'; i++ ) if( str[i] != '\r' ) { newstr[j++] = str[i]; } newstr[j] = '\0'; return newstr; } /* * Removes the tildes from a line, except if it's the last character. */ void smush_tilde( char *str ) { int len; char last; char *strptr; strptr = str; len = strlen( str ); if( len ) last = strptr[len - 1]; else last = '\0'; for( ; *str != '\0'; str++ ) { if( *str == '~' ) *str = '-'; } if( len ) strptr[len - 1] = last; return; } 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 now (/? = help /s = save /c = clear /l = list)\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; } } if( lpos > 0 && lpos < 78 && lines < 49 ) { edit->line[lines][lpos] = '~'; edit->line[lines][lpos + 1] = '\0'; ++lines; lpos = 0; } edit->numlines = lines; edit->size = size; edit->on_line = lines; ch->editor = edit; ch->desc->connected = CON_EDITING; } char *copy_buffer_nohash( CHAR_DATA * ch ) { char buf[MAX_STRING_LENGTH]; char tmp[100]; short x, len; if( !ch ) { bug( "%s: null ch", __FUNCTION__ ); return str_dup( "" ); } if( !ch->editor ) { bug( "%s: null editor", __FUNCTION__ ); return str_dup( "" ); } buf[0] = '\0'; for( x = 0; x < ch->editor->numlines; x++ ) { strncpy( tmp, ch->editor->line[x], 100 ); len = strlen( tmp ); if( tmp && tmp[len - 1] == '~' ) tmp[len - 1] = '\0'; else strncat( tmp, "\n", 100 ); smash_tilde( tmp ); strncat( buf, tmp, MAX_STRING_LENGTH ); } return str_dup( buf ); } char *copy_buffer( 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] ); len = strlen( tmp ); if( tmp && tmp[len - 1] == '~' ) tmp[len - 1] = '\0'; else strcat( tmp, "\n" ); smush_tilde( tmp ); 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; AREA_DATA *pArea; int vnum; char buf[MAX_STRING_LENGTH]; char buf2[20]; one_argument( argument, arg ); if( arg[0] == '\0' ) { send_to_char( "Goto where?\r\n", ch ); return; } if( ( location = find_location( ch, arg ) ) == NULL ) { vnum = atoi( arg ); if( vnum < 0 || get_room_index( vnum ) ) { send_to_char( "You cannot find that...\r\n", ch ); return; } if( get_trust( ch ) < LEVEL_CREATOR || vnum < 1 || IS_NPC( ch ) || !ch->pcdata->area ) { send_to_char( "No such location.\r\n", ch ); return; } if( get_trust( ch ) < sysdata.level_modify_proto ) { if( !ch->pcdata || !( pArea = ch->pcdata->area ) ) { send_to_char( "You must have an assigned area to create rooms.\r\n", ch ); return; } if( vnum < pArea->low_r_vnum || vnum > pArea->hi_r_vnum ) { send_to_char( "That room is not within your assigned range.\r\n", ch ); return; } } if( !( location = make_room( vnum, ch->pcdata->area ) ) ) { bug( "Goto: make_room failed", 0 ); return; } set_char_color( AT_WHITE, ch ); send_to_char( "Waving your hand, you form order from swirling chaos,\r\nand step into a new reality...\r\n", ch ); } if( room_is_private( location ) ) { if( get_trust( ch ) < sysdata.level_override_private ) { send_to_char( "That room is private right now.\r\n", ch ); return; } else send_to_char( "Overriding private flag!\r\n", ch ); } in_room = ch->in_room; if( ch->fighting ) stop_fighting( ch, TRUE ); if( ch->position != POS_STANDING ) do_stand( ch, "" ); sprintf( buf2, "%s leaves in a swirling mist.", ch->name ); for( fch = in_room->first_person; fch; fch = fch_next ) { fch_next = fch->next_in_room; if( fch != ch && ( ( get_trust( fch ) >= ( IS_NPC( ch ) ? ch->level : ch->pcdata->wizinvis ) ) || !xIS_SET( ch->act, PLR_WIZINVIS ) ) ) { sprintf( buf, "&Y%s&w\r\n", ( ch->pcdata && ch->pcdata->bamfout && ch->pcdata->bamfout[0] != '\0' ) ? ch->pcdata->bamfout : buf2 ); send_to_char( buf, fch ); } } 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 ); sprintf( buf2, "%s appears in a swirling mist.", ch->name ); for( fch = ch->in_room->first_person; fch; fch = fch_next ) { fch_next = fch->next_in_room; if( fch != ch && ( ( get_trust( fch ) >= ( IS_NPC( ch ) ? ch->level : ch->pcdata->wizinvis ) ) || !xIS_SET( ch->act, PLR_WIZINVIS ) ) ) { sprintf( buf, "&Y%s&w\r\n", ( ch->pcdata && ch->pcdata->bamfin && ch->pcdata->bamfin[0] != '\0' ) ? ch->pcdata->bamfin : buf2 ); send_to_char( buf, fch ); } } do_look( ch, "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 ); } /* Experimental change by Gorog so imm's personal mobs follow them */ else if( IS_NPC( fch ) && fch->master == ch ) { char_from_room( fch ); char_to_room( fch, location ); } } return; } 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; int v2; char char1, char2; CHAR_DATA *victim; int value; int minattr, maxattr; bool lockvictim; char *origarg = argument; set_char_color( AT_PLAIN, ch ); 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 = 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 ) && xIS_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( ch->substate == SUB_REPEATCMD ) { victim = ch->dest_buf; if( !victim ) { send_to_char( "Your victim died!\r\n", ch ); argument = "done"; } if( argument[0] == '\0' || !str_cmp( argument, " " ) || !str_cmp( argument, "stat" ) ) { if( victim ) do_mstat( ch, victim->name ); else send_to_char( "No victim selected. Type '?' for help.\r\n", ch ); return; } if( !str_cmp( argument, "done" ) || !str_cmp( argument, "off" ) ) { if( ch->dest_buf ) RelDestroy( relMSET_ON, ch, ch->dest_buf ); send_to_char( "Mset mode off.\r\n", ch ); ch->substate = SUB_NONE; ch->dest_buf = NULL; if( ch->pcdata && ch->pcdata->subprompt ) { STRFREE( ch->pcdata->subprompt ); ch->pcdata->subprompt = NULL; } return; } } 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( !str_cmp( arg1, "on" ) ) { send_to_char( "Syntax: mset <victim|vnum> on.\r\n", ch ); return; } if( arg1[0] == '\0' || ( arg2[0] == '\0' && ch->substate != SUB_REPEATCMD ) || !str_cmp( arg1, "?" ) ) { if( ch->substate == SUB_REPEATCMD ) { if( victim ) send_to_char( "Syntax: <field> <value>\r\n", ch ); else send_to_char( "Syntax: <victim> <field> <value>\r\n", ch ); } else 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 sex class\r\n", ch ); send_to_char( " gold hp mana move practice align race\r\n", ch ); send_to_char( " hitroll damroll armor affected level\r\n", ch ); send_to_char( " thirst drunk full blood flags\r\n", ch ); send_to_char( " pos defpos part (see BODYPARTS)\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( " speaking speaks (see LANGUAGES)\r\n", ch ); send_to_char( " name short long description title spec clan\r\n", ch ); send_to_char( " council council2 quest qp qpa favor deity\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 ); send_to_char( "To toggle pkill flag: pkill\r\n", ch ); send_to_char( "To set who person is wed to: wedto <name> (Need to be player)\r\n", ch ); return; } if( !victim && get_trust( ch ) < LEVEL_GOD ) { if( ( victim = get_char_room( ch, arg1 ) ) == NULL ) { send_to_char( "They aren't here.\r\n", ch ); return; } } else 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; } if( !str_cmp( arg2, "on" ) ) { CHECK_SUBRESTRICTED( ch ); ch_printf( ch, "Mset mode on. (Editing %s).\r\n", victim->name ); ch->substate = SUB_REPEATCMD; ch->dest_buf = victim; if( ch->pcdata ) { if( ch->pcdata->subprompt ) STRFREE( ch->pcdata->subprompt ); if( IS_NPC( victim ) ) sprintf( buf, "<&CMset &W#%d&w> %%i", victim->pIndexData->vnum ); else sprintf( buf, "<&CMset &W%s&w> %%i", victim->name ); ch->pcdata->subprompt = STRALLOC( buf ); } RelCreate( relMSET_ON, ch, victim ); return; } 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 ) && xIS_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 ) && xIS_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 ) && xIS_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 ) && xIS_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 ) && xIS_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 ) && xIS_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 ) && xIS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->perm_lck = value; return; } if( !str_cmp( arg2, "height" ) ) { if( !can_mmodify( ch, victim ) ) return; if( IS_NPC( victim ) ) { send_to_char( "Not on NPCs.\r\n", ch ); return; } victim->height = URANGE( 10, value, 100 ); return; } if( !str_cmp( arg2, "weight" ) ) { if( !can_mmodify( ch, victim ) ) return; if( IS_NPC( victim ) ) { send_to_char( "Not on NPCs.\r\n", ch ); return; } victim->weight = URANGE( 10, value, 500 ); return; } if( !str_cmp( arg2, "sav1" ) ) { if( !can_mmodify( ch, victim ) ) return; if( value < -30 || value > 30 ) { send_to_char( "Saving throw range is -30 to 30.\r\n", ch ); return; } victim->saving_poison_death = value; if( IS_NPC( victim ) && xIS_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 is -30 to 30.\r\n", ch ); return; } victim->saving_wand = value; if( IS_NPC( victim ) && xIS_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 is -30 to 30.\r\n", ch ); return; } victim->saving_para_petri = value; if( IS_NPC( victim ) && xIS_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 is -30 to 30.\r\n", ch ); return; } victim->saving_breath = value; if( IS_NPC( victim ) && xIS_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 is -30 to 30.\r\n", ch ); return; } victim->saving_spell_staff = value; if( IS_NPC( victim ) && xIS_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 ) && xIS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->sex = value; return; } if( !str_cmp( arg2, "class" ) ) { if( !can_mmodify( ch, victim ) ) return; if( IS_NPC( victim ) ) { if( value >= MAX_NPC_CLASS || value < 0 ) { ch_printf( ch, "NPC Class range is 0 to %d.\n", MAX_NPC_CLASS - 1 ); return; } victim->class = value; if( xIS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->class = value; return; } if( value < 0 || value >= MAX_CLASS ) { ch_printf( ch, "Class range is 0 to %d.\n", MAX_CLASS ); return; } victim->class = value; return; } if( !str_cmp( arg2, "race" ) ) { if( !can_mmodify( ch, victim ) ) return; value = get_npc_race( arg3 ); if( value < 0 ) value = atoi( arg3 ); if( !IS_NPC( victim ) && ( value < 0 || value >= MAX_RACE ) ) { ch_printf( ch, "Race range is 0 to %d.\n", MAX_RACE - 1 ); return; } if( IS_NPC( victim ) && ( value < 0 || value >= MAX_NPC_RACE ) ) { ch_printf( ch, "Race range is 0 to %d.\n", MAX_NPC_RACE - 1 ); return; } victim->race = value; if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->race = 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 ) && xIS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->ac = value; return; } if( !str_cmp( arg2, "level" ) ) { 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 > LEVEL_AVATAR + 5 ) { ch_printf( ch, "Level range is 0 to %d.\r\n", LEVEL_AVATAR + 5 ); return; } victim->level = value; if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->level = 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 ) && xIS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->numattacks = value; return; } if( !str_cmp( arg2, "gold" ) ) { if( !can_mmodify( ch, victim ) ) return; victim->gold = value; if( IS_NPC( victim ) && xIS_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 ) && xIS_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 ) && xIS_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, "mana" ) ) { if( !can_mmodify( ch, victim ) ) return; if( value < 0 || value > 30000 ) { send_to_char( "Mana range is 0 to 30,000 mana 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, "practice" ) ) { if( !can_mmodify( ch, victim ) ) return; if( value < 0 || value > 100 ) { send_to_char( "Practice range is 0 to 100 sessions.\r\n", ch ); return; } victim->practice = 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 ) && xIS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->alignment = value; return; } if( !str_cmp( arg2, "password" ) ) { char *pwdnew; if( get_trust( ch ) < LEVEL_SUB_IMPLEM ) { send_to_char( "You can't do that.\r\n", ch ); return; } 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; } if( arg3[0] == '!' ) { send_to_char( "New password cannot begin with the '!' character.", ch ); return; } pwdnew = sha256_crypt( arg3 ); 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, "rank" ) ) { if( get_trust( ch ) < LEVEL_GOD ) { send_to_char( "You can't do that.\r\n", ch ); return; } if( IS_NPC( victim ) ) { send_to_char( "Not on NPC's.\r\n", ch ); return; } smash_tilde( argument ); DISPOSE( victim->pcdata->rank ); if( !argument || argument[0] == '\0' || !str_cmp( argument, "none" ) ) victim->pcdata->rank = str_dup( "" ); else victim->pcdata->rank = str_dup( argument ); send_to_char( "Ok.\r\n", ch ); return; } if( !str_cmp( arg2, "quest" ) ) { if( IS_NPC( victim ) ) { send_to_char( "Not on NPC's.\r\n", ch ); return; } if( value < 0 || value > 500 ) { send_to_char( "The current quest range is 0 to 500.\r\n", ch ); return; } victim->pcdata->quest_number = value; return; } if( !str_cmp( arg2, "qpa" ) ) { if( IS_NPC( victim ) ) { send_to_char( "Not on NPC's.\r\n", ch ); return; } victim->pcdata->quest_accum = value; return; } if( !str_cmp( arg2, "qp" ) ) { if( IS_NPC( victim ) ) { send_to_char( "Not on NPC's.\r\n", ch ); return; } if( value < 0 || value > 5000 ) { send_to_char( "The current quest point range is 0 to 5000.\r\n", ch ); return; } victim->pcdata->quest_curr = value; return; } if( !str_cmp( arg2, "favor" ) ) { if( IS_NPC( victim ) ) { send_to_char( "Not on NPC's.\r\n", ch ); return; } if( value < -2500 || value > 2500 ) { send_to_char( "Range is from -2500 to 2500.\r\n", ch ); return; } victim->pcdata->favor = value; 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 < -1 || value > 100 ) { send_to_char( "Thirst range is -1 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 < -1 || value > 100 ) { send_to_char( "Full range is -1 to 100.\r\n", ch ); return; } victim->pcdata->condition[COND_FULL] = value; return; } if( !str_cmp( arg2, "blood" ) ) { if( IS_NPC( victim ) ) { send_to_char( "Not on NPC's.\r\n", ch ); return; } if( value < -1 || value > MAX_LEVEL + 10 ) { ch_printf( ch, "Blood range is -1 to %d.\r\n", MAX_LEVEL + 10 ); return; } victim->pcdata->condition[COND_BLOODTHIRST] = value; return; } if( !str_cmp( arg2, "name" ) ) { if( !can_mmodify( ch, victim ) ) return; if( !IS_NPC( victim ) ) { send_to_char( "Not on PC's.\r\n", ch ); return; } if( !arg3 || arg3[0] == '\0' ) { send_to_char( "Names can not be set to an empty string.\r\n", ch ); return; } STRFREE( victim->name ); victim->name = STRALLOC( arg3 ); if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) ) { STRFREE( victim->pIndexData->player_name ); victim->pIndexData->player_name = QUICKLINK( victim->name ); } return; } if( !str_cmp( arg2, "minsnoop" ) ) { if( get_trust( ch ) < LEVEL_SUB_IMPLEM ) { send_to_char( "You can't do that.\r\n", ch ); return; } 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( get_trust( ch ) < LEVEL_GOD ) { send_to_char( "You can't do that.\r\n", ch ); return; } if( IS_NPC( victim ) ) { send_to_char( "Not on NPC's.\r\n", ch ); return; } if( !arg3 || 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; if( !str_cmp( victim->name, victim->pcdata->clan->leader ) ) { STRFREE( victim->pcdata->clan->leader ); victim->pcdata->clan->leader = STRALLOC( "" ); } if( !str_cmp( victim->name, victim->pcdata->clan->number1 ) ) { STRFREE( victim->pcdata->clan->number1 ); victim->pcdata->clan->number1 = STRALLOC( "" ); } if( !str_cmp( victim->name, victim->pcdata->clan->number2 ) ) { STRFREE( victim->pcdata->clan->number2 ); victim->pcdata->clan->number2 = STRALLOC( "" ); } if( !str_cmp( victim->name, victim->pcdata->clan->deity ) ) { STRFREE( victim->pcdata->clan->deity ); victim->pcdata->clan->deity = STRALLOC( "" ); } save_clan( victim->pcdata->clan ); } STRFREE( victim->pcdata->clan_name ); victim->pcdata->clan_name = STRALLOC( "" ); victim->pcdata->clan = NULL; return; } if( !( clan = get_clan( arg3 ) ) ) { send_to_char( "No such clan.\r\n", 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; if( !str_cmp( victim->name, victim->pcdata->clan->leader ) ) { STRFREE( victim->pcdata->clan->leader ); victim->pcdata->clan->leader = STRALLOC( "" ); } if( !str_cmp( victim->name, victim->pcdata->clan->number1 ) ) { STRFREE( victim->pcdata->clan->number1 ); victim->pcdata->clan->number1 = STRALLOC( "" ); } if( !str_cmp( victim->name, victim->pcdata->clan->number2 ) ) { STRFREE( victim->pcdata->clan->number2 ); victim->pcdata->clan->number2 = STRALLOC( "" ); } if( !str_cmp( victim->name, victim->pcdata->clan->deity ) ) { STRFREE( victim->pcdata->clan->deity ); victim->pcdata->clan->deity = STRALLOC( "" ); } save_clan( victim->pcdata->clan ); } STRFREE( victim->pcdata->clan_name ); victim->pcdata->clan_name = QUICKLINK( clan->name ); victim->pcdata->clan = clan; if( !IS_IMMORTAL( victim ) ) { ++victim->pcdata->clan->members; save_clan( victim->pcdata->clan ); } return; } if( !str_cmp( arg2, "deity" ) ) { DEITY_DATA *deity; if( IS_NPC( victim ) ) { send_to_char( "Not on NPC's.\r\n", ch ); return; } if( !arg3 || arg3[0] == '\0' ) { if( victim->pcdata->deity ) { --victim->pcdata->deity->worshippers; if( victim->pcdata->deity->worshippers < 0 ) victim->pcdata->deity->worshippers = 0; save_deity( victim->pcdata->deity ); } STRFREE( victim->pcdata->deity_name ); victim->pcdata->deity = NULL; send_to_char( "Deity removed.\r\n", ch ); return; } if( !( deity = get_deity( arg3 ) ) ) { send_to_char( "No such deity.\r\n", ch ); return; } if( victim->pcdata->deity ) { --victim->pcdata->deity->worshippers; if( victim->pcdata->deity->worshippers < 0 ) victim->pcdata->deity->worshippers = 0; save_deity( victim->pcdata->deity ); } STRFREE( victim->pcdata->deity_name ); victim->pcdata->deity_name = QUICKLINK( deity->name ); victim->pcdata->deity = deity; ++deity->worshippers; save_deity( deity ); send_to_char( "Done.\r\n", ch ); return; } if ( !str_cmp( arg2, "council" ) ) { COUNCIL_DATA *council; if( get_trust( ch ) < LEVEL_SUB_IMPLEM ) { send_to_char( "You can't do that.\r\n", ch ); return; } if( IS_NPC(victim) ) { send_to_char( "Not on NPC's.\r\n", ch ); return; } if( !arg3 || arg3[0] == '\0' ) { if( victim->pcdata->council ) { --victim->pcdata->council->members; if( victim->pcdata->council->members < 0 ) victim->pcdata->council->members = 0; if( !str_cmp( victim->name, victim->pcdata->council->head ) ) { STRFREE( victim->pcdata->council->head ); victim->pcdata->council->head = STRALLOC( "" ); } if( victim->pcdata->council->head2 != NULL && !str_cmp( victim->name, victim->pcdata->council->head2 ) ) { STRFREE( victim->pcdata->council->head2 ); victim->pcdata->council->head2 = NULL; } save_council( victim->pcdata->council ); } STRFREE( victim->pcdata->council_name ); victim->pcdata->council_name = STRALLOC( "" ); victim->pcdata->council = NULL; send_to_char( "Removed from council.\r\n", ch ); return; } if( !( council = get_council( arg3 ) ) ) { send_to_char( "No such council.\r\n", ch ); return; } if( victim->pcdata->council ) { --victim->pcdata->council->members; if( victim->pcdata->council->members < 0 ) victim->pcdata->council->members = 0; if( !str_cmp( victim->name, victim->pcdata->council->head ) ) { STRFREE( victim->pcdata->council->head ); victim->pcdata->council->head = STRALLOC( "" ); } if( victim->pcdata->council->head2 != NULL && !str_cmp( victim->name, victim->pcdata->council->head2 ) ) { STRFREE( victim->pcdata->council->head2 ); victim->pcdata->council->head2 = NULL; } save_council( victim->pcdata->council ); } STRFREE( victim->pcdata->council_name ); victim->pcdata->council_name = QUICKLINK( council->name ); victim->pcdata->council = council; ++council->members; save_council( council ); send_to_char( "Done.\r\n", ch ); return; } if ( !str_cmp( arg2, "council2" ) ) { COUNCIL_DATA *council; if( get_trust( ch ) < LEVEL_SUB_IMPLEM ) { send_to_char( "You can't do that.\r\n", ch ); return; } if( IS_NPC(victim) ) { send_to_char( "Not on NPC's.\r\n", ch ); return; } if( !arg3 || arg3[0] == '\0' ) { if( victim->pcdata->council2 ) { --victim->pcdata->council2->members; if( victim->pcdata->council2->members < 0 ) victim->pcdata->council2->members = 0; save_council( victim->pcdata->council2 ); } STRFREE( victim->pcdata->council2_name ); victim->pcdata->council2_name = STRALLOC( "" ); victim->pcdata->council2 = NULL; send_to_char( "Removed from council.\r\n", ch ); return; } if( !( council = get_council( arg3 ) ) ) { send_to_char( "No such council.\r\n", ch ); return; } if( victim->pcdata->council2 ) { --victim->pcdata->council2->members; if( victim->pcdata->council2->members < 0 ) victim->pcdata->council2->members = 0; save_council( victim->pcdata->council2 ); } STRFREE( victim->pcdata->council2_name ); victim->pcdata->council2_name = QUICKLINK( council->name ); victim->pcdata->council2 = council; ++council->members; save_council( council ); send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "short" ) ) { STRFREE( victim->short_descr ); victim->short_descr = STRALLOC( arg3 ); if( IS_NPC( victim ) && xIS_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 ) && xIS_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 ) && xIS_SET( victim->act, ACT_PROTOTYPE ) ) { STRFREE( victim->pIndexData->description ); victim->pIndexData->description = QUICKLINK( victim->description ); } return; } CHECK_SUBRESTRICTED( ch ); if( ch->substate == SUB_REPEATCMD ) ch->tempnum = SUB_REPEATCMD; else 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 ) && xIS_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 ) && xIS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->spec_fun = victim->spec_fun; return; } if( !str_cmp( arg2, "flags" ) ) { bool protoflag = FALSE, ftoggle = FALSE; if( !IS_NPC(victim) && get_trust( ch ) < LEVEL_GREATER ) { send_to_char( "You can only modify a mobile's flags.\r\n", ch ); return; } if( !argument || argument[0] == '\0' ) { send_to_char( "Usage: mset <vic> flags <flag> [flag]...\r\n", ch ); return; } if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) ) protoflag = TRUE; while( argument[0] != '\0' ) { argument = one_argument( argument, arg3 ); if( IS_NPC(victim) ) { value = get_actflag( arg3 ); if( value < 0 || value >= MAX_BITS ) ch_printf( ch, "Unknown flag: %s\r\n", arg3 ); else if( value == ACT_PROTOTYPE && ch->level < sysdata.level_modify_proto ) send_to_char( "You cannot change the prototype flag.\r\n", ch ); else if( value == ACT_IS_NPC ) send_to_char( "If the NPC flag could be changed, it would cause many problems.\r\n", ch ); else xTOGGLE_BIT( victim->act, value ); } else { value = get_plrflag( arg3 ); if( value < 0 || value >= MAX_BITS ) ch_printf( ch, "Unknown flag: %s\r\n", arg3 ); else if( value == ACT_IS_NPC ) send_to_char( "If the NPC flag could be changed, it would cause many problems.\r\n", ch ); else { ftoggle = TRUE; xTOGGLE_BIT( victim->act, value ); } } } if( ftoggle ) send_to_char( "Flags set.\r\n", ch ); if( IS_NPC( victim ) && ( xIS_SET( victim->act, ACT_PROTOTYPE ) || ( value == ACT_PROTOTYPE && protoflag ) ) ) victim->pIndexData->act = victim->act; return; } if( !str_cmp( arg2, "affected" ) ) { if( !IS_NPC( victim ) && get_trust( ch ) < LEVEL_LESSER ) { send_to_char( "You can only modify a mobile's flags.\r\n", ch ); return; } 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 > MAX_BITS ) ch_printf( ch, "Unknown flag: %s\r\n", arg3 ); else xTOGGLE_BIT( victim->affected_by, value ); } if( IS_NPC( victim ) && xIS_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( !IS_NPC( victim ) && get_trust( ch ) < LEVEL_LESSER ) { send_to_char( "You can only modify a mobile's ris.\r\n", ch ); return; } if( !can_mmodify( ch, victim ) ) return; sprintf( outbuf, "%s resistant %s", arg1, arg3 ); do_mset( ch, outbuf ); return; } if( !str_cmp( arg2, "i" ) ) { if( !IS_NPC( victim ) && get_trust( ch ) < LEVEL_LESSER ) { send_to_char( "You can only modify a mobile's ris.\r\n", ch ); return; } if( !can_mmodify( ch, victim ) ) return; sprintf( outbuf, "%s immune %s", arg1, arg3 ); do_mset( ch, outbuf ); return; } if( !str_cmp( arg2, "s" ) ) { if( !IS_NPC( victim ) && get_trust( ch ) < LEVEL_LESSER ) { send_to_char( "You can only modify a mobile's ris.\r\n", ch ); return; } if( !can_mmodify( ch, victim ) ) return; sprintf( outbuf, "%s susceptible %s", arg1, arg3 ); do_mset( ch, outbuf ); return; } if( !str_cmp( arg2, "ri" ) ) { if( !IS_NPC( victim ) && get_trust( ch ) < LEVEL_LESSER ) { send_to_char( "You can only modify a mobile's ris.\r\n", ch ); return; } 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( !IS_NPC( victim ) && get_trust( ch ) < LEVEL_LESSER ) { send_to_char( "You can only modify a mobile's ris.\r\n", ch ); return; } 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( !IS_NPC( victim ) && get_trust( ch ) < LEVEL_LESSER ) { send_to_char( "You can only modify a mobile's ris.\r\n", ch ); return; } 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( !IS_NPC( victim ) && get_trust( ch ) < LEVEL_LESSER ) { send_to_char( "You can only modify a mobile's ris.\r\n", ch ); return; } 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( !IS_NPC( victim ) && get_trust( ch ) < LEVEL_LESSER ) { send_to_char( "You can only modify a mobile's resistancies.\r\n", ch ); return; } 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 ) && xIS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->resistant = victim->resistant; return; } if( !str_cmp( arg2, "immune" ) ) { if( !IS_NPC( victim ) && get_trust( ch ) < LEVEL_LESSER ) { send_to_char( "You can only modify a mobile's immunities.\r\n", ch ); return; } 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 ) && xIS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->immune = victim->immune; return; } if( !str_cmp( arg2, "susceptible" ) ) { if( !IS_NPC( victim ) && get_trust( ch ) < LEVEL_LESSER ) { send_to_char( "You can only modify a mobile's susceptibilities.\r\n", ch ); return; } 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 ) && xIS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->susceptible = victim->susceptible; return; } if( !str_cmp( arg2, "part" ) ) { if( !IS_NPC( victim ) && get_trust( ch ) < LEVEL_LESSER ) { send_to_char( "You can only modify a mobile's parts.\r\n", ch ); return; } if( !can_mmodify( ch, victim ) ) return; if( !argument || argument[0] == '\0' ) { send_to_char( "Usage: mset <victim> part <flag> [flag]...\r\n", ch ); return; } while( argument[0] != '\0' ) { argument = one_argument( argument, arg3 ); value = get_partflag( arg3 ); if( value < 0 || value > 31 ) ch_printf( ch, "Unknown flag: %s\r\n", arg3 ); else TOGGLE_BIT( victim->xflags, 1 << value ); } if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->xflags = victim->xflags; 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 ); return; } while( argument[0] != '\0' ) { argument = one_argument( argument, arg3 ); value = get_attackflag( arg3 ); if( value < 0 || value > MAX_BITS ) ch_printf( ch, "Unknown flag: %s\r\n", arg3 ); else xTOGGLE_BIT( victim->attacks, value ); } if( IS_NPC( victim ) && xIS_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 ); return; } while( argument[0] != '\0' ) { argument = one_argument( argument, arg3 ); value = get_defenseflag( arg3 ); if( value < 0 || value > MAX_BITS ) ch_printf( ch, "Unknown flag: %s\r\n", arg3 ); else xTOGGLE_BIT( victim->defenses, value ); } if( IS_NPC( victim ) && xIS_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 ) && xIS_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 ) && xIS_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 ) && xIS_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 ) && xIS_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 ) && xIS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->hitplus = value; send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "wedto" ) ) { one_argument( argument, arg3 ); if( IS_NPC( ch ) ) { send_to_char( "You cannot do this on a mob.\r\n", ch ); return; } if( ch->pcdata->wedto ) STRFREE( ch->pcdata->wedto ); ch->pcdata->wedto = str_dup( arg3 ); 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 ) && xIS_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 ) && xIS_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 ) && xIS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->damplus = value; send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "aloaded" ) ) { if( IS_NPC( victim ) ) { send_to_char( "Player Characters only.\r\n", ch ); return; } /* Make sure they have an area assigned -Druid */ if( !victim->pcdata->area ) { send_to_char( "Player does not have an area assigned to them.\r\n", ch ); return; } if( !can_mmodify( ch, victim ) ) return; if( !IS_SET( victim->pcdata->area->status, AREA_LOADED ) ) { SET_BIT( victim->pcdata->area->status, AREA_LOADED ); send_to_char( "Your area set to LOADED!\r\n", victim ); if( ch != victim ) send_to_char( "Area set to LOADED!\r\n", ch ); return; } else { REMOVE_BIT( victim->pcdata->area->status, AREA_LOADED ); send_to_char( "Your area set to NOT-LOADED!\r\n", victim ); if( ch != victim ) send_to_char( "Area set to NON-LOADED!\r\n", ch ); return; } } if( !str_cmp( arg2, "pkill" ) ) { if( IS_NPC( victim ) ) { send_to_char( "Player Characters only.\r\n", ch ); return; } if( !can_mmodify( ch, victim ) ) { send_to_char( "You can't do that.\r\n", ch ); return; } /* if ( IS_SET(victim->pcdata->flags, PCFLAG_DEADLY) ) { REMOVE_BIT(victim->pcdata->flags, PCFLAG_DEADLY ); xSET_BIT(victim->act, PLR_NICE); send_to_char( "You are now a NON-PKILL player.\r\n", victim ); if ( ch != victim ) send_to_char( "That player is now non-pkill.\r\n", ch ); } else { SET_BIT(victim->pcdata->flags, PCFLAG_DEADLY); xREMOVE_BIT(victim->act, PLR_NICE); send_to_char( "You are now a PKILL player.\r\n", victim ); if ( ch != victim ) send_to_char( "That player is now pkill.\r\n", ch ); } -- Scion */ if( victim->pcdata->clan && !IS_IMMORTAL( victim ) ) { if( victim->pcdata->clan->clan_type == CLAN_GUILD ) { int sn; for( sn = 0; sn < top_sn; sn++ ) if( skill_table[sn]->guild == victim->pcdata->clan->class && skill_table[sn]->name != NULL ) victim->pcdata->learned[sn] = 0; } if( victim->speaking & LANG_CLAN ) victim->speaking = LANG_COMMON; REMOVE_BIT( victim->speaks, LANG_CLAN ); --victim->pcdata->clan->members; if( !str_cmp( victim->name, victim->pcdata->clan->leader ) ) { STRFREE( victim->pcdata->clan->leader ); victim->pcdata->clan->leader = STRALLOC( "" ); } if( !str_cmp( victim->name, victim->pcdata->clan->number1 ) ) { STRFREE( victim->pcdata->clan->number1 ); victim->pcdata->clan->number1 = STRALLOC( "" ); } if( !str_cmp( victim->name, victim->pcdata->clan->number2 ) ) { STRFREE( victim->pcdata->clan->number2 ); victim->pcdata->clan->number2 = STRALLOC( "" ); } save_clan( victim->pcdata->clan ); STRFREE( victim->pcdata->clan_name ); victim->pcdata->clan_name = STRALLOC( "" ); victim->pcdata->clan = NULL; } save_char_obj( victim ); return; } if( !str_cmp( arg2, "speaks" ) ) { if( !can_mmodify( ch, victim ) ) return; if( !argument || argument[0] == '\0' ) { send_to_char( "Usage: mset <victim> speaks <language> [language] ...\r\n", ch ); return; } while( argument[0] != '\0' ) { argument = one_argument( argument, arg3 ); value = get_langflag( arg3 ); if( value == LANG_UNKNOWN ) ch_printf( ch, "Unknown language: %s\r\n", arg3 ); else if( !IS_NPC( victim ) ) { if( !( value &= VALID_LANGS ) ) { ch_printf( ch, "Players may not know %s.\r\n", arg3 ); continue; } } v2 = get_langnum( arg3 ); if( v2 == -1 ) ch_printf( ch, "Unknown language: %s\r\n", arg3 ); else TOGGLE_BIT( victim->speaks, 1 << v2 ); } if( !IS_NPC( victim ) ) { REMOVE_BIT( victim->speaks, race_table[victim->race]->language ); if( !knows_language( victim, victim->speaking, victim ) ) victim->speaking = race_table[victim->race]->language; } else if( xIS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->speaks = victim->speaks; send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "speaking" ) ) { if( !IS_NPC( victim ) ) { send_to_char( "Players must choose the language they speak themselves.\r\n", ch ); return; } if( !can_mmodify( ch, victim ) ) return; if( !argument || argument[0] == '\0' ) { send_to_char( "Usage: mset <victim> speaking <language> [language]...\r\n", ch ); return; } while( argument[0] != '\0' ) { argument = one_argument( argument, arg3 ); value = get_langflag( arg3 ); if( value == LANG_UNKNOWN ) ch_printf( ch, "Unknown language: %s\r\n", arg3 ); else { v2 = get_langnum( arg3 ); if( v2 == -1 ) ch_printf( ch, "Unknown language: %s\r\n", arg3 ); else TOGGLE_BIT( victim->speaking, 1 << v2 ); } } if( IS_NPC( victim ) && xIS_SET( victim->act, ACT_PROTOTYPE ) ) victim->pIndexData->speaking = victim->speaking; send_to_char( "Done.\r\n", ch ); return; } /* * Generate usage message. */ if( ch->substate == SUB_REPEATCMD ) { ch->substate = SUB_RESTRICTED; interpret( ch, origarg ); ch->substate = SUB_REPEATCMD; ch->last_cmd = do_mset; } else do_mset( ch, "" ); return; } 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; char *origarg = argument; int value, tmp; set_char_color( AT_PLAIN, ch ); 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 = ch->dest_buf; STRFREE( ed->description ); ed->description = copy_buffer( ch ); tmpobj = ch->spare_ptr; stop_editing( ch ); ch->dest_buf = tmpobj; ch->substate = 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 = 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 ) ) { if( can_omodify( ch, obj ) ) { STRFREE( obj->pIndexData->description ); obj->pIndexData->description = QUICKLINK( obj->description ); } } tmpobj = ch->spare_ptr; stop_editing( ch ); ch->substate = ch->tempnum; ch->dest_buf = tmpobj; return; } obj = NULL; smash_tilde( argument ); if( ch->substate == SUB_REPEATCMD ) { obj = ch->dest_buf; if( !obj ) { send_to_char( "Your object was extracted!\r\n", ch ); argument = "done"; } if( argument[0] == '\0' || !str_cmp( argument, " " ) || !str_cmp( argument, "stat" ) ) { if( obj ) do_ostat( ch, obj->name ); else send_to_char( "No object selected. Type '?' for help.\r\n", ch ); return; } if( !str_cmp( argument, "done" ) || !str_cmp( argument, "off" ) ) { if( ch->dest_buf ) RelDestroy( relOSET_ON, ch, ch->dest_buf ); send_to_char( "Oset mode off.\r\n", ch ); ch->substate = SUB_NONE; ch->dest_buf = NULL; if( ch->pcdata && ch->pcdata->subprompt ) { STRFREE( ch->pcdata->subprompt ); ch->pcdata->subprompt = NULL; } return; } } 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( !str_cmp( arg1, "on" ) ) { send_to_char( "Syntax: oset <object|vnum> on.\r\n", ch ); return; } if( arg1[0] == '\0' || arg2[0] == '\0' || !str_cmp( arg1, "?" ) ) { if( ch->substate == SUB_REPEATCMD ) { if( obj ) send_to_char( "Syntax: <field> <value>\r\n", ch ); else send_to_char( "Syntax: <object> <field> <value>\r\n", ch ); } else 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 level weight cost rent timer\r\n", ch ); send_to_char( " name short long 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( "For scrolls, potions and pills:\r\n", ch ); send_to_char( " slevel spell1 spell2 spell3\r\n", ch ); send_to_char( "For wands and staves:\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 && get_trust( ch ) < LEVEL_GOD ) { if( ( obj = get_obj_here( ch, arg1 ) ) == NULL ) { send_to_char( "You can't find that here.\r\n", ch ); return; } } else 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; separate_obj( obj ); value = atoi( arg3 ); if( !str_cmp( arg2, "on" ) ) { CHECK_SUBRESTRICTED( ch ); ch_printf( ch, "Oset mode on. (Editing '%s' vnum %d).\r\n", obj->name, obj->pIndexData->vnum ); ch->substate = SUB_REPEATCMD; ch->dest_buf = obj; if( ch->pcdata ) { if( ch->pcdata->subprompt ) STRFREE( ch->pcdata->subprompt ); sprintf( buf, "<&COset &W#%d&w> %%i", obj->pIndexData->vnum ); ch->pcdata->subprompt = STRALLOC( buf ); } RelCreate( relOSET_ON, ch, obj ); return; } if( !str_cmp( arg2, "name" ) ) { bool proto = FALSE; if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) proto = TRUE; if( proto && !can_omodify( ch, obj ) ) return; STRFREE( obj->name ); obj->name = STRALLOC( arg3 ); if( proto ) { STRFREE( obj->pIndexData->name ); obj->pIndexData->name = QUICKLINK( obj->name ); } return; } if( !str_cmp( arg2, "short" ) ) { if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) { if( !can_omodify( ch, obj ) ) return; STRFREE( obj->short_descr ); obj->short_descr = STRALLOC( arg3 ); 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. */ { STRFREE( obj->short_descr ); obj->short_descr = STRALLOC( arg3 ); 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, "long" ) ) { if( arg3[0] ) { if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) { if( !can_omodify( ch, obj ) ) return; STRFREE( obj->description ); obj->description = STRALLOC( arg3 ); STRFREE( obj->pIndexData->description ); obj->pIndexData->description = QUICKLINK( obj->description ); return; } STRFREE( obj->description ); obj->description = STRALLOC( arg3 ); return; } CHECK_SUBRESTRICTED( ch ); if( ch->substate == SUB_REPEATCMD ) ch->tempnum = SUB_REPEATCMD; else 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( get_trust( ch ) < LEVEL_DEMI ) { send_to_char( "You can only oset the name, short and long right now.\r\n", ch ); return; } 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; if( obj->item_type == ITEM_FURNITURE ) { argument = one_argument( argument, arg3 ); while( arg3[0] ) { value = get_fur_pos( arg3 ); if( value < 0 ) { send_to_char( "stand_ sleep_ sit_ rest_ ( in at on )\r\n", ch ); return; } TOGGLE_BIT( obj->value[2], 1 << value ); if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) { TOGGLE_BIT( obj->pIndexData->value[2], 1 << value ); obj->value[2] = obj->pIndexData->value[2]; } argument = one_argument( argument, arg3 ); } 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 ); 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 ); return; } while( argument[0] != '\0' ) { argument = one_argument( argument, arg3 ); value = get_oflag( arg3 ); if( value < 0 || value > MAX_BITS ) ch_printf( ch, "Unknown flag: %s\r\n", arg3 ); else { if( value == ITEM_PROTOTYPE && get_trust( ch ) < LEVEL_GREATER && !is_name( "protoflag", ch->pcdata->bestowments ) ) send_to_char( "You cannot change the prototype flag.\r\n", ch ); else { xTOGGLE_BIT( obj->extra_flags, value ); if( 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 ); 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, "level" ) ) { if( !can_omodify( ch, obj ) ) return; obj->level = value; 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, "rent" ) ) { if( !can_omodify( ch, obj ) ) return; if( IS_OBJ_STAT( obj, ITEM_PROTOTYPE ) ) obj->pIndexData->rent = value; else send_to_char( "Item must have prototype flag to set this value.\r\n", ch ); 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, "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; } /* * Crash fix and name support by Shaddai */ if( !str_cmp( arg2, "affect" ) ) { AFFECT_DATA *paf; short loc; int bitv; argument = one_argument( argument, arg2 ); if( !arg2 || arg2[0] == '\0' || !argument || argument[0] == 0 ) { send_to_char( "Usage: oset <object> affect <field> <value>\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 { one_argument( argument, arg3 ); if( loc == APPLY_WEARSPELL && !is_number( arg3 ) ) { value = bsearch_skill_exact( arg3, gsn_first_spell, gsn_first_skill - 1 ); if( value == -1 ) { /* printf("%s\r\n", arg3); */ send_to_char( "Unknown spell name.\r\n", ch ); return; } } else value = atoi( arg3 ); } CREATE( paf, AFFECT_DATA, 1 ); paf->type = -1; paf->duration = -1; paf->location = loc; paf->modifier = value; xCLEAR_BITS( paf->bitvector ); 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 || 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 ); if( ch->substate == SUB_REPEATCMD ) ch->tempnum = SUB_REPEATCMD; else 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 || 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" ) ) { int x; value = -1; for( x = 0; x < sizeof( attack_table ) / sizeof( attack_table[0] ); x++ ) if( !str_cmp( arg3, attack_table[x] ) ) value = x; if( value < 0 ) { send_to_char( "Unknown weapon type.\r\n", ch ); return; } tmp = 3; break; } if( !str_cmp( arg2, "condition" ) ) tmp = 0; break; case ITEM_ARMOR: if( !str_cmp( arg2, "condition" ) ) tmp = 3; if( !str_cmp( arg2, "ac" ) ) tmp = 1; break; case ITEM_SALVE: if( !str_cmp( arg2, "slevel" ) ) tmp = 0; if( !str_cmp( arg2, "maxdoses" ) ) tmp = 1; if( !str_cmp( arg2, "doses" ) ) tmp = 2; if( !str_cmp( arg2, "delay" ) ) tmp = 3; if( !str_cmp( arg2, "spell1" ) ) tmp = 4; if( !str_cmp( arg2, "spell2" ) ) tmp = 5; if( tmp >= 4 && tmp <= 5 ) value = skill_lookup( arg3 ); break; case ITEM_SCROLL: case ITEM_POTION: case ITEM_PILL: if( !str_cmp( arg2, "slevel" ) ) tmp = 0; if( !str_cmp( arg2, "spell1" ) ) tmp = 1; if( !str_cmp( arg2, "spell2" ) ) tmp = 2; if( !str_cmp( arg2, "spell3" ) ) tmp = 3; if( tmp >= 1 && tmp <= 3 ) value = skill_lookup( arg3 ); break; case ITEM_STAFF: case ITEM_WAND: 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; case ITEM_SWITCH: case ITEM_LEVER: case ITEM_PULLCHAIN: case ITEM_BUTTON: if( !str_cmp( arg2, "tflags" ) ) { tmp = 0; value = get_trigflag( arg3 ); } break; } if( tmp >= 0 && tmp <= 3 ) { 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. */ if( ch->substate == SUB_REPEATCMD ) { ch->substate = SUB_RESTRICTED; interpret( ch, origarg ); ch->substate = SUB_REPEATCMD; ch->last_cmd = do_oset; } else do_oset( ch, "" ); return; } /* * Obsolete Merc room editing routine */ void do_rset( CHAR_DATA * ch, char *argument ) { char arg1[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; char arg3[MAX_INPUT_LENGTH]; ROOM_INDEX_DATA *location; int value; bool proto; smash_tilde( argument ); argument = one_argument( argument, arg1 ); argument = one_argument( argument, arg2 ); strcpy( arg3, argument ); if( arg1[0] == '\0' || arg2[0] == '\0' || arg3[0] == '\0' ) { send_to_char( "Syntax: rset <location> <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 sector\r\n", ch ); return; } if( ( location = find_location( ch, arg1 ) ) == NULL ) { send_to_char( "No such location.\r\n", ch ); return; } if( !can_rmodify( ch, location ) ) return; if( !is_number( arg3 ) ) { send_to_char( "Value must be numeric.\r\n", ch ); return; } value = atoi( arg3 ); /* * Set something. */ if( !str_cmp( arg2, "flags" ) ) { /* * Protect from messing up prototype flag */ if( IS_SET( location->room_flags, ROOM_PROTOTYPE ) ) proto = TRUE; else proto = FALSE; location->room_flags = value; if( proto ) SET_BIT( location->room_flags, ROOM_PROTOTYPE ); return; } if( !str_cmp( arg2, "sector" ) ) { location->sector_type = value; return; } /* * Generate usage message. */ do_rset( ch, "" ); return; } /* * Returns value 0 - 9 based on directional text. */ int get_dir( 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 10; c1 = txt[0]; if( c1 == '\0' ) return 0; c2 = txt[1]; edir = 0; switch ( c1 ) { case 'n': switch ( c2 ) { default: edir = 0; break; /* north */ case 'e': edir = 6; break; /* ne */ case 'w': edir = 7; break; /* nw */ } break; case '0': edir = 0; break; /* north */ case 'e': case '1': edir = 1; break; /* east */ case 's': switch ( c2 ) { default: edir = 2; break; /* south */ case 'e': edir = 8; break; /* se */ case 'w': edir = 9; break; /* sw */ } break; case '2': edir = 2; break; /* south */ case 'w': case '3': edir = 3; break; /* west */ case 'u': case '4': edir = 4; break; /* up */ case 'd': case '5': edir = 5; break; /* down */ case '6': edir = 6; break; /* ne */ case '7': edir = 7; break; /* nw */ case '8': edir = 8; break; /* se */ case '9': edir = 9; break; /* sw */ case '?': edir = 10; 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, *tmp; EXTRA_DESCR_DATA *ed; char dir = 0; EXIT_DATA *xit, *texit; int value; int edir = 0, ekey, evnum; char *origarg = argument; set_char_color( AT_PLAIN, ch ); if( !ch->desc ) { send_to_char( "You have no descriptor.\r\n", ch ); return; } switch ( ch->substate ) { default: break; case SUB_ROOM_DESC: location = 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 = ch->tempnum; return; case SUB_ROOM_EXTRA: ed = 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 = ch->tempnum; return; } location = ch->in_room; smash_tilde( argument ); argument = one_argument( argument, arg ); if( ch->substate == SUB_REPEATCMD ) { if( arg[0] == '\0' ) { do_rstat( ch, "" ); return; } if( !str_cmp( arg, "done" ) || !str_cmp( arg, "off" ) ) { send_to_char( "Redit mode off.\r\n", ch ); if( ch->pcdata && ch->pcdata->subprompt ) { STRFREE( ch->pcdata->subprompt ); ch->pcdata->subprompt = NULL; } ch->substate = SUB_NONE; return; } } if( arg[0] == '\0' || !str_cmp( arg, "?" ) ) { if( ch->substate == SUB_REPEATCMD ) send_to_char( "Syntax: <field> value\r\n", ch ); else 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( " rlist exdistance pulltype pull push\r\n", ch ); return; } if( !can_rmodify( ch, location ) ) return; if( !str_cmp( arg, "on" ) ) { CHECK_SUBRESTRICTED( ch ); send_to_char( "Redit mode on.\r\n", ch ); ch->substate = SUB_REPEATCMD; if( ch->pcdata ) { if( ch->pcdata->subprompt ) STRFREE( ch->pcdata->subprompt ); ch->pcdata->subprompt = STRALLOC( "<&CRedit &W#%r&w> %i" ); } 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" ) ) { if( ch->substate == SUB_REPEATCMD ) ch->tempnum = SUB_REPEATCMD; else 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; } /* * Crash fix and name support by Shaddai */ if( !str_cmp( arg, "affect" ) ) { AFFECT_DATA *paf; short loc; int bitv; argument = one_argument( argument, arg2 ); if( !arg2 || arg2[0] == '\0' || !argument || argument[0] == 0 ) { send_to_char( "Usage: redit affect <field> <value>\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 { one_argument( argument, arg3 ); if( loc == APPLY_WEARSPELL && !is_number( arg3 ) ) { value = bsearch_skill_exact( arg3, gsn_first_spell, gsn_first_skill - 1 ); if( value == -1 ) { /* printf("%s\r\n", arg3); */ send_to_char( "Unknown spell name.\r\n", ch ); return; } } else value = atoi( arg3 ); } CREATE( paf, AFFECT_DATA, 1 ); paf->type = -1; paf->duration = -1; paf->location = loc; paf->modifier = value; xCLEAR_BITS( paf->bitvector ); paf->next = NULL; LINK( paf, location->first_affect, location->last_affect, next, prev ); ++top_affect; send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg, "rmaffect" ) ) { AFFECT_DATA *paf; short loc, count; if( !argument || argument[0] == '\0' ) { send_to_char( "Usage: redit rmaffect <affect#>\r\n", ch ); return; } loc = atoi( argument ); if( loc < 1 ) { send_to_char( "Invalid number.\r\n", ch ); return; } count = 0; for( paf = location->first_affect; paf; paf = paf->next ) { if( ++count == loc ) { UNLINK( paf, location->first_affect, location->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( 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 ); if( ch->substate == SUB_REPEATCMD ) ch->tempnum = SUB_REPEATCMD; else 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, "rlist" ) ) { RESET_DATA *pReset; char *rbuf; short num; if( !location->first_reset ) { send_to_char( "This room has no resets to list.\r\n", ch ); return; } num = 0; for( pReset = location->first_reset; pReset; pReset = pReset->next ) { num++; if( !( rbuf = sprint_reset( pReset, &num ) ) ) continue; send_to_char( rbuf, 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 ); 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_PROTOTYPE && get_trust( ch ) < LEVEL_GREATER ) send_to_char( "You cannot change the prototype flag.\r\n", ch ); else 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" ) ) { if( !argument || argument[0] == '\0' ) { send_to_char( "Set the sector type.\r\n", ch ); send_to_char( "Usage: redit sector <value>\r\n", ch ); return; } location->sector_type = atoi( argument ); if( location->sector_type < 0 || location->sector_type >= SECT_MAX ) { location->sector_type = 1; send_to_char( "Out of range\r\n.", ch ); } else send_to_char( "Done.\r\n", ch ); 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> <key vnum>\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 ); 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, 1 << value ); return; } if( !str_cmp( arg, "ex_to_room" ) ) { argument = one_argument( argument, arg2 ); evnum = atoi( arg2 ); if( evnum < 1 || evnum > 1048575999 ) { 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 || 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 || 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 > 1048575999 ) { 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 && 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 *xit, *rxit; char tmpcmd[MAX_INPUT_LENGTH]; ROOM_INDEX_DATA *tmploc; int vnum, exnum; char rvnum[MAX_INPUT_LENGTH]; bool numnotdir; argument = one_argument( argument, arg2 ); argument = one_argument( argument, arg3 ); if( !arg2 || 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( ( xit = get_exit_num( tmploc, edir ) ) != NULL ) edir = xit->vdir; } else xit = get_exit( tmploc, edir ); rxit = NULL; vnum = 0; rvnum[0] = '\0'; if( xit ) { vnum = xit->vnum; if( arg3[0] != '\0' ) sprintf( rvnum, "%d", tmploc->vnum ); if( xit->to_room ) rxit = get_exit( xit->to_room, rev_dir[edir] ); else rxit = NULL; } sprintf( tmpcmd, "exit %s %s %s", arg2, arg3, argument ); do_redit( ch, tmpcmd ); if( numnotdir ) xit = get_exit_num( tmploc, exnum ); else xit = get_exit( tmploc, edir ); if( !rxit && xit ) { vnum = xit->vnum; if( arg3[0] != '\0' ) sprintf( rvnum, "%d", tmploc->vnum ); if( xit->to_room ) rxit = get_exit( xit->to_room, rev_dir[edir] ); else rxit = NULL; } if( vnum ) { sprintf( tmpcmd, "%d redit exit %d %s %s", vnum, rev_dir[edir], rvnum, argument ); do_at( ch, tmpcmd ); } return; } if( !str_cmp( arg, "pulltype" ) || !str_cmp( arg, "pushtype" ) ) { int pt; argument = one_argument( argument, arg2 ); if( !arg2 || arg2[0] == '\0' ) { ch_printf( ch, "Set the %s between this room, and the destination room.\r\n", arg ); ch_printf( ch, "Usage: redit %s <dir> <type>\r\n", arg ); 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 ) { if( ( pt = get_pulltype( argument ) ) == -1 ) ch_printf( ch, "Unknown pulltype: %s. (See help PULLTYPES)\r\n", argument ); else { xit->pulltype = pt; 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, "pull" ) ) { argument = one_argument( argument, arg2 ); if( !arg2 || arg2[0] == '\0' ) { send_to_char( "Set the 'pull' between this room, and the destination room.\r\n", ch ); send_to_char( "Usage: redit pull <dir> <force (0 to 100)>\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->pull = URANGE( -100, atoi( argument ), 100 ); 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, "push" ) ) { argument = one_argument( argument, arg2 ); if( !arg2 || arg2[0] == '\0' ) { send_to_char( "Set the 'push' away from the destination room in the opposite direction.\r\n", ch ); send_to_char( "Usage: redit push <dir> <force (0 to 100)>\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->pull = URANGE( -100, -( atoi( argument ) ), 100 ); 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, "exdistance" ) ) { argument = one_argument( argument, arg2 ); if( !arg2 || 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 || 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. */ if( ch->substate == SUB_REPEATCMD ) { ch->substate = SUB_RESTRICTED; interpret( ch, origarg ); ch->substate = SUB_REPEATCMD; ch->last_cmd = do_redit; } else do_redit( ch, "" ); return; } 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; int 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 > 1048576000 ) { send_to_char( "Vnum out of range.\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; if( get_trust( ch ) < LEVEL_LESSER ) { AREA_DATA *pArea; if( !ch->pcdata || !( pArea = ch->pcdata->area ) ) { send_to_char( "You must have an assigned area to create objects.\r\n", ch ); return; } if( vnum < pArea->low_o_vnum || vnum > pArea->hi_o_vnum ) { send_to_char( "That number is not in your allocated range.\r\n", 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, get_trust( ch ) ); obj_to_char( obj, ch ); act( AT_IMMORT, "$n makes arcane gestures, and opens $s hands to reveal $p!", ch, obj, NULL, TO_ROOM ); ch_printf_color( ch, "&YYou make arcane gestures, and open your hands to reveal %s!\r\nObjVnum: &W%d &YKeywords: &W%s\r\n", pObjIndex->short_descr, pObjIndex->vnum, pObjIndex->name ); } 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; int 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 > 1048576000 ) { send_to_char( "Vnum out of range.\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; if( get_trust( ch ) < LEVEL_LESSER ) { AREA_DATA *pArea; if( !ch->pcdata || !( pArea = ch->pcdata->area ) ) { send_to_char( "You must have an assigned area to create mobiles.\r\n", ch ); return; } if( vnum < pArea->low_m_vnum || vnum > pArea->hi_m_vnum ) { send_to_char( "That number is not in your allocated range.\r\n", 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 ); ch_printf_color( ch, "&YYou wave your arms about, and %s appears at your command!\r\nMobVnum: &W%d &YKeywords: &W%s\r\n", pMobIndex->short_descr, pMobIndex->vnum, pMobIndex->player_name ); } /* * Simple but nice and handy 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]; short x, line, max_buf_lines; 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->substate <= SUB_PAUSE ) { send_to_char( "You can't do that!\r\n", ch ); bug( "Edit_buffer: illegal ch->substate (%d)", ch->substate ); d->connected = CON_PLAYING; 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; max_buf_lines = 24; if( ch->substate == SUB_MPROG_EDIT || ch->substate == SUB_HELP_EDIT ) max_buf_lines = 48; 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( "/f format text, needs /g first\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 ); if( get_trust( ch ) > LEVEL_IMMORTAL ) 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; } /* * added format command - shogar */ if( !str_cmp( cmd + 1, "f" ) ) { char cword[MAX_INPUT_LENGTH]; char cline[MAX_INPUT_LENGTH + 80]; char *sptr = NULL, *lwptr = NULL, *wptr = NULL, *tptr = NULL; int x, linecnt = -1, spacercnt = 0; pager_printf( ch, "Reformating...\r\n" ); for( x = edit->on_line; x < edit->numlines; x++ ) { if( linecnt < 0 ) { linecnt = x; lwptr = edit->line[linecnt]; } tptr = edit->line[x]; while( *tptr ) { if( !isspace( *tptr ) ) break; tptr++; } if( !*tptr ) { if( !spacercnt ) { linecnt++; lwptr = edit->line[linecnt]; *lwptr = 0; linecnt++; spacercnt++; lwptr = edit->line[linecnt]; } continue; } spacercnt = 0; strcpy( cline, edit->line[x] ); sptr = cline; *lwptr = 0; while( *sptr ) { wptr = cword; while( isspace( *sptr ) && *sptr ) sptr++; while( !isspace( *sptr ) && *sptr ) *wptr++ = *sptr++; *wptr = 0; if( !*cword ) { sptr = cline; *sptr = 0; continue; } if( ( strlen( edit->line[linecnt] ) + strlen( cword ) + 1 ) > 79 ) { if( edit->numlines >= max_buf_lines ) { send_to_pager( "Buffer is full.\r\n> ", ch ); return; } else { strcpy( edit->line[edit->numlines], "" ); edit->numlines++; linecnt++; lwptr = edit->line[linecnt]; *lwptr = 0; } } strcat( lwptr, cword ); lwptr += strlen( cword ); strcat( lwptr, " " ); lwptr++; } } if( linecnt != -1 ) { for( x = linecnt + 1; x < edit->numlines; x++ ) { strcpy( edit->line[x], "" ); } edit->numlines = linecnt + 2; edit->on_line = linecnt + 1; } pager_printf( ch, "Reformating done...\r\n> " ); 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 ) { ++count; lineln = sprintf( buf, "%s%s", word2, wptr + wordln ); if( lineln + wptr - edit->line[x] > 79 ) buf[lineln] = '\0'; strcpy( wptr, buf ); lwptr = wptr + word2ln; } } ch_printf( ch, "Found and replaced %d occurrence(s).\r\n> ", count ); 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 { 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 { 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 { 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( get_trust( ch ) > LEVEL_IMMORTAL && !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, "" ); return; } } if( edit->size + strlen( argument ) + 1 >= MAX_STRING_LENGTH - 1 ) send_to_char( "You buffer is full.\r\n", ch ); else { if( strlen( argument ) > 79 ) { strncpy( buf, argument, 79 ); buf[79] = 0; send_to_char( "(Long line trimmed)\r\n> ", ch ); } else strcpy( buf, argument ); strcpy( edit->line[edit->on_line++], buf ); 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; } } if( save ) { d->connected = CON_PLAYING; if( !ch->last_cmd ) return; ( *ch->last_cmd ) ( ch, "" ); return; } send_to_char( "> ", ch ); } void assign_area( CHAR_DATA * ch ) { char buf[MAX_STRING_LENGTH]; char buf2[MAX_STRING_LENGTH]; char taf[1024]; AREA_DATA *tarea, *tmp; bool created = FALSE; if( IS_NPC( ch ) ) return; if( get_trust( ch ) > LEVEL_IMMORTAL && ch->pcdata->r_range_lo && ch->pcdata->r_range_hi ) { tarea = ch->pcdata->area; sprintf( taf, "%s.are", capitalize( ch->name ) ); if( !tarea ) { for( tmp = first_build; tmp; tmp = tmp->next ) if( !str_cmp( taf, tmp->filename ) ) { tarea = tmp; break; } } if( !tarea ) { sprintf( buf, "Creating area entry for %s", ch->name ); log_string_plus( buf, LOG_NORMAL, ch->level ); CREATE( tarea, AREA_DATA, 1 ); LINK( tarea, first_build, last_build, next, prev ); tarea->first_room = tarea->last_room = NULL; sprintf( buf, "{PROTO} %s's area in progress", ch->name ); tarea->name = str_dup( buf ); tarea->filename = str_dup( taf ); sprintf( buf2, "%s", ch->name ); tarea->author = STRALLOC( buf2 ); tarea->age = 0; tarea->nplayer = 0; CREATE( tarea->weather, WEATHER_DATA, 1 ); /* FB */ tarea->weather->temp = 0; tarea->weather->precip = 0; tarea->weather->wind = 0; tarea->weather->temp_vector = 0; tarea->weather->precip_vector = 0; tarea->weather->wind_vector = 0; tarea->weather->climate_temp = 2; tarea->weather->climate_precip = 2; tarea->weather->climate_wind = 2; tarea->weather->first_neighbor = NULL; tarea->weather->last_neighbor = NULL; tarea->weather->echo = NULL; tarea->weather->echo_color = AT_GREY; created = TRUE; } else { sprintf( buf, "Updating area entry for %s", ch->name ); log_string_plus( buf, LOG_NORMAL, ch->level ); } tarea->low_r_vnum = ch->pcdata->r_range_lo; tarea->low_o_vnum = ch->pcdata->o_range_lo; tarea->low_m_vnum = ch->pcdata->m_range_lo; tarea->hi_r_vnum = ch->pcdata->r_range_hi; tarea->hi_o_vnum = ch->pcdata->o_range_hi; tarea->hi_m_vnum = ch->pcdata->m_range_hi; ch->pcdata->area = tarea; if( created ) sort_area( tarea, TRUE ); } } void do_aassign( CHAR_DATA * ch, char *argument ) { char buf[MAX_STRING_LENGTH]; AREA_DATA *tarea, *tmp; set_char_color( AT_IMMORT, ch ); 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; assign_area( ch ); 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; /* if ( get_trust(ch) >= sysdata.level_modify_proto ) */ if( get_trust( ch ) >= LEVEL_SUB_IMPLEM || ( is_name( buf, ch->pcdata->bestowments ) && get_trust( ch ) >= sysdata.level_modify_proto ) ) for( tmp = first_area; tmp; tmp = tmp->next ) if( !str_cmp( buf, tmp->filename ) ) { tarea = tmp; break; } if( !tarea ) for( tmp = first_build; tmp; tmp = tmp->next ) if( !str_cmp( buf, tmp->filename ) ) { /* if ( get_trust(ch) >= sysdata.level_modify_proto */ if( get_trust( ch ) >= LEVEL_GREATER || is_name( tmp->filename, ch->pcdata->bestowments ) || ( ch->pcdata->council && is_name( "aassign", ch->pcdata->council->powers ) ) || ( ch->pcdata->council2 && is_name( "aassign", ch->pcdata->council2->powers ) ) ) { tarea = tmp; break; } else { send_to_char( "You do not have permission to use that area.\r\n", ch ); return; } } if( !tarea ) { if( get_trust( ch ) >= sysdata.level_modify_proto ) send_to_char( "No such area. Use 'zones'.\r\n", ch ); else send_to_char( "No such area. Use 'newzones'.\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, 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 ); STRFREE( rmed->keyword ); STRFREE( rmed->description ); DISPOSE( rmed ); top_ed--; return TRUE; } EXTRA_DESCR_DATA *SetOExtra( OBJ_DATA * obj, 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 ); STRFREE( rmed->keyword ); STRFREE( rmed->description ); DISPOSE( rmed ); top_ed--; return TRUE; } EXTRA_DESCR_DATA *SetOExtraProto( OBJ_INDEX_DATA * obj, 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( AREA_DATA * tarea, char *filename, bool install ) { RESET_DATA *pReset, *tReset, *gReset; ROOM_INDEX_DATA *room; MOB_INDEX_DATA *pMobIndex; OBJ_INDEX_DATA *pObjIndex; MPROG_DATA *mprog; EXIT_DATA *xit; EXTRA_DESCR_DATA *ed; AFFECT_DATA *paf; SHOP_DATA *pShop; REPAIR_DATA *pRepair; NEIGHBOR_DATA *neigh; char buf[MAX_STRING_LENGTH]; FILE *fpout; int vnum; int val0, val1, val2, val3, val4, val5; bool complexmob; sprintf( buf, "Saving %s...", tarea->filename ); log_string_plus( buf, LOG_NORMAL, LEVEL_GREATER ); sprintf( buf, "%s.bak", filename ); rename( filename, buf ); if( ( fpout = fopen( filename, "w" ) ) == NULL ) { bug( "fold_area: fopen", 0 ); perror( filename ); return; } if( install ) REMOVE_BIT( tarea->flags, AFLAG_PROTOTYPE ); fprintf( fpout, "#AREA %s~\n\n\n\n", tarea->name ); fprintf( fpout, "#VERSION %d\n", AREA_VERSION_WRITE ); fprintf( fpout, "#AUTHOR %s~\n\n", tarea->author ); fprintf( fpout, "#RANGES\n" ); fprintf( fpout, "%d %d %d %d\n", tarea->low_soft_range, tarea->hi_soft_range, tarea->low_hard_range, tarea->hi_hard_range ); fprintf( fpout, "$\n\n" ); if( tarea->resetmsg ) /* Rennard */ fprintf( fpout, "#RESETMSG %s~\n\n", tarea->resetmsg ); if( tarea->reset_frequency ) fprintf( fpout, "#FLAGS\n%d %d\n\n", tarea->flags, tarea->reset_frequency ); else fprintf( fpout, "#FLAGS\n%d\n\n", tarea->flags ); fprintf( fpout, "#ECONOMY %d %d\n\n", tarea->high_economy, tarea->low_economy ); /* * Climate info - FB */ fprintf( fpout, "#CLIMATE %d %d %d\n\n", tarea->weather->climate_temp, tarea->weather->climate_precip, tarea->weather->climate_wind ); /* * neighboring weather systems - FB */ for( neigh = tarea->weather->first_neighbor; neigh; neigh = neigh->next ) fprintf( fpout, "#NEIGHBOR %s~\n\n", neigh->name ); /* * save mobiles */ fprintf( fpout, "#MOBILES\n" ); for( vnum = tarea->low_m_vnum; vnum <= tarea->hi_m_vnum; vnum++ ) { if( ( pMobIndex = get_mob_index( vnum ) ) == NULL ) continue; if( install ) xREMOVE_BIT( pMobIndex->act, ACT_PROTOTYPE ); 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->race != 0 || pMobIndex->class != 3 || !xIS_EMPTY( pMobIndex->attacks ) || !xIS_EMPTY( pMobIndex->defenses ) || pMobIndex->height != 0 || pMobIndex->weight != 0 || pMobIndex->speaks != 0 || pMobIndex->speaking != 0 || pMobIndex->xflags != 0 || pMobIndex->numattacks != 0 ) complexmob = TRUE; else complexmob = FALSE; fprintf( fpout, "#%d\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, "%s ", print_bitvector( &pMobIndex->act ) ); fprintf( fpout, "%s %d %c\n", print_bitvector( &pMobIndex->affected_by ), pMobIndex->alignment, complexmob ? 'C' : 'S' ); fprintf( fpout, "%d %d %d ", pMobIndex->level, 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 %d\n", pMobIndex->gold, pMobIndex->exp ); /* Need to convert to new positions correctly on loadup sigh -Shaddai */ fprintf( fpout, "%d %d %d\n", pMobIndex->position + 100, pMobIndex->defposition + 100, 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, "%d %d %d %d %d %d %d\n", pMobIndex->race, pMobIndex->class, pMobIndex->height, pMobIndex->weight, pMobIndex->speaks, pMobIndex->speaking, pMobIndex->numattacks ); fprintf( fpout, "%d %d %d %d %d %d %s ", pMobIndex->hitroll, pMobIndex->damroll, pMobIndex->xflags, pMobIndex->resistant, pMobIndex->immune, pMobIndex->susceptible, print_bitvector( &pMobIndex->attacks ) ); fprintf( fpout, "%s\n", print_bitvector( &pMobIndex->defenses ) ); } 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" ); if( install && vnum < tarea->hi_m_vnum ) tarea->hi_m_vnum = vnum - 1; /* * save objects */ fprintf( fpout, "#OBJECTS\n" ); for( vnum = tarea->low_o_vnum; vnum <= tarea->hi_o_vnum; vnum++ ) { if( ( pObjIndex = get_obj_index( vnum ) ) == NULL ) continue; if( install ) xREMOVE_BIT( pObjIndex->extra_flags, ITEM_PROTOTYPE ); fprintf( fpout, "#%d\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 %s %d %d\n", pObjIndex->item_type, print_bitvector( &pObjIndex->extra_flags ), pObjIndex->wear_flags, pObjIndex->layers ); else fprintf( fpout, "%d %s %d\n", pObjIndex->item_type, print_bitvector( &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_PILL: case ITEM_POTION: case ITEM_SCROLL: if( IS_VALID_SN( val1 ) ) { if( AREA_VERSION_WRITE == 0 ) val1 = skill_table[val1]->slot; else val1 = HAS_SPELL_INDEX; } if( IS_VALID_SN( val2 ) ) { if( AREA_VERSION_WRITE == 0 ) val2 = skill_table[val2]->slot; else val1 = HAS_SPELL_INDEX; } if( IS_VALID_SN( val3 ) ) { if( AREA_VERSION_WRITE == 0 ) val3 = skill_table[val3]->slot; else val1 = HAS_SPELL_INDEX; } break; case ITEM_STAFF: case ITEM_WAND: if( IS_VALID_SN( val3 ) ) { if( AREA_VERSION_WRITE == 0 ) val3 = skill_table[val3]->slot; else val3 = HAS_SPELL_INDEX; } break; case ITEM_SALVE: if( IS_VALID_SN( val4 ) ) { if( AREA_VERSION_WRITE == 0 ) val4 = skill_table[val4]->slot; else val4 = HAS_SPELL_INDEX; } if( IS_VALID_SN( val5 ) ) { if( AREA_VERSION_WRITE == 0 ) val5 = skill_table[val5]->slot; else val5 = HAS_SPELL_INDEX; } 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 %d\n", pObjIndex->weight, pObjIndex->cost, pObjIndex->rent ? pObjIndex->rent : ( int )( pObjIndex->cost / 10 ) ); if( AREA_VERSION_WRITE > 0 ) switch ( pObjIndex->item_type ) { case ITEM_PILL: case ITEM_POTION: case ITEM_SCROLL: fprintf( fpout, "'%s' '%s' '%s'\n", IS_VALID_SN( pObjIndex->value[1] ) ? skill_table[pObjIndex->value[1]]->name : "NONE", IS_VALID_SN( pObjIndex->value[2] ) ? skill_table[pObjIndex->value[2]]->name : "NONE", IS_VALID_SN( pObjIndex->value[3] ) ? skill_table[pObjIndex->value[3]]->name : "NONE" ); break; case ITEM_STAFF: case ITEM_WAND: fprintf( fpout, "'%s'\n", IS_VALID_SN( pObjIndex->value[3] ) ? skill_table[pObjIndex->value[3]]->name : "NONE" ); break; case ITEM_SALVE: fprintf( fpout, "'%s' '%s'\n", IS_VALID_SN( pObjIndex->value[4] ) ? skill_table[pObjIndex->value[4]]->name : "NONE", IS_VALID_SN( pObjIndex->value[5] ) ? skill_table[pObjIndex->value[5]]->name : "NONE" ); break; } 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 || paf->location == APPLY_RECURRINGSPELL ) && 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" ); if( install && vnum < tarea->hi_o_vnum ) tarea->hi_o_vnum = vnum - 1; /* * save rooms */ fprintf( fpout, "#ROOMS\n" ); for( vnum = tarea->low_r_vnum; vnum <= tarea->hi_r_vnum; vnum++ ) { if( ( room = get_room_index( vnum ) ) == NULL ) continue; if( install ) { CHAR_DATA *victim, *vnext; OBJ_DATA *obj, *obj_next; /* * remove prototype flag from room */ REMOVE_BIT( room->room_flags, ROOM_PROTOTYPE ); /* * purge room of (prototyped) mobiles */ for( victim = room->first_person; victim; victim = vnext ) { vnext = victim->next_in_room; if( IS_NPC( victim ) ) extract_char( victim, TRUE ); } /* * purge room of (prototyped) objects */ for( obj = room->first_content; obj; obj = obj_next ) { obj_next = obj->next_content; extract_obj( obj ); } } fprintf( fpout, "#%d\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 %d %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 || xit->pull ) fprintf( fpout, "%d %d %d %d %d %d\n", xit->exit_info & ~EX_BASHED, xit->key, xit->vnum, xit->distance, xit->pulltype, xit->pull ); else fprintf( fpout, "%d %d %d\n", xit->exit_info & ~EX_BASHED, xit->key, xit->vnum ); } for( pReset = room->first_reset; pReset; pReset = pReset->next ) { switch ( pReset->command ) /* extra arg1 arg2 arg3 */ { default: case '*': break; case 'm': case 'M': case 'o': case 'O': fprintf( fpout, "R %c %d %d %d %d\n", UPPER( pReset->command ), pReset->extra, pReset->arg1, pReset->arg2, pReset->arg3 ); for( tReset = pReset->first_reset; tReset; tReset = tReset->next_reset ) { switch ( tReset->command ) { case 'p': case 'P': case 'e': case 'E': fprintf( fpout, " R %c %d %d %d %d\n", UPPER( tReset->command ), tReset->extra, tReset->arg1, tReset->arg2, tReset->arg3 ); if( tReset->first_reset ) { for( gReset = tReset->first_reset; gReset; gReset = gReset->next_reset ) { if( gReset->command != 'p' && gReset->command != 'P' ) continue; fprintf( fpout, " R %c %d %d %d %d\n", UPPER( gReset->command ), gReset->extra, gReset->arg1, gReset->arg2, gReset->arg3 ); } } break; case 'g': case 'G': fprintf( fpout, " R %c %d %d %d\n", UPPER( tReset->command ), tReset->extra, tReset->arg1, tReset->arg2 ); if( tReset->first_reset ) { for( gReset = tReset->first_reset; gReset; gReset = gReset->next_reset ) { if( gReset->command != 'p' && gReset->command != 'P' ) continue; fprintf( fpout, " R %c %d %d %d %d\n", UPPER( gReset->command ), gReset->extra, gReset->arg1, gReset->arg2, gReset->arg3 ); } } break; case 't': case 'T': case 'h': case 'H': fprintf( fpout, " R %c %d %d %d %d\n", UPPER( tReset->command ), tReset->extra, tReset->arg1, tReset->arg2, tReset->arg3 ); break; } } break; case 'd': case 'D': case 't': case 'T': case 'h': case 'H': fprintf( fpout, "R %c %d %d %d %d\n", UPPER( pReset->command ), pReset->extra, pReset->arg1, pReset->arg2, pReset->arg3 ); break; case 'r': case 'R': fprintf( fpout, "R %c %d %d %d\n", UPPER( pReset->command ), pReset->extra, pReset->arg1, pReset->arg2 ); break; } } 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\n" ); } fprintf( fpout, "#0\n\n\n" ); if( install && vnum < tarea->hi_r_vnum ) tarea->hi_r_vnum = vnum - 1; /* * save shops */ fprintf( fpout, "#SHOPS\n" ); for( vnum = tarea->low_m_vnum; vnum <= tarea->hi_m_vnum; vnum++ ) { if( ( pMobIndex = get_mob_index( vnum ) ) == NULL ) continue; 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( vnum = tarea->low_m_vnum; vnum <= tarea->hi_m_vnum; vnum++ ) { if( ( pMobIndex = get_mob_index( vnum ) ) == NULL ) continue; 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( vnum = tarea->low_m_vnum; vnum <= tarea->hi_m_vnum; vnum++ ) { if( ( pMobIndex = get_mob_index( vnum ) ) == NULL ) continue; if( !pMobIndex->spec_fun ) continue; fprintf( fpout, "M %d %s\n", pMobIndex->vnum, lookup_spec( pMobIndex->spec_fun ) ); } fprintf( fpout, "S\n\n\n" ); /* * END */ fprintf( fpout, "#$\n" ); fclose( fpout ); fpout = NULL; return; } void do_savearea( CHAR_DATA * ch, char *argument ) { AREA_DATA *tarea; char filename[256]; set_char_color( AT_IMMORT, ch ); if( IS_NPC( ch ) || get_trust( ch ) < LEVEL_CREATOR || !ch->pcdata || ( argument[0] == '\0' && !ch->pcdata->area ) ) { send_to_char( "You don't have an assigned area to save.\r\n", ch ); return; } if( argument[0] == '\0' ) tarea = ch->pcdata->area; else { bool found; if( get_trust( ch ) < LEVEL_GOD ) { send_to_char( "You can only save your own area.\r\n", ch ); return; } for( found = FALSE, tarea = first_build; tarea; tarea = tarea->next ) if( !str_cmp( tarea->filename, argument ) ) { found = TRUE; break; } if( !found ) { send_to_char( "Area not found.\r\n", ch ); return; } } if( !tarea ) { send_to_char( "No area to save.\r\n", ch ); return; } /* Ensure not wiping out their area with save before load - Scryn 8/11 */ if( !IS_SET( tarea->status, AREA_LOADED ) ) { send_to_char( "Your area is not loaded!\r\n", ch ); return; } sprintf( filename, "%s%s", BUILD_DIR, tarea->filename ); send_to_char( "Saving area...\r\n", ch ); fold_area( tarea, filename, FALSE ); set_char_color( AT_IMMORT, ch ); send_to_char( "Done.\r\n", ch ); } void do_loadarea( CHAR_DATA * ch, char *argument ) { AREA_DATA *tarea; char filename[256]; int tmp; set_char_color( AT_IMMORT, ch ); if( IS_NPC( ch ) || get_trust( ch ) < LEVEL_CREATOR || !ch->pcdata || ( argument[0] == '\0' && !ch->pcdata->area ) ) { send_to_char( "You don't have an assigned area to load.\r\n", ch ); return; } if( argument[0] == '\0' ) tarea = ch->pcdata->area; else { bool found; if( get_trust( ch ) < LEVEL_GOD ) { send_to_char( "You can only load your own area.\r\n", ch ); return; } for( found = FALSE, tarea = first_build; tarea; tarea = tarea->next ) if( !str_cmp( tarea->filename, argument ) ) { found = TRUE; break; } if( !found ) { send_to_char( "Area not found.\r\n", ch ); return; } } if( !tarea ) { send_to_char( "No area to load.\r\n", ch ); return; } /* Stops char from loading when already loaded - Scryn 8/11 */ if( IS_SET( tarea->status, AREA_LOADED ) ) { send_to_char( "Your area is already loaded.\r\n", ch ); return; } sprintf( filename, "%s%s", BUILD_DIR, tarea->filename ); send_to_char( "Loading...\r\n", ch ); load_area_file( tarea, filename ); send_to_char( "Planing...\r\n", ch ); check_planes( NULL ); send_to_char( "Linking exits...\r\n", ch ); fix_area_exits( tarea ); if( tarea->first_room ) { tmp = tarea->nplayer; tarea->nplayer = 0; send_to_char( "Resetting area...\r\n", ch ); reset_area( tarea ); tarea->nplayer = tmp; } send_to_char( "Done.\r\n", ch ); } /* * 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 ) { set_char_color( AT_IMMORT, ch ); if( !argument || argument[0] == '\0' ) { send_to_char( "Unfold what?\r\n", ch ); return; } fBootDb = TRUE; load_area_file( last_area, argument ); fBootDb = FALSE; check_planes( NULL ); return; } void do_foldarea( CHAR_DATA * ch, char *argument ) { AREA_DATA *tarea; set_char_color( AT_IMMORT, ch ); if( !argument || argument[0] == '\0' ) { send_to_char( "Fold what?\r\n", ch ); return; } if( !str_cmp( argument, "all" ) ) { for( tarea = first_area; tarea; tarea = tarea->next ) fold_area( tarea, tarea->filename, FALSE ); send_to_char( "All installed areas have been folded.\r\n", ch ); return; } for( tarea = first_area; tarea; tarea = tarea->next ) { if( !str_cmp( tarea->filename, argument ) ) { send_to_char( "Folding area...\r\n", ch ); fold_area( tarea, tarea->filename, FALSE ); set_char_color( AT_IMMORT, ch ); send_to_char( "Done.\r\n", ch ); return; } } send_to_char( "No such area exists.\r\n", ch ); return; } extern int top_area; void write_area_list( ) { AREA_DATA *tarea; FILE *fpout; fpout = fopen( AREA_LIST, "w" ); if( !fpout ) { bug( "FATAL: cannot open area.lst for writing!\r\n", 0 ); return; } fprintf( fpout, "help.are\n" ); for( tarea = first_area; tarea; tarea = tarea->next ) fprintf( fpout, "%s\n", tarea->filename ); fprintf( fpout, "$\n" ); fclose( fpout ); } /* * A complicated to use command as it currently exists. -Thoric * Once area->author and area->name are cleaned up... it will be easier */ void do_installarea( CHAR_DATA * ch, char *argument ) { AREA_DATA *tarea; char arg[MAX_INPUT_LENGTH]; char buf[MAX_STRING_LENGTH]; int num; DESCRIPTOR_DATA *d; set_char_color( AT_IMMORT, ch ); argument = one_argument( argument, arg ); if( arg[0] == '\0' ) { send_to_char( "Syntax: installarea <filename> [Area title]\r\n", ch ); return; } for( tarea = first_build; tarea; tarea = tarea->next ) { if( !str_cmp( tarea->filename, arg ) ) { if( argument && argument[0] != '\0' ) { DISPOSE( tarea->name ); tarea->name = str_dup( argument ); } /* * Fold area with install flag -- auto-removes prototype flags */ send_to_char( "Saving and installing file...\r\n", ch ); fold_area( tarea, tarea->filename, TRUE ); /* * Remove from prototype area list */ UNLINK( tarea, first_build, last_build, next, prev ); /* * Add to real area list */ LINK( tarea, first_area, last_area, next, prev ); /* * Remove it from the prototype sort list. BUGFIX: Samson 4-15-03 */ UNLINK( tarea, first_bsort, last_bsort, next_sort, prev_sort ); /* * Sort the area into it's proper sort list. BUGFIX: Samson 4-15-03 */ sort_area( tarea, FALSE ); /* * Fix up author if online */ for( d = first_descriptor; d; d = d->next ) if( d->character && d->character->pcdata && d->character->pcdata->area == tarea ) { /* * remove area from author */ d->character->pcdata->area = NULL; /* * clear out author vnums */ d->character->pcdata->r_range_lo = 0; d->character->pcdata->r_range_hi = 0; d->character->pcdata->o_range_lo = 0; d->character->pcdata->o_range_hi = 0; d->character->pcdata->m_range_lo = 0; d->character->pcdata->m_range_hi = 0; } top_area++; send_to_char( "Writing area.lst...\r\n", ch ); write_area_list( ); send_to_char( "Resetting new area.\r\n", ch ); num = tarea->nplayer; tarea->nplayer = 0; reset_area( tarea ); tarea->nplayer = num; send_to_char( "Renaming author's building file.\r\n", ch ); sprintf( buf, "%s%s.installed", BUILD_DIR, tarea->filename ); sprintf( arg, "%s%s", BUILD_DIR, tarea->filename ); rename( arg, buf ); send_to_char( "Done.\r\n", ch ); return; } } send_to_char( "No such area exists.\r\n", ch ); return; } void do_astat( CHAR_DATA * ch, char *argument ) { AREA_DATA *tarea; bool proto, found; int pdeaths = 0, pkills = 0, mdeaths = 0, mkills = 0; found = FALSE; proto = FALSE; set_char_color( AT_PLAIN, ch ); if( !str_cmp( "summary", argument ) ) { for( tarea = first_area; tarea; tarea = tarea->next ) { pdeaths += tarea->pdeaths; mdeaths += tarea->mdeaths; pkills += tarea->pkills; mkills += tarea->mkills; } ch_printf_color( ch, "&WTotal pdeaths: &w%d\r\n", pdeaths ); ch_printf_color( ch, "&WTotal pkills: &w%d\r\n", pkills ); ch_printf_color( ch, "&WTotal mdeaths: &w%d\r\n", mdeaths ); ch_printf_color( ch, "&WTotal mkills: &w%d\r\n", mkills ); return; } for( tarea = first_area; tarea; tarea = tarea->next ) if( !str_cmp( tarea->filename, argument ) ) { found = TRUE; break; } if( !found ) for( tarea = first_build; tarea; tarea = tarea->next ) if( !str_cmp( tarea->filename, argument ) ) { found = TRUE; proto = 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; } } ch_printf_color( ch, "\r\n&wName: &W%s\r\n&wFilename: &W%-20s &wPrototype: &W%s\r\n&wAuthor: &W%s\r\n", tarea->name, tarea->filename, proto ? "yes" : "no", tarea->author ); ch_printf_color( ch, "&wAge: &W%-3d &wCurrent number of players: &W%-3d &wMax players: &W%d\r\n", tarea->age, tarea->nplayer, tarea->max_players ); if( !proto ) { if( tarea->high_economy ) ch_printf_color( ch, "&wArea economy: &W%d &wbillion and &W%d gold coins.\r\n", tarea->high_economy, tarea->low_economy ); else ch_printf_color( ch, "&wArea economy: &W%d &wgold coins.\r\n", tarea->low_economy ); ch_printf_color( ch, "&wGold Looted: &W%d\r\n", tarea->gold_looted ); ch_printf_color( ch, "&wMdeaths: &W%d &wMkills: &W%d &wPdeaths: &W%d &wPkills: &W%d &wIllegalPK: &W%d\r\n", tarea->mdeaths, tarea->mkills, tarea->pdeaths, tarea->pkills, tarea->illegal_pk ); } ch_printf_color( ch, "&wlow_room: &W%5d &whi_room: &W%5d\r\n", tarea->low_r_vnum, tarea->hi_r_vnum ); ch_printf_color( ch, "&wlow_obj : &W%5d &whi_obj : &W%5d\r\n", tarea->low_o_vnum, tarea->hi_o_vnum ); ch_printf_color( ch, "&wlow_mob : &W%5d &whi_mob : &W%5d\r\n", tarea->low_m_vnum, tarea->hi_m_vnum ); ch_printf_color( ch, "&wsoft range: &W%d - %d &whard range: &W%d - %d\r\n", tarea->low_soft_range, tarea->hi_soft_range, tarea->low_hard_range, tarea->hi_hard_range ); ch_printf_color( ch, "&wArea flags: &W%s\r\n", flag_string( tarea->flags, area_flags ) ); ch_printf_color( ch, "&wResetmsg: &W%s\r\n", tarea->resetmsg ? tarea->resetmsg : "(default)" ); /* Rennard */ ch_printf_color( ch, "&wReset frequency: &W%d &wminutes.\r\n", tarea->reset_frequency ? tarea->reset_frequency : 15 ); } /* check other areas for a conflict while ignoring the current area */ bool check_for_area_conflicts( AREA_DATA *carea, int lo, int hi ) { AREA_DATA *area; for( area = first_area; area; area = area->next ) if( area != carea && check_area_conflict( area, lo, hi ) ) return TRUE; for( area = first_build; area; area = area->next ) if( area != carea && check_area_conflict( area, lo, hi ) ) return TRUE; return FALSE; } 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; int vnum, value; set_char_color( AT_IMMORT, ch ); 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( " low_room hi_room low_obj hi_obj low_mob hi_mob\r\n", ch ); send_to_char( " name filename low_soft hi_soft low_hard hi_hard\r\n", ch ); send_to_char( " author resetmsg resetfreq flags\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" ) ) { DISPOSE( tarea->name ); tarea->name = str_dup( argument ); send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "filename" ) ) { DISPOSE( tarea->filename ); tarea->filename = str_dup( argument ); write_area_list( ); send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "low_economy" ) ) { tarea->low_economy = vnum; send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "high_economy" ) ) { tarea->high_economy = vnum; send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "low_room" ) ) { if( check_for_area_conflicts( tarea, tarea->low_r_vnum, vnum ) ) { send_to_char( "That would conflict with another area.\r\n", ch ); return; } if( tarea->hi_r_vnum < vnum ) { send_to_char( "Can't set low_vnum higher than the hi_vnum.\r\n", ch ); return; } tarea->low_r_vnum = vnum; send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "hi_room" ) ) { if( check_for_area_conflicts( tarea, tarea->hi_r_vnum, vnum ) ) { send_to_char( "That would conflict with another area.\r\n", ch ); return; } if( tarea->low_r_vnum > vnum ) { send_to_char( "Can't set low_vnum lower than the low_vnum.\r\n", ch ); return; } tarea->hi_r_vnum = vnum; send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "low_obj" ) ) { if( check_for_area_conflicts( tarea, tarea->low_o_vnum, vnum ) ) { send_to_char( "That would conflict with another area.\r\n", ch ); return; } if( tarea->hi_o_vnum < vnum ) { send_to_char( "Can't set low_obj higher than the hi_obj.\r\n", ch ); return; } tarea->low_o_vnum = vnum; send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "hi_obj" ) ) { if( check_for_area_conflicts( tarea, tarea->hi_o_vnum, vnum ) ) { send_to_char( "That would conflict with another area.\r\n", ch ); return; } if( tarea->low_o_vnum > vnum ) { send_to_char( "Can't set hi_obj lower than the low_obj.\r\n", ch ); return; } tarea->hi_o_vnum = vnum; send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "low_mob" ) ) { if( check_for_area_conflicts( tarea, tarea->low_m_vnum, vnum ) ) { send_to_char( "That would conflict with another area.\r\n", ch ); return; } if( tarea->hi_m_vnum < vnum ) { send_to_char( "Can't set low_mob higher than the hi_mob.\r\n", ch ); return; } tarea->low_m_vnum = vnum; send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "hi_mob" ) ) { if( check_for_area_conflicts( tarea, tarea->hi_m_vnum, vnum ) ) { send_to_char( "That would conflict with another area.\r\n", ch ); return; } if( tarea->low_m_vnum > vnum ) { send_to_char( "Can't set hi_mob lower than the low_mob.\r\n", ch ); return; } tarea->hi_m_vnum = vnum; send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "low_soft" ) ) { if( vnum < 0 || vnum > MAX_LEVEL ) { send_to_char( "That is not an acceptable value.\r\n", ch ); return; } tarea->low_soft_range = vnum; send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "hi_soft" ) ) { if( vnum < 0 || vnum > MAX_LEVEL ) { send_to_char( "That is not an acceptable value.\r\n", ch ); return; } tarea->hi_soft_range = vnum; send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "low_hard" ) ) { if( vnum < 0 || vnum > MAX_LEVEL ) { send_to_char( "That is not an acceptable value.\r\n", ch ); return; } tarea->low_hard_range = vnum; send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "hi_hard" ) ) { if( vnum < 0 || vnum > MAX_LEVEL ) { send_to_char( "That is not an acceptable value.\r\n", ch ); return; } tarea->hi_hard_range = vnum; send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "author" ) ) { STRFREE( tarea->author ); tarea->author = STRALLOC( argument ); send_to_char( "Done.\r\n", ch ); return; } if( !str_cmp( arg2, "resetmsg" ) ) { if( tarea->resetmsg ) DISPOSE( tarea->resetmsg ); if( str_cmp( argument, "clear" ) ) tarea->resetmsg = str_dup( argument ); send_to_char( "Done.\r\n", ch ); return; } /* Rennard */ if( !str_cmp( arg2, "resetfreq" ) ) { tarea->reset_frequency = vnum; 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, "" ); return; } void do_rlist( CHAR_DATA * ch, char *argument ) { ROOM_INDEX_DATA *room; int vnum; char arg1[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; AREA_DATA *tarea; int lrange; int trange; set_pager_color( AT_PLAIN, ch ); if( IS_NPC( ch ) || get_trust( ch ) < LEVEL_CREATOR || !ch->pcdata || ( !ch->pcdata->area && get_trust( ch ) < LEVEL_GREATER ) ) { send_to_char_color( "&YYou don't have an assigned area.\r\n", ch ); return; } tarea = ch->pcdata->area; argument = one_argument( argument, arg1 ); argument = one_argument( argument, arg2 ); if( tarea ) { if( arg1[0] == '\0' ) /* cleaned a big scary mess */ lrange = tarea->low_r_vnum; /* here. -Thoric */ else lrange = atoi( arg1 ); if( arg2[0] == '\0' ) trange = tarea->hi_r_vnum; else trange = atoi( arg2 ); if( ( lrange < tarea->low_r_vnum || trange > tarea->hi_r_vnum ) && get_trust( ch ) < LEVEL_GREATER ) { send_to_char_color( "&YThat is out of your vnum range.\r\n", ch ); return; } } else { lrange = ( is_number( arg1 ) ? atoi( arg1 ) : 1 ); trange = ( is_number( arg2 ) ? atoi( arg2 ) : 1 ); } for( vnum = lrange; vnum <= trange; vnum++ ) { if( ( room = get_room_index( vnum ) ) == NULL ) continue; pager_printf( ch, "%5d) %s\r\n", vnum, room->name ); } return; } void do_olist( CHAR_DATA * ch, char *argument ) { OBJ_INDEX_DATA *obj; int vnum; AREA_DATA *tarea; char arg1[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; int lrange; int trange; /* * Greater+ can list out of assigned range - Tri (mlist/rlist as well) */ set_pager_color( AT_PLAIN, ch ); if( IS_NPC( ch ) || get_trust( ch ) < LEVEL_CREATOR || !ch->pcdata || ( !ch->pcdata->area && get_trust( ch ) < LEVEL_GREATER ) ) { send_to_char_color( "&YYou don't have an assigned area.\r\n", ch ); return; } tarea = ch->pcdata->area; argument = one_argument( argument, arg1 ); argument = one_argument( argument, arg2 ); if( tarea ) { if( arg1[0] == '\0' ) /* cleaned a big scary mess */ lrange = tarea->low_o_vnum; /* here. -Thoric */ else lrange = atoi( arg1 ); if( arg2[0] == '\0' ) trange = tarea->hi_o_vnum; else trange = atoi( arg2 ); if( ( lrange < tarea->low_o_vnum || trange > tarea->hi_o_vnum ) && get_trust( ch ) < LEVEL_GREATER ) { send_to_char_color( "&YThat is out of your vnum range.\r\n", ch ); return; } } else { lrange = ( is_number( arg1 ) ? atoi( arg1 ) : 1 ); trange = ( is_number( arg2 ) ? atoi( arg2 ) : 3 ); } 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; int vnum; AREA_DATA *tarea; char arg1[MAX_INPUT_LENGTH]; char arg2[MAX_INPUT_LENGTH]; int lrange; int trange; set_pager_color( AT_PLAIN, ch ); if( IS_NPC( ch ) || get_trust( ch ) < LEVEL_CREATOR || !ch->pcdata || ( !ch->pcdata->area && get_trust( ch ) < LEVEL_GREATER ) ) { send_to_char_color( "&YYou don't have an assigned area.\r\n", ch ); return; } tarea = ch->pcdata->area; argument = one_argument( argument, arg1 ); argument = one_argument( argument, arg2 ); if( tarea ) { if( arg1[0] == '\0' ) /* cleaned a big scary mess */ lrange = tarea->low_m_vnum; /* here. -Thoric */ else lrange = atoi( arg1 ); if( arg2[0] == '\0' ) trange = tarea->hi_m_vnum; else trange = atoi( arg2 ); if( ( lrange < tarea->low_m_vnum || trange > tarea->hi_m_vnum ) && get_trust( ch ) < LEVEL_GREATER ) { send_to_char_color( "&YThat is out of your vnum range.\r\n", ch ); return; } } else { 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 = 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 = NULL; int value, mptype = -1, cnt; set_char_color( AT_PLAIN, ch ); 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 = 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( get_trust( ch ) < LEVEL_GOD ) { 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 ) < victim->level || !IS_NPC( victim ) ) { send_to_char( "You can't do that!\r\n", ch ); return; } if( !can_mmodify( ch, victim ) ) return; if( !xIS_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; } if( value < 1 ) { if( strcmp( "full", arg3 ) ) { for( mprg = mprog; mprg; mprg = mprg->next ) { ch_printf( ch, "%d>%s %s\r\n", ++cnt, mprog_type_to_name( mprg->type ), mprg->arglist ); } return; } else { 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; } } for( mprg = mprog; mprg; mprg = mprg->next ) { if( ++cnt == value ) { ch_printf( ch, "%d>%s %s\r\n%s\r\n", cnt, mprog_type_to_name( mprg->type ), mprg->arglist, mprg->comlist ); break; } } if( !mprg ) send_to_char( "Program not found.\r\n", ch ); 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 ); xCLEAR_BITS( victim->pIndexData->progtypes ); for( mprg = mprog; mprg; mprg = mprg->next ) xSET_BIT( 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( 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; } } if( mprg_next ) { STRFREE( mprg_next->arglist ); STRFREE( mprg_next->comlist ); DISPOSE( mprg_next ); if( num <= 1 ) xREMOVE_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 ); xSET_BIT( victim->pIndexData->progtypes, 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 ); xSET_BIT( victim->pIndexData->progtypes, 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; xSET_BIT( victim->pIndexData->progtypes, mptype ); mpedit( ch, mprg, mptype, argument ); mprg->next = NULL; return; } do_mpedit( ch, "" ); } 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 = NULL; int value, mptype = -1, cnt; set_char_color( AT_PLAIN, ch ); 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 = 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( get_trust( ch ) < LEVEL_GOD ) { 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 ); xCLEAR_BITS( obj->pIndexData->progtypes ); for( mprg = mprog; mprg; mprg = mprg->next ) xSET_BIT( 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( 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; } } if( mprg_next ) { STRFREE( mprg_next->arglist ); STRFREE( mprg_next->comlist ); DISPOSE( mprg_next ); if( num <= 1 ) xREMOVE_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 ); xSET_BIT( obj->pIndexData->progtypes, 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 ); xSET_BIT( obj->pIndexData->progtypes, 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; xSET_BIT( obj->pIndexData->progtypes, mptype ); mpedit( ch, mprg, mptype, argument ); mprg->next = NULL; return; } do_opedit( ch, "" ); } /* * RoomProg Support */ void rpedit( CHAR_DATA * ch, MPROG_DATA * mprg, int mptype, char *argument ) { if( mptype != -1 ) { mprg->type = 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 = NULL; int value, mptype = -1, cnt; set_char_color( AT_PLAIN, ch ); 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 = 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 enter\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 ); xCLEAR_BITS( ch->in_room->progtypes ); for( mprg = mprog; mprg; mprg = mprg->next ) xSET_BIT( 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( 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; } } if( mprg_next ) { STRFREE( mprg_next->arglist ); STRFREE( mprg_next->comlist ); DISPOSE( mprg_next ); if( num <= 1 ) xREMOVE_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 ); xSET_BIT( ch->in_room->progtypes, 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 ); xSET_BIT( ch->in_room->progtypes, 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; xSET_BIT( ch->in_room->progtypes, mptype ); mpedit( ch, mprg, mptype, argument ); mprg->next = NULL; return; } do_rpedit( ch, "" ); } void do_rdelete( CHAR_DATA * ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; ROOM_INDEX_DATA *location; argument = one_argument( argument, arg ); return; if( arg[0] == '\0' ) { send_to_char( "Delete which room?\r\n", ch ); return; } /* * Find the room. */ if( ( location = find_location( ch, arg ) ) == NULL ) { send_to_char( "No such location.\r\n", ch ); return; } /* * Does the player have the right to delete this room? */ if( get_trust( ch ) < sysdata.level_modify_proto && ( location->vnum < ch->pcdata->r_range_lo || location->vnum > ch->pcdata->r_range_hi ) ) { send_to_char( "That room is not in your assigned range.\r\n", ch ); return; } /* * We could go to the trouble of clearing out the room, but why? */ /* * Delete_room does that anyway, but this is probably safer:) */ if( location->first_person || location->first_content ) { send_to_char( "The room must be empty first.\r\n", ch ); return; } /* * Ok, we've determined that the room exists, it is empty and the * player has the authority to delete it, so let's dump the thing. * The function to do it is in db.c so it can access the top-room * variable. */ delete_room( location ); fix_exits(); /* Need to call this to solve a crash */ send_to_char( "Room deleted.\r\n", ch ); return; } void do_odelete( CHAR_DATA * ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; OBJ_INDEX_DATA *obj; OBJ_DATA *temp; argument = one_argument( argument, arg ); /* * Temporarily disable this command. */ /* return;*/ if( arg[0] == '\0' ) { send_to_char( "Delete which object?\r\n", ch ); return; } /* * Find the object. */ if( !( obj = get_obj_index( atoi( arg ) ) ) ) { if( !( temp = get_obj_here( ch, arg ) ) ) { send_to_char( "No such object.\r\n", ch ); return; } obj = temp->pIndexData; } /* * Does the player have the right to delete this room? */ if( get_trust( ch ) < sysdata.level_modify_proto && ( obj->vnum < ch->pcdata->o_range_lo || obj->vnum > ch->pcdata->o_range_hi ) ) { send_to_char( "That object is not in your assigned range.\r\n", ch ); return; } /* * Ok, we've determined that the room exists, it is empty and the * player has the authority to delete it, so let's dump the thing. * The function to do it is in db.c so it can access the top-room * variable. */ delete_obj( obj ); send_to_char( "Object deleted.\r\n", ch ); return; } void do_mdelete( CHAR_DATA * ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; MOB_INDEX_DATA *mob; CHAR_DATA *temp; argument = one_argument( argument, arg ); /* * Temporarily disable this command. */ /* return;*/ if( arg[0] == '\0' ) { send_to_char( "Delete which mob?\r\n", ch ); return; } /* * Find the mob. */ if( !( mob = get_mob_index( atoi( arg ) ) ) ) { if( !( temp = get_char_room( ch, arg ) ) || !IS_NPC( temp ) ) { send_to_char( "No such mob.\r\n", ch ); return; } mob = temp->pIndexData; } /* * Does the player have the right to delete this room? */ if( get_trust( ch ) < sysdata.level_modify_proto && ( mob->vnum < ch->pcdata->m_range_lo || mob->vnum > ch->pcdata->m_range_hi ) ) { send_to_char( "That mob is not in your assigned range.\r\n", ch ); return; } /* * Ok, we've determined that the mob exists and the player has the * authority to delete it, so let's dump the thing. * The function to do it is in db.c so it can access the top_mob_index * variable. */ delete_mob( mob ); send_to_char( "Mob deleted.\r\n", ch ); return; } /* * function to allow modification of an area's climate * Last modified: July 15, 1997 * Fireblade */ void do_climate( CHAR_DATA * ch, char *argument ) { char arg[MAX_INPUT_LENGTH]; AREA_DATA *area; /* * Little error checking */ if( !ch ) { bug( "do_climate: NULL character." ); return; } else if( !ch->in_room ) { bug( "do_climate: character not in a room." ); return; } else if( !ch->in_room->area ) { bug( "do_climate: character not in an area." ); return; } else if( !ch->in_room->area->weather ) { bug( "do_climate: area with NULL weather data." ); return; } set_char_color( AT_BLUE, ch ); area = ch->in_room->area; argument = strlower( argument ); argument = one_argument( argument, arg ); /* * Display current climate settings */ if( arg[0] == '\0' ) { NEIGHBOR_DATA *neigh; ch_printf( ch, "%s:\r\n", area->name ); ch_printf( ch, "\tTemperature:\t%s\r\n", temp_settings[area->weather->climate_temp] ); ch_printf( ch, "\tPrecipitation:\t%s\r\n", precip_settings[area->weather->climate_precip] ); ch_printf( ch, "\tWind:\t\t%s\r\n", wind_settings[area->weather->climate_wind] ); if( area->weather->first_neighbor ) ch_printf( ch, "\r\nNeighboring weather systems:\r\n" ); for( neigh = area->weather->first_neighbor; neigh; neigh = neigh->next ) { ch_printf( ch, "\t%s\r\n", neigh->name ); } return; } /* * set climate temperature */ else if( !str_cmp( arg, "temp" ) ) { int i; argument = one_argument( argument, arg ); for( i = 0; i < MAX_CLIMATE; i++ ) { if( str_cmp( arg, temp_settings[i] ) ) continue; area->weather->climate_temp = i; ch_printf( ch, "The climate temperature " "for %s is now %s.\r\n", area->name, temp_settings[i] ); break; } if( i == MAX_CLIMATE ) { ch_printf( ch, "Possible temperature " "settings:\r\n" ); for( i = 0; i < MAX_CLIMATE; i++ ) { ch_printf( ch, "\t%s\r\n", temp_settings[i] ); } } return; } /* * set climate precipitation */ else if( !str_cmp( arg, "precip" ) ) { int i; argument = one_argument( argument, arg ); for( i = 0; i < MAX_CLIMATE; i++ ) { if( str_cmp( arg, precip_settings[i] ) ) continue; area->weather->climate_precip = i; ch_printf( ch, "The climate precipitation " "for %s is now %s.\r\n", area->name, precip_settings[i] ); break; } if( i == MAX_CLIMATE ) { ch_printf( ch, "Possible precipitation " "settings:\r\n" ); for( i = 0; i < MAX_CLIMATE; i++ ) { ch_printf( ch, "\t%s\r\n", precip_settings[i] ); } } return; } /* * set climate wind */ else if( !str_cmp( arg, "wind" ) ) { int i; argument = one_argument( argument, arg ); for( i = 0; i < MAX_CLIMATE; i++ ) { if( str_cmp( arg, wind_settings[i] ) ) continue; area->weather->climate_wind = i; ch_printf( ch, "The climate wind for %s " "is now %s.\r\n", area->name, wind_settings[i] ); break; } if( i == MAX_CLIMATE ) { ch_printf( ch, "Possible wind settings:\r\n" ); for( i = 0; i < MAX_CLIMATE; i++ ) { ch_printf( ch, "\t%s\r\n", wind_settings[i] ); } } return; } /* * add or remove neighboring weather systems */ else if( !str_cmp( arg, "neighbor" ) ) { NEIGHBOR_DATA *neigh; AREA_DATA *tarea; if( argument[0] == '\0' ) { ch_printf( ch, "Add or remove which area?\r\n" ); return; } /* * look for a matching list item */ for( neigh = area->weather->first_neighbor; neigh; neigh = neigh->next ) { if( nifty_is_name( argument, neigh->name ) ) break; } /* * if the a matching list entry is found, remove it */ if( neigh ) { /* * look for the neighbor area in question */ if( !( tarea = neigh->address ) ) tarea = get_area( neigh->name ); /* * if there is an actual neighbor area */ /* * remove its entry to this area */ if( tarea ) { NEIGHBOR_DATA *tneigh; tarea = neigh->address; for( tneigh = tarea->weather->first_neighbor; tneigh; tneigh = tneigh->next ) { if( !strcmp( area->name, tneigh->name ) ) break; } UNLINK( tneigh, tarea->weather->first_neighbor, tarea->weather->last_neighbor, next, prev ); STRFREE( tneigh->name ); DISPOSE( tneigh ); } UNLINK( neigh, area->weather->first_neighbor, area->weather->last_neighbor, next, prev ); ch_printf( ch, "The weather in %s and %s " "no longer affect each other.\r\n", neigh->name, area->name ); STRFREE( neigh->name ); DISPOSE( neigh ); } /* * otherwise add an entry */ else { tarea = get_area( argument ); if( !tarea ) { ch_printf( ch, "No such area exists.\r\n" ); return; } else if( tarea == area ) { ch_printf( ch, "%s already affects its " "own weather.\r\n", area->name ); return; } /* * add the entry */ CREATE( neigh, NEIGHBOR_DATA, 1 ); neigh->name = STRALLOC( tarea->name ); neigh->address = tarea; LINK( neigh, area->weather->first_neighbor, area->weather->last_neighbor, next, prev ); /* * add an entry to the neighbor's list */ CREATE( neigh, NEIGHBOR_DATA, 1 ); neigh->name = STRALLOC( area->name ); neigh->address = area; LINK( neigh, tarea->weather->first_neighbor, tarea->weather->last_neighbor, next, prev ); ch_printf( ch, "The weather in %s and %s now " "affect one another.\r\n", tarea->name, area->name ); } return; } else { ch_printf( ch, "Climate may only be followed by one " "of the following fields:\r\n" ); ch_printf( ch, "\ttemp\r\n" ); ch_printf( ch, "\tprecip\r\n" ); ch_printf( ch, "\twind\r\n" ); ch_printf( ch, "\tneighbor\r\n" ); return; } } /* displays all exits from the area that the imm is physically in - shogar */ void do_aexit( CHAR_DATA * ch, char *argument ) { ROOM_INDEX_DATA *room; int i, vnum; AREA_DATA *tarea; EXIT_DATA *pexit; int lrange; int trange; tarea = ch->in_room->area; trange = tarea->hi_r_vnum; lrange = tarea->low_r_vnum; for( vnum = lrange; vnum <= trange; vnum++ ) { if( ( room = get_room_index( vnum ) ) == NULL ) continue; for( i = 0; i < MAX_DIR + 1; i++ ) { if( ( pexit = get_exit( room, i ) ) == NULL ) continue; if( pexit->to_room->area != tarea ) { pager_printf( ch, "To: %-20.20s %s\r\n", pexit->to_room->area->filename, pexit->to_room->area->name ); pager_printf( ch, "%15d %-30.30s -> %15d (%s)\r\n", vnum, room->name, pexit->vnum, dir_name[i] ); } } } } /* displays all entrances to the area that the imm is physically in - shogar */ void do_aentrance( CHAR_DATA * ch, char *argument ) { ROOM_INDEX_DATA *room; int i, vnum; AREA_DATA *tarea; AREA_DATA *otherarea; EXIT_DATA *pexit; int lrange; int trange; tarea = ch->in_room->area; for( otherarea = first_area; otherarea; otherarea = otherarea->next ) { if( tarea == otherarea ) continue; trange = otherarea->hi_r_vnum; lrange = otherarea->low_r_vnum; for( vnum = lrange; vnum <= trange; vnum++ ) { if( ( room = get_room_index( vnum ) ) == NULL ) continue; for( i = 0; i < MAX_DIR + 1; i++ ) { if( ( pexit = get_exit( room, i ) ) == NULL ) continue; if( pexit->to_room->area == tarea ) { pager_printf( ch, "From: %-20.20s %s\r\n", otherarea->filename, otherarea->name ); pager_printf( ch, "%15d %-30.30s -> %15d (%s)\r\n", vnum, room->name, pexit->vnum, dir_name[i] ); } } } } } /* * Relations created to fix a crash bug with oset on and rset on * code by: gfinello@mail.karmanet.it */ void RelCreate( relation_type tp, void *actor, void *subject ) { REL_DATA *tmp; if( tp < relMSET_ON || tp > relOSET_ON ) { bug( "RelCreate: invalid type (%d)", tp ); return; } if( !actor ) { bug( "RelCreate: NULL actor" ); return; } if( !subject ) { bug( "RelCreate: NULL subject" ); return; } for( tmp = first_relation; tmp; tmp = tmp->next ) if( tmp->Type == tp && tmp->Actor == actor && tmp->Subject == subject ) { bug( "RelCreate: duplicated relation" ); return; } CREATE( tmp, REL_DATA, 1 ); tmp->Type = tp; tmp->Actor = actor; tmp->Subject = subject; LINK( tmp, first_relation, last_relation, next, prev ); } /* * Relations created to fix a crash bug with oset on and rset on * code by: gfinello@mail.karmanet.it */ void RelDestroy( relation_type tp, void *actor, void *subject ) { REL_DATA *rq; if( tp < relMSET_ON || tp > relOSET_ON ) { bug( "RelDestroy: invalid type (%d)", tp ); return; } if( !actor ) { bug( "RelDestroy: NULL actor" ); return; } if( !subject ) { bug( "RelDestroy: NULL subject" ); return; } for( rq = first_relation; rq; rq = rq->next ) if( rq->Type == tp && rq->Actor == actor && rq->Subject == subject ) { UNLINK( rq, first_relation, last_relation, next, prev ); /* * Dispose will also set to NULL the passed parameter */ DISPOSE( rq ); break; } }