-+-+-+-+-+-+-+-+ START OF PART 82 -+-+-+-+-+-+-+-+ X ('Steve Batch Jobs (Scientist) Computer Store',`09 1,0.15,0.50,2), X ('Donald Canoeth (Scientist) Computer Store',`09 1,0.20,0.50,2), X ('Jimmy Wayne Todd (Programmer) Computer Store',`09 1,0.30,0.55,2), X ('Robert Alan Koeneke (Programmer) Computer Store',`09 1,0.40,0.55,2)) V, X X(('cloister (Soldier) Guild',`09`09 1,0.06,0.40,5), X ('Cutpurse Mallone (Thief) Guild',`09`09 1,0.08,0.40,8), X ('Lightfingered Lisa (Con-Artist) Guild',`09`09 1,0.10,0.45,7), X ('Peg Leg Pete (Soldier) Guild',`09`09 1,0.12,0.45,5), X ('Captain Blight (Soldier) Guild',`09`09 1,0.15,0.50,5), X ('Russell Fingers (Con-Artist) Guild',`09`09 1,0.20,0.50,7), X ('Milo Minderbender (Soldier) Guild',`09`09 1,0.30,0.55,5), X ('Six Fingered Louie (Thief) Guild',`09`09 1,0.40,0.55,8))); X X joblist := ('Dish Washer','Boiler Room Worker','Bellhop', X`09 'Doorman','Security Guard','Gourmet Chef', X`09 'Body Guard','Accountant','Hotel Manager'); X X jobwage := (3,5,7,9,11,15,25,40,90); X X townlist := ( X X('Seattle',10,0), X('Boise',10,6), X('Denver',10,12), X('Kansas City',10,18), X('Chicago',10,24), X('Detroit',10,30), X('Pittsburgh',10,36), X('New York City',50,42) `20 X); X X berz_y := (0,-1,-1,-1,0,1,1,1); X berz_x := (-1,-1,0,1,1,1,0,-1); X X circle := (3,3,3,2,2,2,1,1,0); X X X`20 X`7B Treasure related values `7D X inven_ctr := 0; X inven_weight := 0; X missle_ctr := 0; X equip_ctr := 0; X blank_treasure := (' ',0,' ',0,0,0,0,0,0,0,0,0,0,' ',0); X`20 X`7B Gold list (All types of gold and gems are defined here) `7D X gold_list := ( X('nickels', 100, '$' ,%X'00000000', 0, 1,2,0,0,0,0,0,0, ' ' , 1), X('arcade tokens',100, '$' ,%X'00000000', 0, 1,2,0,0,0,0,0,0, ' ' , 1), X('dimes', 100, '$' ,%X'00000000', 0, 2,2,0,0,0,0,0,0, ' ' , 1), X('trinkets',100, '*' ,%X'00000000', 0, 2,3,0,0,0,0,0,0, ' ' , 1), X('blank disks',100, '*' ,%X'00000000', 0, 3,3,0,0,0,0,0,0, ' ' , 1), X('postage stamps',100,'$' ,%X'00000000', 0, 3,1,0,0,0,0,0,0, ' ' , 1), X('loose change', 100, '$' ,%X'00000000', 0, 5,2,0,0,0,0,0,0, ' ' , 1), X('pez dispensers' ,100, '*' ,%X'00000000', 0, 5,3,0,0,0,0,0,0, ' ' , 1), X('bubble gum', 100, '*' ,%X'00000000', 0, 8,3,0,0,0,0,0,0, ' ' , 1), X('gold fillings',100, '*' ,%X'00000000', 0, 10,3,0,0,0,0,0,0, ' ' , 1), X('foreign bills', 100,'$' ,%X'00000000', 0, 10,1,0,0,0,0,0,0, ' ' , 1), X('old comic books',100, '*' ,%X'00000000', 0, 15,3,0,0,0,0,0,0, ' ' , 1), X('$1 bills',100, '$' ,%X'00000000', 0, 15,1,0,0,0,0,0,0, ' ' , 1), X('food stamps',100, '$' ,%X'00000000', 0, 15,1,0,0,0,0,0,0, ' ' , 1), X('small bills',100, '$' ,%X'00000000', 0, 20,1,0,0,0,0,0,0, ' ' , 1), X('silicon chips' , 100, '*' ,%X'00000000', 0, 20,3,0,0,0,0,0,0, ' ' , 1), X('chic jewelry' ,100, '*' ,%X'00000000', 0, 25,4,0,0,0,0,0,0, ' ' , 1), X('digital watches',100, '*' ,%X'00000000', 0, 30,3,0,0,0,0,0,0, ' ' , 1), X('car stereos' , 100, '*' ,%X'00000000', 0, 50,4,0,0,0,0,0,0, ' ' , 1), X('large bills',100, '$' ,%X'00000000', 0, 60,1,0,0,0,0,0,0, ' ' , 1), X('illegal drugs', 100, '*' ,%X'00000000', 0, 70,3,0,0,0,0,0,0, ' ' , 1), X('uncut diamonds',100, '*' ,%X'00000000', 0, 75,3,0,0,0,0,0,0, ' ' , 1), X('silver coins',100, '$' ,%X'00000000', 0, 80,2,0,0,0,0,0,0, ' ' , 1), X('quarters',100, '$' ,%X'00000000', 0, 80,2,0,0,0,0,0,0, ' ' , 1), X('gold coins',100, '$' ,%X'00000000', 0,100,2,0,0,0,0,0,0, ' ' , 1), X('gold dust', 100, '*' ,%X'00000000', 0,100,3,0,0,0,0,0,0, ' ' , 1), X('stock certificates',100,'$',%X'00000000',0,120,1,0,0,0,0,0,0, ' ' , 1), X('alien crystals',100, '*' ,%X'00000000', 0,150,5,0,0,0,0,0,0, ' ' , 1), X('diamonds',100, '*' ,%X'00000000', 0,200,3,0,0,0,0,0,0, ' ' , 1), X('alien crystals',100, '*' ,%X'00000000', 0,300,5,0,0,0,0,0,0, ' ' , 1)); X`20 X`7B Descriptive phrases `7D X colors := ('Amber','Azure','Blue','Blue Speckled','Blue Spotted', X 'Black','Black Speckled','Black Spotted','Brown', X 'Brown Speckled','Brown Spotted','Bubbling', X 'Chartreuse','Clear','Cloudy','Copper','Copper Spotted V', X 'Crimson','Cyan','Dark Blue','Dark Green','Dark Red', X 'Ecru','Gold','Gold Spotted','Green','Green Speckled', X 'Green Spotted','Grey','Grey Spotted','Hazy','Indigo', X 'Light Blue','Light Green','Magenta','Metallic Blue', X 'Metallic Red','Metallic Green','Metallic Purple', X 'Misty','Orange','Orange Speckled','Orange Spotted', X 'Pink','Pink Speckled','Plaid','Puce','Purple', X 'Purple Speckled','Purple Spotted','Red','Red Speckled V', X 'Red Spotted','Silver','Silver Speckled', X 'Silver Spotted','Smokey','Tan','Tangerine','Topaz', X 'Turquoise','Violet','Vermillion','White', X 'White Speckled','White Spotted','Yellow', X`09`09 'Navy Blue','Striped','Maroon','Filmy','Holographic', X`09`09 'Polka-Dot','Silly','Bloody'); X X mushrooms := ( X 'Blue','Black','Brown','Copper','Crimson','Dark blue', X 'Dark green','Dark red','Gold','Green','Grey', X 'Light Blue','Light Green','Orange','Pink','Plaid', X 'Purple','Red','Tan','Turquoise','Violet','White', X 'Yellow','Wrinkled','Wooden','Slimey','Speckled', X 'Spotted','Furry' ); X woods := ( X`09`09 'Terra-cotta','Frenisium','Rectangular','Not there', X`09`09 'Flammable','Icy','Gurgling','Broken', X`09`09 'Bubbly','Crispy-crunchy','Deformed','Sluggish', X`09`09 'Massy','Fossilized','Plaid flannel','Tacky', X`09`09 'Objet-d''art','Very very tiny','Vibrating','Talkative', X`09`09 'Half baked','Sauteed','Over easy','Bar-b-queued', X`09`09 'MKS unit','Barrel-like','Polymerized','Phenelalenuric', X`09`09 'Rabbit-fur','Teak','Edible','Bitchin''', X`09`09 'Growing','Lethal','Kinky','Demon-spawn', X`09`09 'Daisyian','Scaly','Warm','Soft'); X metals := ( X`09`09 'Long','Skinny','Thick','Short','Curved','Notched', X`09`09 'Ribbed','Hollow','Heavy','Really big','Maniacal', X`09`09 'Cherry flavored','Caffeine free','Frenesium','Flammable', X`09`09 'Broken','Deformed','Daisyian','Pulsating','Berzerker', X`09`09 '''...---...''','Unguessable','Electronic','Diamond', X`09`09 'Unsatisfactory','Massive','Wow! a','Not very good', X`09`09 'My favorite','Reagan','RADIOACTIVE!' X`09`09 ); X rocks := ( X 'Beatles','Agate','Alexandrite','Amethyst','Antlerite' V, X 'Aquamarine','Argentite','Azurite','Beryl','Bloodstone V', X 'Calcite','Carnelian','Coral','Corundum','Cryolite', X 'Diamond','Diorite','Emerald','Flintstones','Fluorite' V, X 'Gabbro','Garnet','Granite','Gypsum','Hematite','Jade' V, X 'Jasper','Kryptonite','Lapus lazuli','Pink Floyd', X 'Malachite','Manganite','Marble','Moonstone','Mudstone V', X 'Neptunite','Obsidian','Doors','Opulent','Pyrite', X 'Quartz','Quartzite','Rhodonite','Rhyolite','Ruby', X 'Saphire','Sphalerite','Staurolite','Tiger eye','Topaz V', X 'Turquoise','Rolling Stones','Bowie' ); X amulets := ( X 'Birch','Ceder','Dogwood','Driftwood','Elm wood', X 'Hemlock','Hickory','Mahogany','Maple','Oak','Pine', X 'Redwood','Rosewood','Walnut','Aluminium','Bone','Bras Vs', X 'Bronze','Copper','Iron','Lead','Nickel','Agate', X 'Amethyst','Diamond','Emerald','Flint','Garnet','Jade' V, X 'Obsidian','Onyx','Opal','Pearl','Quartz','Ruby', X 'Saphire','Tiger eye','Topaz','Turquoise' ); X syllables := ( X`7Btentype`7D`09 'Methods','Methods','Methods', X`09`09 'One way','Two ways','Ways','Many ways', X`7BNoun`7D`09`09 'A program','Programs','Programs','Games', X`09`09 'Steps','Two steps','Reasons','Questions', X`09`09 'Problems','Puzzles','Truths','Lies','Sayings', X`09`09 `20 X`09`09 'amuse','kill','scare','sway','buckle', X`7BVerb`7D`09`09 'compile','destroy','maim','locate','find', X`09`09 'negate','enhance','help','dismay','surprise', X`09`09 'file','delete','link','separate','repair', X`09`09 `20 X`09`09 'your','many','two','three','four','many', X`7BAdjective`7D`09 'several','lots of','a lot of','ribbed', X`09`09 'simple','strange','glowing','trapped', X`09`09 'angry','lost','broken','many','your','evil', X`09`09 `20 X`09`09 'friends','enemies','weapons','helms','neighbors', X`7BPlural Noun`7D`09 'monsters','creatures','aliens','mutants', X`09`09 'friends','traps','eyes','people','junk', X`09`09 'doors','bones','disks','towels','walls','robots' ); X`20 X`7B Used in DESC.INC for replacing the & in descriptions `7D X vowel_set := `5B'a','e','i','o','u','A','E','I','O','U'`5D; X`20 X X X`7B Monster Values `7D X X X attack_desc := (`09`7Bmax 60 chars long`7D X`20 X 'hits you.', X 'bites you.', X 'claws you.', X 'stings you.', X 'touches you.', X 'kicks you.', X 'gazes at you.', X 'breathes on you.', X 'spits on you.', X 'makes a horrible wail.', X 'embraces you.', X 'crawls on you.', X 'release a cloud of spores.', X 'begs you for money.', X 'covers you with slime.', X 'crushes you.', X 'tramples you.', X 'drools on you.', X 'random Eddie attacks.', X 'touches you with its tentacles.', X 'head-butts you.', X 'recites poetry at you.', X 'mentally stabs you.', X 'moons you.', X 'comments about your mother.', X 'makes the ground beneath your feet strike you.', X 'shoots you.', X 'chews on you.', X 'makes your brain bleed.', X 'does a ninja kick.', X 'blasts you with an alien device.', X 'surrounds you.', X 'shocks you.', X 'wrestles you to the floor.', X 'does the infamous daysian mind-trick on you.', X 'smacks you but good.', X 'stabs you.', X 'slices and dices you.', X 'sears you with a blast of heat.', X 'turns your own weapon against you.', X 'lip sync''s at you.', X 'asks you for directions.', X 'rings a bell.', X 'changes the save file.', X`7B45`7D 'is repelled.'); X `20 X X hit_desc := (`09`7Bmax 14 chars long`7D X X 'smack around', X 'pound', X 'thwap', X 'hit', X 'wallop', X 'slice', X 'slash', X 'bash', X 'thump', X 'wail on'); X X X`7B Misc. Junk Values `7D X X raoul := ('S','B','O','S'); X wall_chr := '###&8#@8@&'; `7B (dun_level mod 10) +1 --> 1-10`7D X alpha_set := 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'; X open_cave_set := `5B0,2,3,5,7,8`5D; X X X X`7B Store Values `7D X X store_choice := ( X`7B K-Mart `7D X(6,7,8,9,10,11,28,29,30,31,57,57,57,59,59,59,59,60,60,60,60,64,64,70,81,86), X X`7B Leather & Chains `7D X(65,65,65,72,72,73,73,74,76,76,77,77,78,78,79, X80,81,81,82,82,83,83,84,84,85,85), X X`7B Weapon Shop `7D X(32,32,33,33,34,34,35,35,36,36,37,37,38,38, X42,42,43,43,44,44,45,45,46,46,154,154), X X`7B Temple `7D X(11,11,87,87,88,88,89,90,90,91,91,92,92,93,93, X110,110,111,111,111,112,112,112,113,113,113), X X`7B Bar and Grill `7D X(1,1,2,3,4,5,114,115,116,117,118,119,120,121,122,123, X124,135,138,139,148,149,150,151,152,153), X X`7B Alien Artifacts `7D X(125,126,127,128,129,130,131,132,133,134,140,155, X125,126,127,128,128,129,130,131,131,132,133,134,140,155), X X`7BBlack Market - non standard inventory`7D X(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1), X X`7BGun Shop`7D X(47,47,48,48,49,49,50,50,51,51,52,52, X53,53,53,54,54,54,55,56,156,156,157,157,158,158), X X`7BPro Shop`7D X(12,13,14,15,16,17,17,19,20,21,22,23,24,25,26,27,39,40,41, X63,66,67,68,69,71,75), X X`7BComputer Store`7D X(94,95,96,97,98,99,100,101,102,103,104,105, X106,107,107,108,108,109,109,136,137,137, X145,145,146,147), X X`7BGuild`7D X(18,28,29,30,31,58,58,61,61,62,62,102,128,132,133, X141,141,142,142,142,143,143,143,144,144,144)); X`20 X`7B Each type of character starts out with a lots of provisions... X NOTE: the the entries refer to array elements of INVENTORY_INIT array`7D X player_init := ( X`7B Wrestler `7D (1,60,17,40,71,69,120,97), `20 X`7B Scientist `7D (1,60,6,39,70,63,115,106), `20 X`7B Guru `7D (1,60,11,39,70,63,116,110), X`7B Ninja `7D (1,60,34,44,70,82,120,97), `20 X`7B Soldier `7D (1,60,48,53,76,65,115,106), `20 X`7B Wanderer `7D (1,60,11,39,70,63,116,110), `20 X`7B Con-Artist `7D (1,60,6,43,70,82,117,141), X`7B Thief`09 `7D (1,60,6,43,70,82,117,141),`20 X`7B Test`09 `7D (1,60,6,41,70,63,106,107)); $ CALL UNPACK [.INC]VALUES.INC;1 1907083 $ create 'f' Xvar `20 X tempfile : text; `7Bdebugging file`7D X scumuser : boolean; `7B used when detecting users who shouldn't play `7 VD X putzuser : boolean; X validuser : boolean; X resist_gas : `5Bpsect(player$data)`5D boolean; `7BSoon to be a py.flag` V7D X max_weight : `5Bpsect(weight$code)`5D integer; X is_boss_dead : `5Bpsect(boss$code)`5D boolean; X total_winner_num : `5Bpsect(setup$data)`5D integer; X defeated_badguy : `5Bpsect(setup$data)`5D boolean; X out_of_time : boolean; `7B 100-day time limit flag. -jeb`7D X max_creatures : `5Bpsect(moria$data)`5D integer; `7Btotal # of monsters V in mlist`7D X max_objects : `5Bpsect(moria$data)`5D integer; `7Btotal # in objects.dat V `7D X inven_init_max : `5Bpsect(moria$data)`5D integer; `7B Size of store inve Vntory `7D X player_max_exp : `5Bpsect(player$data)`5D integer; `7B Max exp possible V `7D X seed : `5Bpsect(player$data),global`5D unsigned; `7B Contains seed # `7D +-+-+-+-+-+-+-+- END OF PART 82 +-+-+-+-+-+-+-+-