/*
* Simple "main" function for multiple platforms.
*
* Note the special "--" option which terminates the processing of
* standard options. All non-standard options (if any) are passed
* directly to the "init_xxx()" function.
*/
int main(int argc, char *argv[])
{
int i;
bool done = FALSE;
bool new_game = FALSE;
int show_score = 0;
cptr mstr = NULL;
bool args = TRUE;
/* Save the "program name" XXX XXX XXX */
argv0 = argv[0];
#ifdef USE_286
/* Attempt to use XMS (or EMS) memory for swap space */
if (_OvrInitExt(0L, 0L))
{
_OvrInitEms(0, 0, 64);
}
#endif
#ifdef SET_UID
/* Default permissions on files */
(void)umask(022);
# ifdef SECURE
/* Authenticate */
Authenticate();
# endif
#endif
/* Get the file paths */
init_stuff();
#ifdef SET_UID
/* Get the user id (?) */
player_uid = getuid();
#ifdef VMS
/* Mega-Hack -- Factor group id */
player_uid += (getgid() * 1000);
#endif
# ifdef SAFE_SETUID
# ifdef _POSIX_SAVED_IDS
/* Save some info for later */
player_euid = geteuid();
player_egid = getegid();
# endif
# if 0 /* XXX XXX XXX */
/* Redundant setting necessary in case root is running the game */
/* If not root or game not setuid the following two calls do nothing */
if (setgid(getegid()) != 0)
{
quit("setgid(): cannot set permissions correctly!");
}
if (setuid(geteuid()) != 0)
{
quit("setuid(): cannot set permissions correctly!");
}
# endif
# endif
#endif
#ifdef SET_UID
/* Initialize the "time" checker */
if (check_time_init() || check_time())
{
quit("The gates to Angband are closed (bad time).");
}
/* Initialize the "load" checker */
if (check_load_init() || check_load())
{
quit("The gates to Angband are closed (bad load).");
}
/* Acquire the "user name" as a default player name */
#ifdef ANGBAND_2_8_1
user_name(player_name, player_uid);
#else /* ANGBAND_2_8_1 */
user_name(op_ptr->full_name, player_uid);
#endif /* ANGBAND_2_8_1 */
#ifdef PRIVATE_USER_PATH
/* Create a directory for the users files. */
create_user_dir();
#endif /* PRIVATE_USER_PATH */
#endif /* SET_UID */
/* Process the command line arguments */
for (i = 1; args && (i < argc); i++)
{
/* Require proper options */
if (argv[i][0] != '-') game_usage();
/* Analyze option */
switch (argv[i][1])
{
case 'N':
case 'n':
{
new_game = TRUE;
break;
}
case 'F':
case 'f':
{
arg_fiddle = TRUE;
break;
}
case 'W':
case 'w':
{
arg_wizard = TRUE;
break;
}
case 'V':
case 'v':
{
arg_sound = TRUE;
break;
}
case 'G':
case 'g':
{
/* HACK - Graphics mode switches on the original tiles */
arg_graphics = GRAPHICS_ORIGINAL;
break;
}
case 'R':
case 'r':
{
arg_force_roguelike = TRUE;
break;
}
case 'O':
case 'o':
{
arg_force_original = TRUE;
break;
}
case 'S':
case 's':
{
show_score = atoi(&argv[i][2]);
if (show_score <= 0) show_score = 10;
break;
}
case 'u':
case 'U':
{
if (!argv[i][2]) game_usage();
#ifdef ANGBAND_2_8_1
strncpy(player_name, &argv[i][2], 32);
player_name[31] = '\0';
#else /* ANGBAND_2_8_1 */
strncpy(op_ptr->full_name, &argv[i][2], 32);
op_ptr->full_name[31] = '\0';
#endif /* ANGBAND_2_8_1 */
break;
}
case 'm':
{
if (!argv[i][2]) game_usage();
mstr = &argv[i][2];
break;
}
case 'M':
{
arg_monochrome = TRUE;
break;
}
case 'd':
case 'D':
{
change_path(&argv[i][2]);
break;
}
case '-':
{
argv[i] = argv[0];
argc = argc - i;
argv = argv + i;
args = FALSE;
break;
}
default:
{
/* Default usage-help */
game_usage();
}
}
}
/* Hack -- Forget standard args */
if (args)
{
argc = 1;
argv[1] = NULL;
}
/* Process the player name */
process_player_name(TRUE);
/* Install "quit" hook */
quit_aux = quit_hook;
/*
* Drop privs (so X11 will work correctly)
* unless we are running the Linux-SVGALib version.
*
* (In which case we initialize after safe_setuid_grab()
* is called.)
*/
safe_setuid_drop();
#ifdef USE_XAW
/* Attempt to use the "main-xaw.c" support */
if (!done && (!mstr || (streq(mstr, "xaw"))))
{
if (0 == init_xaw(argc, argv))
{
ANGBAND_SYS = "xaw";
done = TRUE;
}
}
#endif
#ifdef USE_X11
/* Attempt to use the "main-x11.c" support */
if (!done && (!mstr || (streq(mstr, "x11"))))
{
if (0 == init_x11(argc, argv))
{
ANGBAND_SYS = "x11";
done = TRUE;
}
}
#endif
#ifdef USE_XPJ
/* Attempt to use the "main-xpj.c" support */
if (!done && (!mstr || (streq(mstr, "xpj"))))
{
if (0 == init_xpj(argc, argv))
{
ANGBAND_SYS = "xpj";
done = TRUE;
}
}
#endif
#ifdef USE_GTK
/* Attempt to use the "main-gtk.c" support */
if (!done && (!mstr || (streq(mstr, "gtk"))))
{
if (0 == init_gtk((unsigned char*) &new_game, argc, argv))
{
done = TRUE;
}
}
#endif
#ifdef USE_GCU
/* Attempt to use the "main-gcu.c" support */
if (!done && (!mstr || (streq(mstr, "gcu"))))
{
if (0 == init_gcu())
{
ANGBAND_SYS = "gcu";
done = TRUE;
}
}
#endif
#ifdef USE_CAP
/* Attempt to use the "main-cap.c" support */
if (!done && (!mstr || (streq(mstr, "cap"))))
{
if (0 == init_cap(argc, argv))
{
ANGBAND_SYS = "cap";
done = TRUE;
}
}
#endif
#ifdef USE_DOS
/* Attempt to use the "main-dos.c" support */
if (!done && (!mstr || (streq(mstr, "dos"))))
{
if (0 == init_dos())
{
ANGBAND_SYS = "dos";
done = TRUE;
}
}
#endif
#ifdef USE_IBM
/* Attempt to use the "main-ibm.c" support */
if (!done && (!mstr || (streq(mstr, "ibm"))))
{
if (0 == init_ibm())
{
ANGBAND_SYS = "ibm";
done = TRUE;
}
}
#endif
#ifdef USE_EMX
/* Attempt to use the "main-emx.c" support */
if (!done && (!mstr || (streq(mstr, "emx"))))
{
if (0 == init_emx())
{
ANGBAND_SYS = "emx";
done = TRUE;
}
}
#endif
#ifdef USE_SLA
/* Attempt to use the "main-sla.c" support */
if (!done && (!mstr || (streq(mstr, "sla"))))
{
if (0 == init_sla())
{
ANGBAND_SYS = "sla";
done = TRUE;
}
}
#endif
#ifdef USE_AMI
/* Attempt to use the "main-ami.c" support */
if (!done && (!mstr || (streq(mstr, "ami"))))
{
if (0 == init_ami())
{
ANGBAND_SYS = "ami";
done = TRUE;
}
}
#endif
#ifdef USE_VME
/* Attempt to use the "main-vme.c" support */
if (!done && (!mstr || (streq(mstr, "vme"))))
{
if (0 == init_vme())
{
ANGBAND_SYS = "vme";
done = TRUE;
}
}
#endif
#ifdef USE_VCS
/* Attempt to use the "main-vcs.c" support */
if (!done && (!mstr || (streq(mstr, "vcs"))))
{
if (0 == init_vcs(argc, argv))
{
ANGBAND_SYS = "vcs";
done = TRUE;
}
}
#endif /* USE_VCS */
/* Grab privs (dropped above for X11) */
safe_setuid_grab();
#ifdef USE_LSL
/* Attempt to use the "main-lsl.c" support */
if (!done && (!mstr || (streq(mstr, "lsl"))))
{
if (0 == init_lsl())
{
ANGBAND_SYS = "lsl";
done = TRUE;
}
}
#endif
/* Make sure we have a display! */
if (!done) quit("Unable to prepare any 'display module'!");
/* Hack -- If requested, display scores and quit */
if (show_score > 0) display_scores(0, show_score);
/* Gtk initializes earlier */
if (!streq(ANGBAND_SYS, "gtk"))
{
/* Catch nasty signals */
signals_init();
/* Initialize */
init_angband();
}
/* Wait for response */
pause_line(23);
/* Play the game */
play_game(new_game);
/* Quit */
quit(NULL);
/* Exit */
return (0);
}
static Bool initCitadel(void)
{
if (!read_cfg_messages())
{
#ifdef WINCIT
char Buffer[128];
sprintf(Buffer, getmsg(188), getmsg(671));
MessageBox(NULL, Buffer, NULL, MB_ICONSTOP | MB_OK);
#else
printf(getmsg(188), getmsg(671));
#endif
return (FALSE);
}
checkfiles();
initExtDrivers();
get_os();
cfg.battr = 0xff;
setscreen();
logo(TRUE); // no go for debug version; td32 go crash crash
init_internal_sound();
// some mouse initialization technology!!!!
initMouseHandler();
hideCounter = 1;
if (time(NULL) < 700000000L)
{
#ifdef WINCIT
MessageBox(NULL, getcfgmsg(119), NULL, MB_ICONSTOP | MB_OK);
#else
doccr();
doccr();
cPrintf(getcfgmsg(119));
doccr();
#endif
dump_cfg_messages();
return (FALSE);
}
static char prompt[92];
static char citadel[92];
char *envprompt;
char *citprompt;
envprompt = getenv(getcfgmsg(120));
citprompt = getenv(getcfgmsg(121));
if (citprompt)
{
sprintf(prompt, getcfgmsg(122), citprompt);
}
else if (envprompt)
{
sprintf(prompt, getcfgmsg(123), envprompt);
}
else
{
strcpy(prompt, getcfgmsg(124));
}
putenv(prompt);
sprintf(citadel, getcfgmsg(125), programName, version);
putenv(citadel);
#ifndef WINCIT
OC.whichIO = CONSOLE;
OC.SetOutFlag(OUTOK);
OC.Echo = BOTH;
OC.setio();
#endif
VerifyHeap(1);
// If we aren't reconfiguring, load the tables...
if (!reconfig)
{
// Start by reading ETC.TAB
getcwd(etcpath, 64);
FILE *fd;
if ((fd = fopen(etcTab, FO_RB)) != NULL)
{
if (filelength(fileno(fd)) != (long) sizeof(config) ||
fread(&cfg, 1, sizeof(config), fd) != (long) sizeof(config))
{
memset(&cfg, 0, sizeof(cfg));
reconfig = TRUE;
}
fclose(fd);
unlink(etcTab);
// If ETC.TAB could be loaded, load the rest
if (!reconfig)
{
changedir(cfg.homepath);
allocateTables();
if (!LogTab.Load() || !MessageDat.LoadTable() || !RoomTab.Load())
{
reconfig = TRUE;
}
Cron.ReadTable(WC_TWpn);
}
}
else
{
if (!batchmode)
{
#ifdef WINCIT
MessageBox(NULL, "No ETC.TAB.", NULL, MB_ICONSTOP | MB_OK);
#else
doccr();
discardable *d;
if ((d = readData(6)) != NULL)
{
int i;
for (i = 0; ((char **) d->next->aux)[i][0] != '#'; i++)
{
cPrintf(pcts, ((char **) d->next->aux)[i]);
doccr();
}
doccr();
discardData(d);
}
else
{
cOutOfMemory(28);
}
DeinitializeTimer();
critical(FALSE);
#endif
exit(1);
}
reconfig = TRUE;
}
}
if (reconfig)
{
cfg.attr = 7;
#ifndef WINCIT
pause(200);
cls(SCROLL_SAVE);
cCPrintf(getcfgmsg(126));
doccr();
#endif
if (!configcit())
{
#ifdef WINCIT
MessageBox(NULL, getcfgmsg(127), NULL, MB_ICONSTOP | MB_OK);
#else
doccr();
doccr();
cPrintf(getcfgmsg(127));
doccr();
#endif
dump_cfg_messages();
return (FALSE);
}
#ifndef WINCIT
setdefaultTerm(TT_ANSI);
CurrentUser->SetWidth(80);
#endif
Cron.ReadCronCit(WC_TWpn);
}
else
{
#ifndef WINCIT
if (!CreateScrollBackBuffer())
{
cPrintf(getcfgmsg(60));
doccr();
}
#endif
if (readconfigcit) // forced to read in config.cit
{
if (!readconfig(NULL, 1))
{
#ifdef WINCIT
MessageBox(NULL, getcfgmsg(129), NULL, MB_ICONSTOP | MB_OK);
#else
doccr();
doccr();
cPrintf(getcfgmsg(129));
doccr();
#endif
dump_cfg_messages();
return (FALSE);
}
}
}
VerifyHeap(1);
makeBorders();
readBordersDat();
if (cmd_nobells)
{
cfg.noBells = 2;
}
if (cmd_nochat)
{
cfg.noChat = TRUE;
}
if (cmd_mdata != CERROR)
{
cfg.mdata = cmd_mdata;
}
if (*cfg.f6pass)
{
if (SameString(cfg.f6pass, getmsg(670)))
{
ConsoleLock.LockF6();
}
else
{
ConsoleLock.Lock();
}
}
#ifndef WINCIT
if (cfg.ovrEms)
{
if (_OvrInitEms(0, 0, 0))
{
cPrintf(getcfgmsg(130));
doccr();
pause(200);
}
}
if (cfg.ovrExt)
{
if (_OvrInitExt(0, 0))
{
cPrintf(getcfgmsg(131));
doccr();
pause(200);
}
}
CommPort->Init();
setscreen();
#endif
logo(TRUE); // no go for debug version; td32 go crash crash
#ifndef WINCIT
StatusLine.Update(WC_TWp);
#endif
if (cfg.msgpath[(strlen(cfg.msgpath) - 1)] == '\\')
{
cfg.msgpath[(strlen(cfg.msgpath) - 1)] = '\0';
}
// move to home path
changedir(cfg.homepath);
char FileName[128];
ReIndexFileInfo(); // keep fileinfo.dat nice and pretty
// open message file
if (!MessageDat.OpenMessageFile(cfg.msgpath))
{
illegal(getmsg(78), MessageDat.GetFilename());
}
// Then room file
sprintf(FileName, sbs, cfg.homepath, roomDat);
openFile(FileName, &RoomFile);
citOpen(cfg.trapfile, CO_A, &TrapFile);
initMenus();
dump_cfg_messages();
if(!read_tr_messages())
{
errorDisp(getmsg(172));
}
else
{
#ifdef WINCIT
trap(T_SYSOP, "", gettrmsg(37));
#else
trap(T_SYSOP, gettrmsg(37));
#endif
dump_tr_messages();
}
read_cfg_messages(); // uh-oh!
if (!GroupData.Load())
{
return (FALSE);
}
if (!HallData.Load())
{
return (FALSE);
}
getRoomPos();
if (cfg.accounting)
{
ReadGrpdataCit(WC_TWpn);
}
ReadExternalCit(WC_TWpn);
ReadProtocolCit(WC_TWpn);
ReadMdmresltCit(WC_TWpn);
ReadCommandsCit(WC_TWpn);
#ifndef WINCIT
ReadMCICit(FALSE);
CurrentRoom->Load(LOBBY);
thisRoom = LOBBY;
checkdir();
if (!slv_door)
{
CITWINDOW *w = CitWindowsMsg(NULL, getmsg(19));
Initport();
Initport();
if (w)
{
destroyCitWindow(w, FALSE);
}
}
else
{
CommPort->Enable();
}
OC.whichIO = MODEM;
OC.setio();
#endif
// record when we put system up
time(&uptimestamp);
#ifndef WINCIT
setdefaultconfig(FALSE);
Talley->Fill();
#endif
logo(FALSE);
VerifyHeap(1);
dump_cfg_messages();
compactMemory(1);
return (TRUE);
}
/*
* Simple "main" function for multiple platforms.
*
* Note the special "--" option which terminates the processing of
* standard options. All non-standard options (if any) are passed
* directly to the "init_xxx()" function.
*/
int main(int argc, char *argv[])
{
int i;
bool done = FALSE;
bool new_game = FALSE;
int show_score = 0;
cptr mstr = NULL;
bool args = TRUE;
/* Save the "program name" XXX XXX XXX */
argv0 = argv[0];
#ifdef USE_286
/* Attempt to use XMS (or EMS) memory for swap space */
if (_OvrInitExt(0L, 0L))
{
_OvrInitEms(0, 0, 64);
}
#endif
#ifdef SET_UID
/* Default permissions on files */
(void)umask(022);
# ifdef SECURE
/* Authenticate */
Authenticate();
# endif
#endif
/* Get the file paths */
init_stuff();
#ifdef SET_UID
/* Get the user id (?) */
player_uid = getuid();
#ifdef VMS
/* Mega-Hack -- Factor group id */
player_uid += (getgid() * 1000);
#endif
# ifdef SAFE_SETUID
# ifdef _POSIX_SAVED_IDS
/* Save some info for later */
player_euid = geteuid();
player_egid = getegid();
# endif
# if 0 /* XXX XXX XXX */
/* Redundant setting necessary in case root is running the game */
/* If not root or game not setuid the following two calls do nothing */
if (setgid(getegid()) != 0)
{
quit("setgid(): cannot set permissions correctly!");
}
if (setuid(geteuid()) != 0)
{
quit("setuid(): cannot set permissions correctly!");
}
# endif
# endif
#endif
/* Drop permissions */
safe_setuid_drop();
#ifdef SET_UID
/* Initialize the "time" checker */
if (check_time_init() || check_time())
{
quit("The gates to Angband are closed (bad time).");
}
/* Initialize the "load" checker */
if (check_load_init() || check_load())
{
quit("The gates to Angband are closed (bad load).");
}
/* Acquire the "user name" as a default player name */
user_name(player_name, player_uid);
#ifdef PRIVATE_USER_PATH
/* Create a directory for the users files. */
create_user_dir();
#endif /* PRIVATE_USER_PATH */
#endif /* SET_UID */
/* Process the command line arguments */
for (i = 1; args && (i < argc); i++)
{
/* Require proper options */
if (argv[i][0] != '-') goto usage;
/* Analyze option */
switch (argv[i][1])
{
case 'N':
case 'n':
{
new_game = TRUE;
break;
}
case 'F':
case 'f':
{
arg_fiddle = TRUE;
break;
}
case 'W':
case 'w':
{
arg_wizard = TRUE;
break;
}
case 'V':
case 'v':
{
arg_sound = TRUE;
break;
}
case 'G':
case 'g':
{
/* HACK - Graphics mode switches on the original tiles */
arg_graphics = GRAPHICS_ORIGINAL;
break;
}
case 'R':
case 'r':
{
arg_force_roguelike = TRUE;
break;
}
case 'O':
case 'o':
{
arg_force_original = TRUE;
break;
}
case 'S':
case 's':
{
show_score = atoi(&argv[i][2]);
if (show_score <= 0) show_score = 10;
break;
}
case 'u':
case 'U':
{
if (!argv[i][2]) goto usage;
strcpy(player_name, &argv[i][2]);
break;
}
case 'm':
{
if (!argv[i][2]) goto usage;
mstr = &argv[i][2];
break;
}
case 'M':
{
arg_monochrome = TRUE;
break;
}
case 'd':
case 'D':
{
change_path(&argv[i][2]);
break;
}
case '-':
{
argv[i] = argv[0];
argc = argc - i;
argv = argv + i;
args = FALSE;
break;
}
default:
usage:
{
/* Dump usage information */
puts("Usage: angband [options] [-- subopts]");
puts(" -n Start a new character");
puts(" -f Request fiddle mode");
puts(" -w Request wizard mode");
puts(" -v Request sound mode");
puts(" -g Request graphics mode");
puts(" -o Request original keyset");
puts(" -r Request rogue-like keyset");
puts(" -M Request monochrome mode");
puts(" -s<num> Show <num> high scores");
puts(" -u<who> Use your <who> savefile");
puts(" -m<sys> Force 'main-<sys>.c' usage");
puts(" -d<def> Define a 'lib' dir sub-path");
puts("");
#ifdef USE_SDL
puts(" -msdl To use SDL");
#endif /* USE_SDL */
#ifdef USE_X11
puts(" -mx11 To use X11");
puts(" -- Sub options");
puts(" -- -d Set display name");
puts(" -- -o Request old 8x8 tile graphics");
puts(" -- -a Request Adam Bolt 16x16 tile graphics");
puts(" -- -b Request Bigtile graphics mode");
puts(" -- -s Turn off smoothscaling graphics");
puts(" -- -n# Number of terms to use");
puts("");
#endif /* USE_X11 */
#ifdef USE_GCU
puts(" -mgcu To use GCU (GNU Curses)");
#endif /* USE_GCU */
#ifdef USE_CAP
puts(" -mcap To use CAP (\"Termcap\" calls)");
#endif /* USE_CAP */
#ifdef USE_DOS
puts(" -mdos To use DOS (Graphics)");
#endif /* USE_DOS */
#ifdef USE_IBM
puts(" -mibm To use IBM (BIOS text mode)");
#endif /* USE_IBM */
#ifdef USE_SLA
puts(" -msla To use SLA (SLANG)");
#endif /* USE_SLA */
#ifdef USE_LSL
puts(" -mlsl To use LSL (Linux-SVGALIB)");
#endif /* USE_LSL */
#ifdef USE_AMI
puts(" -mami To use AMI (Amiga)");
#endif /* USE_AMI */
#ifdef USE_VME
puts(" -mvme To use VME (VAX/ESA)");
#endif /* USE_VME */
/* Actually abort the process */
quit(NULL);
}
}
}
/* Hack -- Forget standard args */
if (args)
{
argc = 1;
argv[1] = NULL;
}
/* Process the player name */
process_player_name(TRUE);
/* Create any missing directories */
create_needed_dirs();
/* Install "quit" hook */
quit_aux = quit_hook;
#ifdef USE_XAW
/* Attempt to use the "main-xaw.c" support */
if (!done && (!mstr || (streq(mstr, "xaw"))))
{
extern errr init_xaw(int, char**);
if (0 == init_xaw(argc, argv))
{
ANGBAND_SYS = "xaw";
done = TRUE;
}
}
#endif
#ifdef USE_SDL
/* Attempt to use the "main-sdl.c" support */
if (!done && (!mstr || (streq(mstr, "sdl"))))
{
extern errr init_sdl(int, char**);
if (0 == init_sdl(argc, argv))
{
ANGBAND_SYS = "sdl";
done = TRUE;
}
}
#endif
#ifdef USE_X11
/* Attempt to use the "main-x11.c" support */
if (!done && (!mstr || (streq(mstr, "x11"))))
{
extern errr init_x11(int, char**);
if (0 == init_x11(argc, argv))
{
ANGBAND_SYS = "x11";
done = TRUE;
}
}
#endif
#ifdef USE_GCU
/* Attempt to use the "main-gcu.c" support */
if (!done && (!mstr || (streq(mstr, "gcu"))))
{
extern errr init_gcu(int, char**);
if (0 == init_gcu(argc, argv))
{
ANGBAND_SYS = "gcu";
done = TRUE;
}
}
#endif
#ifdef USE_CAP
/* Attempt to use the "main-cap.c" support */
if (!done && (!mstr || (streq(mstr, "cap"))))
{
extern errr init_cap(int, char**);
if (0 == init_cap(argc, argv))
{
ANGBAND_SYS = "cap";
done = TRUE;
}
}
#endif
#ifdef USE_DOS
/* Attempt to use the "main-dos.c" support */
if (!done && (!mstr || (streq(mstr, "dos"))))
{
extern errr init_dos(void);
if (0 == init_dos())
{
ANGBAND_SYS = "dos";
done = TRUE;
}
}
#endif
#ifdef USE_IBM
/* Attempt to use the "main-ibm.c" support */
if (!done && (!mstr || (streq(mstr, "ibm"))))
{
extern errr init_ibm(void);
if (0 == init_ibm())
{
ANGBAND_SYS = "ibm";
done = TRUE;
}
}
#endif
#ifdef USE_EMX
/* Attempt to use the "main-emx.c" support */
if (!done && (!mstr || (streq(mstr, "emx"))))
{
extern errr init_emx(void);
if (0 == init_emx())
{
ANGBAND_SYS = "emx";
done = TRUE;
}
}
#endif
#ifdef USE_SLA
/* Attempt to use the "main-sla.c" support */
if (!done && (!mstr || (streq(mstr, "sla"))))
{
extern errr init_sla(void);
if (0 == init_sla())
{
ANGBAND_SYS = "sla";
done = TRUE;
}
}
#endif
#ifdef USE_LSL
/* Attempt to use the "main-lsl.c" support */
if (!done && (!mstr || (streq(mstr, "lsl"))))
{
extern errr init_lsl(void);
if (0 == init_lsl())
{
ANGBAND_SYS = "lsl";
done = TRUE;
}
}
#endif
#ifdef USE_AMI
/* Attempt to use the "main-ami.c" support */
if (!done && (!mstr || (streq(mstr, "ami"))))
{
extern errr init_ami(void);
if (0 == init_ami())
{
ANGBAND_SYS = "ami";
done = TRUE;
}
}
#endif
#ifdef USE_VME
/* Attempt to use the "main-vme.c" support */
if (!done && (!mstr || (streq(mstr, "vme"))))
{
extern errr init_vme(void);
if (0 == init_vme())
{
ANGBAND_SYS = "vme";
done = TRUE;
}
}
#endif
/* Make sure we have a display! */
if (!done) quit("Unable to prepare any 'display module'!");
/* Hack -- If requested, display scores and quit */
if (show_score > 0) display_scores(0, show_score);
/* Catch nasty signals */
signals_init();
/* Initialize */
init_angband();
/* Wait for response */
pause_line(23);
/* Play the game */
play_game(new_game);
/* Quit */
quit(NULL);
/* Exit */
return (0);
}
/************************************************************************
* main() Initialize & start citadel
************************************************************************/
void main(int argc, char *argv[])
{
int i, cfg_ctdl = FALSE;
long b;
char init_baud;
static char prompt[92];
char *envprompt;
cfg.bios = 1;
cit_init_timer(); /* initialize cit_time() and cit_timer() */
cfg.attr = 7; /* logo gets white letters */
setscreen(); /* initialize screen system */
memset(&parm,0,sizeof(parm));
for (i = 1; i < argc; i++) {
if (argv[i][0] == '/'
|| argv[i][0] == '-') {
switch (tolower(argv[i][1])) {
#ifndef ATARI_ST
case 'd': /* DesqView/TopView */
parm.dv = 1;
cPrintf("DesqView/TopView mode\n");
break;
case 'b': /* baud rate (for shell) */
if (argv[i + 1]) {
b = atol(argv[++i]);
for (init_baud = 0; bauds[init_baud]; ++init_baud)
if (bauds[init_baud] == b) {
parm.baud = init_baud;
cPrintf("Initial baud rate fixed at %ld\n", b);
break;
}
}
break;
case 'm':
parm.memcheck = !parm.memcheck;
break;
#endif
case 'c': /* Configure system */
cfg_ctdl = TRUE;
break;
case 'p': /* pace output */
if (argv[i + 1]) {
parm.pace = atoi(argv[++i]);
cPrintf("Output pacing %d\n", parm.pace);
}
break;
case 's': /* run in shell from another BBS (door). */
cPrintf("Shell mode\n");
parm.door = TRUE;
break;
/*#ifndef ATARI_ST*/
#ifndef FLOPPY
case 'e': /* use EMS */
if (_OvrInitEms(0, 0, 0)) {
cPrintf("EMS memory initialization failed!\n");
parm.ems = 1;
}
break;
#endif
/*#endif*/
case 'v': /* just do events */
parm.events = 1;
break;
/*#ifndef ATARI_ST*/
#ifndef FLOPPY
case 'x': /* use exteneded memory */
if (_OvrInitExt(0, 0))
cPrintf("Extended memory initialization failed!\n");
parm.ext = 1;
break;
#endif
/*#endif*/
case 'l': /* log in user */
if (argv[i + 1]) {
parm.login = argv[++i];
cPrintf("Auto-login\n");
}
break;
case 'u': /* log in user */
if (argv[i + 1]) {
parm.user = argv[++i];
cPrintf("Auto-login %s\n", parm.user);
}
break;
default:
cPrintf("\nUnknown commandline switch '%s'.\n", argv[i]);
cPrintf("Valid DOS command line switches:\n");
cPrintf(" -b baud Starting baud rate (300-19200)\n");
cPrintf(" -c Read configuration files\n");
cPrintf(" -d DesqView/TopView\n");
#ifndef FLOPPY
cPrintf(" -e Use EMS memory for overlays\n");
#endif
cPrintf(" -l str Log in using initials;password in str\n");
cPrintf(" -m Memory check during idle time, start\n");
cPrintf(" -p num Set output pacing to num\n");
cPrintf(" -s Run as a shell from another BBS\n");
cPrintf(" -u 'name' Log in using specifed user name");
cPrintf(" -v Just run cron events\n");
#ifndef FLOPPY
cPrintf(" -x Use extended memory for overlays (386/486 only!)\n");
#endif
exit(1);
}
}
}
if (cfg_ctdl) /* force reconfigure? */
unlink("etc.tab");
logo(); /* prints out system logo */
if (cit_time() < 607415813L) {
cPrintf("\n\nPlease set your time and date!\n");
exit(1);
}
/* set prompt for shells */
envprompt = getenv("PROMPT");
if (!envprompt)
envprompt = "$p$g";
sprintf(prompt, "PROMPT=\r\nType EXIT to return to FredCit\r\n%s", envprompt);
if (putenv(prompt)) {
cPrintf("\n\nCan not set DOS prompt!\n");
delay (5000);
}
/* initialize citadel */
initCitadel();
if (parm.baud) {
cfg.initbaud = parm.baud;
baud(cfg.initbaud);
}
if (parm.door) {
detectflag = 1;
// carrier();
// if (haveCarrier) {
// carrdetect();
// newCarrier = 1; /* make hello blurb show up */
// }
}
greeting();
sysReq = FALSE;
if (cfg.f6pass[0])
ConLock = TRUE;
if (parm.dv) {
cfg.bios = 1;
directvideo = 0;
}
if (parm.login) {
normalizeString(parm.login); /* normalize string in environment */
login(parm.login,NULL);
} else if (parm.user && !loggedIn) {
normalizeString(parm.user); /* normalize string in environment */
if (findPerson(parm.user, &lBuf) != ERROR)
login(lBuf.lbin,lBuf.lbpw);
}
/* read in door interface files */
if (parm.door) {
readDoorFiles(0);
}
/* update25(); */
do_idle(0);
/* install critical error handler */
harderr(cit_herror_handler);
/* execute main command loop */
if (!parm.events)
command_loop();
else {
do_cron_loop();
}
exitcitadel();
}
