Mercurial > hg > early-roguelike
view srogue/global.c @ 317:aab761616489 default tip
Rearrange some Autoconf files.
Autoconf was failing to detect install-sh at the top level and needed
some explicit directions. It also wants config.guess and config.sub to
be provided too.
A few other macros have also been updated.
author | John "Elwin" Edwards |
---|---|
date | Tue, 05 Sep 2023 20:05:24 -0400 |
parents | 0250220d8cdd |
children |
line wrap: on
line source
/* * global variable declaration * * @(#)global.c 9.0 (rdk) 7/17/84 * * Super-Rogue * Copyright (C) 1984 Robert D. Kindelberger * All rights reserved. * * Based on "Rogue: Exploring the Dungeons of Doom" * Copyright (C) 1980, 1981 Michael Toy, Ken Arnold and Glenn Wichman * All rights reserved. * * See the file LICENSE.TXT for full copyright and licensing information. */ #include "rogue.h" struct room rooms[MAXROOMS]; /* One for each room -- A level */ struct room *oldrp; /* Roomin(&oldpos) */ struct linked_list *mlist = NULL; /* monsters on this level */ struct thing player; /* The rogue */ struct stats max_stats; /* The maximum for the player */ struct linked_list *lvl_obj = NULL; /* objects on this level */ struct object *cur_weapon = NULL; /* Which weapon he is weilding */ struct object *cur_armor = NULL; /* the rogue's armor */ struct object *cur_ring[2]; /* Which rings are being worn */ struct stats *him; /* pointer to hero stats */ struct trap traps[MAXTRAPS]; /* traps on this level */ int playuid; /* uid of current player */ int playgid; /* gid of current player */ int level = 1; /* What level rogue is on */ int levcount = 0; /* # of active mons this level */ int levtype = NORMLEV; /* type of level this is, maze, etc. */ int trader = 0; /* no. of purchases */ int curprice = -1; /* current price of item */ int purse = 0; /* How much gold the rogue has */ int mpos = 0; /* Where cursor is on top line */ int ntraps; /* # of traps on this level */ int packvol = 0; /* volume of things in pack */ int total = 0; /* Total dynamic memory bytes */ int demoncnt = 0; /* number of active daemons */ int lastscore = -1; /* Score before this turn */ int no_food = 0; /* # of levels without food */ int seed; /* Random number seed */ int dnum; /* Dungeon number */ int count = 0; /* # of times to repeat cmd */ int fung_hit = 0; /* # of time fungi has hit */ int quiet = 0; /* # of quiet turns */ int max_level = 1; /* Deepest player has gone */ int food_left = HUNGERTIME; /* Amount of food stomach */ int group = NEWGROUP; /* Current group number */ int hungry_state = F_OKAY; /* How hungry is he */ int foodlev = 1; /* how fast he eats food */ int ringfood = 0; /* rings affect on food consumption */ char take; /* Thing the rogue is taking */ char runch; /* Direction player is running */ char curpurch[15]; /* name of item ready to buy */ char prbuf[LINLEN]; /* Buffer for sprintfs */ char whoami[LINLEN]; /* Name of player */ char fruit[LINLEN]; /* Favorite fruit */ char huh[LINLEN]; /* The last message printed */ char file_name[256]; /* Save file name */ char scorefile[LINLEN]; /* place for scorefile */ char home[LINLEN]; /* User's home directory */ char outbuf[BUFSIZ]; /* Output buffer for stdout */ char *s_guess[MAXSCROLLS]; /* his guess at what scroll is */ char *p_guess[MAXPOTIONS]; /* his guess at what potion is */ char *r_guess[MAXRINGS]; /* his guess at what ring is */ char *ws_guess[MAXSTICKS]; /* his guess at what wand is */ bool isfight = FALSE; /* true if player is fighting */ bool nlmove = FALSE; /* true when transported to new level */ bool inpool = FALSE; /* true if hero standing in pool */ bool inwhgt = FALSE; /* true if from wghtchk() */ bool running = FALSE; /* True if player is running */ bool playing = TRUE; /* True until he quits */ bool wizard = FALSE; /* True if he is a wizard */ bool after = TRUE; /* True if we want after daemons */ bool door_stop = FALSE; /* Stop run when we pass a door */ bool firstmove = FALSE; /* First move after door_stop */ bool waswizard = FALSE; /* Was a wizard sometime */ bool amulet = FALSE; /* He found the amulet */ bool in_shell = FALSE; /* True if executing a shell */ bool nochange = FALSE; /* true if last stat same as now */ bool use_savedir = FALSE; /* true if using system savefiles */ bool s_know[MAXSCROLLS]; /* Does he know about a scroll */ bool p_know[MAXPOTIONS]; /* Does he know about a potion */ bool r_know[MAXRINGS]; /* Does he know about a ring */ bool ws_know[MAXSTICKS]; /* Does he know about a stick */ char spacemsg[] = { "-- Press space to continue --" }; char morestr[] = { "-- More --" }; char retstr[] = { "[Press return to continue]" }; char wizstr[] = { "Wizards Password: " }; char illegal[] = { "Illegal command '%s'." }; char callit[] = { "Call it: " }; char starlist[] = { " (* for a list)" }; FILE *scoreboard = NULL; /* Scoreboard file */ FILE *logfile = NULL; struct coord oldpos; /* Pos before last look() call */ struct coord delta; /* Change indicated to get_dir() */ struct coord stairs; /* where the stairs are put */ struct coord rndspot = { -1, -1 }; /* for random teleporting */ struct monster *mtlev[MONRANGE]; #define _r {10,10,10,10} /* real ability (unused) */ #define _p 0,0,0,0 /* hit points, pack, carry (unused) */ #define _c 10 /* constitution (unused) */ /* * NAME SHOW CARRY {LEVEL} FLAGS _r {STR DEX WIS _c} EXP LVL ARM _p DMG */ struct monster monsters[MAXMONS + 1] = { {"giant ant",'A',0,{3,12,1},ISMEAN,{_r,{10,16,5,_c},10,2,3,_p,"1d6"}}, {"bat",'B',0,{1,6,1},ISHUH,{_r,{10,10,10,_c},1,1,3,_p,"1d2"}}, {"centaur",'C',15,{8,17,1},0,{_r,{16,10,15,_c},15,4,4,_p,"1d6/1d6"}}, {"red dragon",'D',100,{21,500,0},ISGREED,{_r,{17,10,17,_c},9000,11,-1,_p,"1d8/1d8/3d10"}}, {"floating eye",'E',0,{2,11,0},0,{_r,{10,10,10,_c},5,1,9,_p,"0d0"}}, {"violet fungi",'F',0,{15,24,0},ISMEAN|ISSTUCK,{_r,{10,5,3,_c},85,8,2,_p,"000d0"}}, {"gnome",'G',10,{6,15,1},0,{_r,{10,10,11,_c},8,1,5,_p,"1d6"}}, {"hobgoblin",'H',0,{1,8,1},ISMEAN,{_r,{10,10,10,_c},3,1,5,_p,"1d8"}}, {"invisible stalker",'I',0,{16,25,1},ISINVIS|ISHUH,{_r,{10,15,15,_c},120,8,2,_p,"4d4"}}, {"jackal",'J',0,{1,6,1},ISMEAN,{_r,{10,10,10,_c},2,1,7,_p,"1d2"}}, {"kobold",'K',0,{1,6,1},ISMEAN,{_r,{10,10,10,_c},1,1,8,_p,"1d4"}}, {"leprechaun",'L',0,{7,16,0},0,{_r,{10,15,16,_c},10,3,8,_p,"1d1"}}, {"mimic",'M',30,{19,500,0},0,{_r,{10,10,10,_c},140,8,7,_p,"3d4"}}, {"nymph",'N',100,{11,20,0},0,{_r,{10,18,18,_c},40,3,9,_p,"0d0"}}, {"orc",'O',15,{4,13,1},0,{_r,{10,10,10,10},5,1,6,_p,"1d8"}}, {"purple worm",'P',70,{22,500,0},0,{_r,{18,5,10,_c},7000,15,6,_p,"2d12/2d4"}}, {"quasit",'Q',30,{10,19,1},ISMEAN,{_r,{10,15,16,_c},35,3,2,_p,"1d2/1d2/1d4"}}, {"rust monster",'R',0,{9,18,1},ISMEAN,{_r,{10,10,10,_c},25,5,2,_p,"0d0/0d0"}}, {"snake",'S',0,{1,7,1},ISMEAN,{_r,{10,10,10,_c},3,1,5,_p,"1d3"}}, {"troll",'T',50,{13,22,0},ISMEAN|ISREGEN,{_r,{10,10,11,_c},55,6,4,_p,"1d8/1d8/2d6"}}, {"umber hulk",'U',40,{18,500,1},ISMEAN,{_r,{17,10,10,_c},130,8,2,_p,"3d4/3d4/2d5"}}, {"vampire",'V',20,{20,500,1},ISMEAN|ISREGEN,{_r,{21,16,16,_c},380,8,1,_p,"1d10"}}, {"wraith",'W',0,{14,23,1},ISMEAN,{_r,{10,10,10,_c},55,5,4,_p,"1d6"}}, {"xorn",'X',0,{17,26,1},ISMEAN,{_r,{17,6,11,_c},120,7,-2,_p,"1d3/1d3/1d3/4d6"}}, {"yeti",'Y',30,{12,21,1},ISMEAN,{_r,{10,10,10,_c},50,4,6,_p,"1d6/1d6"}}, {"zombie",'Z',0,{5,14,1},ISMEAN,{_r,{10,10,10,_c},7,2,8,_p,"1d8"}}, {"anhkheg",'a',10,{7,16,1},ISMEAN,{_r,{10,15,3,_c},20,3,2,_p,"3d6"}}, {"giant beetle",'b',0,{9,18,1},ISMEAN,{_r,{10,15,10,_c},30,5,3,_p,"4d4"}}, {"cockatrice",'c',100,{8,17,0},0,{_r,{10,10,11,_c},200,5,6,_p,"1d3"}}, {"bone devil",'d',0,{27,500,1},ISMEAN,{_r,{18,10,16,_c},8000,12,-1,_p,"5d4"}}, {"elasmosaurus",'e',0,{28,500,1},ISMEAN,{_r,{17,5,3,_c},4500,12,7,_p,"4d6"}}, {"killer frog",'f',0,{3,8,1},ISMEAN,{_r,{10,10,10,_c},4,3,8,_p,"2d3/1d4"}}, {"green dragon",'g',50,{25,500,1},0,{_r,{18,10,18,_c},7500,10,2,_p,"1d6/1d6/2d10"}}, {"hell hound",'h',20,{10,19,1},ISMEAN,{_r,{10,15,10,_c},30,5,4,_p,"1d10"}}, {"imp",'i',20,{2,9,1},ISMEAN|ISREGEN,{_r,{10,14,11,_c},6,2,1,_p,"1d4"}}, {"jaguar",'j',0,{10,19,0},0,{_r,{10,10,11,_c},25,8,6,_p,"2d3/2d5"}}, {"koppleganger",'k',20,{8,17,1},ISMEAN,{_r,{10,10,16,_c},35,4,5,_p,"1d12"}}, {"lonchu",'l',15,{2,9,1},ISMEAN,{_r,{10,4,18,_c},5,2,1,_p,"1d4/1d4"}}, {"minotaur",'m',0,{12,21,1},ISMEAN,{_r,{10,10,11,_c},40,8,6,_p,"1d3/2d4"}}, {"neotyugh",'n',10,{14,23,1},ISMEAN,{_r,{10,6,4,_c},50,6,3,_p,"1d8/1d8/2d3"}}, {"ogre",'o',50,{7,16,1},0,{_r,{20,10,10,_c},15,4,5,_p,"2d6"}}, {"pseudo dragon",'p',50,{9,18,1},0,{_r,{10,10,16,_c},20,4,2,_p,"2d3/1d6"}}, {"quellit",'q',85,{30,500,1},0,{_r,{17,10,10,_c},12500,17,0,_p,"2d10/2d6"}}, {"rhynosphinx",'r',40,{26,500,0},0,{_r,{19,6,18,_c},5000,13,-1,_p,"2d10/2d8"}}, {"shadow",'s',15,{5,14,1},ISMEAN|ISREGEN|ISINVIS,{_r,{10,17,18,_c},6,3,5,_p,"1d6"}}, {"titanothere",'t',0,{19,500,0},0,{_r,{17,6,3,_c},750,14,6,_p,"2d8/1d6"}}, {"ulodyte",'u',10,{2,8,1},ISMEAN,{_r,{10,10,10,_c},3,2,5,_p,"1d3/1d3"}}, {"vrock",'v',0,{4,13,1},ISMEAN,{_r,{10,10,11,_c},8,3,2,_p,"1d4/1d6"}}, {"wuccubi",'w',0,{14,23,1},ISMEAN,{_r,{10,10,10,_c},90,6,0,_p,"1d4/1d10"}}, {"xonoclon",'x',0,{20,500,0},0,{_r,{19,10,4,_c},1750,14,0,_p,"3d8"}}, {"yeenoghu",'y',10,{15,24,1},ISMEAN,{_r,{17,15,10,_c},250,8,1,_p,"3d6"}}, {"zemure",'z',0,{1,6,1},ISMEAN|ISREGEN,{_r,{10,10,10,_c},4,2,7,_p,"1d4"}}, {"devil Asmodeus",'A',-1,{1,500,1},ISMEAN|ISREGEN,{_r,{24,18,18,_c},500000,40,-10,_p,"4d10/4d10"}}, }; #undef _p /* erase these definitions */ #undef _c #undef _r struct h_list helpstr[] = { { '?', " prints help" }, { '/', " identify object" }, { 'h', " left" }, { 'j', " down" }, { 'k', " up" }, { 'l', " right" }, { 'y', " up & left" }, { 'u', " up & right" }, { 'b', " down & left" }, { 'n', " down & right" }, { 'H', " run left" }, { 'J', " run down" }, { 'K', " run up" }, { 'L', " run right" }, { 'Y', " run up & left" }, { 'U', " run up & right" }, { 'B', " run down & left" }, { 'N', " run down & right" }, { 't', "<dir> throw something" }, { 'f', "<dir> forward until find something" }, { 'p', "<dir> zap a wand in a direction" }, { 'z', " zap a wand or staff" }, { '>', " go down a staircase" }, { 's', " search for trap/secret door" }, { '.', " (dot) rest for a while" }, { 'i', " inventory pack" }, { 'I', " inventory single item" }, { 'q', " quaff potion" }, { 'r', " read a scroll" }, { 'e', " eat food" }, { 'w', " wield a weapon" }, { 'W', " wear armor" }, { 'T', " take armor off" }, { 'P', " put on ring" }, { 'R', " remove ring" }, { 'd', " drop object" }, { 'c', " call object" }, { 'O', " examine/set options" }, { 'a', " display maximum stats" }, { 'D', " dip object in pool" }, { CTRL('L')," redraw screen" }, { ESCAPE, " cancel command" }, { '!', " shell escape" }, { 'S', " save game" }, { 'Q', " quit" }, { 0, 0 } }; char *s_names[MAXSCROLLS]; /* Names of the scrolls */ char *p_colors[MAXPOTIONS]; /* Colors of the potions */ char *r_stones[MAXRINGS]; /* Stone settings of the rings */ struct rod ws_stuff[MAXSTICKS]; /* Stuff for sticks */ struct magic_item things[NUMTHINGS + 1] = { { "potion", 257, 5, }, { "scroll", 250, 30, }, { "food", 185, 7, }, { "weapon", 92, 0, }, { "armor", 92, 0, }, { "ring", 62, 5, }, { "stick", 62, 0, }, { "amulet", 0, -250, }, { NULL, 0, 0, }, }; struct magic_item a_magic[MAXARMORS + 1] = { { "leather armor", 170, 5 }, { "ring mail", 130, 30 }, { "studded leather armor", 130, 20 }, { "scale mail", 120, 3 }, { "padded armor", 100, 250 }, { "chain mail", 90, 75 }, { "splint mail", 90, 80 }, { "banded mail", 90, 90 }, { "plate mail", 50, 400 }, { "plate armor", 30, 650 }, { NULL, 0, 0 }, }; struct init_armor armors[MAXARMORS] = { { 8, 150, 500, }, { 7, 250, 650, }, { 7, 200, 550, }, { 6, 400, 900, }, { 6, 100, 450, }, { 5, 300, 650, }, { 4, 400, 700, }, { 4, 350, 600, }, { 3, 450, 950, }, { 2, 350, 750, }, }; struct magic_item w_magic[MAXWEAPONS + 1] = { { "mace", 70, 25 }, { "long sword", 70, 60 }, { "short bow", 60, 150 }, { "arrow", 60, 2 }, { "dagger", 20, 5 }, { "rock", 20, 1 }, { "two-handed sword", 50, 120 }, { "sling", 20, 5 }, { "dart", 30, 3 }, { "crossbow", 60, 70 }, { "crossbow bolt", 60, 3 }, { "spear", 70, 8 }, { "trident", 70, 90 }, { "spetum", 70, 50 }, { "bardiche", 70, 30 }, { "pike", 70, 75 }, { "bastard sword", 60, 100 }, { "halberd", 70, 40 }, { NULL, 0, 0 }, }; struct init_weps weaps[MAXWEAPONS] = { { "2d4", "1d3", 0, 100, 300, NONE }, { "1d10", "1d2", 0, 60, 180, NONE }, { "1d1", "1d1", 0, 40, 190, NONE }, { "1d1", "1d6", ISMANY|ISMISL, 5, 8, BOW }, { "1d6", "1d4", ISMISL, 10, 30, NONE }, { "1d2", "1d4", ISMANY|ISMISL, 5, 10, SLING }, { "3d6", "1d2", 0, 250, 550, NONE }, { "0d0", "0d0", 0, 5, 7, NONE }, { "1d1", "1d3", ISMANY|ISMISL, 5, 5, NONE }, { "1d1", "1d1", 0, 100, 250, NONE }, { "1d2", "1d10", ISMANY|ISMISL, 7, 11, CROSSBOW }, { "1d8", "1d6", ISMISL, 50, 200, NONE }, { "3d4", "1d4", 0, 50, 220, NONE }, { "2d5", "1d3", 0, 50, 200, NONE }, { "3d3", "1d2", 0, 125, 270, NONE }, { "1d12", "1d8", 0, 80, 260, NONE }, { "2d7", "1d2", 0, 100, 400, NONE }, { "2d6", "1d3", 0, 175, 370, NONE }, }; struct magic_item s_magic[MAXSCROLLS + 1] = { { "monster confusion", 50, 200 }, { "magic mapping", 52, 200 }, { "light", 80, 100 }, { "hold monster", 25, 200 }, { "sleep", 41, 50 }, { "enchant armor", 75, 175 }, { "identify", 211, 150 }, { "scare monster", 42, 300 }, { "gold detection", 32, 100 }, { "teleportation", 73, 200 }, { "enchant weapon", 91, 175 }, { "create monster", 34, 75 }, { "remove curse", 82, 100 }, { "aggravate monsters", 10, 50 }, { "blank paper", 11, 50 }, { "genocide", 5, 350 }, { "item knowledge", 14, 250 }, { "item protection", 9, 250 }, { "demons curse", 5, 25 }, { "transport", 11, 100 }, { "enchantment", 3, 300 }, { "gods blessing", 4, 450 }, { "aquirement", 3, 450 }, { "banishment", 5, 25 }, { "recharge wand", 14, 250 }, { "locate traps", 18, 185 }, { NULL, 0, 0 }, }; struct magic_item p_magic[MAXPOTIONS + 1] = { { "confusion", 69, 50 }, { "paralysis", 69, 50 }, { "poison", 55, 50 }, { "gain strength", 130, 150 }, { "see invisible", 25, 175 }, { "healing", 120, 130 }, { "monster detection", 59, 120 }, { "magic detection", 54, 105 }, { "raise level", 25, 300 }, { "extra healing", 52, 175 }, { "haste self", 41, 200 }, { "restore strength", 140, 200 }, { "blindness", 25, 50 }, { "thirst quenching", 10, 50 }, { "increase dexterity", 50, 175 }, { "etherealness", 20, 150 }, { "increase wisdom", 35, 175 }, { "regeneration", 10, 175 }, { "super ability", 3, 500 }, { "decrepedness", 4, 25 }, { "invincibility", 4, 500 }, { NULL, 0, 0 }, }; struct magic_item r_magic[MAXRINGS + 1] = { { "protection", 71, 200 }, { "strength", 70, 200 }, { "sustain strength", 45, 250 }, { "searching", 70, 150 }, { "see invisible", 77, 175 }, { "constitution", 13, 350 }, { "aggravate monster", 60, 100 }, { "agility", 75, 250 }, { "increase damage", 61, 250 }, { "regeneration", 41, 250 }, { "digestion", 60, 225 }, { "teleportation", 60, 100 }, { "stealth", 75, 200 }, { "speed", 40, 225 }, { "find traps", 27, 200 }, { "delusion", 18, 100 }, { "sustain ability", 9, 450 }, { "blindness", 10, 50 }, { "lethargy", 14, 75 }, { "ogre strength", 8, 350 }, { "enfeeblement", 5, 25 }, { "burden", 10, 50 }, { "illumination", 16, 100 }, { "fire protection", 5, 225 }, { "wisdom", 25, 200 }, { "dexterity", 35, 200 }, { NULL, 0, 0 }, }; struct magic_item ws_magic[MAXSTICKS + 1] = { { "light", 95, 120 }, { "striking", 75, 115 }, { "lightning", 30, 200 }, { "fire", 30, 200 }, { "cold", 30, 200 }, { "polymorph", 95, 210 }, { "magic missile", 70, 170 }, { "haste monster", 80, 50 }, { "slow monster", 90, 220 }, { "drain life", 80, 210 }, { "nothing", 10, 70 }, { "teleport away", 55, 140 }, { "teleport to", 50, 60 }, { "cancellation", 55, 130 }, { "sap life", 20, 50 }, { "curing", 25, 250 }, { "pyromania", 15, 25 }, { "annihilate monster", 5, 750 }, { "paralyze monster", 10, 650 }, { "food absorption", 10, 75 }, { "regenerate monster", 15, 25 }, { "hide monster", 10, 50 }, { "anti-matter", 5, 25 }, { "clone monster", 10, 10 }, { "confuse monster", 15, 150 }, { "degenerate monster", 15, 150 }, { NULL, 0, 0 }, }; struct magic_info thnginfo[NUMTHINGS] = { { MAXPOTIONS, V_POTION, POTION, p_magic, }, { MAXSCROLLS, V_SCROLL, SCROLL, s_magic, }, { MAXFOODS, V_FOOD, FOOD, NULL, }, { MAXWEAPONS, V_WEAPON, WEAPON, w_magic, }, { MAXARMORS, V_ARMOR, ARMOR, a_magic, }, { MAXRINGS, V_RING, RING, r_magic, }, { MAXSTICKS, V_STICK, STICK, ws_magic, }, { MAXAMULETS, V_AMULET, AMULET, NULL, }, }; long e_levels[] = { 10L,20L,40L,80L,160L,320L,640L,1280L,2560L,5120L,10240L,20480L, 40920L, 81920L, 163840L, 327680L, 655360L, 1310720L, 2621440L, 3932160L, 5242880L, 7864320L, 10485760L, 15728640L, 20971520L, 41943040L, 83886080L, 167772160L, 335544320L, 0L, }; WINDOW *cw; /* what the hero sees */ WINDOW *hw; /* utility window */ WINDOW *mw; /* monster window */