/* omega copyright (c) 1987,1988,1989 by Laurence Raphael Brothers */

/* this file includes main() and some top-level functions */

/* omega.c */

#include "glob.h"

#if !defined(MSDOS_SUPPORTED_ANTIQUE)

#include <signal.h>

#include <fcntl.h>

#include <time.h>

#include <unistd.h>

#include <stdlib.h>

/* Note: in order to avoid a memory bug I've been told about, I'm

explicitly initializing every global to something. */

#endif

#ifndef NOGETOPT

# include <unistd.h>

#endif

/* most globals originate in omega.c */

char *Omegalib; /* contains the path to the library files */

#ifdef DEBUG

FILE *DG_debug_log; /* debug log file pointer */

int DG_debug_flag = 0; /* debug flag -- set by -d commandline option */

#endif

char SaveFileName[80];

/* Objects and Monsters are allocated and initialized in init.c */

/* one of each spell */

#ifndef MSDOS_SUPPORTED_ANTIQUE

struct spell Spells[NUMSPELLS+1];

#else

struct spell Spells[NUMSPELLS+1] = {0};

#endif

/* locations of city sites [0] - found, [1] - x, [2] - y */

#ifndef MSDOS_SUPPORTED_ANTIQUE

int CitySiteList[NUMCITYSITES][3];

#else

int CitySiteList[NUMCITYSITES][3] = {0};

#endif

/* Currently defined in caps since it is now a variable, was a constant */

int LENGTH=MAXLENGTH;

int WIDTH=MAXWIDTH;

long GameStatus=0L; /* Game Status bit vector */

int ScreenLength = 0; /* How large is level window */

int ScreenWidth = 0; /* How large is level window */

#ifndef MSDOS_SUPPORTED_ANTIQUE

struct player Player; /* the player */

#else

struct player Player = {0}; /* the player */

#endif

#ifndef MSDOS_SUPPORTED_ANTIQUE

struct terrain Country[COUNTRY_WIDTH][COUNTRY_LENGTH];/* The countryside */

#else

struct terrain Country[COUNTRY_WIDTH][COUNTRY_LENGTH] = {0};/* The countryside */

#endif

#ifdef SAVE_LEVELS

struct level TheLevel;

#endif

struct level *City=NULL; /* The city of Rampart */

struct level *TempLevel=NULL; /* Place holder */

struct level *Level=NULL; /* Pointer to current Level */

struct level *Dungeon=NULL; /* Pointer to current Dungeon */

int Villagenum = 0; /* Current Village number */

int ScreenOffset = 0; /* Offset of displayed screen to level */

int ScreenXOffset = 0; /* Offset of displayed screen to level */

int MaxDungeonLevels = 0; /* Deepest level allowed in dungeon */

int Current_Dungeon= -1; /* What is Dungeon now */

int Current_Environment= E_CITY; /* Which environment are we in */

int Last_Environment= E_COUNTRYSIDE; /* Which environment were we in */

#ifndef MSDOS_SUPPORTED_ANTIQUE

int Dirs[2][9]; /* 9 xy directions */

#else

int Dirs[2][9]= /* 9 xy directions */

{ { 1,1,-1,-1,1,-1,0,0,0} , { 1,-1,1,-1,0,0,1,-1,0 } };

#endif

char Cmd='s'; /* last player command */

int Command_Duration = 0; /* how long does current command take */

struct monster *Arena_Monster=NULL; /* Opponent in arena */

int Arena_Opponent=0; /* case label of opponent in l_arena()*/

int Arena_Victory = 0; /* did player win in arena? */

int Imprisonment=0; /* amount of time spent in jail */

int Precipitation=0; /* Hours of rain, snow, etc */

int Lunarity=0; /* Effect of the moon on character */

int Phase = 0; /* Phase of the moon */

int Date = 0; /* Starting date */

int Pawndate = 0; /* Pawn Shop item generation date */

pob Pawnitems[PAWNITEMS] = {NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};

/* items in pawn shop */

int SymbolUseHour= -1; /* holy symbol use marker */

int SymbolUseDay= -1; /* holy symbol use marker */

int ViewHour= -1; /* crystal ball use marker */

int ViewDay= -1; /* crystal ball use marker */

int ZapHour= -1; /* staff of enchantment use marker */

int ZapDay= -1; /* staff of enchantment use marker */

int HelmHour= -1; /* helm of teleportation use marker*/

int HelmDay= -1; /* helm of teleportation use marker*/

int Constriction=0; /* Dragonlord Attack State */

int Blessing=FALSE; /* Altar Blessing State */

int LastDay= -1; /* DPW date of dole */

int RitualHour= -1; /* last use of ritual magic */

int RitualRoom= -1; /* last room of ritual magic */

int Lawstone=0; /* magic stone counter */

int Chaostone=0; /* magic stone counter */

int Mindstone=0; /* magic stone counter */

int Searchnum = 1; /* number of times to search on 's' */

int Behavior; /* Player NPC behavior */

int Verbosity = VERBOSE; /* verbosity level */

long Time = 0; /* turn number */

int Tick = 0; /* 10 a turn; action coordinator */

char Stringbuffer[STRING_BUFFER_SIZE][80]; /* last strings printed */

long Gymcredit = 0; /* credit at rampart gym */

int Spellsleft = 0; /* research allowance at college */

int SalaryAmount = 0; /* legion salary */

int SalaryAccount = 0; /* account number to which legion salary is paid */

int Studiesleft = 0; /* study allowance at monastery */

int StarGemUse = 0; /* last date of star gem use */

int HiMagicUse = 0; /* last date of high magic use */

int HiMagic = 0; /* current level for l_throne */

#ifdef NEW_BANK

bank_account *bank = NULL; /* ptr to a list of bank accounts */

#else

long Balance = 0; /* bank account */

#endif

long FixedPoints = 0; /* points are frozen after adepthood*/

int LastTownLocX=0; /* previous position in village or city */

int LastTownLocY=0; /* previous position in village or city */

int LastCountryLocX=0; /* previous position in countryside */

int LastCountryLocY=0; /* previous position in countryside */

#ifndef NEW_BANK

#ifndef MSDOS_SUPPORTED_ANTIQUE

char Password[64]; /* autoteller password */

#else

char Password[64] = {0}; /* autoteller password */

#endif

#endif

#ifndef MSDOS_SUPPORTED_ANTIQUE

char Str1[STRING_LEN],Str2[STRING_LEN],Str3[STRING_LEN],Str4[STRING_LEN];

#else

char Str1[STRING_LEN] = {0},Str2[STRING_LEN] = {0},Str3[STRING_LEN] = {0},Str4[STRING_LEN] = {0};

#endif

/* Some string space, random uses */

pol Condoitems=NULL; /* Items in condo */

pol Bagitems=NULL; /* Items in bag of holding */

/* high score names, levels, behavior */

#ifndef MSDOS_SUPPORTED_ANTIQUE

int Shadowlordbehavior,Archmagebehavior,Primebehavior,Commandantbehavior;

int Championbehavior,Priestbehavior[7],Hibehavior,Dukebehavior;

int Chaoslordbehavior,Lawlordbehavior,Justiciarbehavior;

int Grandmasterbehavior;

int Grandmasterlevel;

char Grandmaster[80];

char Shadowlord[80],Archmage[80],Prime[80],Commandant[80],Duke[80];

char Champion[80],Priest[7][80],Hiscorer[80],Hidescrip[80];

char Chaoslord[80],Lawlord[80],Justiciar[80];

int Shadowlordlevel,Archmagelevel,Primelevel,Commandantlevel,Dukelevel;

#else

int Grandmasterbehavior = 0;

int Grandmasterlevel = 0;

char Grandmaster[80] = {0};

int Shadowlordbehavior = 0,Archmagebehavior = 0,Primebehavior = 0,Commandantbehavior = 0;

int Championbehavior = 0,Priestbehavior[7] = {0},Hibehavior = 0,Dukebehavior = 0;

int Chaoslordbehavior = 0,Lawlordbehavior = 0,Justiciarbehavior = 0;

char Shadowlord[80] = {0},Archmage[80] = {0},Prime[80] = {0},Commandant[80] = {0},Duke[80] = {0};

char Champion[80] = {0},Priest[7][80] = {0},Hiscorer[80] = {0},Hidescrip[80] = {0};

char Chaoslord[80] = {0},Lawlord[80] = {0},Justiciar[80] = {0};

int Shadowlordlevel = 0,Archmagelevel = 0,Primelevel = 0,Commandantlevel = 0,Dukelevel = 0;

#endif

#ifndef MSDOS_SUPPORTED_ANTIQUE

int Championlevel,Priestlevel[7],Hilevel,Justiciarlevel;

#else

int Championlevel = 0,Priestlevel[7] = {0},Hilevel = 0,Justiciarlevel = 0;

#endif

long Hiscore = 0L;

int Chaoslordlevel = 0,Lawlordlevel = 0,Chaos = 0,Law = 0;

/* New globals which used to be statics */

int twiddle = FALSE;

int saved=FALSE;

int onewithchaos=FALSE;

int club_hinthour = 0;

int winnings = 0;

int tavern_hinthour = -1;

int scroll_ids[30];

int potion_ids[30];

int stick_ids[30];

int ring_ids[30];

int cloak_ids[30];

int boot_ids[30];

int deepest[E_MAX + 1];

int level_seed[E_MAX + 1]; /* random number seed that generated level */

/* This may be implementation dependent */

/* SRANDFUNCTION is defined in odefs.h */

/* environment is the environment about to be generated, or -1 for the first */

/* time, or -2 if we want to restore the random number point */

void initrand(int environment, int level)

{

static int store;

int seed;

if (environment >= 0)

store = RANDFUNCTION();

/* Pseudo Random Seed */

if (environment == E_RANDOM)

seed = (int) time(NULL);

else if (environment == E_RESTORE)

seed = store;

else

seed = level_seed[environment] + 1000*level;

SRANDFUNCTION(seed);

}

int game_restore(char *savefile)

{

int ok;

ok = restore_game(savefile);

if (! ok) {

endgraf();

printf("Try again with the right save file, luser!\n");

exit(1);

}

change_to_user_perms();

unlink(savefile);

change_to_game_perms();

return(TRUE);

}

void signalquit(int ignore)

{

quit();

}

int main(int argc, char *argv[])

{

int continuing = 0;

int count;

int scores_only = 0;

int i;

#ifndef NOGETOPT

while(( i= getopt( argc, argv, "dsh")) != -1)

{

switch (i)

{

case 'd':

#ifdef DEBUG

DG_debug_flag++;

#endif

break;

case 's':

scores_only = 1;

break;

case 'h':

#ifdef DEBUG

printf("Usage: omega [-shd] [savefile]\n");

#else

printf("Usage: omega [-sh] [savefile]\n");

#endif

printf("Options:\n");

printf(" -s Display high score list\n");

printf(" -h Display this message\n");

#ifdef DEBUG

printf(" -d Enable debug mode\n");

#endif

exit(0);

break;

case '?':

/* error parsing args... ignore? */

printf("'%c' is an invalid option, ignoring\n", optopt );

break;

}

}

if (optind >= argc ) {

/* no save file given */

#if defined( BSD ) || defined( SYSV )

sprintf( SaveFileName, "Omega%d", getuid() );

#else

strcpy( SaveFileName,"Omega");

#endif

} else {

/* savefile given */

continuing = 1;

strcpy(SaveFileName,argv[optind]);

}

#else

/* alternate code for people who don't support getopt() -- no enhancement */

if (argc ==2) {

strcpy( SaveFileName, argv[1]);

continuing = 1;

} else {

strcpy( SaveFileName,"Omega");

}

#endif

/* always catch ^c and hang-up signals */

#ifdef SIGINT

signal(SIGINT,signalquit);

#endif

#ifdef SIGHUP

signal(SIGHUP,signalsave);

#endif

#ifndef MSDOS

if (CATCH_SIGNALS) {

signal(SIGQUIT,signalexit);

signal(SIGILL,signalexit);

#ifdef DEBUG

if( DG_debug_flag ) {

#endif

signal(SIGTRAP,signalexit);

signal(SIGFPE,signalexit);

signal(SIGSEGV,signalexit);

#ifdef DEBUG

}

#endif

#ifdef SIGIOT

signal(SIGIOT,signalexit);

#endif

#ifdef SIGABRT

signal(SIGABRT,signalexit);

#endif

#ifdef SIGEMT

signal(SIGEMT,signalexit);

#endif

#ifdef SIGBUS

signal(SIGBUS,signalexit);

#endif

#ifdef SIGSYS

signal(SIGSYS,signalexit);

#endif

}

#endif

#ifndef FIXED_OMEGALIB

if (!(Omegalib = getenv("OMEGALIB")))

#endif

Omegalib = OMEGALIB;

/* if filecheck is 0, some necessary data files are missing */

if (filecheck() == 0) exit(0);

/* all kinds of initialization */

init_perms();

initgraf();

#ifndef MSDOS_SUPPORTED_ANTIQUE

initdirs();

#endif

initrand(E_RANDOM, 0);

initspells();

#ifdef DEBUG

/* initialize debug log file */

DG_debug_log = fopen( "/tmp/omega_dbg_log", "a" );

assert( DG_debug_log ); /* WDT :) */

setvbuf( DG_debug_log, NULL, _IOLBF, 0);

fprintf(DG_debug_log, "############## new game started ##############\n");

#endif

for (count = 0; count < STRING_BUFFER_SIZE; count++)

strcpy(Stringbuffer[count],"<nothing>");

#ifdef SAVE_LEVELS

msdos_init();

#endif

omega_title();

showscores();

if (scores_only ) {

endgraf();

exit(0);

}

/* game restore attempts to restore game if there is an argument */

if (continuing)

{

game_restore(SaveFileName);

mprint("Your adventure continues....");

}

else

{

/* monsters initialized in game_restore if game is being restored */

/* items initialized in game_restore if game is being restored */

inititem(TRUE);

Date = random_range(360);

Phase = random_range(24);

#ifdef NEW_BANK

bank_init();

#else

strcpy(Password,"");

#endif

continuing = initplayer(); /* RM: 04-19-2000 loading patch */

}

if (!continuing)

{

init_world(); /* RM: 04-19-2000 loading patch */

mprint("'?' for help or commandlist, 'Q' to quit.");

}

timeprint();

calc_melee();

if (Current_Environment != E_COUNTRYSIDE)

showroom(Level->site[Player.x][Player.y].roomnumber);

else

terrain_check(FALSE);

if (optionp(SHOW_COLOUR))

colour_on();

else

colour_off();

screencheck(Player.x,Player.y);

/* game cycle */

if (!continuing)

time_clock(TRUE);

while (TRUE) {

if (Current_Environment == E_COUNTRYSIDE)

p_country_process();

else time_clock(FALSE);

}

}

#ifndef MSDOS

void signalexit(int ignored)

{

clearmsg();

mprint("Yikes!");

morewait();

mprint("Sorry, caught a core-dump signal.");

#if 0

/* DAG used to prompt... space-bar holding through messages could cause

* failure to save. Now always just force through with signalsave() */

mprint("Want to try and save the game?");

reply = ynq();

if (reply=='y')

save(FALSE, TRUE); /* don't compress, force save */

else if (reply == EOF)

signalsave(0);

#else

signalsave(0);

#endif

endgraf();

printf("Bye!\n");

exit(0);

}

#endif

/* Start up game with new dungeons; start with player in city */

void init_world(void)

{

int env, i;

City = Level = TempLevel = Dungeon = NULL;

for (env = 0; env <= E_MAX; env++)

level_seed[env] = RANDFUNCTION();

load_country();

for(i=0;i<NUMCITYSITES;i++)

CitySiteList[i][0] = FALSE;

load_city(TRUE);

Level = City;

Current_Environment = E_CITY;

setPlayerXY(62, 20);

print1("You pass through the massive gates of Rampart, the city.");

screencheck(Player.x, Player.y);

}

/* set variable item names */

void inititem(int reset)

{

int i;

if (reset) {

shuffle(scroll_ids, 30);

shuffle(potion_ids, 20);

shuffle(stick_ids, 20);

shuffle(boot_ids, 20);

shuffle(cloak_ids, 20);

shuffle(ring_ids, 20);

}

for(i=0;i<NUMSCROLLS;i++)

Objects[SCROLLID+i].objstr = scrollname(i);

for(i=0;i<NUMPOTIONS;i++)

Objects[POTIONID+i].objstr = potionname(i);

Objects[OB_POTION_DEATH].objstr = potionname(18);

Objects[OB_POTION_LIFE].objstr = potionname(19);

for(i=0;i<NUMSTICKS;i++)

Objects[STICKID+i].objstr = stickname(i);

for(i=0;i<NUMBOOTS;i++)

Objects[BOOTID+i].objstr = bootname(i);

for(i=0;i<NUMCLOAKS;i++)

Objects[CLOAKID+i].objstr = cloakname(i);

for(i=0;i<NUMRINGS;i++)

Objects[RINGID+i].objstr = ringname(i);

}