summaryrefslogtreecommitdiffstats
path: root/stone_soup/crawl-ref/source/initfile.cc
diff options
context:
space:
mode:
Diffstat (limited to 'stone_soup/crawl-ref/source/initfile.cc')
-rw-r--r--stone_soup/crawl-ref/source/initfile.cc1790
1 files changed, 0 insertions, 1790 deletions
diff --git a/stone_soup/crawl-ref/source/initfile.cc b/stone_soup/crawl-ref/source/initfile.cc
deleted file mode 100644
index f4e4a7331b..0000000000
--- a/stone_soup/crawl-ref/source/initfile.cc
+++ /dev/null
@@ -1,1790 +0,0 @@
-/*
- * File: initfile.cc
- * Summary: Simple reading of an init file and system variables
- * Written by: David Loewenstern
- *
- * Modified for Crawl Reference by $Author$ on $Date$
- *
- * Change History (most recent first):
- *
- * <3> 5 May 2000 GDL Add field stripping for 'name'
- * <2> 6/12/99 BWR Added get_system_environment
- * <1> 6/9/99 DML Created
- */
-
-#include "AppHdr.h"
-#include "initfile.h"
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string>
-#include <ctype.h>
-
-#include "clua.h"
-#include "Kills.h"
-#include "files.h"
-#include "externs.h"
-#include "defines.h"
-#include "libutil.h"
-#include "player.h"
-#include "stash.h"
-#include "stuff.h"
-#include "travel.h"
-#include "items.h"
-#include "view.h"
-
-game_options Options;
-
-extern void (*viewwindow) (char, bool);
-extern unsigned char (*mapch) (unsigned char);
-extern unsigned char (*mapch2) (unsigned char);
-extern unsigned char mapchar3(unsigned char ldfk);
-extern unsigned char mapchar4(unsigned char ldfk);
-
-#ifdef UNIX
-extern int character_set; // unices only
-#endif
-
-static std::string & tolower_string( std::string &str );
-
-const static char *obj_syms = ")([/%.?=!.+\\0}X$";
-const static int obj_syms_len = 16;
-
-static void read_startup_prefs();
-static void read_options(InitLineInput &il, bool runscript);
-
-template<class A, class B> void append_vector(
- std::vector<A> &dest, const std::vector<B> &src)
-{
- dest.insert( dest.end(), src.begin(), src.end() );
-}
-
-// returns -1 if unmatched else returns 0-15
-static short str_to_colour( const std::string &str )
-{
- int ret;
-
- const std::string cols[16] =
- {
- "black", "blue", "green", "cyan", "red", "magenta", "brown",
- "lightgrey", "darkgrey", "lightblue", "lightgreen", "lightcyan",
- "lightred", "lightmagenta", "yellow", "white"
- };
-
- for (ret = 0; ret < 16; ret++)
- {
- if (str == cols[ret])
- break;
- }
-
- // check for alternate spellings
- if (ret == 16)
- {
- if (str == "lightgray")
- ret = 7;
- else if (str == "darkgray")
- ret = 8;
- }
-
- if (ret == 16)
- {
- // Check if we have a direct colour index
- const char *s = str.c_str();
- char *es = NULL;
- int ci = (int) strtol(s, &es, 10);
- if (s != (const char *) es && es && ci >= 0 && ci < 16)
- ret = ci;
- }
-
- return ((ret == 16) ? -1 : ret);
-}
-
-// returns -1 if unmatched else returns 0-15
-static int str_to_channel_colour( const std::string &str )
-{
- int ret = str_to_colour( str );
-
- if (ret == -1)
- {
- if (str == "mute")
- ret = MSGCOL_MUTED;
- else if (str == "plain" || str == "off")
- ret = MSGCOL_PLAIN;
- else if (str == "default" || str == "on")
- ret = MSGCOL_DEFAULT;
- else if (str == "alternate")
- ret = MSGCOL_ALTERNATE;
- }
-
- return (ret);
-}
-
-static const std::string message_channel_names[ NUM_MESSAGE_CHANNELS ] =
-{
- "plain", "prompt", "god", "duration", "danger", "warning", "food",
- "recovery", "sound", "talk", "intrinsic_gain", "mutation", "monster_spell",
- "monster_enchant", "monster_damage", "rotten_meat", "equipment",
- "diagnostic",
-};
-
-// returns -1 if unmatched else returns 0-15
-int str_to_channel( const std::string &str )
-{
- short ret;
-
- for (ret = 0; ret < NUM_MESSAGE_CHANNELS; ret++)
- {
- if (str == message_channel_names[ret])
- break;
- }
-
- return (ret == NUM_MESSAGE_CHANNELS ? -1 : ret);
-}
-
-std::string channel_to_str( int channel )
-{
- if (channel < 0 || channel >= NUM_MESSAGE_CHANNELS)
- return "";
-
- return message_channel_names[channel];
-}
-
-static int str_to_weapon( const std::string &str )
-{
- if (str == "shortsword" || str == "short sword")
- return (WPN_SHORT_SWORD);
- else if (str == "mace")
- return (WPN_MACE);
- else if (str == "spear")
- return (WPN_SPEAR);
- else if (str == "trident")
- return (WPN_TRIDENT);
- else if (str == "hand axe" || str == "handaxe")
- return (WPN_HAND_AXE);
- else if (str == "random")
- return (WPN_RANDOM);
-
- return (WPN_UNKNOWN);
-}
-
-static std::string weapon_to_str( int weapon )
-{
- switch (weapon)
- {
- case WPN_SHORT_SWORD:
- return "short sword";
- case WPN_MACE:
- return "mace";
- case WPN_SPEAR:
- return "spear";
- case WPN_TRIDENT:
- return "trident";
- case WPN_HAND_AXE:
- return "hand axe";
- case WPN_RANDOM:
- return "random";
- default:
- return "random";
- }
-}
-
-static unsigned int str_to_fire_types( const std::string &str )
-{
- if (str == "launcher")
- return (FIRE_LAUNCHER);
- else if (str == "dart")
- return (FIRE_DART);
- else if (str == "stone")
- return (FIRE_STONE);
- else if (str == "dagger")
- return (FIRE_DAGGER);
- else if (str == "spear")
- return (FIRE_SPEAR);
- else if (str == "hand axe" || str == "handaxe")
- return (FIRE_HAND_AXE);
- else if (str == "club")
- return (FIRE_CLUB);
-
- return (FIRE_NONE);
-}
-
-static void str_to_fire_order( const std::string &str,
- FixedVector< int, NUM_FIRE_TYPES > &list )
-{
- int i;
- size_t pos = 0;
- std::string item = "";
-
- for (i = 0; i < NUM_FIRE_TYPES; i++)
- {
- // get next item from comma delimited list
- const size_t end = str.find( ',', pos );
- item = str.substr( pos, end - pos );
- trim_string( item );
-
- list[i] = str_to_fire_types( item );
-
- if (end == std::string::npos)
- break;
- else
- pos = end + 1;
- }
-}
-
-static char str_to_race( const std::string &str )
-{
- int index = -1;
-
- if (str.length() == 1) // old system of using menu letter
- return (str[0]);
- else if (str.length() == 2) // scan abbreviations
- index = get_species_index_by_abbrev( str.c_str() );
-
- // if we don't have a match, scan the full names
- if (index == -1)
- index = get_species_index_by_name( str.c_str() );
-
- // skip over the extra draconians here
- if (index > SP_RED_DRACONIAN)
- index -= (SP_CENTAUR - SP_RED_DRACONIAN - 1);
-
- // SP_HUMAN is at 1, therefore we must subtract one.
- return ((index != -1) ? index_to_letter( index - 1 ) : '\0');
-}
-
-static char str_to_class( const std::string &str )
-{
- int index = -1;
-
- if (str.length() == 1) // old system of using menu letter
- return (str[0]);
- else if (str.length() == 2) // scan abbreviations
- index = get_class_index_by_abbrev( str.c_str() );
-
- // if we don't have a match, scan the full names
- if (index == -1)
- index = get_class_index_by_name( str.c_str() );
-
- return ((index != -1) ? index_to_letter( index ) : '\0');
-}
-
-static std::string & tolower_string( std::string &str )
-{
- if (str.length())
- {
- for (std::string::iterator cp = str.begin(); cp != str.end(); cp++)
- {
- *cp = tolower( *cp );
- }
- }
-
- return (str);
-}
-
-static bool read_bool( const std::string &field, bool def_value )
-{
- bool ret = def_value;
-
- if (field == "true" || field == "1")
- ret = true;
-
- if (field == "false" || field == "0")
- ret = false;
-
- return (ret);
-}
-
-static unsigned curses_attribute(const std::string &field)
-{
- if (field == "standout") // probably reverses
- return CHATTR_STANDOUT;
- else if (field == "bold") // probably brightens fg
- return CHATTR_BOLD;
- else if (field == "blink") // probably brightens bg
- return CHATTR_BLINK;
- else if (field == "underline")
- return CHATTR_UNDERLINE;
- else if (field == "reverse")
- return CHATTR_REVERSE;
- else if (field == "dim")
- return CHATTR_DIM;
- else if (field.find("hi:") == 0 || field.find("hilite:") == 0 ||
- field.find("highlight:") == 0)
- {
- int col = field.find(":");
- int colour = str_to_colour(field.substr(col + 1));
- if (colour == -1)
- fprintf(stderr, "Bad highlight string -- %s\n", field.c_str());
- else
- return CHATTR_HILITE | (colour << 8);
- }
- else
- fprintf( stderr, "Bad colour -- %s\n", field.c_str() );
- return CHATTR_NORMAL;
-}
-
-
-static void reset_startup_options(bool clear_name = true)
-{
- if (clear_name)
- you.your_name[0] = '\0';
- Options.race = '\0';
- Options.cls = '\0';
- Options.weapon = WPN_UNKNOWN;
- Options.random_pick = false;
- Options.chaos_knight = GOD_NO_GOD;
- Options.death_knight = DK_NO_SELECTION;
- Options.priest = GOD_NO_GOD;
-}
-
-void reset_options(bool clear_name)
-{
- // Option initialization
- Options.activity_interrupts[ ACT_MULTIDROP ] =
- AI_HP_LOSS | AI_STAT_CHANGE | AI_TELEPORT;
- Options.activity_interrupts[ ACT_RUNNING ] =
- 0xFFFF ^ AI_SEE_MONSTER;
- Options.activity_interrupts[ ACT_TRAVELING ] =
- 0xFFFF ^ (AI_MESSAGE | AI_SEE_MONSTER);
-
- reset_startup_options(clear_name);
- Options.prev_race = 0;
- Options.prev_cls = 0;
- Options.prev_ck = GOD_NO_GOD;
- Options.prev_dk = DK_NO_SELECTION;
- Options.prev_pr = GOD_NO_GOD;
- Options.prev_weapon = WPN_UNKNOWN;
- Options.prev_randpick = false;
- Options.remember_name = false;
-
-#ifdef USE_ASCII_CHARACTERS
- Options.ascii_display = true;
-#else
- Options.ascii_display = false;
-#endif
-
- Options.autopickups = 0x0000;
- Options.verbose_dump = false;
- Options.detailed_stat_dump = true;
- Options.colour_map = false;
- Options.clean_map = false;
- Options.show_uncursed = true;
- Options.always_greet = false;
- Options.easy_open = true;
- Options.easy_armour = true;
- Options.easy_butcher = false;
- Options.easy_confirm = CONFIRM_SAFE_EASY;
- Options.easy_quit_item_prompts = false;
- Options.hp_warning = 10;
- Options.hp_attention = 25;
- Options.terse_hand = true;
- Options.auto_list = false;
- Options.delay_message_clear = false;
- Options.pickup_dropped = true;
- Options.travel_colour = true;
- Options.travel_delay = -1;
- Options.travel_stair_cost = 500;
- Options.travel_exclude_radius2 = 68;
- Options.show_waypoints = true;
- Options.item_colour = false;
-
- Options.detected_item_colour = DARKGREY;
- Options.detected_monster_colour= DARKGREY;
- Options.remembered_monster_colour = 0;
-
- Options.easy_exit_menu = true;
- Options.dos_use_background_intensity = false;
- Options.assign_item_slot = SS_FORWARD;
-
- Options.macro_meta_entry = true;
-
- // 10 was the cursor step default on Linux.
- Options.level_map_cursor_step = 10;
-
-#ifdef STASH_TRACKING
- Options.stash_tracking = STM_NONE;
-#endif
- Options.explore_stop = ES_ITEM | ES_STAIR | ES_SHOP | ES_ALTAR;
- Options.target_zero_exp = true;
- Options.target_wrap = false;
- Options.target_oos = true;
- Options.target_los_first = true;
- Options.dump_kill_places = KDO_ONE_PLACE;
- Options.dump_message_count = 4;
- Options.dump_item_origins = IODS_ARTIFACTS | IODS_RODS;
- Options.dump_item_origin_price = -1;
-
- Options.drop_mode = DM_SINGLE;
-
- Options.flush_input[ FLUSH_ON_FAILURE ] = true;
- Options.flush_input[ FLUSH_BEFORE_COMMAND ] = false;
- Options.flush_input[ FLUSH_ON_MESSAGE ] = false;
- Options.flush_input[ FLUSH_LUA ] = true;
-
- Options.lowercase_invocations = false;
-
- // Note: These fire options currently match the old behaviour. -- bwr
- Options.fire_items_start = 0; // start at slot 'a'
-
- Options.fire_order[0] = FIRE_LAUNCHER; // fire first from bow...
- Options.fire_order[1] = FIRE_DART; // then only consider darts
-
- // clear the rest of the list
- for (int i = 2; i < NUM_FIRE_TYPES; i++)
- Options.fire_order[i] = FIRE_NONE;
-
- Options.fsim_rounds = 40000L;
- Options.fsim_mons = "worm";
- Options.fsim_str = Options.fsim_int = Options.fsim_dex = 15;
- Options.fsim_xl = 10;
- Options.fsim_kit.clear();
-
- // These are only used internally, and only from the commandline:
- // XXX: These need a better place.
- Options.sc_entries = 0;
- Options.sc_format = SCORE_REGULAR;
-
-//#ifdef USE_COLOUR_OPTS
- Options.friend_brand = CHATTR_NORMAL;
- Options.heap_brand = CHATTR_NORMAL;
- Options.stab_brand = CHATTR_NORMAL;
- Options.may_stab_brand = CHATTR_NORMAL;
- Options.no_dark_brand = 0;
-//#endif
-
-#ifdef WIZARD
- Options.wiz_mode = WIZ_NO;
-#endif
-
- // map each colour to itself as default
-#ifdef USE_8_COLOUR_TERM_MAP
- for (int i = 0; i < 16; i++)
- Options.colour[i] = i % 8;
-
- Options.colour[ DARKGREY ] = COL_TO_REPLACE_DARKGREY;
-#else
- for (int i = 0; i < 16; i++)
- Options.colour[i] = i;
-#endif
-
- // map each channel to plain (well, default for now since I'm testing)
- for (int i = 0; i < NUM_MESSAGE_CHANNELS; i++)
- Options.channels[i] = MSGCOL_DEFAULT;
-
- // Clear vector options.
- Options.banned_objects.clear();
- Options.stop_travel.clear();
- Options.sound_mappings.clear();
- Options.menu_colour_mappings.clear();
- Options.drop_filter.clear();
-
- Options.named_options.clear();
-
- // Map each category to itself. The user can override in init.txt
- Options.kill_map[KC_YOU] = KC_YOU;
- Options.kill_map[KC_FRIENDLY] = KC_FRIENDLY;
- Options.kill_map[KC_OTHER] = KC_OTHER;
-
- // Setup travel information. What's a better place to do this?
- initialise_travel();
-}
-
-void read_init_file(bool runscript)
-{
- FILE *f;
- char name_buff[kPathLen];
-
- reset_options(!runscript);
-
- if (!runscript)
- you.your_name[0] = '\0';
-
- if (SysEnv.crawl_rc)
- {
- f = fopen(SysEnv.crawl_rc, "r");
- }
- else if (SysEnv.crawl_dir)
- {
- strncpy(name_buff, SysEnv.crawl_dir, kPathLen);
- name_buff[ kPathLen - 1 ] = '\0';
- strncat(name_buff, "init.txt", kPathLen);
- name_buff[ kPathLen - 1 ] = '\0';
-
- f = fopen(name_buff, "r");
- }
-#ifdef MULTIUSER
- else if (SysEnv.home)
- {
- // init.txt isn't such a good choice if we're looking in
- // the user's home directory, we'll use Un*x standard
- strncpy(name_buff, SysEnv.home, kPathLen);
- name_buff[ kPathLen - 1 ] = '\0';
-
- // likely not to have a closing slash so we'll insert one...
- strncat(name_buff, "/.crawlrc", kPathLen);
- name_buff[ kPathLen - 1 ] = '\0';
-
- f = fopen(name_buff, "r");
- }
-#endif
- else
- {
- f = fopen("init.txt", "r");
- }
-
- if (f == NULL)
- return;
-
- if (!runscript)
- read_startup_prefs();
-
- read_options(f, runscript);
- fclose(f);
-} // end read_init_file()
-
-static void read_startup_prefs()
-{
- std::string fn = get_prefs_filename();
- FILE *f = fopen(fn.c_str(), "r");
- if (!f)
- return;
- read_options(f);
- fclose(f);
-
- Options.prev_randpick = Options.random_pick;
- Options.prev_weapon = Options.weapon;
- Options.prev_pr = Options.priest;
- Options.prev_dk = Options.death_knight;
- Options.prev_ck = Options.chaos_knight;
- Options.prev_cls = Options.cls;
- Options.prev_race = Options.race;
- Options.prev_name = you.your_name;
-
- reset_startup_options();
-}
-
-static void write_newgame_options(FILE *f)
-{
- // Write current player name
- fprintf(f, "name = %s\n", you.your_name);
-
- if (Options.prev_randpick)
- Options.prev_race = Options.prev_cls = '?';
-
- // Race selection
- if (Options.prev_race)
- fprintf(f, "race = %c\n", Options.prev_race);
- if (Options.prev_cls)
- fprintf(f, "class = %c\n", Options.prev_cls);
-
- if (Options.prev_weapon != WPN_UNKNOWN)
- fprintf(f, "weapon = %s\n", weapon_to_str(Options.prev_weapon).c_str());
-
- if (Options.prev_ck != GOD_NO_GOD)
- {
- fprintf(f, "chaos_knight = %s\n",
- Options.prev_ck == GOD_XOM? "xom" :
- Options.prev_ck == GOD_MAKHLEB? "makhleb" :
- "random");
- }
- if (Options.prev_dk != DK_NO_SELECTION)
- {
- fprintf(f, "death_knight = %s\n",
- Options.prev_dk == DK_NECROMANCY? "necromancy" :
- Options.prev_dk == DK_YREDELEMNUL? "yredelemnul" :
- "random");
- }
- if (Options.prev_pr != GOD_NO_GOD)
- {
- fprintf(f, "priest = %s\n",
- Options.prev_pr == GOD_ZIN? "zin" :
- Options.prev_pr == GOD_YREDELEMNUL? "yredelemnul" :
- "random");
- }
-}
-
-void write_newgame_options_file()
-{
- std::string fn = get_prefs_filename();
- FILE *f = fopen(fn.c_str(), "w");
- if (!f)
- return;
- write_newgame_options(f);
- fclose(f);
-}
-
-void save_player_name()
-{
- if (!Options.remember_name)
- return ;
-
- std::string playername = you.your_name;
-
- // Read other preferences
- read_startup_prefs();
-
- // Put back your name
- strncpy(you.your_name, playername.c_str(), kNameLen);
- you.your_name[kNameLen - 1] = 0;
-
- // And save
- write_newgame_options_file();
-}
-
-void read_options(FILE *f, bool runscript)
-{
- FileLineInput fl(f);
- read_options(fl, runscript);
-}
-
-void read_options(const std::string &s, bool runscript)
-{
- StringLineInput st(s);
- read_options(st, runscript);
-}
-
-extern void (*viewwindow) (char, bool);
-/* these are all defined in view.cc: */
-extern unsigned char (*mapch) (unsigned char);
-extern unsigned char (*mapch2) (unsigned char);
-unsigned char mapchar(unsigned char ldfk);
-unsigned char mapchar2(unsigned char ldfk);
-unsigned char mapchar3(unsigned char ldfk);
-unsigned char mapchar4(unsigned char ldfk);
-void apply_ascii_display(bool ascii)
-{
- if (ascii)
- {
- // Default to the non-ibm set when it makes sense.
- viewwindow = &viewwindow3;
- mapch = &mapchar3;
- mapch2 = &mapchar4;
- }
- else
- {
- // Use the standard ibm default
- viewwindow = &viewwindow2;
- mapch = &mapchar;
- mapch2 = &mapchar2;
- }
-}
-
-static void read_options(InitLineInput &il, bool runscript)
-{
- unsigned int line = 0;
-
- bool inscriptblock = false;
- bool inscriptcond = false;
- bool isconditional = false;
-
- bool l_init = false;
-
- std::string luacond;
- std::string luacode;
- while (!il.eof())
- {
- std::string s = il.getline();
- std::string str = s;
- line++;
-
- trim_string( str );
-
- // This is to make some efficient comments
- if ((str.empty() || str[0] == '#') && !inscriptcond && !inscriptblock)
- continue;
-
- if (!inscriptcond && (str.find("L<") == 0 || str.find("<") == 0))
- {
- // The init file is now forced into isconditional mode.
- isconditional = true;
- inscriptcond = true;
-
- str = str.substr( str.find("L<") == 0? 2 : 1 );
- // Is this a one-liner?
- if (!str.empty() && str[ str.length() - 1 ] == '>') {
- inscriptcond = false;
- str = str.substr(0, str.length() - 1);
- }
-
- if (!str.empty() && runscript)
- {
- // If we're in the middle of an option block, close it.
- if (luacond.length() && l_init)
- {
- luacond += "]] )\n";
- l_init = false;
- }
- luacond += str + "\n";
- }
- continue;
- }
- else if (inscriptcond &&
- (str.find(">") == str.length() - 1 || str == ">L"))
- {
- inscriptcond = false;
- str = str.substr(0, str.length() - 1);
- if (!str.empty() && runscript)
- luacond += str + "\n";
- continue;
- }
- else if (inscriptcond)
- {
- if (runscript)
- luacond += s + "\n";
- continue;
- }
-
- // Handle blocks of Lua
- if (!inscriptblock && (str.find("Lua{") == 0 || str.find("{") == 0))
- {
- inscriptblock = true;
- luacode.clear();
-
- // Strip leading Lua[
- str = str.substr( str.find("Lua{") == 0? 4 : 1 );
-
- if (!str.empty() && str.find("}") == str.length() - 1)
- {
- str = str.substr(0, str.length() - 1);
- inscriptblock = false;
- }
-
- if (!str.empty())
- luacode += str + "\n";
-
- if (!inscriptblock && runscript)
- {
-#ifdef CLUA_BINDINGS
- clua.execstring(luacode.c_str());
- if (clua.error.length())
- fprintf(stderr, "Lua error: %s\n", clua.error.c_str());
- luacode.clear();
-#endif
- }
-
- continue;
- }
- else if (inscriptblock && (str == "}Lua" || str == "}"))
- {
- inscriptblock = false;
-#ifdef CLUA_BINDINGS
- if (runscript)
- {
- clua.execstring(luacode.c_str());
- if (clua.error.length())
- fprintf(stderr, "Lua error: %s\n",
- clua.error.c_str());
- }
-#endif
- luacode.clear();
- continue;
- }
- else if (inscriptblock)
- {
- luacode += s + "\n";
- continue;
- }
-
- if (isconditional && runscript)
- {
- if (!l_init)
- {
- luacond += "crawl.setopt( [[\n";
- l_init = true;
- }
-
- luacond += s + "\n";
- continue;
- }
-
- parse_option_line(str, runscript);
- }
-
-#ifdef CLUA_BINDINGS
- if (runscript && !luacond.empty())
- {
- if (l_init)
- luacond += "]] )\n";
- clua.execstring(luacond.c_str());
- if (clua.error.length())
- {
- mpr( ("Lua error: " + clua.error).c_str() );
- }
- }
-#endif
-
- apply_ascii_display(Options.ascii_display);
-}
-
-static int str_to_killcategory(const std::string &s)
-{
- static const char *kc[] = {
- "you",
- "friend",
- "other",
- };
-
- for (unsigned i = 0; i < sizeof(kc) / sizeof(*kc); ++i) {
- if (s == kc[i])
- return i;
- }
- return -1;
-}
-
-static void do_kill_map(const std::string &from, const std::string &to)
-{
- int ifrom = str_to_killcategory(from),
- ito = str_to_killcategory(to);
- if (ifrom != -1 && ito != -1)
- Options.kill_map[ifrom] = ito;
-}
-
-void parse_option_line(const std::string &str, bool runscript)
-{
- std::string key = "";
- std::string subkey = "";
- std::string field = "";
-
- int first_equals = str.find('=');
- int first_dot = str.find('.');
-
- // all lines with no equal-signs we ignore
- if (first_equals < 0)
- return;
-
- if (first_dot > 0 && first_dot < first_equals)
- {
- key = str.substr( 0, first_dot );
- subkey = str.substr( first_dot + 1, first_equals - first_dot - 1 );
- field = str.substr( first_equals + 1 );
- }
- else
- {
- // no subkey (dots are okay in value field)
- key = str.substr( 0, first_equals );
- subkey = "";
- field = str.substr( first_equals + 1 );
- }
-
- // Clean up our data...
- tolower_string( trim_string( key ) );
- tolower_string( trim_string( subkey ) );
-
- // some fields want capitals... none care about external spaces
- trim_string( field );
-
- // Keep unlowercased field around
- std::string orig_field = field;
-
- if (key != "name" && key != "crawl_dir"
- && key != "race" && key != "class" && key != "ban_pickup"
- && key != "stop_travel" && key != "sound"
- && key != "drop_filter" && key != "lua_file")
- {
- tolower_string( field );
- }
-
- // everything not a valid line is treated as a comment
- if (key == "autopickup")
- {
- for (size_t i = 0; i < field.length(); i++)
- {
- char type = field[i];
-
- // Make the amulet symbol equiv to ring -- bwross
- switch (type)
- {
- case '"':
- // also represents jewellery
- type = '=';
- break;
-
- case '|':
- // also represents staves
- type = '\\';
- break;
-
- case ':':
- // also represents books
- type = '+';
- break;
-
- case 'x':
- // also corpses
- type = 'X';
- break;
- }
-
- int j;
- for (j = 0; j < obj_syms_len && type != obj_syms[j]; j++)
- ;
-
- if (j < obj_syms_len)
- Options.autopickups |= (1L << j);
- else
- {
- fprintf( stderr, "Bad object type '%c' for autopickup.\n",
- type );
- }
- }
- }
- else if (key == "name")
- {
- // field is already cleaned up from trim_string()
- strncpy(you.your_name, field.c_str(), kNameLen);
- you.your_name[ kNameLen - 1 ] = '\0';
- }
- else if (key == "verbose_dump")
- {
- // gives verbose info in char dumps
- Options.verbose_dump = read_bool( field, Options.verbose_dump );
- }
- else if (key == "ascii_display")
- {
- Options.ascii_display = read_bool( field, Options.ascii_display );
- }
- else if (key == "detailed_stat_dump")
- {
- Options.detailed_stat_dump =
- read_bool( field, Options.detailed_stat_dump );
- }
- else if (key == "clean_map")
- {
- // removes monsters/clouds from map
- Options.clean_map = read_bool( field, Options.clean_map );
- }
- else if (key == "colour_map" || key == "color_map")
- {
- // colour-codes play-screen map
- Options.colour_map = read_bool( field, Options.colour_map );
- }
- else if (key == "easy_confirm")
- {
- // allows both 'Y'/'N' and 'y'/'n' on yesno() prompts
- if (field == "none")
- Options.easy_confirm = CONFIRM_NONE_EASY;
- else if (field == "safe")
- Options.easy_confirm = CONFIRM_SAFE_EASY;
- else if (field == "all")
- Options.easy_confirm = CONFIRM_ALL_EASY;
- }
- else if (key == "easy_quit_item_lists")
- {
- // allow aborting of item lists with space
- Options.easy_quit_item_prompts = read_bool( field,
- Options.easy_quit_item_prompts );
- }
- else if (key == "easy_open")
- {
- // automatic door opening with movement
- Options.easy_open = read_bool( field, Options.easy_open );
- }
- else if (key == "easy_armour" || key == "easy_armour")
- {
- // automatic removal of armour when dropping
- Options.easy_armour = read_bool( field, Options.easy_armour );
- }
- else if (key == "easy_butcher")
- {
- // automatic knife switching
- Options.easy_butcher = read_bool( field, Options.easy_butcher );
- }
- else if (key == "lua_file" && runscript)
- {
-#ifdef CLUA_BINDINGS
- clua.execfile(field.c_str());
- if (clua.error.length())
- fprintf(stderr, "Lua error: %s\n",
- clua.error.c_str());
-#endif
- }
- else if (key == "colour" || key == "color")
- {
- const int orig_col = str_to_colour( subkey );
- const int result_col = str_to_colour( field );
-
- if (orig_col != -1 && result_col != -1)
- Options.colour[orig_col] = result_col;
- else
- {
- fprintf( stderr, "Bad colour -- %s=%d or %s=%d\n",
- subkey.c_str(), orig_col, field.c_str(), result_col );
- }
- }
- else if (key == "channel")
- {
- const int chnl = str_to_channel( subkey );
- const int col = str_to_channel_colour( field );
-
- if (chnl != -1 && col != -1)
- Options.channels[chnl] = col;
- else if (chnl == -1)
- fprintf( stderr, "Bad channel -- %s\n", subkey.c_str() );
- else if (col == -1)
- fprintf( stderr, "Bad colour -- %s\n", field.c_str() );
- }
- else if (key == "background")
- {
- // change background colour
- // Experimental! This may look really bad!
- const int col = str_to_colour( field );
-
- if (col != -1)
- Options.background = col;
- else
- fprintf( stderr, "Bad colour -- %s\n", field.c_str() );
-
- }
- else if (key == "detected_item_colour")
- {
- const int col = str_to_colour( field );
- if (col != -1)
- Options.detected_item_colour = col;
- else
- fprintf( stderr, "Bad detected_item_colour -- %s\n",
- field.c_str());
- }
- else if (key == "detected_monster_colour")
- {
- const int col = str_to_colour( field );
- if (col != -1)
- Options.detected_monster_colour = col;
- else
- fprintf( stderr, "Bad detected_monster_colour -- %s\n",
- field.c_str());
- }
- else if (key == "remembered_monster_colour")
- {
- if (field == "real")
- Options.remembered_monster_colour = 0xFFFFU;
- else if (field == "auto")
- Options.remembered_monster_colour = 0;
- else {
- const int col = str_to_colour( field );
- if (col != -1)
- Options.remembered_monster_colour = col;
- else
- fprintf( stderr, "Bad remembered_monster_colour -- %s\n",
- field.c_str());
- }
- }
- else if (key == "friend_brand")
- {
- // Use curses attributes to mark friend
- // Some may look bad on some terminals.
- // As a suggestion, try "rxvt -rv -fn 10x20" under Un*xes
- Options.friend_brand = curses_attribute(field);
- }
- else if (key == "stab_brand")
- {
- Options.stab_brand = curses_attribute(field);
- }
- else if (key == "may_stab_brand")
- {
- Options.may_stab_brand = curses_attribute(field);
- }
- else if (key == "no_dark_brand")
- {
- // This is useful for terms where dark grey does
- // not have standout modes (since it's black on black).
- // This option will use light-grey instead in these cases.
- Options.no_dark_brand = read_bool( field, Options.no_dark_brand );
- }
- else if (key == "heap_brand")
- {
- // See friend_brand option upstairs. no_dark_brand applies
- // here as well.
- Options.heap_brand = curses_attribute(field);
- }
- else if (key == "show_uncursed")
- {
- // label known uncursed items as "uncursed"
- Options.show_uncursed = read_bool( field, Options.show_uncursed );
- }
- else if (key == "always_greet")
- {
- // show greeting when reloading game
- Options.always_greet = read_bool( field, Options.always_greet );
- }
- else if (key == "weapon")
- {
- // choose this weapon for classes that get choice
- Options.weapon = str_to_weapon( field );
- }
- else if (key == "chaos_knight")
- {
- // choose god for Chaos Knights
- if (field == "xom")
- Options.chaos_knight = GOD_XOM;
- else if (field == "makhleb")
- Options.chaos_knight = GOD_MAKHLEB;
- else if (field == "random")
- Options.chaos_knight = GOD_RANDOM;
- }
- else if (key == "death_knight")
- {
- if (field == "necromancy")
- Options.death_knight = DK_NECROMANCY;
- else if (field == "yredelemnul")
- Options.death_knight = DK_YREDELEMNUL;
- else if (field == "random")
- Options.death_knight = DK_RANDOM;
- }
- else if (key == "priest")
- {
- // choose this weapon for classes that get choice
- if (field == "zin")
- Options.priest = GOD_ZIN;
- else if (field == "yredelemnul")
- Options.priest = GOD_YREDELEMNUL;
- else if (field == "random")
- Options.priest = GOD_RANDOM;
- }
- else if (key == "fire_items_start")
- {
- if (isalpha( field[0] ))
- Options.fire_items_start = letter_to_index( field[0] );
- else
- {
- fprintf( stderr, "Bad fire item start index -- %s\n",
- field.c_str() );
- }
- }
- else if (key == "assign_item_slot")
- {
- if (field == "forward")
- Options.assign_item_slot = SS_FORWARD;
- else if (field == "backward")
- Options.assign_item_slot = SS_BACKWARD;
- }
- else if (key == "fire_order")
- {
- str_to_fire_order( field, Options.fire_order );
- }
- else if (key == "random_pick")
- {
- // randomly generate character
- Options.random_pick = read_bool( field, Options.random_pick );
- }
- else if (key == "remember_name")
- {
- Options.remember_name = read_bool( field, Options.remember_name );
- }
- else if (key == "hp_warning")
- {
- Options.hp_warning = atoi( field.c_str() );
- if (Options.hp_warning < 0 || Options.hp_warning > 100)
- {
- Options.hp_warning = 0;
- fprintf( stderr, "Bad HP warning percentage -- %s\n",
- field.c_str() );
- }
- }
- else if (key == "hp_attention")
- {
- Options.hp_attention = atoi( field.c_str() );
- if (Options.hp_attention < 0 || Options.hp_attention > 100)
- {
- Options.hp_attention = 0;
- fprintf( stderr, "Bad HP attention percentage -- %s\n",
- field.c_str() );
- }
- }
- else if (key == "crawl_dir")
- {
- // We shouldn't bother to allocate this a second time
- // if the user puts two crawl_dir lines in the init file.
- if (!SysEnv.crawl_dir)
- SysEnv.crawl_dir = (char *) calloc(kPathLen, sizeof(char));
-
- if (SysEnv.crawl_dir)
- {
- strncpy(SysEnv.crawl_dir, field.c_str(), kNameLen - 1);
- SysEnv.crawl_dir[ kNameLen - 1 ] = '\0';
- }
- }
- else if (key == "race")
- {
- Options.race = str_to_race( field );
-
- if (Options.race == '\0')
- fprintf( stderr, "Unknown race choice: %s\n", field.c_str() );
- }
- else if (key == "class")
- {
- Options.cls = str_to_class( field );
-
- if (Options.cls == '\0')
- fprintf( stderr, "Unknown class choice: %s\n", field.c_str() );
- }
- else if (key == "auto_list")
- {
- Options.auto_list = read_bool( field, Options.auto_list );
- }
- else if (key == "delay_message_clear")
- {
- Options.delay_message_clear = read_bool( field, Options.delay_message_clear );
- }
- else if (key == "terse_hand")
- {
- Options.terse_hand = read_bool( field, Options.terse_hand );
- }
- else if (key == "flush")
- {
- if (subkey == "failure")
- {
- Options.flush_input[FLUSH_ON_FAILURE]
- = read_bool(field, Options.flush_input[FLUSH_ON_FAILURE]);
- }
- else if (subkey == "command")
- {
- Options.flush_input[FLUSH_BEFORE_COMMAND]
- = read_bool(field, Options.flush_input[FLUSH_BEFORE_COMMAND]);
- }
- else if (subkey == "message")
- {
- Options.flush_input[FLUSH_ON_MESSAGE]
- = read_bool(field, Options.flush_input[FLUSH_ON_MESSAGE]);
- }
- else if (subkey == "lua")
- {
- Options.flush_input[FLUSH_LUA]
- = read_bool(field, Options.flush_input[FLUSH_LUA]);
- }
- }
- else if (key == "lowercase_invocations")
- {
- Options.lowercase_invocations
- = read_bool(field, Options.lowercase_invocations);
- }
- else if (key == "wiz_mode")
- {
- // wiz_mode is recognized as a legal key in all compiles -- bwr
-#ifdef WIZARD
- if (field == "never")
- Options.wiz_mode = WIZ_NEVER;
- else if (field == "no")
- Options.wiz_mode = WIZ_NO;
- else if (field == "yes")
- Options.wiz_mode = WIZ_YES;
- else
- fprintf(stderr, "Unknown wiz_mode option: %s\n", field.c_str());
-#endif
- }
- else if (key == "ban_pickup")
- {
- append_vector(Options.banned_objects, split_string(",", field));
- }
- else if (key == "pickup_thrown")
- {
- Options.pickup_thrown = read_bool(field, Options.pickup_thrown);
- }
- else if (key == "pickup_dropped")
- {
- Options.pickup_dropped = read_bool(field, Options.pickup_dropped);
- }
- else if (key == "show_waypoints")
- {
- Options.show_waypoints = read_bool(field, Options.show_waypoints);
- }
- else if (key == "fsim_kit")
- {
- append_vector(Options.fsim_kit, split_string(",", field));
- }
- else if (key == "fsim_rounds")
- {
- Options.fsim_rounds = atol(field.c_str());
- if (Options.fsim_rounds < 1000)
- Options.fsim_rounds = 1000;
- if (Options.fsim_rounds > 500000L)
- Options.fsim_rounds = 500000L;
- }
- else if (key == "fsim_mons")
- {
- Options.fsim_mons = field;
- }
- else if (key == "fsim_str")
- {
- Options.fsim_str = atoi(field.c_str());
- }
- else if (key == "fsim_int")
- {
- Options.fsim_int = atoi(field.c_str());
- }
- else if (key == "fsim_dex")
- {
- Options.fsim_dex = atoi(field.c_str());
- }
- else if (key == "fsim_xl")
- {
- Options.fsim_xl = atoi(field.c_str());
- }
- else if (key == "travel_delay")
- {
- // Read travel delay in milliseconds.
- Options.travel_delay = atoi( field.c_str() );
- if (Options.travel_delay < -1)
- Options.travel_delay = -1;
- if (Options.travel_delay > 2000)
- Options.travel_delay = 2000;
- }
- else if (key == "level_map_cursor_step")
- {
- Options.level_map_cursor_step = atoi( field.c_str() );
- if (Options.level_map_cursor_step < 1)
- Options.level_map_cursor_step = 1;
- if (Options.level_map_cursor_step > 50)
- Options.level_map_cursor_step = 50;
- }
- else if (key == "macro_meta_entry")
- {
- Options.macro_meta_entry = read_bool(field, Options.macro_meta_entry);
- }
- else if (key == "travel_stair_cost")
- {
- Options.travel_stair_cost = atoi( field.c_str() );
- if (Options.travel_stair_cost < 1)
- Options.travel_stair_cost = 1;
- else if (Options.travel_stair_cost > 1000)
- Options.travel_stair_cost = 1000;
- }
- else if (key == "travel_exclude_radius2")
- {
- Options.travel_exclude_radius2 = atoi( field.c_str() );
- if (Options.travel_exclude_radius2 < 0)
- Options.travel_exclude_radius2 = 0;
- else if (Options.travel_exclude_radius2 > 400)
- Options.travel_exclude_radius2 = 400;
- }
- else if (key == "stop_travel")
- {
- std::vector<std::string> fragments = split_string(",", field);
- for (int i = 0, count = fragments.size(); i < count; ++i)
- {
- if (fragments[i].length() == 0)
- continue;
-
- std::string::size_type pos = fragments[i].find(":");
- if (pos && pos != std::string::npos)
- {
- std::string prefix = fragments[i].substr(0, pos);
- int channel = str_to_channel( prefix );
- if (channel != -1 || prefix == "any")
- {
- std::string s = fragments[i].substr( pos + 1 );
- trim_string( s );
- Options.stop_travel.push_back(
- message_filter( channel, s ) );
- continue;
- }
- }
-
- Options.stop_travel.push_back(
- message_filter( fragments[i] ) );
- }
- }
- else if (key == "drop_filter")
- {
- append_vector(Options.drop_filter, split_string(",", field));
- }
- else if (key == "travel_avoid_terrain")
- {
- std::vector<std::string> seg = split_string(",", field);
- for (int i = 0, count = seg.size(); i < count; ++i)
- prevent_travel_to( seg[i] );
- }
- else if (key == "travel_colour")
- {
- Options.travel_colour = read_bool(field, Options.travel_colour);
- }
- else if (key == "item_colour")
- {
- Options.item_colour = read_bool(field, Options.item_colour);
- }
- else if (key == "easy_exit_menu")
- {
- Options.easy_exit_menu = read_bool(field, Options.easy_exit_menu);
- }
- else if (key == "dos_use_background_intensity")
- {
- Options.dos_use_background_intensity =
- read_bool(field, Options.dos_use_background_intensity);
- }
- else if (key == "explore_stop")
- {
- Options.explore_stop = ES_NONE;
- std::vector<std::string> stops = split_string(",", field);
- for (int i = 0, count = stops.size(); i < count; ++i)
- {
- const std::string &c = stops[i];
- if (c == "item" || c == "items")
- Options.explore_stop |= ES_ITEM;
- else if (c == "shop" || c == "shops")
- Options.explore_stop |= ES_SHOP;
- else if (c == "stair" || c == "stairs")
- Options.explore_stop |= ES_STAIR;
- else if (c == "altar" || c == "altars")
- Options.explore_stop |= ES_ALTAR;
- }
- }
-#ifdef STASH_TRACKING
- else if (key == "stash_tracking")
- {
- Options.stash_tracking =
- field == "explicit"? STM_EXPLICIT :
- field == "dropped" ? STM_DROPPED :
- field == "all" ? STM_ALL :
- STM_NONE;
- }
- else if (key == "stash_filter")
- {
- std::vector<std::string> seg = split_string(",", field);
- for (int i = 0, count = seg.size(); i < count; ++i)
- Stash::filter( seg[i] );
- }
-#endif
- else if (key == "sound")
- {
- std::vector<std::string> seg = split_string(",", field);
- for (int i = 0, count = seg.size(); i < count; ++i) {
- const std::string &sub = seg[i];
- std::string::size_type cpos = sub.find(":", 0);
- if (cpos != std::string::npos) {
- sound_mapping mapping;
- mapping.pattern = sub.substr(0, cpos);
- mapping.soundfile = sub.substr(cpos + 1);
- Options.sound_mappings.push_back(mapping);
- }
- }
- }
- else if (key == "menu_colour" || key == "menu_color")
- {
- std::vector<std::string> seg = split_string(",", field);
- for (int i = 0, count = seg.size(); i < count; ++i) {
- const std::string &sub = seg[i];
- std::string::size_type cpos = sub.find(":", 0);
- if (cpos != std::string::npos) {
- colour_mapping mapping;
- mapping.pattern = sub.substr(cpos + 1);
- mapping.colour = str_to_colour(sub.substr(0, cpos));
- if (mapping.colour != -1)
- Options.menu_colour_mappings.push_back(mapping);
- }
- }
- }
- else if (key == "dump_kill_places")
- {
- Options.dump_kill_places =
- field == "none"? KDO_NO_PLACES :
- field == "all" ? KDO_ALL_PLACES :
- KDO_ONE_PLACE;
- }
- else if (key == "kill_map")
- {
- std::vector<std::string> seg = split_string(",", field);
- for (int i = 0, count = seg.size(); i < count; ++i)
- {
- const std::string &s = seg[i];
- std::string::size_type cpos = s.find(":", 0);
- if (cpos != std::string::npos) {
- std::string from = s.substr(0, cpos);
- std::string to = s.substr(cpos + 1);
- do_kill_map(from, to);
- }
- }
- }
- else if (key == "dump_message_count")
- {
- // Capping is implicit
- Options.dump_message_count = atoi( field.c_str() );
- }
- else if (key == "dump_item_origins")
- {
- Options.dump_item_origins = IODS_PRICE;
- std::vector<std::string> choices = split_string(",", field);
- for (int i = 0, count = choices.size(); i < count; ++i)
- {
- const std::string &ch = choices[i];
- if (ch == "artifacts")
- Options.dump_item_origins |= IODS_ARTIFACTS;
- else if (ch == "ego_arm" || ch == "ego armour"
- || ch == "ego_armour")
- Options.dump_item_origins |= IODS_EGO_ARMOUR;
- else if (ch == "ego_weap" || ch == "ego weapon"
- || ch == "ego_weapon" || ch == "ego weapons"
- || ch == "ego_weapons")
- Options.dump_item_origins |= IODS_EGO_WEAPON;
- else if (ch == "jewellery" || ch == "jewelry")
- Options.dump_item_origins |= IODS_JEWELLERY;
- else if (ch == "runes")
- Options.dump_item_origins |= IODS_RUNES;
- else if (ch == "rods")
- Options.dump_item_origins |= IODS_RODS;
- else if (ch == "staves")
- Options.dump_item_origins |= IODS_STAVES;
- else if (ch == "books")
- Options.dump_item_origins |= IODS_BOOKS;
- else if (ch == "all" || ch == "everything")
- Options.dump_item_origins = IODS_EVERYTHING;
- }
- }
- else if (key == "dump_item_origin_price")
- {
- Options.dump_item_origin_price = atoi( field.c_str() );
- if (Options.dump_item_origin_price < -1)
- Options.dump_item_origin_price = -1;
- }
- else if (key == "target_zero_exp")
- {
- Options.target_zero_exp = read_bool(field, Options.target_zero_exp);
- }
- else if (key == "target_wrap")
- {
- Options.target_wrap = read_bool(field, Options.target_wrap);
- }
- else if (key == "target_oos")
- {
- Options.target_oos = read_bool(field, Options.target_oos);
- }
- else if (key == "target_los_first")
- {
- Options.target_los_first = read_bool(field, Options.target_los_first);
- }
- else if (key == "drop_mode")
- {
- if (field.find("multi") != std::string::npos)
- Options.drop_mode = DM_MULTI;
- else
- Options.drop_mode = DM_SINGLE;
- }
- // Catch-all else, copies option into map
- else
- {
-#ifdef CLUA_BINDINGS
- if (!clua.callbooleanfn(false, "c_process_lua_option", "ss",
- key.c_str(), orig_field.c_str()))
-#endif
- {
-#ifdef CLUA_BINDINGS
- if (clua.error.length())
- mpr(clua.error.c_str());
-#endif
- Options.named_options[key] = orig_field;
- }
- }
-}
-
-void get_system_environment(void)
-{
- // The player's name
- SysEnv.crawl_name = getenv("CRAWL_NAME");
-
- // The player's pizza
- SysEnv.crawl_pizza = getenv("CRAWL_PIZZA");
-
- // The directory which contians init.txt, macro.txt, morgue.txt
- // This should end with the appropriate path delimiter.
- SysEnv.crawl_dir = getenv("CRAWL_DIR");
-
- // The full path to the init file -- this over-rides CRAWL_DIR
- SysEnv.crawl_rc = getenv("CRAWL_RC");
-
- // rename giant and giant spiked clubs
- SysEnv.board_with_nail = (getenv("BOARD_WITH_NAIL") != NULL);
-
-#ifdef MULTIUSER
- // The user's home directory (used to look for ~/.crawlrc file)
- SysEnv.home = getenv("HOME");
-#endif
-} // end get_system_environment()
-
-
-// parse args, filling in Options and game environment as we go.
-// returns true if no unknown or malformed arguments were found.
-
-static const char *cmd_ops[] = { "scores", "name", "race", "class",
- "pizza", "plain", "dir", "rc", "tscores",
- "vscores" };
-
-const int num_cmd_ops = 10;
-bool arg_seen[num_cmd_ops];
-
-bool parse_args( int argc, char **argv, bool rc_only )
-{
- if (argc < 2) // no args!
- return (true);
-
- char *arg, *next_arg;
- int current = 1;
- bool nextUsed = false;
- int ecount;
-
- // initialize
- for(int i=0; i<num_cmd_ops; i++)
- arg_seen[i] = false;
-
- while(current < argc)
- {
- // get argument
- arg = argv[current];
-
- // next argument (if there is one)
- if (current+1 < argc)
- next_arg = argv[current+1];
- else
- next_arg = NULL;
-
- nextUsed = false;
-
- // arg MUST begin with '-' or '/'
- char c = arg[0];
- if (c != '-' && c != '/')
- return (false);
-
- // look for match (now we also except --scores)
- if (arg[1] == '-')
- arg = &arg[2];
- else
- arg = &arg[1];
-
- int o;
- for(o = 0; o < num_cmd_ops; o++)
- {
- if (stricmp(cmd_ops[o], arg) == 0)
- break;
- }
-
- if (o == num_cmd_ops)
- return (false);
-
- // disallow options specified more than once.
- if (arg_seen[o] == true)
- return (false);
-
- // set arg to 'seen'
- arg_seen[o] = true;
-
- // partially parse next argument
- bool next_is_param = false;
- if (next_arg != NULL)
- {
- if (next_arg[0] != '-' && next_arg[0] != '/')
- next_is_param = true;
- }
-
- //.take action according to the cmd chosen
- switch(o)
- {
- case 0: // scores
- case 8: // tscores
- case 9: // vscores
- if (!next_is_param)
- ecount = SCORE_FILE_ENTRIES; // default
- else // optional number given
- {
- ecount = atoi(next_arg);
- if (ecount < 1)
- ecount = 1;
-
- if (ecount > SCORE_FILE_ENTRIES)
- ecount = SCORE_FILE_ENTRIES;
-
- nextUsed = true;
- }
-
- if (!rc_only)
- {
- Options.sc_entries = ecount;
-
- if (o == 8)
- Options.sc_format = SCORE_TERSE;
- else if (o == 9)
- Options.sc_format = SCORE_VERBOSE;
-
- }
- break;
-
- case 1: // name
- if (!next_is_param)
- return (false);
-
- if (!rc_only)
- {
- strncpy(you.your_name, next_arg, kNameLen);
- you.your_name[ kNameLen - 1 ] = '\0';
- }
-
- nextUsed = true;
- break;
-
- case 2: // race
- case 3: // class
- if (!next_is_param)
- return (false);
-
- // if (strlen(next_arg) != 1)
- // return (false);
-
- if (!rc_only)
- {
- if (o == 2)
- Options.race = str_to_race( std::string( next_arg ) );
-
- if (o == 3)
- Options.cls = str_to_class( std::string( next_arg ) );
- }
- nextUsed = true;
- break;
-
- case 4: // pizza
- if (!next_is_param)
- return (false);
-
- if (!rc_only)
- SysEnv.crawl_pizza = next_arg;
-
- nextUsed = true;
- break;
-
- case 5: // plain
- if (next_is_param)
- return (false);
-
- if (!rc_only)
- {
- viewwindow = &viewwindow3;
- mapch = &mapchar3;
- mapch2 = &mapchar4;
-#ifdef UNIX
- character_set = 0;
-#endif
- }
- break;
-
- case 6: // dir
- // ALWAYS PARSE
- if (!next_is_param)
- return (false);
-
- SysEnv.crawl_dir = next_arg;
- nextUsed = true;
- break;
-
- case 7:
- // ALWAYS PARSE
- if (!next_is_param)
- return (false);
-
- SysEnv.crawl_rc = next_arg;
- nextUsed = true;
- break;
- } // end switch -- which option?
-
- // update position
- current++;
- if (nextUsed)
- current++;
- }
-
- return (true);
-}
generated by cgit v1.2.3-54-g00ecf (git 2.45.0) at 2024-05-19 04:20:11 +0000