/* omega copyright (c) 1987,1988,1989 by Laurence Raphael Brothers */ /* this file includes main() and some top-level functions */ /* omega.c */ #if !defined(MSDOS) || defined(DJGPP) #include #include #include #include #include /* Note: in order to avoid a memory bug I've been told about, I'm explicitly initializing every global to something. */ #endif #include "glob.h" /* most globals originate in omega.c */ char *Omegalib; /* contains the path to the library files */ /* Objects and Monsters are allocated and initialized in init.c */ /* one of each spell */ #ifndef MSDOS 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 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 */ #ifndef MSDOS struct player Player; /* the player */ #else struct player Player = {0}; /* the player */ #endif #ifndef MSDOS struct terrain Country[MAXWIDTH][MAXLENGTH];/* The countryside */ #else struct terrain Country[MAXWIDTH][MAXLENGTH] = {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 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 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 ViewHour= -1; /* crystal ball use marker */ int ZapHour= -1; /* staff of enchantment use marker */ int HelmHour= -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 */ char Seed; /* random seed */ 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 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 */ long Balance = 0; /* bank account */ 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 MSDOS char Password[64]; /* autoteller password */ #else char Password[64] = {0}; /* autoteller password */ #endif #ifndef MSDOS 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 */ /* high score names, levels, behavior */ #ifndef MSDOS int Shadowlordbehavior,Archmagebehavior,Primebehavior,Commandantbehavior; int Championbehavior,Priestbehavior[7],Hibehavior,Dukebehavior; int Chaoslordbehavior,Lawlordbehavior,Justiciarbehavior; 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 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 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; 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; if (environment >= 0) store = RANDFUNCTION; /* Pseudo Random Seed */ if (environment == -1) Seed = (int) time((long *)NULL); else if (environment == -2) Seed = store; else Seed = level_seed[environment] + 1000*level; SRANDFUNCTION; } int game_restore(argc,argv) int argc; char *argv[]; { char savestr[80]; int ok; if (argc==2) { strcpy(savestr,argv[1]); ok = restore_game(savestr); if (! ok) { endgraf(); printf("Try again with the right save file, luser!\n"); exit(0); } change_to_user_perms(); unlink(savestr); change_to_game_perms(); return(TRUE); } else return(FALSE); } int main(argc,argv) int argc; char *argv[]; { int continuing; int count; /* always catch ^c and hang-up signals */ #ifdef SIGINT signal(SIGINT,(void *)quit); #endif #ifdef SIGHUP signal(SIGHUP,(void *)signalsave); #endif #ifndef MSDOS if (CATCH_SIGNALS) { signal(SIGQUIT,(void *)signalexit); signal(SIGILL,(void *)signalexit); #ifndef AMIGA signal(SIGTRAP,(void *)signalexit); #endif signal(SIGFPE,(void *)signalexit); signal(SIGSEGV,(void *)signalexit); #ifdef SIGIOT signal(SIGIOT,(void *)signalexit); #endif #ifdef SIGABRT signal(SIGABRT,(void *)signalexit); #endif #ifdef SIGEMT signal(SIGEMT,(void *)signalexit); #endif #ifdef SIGBUS signal(SIGBUS,(void *)signalexit); #endif #ifdef SIGSYS signal(SIGSYS,(void *)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 initdirs(); #endif initrand(-1, 0); initspells(); for (count = 0; count < STRING_BUFFER_SIZE; count++) strcpy(Stringbuffer[count],""); #ifdef SAVE_LEVELS msdos_init(); #endif /* game restore attempts to restore game if there is an argument */ continuing = game_restore(argc,argv); /* monsters initialized in game_restore if game is being restored */ /* items initialized in game_restore if game is being restored */ if (! continuing) { inititem(TRUE); Date = random_range(360); Phase = random_range(24); strcpy(Password,""); initplayer(); init_world(); mprint("'?' for help or commandlist, 'Q' to quit."); } else mprint("Your adventure continues...."); 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.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() { clearmsg(); mprint("Yikes!"); morewait(); mprint("Sorry, caught a core-dump signal."); mprint("Want to try and save the game?"); if (ynq()=='y') save(FALSE, TRUE); /* don't compress, force save */ mprint("Bye!"); endgraf(); exit(0); } #endif /* Start up game with new dungeons; start with player in city */ void init_world() { 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