games@tekred.TEK.COM (07/22/88)
Submitted by: "Laurence R. Brothers" <brothers@paul.rutgers.edu>
Comp.sources.games: Volume 5, Issue 11
Archive-name: omega2/Part01
[Here's the latest version of omega. -br]
#! /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 1 (of 19)."
# Contents: README MANIFEST README2 README3 README4 oinv.c
# Wrapped by billr@saab on Wed Jul 13 10:46:38 1988
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'README' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'README'\"
else
echo shar: Extracting \"'README'\" \(505 characters\)
sed "s/^X//" >'README' <<'END_OF_FILE'
XNote that omega is copyrighted. See the public license in olicense.txt in
Xthis directory for what you can do with the code.
X
XFor directions on how to compile, see README2
X
XFor information on how omega was written see README3
X
XSome tips on maintaining the game are in README4
X
XFor directions how to play, see ohelp*.txt files (cat them all
Xtogether for a full document; this can be done from within
Xthe program).
X
XA manifest of omega files is in the file MANIFEST
X
XHave Fun, and Be Careful....
X
X-Laurence
END_OF_FILE
if test 505 -ne `wc -c <'README'`; then
echo shar: \"'README'\" unpacked with wrong size!
fi
# end of 'README'
fi
if test -f 'MANIFEST' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'MANIFEST'\"
else
echo shar: Extracting \"'MANIFEST'\" \(5592 characters\)
sed "s/^X//" >'MANIFEST' <<'END_OF_FILE'
X File Name Archive # Description
X-----------------------------------------------------------
X MANIFEST 1 take a wild guess
X Makefile 19 makefile for suns (can be used as is)
X README 1 general README file
X README2 1 guide to compilation and game set-up
X README3 1 notes on programming
X README4 1 wizard mode and game maintenance notes
X makefile.notsun 18 makefile for others (must be customized)
X o.c 12 c source file
X oabyss.c 13 c source file
X oabyss.dat 8 special level data file
X oabyss.txt 18 game text file
X oarena.dat 19 special level data file
X oaux1.c 12 c source file
X oaux2.c 5 c source file
X ochar.c 15 c source file
X ocircle.dat 19 special level data file
X ocity.c 13 c source file
X ocity.dat 18 special level data file
X ocmds.txt 18 non-countryside command list
X ocom1.c 15 c source file
X ocom2.c 10 c source file
X ocom3.c 8 c source file
X ocountry.c 16 c source file
X ocountry.dat 18 special level data file
X ocourt.dat 18 special level data file
X odate.h 7 define the last edit date.
X odefs.h 11 cpp header file, plus typedefs, etc.
X odlair.dat 19 special level data file
X oeffect1.c 10 c source file
X oeffect2.c 12 c source file
X oeffect3.c 4 c source file
X oenv.c 17 c source file
X oetc.c 15 c source file
X oextern.h 14 extern function declarations
X ofile.c 5 c source file
X ogen1.c 11 c source file
X ogen2.c 16 c source file
X oglob.h 17 extern global and include file
X oguild1.c 14 c source file
X oguild2.c 7 c source file
X ohelp1.txt 18 a help file (overview)
X ohelp10.txt 19 a help file (saving and restoring)
X ohelp11.txt 15 a help file (options)
X ohelp12.txt 18 a help file (dungeon/city/other command list)
X ohelp13.txt 18 a help file (countryside command list)
X ohelp2.txt 18 a help file (characters)
X ohelp3.txt 17 a help file (inventories)
X ohelp4.txt 19 a help file (movement)
X ohelp5.txt 17 a help file (combat)
X ohelp6.txt 3 a help file (bugs)
X ohelp7.txt 19 a help file (magic)
X ohelp8.txt 4 a help file (the countryside environment)
X ohelp9.txt 18 a help file (screen display)
X ohome1.dat 19 special level data file
X ohome2.dat 16 special level data file
X ohome3.dat 19 special level data file
X ohouse.c 11 c source file
X oiinit.h 2 item initialization header file
X ointro.txt 18 game text file
X oinv.c 1 c source file
X oitem.c 8 c source file
X oitemf1.c 9 c source file
X oitemf2.c 17 c source file
X oitemf3.c 14 c source file
X olev.c 13 c source file
X olicense.txt 18 public license information
X omaze1.dat 10 game data file
X omaze2.dat 17 game data file
X omaze3.dat 9 game data file
X omaze4.dat 19 game data file
X omega.ad 18 cute advert for omega
X omega.hi 19 high score file
X omega.log 18 log file
X omegahi.bak 6 safety copy of high score file
X ominit.h 3 monster initialization header file
X omisle.dat 19 special level data file
X ommelee.c 17 c source file
X ommove.c 14 c source file
X omon.c 6 c source file
X omotd.txt 19 message of the day (opening screen)
X omove.c 3 c source file
X omovef.c 9 c source file
X omspec.c 6 c source file
X omstrike.c 18 c source file
X omtalk.c 4 c source file
X opriest.c 15 c source file
X osave.c 16 c source file
X oscr.c 2 c source file
X oscroll1.txt 18 game text file
X oscroll2.txt 18 game text file
X oscroll3.txt 18 game text file
X oscroll4.txt 11 game text file
X osite1.c 7 c source file
X osite2.c 9 c source file
X ospeak.dat 19 special level data file
X ospell.c 13 c source file
X otemple.dat 19 special level data file
X othanks.txt 19 acknowledgements
X otime.c 6 c source file
X otrap.c 17 c source file
X oupdate.txt 18 sketchy development history
X outil.c 16 c source file
X ovillage.c 10 c source file
X ovillage1.dat 19 special level data file
X ovillage2.dat 19 special level data file
X ovillage3.dat 19 special level data file
X ovillage4.dat 19 special level data file
X ovillage5.dat 19 special level data file
X ovillage6.dat 19 special level data file
END_OF_FILE
if test 5592 -ne `wc -c <'MANIFEST'`; then
echo shar: \"'MANIFEST'\" unpacked with wrong size!
fi
# end of 'MANIFEST'
fi
if test -f 'README2' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'README2'\"
else
echo shar: Extracting \"'README2'\" \(2469 characters\)
sed "s/^X//" >'README2' <<'END_OF_FILE'
Xomega compilation notes.
X
XPRERELEASE VERSION 0.7x:
X
XFirst I should note that omega is copyrighted; you are using this
Xprogram under the terms of the license, hopefully included in the file
Xomega.license.
X
Xomega is set up for compilation under Sun's unix; some changes may be
Xnecessary for correct functioning under other unixes. I have included
Xsome ifdef lines in odefs.h that ought to have some positive influence.
XHowever, not having anything besides a sun to test omega on, I will
Xhave to rely on your feedback as to the effect.
X
XTo implement omega on your system:
X
X-1) Make sure you have the files listed in the file called MANIFEST.
XIf you don't have these files, you lose! Get them from somewhere. In
Xparticular, it is a violation of the license not to have a copy of
Xolicense.txt.
X
X0) Feel free to change omotd.txt to say whatever you like, keeping
Xin mind the constraints of the Sedition Act.
X
X1) Set up a directory for omega's data files. Protection must allow
Xthe general public to write to specified files. My personal prejudice
Xis against setuid, but use it if you like. There is
Xno need to have a special directory, but it is neater that way.
X
X2) Change the first few #define's in odefs.h to conform to the
Xdata file directory, your user name, etc., as the comments in the file
Xdiscuss.
X
X3) If you are compiling on a sun, just use the given Makefile. If not,
Xtake a look at makefile.notsun for a clue what to do. Basically, you
Xjust have to compile everything together, remembering to -lcurses and
X-ltermlib (termcap on some systems) where appropriate. With Makefile,
X*.h, and *.c in one directory, make should produce an executable file
Xomega. If you get errors, you'll have to work them out for
Xyourself.... My Makefile uses -g; unless you are going to hack omega,
Xremove the -g. If you like your optimizer, feel free to try -O. I
Xrecommend using either cc and -g or gcc and -O; gcc really does seem
Xto optimize pretty well on omega, but at least our version causes dbx to
Xcrash with -g....
X
X4) All the files which are not source code should have at
Xthe least public read access. The following files should have write
Xaccess as well:
X
Xomega.hi
Xomega.log
X
XThese files should be placed in the OMEGALIB directory defined in
Xodefs.h
X
X5) At this point, omega should be ready to run. Some notes on maintaining
Xthe game can be found in README4.
X
X6) Send any questions to brothers@paul.rutgers.edu.
X
X7) Good luck -- and let's be careful out there, shall we?
END_OF_FILE
if test 2469 -ne `wc -c <'README2'`; then
echo shar: \"'README2'\" unpacked with wrong size!
fi
# end of 'README2'
fi
if test -f 'README3' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'README3'\"
else
echo shar: Extracting \"'README3'\" \(9356 characters\)
sed "s/^X//" >'README3' <<'END_OF_FILE'
Xomega implementor's notes.
X
XPRERELEASE VERSION: 0.71 (beta).
X
XThis version is now, in overall structure, more or less the way
Xthe final release version will look. It is still basically
Xa test version, but most of the bugs from 0.6x are gone,
Xmainly because the internal architecture was changed, and the
Xbuggy functions had to all be rewritten anyway.... Naturally,
Xnew bugs have taken the place of the old ones. Hopefully
Xomega is more or less playable now.
X
XNotes on Game Structure:
X
XI'm now keeping track of the last edit in odate.h -- if you hack
Xomega, you might conceivably want to do the same. The #definition
Xof LAST_OMEGA_EDIT_DATE is printed by the 'V' command....
X
XRight now the structure of guilds, dungeons, quests, etc. is not
Xreally the way I want it. The player winds up doing basically all the
Xsame things each game, no matter which guild he may be in, because
Xthere is not enough detail to the world of omega. It is a LOT of
Xpainstaking work to sort out threads of narrative structure (such as
Xfor example the beginning attempts I've made with the LawBringer and
Xthe way he interacts with the Circle of Sorcerors and the Order of
XPaladins).
X
XTheoretically, one need not do any questing at all to become a Total
XWinner (ie, become an adept); this is also not desirable.
X
XThere are any number of ways to mechanically "crack" the game, i.e.,
Xto do something to take advantage of omega for the player's benefit in
Xsome deviant way. At least you can't drop a 32 bit number of negative
Xgold pieces like in hack.... Anyhow, making sure these loopholes are
Xfilled is a low priority except when they are really blatant; I'd much
Xrather enhance game play for people who don't cheat....
X
XAt the moment I have several goals for the next major version of
Xomega (0.80):
X
X * Enhanced game structure -- more dungeons, more detail
X within guilds, pristhoods, etc. that will make the game
X very different for different characters.
X
X * More player interaction. I still don't intend to have
X omega be an online multiplayer game, but it would be nice
X to have more effect on the game from the actions of
X previous characters.
X
X * X and/or NeWS and/or Sunview II front-end(s). It would be nice
X to have a separate inventory window, be able to click destinations,
X have monster and terrain fonts, etc. If I get really
X overexcited, how about a perspective view of the dungeon....
X
XAs always, I welcome suggestions. It is very easy to add more monsters,
Xmagic items, magic spells, etc....
X
XNotes on the Code:
X
XAs far as I can tell, all this should work on any Unix* system, but
XI've never tried it on anything but a Sun-3, not having enough disk
Xspace to my name anywhere else to try.... It uses curses for I/O, and
Xtries to use as few OS-dependent functions as it can elsewhere. It
Xshould be pretty easy to port to any Unix* variant that has curses.
Xomega has now been implemented not only on Suns, Vaxen, and Pyramids,
Xbut even on machines such as Amdahls running unix over the normal
Xoperating system. It has also been ported to MS-DOS machines
X(send mail to Nathan@xx.lcs.mit.edu for info).
X
XIdentifier Convention:
XUPPERCASE CONSTANTS are all #defined in odefs.h
XCapitalized Globals are all defined in o.c and externally declared in oglob.h
Xother identifiers are lowercase
X
XI have attempted to keep extremely system-dependent stuff segregated
Xfrom the rest of the code.
X
XFor example, all screen manipulation functions are in oscr.c, for
Xthose of you who want to port omega to something that doesn't have
Xcurses. (Well, there's a little in ofile.c)
X
XAlmost all file manipulation is done in ofile.c, and I have attempted
Xto keep this simple and consistent.
X
XA few other system calls are in o.c and outil.c, and that's about it.
X
XUnfortunately, commenting is pretty minimal, mostly stupid things like:
X
X /* this routine shows a monster */
X void showmonster(m)
X
X...and abstruse reminders to myself. As I clean the code up for the
Xfinal release version, this will improve. I usually try to avoid
Xcleverness in my c code, preferring two assignments and an if
Xstatement to a single complex line with three nested conditional
Xexpressions. Still, there are some places where the code is pretty
Xopaque... sorry about that. Also, I will probably switch over
Xto ANSI style c pretty soon.
X
XEach module has a short description of its contents at the top, and
Xmostly functions tend to stay where it is reasonable to find them.
XThere are a few grab-bag modules, though, such as oaux1, oaux2 and
Xoaux3 (utility functions for ocom and other modules), oetc (total
Xgrab-bag), and outil (mostly more general utility functions used by
Xeverything). To save on module size, I have broken a couple of
Xmodules (such as ocom and osite) into pieces. I never got around to
Xstating precisely which functions that used to be in ocom are now in
Xocom1, ocom2, or ocom3, but grep and ^s always work.... Anyhow,
Xone of these days I will clean up. Really.
X
Xoextern.h has all the function declarations. Unfortunately, some of
Xthese are incorrect as to which module the function is contained
Xin -- I split a number of modules and rearranged others, so
Xwhile all the declarations are in fact correct, the comments stating
Xwhere things are are sometimes off. I'll get around to fixing things
Xone of these days.
X
Xodefs.h has all the CPP stuff, structure definitions, and typedefs.
X
Xoglob.h has all the external global variable declarations, and
Xalso includes the preceding two header files.
X
XThose of you wishing to port omega to machines without virtual memory
Xwill probably want to keep only one dungeon level in memory at a time;
Xyou ought to be able to use the save_level and restore_level routines
Xin olev.c to get that working. A lot of memory (primary and
Xsecondary), is currently required to play a full game; you could
Xprobably run for a while with a good deal less, though. However,
Xyou'll need a good deal of disk space if you don't have a lot of
Xmemory; it's just not practicable to play with under several meg of
Xcombined memory and disk space. Actually, I should probably make
Xup standard #define to save all levels but the current one to disk
Xas an option (rendering the moria-like lossage of previously entered
Xdungeons nugatory), but see the previous note about laziness....
X
XKNOWN BUGS AND MISFEATURES:
X
X * When you exit to the countryside, there is often one extraneous
X character drawn somewhere on the screen. I have no idea why.
X
X * Sometimes monsters leave echos behind as they move. This
X occurs sufficiently rarely that I have not yet felt a need
X to rewrite my display code in oscr.c; for some reason it happens
X less when compiled with gcc than with cc.... Actually,
X this problem has hopefully just gone away, but one never knows....
X
X * It is apparently occasionally possible to juggle two-handed
X weapons so as to either duplicate or destroy an object. For
X some reason this seems to happen to other people than me,
X mostly. I am not sure if it is still possible to do this.
X
X * There are still some circumstances where the message
X display overwrites a line too fast to read it; there are other
X places where you have to hit the space bar an extra time.
X This is partly due to the fact that I have not fully converted
X to the three-line message display area, and partly due to
X laziness in tracking down the instances where this occurs.
X
X * It is occasionally possible to destroy a game on save/restore;
X you save, and on restore you get a core dump signal. Sometimes
X when you save again it goes away; sometimes it doesn't.
X
X * Sometimes there seems to be an (unintentional) party room
X effect in some rooms in dungeon levels, ie, a bunch of monsters
X are having a party. I am not certain why this happens, but
X I guess it's just another one of the risks the adventurer takes...
X
X * For some bizarre reason, it is sometimes possible to have
X strange behavior from boots. Some boots will grant permanent
X effects, even when taken off -- this is pretty intermittent.
X 7 league boots sometimes just stop working.
X
X * As far as I know (ha ha), there aren't any core dump bugs
X in actual play at the moment.
X
X
XUNKNOWN BUGS:
X
XThere are an awful lot of features and the number of game states you
Xcan get into is very large. In addition, many of the more
X"interesting" bugs will probably only occur after long periods of play
Xsince the "higher level" a feature, effect, or state is, the less
Xit's probably been tested. While I have not encountered any
Xcore-dump bugs recently, there undoubtably are some, not to mention
Xlesser problems such as hacks to get high scores mechanically,
Xmisfeatures, poor game interface occasions, etc.
X
XI am always anxious to hear about any problems you have had with
Xomega, be they problems with compilation, gameplay, or whatever.
XSuggestions for fixes are always welcome, as are wish-lists for
Xadditional features. The most useful things are new monsters, new
Xitems, and new magical effects, as these can be added without
Xdisrupting existing features.
X
XI hope you enjoy the game.
X
X-Laurence,
X
X Laurence R. Brothers
X brothers@paul.rutgers.edu
X {anywhere}!rutgers!paul.rutgers.edu!brothers
X "One life -- one arrow."
X
X
X* Ha, I bet you were expecting some different message. Well, this is not
Xa commercial document or a public net announcement, so I don't see
Xwhy I have to credit Bell Labs or UCB. So there.
END_OF_FILE
if test 9356 -ne `wc -c <'README3'`; then
echo shar: \"'README3'\" unpacked with wrong size!
fi
# end of 'README3'
fi
if test -f 'README4' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'README4'\"
else
echo shar: Extracting \"'README4'\" \(1775 characters\)
sed "s/^X//" >'README4' <<'END_OF_FILE'
Xomega wizard's guide.
X
XOMEGA MAINTENANCE
X=================
X
XThere should be little need for the wizard to actively maintain the
Xgame. But.....
X
XAfter years of play, the file omega.log may get unwieldy and overlarge.
XThis file can simply be truncated as follows. Log records are now
Xone line at a time, so just delete as many lines as you like, making
Xsure there are no blank lines, and that the file ends on an end of
Xline.
X
XYou can even remove omega.log completely as long as you replace it
Xwith a null file of the same name. omega.log must be publically
Xwriteable.
X
XThe file omega.hi is a high score list. This file can't be truncated
Xor removed, but you can edit it as you feel to be appropriate. If you
Xlook in ofile.c you can figure out what those numbers in the
Xfile actually mean; usually one is NPC level and one is NPC behavior,
Xbut some entries have another entry such as alignment. The
Xdistribution comes with a "safety" version of the original high
Xscore file; if anything happens to the original you can just
Xcopy omegahi.bak to omega.hi, making sure of course it has
Xpublic write access.
X
XAnyone can mung the log and hiscore files simply by writing to them
X(unless you used setuid, anyhow). In my opinion, people who hack
Xscore files can very easily be taken care of by deleting
Xtheir accounts; if that doesn't work, shoot them.
X
XWIZARD MODE
X===========
X
XIf you are the WIZARD as defined in odefs.h, you can enter wizard mode
Xby hitting ^g. If you ever set wizard mode, your high scores and npc
Xwill not be saved.
X
XIn wizard mode, ^x gives you a wish. ^w draws the current level, ^k
Xallows you to set an arbitrary game status bit, meanings of the bits
Xare given in odefs.h. The possible wishes are listed in oscroll3.txt,
Xand the code for them is in oeffect1.c
END_OF_FILE
if test 1775 -ne `wc -c <'README4'`; then
echo shar: \"'README4'\" unpacked with wrong size!
fi
# end of 'README4'
fi
if test -f 'oinv.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'oinv.c'\"
else
echo shar: Extracting \"'oinv.c'\" \(31165 characters\)
sed "s/^X//" >'oinv.c' <<'END_OF_FILE'
X/* omega copyright (C) by Laurence Raphael Brothers, 1987,1988 */
X/* oinv.c */
X/* functions having to do with player item inventory */
X
X#include "oglob.h"
X
X
X/* drops money, heh heh */
Xvoid drop_money()
X{
X pob money;
X
X money = detach_money();
X if (money != NULL) {
X if (Current_Environment == E_CITY) {
X print1("As soon as the money leaves your hand,");
X print2("a horde of scrofulous beggars snatch it up and are gone!");
X }
X else drop_at(Player.x,Player.y,money);
X }
X else setgamestatus(SKIP_MONSTERS);
X}
X
X
X
X/* returns some money from player back into "money" item.
X for giving and dropping money */
Xpob detach_money()
X{
X int c;
X pob cash=NULL;
X c = get_money(Player.cash);
X if (c != ABORT) {
X Player.cash -= c;
X cash = ((pob) malloc(sizeof(objtype)));
X make_cash(cash,difficulty());
X cash->basevalue = c;
X }
X return(cash);
X}
X
X
X/* gets a legal amount of money or ABORT */
Xint get_money(limit)
Xint limit;
X{
X int c;
X print1("How much? ");
X c = parsenum();
X if (c > limit) {
X print3("Forget it, buddy.");
X return(ABORT);
X }
X else return(c);
X}
X
X
X
X/* pick up from some location x,y */
X/* Lift entire itemlist off ground, pass it to inventory control, which
X may drop things back onto the now null ground */
Xvoid pickup_at(x,y)
Xint x,y;
X{
X int quit = FALSE;
X char response;
X pol ol = Level->site[x][y].things;
X pol temp;
X
X resetgamestatus(FAST_MOVE);
X
X Level->site[x][y].things = NULL;
X
X while (ol != NULL) {
X if (! quit) {
X clearmsg1();
X print1("Pick up: ");
X nprint1(itemid(ol->thing));
X nprint1(" [ynq]: ");
X response = ynq1();
X quit = (response == 'q');
X }
X if (response == 'y') gain_item(ol->thing);
X else drop_at(Player.x,Player.y,ol->thing);
X temp = ol;
X ol = ol->next;
X temp->thing = NULL;
X temp->next = NULL;
X free((char *) temp);
X }
X}
X
X
X/* put all of o on objlist at x,y on Level->depth */
X/* Not necessarily dropped by character; just dropped... */
Xvoid drop_at(x,y,o)
Xint x,y;
Xpob o;
X{
X pol tmp;
X pob cpy;
X
X if (Current_Environment != E_COUNTRYSIDE)
X if ((Level->site[x][y].locchar != ' ') &&
X (Level->site[x][y].locchar != '0')) {
X cpy = ((pob) malloc(sizeof(objtype)));
X tmp = ((pol) malloc(sizeof(oltype)));
X *cpy = *o;
X cpy->used = FALSE;
X tmp->thing = cpy;
X tmp->next = Level->site[x][y].things;
X Level->site[x][y].things = tmp;
X }
X else if (Level->site[x][y].p_locf == L_VOID_STATION)
X setgamestatus(PREPARED_VOID);
X}
X
X/* put n of o on objlist at x,y on Level->depth */
Xvoid p_drop_at(x,y,n,o)
Xint x,y;
Xint n;
Xpob o;
X{
X pol tmp;
X if (Current_Environment != E_COUNTRYSIDE)
X if ((Level->site[x][y].locchar != ' ') &&
X (Level->site[x][y].locchar != '0')) {
X tmp = ((pol) malloc(sizeof(oltype)));
X tmp->thing = ((pob) malloc(sizeof(objtype)));
X *(tmp->thing) = *o;
X tmp->thing->used = FALSE;
X tmp->thing->number = n;
X print2("Dropped ");
X nprint2(itemid(tmp->thing));
X morewait();
X tmp->next = Level->site[x][y].things;
X Level->site[x][y].things = tmp;
X }
X else if (Level->site[x][y].p_locf == L_VOID_STATION)
X setgamestatus(PREPARED_VOID);
X}
X
X
X/* returns a string for identified items */
Xchar *itemid(obj)
Xpob obj;
X{
X char tstr[80];
X if (obj->objchar==CASH){
X strcpy(Str4,obj->truename);
X return(Str4);
X }
X else {
X if (Objects[obj->id].known > obj->known)
X obj->known = Objects[obj->id].known;
X
X setnumstr(obj,tstr);
X strcpy(Str4,tstr);
X if (obj->known == 0)
X strcat(Str4,obj->objstr);
X else if (obj->known == 1)
X strcat(Str4,obj->truename);
X else {
X if (obj->blessing < 0) {
X strcat(Str4, "cursed ");
X strcat(Str4, obj->cursestr);
X }
X else if (obj->blessing > 0) {
X strcat(Str4, "blessed ");
X strcat(Str4, obj->truename);
X }
X else strcat(Str4,obj->truename);
X if (obj->number > 1) strcat(Str4,"s");
X switch (obj->objchar) {
X case STICK:
X setchargestr(obj,tstr);
X strcat(Str4,tstr);
X break;
X case MISSILEWEAPON:
X case ARMOR:
X case RING:
X case SHIELD:
X case WEAPON:
X setplustr(obj,tstr);
X strcat(Str4, tstr);
X break;
X default: strcat(Str4,""); break;
X }
X }
X return(Str4);
X }
X}
X
Xchar *cashstr()
X{
X if (difficulty() < 3) return("copper pieces");
X else if (difficulty() < 5) return("silver pieces");
X else if (difficulty() < 7) return("gold pieces");
X else if (difficulty() < 8) return("semiprecious gems");
X else if (difficulty() < 9) return("mithril pieces");
X else if (difficulty() < 10) return("precious gems");
X else return("orichalc pieces");
X}
X
X/* return an object's plus as a string */
Xvoid setplustr(obj,pstr)
Xpob obj;
Xchar *pstr;
X{
X pstr[0] = ' ';
X pstr[1] = (obj->plus < 0 ? '-' : '+' );
X if (abs(obj->plus) < 10) {
X pstr[2] = '0' + abs(obj->plus);
X pstr[3] = 0;
X }
X else {
X pstr[2] = '0' + abs(obj->plus / 10);
X pstr[3] = '0' + abs(obj->plus % 10);
X pstr[4] = 0;
X }
X}
X
X/* return an object's number as a string */
Xvoid setnumstr(obj,nstr)
Xpob obj;
Xchar *nstr;
X{
X if (obj->number < 2)
X nstr[0] = 0;
X else if (obj->number < 10) {
X nstr[0] = '0' + obj->number;
X nstr[1] = 'x';
X nstr[2] = ' ';
X nstr[3] = 0;
X }
X else if (obj->number < 41) {
X nstr[0] = '0' + ((int)(obj->number / 10));
X nstr[1] = '0' + (obj->number % 10);
X nstr[2] = 'x';
X nstr[3] = ' ';
X nstr[4] = 0;
X }
X else strcpy(nstr,"lots of ");
X}
X
X
X
X
X/* return object with charges */
Xvoid setchargestr(obj,cstr)
Xpob obj;
Xchar *cstr;
X{
X cstr[0] = ' ';
X cstr[1] = '[';
X if (obj->charge < 0) {
X cstr[2]='d';
X cstr[3]='e';
X cstr[4]='a';
X cstr[5]='d';
X cstr[6]=']';
X cstr[7]=0;
X }
X else if (obj->charge < 10) {
X cstr[2] = '0' + obj->charge;
X cstr[3] = ']';
X cstr[4] = 0;
X }
X else {
X cstr[2] = '0' + ((int)(obj->charge / 10));
X cstr[3] = '0' + (obj->charge % 10);
X cstr[4] = ']';
X cstr[5] = 0;
X }
X}
X
X
Xvoid give_money(m)
Xstruct monster *m;
X{
X pob cash;
X
X cash = detach_money();
X if (cash == NULL)
X setgamestatus(SKIP_MONSTERS);
X else givemonster(m,cash);
X}
X
X
X
Xvoid givemonster(m,o)
Xstruct monster *m;
Xstruct object *o;
X{
X /* special case -- give gem to LawBringer */
X if ((m->id == ML10+2) && (o->id == ARTIFACTID+21)) {
X clearmsg();
X print1("The LawBringer accepts the gem reverently.");
X print2("He raises it above his head, where it bursts into lambent flame!");
X morewait();
X print1("You are bathed in a shimmering golden light.");
X print2("You feel embedded in an infinite matrix of ordered energy.");
X morewait();
X if (Imprisonment > 0)
X Imprisonment = 0;
X if (Player.rank[ORDER] == -1) {
X print2("You have been forgiven. You feel like a Paladin....");
X Player.rank[ORDER] = 1;
X }
X Player.alignment += 200;
X Player.pow = Player.maxpow = Player.pow * 2;
X gain_experience(2000);
X setgamestatus(GAVE_STARGEM);
X }
X else {
X if (m->uniqueness == COMMON) {
X strcpy(Str3,"The ");
X strcat(Str3,m->monstring);
X }
X else strcpy(Str3,m->monstring);
X
X if (m_statusp(m,GREEDY) || m_statusp(m,NEEDY)) {
X m_pickup(m,o);
X strcat(Str3," takes your gift");
X print1(Str3);
X Player.alignment++;
X if (m_statusp(m,GREEDY) && (true_item_value(o) < m->level*100))
X nprint1("...but does not appear satisfied.");
X else if (m_statusp(m,NEEDY) &&
X (true_item_value(o) < Level->depth*Level->depth))
X nprint1("...and looks chasteningly at you.");
X else {
X nprint1("...and seems happy with it.");
X m_status_reset(m,HOSTILE);
X m_status_reset(m,GREEDY);
X m_status_reset(m,NEEDY);
X }
X }
X else if (m_statusp(m,HUNGRY)) {
X
X if (((m->id == HORSE) && (o->id == FOODID+15)) || /* grain */
X ((m->id != HORSE) &&
X ((o->usef == I_FOOD) || (o->usef == I_POISON_FOOD)))) {
X strcat(Str3," wolfs down your food ... ");
X print1(Str3);
X m_status_reset(m,HUNGRY);
X m_status_reset(m,HOSTILE);
X if (o->usef == I_POISON_FOOD) {
X Player.alignment -= 2;
X nprint1("...and chokes on the poisoned ration!");
X morewait();
X m_status_set(m,HOSTILE);
X m_damage(m,100,POISON);
X }
X else nprint1("...and now seems satiated.");
X morewait();
X free((char *)o);
X }
X else {
X strcat(Str3," spurns your offering and leaves it on the ground.");
X print1(Str3);
X drop_at(m->x,m->y,o);
X }
X }
X else {
X strcat(Str3," doesn't care for your offering and drops it.");
X print1(Str3);
X drop_at(m->x,m->y,o);
X }
X }
X}
X
X
X
X
X/* will clear all, not just one of an object. */
Xvoid conform_lost_object(obj)
Xpob obj;
X{
X if (obj != NULL) conform_lost_objects(obj->number,obj);
X}
X
X
X
X/* removes n of object from inventory; frees object if appropriate. */
X
Xvoid dispose_lost_objects(n,obj)
Xint n;
Xpob obj;
X{
X int i,conformed=FALSE,subtracted=FALSE,freetrue,freecurse;
X if (obj != NULL) for(i=0;i<MAXITEMS;i++)
X if (Player.possessions[i] == obj) {
X if (! subtracted) {
X obj->number -= n;
X subtracted = TRUE;
X }
X if (obj->number < 1) {
X if (!conformed) {
X conform_unused_object(obj);
X conformed = TRUE;
X }
X Player.possessions[i] = NULL;
X }
X }
X if (obj->number < 1) {
X freetrue=(obj->objstr != obj->truename);
X freecurse=((obj->objstr != obj->cursestr)&&
X (obj->cursestr != obj->truename));
X free(obj->objstr);
X if (freetrue) free(obj->truename);
X if (freecurse) free(obj->cursestr);
X free((char *) obj);
X }
X}
X
X
X
X
X/* removes n of object from inventory without freeing object.
X Removes all instances of pointer (might be 2 handed weapon, etc) */
Xvoid conform_lost_objects(n,obj)
Xint n;
Xpob obj;
X{
X int i,conformed=FALSE,subtracted=FALSE;
X if (obj != NULL) for(i=0;i<MAXITEMS;i++)
X if (Player.possessions[i] == obj) {
X if (! subtracted) {
X obj->number -= n;
X subtracted = TRUE;
X }
X if (obj->number < 1) {
X if (!conformed) {
X conform_unused_object(obj);
X conformed = TRUE;
X }
X Player.possessions[i] = NULL;
X }
X }
X}
X
X
X/* clears unused possession */
Xvoid conform_unused_object(obj)
Xpob obj;
X{
X if (obj->used) {
X obj->used = FALSE;
X item_use(obj);
X }
X calc_melee();
X}
X
X
X/* select an item from inventory */
X/* if itype is NULL, any kind of item is acceptable.
X if itype is CASHVALUE, any kind of item or '$' (cash) is acceptable.
X if itype is FOOD, CORPSE or FOOD is acceptable, but only FOOD is
Xlisted in the possibilities.
X if itype is any other object type (eg SCROLL, POTION, etc.), only
Xthat type of item is acceptable or is listed */
X
Xint getitem(itype)
Xchar itype;
X{
X char invstr[64];
X char index;
X int i,k=0,ok=FALSE,drewmenu=FALSE,found=FALSE;
X
X found = ((itype == NULL) || ((itype == CASHVALUE) && (Player.cash > 0)));
X invstr[0]=0;
X for(i=1;i<MAXITEMS;i++)
X if (Player.possessions[i] != NULL)
X if ((itype == NULL) ||
X (itype == CASHVALUE) ||
X (Player.possessions[i]->objchar == itype) ||
X ((itype == FOOD) && (Player.possessions[i]->objchar == CORPSE))) {
X found = TRUE;
X invstr[k++] = 'a'+i-1;
X invstr[k] = 0;
X }
X if ((itype == CASHVALUE) && found) {
X invstr[k++] = '$';
X invstr[k] = 0;
X }
X if (! found) {
X print3("Nothing appropriate.");
X return(ABORT);
X }
X else {
X print2("Select an item [");
X nprint2(invstr);
X nprint2(",?] ");
X while (! ok) {
X index = mcigetc();
X if (index == '?') {
X drewmenu = TRUE;
X menuclear();
X for (i=1;i<MAXITEMS;i++)
X if (Player.possessions[i] != NULL)
X if ((itype == NULL) ||
X (itype == CASHVALUE) ||
X (Player.possessions[i]->objchar == itype) ||
X ((itype == FOOD) &&
X (Player.possessions[i]->objchar == CORPSE)))
X display_inventory_slot(i,FALSE);
X }
X else if (index == ESCAPE) ok = TRUE;
X else if (index == CASH) {
X if (itype == CASHVALUE) ok = TRUE;
X else {
X print3("You cannot select cash now.");
X ok = FALSE;
X }
X }
X else if (badobject(index) || (! strmem(index,invstr)))
X print3("Nope! Try again [? for inventory, ESCAPE to quit]:");
X else ok = TRUE;
X }
X if (drewmenu) xredraw();
X if (index == ESCAPE) return(ABORT);
X else if (index == CASH) return(CASHVALUE);
X else return(index+1-'a');
X }
X}
X
X
X/* true if the numerical index based on 'a' == 1 turns out to be either
Xout of the range of the possessions array or a null item */
Xint badobject(slotchar)
Xchar slotchar;
X{
X int slot = slotchar + 1 - 'a';
X if ((slot<1) || (slot >= MAXITEMS)) return(TRUE);
X else return(Player.possessions[slot] == NULL);
X}
X
X
X/* this takes the numerical index directly for the same effect as badobject*/
Xint baditem(slotnum)
Xint slotnum;
X{
X if ((slotnum<1) || (slotnum >= MAXITEMS)) return(TRUE);
X else return(Player.possessions[slotnum] == NULL);
X}
X
X
X
X/* formerly add_item_to_pack */
Xvoid gain_item(o)
Xstruct object *o;
X{
X if (o->objchar == CASH) {
X print2("You gained some cash.");
X Player.cash += o->basevalue;
X dataprint();
X }
X else if (optionp(PACKADD)) {
X if (! get_to_pack(o)) {
X Player.possessions[O_UP_IN_AIR] = o;
X top_inventory_control();
X }
X }
X else {
X Player.possessions[O_UP_IN_AIR] = o;
X top_inventory_control();
X }
X}
X
X
X/* Adds item to pack list */
Xvoid add_to_pack(o)
Xpob o;
X{
X if (Player.packptr >= MAXPACK) {
X print3("Your pack is full. The item drops to the ground.");
X drop_at(Player.x,Player.y,o);
X }
X else {
X Player.pack[Player.packptr++] = o;
X print3("Putting item in pack.");
X }
X}
X
X
X/* Adds item to pack list, maybe going into inventory mode if pack is full */
Xint get_to_pack(o)
Xpob o;
X{
X if (Player.packptr >= MAXPACK) {
X print3("Your pack is full.");
X morewait();
X return(FALSE);
X }
X else {
X Player.pack[Player.packptr++] = o;
X print3("Putting item in pack.");
X return(TRUE);
X }
X}
X
X
X
X/* takes something from pack, puts to slot,
Xor to 'up-in-air', one of which at least must be empty */
Xvoid take_from_pack(slot,display)
Xint slot,display;
X{
X char response;
X int i,quit = FALSE,ok=TRUE,displayed=FALSE;
X pob item;
X if (Player.possessions[slot] != NULL)
X slot = O_UP_IN_AIR;
X if (Player.possessions[slot] != NULL)
X print3("slot is not empty!");
X else if (Player.packptr == 0)
X print3("Pack is empty!");
X else {
X do {
X ok = TRUE;
X print1("Enter pack slot letter, or ? to show pack, or ESCAPE to quit.");
X response = mgetc();
X if (response == '?') {
X display_pack();
X displayed = TRUE;
X ok = FALSE;
X }
X else if (response == ESCAPE) quit = TRUE;
X else{
X ok = ((response >= 'A') && (response < 'A'+Player.packptr));
X if (ok) ok = slottable(Player.pack[response-'A'],slot);
X }
X } while (! ok);
X if (! quit) {
X if (response - 'A' > 10) {
X print1("You begin to rummage through your pack.");
X morewait();
X Command_Duration += 10;
X }
X if (response - 'A' > 5) {
X print1("You search your pack for the item.");
X Command_Duration += 5;
X morewait();
X }
X print1("You take the item from your pack.");
X morewait();
X Command_Duration += 2;
X item = Player.possessions[slot] = Player.pack[response-'A'];
X for(i=response-'A';i<Player.packptr-1;i++)
X Player.pack[i] = Player.pack[i+1];
X Player.pack[--Player.packptr] = NULL;
X
X if (item_useable(item,slot)) {
X item->used = TRUE;
X item_use(item);
X morewait();
X if (item->number > 1) pack_extra_items(item);
X }
X }
X }
X if (displayed) {
X xredraw();
X if (display) display_possessions();
X }
X}
X
X
X
X
X/* General interface to inventory */
Xvoid item_inventory(topline)
Xint topline;
X{
X if (topline) {
X menuclear();
X display_possessions();
X inventory_control();
X }
X else top_inventory_control();
X}
X
X
X
X
X
X/* inventory_control assumes a few setup things have been done,
X like displaying the slots, loading the O_UP_IN_AIR item, etc.
X
X Each action uses up a little time. If only inspection actions
X are taken, no time is used up. */
X
X
Xvoid inventory_control()
X{
X int slot = 0,done=FALSE;
X char response;
X clearmsg3();
X do {
X checkclear();
X print1("Action [^l,d,e,p,s,t,x,>,<,?,ESCAPE]:");
X display_inventory_slot(slot,FALSE);
X if (slot == O_WEAPON_HAND)
X display_inventory_slot(O_READY_HAND,FALSE);
X else if (slot == O_READY_HAND)
X display_inventory_slot(O_WEAPON_HAND,FALSE);
X display_inventory_slot(O_UP_IN_AIR,FALSE);
X move_slot(slot,slot,MAXITEMS);
X response = mcigetc();
X
X switch(response) {
X case 12:
X case 18: /* ^l, ^r */
X menuclear();
X display_possessions();
X break;
X case 'd':
X if (Player.possessions[O_UP_IN_AIR] != NULL)
X drop_from_slot(O_UP_IN_AIR);
X else if (Player.possessions[slot] != NULL)
X drop_from_slot(slot);
X else print3("Nothing in selected slot!");
X Command_Duration++;
X break;
X case 'p':
X if (Player.possessions[slot] != NULL)
X put_to_pack(slot);
X Command_Duration+=5;
X break;
X case 's':
X display_pack();
X morewait();
X xredraw();
X display_possessions();
X Command_Duration+=5;
X break;
X case 't':
X take_from_pack(slot,TRUE);
X Command_Duration+=5;
X break;
X case 'e':
X switch_to_slot(slot);
X Command_Duration+=2;
X break;
X case 'x':
X switch_to_slot(slot);
X Command_Duration+=2;
X done = (Player.possessions[O_UP_IN_AIR] == NULL);
X break;
X case 'j':
X case '>':
X slot = move_slot(slot,slot+1,MAXITEMS);
X break;
X case 'k':
X case '<':
X slot = move_slot(slot,slot-1,MAXITEMS);
X break;
X case '?':
X inv_help();
X display_possessions();
X break;
X case ESCAPE:
X if (Player.possessions[O_UP_IN_AIR] != NULL) {
X drop_at(Player.x,Player.y,Player.possessions[O_UP_IN_AIR]);
X Player.possessions[O_UP_IN_AIR] = NULL;
X print3("Object 'up in air' dropped.");
X }
X done = TRUE;
X break;
X }
X calc_melee();
X dataprint();
X } while (! done);
X xredraw();
X}
X
X
X
X
X
X
X
X/* same as inventory_control, but only uses msg window for i/o*/
X
X
Xvoid top_inventory_control()
X{
X int slot = 0,done=FALSE,usedmenu=FALSE;
X char response;
X clearmsg3();
X do {
X clearmsg1();
X print1("Action [d,e,p,s,t,x,~,?,ESCAPE]:");
X print2("'Up in air': ");
X if (Player.possessions[O_UP_IN_AIR] == NULL) nprint2("NOTHING");
X else nprint2(itemid(Player.possessions[O_UP_IN_AIR]));
X response = mcigetc();
X
X switch(response) {
X case 'd':
X if (Player.possessions[O_UP_IN_AIR] != NULL)
X drop_from_slot(O_UP_IN_AIR);
X else {
X slot = get_inventory_slot();
X if (Player.possessions[slot] != NULL)
X drop_from_slot(slot);
X else print3("Nothing in selected slot!");
X }
X Command_Duration++;
X break;
X case 'p':
X if (Player.possessions[O_UP_IN_AIR] == NULL)
X slot = get_inventory_slot();
X else slot = O_UP_IN_AIR;
X put_to_pack(slot);
X Command_Duration+=5;
X break;
X case 's':
X display_pack();
X usedmenu = TRUE;
X Command_Duration+=5;
X break;
X case 't':
X slot = get_inventory_slot();
X take_from_pack(slot,FALSE);
X Command_Duration+=5;
X break;
X case 'e':
X slot = get_inventory_slot();
X switch_to_slot(slot);
X Command_Duration+=2;
X break;
X case 'x':
X slot = get_inventory_slot();
X switch_to_slot(slot);
X Command_Duration+=2;
X done = (Player.possessions[O_UP_IN_AIR] == NULL);
X break;
X case '~':
X menuclear();
X display_possessions();
X inventory_control();
X usedmenu = TRUE;
X done = TRUE;
X break;
X case '?':
X inv_help();
X usedmenu=TRUE;
X break;
X case ESCAPE:
X if (Player.possessions[O_UP_IN_AIR] != NULL) {
X drop_at(Player.x,Player.y,Player.possessions[O_UP_IN_AIR]);
X Player.possessions[O_UP_IN_AIR] = NULL;
X print3("Object 'up in air' dropped.");
X }
X done = TRUE;
X break;
X }
X calc_melee();
X dataprint();
X } while (! done);
X if (usedmenu)
X xredraw();
X}
X
X
X
X
X
Xint get_inventory_slot()
X{
X int ok;
X char response;
X do {
X clearmsg1();
X print1("Which inventory slot [a..o,*='up-in-air' slot]?");
X response = mcigetc();
X ok = ((response == '*') ||
X ((response >= 'a') && (response < 'a' + MAXITEMS - 1)));
X } while (! ok);
X return((response == '*') ? 0 : ((int) (response + 1 - 'a')));
X}
X
X
X
X/* returns some number between 0 and o->number */
Xint get_item_number(o)
Xpob o;
X{
X int n=0;
X do {
X print1("How many? -- max");
X mnumprint(o->number);
X nprint1(" :");
X n = parsenum();
X if (n>o->number) print3("Too many!");
X else if (n<1) n = 0;
X } while (n > o->number);
X if (n < 1) n = 0;
X return(n);
X}
X
Xvoid drop_from_slot(slot)
Xint slot;
X{
X int n,waitflag;
X if (Player.possessions[slot] != NULL) {
X n = Player.possessions[slot]->number;
X if (n > 1) n = get_item_number(Player.possessions[slot]);
X if (n > 0) {
X p_drop_at(Player.x,Player.y,n,Player.possessions[slot]);
X waitflag = (Player.possessions[slot]->used &&
X (Player.possessions[slot]->number == n));
X conform_lost_objects(n,Player.possessions[slot]);
X if (waitflag) morewait();
X }
X else print3("Didn't drop anything.");
X }
X else print3("Didn't drop anything.");
X}
X
X
Xvoid put_to_pack(slot)
Xint slot;
X{
X int waitflag,num = 1;
X pob temp,oslot = Player.possessions[slot];
X if (oslot == NULL)
X print3("Slot is empty!");
X else if (cursed(oslot) == TRUE+TRUE)
X print3("Item is cursed!");
X else {
X if (oslot->number > 1)
X num = get_item_number(oslot);
X if (num > 0) {
X temp = split_item(num,oslot);
X waitflag = (oslot->used && (oslot->number == num));
X conform_lost_objects(num,oslot);
X if (waitflag) morewait();
X add_to_pack(temp);
X }
X }
X}
X
X
X/* splits num off of item to make newitem which is returned */
X/* something else (conform_lost_objects) has to reduce the actual
X number value of item and Player.itemweight */
Xpob split_item(num,item)
Xint num;
Xpob item;
X{
X pob newitem=NULL;
X if (item != NULL) {
X newitem = ((pob) malloc(sizeof(objtype)));
X *newitem = *item;
X if (num <= item->number)
X newitem->number = num;
X /* else num > item->number, so return NULL on this error condition */
X }
X return(newitem);
X}
X
X
X
X/* Trades contents of "up in air" slot with selected slot. One or both
Xmay be null. If both slots are 'objequal' merges two groups into one
Xin the selected slot. If one slot is null and the number of the other
Xis greater than one, requests how many to move. */
X
Xvoid switch_to_slot(slot)
Xint slot;
X{
X pob oslot = Player.possessions[slot];
X pob oair = Player.possessions[O_UP_IN_AIR];
X pob otemp = NULL;
X int slotnull,airnull,num=1,trade=FALSE,put=FALSE,take=FALSE,merge=FALSE;
X int s2h=FALSE,a2h=FALSE;
X
X /* ie, is cursed and in use */
X if (slot == O_UP_IN_AIR)
X print3("This action makes no sense!");
X else if (cursed(oslot)==TRUE+TRUE)
X print3("The object in that slot is cursed -- you can't get rid of it!");
X else {
X
X slotnull = (oslot == NULL);
X airnull = (oair == NULL);
X
X if (!slotnull)
X s2h = (Player.possessions[O_READY_HAND] ==
X Player.possessions[O_WEAPON_HAND]);
X
X if (! airnull)
X a2h = (twohandedp(oair->id) &&
X ((slot == O_READY_HAND) || (slot == O_WEAPON_HAND)));
X
X
X /* figure out which action to take */
X
X /* merge if both are same kind of object */
X merge = objequal(oslot,oair);
X
X take = ((!merge) && (!slotnull) && airnull);
X
X put = ((!merge) && slotnull && (!airnull));
X
X trade = ((!merge) && (!slotnull) && (!airnull) && slottable(oair,slot));
X
X if (merge) merge_item(slot);
X
X else if (put) {
X
X /* deal with a 2-handed weapon */
X if (a2h) {
X if (Player.possessions[O_READY_HAND] == NULL)
X Player.possessions[O_READY_HAND] = oair;
X if (Player.possessions[O_WEAPON_HAND] == NULL)
X Player.possessions[O_WEAPON_HAND] = oair;
X }
X else Player.possessions[slot] = oair;
X Player.possessions[O_UP_IN_AIR] = NULL;
X if (item_useable(oair,slot)) {
X oair->used = TRUE;
X item_use(oair);
X morewait();
X if (oair->number > 1) pack_extra_items(oair);
X }
X Player.possessions[O_UP_IN_AIR] = NULL;
X }
X
X else if (take) {
X if (oslot->number > 1) {
X num = get_item_number(oslot);
X }
X if (num > 0) {
X otemp = split_item(num,oslot);
X dispose_lost_objects(num,oslot);
X Player.possessions[O_UP_IN_AIR] = otemp;
X otemp->used = FALSE;
X }
X }
X
X else if (trade) {
X
X /* first remove item from slot */
X num = oslot->number;
X conform_lost_objects(oslot->number,oslot);
X oslot->number = num;
X
X Player.possessions[O_UP_IN_AIR] = oslot;
X
X Player.possessions[slot] = oair;
X
X if (a2h) {
X if (Player.possessions[O_READY_HAND] == NULL)
X Player.possessions[O_READY_HAND] = oair;
X if (Player.possessions[O_WEAPON_HAND] == NULL)
X Player.possessions[O_WEAPON_HAND] = oair;
X }
X
X if (item_useable(oair,slot)) {
X oair->used = TRUE;
X item_use(oair);
X morewait();
X if (oair->number > 1) pack_extra_items(oair);
X }
X }
X }
X}
X
X
X
X
X/* merges the up-in-air items into the selected items */
X
Xvoid merge_item(slot)
Xint slot;
X{
X Player.possessions[slot]->number +=
X Player.possessions[O_UP_IN_AIR]->number;
X Player.possessions[O_UP_IN_AIR] = NULL;
X}
X
X
X/* are two objects equal except for their number field? */
X/* returns false if either object is null */
Xint objequal(o,p)
Xstruct object *o,*p;
X{
X if ((o == NULL) || (p == NULL)) return(FALSE);
X else return(
X (o->id == p->id) &&
X (o->plus == p->plus) &&
X (o->charge == 0) &&
X (p->charge == 0) &&
X (o->dmg == p->dmg) &&
X (o->hit == p->hit) &&
X (o->aux == p->aux) &&
X (o->known == p->known) &&
X (o->blessing == p->blessing) &&
X (o->usef == p->usef)
X );
X
X}
X
X/* criteria for being able to put some item in some slot */
Xint slottable(o,slot)
Xpob o;
Xint slot;
X{
X int ok = TRUE;
X if (o == NULL) ok = FALSE;
X else if (slot == O_ARMOR) {
X if (o->objchar != ARMOR) {
X print3("Only armor can go in the armor slot!");
X ok = FALSE;
X }
X }
X else if (slot == O_SHIELD) {
X if (o->objchar != SHIELD) {
X print3("Only a shield can go in the shield slot!");
X ok = FALSE;
X }
X }
X else if (slot == O_BOOTS) {
X if (o->objchar != BOOTS) {
X print3("Only boots can go in the boots slot!");
X ok = FALSE;
X }
X }
X else if (slot == O_CLOAK) {
X if (o->objchar != CLOAK) {
X print3("Only a cloak can go in the cloak slot!");
X ok = FALSE;
X }
X }
X else if (slot >= O_RING1) {
X if (o->objchar != RING) {
X print3("Only a ring can go in a ring slot!");
X ok = FALSE;
X }
X }
X return(ok);
X}
X
X
X
X/* whether or not an item o can be used in a slot. Assumes o can in
X fact be placed in the slot. */
Xint item_useable(o,slot)
Xpob o;
Xint slot;
X{
X /* don't have to check the object in the first if since only armor
X can go in armor slot, cloak in cloak slot, etc */
X
X if ((slot == O_ARMOR) ||
X (slot == O_CLOAK) ||
X (slot == O_SHIELD) ||
X (slot == O_BOOTS) ||
X (slot >= O_RING1))
X return(TRUE);
X
X /* weapon is useable if it is put in weapon hand or if it is two-handed
X and put in either hand when the other also holds the weapon */
X
X else if ((o->objchar == WEAPON) ||
X (o->objchar == MISSILEWEAPON)) {
X if (twohandedp(o->id) &&
X ((slot==O_READY_HAND)||(slot==O_WEAPON_HAND))) {
X if (Player.possessions[O_READY_HAND] ==
X Player.possessions[O_WEAPON_HAND]) {
X print1("You heft the weapon and find you must use both hands.");
X morewait();
X return(TRUE);
X }
X else {
X print1("This weapon is two-handed, so at the moment, ");
X print2("you are just lugging it around....");
X morewait();
X return(FALSE);
X }
X }
X else return(slot == O_WEAPON_HAND);
X }
X else return(FALSE);
X}
X
X
X
X
X
X
X
X
X/* returns FALSE if not cursed, TRUE if cursed but not used,
X TRUE + TRUE if cursed and used */
Xint cursed(obj)
Xpob obj;
X{
X return((obj == NULL) ?
X FALSE :
X ((obj->blessing < 0) ?
X (obj->used == TRUE) + TRUE :
X FALSE));
X}
X
X
X
X
X/* returns true if item with id and charge is found in pack or in
X inventory slot. charge is used to differentiate
X corpses instead of aux, which is their food value. */
Xint find_item(o,id,chargeval)
Xint id,chargeval;
Xpob *o;
X{
X int i,found=FALSE;
X *o=NULL;
X for(i=1;((i<MAXITEMS)&&(! found));i++)
X if (Player.possessions[i] != NULL)
X if ((Player.possessions[i]->id == id) &&
X ((chargeval == -1) ||
X (Player.possessions[i]->charge == chargeval))) {
X *o = Player.possessions[i];
X found = TRUE;
X }
X if (! found)
X for(i=0;((i<Player.packptr)&&(! found));i++)
X if (Player.pack[i] != NULL)
X if ((Player.pack[i]->id == id) &&
X ((chargeval == -1) ||
X (Player.pack[i]->charge == chargeval))) {
X *o = Player.pack[i];
X found = TRUE;
X }
X return(found);
X}
X
X
X
X/* returns true if item with id and charge is found in pack or in
X inventory slot. Destroys item. charge is used to differentiate
X corpses instead of aux, which is their food value. */
Xint find_and_remove_item(id,chargeval)
Xint id,chargeval;
X{
X int i,found=FALSE;
X pob o=NULL;
X
X for(i=1;((i<MAXITEMS)&&(! found));i++)
X if (Player.possessions[i] != NULL)
X if ((Player.possessions[i]->id == id) &&
X ((chargeval == -1) ||
X (Player.possessions[i]->charge == chargeval))) {
X o = Player.possessions[i];
X conform_lost_object(o);
X found = TRUE;
X }
X if (! found) for(i=0;((i<Player.packptr)&&(! found));i++)
X if (Player.pack[i] != NULL)
X if ((Player.pack[i]->id == id) &&
X ((chargeval == -1) ||
X (Player.pack[i]->charge == chargeval))) {
X free((char *)Player.pack[i]);
X Player.pack[i] = NULL;
X found = TRUE;
X }
X fixpack();
X return(found);
X}
X
X
X
X
Xvoid lose_all_items()
X{
X int i;
X print1("You notice that you are completely devoid of all possessions.");
X morewait();
X for(i=0;i<MAXITEMS;i++)
X if (Player.possessions[i] != NULL) {
X dispose_lost_objects(Player.possessions[i]->number,
X Player.possessions[i]);
X Player.possessions[i] = NULL;
X }
X for(i=0;i<MAXPACK;i++) {
X if (Player.pack[i] != NULL)
X free((char *) Player.pack[i]);
X Player.pack[i] = NULL;
X }
X Player.packptr = 0;
X calc_melee();
X morewait();
X}
X
X
X/* prevents people from wielding 3 short swords, etc. */
Xvoid pack_extra_items(item)
Xpob item;
X{
X pob extra=((pob) malloc(sizeof(objtype)));
X if (Player.packptr < MAXPACK) {
X print3("Putting extra items back in pack.");
X morewait();
X *extra = *item;
X extra->number = item->number-1;
X item->number = 1;
X Player.pack[Player.packptr++] = extra;
X }
X else if (Player.possessions[O_UP_IN_AIR] == NULL) {
X print3("Extra copies of item are 'up in the air'");
X Player.possessions[O_UP_IN_AIR] = extra;
X }
X else {
X print3("No room for extra copies of item -- dropping them.");
X drop_at(Player.x,Player.y,extra);
X }
X calc_melee();
X}
X
X
X/* makes sure Player.pack is OK, (used after sale from pack) */
Xvoid fixpack()
X{
X pob tpack[MAXPACK];
X int i,tctr=0;
X for(i=0;i<MAXPACK;i++) tpack[i] = NULL;
X for(i=0;i<MAXPACK;i++)
X if (Player.pack[i]!=NULL)
X tpack[tctr++] = Player.pack[i];
X for(i=0;i<MAXPACK;i++)
X Player.pack[i]=tpack[i];
X Player.packptr = tctr;
X
X}
END_OF_FILE
if test 31165 -ne `wc -c <'oinv.c'`; then
echo shar: \"'oinv.c'\" unpacked with wrong size!
fi
# end of 'oinv.c'
fi
echo shar: End of archive 1 \(of 19\).
cp /dev/null ark1isdone
MISSING=""
for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 ; do
if test ! -f ark${I}isdone ; then
MISSING="${MISSING} ${I}"
fi
done
if test "${MISSING}" = "" ; then
echo You have unpacked all 19 archives.
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