NetNews Usenet Archive 1992 #18

home *** CD-ROM | disk | FTP | other *** search

/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / sources / games / 178 < prev next >

Wrap

Internet Message Format | 1992-08-20 | 57.1 KB

Path: sparky!uunet!zephyr.ens.tek.com!master!saab!billr From: billr@saab.CNA.TEK.COM (Bill Randle) Newsgroups: comp.sources.games Subject: v14i048: umoria4 - single player dungeon simulation (ver. 5.5), Part16/39 Message-ID: <3406@master.CNA.TEK.COM> Date: 20 Aug 92 18:05:13 GMT Sender: news@master.CNA.TEK.COM Lines: 2562 Approved: billr@saab.CNA.TEK.COM Submitted-by: grabiner@math.harvard.edu (David Grabiner) Posting-number: Volume 14, Issue 48 Archive-name: umoria4/Part16 Supersedes: umoria3: Volume 9, Issue 55-97; Volume 10, Issue 15-17 Environment: Curses, Unix, Mac, MS-DOS, Atari-ST, Amiga, VMS #! /bin/sh # This is a shell archive. Remove anything before this line, then unpack # it by saving it into a file and typing "sh file". To overwrite existing # files, type "sh file -c". You can also feed this as standard input via # unshar, or by typing "sh <file", e.g.. If this archive is complete, you # will see the following message at the end: # "End of archive 16 (of 39)." # Contents: ibmpc/TERMCAP mac/mac.c source/constant.h # Wrapped by billr@saab on Thu Aug 20 09:11:30 1992 PATH=/bin:/usr/bin:/usr/ucb ; export PATH if test -f 'ibmpc/TERMCAP' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ibmpc/TERMCAP'\" else echo shar: Extracting \"'ibmpc/TERMCAP'\" $1337 characters$ sed "s/^X//" >'ibmpc/TERMCAP' <<'END_OF_FILE' X# Termcap file for PC MORIA. This file will only be necessary if you X# are using the "ANSI" option in MORIA.CNF (see README for details). X# For PCs, ATs and clones, there is no reason to use the "ANSI" option X# and this file can be safely discarded. For DEC Rainbow users, this X# file is required. It must be either in the current directory, in X# directory \ETC, or somewhere on the PATH for MORIA to find it X# X# Monochrome IBMPC. X# This is a termcap for the NANSI.SYS device driver. X# It is the same as the ANSI termcap, except NANSI supports X# line insert (al) and delete (dl) while ANSI does not. X# Xibmpc-mono:\ X :co#80:\ X :li#24:\ X :cl=\E[2J:\ X :bs:\ X :ho=\E[H:\ X :cm=\E[%i%2;%2H:\ X :up=\E[A:\ X :do=\E[B:\ X :nd=\E[C:\ X :le=\E[D:\ X :ce=\E[K:\ X :ti=\E[m:\ X :te=\E[m:\ X :so=\E[1m:\ X :se=\E[m:\ X :us=\E[1m:\ X :ue=\E[m:\ X :al=\E[L:\ X :dl=\E[M: X# X# Color IBMPC. X# This is a termcap for the NANSI.SYS device driver. X# It is the same as the ANSI termcap, except NANSI supports X# line insert (al) and delete (dl) while ANSI does not. X# X# Gratiously supplied by Darren Friedlein. X# Xibmpc-color:\ X :co#80:\ X :li#24:\ X :cl=\E[2J:\ X :bs:\ X :ho=\E[H:\ X :cm=\E[%i%2;%2H:\ X :up=\E[A:\ X :do=\E[B:\ X :nd=\E[C:\ X :le=\E[D:\ X :ce=\E[K:\ X :ti=\E[44;37m\E1m:\ X :te=\E[0m:\ X :so=\E[31m:\ X :se=\E[37m:\ X :us=\E[33m:\ X :ue=\E[37m:\ X :al=\E[L:\ X :dl=\E[M: END_OF_FILE if test 1337 -ne `wc -c <'ibmpc/TERMCAP'`; then echo shar: \"'ibmpc/TERMCAP'\" unpacked with wrong size! fi # end of 'ibmpc/TERMCAP' fi if test -f 'mac/mac.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'mac/mac.c'\" else echo shar: Extracting \"'mac/mac.c'\" $30757 characters$ sed "s/^X//" >'mac/mac.c' <<'END_OF_FILE' X/* mac/mac.c: mac support code X X Copyright (c) 1989-1991 Curtis McCauley, James E. Wilson X X This software may be copied and distributed for educational, research, and X not for profit purposes provided that this copyright and statement are X included in all such copies. */ X X#ifndef THINK_C X#include <types.h> X#include <controls.h> X#include <dialogs.h> X#include <memory.h> X#include <resources.h> X#include <files.h> X#include <segload.h> X#include <packages.h> X#include <menus.h> X#include <osutils.h> X#include <sysequ.h> X X#include <scrnmgr.h> X#include <dumpres.h> X X#else X X#include "ScrnMgr.h" X#include "DumpRes.h" X X#define c2pstr(x) (char *)CtoPstr((char *)x) X#define p2cstr(x) (char *)PtoCstr((char *)x) X X#endif X X#include <stdio.h> X#include <stdlib.h> X#include <string.h> X#ifndef THINK_C X#include <strings.h> X#endif X#include <setjmp.h> X X#include "config.h" X#include "constant.h" X#include "types.h" X#include "externs.h" X#include "macrsrc.h" X Xlong GetCommandSet(Handle theData); Xlong GetTextEditor(Handle theData); X Xvoid DoMacHelp(void), DoKillsDlg(void); X Xstatic long game_flag; Xstatic long exit_code; X Xstatic short savedir, applvrefnum; X Xstatic char **save_chars, **save_attrs; Xstatic long save_cursor_h, save_cursor_v; X X#define PATHLEN 256 X X#define TAB_WIDTH 8 X X#define CODE_IGNORE 0 X#define CODE_PASSTHRU 1 X#define CODE_KEYPAD 2 X#define CODE_ARROW 3 X#define CODE_ENTER 4 X Xstatic unsigned char codetable[0x80] = { X /* 0 1 2 3 4 5 6 7 8 9 A B C D E F */ X /* - - - - - - - - - - - - - - - - */ X /* [00] */ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, X /* [10] */ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, X /* [20] */ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, X /* [30] */ 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, X /* [40] */ 1, 1, 3, 1, 1, 1, 3, 1, 3, 1, 1, 1, 4, 3, 1, 1, X /* [50] */ 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 1, 1, 1, X /* [60] */ 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, X /* [70] */ 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 3, 3, 3, 1 X}; X X#define ARROW_UP_1 0x4D X#define ARROW_DOWN_1 0x48 X#define ARROW_LEFT_1 0x46 X#define ARROW_RIGHT_1 0x42 X X#define ARROW_UP_2 0x7E X#define ARROW_DOWN_2 0x7D X#define ARROW_LEFT_2 0x7B X#define ARROW_RIGHT_2 0x7C X X#define CMDSET_TYPE 'CNFG' X#define CMDSET_ID 256 X X#define TE_TYPE 'CNFG' X#define TE_ID 257 X X#define SPIN_TICKS 15 X Xstatic long editor, cmdsetopt; X Xstatic jmp_buf jb; X X#define ABOUT_DLOG_ID 128 X X#define FM_NEW 1 X#define FM_OPEN 2 X#define FM_SAVE 4 X#define FM_SAVE_AS 5 X#define FM_QUIT 7 X X#define AM_HELP 1 X#define AM_CMD_SET 2 X#define AM_TEXT_ED 3 X#define AM_SCORES 5 X X#define KEY_UNKNOWN 0xFF X#define KEY_DIR 0x90 X#define KEY_DIR_SHIFT 0xA0 X#define KEY_DIR_CONTROL 0xB0 X X#define NEXT_FINDER 1 X#define NEXT_NEW 2 X#define NEXT_OPEN 3 X#define NEXT_WAIT 4 X#define NEXT_QUIT 5 X Xlong savefileset; Xchar savefilename[64]; Xshort savefilevol; X X#define sqc_dlg_id 258 X#define sqc_save_item 1 X#define sqc_quit_item 2 X#define sqc_cancel_item 3 X#define sqc_defbrd_item 4 X X#define code_enter 0x03 X#define code_return 0x0D X X#define errAlrtID 1024 X Xstatic short sqcdefault_item; Xstatic Handle sqcdefault_handle; X Xstatic long save_cmd_level, file_menu_level, app_menu_level; Xstatic long save_cmd_enabled, file_menu_enabled, app_menu_enabled; X X#if 0 X/* this stuff is no longer used */ X X#define malloc_zone_size 0x1000 X Xstatic THz malloc_zone; X Xvoid init_malloc_zone() X X{ X THz theOldZone; X X theOldZone = GetZone(); X X InitZone(NULL, 64, (Ptr)((long) malloc_zone + malloc_zone_size), X (Ptr) malloc_zone); X X SetZone(theOldZone); X X return; X} X Xvoid *mac_malloc(n) Xunsigned n; X X{ X THz theOldZone; X void *theNewPtr; X X theOldZone = GetZone(); X SetZone(malloc_zone); X X theNewPtr = (void *) NewPtrClear((Size) n); X X SetZone(theOldZone); X X return(theNewPtr); X} X Xvoid mac_free(p) Xvoid *p; X X{ X#if 0 X THz theOldZone; X X theOldZone = GetZone(); X SetZone(malloc_zone); X X DisposPtr((Ptr) p); X X SetZone(theOldZone); X#else X#pragma unused(p) X#endif X X return; X} X X#endif X Xlong mac_time() X X{ X long now; X X GetDateTime((unsigned long *) &now); X return(now); X} X Xvoid alert_error(message) Xchar *message; X X{ X Str255 pstr; X X strncpy((char *)pstr, message, 255); X pstr[255] = '\0'; X (void) c2pstr(pstr); X X ParamText(pstr, NULL, NULL, NULL); X X DoScreenALRT(errAlrtID, akStop, fixHalf, fixHalf); X X return; X} X Xvoid fatal_error(message) Xchar *message; X X{ X alert_error(message); X exit(0); X} X Xchar *truncstr(pstr, wid) Xchar *pstr; Xshort wid; X X{ X unsigned char len; X X if (StringWidth(pstr) > wid) { X len = (unsigned char) pstr[0]; X if (len > 0) pstr[len] = '\311'; X while ( (len > 1) && (StringWidth(pstr) > wid) ) { X pstr[0] = (char) --len; X pstr[len] = '\311'; X } X } X X return(pstr); X} X Xvoid idle() X X{ X long redraw; X X redraw = FALSE; X X if ((!save_cmd_enabled) && (save_cmd_level > 0)) { X EnableItem((MenuHandle) GetFileMHandle(), FM_SAVE); X EnableItem((MenuHandle) GetFileMHandle(), FM_SAVE_AS); X save_cmd_enabled = TRUE; X } X else if ((save_cmd_enabled) && (save_cmd_level <= 0)) { X DisableItem((MenuHandle) GetFileMHandle(), FM_SAVE); X DisableItem((MenuHandle) GetFileMHandle(), FM_SAVE_AS); X save_cmd_enabled = FALSE; X } X X if ((!file_menu_enabled) && (file_menu_level > 0)) { X EnableItem((MenuHandle) GetFileMHandle(), 0); X file_menu_enabled = TRUE; X redraw = TRUE; X } X else if ((file_menu_enabled) && (file_menu_level <= 0)) { X DisableItem((MenuHandle) GetFileMHandle(), 0); X file_menu_enabled = FALSE; X redraw = TRUE; X } X X if ((!app_menu_enabled) && (app_menu_level > 0)) { X EnableItem((MenuHandle) GetAppMHandle(), 0); X app_menu_enabled = TRUE; X redraw = TRUE; X } X else if ((app_menu_enabled) && (app_menu_level <= 0)) { X DisableItem((MenuHandle) GetAppMHandle(), 0); X app_menu_enabled = FALSE; X redraw = TRUE; X } X X if (redraw) X DrawMenuBar(); X X IdleScreenMgr(); X} X Xint macgetkey(ch, nowait) Xchar *ch; Xint nowait; X X{ X char keycode, modifiers, ascii; X short h, v; X X do { X X if (nowait) { X idle(); X if (!GetScreenKeys(&keycode, &modifiers, &ascii, &h, &v)) X return(FALSE); X } X else { X do { X idle(); X } while (!GetScreenKeys(&keycode, &modifiers, &ascii, &h, &v)); X } X X } while ( (modifiers & maskModMouse) || X (codetable[keycode] == CODE_IGNORE) ); X X if (ascii > 0x7F) ascii = KEY_UNKNOWN; X X switch (codetable[keycode]) { X X case CODE_KEYPAD: X if ((ascii >= '1') && (ascii <= '9')) { X ascii -= '0'; X if (modifiers & maskModControl) X ascii += KEY_DIR_CONTROL; X else if (modifiers & maskModShift) X ascii += KEY_DIR_SHIFT; X else X ascii += KEY_DIR; X } X break; X X case CODE_ARROW: X switch (keycode) { X case ARROW_UP_1: case ARROW_UP_2: X ascii = 8; X break; X case ARROW_DOWN_1: case ARROW_DOWN_2: X ascii = 2; X break; X case ARROW_LEFT_1: case ARROW_LEFT_2: X ascii = 4; X break; X case ARROW_RIGHT_1: case ARROW_RIGHT_2: X ascii = 6; X break; X default: X ascii = 5; X break; X } X if (modifiers & maskModControl) X ascii += KEY_DIR_CONTROL; X else if (modifiers & maskModShift) X ascii += KEY_DIR_SHIFT; X else X ascii += KEY_DIR; X break; X X case CODE_ENTER: X ascii = '\r'; X break; X X } X X if (ch != NULL) *ch = ascii; X X return(TRUE); X} X Xint extractdir(ch, shift_flag, ctrl_flag) Xchar ch; Xint *shift_flag; Xint *ctrl_flag; X X{ X long rc; X X if ((ch & 0xF0) == KEY_DIR) { X *shift_flag = FALSE; X *ctrl_flag = FALSE; X rc = ch & 0x0F; X } X else if ((ch & 0xF0) == KEY_DIR_SHIFT) { X *shift_flag = TRUE; X *ctrl_flag = FALSE; X rc = ch & 0x0F; X } X else if ((ch & 0xF0) == KEY_DIR_CONTROL) { X *shift_flag = FALSE; X *ctrl_flag = TRUE; X rc = ch & 0x0F; X } X else X rc = -1; X X return(rc); X} X Xvoid mac_save_screen() X X{ X Rect screen; X X screen.left = screen.top = 0; X screen.right = SCRN_COLS; X screen.bottom = SCRN_ROWS; X X HLock((Handle) save_chars); X HLock((Handle) save_attrs); X X GetScreenImage(*save_chars, *save_attrs, SCRN_COLS, &screen, 0, 0); X GetScreenCursor(&save_cursor_h, &save_cursor_v); X X HUnlock((Handle) save_chars); X HUnlock((Handle) save_attrs); X X return; X} X X/* This restore routine only touches as much of the screen as necessary. */ X Xvoid mac_restore_screen() X X{ X Rect screen; X long v; X char chars[SCRN_COLS], attrs[SCRN_COLS]; X char *c, *a, *c1, *c2, *a1, *a2; X X HLock((Handle) save_chars); X HLock((Handle) save_attrs); X X c = *save_chars; X a = *save_attrs; X X screen.top = 0; X screen.bottom = 1; X X for (v = 0; v < SCRN_ROWS; v++) { X X screen.left = 0; X screen.right = SCRN_COLS; X X GetScreenImage(chars, attrs, SCRN_COLS, &screen, 0, v); X X c1 = chars; X c2 = c; X X a1 = attrs; X a2 = a; X X while (screen.left < SCRN_COLS) { X if (*c1++ != *c2++) break; X if (*a1++ != *a2++) break; X ++screen.left; X } X X c1 = chars + SCRN_COLS; X c2 = c + SCRN_COLS; X X a1 = attrs + SCRN_COLS; X a2 = a + SCRN_COLS; X X while (screen.right > screen.left) { X if (*--c1 != *--c2) break; X if (*--a1 != *--a2) break; X --screen.right; X } X X if (screen.right > screen.left) X DSetScreenImage(c, a, SCRN_COLS, &screen, screen.left, v); X X c += SCRN_COLS; X a += SCRN_COLS; X X } X X DSetScreenCursor(save_cursor_h, save_cursor_v); X X HUnlock((Handle) save_chars); X HUnlock((Handle) save_attrs); X X return; X} X Xvoid mac_beep() X X{ X SysBeep(15); X return; X} X Xvoid macbeginwait() X X{ X BeginScreenWait(SPIN_TICKS); X return; X} X Xvoid macendwait() X X{ X EndScreenWait(); X return; X} X XOSErr GetDirID(wdVRefNum, vRefNum, dirID) Xshort wdVRefNum; Xshort *vRefNum; Xlong *dirID; X X{ X OSErr err; X WDPBRec wdpb; X X wdpb.ioNamePtr = NULL; X wdpb.ioVRefNum = wdVRefNum; X wdpb.ioWDIndex = 0; X wdpb.ioWDProcID = 0; X wdpb.ioWDVRefNum = 0; X err = PBGetWDInfo(&wdpb, false); X X if (!err) { X *vRefNum = wdpb.ioWDVRefNum; X *dirID = wdpb.ioWDDirID; X } X X return(err); X} X XOSErr MakePath(vRefNum, dirID, fName, pathName) Xshort vRefNum; Xlong dirID; Xchar *fName; Xchar *pathName; X X{ X char buf[PATHLEN], *bufptr; X long len; X OSErr err; X Str255 vNameBuf; X CInfoPBRec cipb; X X bufptr = buf + PATHLEN; X X *--bufptr = '\0'; X X if (fName != NULL) { X len = strlen(fName); X strncpy(bufptr -= len, fName, len); X } X X cipb.dirInfo.ioNamePtr = vNameBuf; X cipb.dirInfo.ioVRefNum = vRefNum; X cipb.dirInfo.ioFDirIndex = -1; X X do { X cipb.dirInfo.ioDrDirID = dirID; X err = PBGetCatInfo(&cipb, false); X if (!err) { X *--bufptr = ':'; X len = strlen(p2cstr(vNameBuf)); X strncpy(bufptr -= len, (char *)vNameBuf, len); X dirID = cipb.dirInfo.ioDrParID; X } X } while ( (!err) && (dirID != fsRtParID) ); X X strcpy(pathName, bufptr); X X return(err); X} X Xvoid checkdebugger() X X{ X#ifndef THINK_C X#if 1 X char keys[128]; X X GetKeys ((KeyMap *) &keys); X if (keys[4] & 0x80) Debugger(); /* if command key is down */ X#else X if (((char *) KeyMapLM)[6] & 0x80) Debugger(); /* if command key is down */ X#endif X#endif X X return; X} X Xstatic void getstack(request) Xlong request; X X{ X long cursize; X#ifdef THINK_C X Ptr newlimit; X#else X long newlimit; X#endif X X /* An extra level of indirection is apparently needed by MPW C X for accessing system globals. */ X#ifdef THINK_C X cursize = (((long *) CurStackBase) - ((long *) ApplLimit)) - 8; X if (cursize < request) { X newlimit = (Ptr)(((long *) CurStackBase - request) - 8); X if (newlimit > HeapEnd) X ApplLimit = newlimit; X } X#else X cursize = (*((int *) CurStackBase) - *((int *) ApplLimit)) - 8; X if (cursize < request) { X newlimit = (*((int *) CurStackBase) - request) - 8; X if (newlimit > *((int *) HeapEnd)) *((int *) ApplLimit) = newlimit; X } X#endif X X return; X} X Xvoid sfposition(vrefnum) Xshort vrefnum; X X{ X short v; X long d; X X GetDirID(vrefnum, &v, &d); X#ifdef THINK_C X SFSaveDisk = -v; X CurDirStore = d; X#else X *((short *) SFSaveDisk) = -v; X *((int *) CurDirStore) = d; X#endif X X return; X} X Xlong doputfile(prompt, fname, vrefnum) Xchar *prompt; Xchar *fname; Xshort *vrefnum; X X{ X char p[256], f[256]; X SFReply reply; X Point loc; X long h, v; X X CenterScreenDLOG(putDlgID, fixHalf, fixThird, &h, &v); X X loc.h = (short) h; X loc.v = (short) v; X X strncpy(p, prompt, 255); X strncpy(f, fname, 255); X p[255] = '\0'; X f[255] = '\0'; X c2pstr(p); X c2pstr(f); X X SFPutFile(loc, p, f, NULL, &reply); X X if (reply.good) { X p2cstr(reply.fName); X strcpy(fname, (char *)reply.fName); X *vrefnum = reply.vRefNum; X } X X return(reply.good); X} X Xint asksavegame(ask) Xint ask; X X{ X int rc; X X if (!ask && savefileset) X rc = TRUE; X X else { X rc = doputfile("Save game as:", savefilename, &savefilevol); X if (rc) savefileset = TRUE; X } X X return(rc); X} X Xstatic pascal Boolean savefilefilter(pb) XParmBlkPtr pb; X X{ X OSType fdtype, fdcreator; X X fdtype = pb->fileParam.ioFlFndrInfo.fdType; X fdcreator = pb->fileParam.ioFlFndrInfo.fdCreator; X X return(!((fdcreator == MORIA_FCREATOR) && (fdtype == SAVE_FTYPE))); X} X Xint dogetfile(fname, vrefnum) Xchar *fname; Xshort *vrefnum; X X{ X SFTypeList types; X SFReply reply; X Point loc; X long h, v; X X CenterScreenDLOG(getDlgID, fixHalf, fixThird, &h, &v); X X loc.h = (short) h; X loc.v = (short) v; X X types[0] = SAVE_FTYPE; X X SFGetFile(loc, NULL, savefilefilter, 1, types, NULL, &reply); X X if (reply.good) { X p2cstr(reply.fName); X strcpy(fname, (char *)reply.fName); X *vrefnum = reply.vRefNum; X } X X return(reply.good); X} X Xstatic pascal Boolean sqcfilter(dlg, evt, item) XDialogPtr dlg; XEventRecord *evt; Xshort *item; X X{ X#pragma unused(dlg) X Boolean rc; X char key; X X rc = FALSE; X X if (evt->what == keyDown) { X key = evt->message & charCodeMask; X if ( (key == code_enter) || (key == code_return) ) { X rc = TRUE; X HiliteControl((ControlHandle) sqcdefault_handle, inButton); X *item = sqcdefault_item; X } X } X X return(rc); X} X Xshort currentdirectory() X X{ X short vrefnum; X X (void) GetVol(NULL, &vrefnum); X return(vrefnum); X} X Xvoid changedirectory(vrefnum) Xshort vrefnum; X X{ X (void) GetVol(NULL, &savedir); X (void) SetVol(NULL, vrefnum); X return; X} X Xvoid appldirectory() X X{ X (void) GetVol(NULL, &savedir); X (void) SetVol(NULL, applvrefnum); X return; X} X Xvoid restoredirectory() X X{ X (void) SetVol(NULL, savedir); X return; X} X Xvoid mac_helpfile(filename, wait) Xchar *filename; Xint wait; X X{ X Str255 temp, temp2; /* Buffer for line and tab-expanded line. */ X short apRefNum; X Handle apParam; X FILE *file; X int i, j, done; X char ch; X char *cp; /* Source for tab expansion. */ X Rect area; X X GetAppParms(temp, &apRefNum, &apParam); X X appldirectory(); X /* Ordinarily, the misc files are stored in the data fork of X the application. */ X#if 1 X file = fopen(p2cstr(temp), "r"); X#else X file = fopen("MacMoria.files", "r"); X#endif X restoredirectory(); X X if (file != NULL) { X X while (!feof(file)) X if (fgets ((char *)temp, 255, file) != NULL) X if (temp[0] == '#') X if (strstr((char *)temp, filename) != NULL) X break; X X if (feof(file)) { X (void) fclose(file); X file = NULL; X } X X } X X if (file == NULL) { X sprintf((char *)temp, "Cannot find text file: %s", filename); X alert_error(temp); X } X X else { X X area.left = area.top = 0; X area.right = SCRN_COLS; X area.bottom = SCRN_ROWS; X X if (wait) X mac_save_screen(); X X done = FALSE; X X while ((!done) && (!feof(file))) { X DEraseScreen(&area); X for (i = 0; (!done) && (i < SCRN_ROWS - 1); i++) X if ((fgets((char *)temp, 255, file) != NULL) && (temp[0] != '#')) { X /* Remove the trailing \n and X expand tabs. */ X for (cp = (char *) temp, j = 0; X *cp != '\n'; cp++) X { X if ((temp2[j] = *cp) == '\t') X { X do X { X temp2[j++] = ' '; X } X while (j % TAB_WIDTH != 0); X } X else X j++; X } X temp2[j] = '\0'; X DSetScreenString((char *)temp2, 0, i); X } X else X done = TRUE; X if (wait) { X DSetScreenCursor(20, SCRN_ROWS - 1); X DWriteScreenString( X done ? X "[Press any key to continue.]" : X "[Press any key for next page or ESC to abort.]"); X macgetkey(&ch, FALSE); X if (ch == ESCAPE) X done = TRUE; X } X } X X if (wait) X mac_restore_screen(); X X fclose(file); X X } X X return; X} X Xchar *nextstring(loc) Xchar **loc; X X{ X char *str; X unsigned char len; X X len = *((unsigned char *) (*loc)); X str = p2cstr(*loc); X *loc += len + 1; X X return(str); X} X X#if 0 X/* no longer used */ Xlong allocmalloczone(restart) Xlong restart; X X{ X long rc; X X if (!restart) { X malloc_zone = (THz) NewPtr(malloc_zone_size); X rc = malloc_zone != NULL; X } X else X rc = TRUE; X X if (rc && !restart) X init_malloc_zone(); X X return(rc); X} X#endif X Xint allocsavearea(restart) Xint restart; X X{ X int rc; X X if (!restart) { X save_chars = (char **) NewHandle(SCRN_ROWS * SCRN_COLS); X save_attrs = (char **) NewHandle(SCRN_ROWS * SCRN_COLS); X rc = (save_chars != NULL) && (save_attrs != NULL); X } X else X rc = TRUE; X X return(rc); X} X Xint setupmem(restart) Xint restart; X X{ X int i; X memtable_type *m; X X for (i = 0, m = memtable; i < MAX_PTRS; i++, m++) { X X if (!restart) { X *m->memPtr = (char *) NewPtrClear(m->elemCnt * m->elemSiz); X if (*m->memPtr == NULL) return(FALSE); X } X X else if (m->restartFlag) { X memset(*m->memPtr, 0, m->elemCnt * m->elemSiz); X } X X } X X return(TRUE); X} X Xint getresources(restart) Xint restart; X X{ X int i, rc; X restable_type *r; X X for (i = 0, r = restable; i < MAX_RESOURCES; i++, r++) { X X if (!restart) *r->memPtr = NULL; X X if ( (!restart) || (r->restartFlag) ) { X X rc = LoadRes( X r->memPtr, X r->resType, r->resID, X r->elemCnt, r->elemSiz, X r->strProc); X X if (!rc) return(FALSE); X X } X X } X X return(TRUE); X} X Xint getrestart(restart) Xint restart; X X{ X int i, rc; X unsigned size; X char *p, *q; X X if (restart) { X X size = 0; X for (i = 0; i < MAX_RESTART; i++) size += restart_vars[i].size; X X p = NULL; X X rc = LoadRes( X &p, X restartRsrc, restart_id, X 1, size, X NULL); X X if (!rc) return(FALSE); X X q = p; X for (i = 0; i < MAX_RESTART; i++) { X BlockMove(q, restart_vars[i].ptr, restart_vars[i].size); X q += restart_vars[i].size; X } X X DisposPtr(p); X X } X X return(TRUE); X} X Xint clearvars(restart) Xint restart; X X{ X int i; X clrtable_type *c; X X if (restart) X for (i = 0, c = clrtable; i < MAX_CLRS; i++, c++) X memset(c->ptr, 0, c->size); X X return(TRUE); X} X X#ifndef THINK_C Xunsigned sleep(time) Xunsigned time; X X{ X#pragma unused(time) X idle(); X return(0); X} X#endif X Xchar *makefilename(buffer, suffix, append) Xchar *buffer, *suffix; Xint append; X X X{ X long len; X char *p; X X len = strlen(py.misc.name) + ((append) ? strlen(suffix)+3 : 0); X X if ( (strlen(py.misc.name) == 0) || (len > 31) ) X strcpy(buffer, suffix); X X else { X strcpy(buffer, py.misc.name); X if (append) { X strcat(buffer, "'s "); X strcat(buffer, suffix); X } X for (p = buffer; *p; p++) X if (*p == ':') *p = '.'; X } X X return(buffer); X} X Xvoid initsavedefaults() X X{ X savefileset = FALSE; X X (void) makefilename(savefilename, "Save File", FALSE); X savefilevol = currentdirectory(); X X return; X} X Xvoid setsavedefaults(name, vol) Xchar *name; Xshort vol; X X{ X savefileset = TRUE; X X strncpy(savefilename, name, 63); X savefilename[63] = '\0'; X X savefilevol = vol; X X return; X} X Xint getsavedefaults(name, vol) Xchar *name; Xshort *vol; X X{ X strcpy(name, savefilename); X *vol = savefilevol; X X return(savefileset); X} X Xint getfinderfile() X X{ X short message, count, i; X AppFile appfile; X X CountAppFiles(&message, &count); X X for (i = 1; i <= count; i++) { X GetAppFiles(i, &appfile); X if (appfile.fType == SAVE_FTYPE) break; X } X X if (i <= count) { X setsavedefaults(p2cstr(appfile.fName), appfile.vRefNum); X } X X return(i <= count); X} X Xlong setfileinfo(fname, vrefnum, ftype) Xchar *fname; Xshort vrefnum; Xlong ftype; X X{ X long fcreator; X char temp[64]; X FileParam pb; X OSErr err; X X fcreator = (ftype != INFO_FTYPE) ? MORIA_FCREATOR : editor; X X strcpy(temp, fname); X (void) c2pstr(temp); X X pb.ioCompletion = NULL; X pb.ioNamePtr = (unsigned char *)temp; X pb.ioVRefNum = vrefnum; X pb.ioFVersNum = 0; X pb.ioFDirIndex = 0; X X err = PBGetFInfo((ParmBlkPtr) &pb, FALSE); X X if (err == noErr) { X pb.ioFlFndrInfo.fdType = ftype; X pb.ioFlFndrInfo.fdCreator = fcreator; X err = PBSetFInfo((ParmBlkPtr) &pb, FALSE); X } X X return(err == noErr); X} X X#if 0 Xlong getfileage(fname, vrefnum) Xchar *fname; Xshort vrefnum; X X{ X char temp[64]; X FileParam pb; X OSErr err; X long age; X X strcpy(temp, fname); X (void) c2pstr(temp); X X pb.ioCompletion = NULL; X pb.ioNamePtr = temp; X pb.ioVRefNum = vrefnum; X pb.ioFVersNum = 0; X pb.ioFDirIndex = 0; X X err = PBGetFInfo((ParmBlkPtr) &pb, FALSE); X X if (err == noErr) { X GetDateTime((unsigned long *) &age); X age -= pb.ioFlMdDat; X } X else X age = 0; X X return(age); X} X#endif X Xvoid benediction() X X{ X Rect scrn; X X scrn.left = 0; X scrn.top = SCRN_ROWS-1; X scrn.right = SCRN_COLS; X scrn.bottom = SCRN_ROWS; X X EraseScreen(&scrn); X X SetScreenCursor(0, SCRN_ROWS-1); X WriteScreenString("Please select a command from the file menu..."); X X return; X} X Xvoid setsavecmdstatus(val, init) Xint val, init; X X{ X save_cmd_level = val; X X if (init) X save_cmd_enabled = val > 0; X X return; X} X Xvoid enablesavecmd(flag) Xint flag; X X{ X save_cmd_level += flag ? 1 : -1; X return; X} X Xvoid setfilemenustatus(val, init) Xint val, init; X X{ X file_menu_level = val; X X if (init) X file_menu_enabled = val > 0; X X return; X} X Xvoid enablefilemenu(flag) Xint flag; X X{ X file_menu_level += flag ? 1 : -1; X return; X} X Xvoid setappmenustatus(val, init) Xint val, init; X X{ X app_menu_level = val; X X if (init) X app_menu_enabled = val > 0; X X return; X} X Xvoid enableappmenu(flag) Xint flag; X X{ X app_menu_level += flag ? 1 : -1; X return; X} X Xvoid savequitorcancel(next) Xint next; X X{ X DialogPtr thedialog; X short itemhit; X short itstype; X Rect itsrect; X long h, v; X long saveOk, dialogFinished; X X thedialog = GetNewDialog(sqc_dlg_id, nil, (WindowPtr) -1); X X CenterScreenDLOG(sqc_dlg_id, fixHalf, fixThird, &h, &v); X MoveWindow((WindowPtr) thedialog, (short) h, (short) v, false); X X if ((save_cmd_level > 0) && !total_winner) { X sqcdefault_item = sqc_save_item; X saveOk = true; X } X else { X sqcdefault_item = sqc_quit_item; X saveOk = false; X } X X GetDItem(thedialog, sqcdefault_item, &itstype, &sqcdefault_handle, &itsrect); X InsetRect(&itsrect, -4, -4); X X SetDItem(thedialog, sqc_defbrd_item, userItem, X (Handle) DrawDefaultBorder, &itsrect); X X ShowWindow((WindowPtr) thedialog); X X do { X ModalDialog(sqcfilter, &itemhit); X if ( (!saveOk) && (itemhit == sqc_save_item) ) { X if (total_winner) X alert_error("Sorry. Since you are a total \ Xwinner, you cannot save this game. Your character must be retired."); X else X alert_error("Sorry. You cannot save at this \ Xpoint in the game. It must be your turn to move in order to save."); X dialogFinished = false; X } X else X dialogFinished = (itemhit == sqc_save_item) || X (itemhit == sqc_quit_item) || X (itemhit == sqc_cancel_item); X } while (!dialogFinished); X X DisposDialog(thedialog); X X switch (itemhit) { X X case sqc_save_item: X if (asksavegame(FALSE)) { X HiliteMenu(0); X (void) strcpy (died_from, "(saved)"); X exit_code = next; X if (save_char(FALSE)) X exit_game(); X /* Should only get here if save_char fails */ X UnloadSeg(save_char); X UnloadSeg(exit_game); X exit_code = NEXT_WAIT; X (void) strcpy (died_from, "(alive and well)"); X } X break; X X case sqc_quit_item: X HiliteMenu(0); X death = TRUE; X (void) strcpy(died_from, "Quitting."); X exit_code = next; X exit_game(); X /* Should never get here */ X UnloadSeg(exit_game); X exit_code = NEXT_WAIT; X (void) strcpy (died_from, "(alive and well)"); X death = FALSE; X break; X X default: X HiliteMenu(0); X break; X X } X X return; X} X Xvoid loaddata(restart) Xint restart; X{ X if ( X#if 0 X (!allocmalloczone(restart)) || X#endif X (!allocsavearea(restart)) || X (!setupmem(restart)) || X (!getresources(restart)) || X (!getrestart(restart)) || X (!clearvars(restart)) ) X X fatal_error("Insufficient memory to play Moria. Sorry."); X X return; X} X Xvoid goback() X X{ X longjmp(jb, exit_code); X} X Xint startfinder() X X{ X int next; X int argc; X long local_cmdsetopt; X char *argv[2]; X X if ((next = setjmp(jb)) != 0) return(next); X X clear_screen(); X X local_cmdsetopt = cmdsetopt; X X argc = 0; X argv[argc++] = NULL; X argv[argc++] = (char *) &local_cmdsetopt; X X game_flag = TRUE; X exit_code = NEXT_WAIT; X X moria_main(argc, argv); X X /* should never get here */ X return(NEXT_WAIT); X} X Xint startnew() X X{ X int next; X int argc; X long local_cmdsetopt, local_newgameopt; X char *argv[3]; X X if ((next = setjmp(jb)) != 0) return(next); X X clear_screen(); X X local_cmdsetopt = cmdsetopt; X local_newgameopt = '-n\0\0'; X X argc = 0; X argv[argc++] = NULL; X argv[argc++] = (char *) &local_cmdsetopt; X argv[argc++] = (char *) &local_newgameopt; X X game_flag = TRUE; X exit_code = NEXT_WAIT; X X moria_main(argc, argv); X X /* should never get here */ X return(NEXT_WAIT); X} X Xint startopen() X X{ X int next; X int argc; X long local_cmdsetopt; X char *argv[2]; X X if ((next = setjmp(jb)) != 0) return(next); X X clear_screen(); X X if (dogetfile(savefilename, &savefilevol)) { X X savefileset = TRUE; X X local_cmdsetopt = cmdsetopt; X X argc = 0; X argv[argc++] = NULL; X argv[argc++] = (char *) &local_cmdsetopt; X X game_flag = TRUE; X exit_code = NEXT_WAIT; X X moria_main(argc, argv); X X } X X /* should not get here unless user cancels standard file dialog */ X return(NEXT_WAIT); X} X Xint waitforchoice() X X{ X int next; X X if ((next = setjmp(jb)) != 0) return(next); X X game_flag = FALSE; X X benediction(); X X do { X idle(); X } while(TRUE); X X return(NEXT_WAIT); X} X Xvoid dofmnew() X X{ X if (game_flag && character_generated) X savequitorcancel(NEXT_NEW); X X else { X HiliteMenu(0); X exit_code = NEXT_NEW; X goback(); X } X X return; X} X Xvoid dofmopen() X X{ X if (game_flag && character_generated) X savequitorcancel(NEXT_OPEN); X X else { X HiliteMenu(0); X exit_code = NEXT_OPEN; X goback(); X } X X return; X} X Xvoid dofmsave(ask) Xint ask; X X{ X if (game_flag && character_generated && total_winner) { X alert_error("Sorry. Since you are a total winner, you cannot\ X save this game. Your character must be retired."); X HiliteMenu(0); X } X else if (game_flag && character_generated && asksavegame(ask)) { X HiliteMenu(0); X (void) strcpy (died_from, "(saved)"); X if (save_char(FALSE)) X exit_game(); X /* Should only get here if save_char fails */ X UnloadSeg(save_char); X UnloadSeg(exit_game); X (void) strcpy (died_from, "(alive and well)"); X } X else X HiliteMenu(0); X X return; X} X Xvoid dofmquit() X X{ X if (game_flag && character_generated) X savequitorcancel(NEXT_QUIT); X X else { X HiliteMenu(0); X exit_code = NEXT_QUIT; X goback(); X } X X return; X} X Xvoid dofilemenu(item) Xlong item; X X{ X switch (item) { X X case FM_NEW: dofmnew(); X break; X X case FM_OPEN: dofmopen(); X break; X X case FM_SAVE: dofmsave(FALSE); X break; X X case FM_SAVE_AS: dofmsave(TRUE); X break; X X case FM_QUIT: dofmquit(); X break; X X case closeBoxItem: if (file_menu_level > 0) dofmquit(); X break; X X default: HiliteMenu(0); X break; X X } X X return; X} X Xvoid doappmenu(item) Xlong item; X X{ X switch (item) { X X case AM_HELP: DoMacHelp(); X UnloadSeg(DoMacHelp); X break; X X case AM_CMD_SET: ConfigScreenMgr(TRUE, CMDSET_TYPE, X CMDSET_ID, GetCommandSet); X UnloadSeg(GetCommandSet); X cmdsetopt = **((long **) GetResource(CMDSET_TYPE, CMDSET_ID)); X HiliteMenu(0); X break; X X case AM_TEXT_ED: ConfigScreenMgr(TRUE, TE_TYPE, TE_ID, GetTextEditor); X UnloadSeg(GetTextEditor); X editor = **((long **) GetResource(TE_TYPE, TE_ID)); X HiliteMenu(0); X break; X X case AM_SCORES: DoScoresDlg(); X UnloadSeg(DoScoresDlg); X break; X X default: HiliteMenu(0); X break; X X } X X return; X} X Xvoid unloadsegments() X X{ X#ifndef THINK_C X extern void create_character(), X creatures(), X exit_game(), X eat(), X file_character(), X generate_cave(), X ident_char(), X cast(), X pray(), X quaff(), X roff_recall(), X save_char(), X read_scroll(), X use(), X store_init(), X aim(), X wizard_light(); X X UnloadSeg(create_character); /* Create */ X UnloadSeg(creatures); /* Creature */ X UnloadSeg(exit_game); /* Death */ X UnloadSeg(eat); /* Eat */ X UnloadSeg(file_character); /* Files */ X UnloadSeg(generate_cave); /* Generate */ X UnloadSeg(ident_char); /* Help */ X UnloadSeg(cast); /* Magic */ X UnloadSeg(pray); /* Prayer */ X UnloadSeg(quaff); /* Potions */ X UnloadSeg(roff_recall); /* Recall */ X UnloadSeg(save_char); /* Save */ X UnloadSeg(read_scroll); /* Scrolls */ X UnloadSeg(use); /* Staffs */ X UnloadSeg(store_init); /* Store */ X UnloadSeg(aim); /* Wands */ X UnloadSeg(wizard_light); /* Wizard */ X#endif X X return; X} X Xvoid salutation() X X{ X mac_helpfile(MORIA_MOR, FALSE); X} X Xint main() X X{ X int next, savedgame, restart_flag; X#ifndef THINK_C X extern void _DataInit(); X#endif X X checkdebugger(); X X#ifndef THINK_C X UnloadSeg(_DataInit); X#endif X X getstack(0x7000L); X X MaxApplZone(); X X /* Do this early to prevent fragmentation */ X loaddata(FALSE); X X InitScreenMgr(SCRN_COLS, SCRN_ROWS, X "Moria", "Moria Config", X MORIA_FCREATOR, CONFIG_FTYPE, X dofilemenu, doappmenu, X twoColor); X X /* Get permanently set options */ X /* If user has not set them yet, a dialog will be invoked */ X /* Otherwise, they will be loaded from the preferences file */ X X ConfigScreenMgr(FALSE, CMDSET_TYPE, CMDSET_ID, GetCommandSet); X#ifndef THINK_C X UnloadSeg(GetCommandSet); X#endif X cmdsetopt = **((long **) GetResource(CMDSET_TYPE, CMDSET_ID)); X X ConfigScreenMgr(FALSE, TE_TYPE, TE_ID, GetTextEditor); X#ifndef THINK_C X UnloadSeg(GetTextEditor); X#endif X editor = **((long **) GetResource(TE_TYPE, TE_ID)); X X DefineScreenCursor(attrColorFore, 2, GetCaretTime()); X ShowScreenCursor(); X X /* Save the application volume */ X GetVol(NULL, &applvrefnum); X X /* These should be based up the menu resources */ X setsavecmdstatus(0, TRUE); X setfilemenustatus(1, TRUE); X setappmenustatus(1, TRUE); X X restart_flag = FALSE; X X initsavedefaults (); X X /* Find out if user has started from a saved game */ X savedgame = getfinderfile(); X X if (savedgame) { X enablefilemenu(FALSE); X salutation(); X pause_line(23); X enablefilemenu(TRUE); X next = NEXT_FINDER; X } X else { X salutation(); X next = NEXT_WAIT; X } X X do { X setsavecmdstatus(0, FALSE); X setfilemenustatus(1, FALSE); X setappmenustatus(1, FALSE); X switch (next) { X case NEXT_FINDER: X if (restart_flag) loaddata(TRUE); X next = startfinder(); X unloadsegments(); X restart_flag = TRUE; X break; X case NEXT_NEW: X if (restart_flag) loaddata(TRUE); X next = startnew(); X unloadsegments(); X restart_flag = TRUE; X break; X case NEXT_OPEN: X if (restart_flag) loaddata(TRUE); X next = startopen(); X unloadsegments(); X restart_flag = TRUE; X break; X case NEXT_WAIT: X next = waitforchoice(); X break; X default: X msg_print("What was that?"); X next = NEXT_WAIT; X break; X } X } while (next != NEXT_QUIT); X X CloseScreenMgr(); X X /* That's all, folks... */ X return(0); X} END_OF_FILE if test 30757 -ne `wc -c <'mac/mac.c'`; then echo shar: \"'mac/mac.c'\" unpacked with wrong size! fi # end of 'mac/mac.c' fi if test -f 'source/constant.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'source/constant.h'\" else echo shar: Extracting \"'source/constant.h'\" $20967 characters$ sed "s/^X//" >'source/constant.h' <<'END_OF_FILE' X/* source/constant.h: global constants used by Moria X X Copyright (c) 1989-92 James E. Wilson, Robert A. Koeneke X X This software may be copied and distributed for educational, research, and X not for profit purposes provided that this copyright and statement are X included in all such copies. */ X X/*Note to the Wizard: - RAK - */ X/* Tweaking these constants can *GREATLY* change the game. */ X/* Two years of constant tuning have generated these */ X/* values. Minor adjustments are encouraged, but you must */ X/* be very careful not to unbalance the game. Moria was */ X/* meant to be challenging, not a give away. Many */ X/* adjustments can cause the game to act strangely, or even*/ X/* cause errors. */ X X/*Addendum: - JEW - X I have greatly expanded the number of defined constants. However, if X you change anything below, without understanding EXACTLY how the game X uses the number, the program may stop working correctly. Modify the X constants at your own risk. */ X X#define CONSTANT_H_INCLUDED X#ifndef CONFIG_H_INCLUDED XConstant.h should always be included after config.h, because it uses Xsome of the system defines set up there. X#endif X X/* Current version number of Moria */ X#define CUR_VERSION_MAJ 5 /* version 5.5 */ X#define CUR_VERSION_MIN 5 X#define PATCH_LEVEL 0 X X#ifndef TRUE X#define TRUE 1 X#endif X#ifndef FALSE X#define FALSE 0 X#endif X X#define MAX_UCHAR 255 X#define MAX_SHORT 32767 /* maximum short/long signed ints */ X#define MAX_LONG 0x7FFFFFFFL X X/* Changing values below this line may be hazardous to your health! */ X X/* message line location */ X#define MSG_LINE 0 X X/* number of messages to save in a buffer */ X#define MAX_SAVE_MSG 22 /* How many messages to save -CJS- */ X X/* Dungeon size parameters */ X#define MAX_HEIGHT 66 /* Multiple of 11; >= 22 */ X#define MAX_WIDTH 198 /* Multiple of 33; >= 66 */ X#define SCREEN_HEIGHT 22 X#define SCREEN_WIDTH 66 X#define QUART_HEIGHT (SCREEN_HEIGHT / 4) X#define QUART_WIDTH (SCREEN_WIDTH / 4) X X/* Dungeon generation values */ X/* Note: The entire design of dungeon can be changed by only */ X/* slight adjustments here. */ X#define DUN_TUN_RND 9 /* 1/Chance of Random direction */ X#define DUN_TUN_CHG 70 /* Chance of changing direction (99 max) */ X#define DUN_TUN_CON 15 /* Chance of extra tunneling */ X#define DUN_ROO_MEA 32 /* Mean of # of rooms, standard dev2 */ X#define DUN_TUN_PEN 25 /* % chance of room doors */ X#define DUN_TUN_JCT 15 /* % chance of doors at tunnel junctions */ X#define DUN_STR_DEN 5 /* Density of streamers */ X#define DUN_STR_RNG 2 /* Width of streamers */ X#define DUN_STR_MAG 3 /* Number of magma streamers */ X#define DUN_STR_MC 90 /* 1/x chance of treasure per magma */ X#define DUN_STR_QUA 2 /* Number of quartz streamers */ X#define DUN_STR_QC 40 /* 1/x chance of treasure per quartz */ X#define DUN_UNUSUAL 300 /* Level/x chance of unusual room */ X X/* Store constants */ X#define MAX_OWNERS 18 /* Number of owners to choose from */ X#define MAX_STORES 6 /* Number of different stores */ X#define STORE_INVEN_MAX 24 /* Max number of discrete objs in inven */ X#define STORE_CHOICES 26 /* NUMBER of items to choose stock from */ X#define STORE_MAX_INVEN 18 /* Max diff objs in stock for auto buy */ X#define STORE_MIN_INVEN 10 /* Min diff objs in stock for auto sell */ X#define STORE_TURN_AROUND 9 /* Amount of buying and selling normally */ X#define COST_ADJ 100 /* Adjust prices for buying and selling */ X X/* Treasure constants */ X#define INVEN_ARRAY_SIZE 34 /* Size of inventory array(Do not change)*/ X#define MAX_OBJ_LEVEL 50 /* Maximum level of magic in dungeon */ X#define OBJ_GREAT 12 /* 1/n Chance of item being a Great Item */ X/* Note that the following constants are all related, if you change one, X you must also change all succeeding ones. Also, player_init[] and X store_choice[] may also have to be changed. */ X#define MAX_OBJECTS 420 /* Number of objects for universe */ X#define MAX_DUNGEON_OBJ 344 /* Number of dungeon objects */ X#define OBJ_OPEN_DOOR 367 X#define OBJ_CLOSED_DOOR 368 X#define OBJ_SECRET_DOOR 369 X#define OBJ_UP_STAIR 370 X#define OBJ_DOWN_STAIR 371 X#define OBJ_STORE_DOOR 372 X#define OBJ_TRAP_LIST 378 X#define OBJ_RUBBLE 396 X#define OBJ_MUSH 397 X#define OBJ_SCARE_MON 398 X#define OBJ_GOLD_LIST 399 X#define OBJ_NOTHING 417 X#define OBJ_RUINED_CHEST 418 X#define OBJ_WIZARD 419 X#define OBJECT_IDENT_SIZE 448 /* 7*64, see object_offset() in desc.c, X could be MAX_OBJECTS o_o() rewritten */ X#define MAX_GOLD 18 /* Number of different types of gold */ X/* with MAX_TALLOC 150, it is possible to get compacting objects during X level generation, although it is extremely rare */ X#define MAX_TALLOC 175 /* Max objects per level */ X#define MIN_TRIX 1 /* Minimum t_list index used */ X#define TREAS_ROOM_ALLOC 7 /* Amount of objects for rooms */ X#define TREAS_ANY_ALLOC 2 /* Amount of objects for corridors */ X#define TREAS_GOLD_ALLOC 2 /* Amount of gold (and gems) */ X X/* Magic Treasure Generation constants */ X/* Note: Number of special objects, and degree of enchantments */ X/* can be adjusted here. */ X#define OBJ_STD_ADJ 125 /* Adjust STD per level * 100 */ X#define OBJ_STD_MIN 7 /* Minimum STD */ X#define OBJ_TOWN_LEVEL 7 /* Town object generation level */ X#define OBJ_BASE_MAGIC 15 /* Base amount of magic */ X#define OBJ_BASE_MAX 70 /* Max amount of magic */ X#define OBJ_DIV_SPECIAL 6 /* magic_chance/# special magic */ X#define OBJ_DIV_CURSED 13 /* 10*magic_chance/# cursed items */ X X/* Constants describing limits of certain objects */ X#define OBJ_LAMP_MAX 15000 /* Maximum amount that lamp can be filled*/ X#define OBJ_BOLT_RANGE 18 /* Maximum range of bolts and balls */ X#define OBJ_RUNE_PROT 3000 /* Rune of protection resistance */ X X/* Creature constants */ X#define MAX_CREATURES 279 /* Number of creatures defined for univ */ X#define N_MONS_ATTS 215 /* Number of monster attack types. */ X/* with MAX_MALLOC 101, it is possible to get compacting monsters messages X while breeding/cloning monsters */ X#define MAX_MALLOC 125 /* Max that can be allocated */ X#define MAX_MALLOC_CHANCE 160 /* 1/x chance of new monster each round */ X#define MAX_MONS_LEVEL 40 /* Maximum level of creatures */ X#define MAX_SIGHT 20 /* Maximum dis a creature can be seen */ X#define MAX_SPELL_DIS 20 /* Maximum dis creat. spell can be cast */ X#define MAX_MON_MULT 75 /* Maximum reproductions on a level */ X#define MON_MULT_ADJ 7 /* High value slows multiplication */ X#define MON_NASTY 50 /* 1/x chance of high level creat */ X#define MIN_MALLOC_LEVEL 14 /* Minimum number of monsters/level */ X#define MIN_MALLOC_TD 4 /* Number of people on town level (day) */ X#define MIN_MALLOC_TN 8 /* Number of people on town level (night)*/ X#define WIN_MON_TOT 2 /* Total number of "win" creatures */ X#define WIN_MON_APPEAR 50 /* Level where winning creatures begin */ X#define MON_SUMMON_ADJ 2 /* Adjust level of summoned creatures */ X#define MON_DRAIN_LIFE 2 /* Percent of player exp drained per hit */ X#define MAX_MON_NATTACK 4 /* Max num attacks (used in mons memory) -CJS-*/ X#define MIN_MONIX 2 /* Minimum index in m_list (1 = py, 0 = no mon)*/ X X/* Trap constants */ X#define MAX_TRAP 18 /* Number of defined traps */ X X#define SCARE_MONSTER 99 X X/* Descriptive constants */ X#define MAX_COLORS 49 /* Used with potions */ X#define MAX_MUSH 22 /* Used with mushrooms */ X#define MAX_WOODS 25 /* Used with staffs */ X#define MAX_METALS 25 /* Used with wands */ X#define MAX_ROCKS 32 /* Used with rings */ X#define MAX_AMULETS 11 /* Used with amulets */ X#define MAX_TITLES 45 /* Used with scrolls */ X#define MAX_SYLLABLES 153 /* Used with scrolls */ X X/* Player constants */ X#define MAX_PLAYER_LEVEL 40 /* Maximum possible character level */ X#define MAX_EXP 9999999L /* Maximum amount of experience -CJS- */ X#define MAX_RACES 8 /* Number of defined races */ X#define MAX_CLASS 6 /* Number of defined classes */ X#define USE_DEVICE 3 /* x> Harder devices x< Easier devices */ X#define MAX_BACKGROUND 128 /* Number of types of histories for univ */ X#define PLAYER_FOOD_FULL 10000/* Getting full */ X#define PLAYER_FOOD_MAX 15000/* Maximum food value, beyond is wasted */ X#define PLAYER_FOOD_FAINT 300/* Character begins fainting */ X#define PLAYER_FOOD_WEAK 1000/* Warn player that he is getting very low*/ X#define PLAYER_FOOD_ALERT 2000/* Warn player that he is getting low */ X#define PLAYER_REGEN_FAINT 33 /* Regen factor*2^16 when fainting */ X#define PLAYER_REGEN_WEAK 98 /* Regen factor*2^16 when weak */ X#define PLAYER_REGEN_NORMAL 197 /* Regen factor*2^16 when full */ X#define PLAYER_REGEN_HPBASE 1442 /* Min amount hp regen*2^16 */ X#define PLAYER_REGEN_MNBASE 524 /* Min amount mana regen*2^16 */ X#define PLAYER_WEIGHT_CAP 130 /* "#"*(1/10 pounds) per strength point */ X#define PLAYER_EXIT_PAUSE 2 /* Pause time before player can re-roll */ X X/* class level adjustment constants */ X#define CLA_BTH 0 X#define CLA_BTHB 1 X#define CLA_DEVICE 2 X#define CLA_DISARM 3 X#define CLA_SAVE 4 X/* this depends on the fact that CLA_SAVE values are all the same, if not, X then should add a separate column for this */ X#define CLA_MISC_HIT 4 X#define MAX_LEV_ADJ 5 X X/* Base to hit constants */ X#define BTH_PLUS_ADJ 3 /* Adjust BTH per plus-to-hit */ X X/* magic numbers for players inventory array */ X#define INVEN_WIELD 22 /* must be first item in equipment list */ X#define INVEN_HEAD 23 X#define INVEN_NECK 24 X#define INVEN_BODY 25 X#define INVEN_ARM 26 X#define INVEN_HANDS 27 X#define INVEN_RIGHT 28 X#define INVEN_LEFT 29 X#define INVEN_FEET 30 X#define INVEN_OUTER 31 X#define INVEN_LIGHT 32 X#define INVEN_AUX 33 X X/* Attribute indexes -CJS- */ X X#define A_STR 0 X#define A_INT 1 X#define A_WIS 2 X#define A_DEX 3 X#define A_CON 4 X#define A_CHR 5 X X/* some systems have a non-ANSI definition of this, so undef it first */ X#undef CTRL X#define CTRL(x) (x & 0x1F) X#define DELETE 0x7f X#ifdef VMS X#define ESCAPE '\032' /* Use CTRL-Z instead of ESCAPE. */ X#else X#define ESCAPE '\033' /* ESCAPE character -CJS- */ X#endif X X/* This used to be NULL, but that was technically incorrect. CNIL is used X instead of null to help avoid lint errors. */ X#ifndef CNIL X#define CNIL (char *)0 X#endif X X/* Fval definitions: these describe the various types of dungeon floors and X walls, if numbers above 15 are ever used, then the test against X MIN_CAVE_WALL will have to be changed, also the save routines will have X to be changed. */ X#define NULL_WALL 0 X#define DARK_FLOOR 1 X#define LIGHT_FLOOR 2 X#define MAX_CAVE_ROOM 2 X#define CORR_FLOOR 3 X#define BLOCKED_FLOOR 4 /* a corridor space with cl/st/se door or rubble */ X#define MAX_CAVE_FLOOR 4 X X#define MAX_OPEN_SPACE 3 X#define MIN_CLOSED_SPACE 4 X X#define TMP1_WALL 8 X#define TMP2_WALL 9 X X#define MIN_CAVE_WALL 12 X#define GRANITE_WALL 12 X#define MAGMA_WALL 13 X#define QUARTZ_WALL 14 X#define BOUNDARY_WALL 15 X X/* Column for stats */ X#define STAT_COLUMN 0 X X/* Class spell types */ X#define NONE 0 X#define MAGE 1 X#define PRIEST 2 X X/* offsets to spell names in spell_names[] array */ X#define SPELL_OFFSET 0 X#define PRAYER_OFFSET 31 X X/* definitions for the psuedo-normal distribution generation */ X#define NORMAL_TABLE_SIZE 256 X#define NORMAL_TABLE_SD 64 /* the standard deviation for the table */ X X/* definitions for the player's status field */ X#define PY_HUNGRY 0x00000001L X#define PY_WEAK 0x00000002L X#define PY_BLIND 0x00000004L X#define PY_CONFUSED 0x00000008L X#define PY_FEAR 0x00000010L X#define PY_POISONED 0x00000020L X#define PY_FAST 0x00000040L X#define PY_SLOW 0x00000080L X#define PY_SEARCH 0x00000100L X#define PY_REST 0x00000200L X#define PY_STUDY 0x00000400L X X#define PY_INVULN 0x00001000L X#define PY_HERO 0x00002000L X#define PY_SHERO 0x00004000L X#define PY_BLESSED 0x00008000L X#define PY_DET_INV 0x00010000L X#define PY_TIM_INFRA 0x00020000L X#define PY_SPEED 0x00040000L X#define PY_STR_WGT 0x00080000L X#define PY_PARALYSED 0x00100000L X#define PY_REPEAT 0x00200000L X#define PY_ARMOR 0x00400000L X X#define PY_STATS 0x3F000000L X#define PY_STR 0x01000000L /* these 6 stat flags must be adjacent */ X#define PY_INT 0x02000000L X#define PY_WIS 0x04000000L X#define PY_DEX 0x08000000L X#define PY_CON 0x10000000L X#define PY_CHR 0x20000000L X X#define PY_HP 0x40000000L X#define PY_MANA 0x80000000L X X/* definitions for objects that can be worn */ X#define TR_STATS 0x0000003FL /* the stats must be the low 6 bits */ X#define TR_STR 0x00000001L X#define TR_INT 0x00000002L X#define TR_WIS 0x00000004L X#define TR_DEX 0x00000008L X#define TR_CON 0x00000010L X#define TR_CHR 0x00000020L X#define TR_SEARCH 0x00000040L X#define TR_SLOW_DIGEST 0x00000080L X#define TR_STEALTH 0x00000100L X#define TR_AGGRAVATE 0x00000200L X#define TR_TELEPORT 0x00000400L X#define TR_REGEN 0x00000800L X#define TR_SPEED 0x00001000L X X#define TR_EGO_WEAPON 0x0007E000L X#define TR_SLAY_DRAGON 0x00002000L X#define TR_SLAY_ANIMAL 0x00004000L X#define TR_SLAY_EVIL 0x00008000L X#define TR_SLAY_UNDEAD 0x00010000L X#define TR_FROST_BRAND 0x00020000L X#define TR_FLAME_TONGUE 0x00040000L X X#define TR_RES_FIRE 0x00080000L X#define TR_RES_ACID 0x00100000L X#define TR_RES_COLD 0x00200000L X#define TR_SUST_STAT 0x00400000L X#define TR_FREE_ACT 0x00800000L X#define TR_SEE_INVIS 0x01000000L X#define TR_RES_LIGHT 0x02000000L X#define TR_FFALL 0x04000000L X#define TR_BLIND 0x08000000L X#define TR_TIMID 0x10000000L X#define TR_TUNNEL 0x20000000L X#define TR_INFRA 0x40000000L X#define TR_CURSED 0x80000000L X X/* definitions for chests */ X#define CH_LOCKED 0x00000001L X#define CH_TRAPPED 0x000001F0L X#define CH_LOSE_STR 0x00000010L X#define CH_POISON 0x00000020L X#define CH_PARALYSED 0x00000040L X#define CH_EXPLODE 0x00000080L X#define CH_SUMMON 0x00000100L X X/* definitions for creatures, cmove field */ X#define CM_ALL_MV_FLAGS 0x0000003FL X#define CM_ATTACK_ONLY 0x00000001L X#define CM_MOVE_NORMAL 0x00000002L X/* For Quylthulgs, which have no physical movement. */ X#define CM_ONLY_MAGIC 0x00000004L X X#define CM_RANDOM_MOVE 0x00000038L X#define CM_20_RANDOM 0x00000008L X#define CM_40_RANDOM 0x00000010L X#define CM_75_RANDOM 0x00000020L X X#define CM_SPECIAL 0x003F0000L X#define CM_INVISIBLE 0x00010000L X#define CM_OPEN_DOOR 0x00020000L X#define CM_PHASE 0x00040000L X#define CM_EATS_OTHER 0x00080000L X#define CM_PICKS_UP 0x00100000L X#define CM_MULTIPLY 0x00200000L X X#define CM_CARRY_OBJ 0x01000000L X#define CM_CARRY_GOLD 0x02000000L X#define CM_TREASURE 0x7C000000L X#define CM_TR_SHIFT 26 /* used for recall of treasure */ X#define CM_60_RANDOM 0x04000000L X#define CM_90_RANDOM 0x08000000L X#define CM_1D2_OBJ 0x10000000L X#define CM_2D2_OBJ 0x20000000L X#define CM_4D2_OBJ 0x40000000L X#define CM_WIN 0x80000000L X X/* creature spell definitions */ X#define CS_FREQ 0x0000000FL X#define CS_SPELLS 0x0001FFF0L X#define CS_TEL_SHORT 0x00000010L X#define CS_TEL_LONG 0x00000020L X#define CS_TEL_TO 0x00000040L X#define CS_LGHT_WND 0x00000080L X#define CS_SER_WND 0x00000100L X#define CS_HOLD_PER 0x00000200L X#define CS_BLIND 0x00000400L X#define CS_CONFUSE 0x00000800L X#define CS_FEAR 0x00001000L X#define CS_SUMMON_MON 0x00002000L X#define CS_SUMMON_UND 0x00004000L X#define CS_SLOW_PER 0x00008000L X#define CS_DRAIN_MANA 0x00010000L X X#define CS_BREATHE 0x00F80000L X#define CS_BR_LIGHT 0x00080000L X#define CS_BR_GAS 0x00100000L X#define CS_BR_ACID 0x00200000L X#define CS_BR_FROST 0x00400000L X#define CS_BR_FIRE 0x00800000L X X/* creature defense flags */ X#define CD_DRAGON 0x0001 X#define CD_ANIMAL 0x0002 X#define CD_EVIL 0x0004 X#define CD_UNDEAD 0x0008 X#define CD_WEAKNESS 0x03F0 X#define CD_FROST 0x0010 X#define CD_FIRE 0x0020 X#define CD_POISON 0x0040 X#define CD_ACID 0x0080 X#define CD_LIGHT 0x0100 X#define CD_STONE 0x0200 X X#define CD_NO_SLEEP 0x1000 X#define CD_INFRA 0x2000 X#define CD_MAX_HP 0x4000 X X/* inventory stacking subvals */ X/* these never stack */ X#define ITEM_NEVER_STACK_MIN 0 X#define ITEM_NEVER_STACK_MAX 63 X/* these items always stack with others of same subval, always treated as X single objects, must be power of 2 */ X#define ITEM_SINGLE_STACK_MIN 64 X#define ITEM_SINGLE_STACK_MAX 192 /* see NOTE below */ X/* these items stack with others only if have same subval and same p1, X they are treated as a group for wielding, etc. */ X#define ITEM_GROUP_MIN 192 X#define ITEM_GROUP_MAX 255 X/* NOTE: items with subval 192 are treated as single objects, but only stack X with others of same subval if have the same p1 value, only used for X torches */ X X/* id's used for object description, stored in object_ident */ X#define OD_TRIED 0x1 X#define OD_KNOWN1 0x2 X X/* id's used for item description, stored in i_ptr->ident */ X#define ID_MAGIK 0x1 X#define ID_DAMD 0x2 X#define ID_EMPTY 0x4 X#define ID_KNOWN2 0x8 X#define ID_STOREBOUGHT 0x10 X#define ID_SHOW_HITDAM 0x20 X#define ID_NOSHOW_P1 0x40 X#define ID_SHOW_P1 0x80 X X/* indexes into the special name table */ X#define SN_NULL 0 X#define SN_R 1 X#define SN_RA 2 X#define SN_RF 3 X#define SN_RC 4 X#define SN_RL 5 X#define SN_HA 6 X#define SN_DF 7 X#define SN_SA 8 X#define SN_SD 9 X#define SN_SE 10 X#define SN_SU 11 X#define SN_FT 12 X#define SN_FB 13 X#define SN_FREE_ACTION 14 X#define SN_SLAYING 15 X#define SN_CLUMSINESS 16 X#define SN_WEAKNESS 17 X#define SN_SLOW_DESCENT 18 X#define SN_SPEED 19 X#define SN_STEALTH 20 X#define SN_SLOWNESS 21 X#define SN_NOISE 22 X#define SN_GREAT_MASS 23 X#define SN_INTELLIGENCE 24 X#define SN_WISDOM 25 X#define SN_INFRAVISION 26 X#define SN_MIGHT 27 X#define SN_LORDLINESS 28 X#define SN_MAGI 29 X#define SN_BEAUTY 30 X#define SN_SEEING 31 X#define SN_REGENERATION 32 X#define SN_STUPIDITY 33 X#define SN_DULLNESS 34 X#define SN_BLINDNESS 35 X#define SN_TIMIDNESS 36 X#define SN_TELEPORTATION 37 X#define SN_UGLINESS 38 X#define SN_PROTECTION 39 X#define SN_IRRITATION 40 X#define SN_VULNERABILITY 41 X#define SN_ENVELOPING 42 X#define SN_FIRE 43 X#define SN_SLAY_EVIL 44 X#define SN_DRAGON_SLAYING 45 X#define SN_EMPTY 46 X#define SN_LOCKED 47 X#define SN_POISON_NEEDLE 48 X#define SN_GAS_TRAP 49 X#define SN_EXPLOSION_DEVICE 50 X#define SN_SUMMONING_RUNES 51 X#define SN_MULTIPLE_TRAPS 52 X#define SN_DISARMED 53 X#define SN_UNLOCKED 54 X#define SN_SLAY_ANIMAL 55 X#define SN_ARRAY_SIZE 56 /* must be at end of this list */ X X/* defines for treasure type values (tval) */ X#define TV_NEVER -1 /* used by find_range() for non-search */ X#define TV_NOTHING 0 X#define TV_MISC 1 X#define TV_CHEST 2 X/* min tval for wearable items, all items between TV_MIN_WEAR and TV_MAX_WEAR X use the same flag bits, see the TR_* defines */ X#define TV_MIN_WEAR 10 X/* items tested for enchantments, i.e. the MAGIK inscription, see the X enchanted() procedure */ X#define TV_MIN_ENCHANT 10 X#define TV_SLING_AMMO 10 X#define TV_BOLT 11 X#define TV_ARROW 12 X#define TV_SPIKE 13 X#define TV_LIGHT 15 X#define TV_BOW 20 X#define TV_HAFTED 21 X#define TV_POLEARM 22 X#define TV_SWORD 23 X#define TV_DIGGING 25 X#define TV_BOOTS 30 X#define TV_GLOVES 31 X#define TV_CLOAK 32 X#define TV_HELM 33 X#define TV_SHIELD 34 X#define TV_HARD_ARMOR 35 X#define TV_SOFT_ARMOR 36 X/* max tval that uses the TR_* flags */ X#define TV_MAX_ENCHANT 39 X#define TV_AMULET 40 X#define TV_RING 45 X/* max tval for wearable items */ X#define TV_MAX_WEAR 50 X#define TV_STAFF 55 X#define TV_WAND 65 X#define TV_SCROLL1 70 X#define TV_SCROLL2 71 X#define TV_POTION1 75 X#define TV_POTION2 76 X#define TV_FLASK 77 X#define TV_FOOD 80 X#define TV_MAGIC_BOOK 90 X#define TV_PRAYER_BOOK 91 X/* objects with tval above this are never picked up by monsters */ X#define TV_MAX_OBJECT 99 X#define TV_GOLD 100 X/* objects with higher tvals can not be picked up */ X#define TV_MAX_PICK_UP 100 X#define TV_INVIS_TRAP 101 X/* objects between TV_MIN_VISIBLE and TV_MAX_VISIBLE are always visible, X i.e. the cave fm flag is set when they are present */ X#define TV_MIN_VISIBLE 102 X#define TV_VIS_TRAP 102 X#define TV_RUBBLE 103 X/* following objects are never deleted when trying to create another one X during level generation */ X#define TV_MIN_DOORS 104 X#define TV_OPEN_DOOR 104 X#define TV_CLOSED_DOOR 105 X#define TV_UP_STAIR 107 X#define TV_DOWN_STAIR 108 X#define TV_SECRET_DOOR 109 X#define TV_STORE_DOOR 110 X#define TV_MAX_VISIBLE 110 X X/* spell types used by get_flags(), breathe(), fire_bolt() and fire_ball() */ X#define GF_MAGIC_MISSILE 0 X#define GF_LIGHTNING 1 X#define GF_POISON_GAS 2 X#define GF_ACID 3 X#define GF_FROST 4 X#define GF_FIRE 5 X#define GF_HOLY_ORB 6 X X/* Number of entries allowed in the scorefile. */ X#define SCOREFILE_SIZE 1000 END_OF_FILE if test 20967 -ne `wc -c <'source/constant.h'`; then echo shar: \"'source/constant.h'\" unpacked with wrong size! fi # end of 'source/constant.h' fi echo shar: End of archive 16 $of 39$. cp /dev/null ark16isdone MISSING="" for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 ; do if test ! -f ark${I}isdone ; then MISSING="${MISSING} ${I}" fi done if test "${MISSING}" = "" ; then echo You have unpacked all 39 archives. echo "Now run "bldfiles.sh" to build split files" rm -f ark[1-9]isdone ark[1-9][0-9]isdone else echo You still need to unpack the following archives: echo " " ${MISSING} fi ## End of shell archive. exit 0