-+-+-+-+-+-+-+-+ START OF PART 91 -+-+-+-+-+-+-+-+
X (''`09`09`09`09,99,99,`09 0,  0,false),
X (''`09`09`09`09,99,99,`09 0,  0,false),
X (''`09`09`09`09,99,99,`09 0,  0,false),
X (''`09`09`09`09,99,99,`09 0,  0,false),
X (''`09`09`09`09,99,99,`09 0,  0,false),
X (''`09`09`09`09,99,99,`09 0,  0,false),
X (''`09`09`09`09,99,99,`09 0,  0,false),
X (''`09`09`09`09,99,99,`09 0,  0,false),
X (''`09`09`09`09,99,99,`09 0,  0,false),
X (''`09`09`09`09,99,99,`09 0,  0,false),
X (''`09`09`09`09,99,99,`09 0,  0,false),
X (''`09`09`09`09,99,99,`09 0,  0,false),
X (''`09`09`09`09,99,99,`09 0,  0,false),
X (''`09`09`09`09,99,99,`09 0,  0,false),
X (''`09`09`09`09,99,99,`09 0,  0,false),
X (''`09`09`09`09,99,99,`09 0,  0,false),
X (''`09`09`09`09,99,99,`09 0,  0,false),
X (''`09`09`09`09,99,99,`09 0,  0,false),
X (''`09`09`09`09,99,99,`09 0,  0,false),
X (''`09`09`09`09,99,99,`09 0,  0,false),
X (''`09`09`09`09,99,99,`09 0,  0,false),
X (''`09`09`09`09,99,99,`09 0,  0,false),
X (''`09`09`09`09,99,99,`09 0,  0,false)
X`09`09       ) );
X`20
X
X
X`09`7B Create fake book for using monk disciplines`09`09`7D
X monk_book :=
X('& Book of Mental Disciplines'`09`09`09   ,  miscellaneous_object, '?',%X'0
V0000000',%X'00003FFF',
X    0,      0,   1,  10,   1,   0,   0,   0,   0, '0d0'  ,  1);
X
X`09char_row`09:= 0;
X`09char_col`09:= 0;
X`20
X`09`7B Initialize player generation variables`09`09`09`7D
X`09sex_type  := 'FemaleMale  ';
X`20
X`09`7BRace`09(STR,INT,WIS,DEX,CON,CHR),
X`09`09age,,mht,,mwt,,fht,,fwt,,bxp,
X`09Racial: dis,srh,stl,fos,bth,bthb,bsav,HD,infra,swim,classes`7D
X`20
X`09`7B For choice-classes, the bits run in reverse order, with adventurer
X`09  on the left, and fighter on the right.
XMonk, Adventurer, Bard, Druid, Paladin, Ranger, Rogue, Priest, Mage, Warrior
V `7D
X`20
X`09race`09:=`09(
X`09`09('Human',   (  0,  0,  0,  0,  0,  0),
X`09`09`09 14,  6, 72,  6,180, 25, 66,  4,120, 20, 1.00,
X`09`09 0,  0,  0,  0,  0,  0,  0, 10,  0,  0, %B'1111111111'`09),
X`09`09('Half-Elf', (-1,  1,  0,  1, -1,  1),
X`09`09`09 24, 16, 66,  6,130, 15, 62,  6,100, 10, 1.10,
X`09`09 2,  6,  1, -1,  0,  5,  3,  9,  0,  1, %B'1111111111'`09),
X`09`09('Elf',`09     (-1,  2,  1,  1, -2,  1),
X`09`09`09 75, 75, 60,  4,100,  6, 54,  4, 80,  6, 1.20,
X`09`09 5,  8,  1, -2, -5, 15,  6,  8,  0,  2, %B'0111011111'`09),
X`09`09('Halfling', (-2,  2,  1,  3,  1,  1),
X`09`09`09 21, 12, 36,  3, 60,  3, 33,  3, 50,  3, 1.10,
X`09`0915, 12,  4, -5,-10, 20, 18,  6,  4, -2, %B'1011001010'`09),
X`09`09('Gnome',    (-1,  2,  0,  2,  1, -2),
X`09`09`09 50, 40, 42,  3, 90,  6, 39,  3, 75,  3, 1.25,
X`09`0910,  6,  3, -3, -8, 12, 12,  7,  3, -1, %B'0001001110'`09),
X`09`09('Dwarf',     (2, -3,  1, -2,  2, -3),
X`09`09`09 35, 15, 48,  3,150, 10, 46,  3,120, 10, 1.20,
X`09`09 2,  7,  0,  0, 15,  0,  9,  9,  5, -2, %B'0001000101'`09),
X`09`09('Half-Orc',  (2, -1,  0,  0,  1, -4),
X`09`09`09 11,  4, 66,  1,150,  5, 62,  1,120,  5, 1.10,
X`09`09-3,  0, -1,  3, 12, -5, -3, 10,  3,  0, %B'1000001101'`09),
X`09`09('Half-Troll',(4, -4, -3, -4,  4, -6),
X`09`09`09 20, 10, 96, 10,300, 50, 84,  8,260, 40, 1.20,
X`09`09-5, -1, -2,  5, 20,-10, -9, 12,  3,  2, %B'0000000101'`09),
X`09`09('Phraint',   (0,  0, -4,  5,  0, -3),
X`09`09`09 15, 10, 96, 24,100, 20, 84, 12, 95, 16, 1.20,
X`09`0915, 10,  5,  4,  3,  5, -3,  8,  5, -1, %B'1110011011'`09),
X`09`09('Dryad',    (-1,  0,  3,  0, -2,  3),
X`09`09`09 75, 75, 60,  4, 85,  6, 40,  4, 70,  6, 1.20,
X`09`09 2,  6,  1, -1,  0,  5,  3,  7,  3, -1, %B'1011010100'`09)
X`09`09);
X`20
X`09`7B Buying and selling adjustments for character race VS store`09`7D
X`09`7B owner race`09`09`09`09`09`09`09`7D
X`20
X`09rgold_adj :=`09(
X`09      `7B`09 Hum,  HfE,  Elf,  Hal,`09 Gno,  Dwa,  HfO,  HfT,`09 Phr,  Dr
Vy`7D
X`7BHuman`09    `7D ( 0.00, 0.05, 0.05, 0.10, 0.13, 0.15, 0.20, 0.25, 0.20, 0
V.05),
X`7BHalf-Elf   `7D ( 0.10, 0.00, 0.00, 0.05, 0.10, 0.20, 0.25, 0.30, 0.25, 0.
V05),
X`7BElf`09    `7D ( 0.10, 0.05, 0.00, 0.05, 0.10, 0.20, 0.25, 0.30, 0.30, 0.0
V0),
X`7BHalfling   `7D ( 0.15, 0.10, 0.05,-0.05, 0.05, 0.10, 0.15, 0.30, 0.25, 0.
V05),
X`7BGnome`09    `7D ( 0.15, 0.15, 0.10, 0.05,-0.05, 0.10, 0.15, 0.30, 0.20, 0
V.15),
X`7BDwarf`09    `7D ( 0.15, 0.20, 0.20, 0.10, 0.10,-0.05, 0.25, 0.35, 0.15, 0
V.30),
X`7BHalf-Orc   `7D ( 0.15, 0.20, 0.25, 0.15, 0.15, 0.30, 0.10, 0.15, 0.15, 0.
V25),
X`7BHalf-Troll `7D ( 0.10, 0.15, 0.15, 0.10, 0.10, 0.30, 0.10, 0.10, 0.15, 0.
V25),
X`7BPhraint    `7D ( 0.20, 0.25, 0.30, 0.25, 0.20, 0.15, 0.15, 0.15,-0.10, 0.
V20),
X`7BDryad`09    `7D ( 0.10, 0.05, 0.05, 0.05, 0.15, 0.30, 0.30, 0.25, 0.20,-0
V.05)
X`09`09`09);
X`20
X`09`7B Classes...`09
X title, m_exp, adj_hd, mdis, msrh, mstl, mfos, mbth, mbthb, msav,(stat adjs)
V,
X??,??,??,??,??,??`7D
X
X`09class`09:=`09(
X('Warrior',0.00,10, 25,14, 1, 38,10, 8,10,( 5,-2,-2, 2, 2,-1),
X`09   false,false,false,false,false,-10),
X('Mage',   0.30, 0, 30,16, 2, 36, 4, 4,25,(-5, 3, 0, 0,-2, 0),
X`09   false,true ,false,false,false,0),
X('Priest', 0.20, 3, 25,16, 2, 32, 6, 5,20,( 0,-3, 3,-1, 1, 2),
X`09   true ,false,false,false,false,0),
X('Rogue',  0.10, 6, 45,32, 4, 16, 6,10,15,( 2, 0,-2, 3, 1, 1),
X`09   false,false,false,true ,false,-5),
X('Ranger', 0.30, 4, 30,24, 3, 24, 6,10,20,( 2, 0, 1, 1, 1, 2),
X`09   false,false,true ,false,false,-5),
X('Paladin',0.35, 6, 20,12, 1, 38, 8, 6,15,( 3,-3, 1, 0, 2, 2),
X`09   true ,false,false,false,false,-5),
X('Druid',  0.20, 3, 25,16, 1, 32, 4, 7,20,(-1,-1, 2, 0, 0, 3),
X`09   false,false,true ,false,false,-5),
X('Bard',   0.30, 4, 30,22, 2, 28, 5, 6,20,( 2, 1,-1, 2, 0, 3),
X`09   false,false,false,true ,false,-5),
X('Adventurer',0.40,4,30,24,3, 24, 6, 6,20,( 2, 2,-1, 1, 1, 0),
X`09   false,true ,false,false,false,-5),
X('Monk',   0.10, 4, 45,24, 3, 24, 8, 6,25,( 2, 0, 2, 3, 1, 1),
X`09   false,false,false,false,true,-5)
X`09`09`09);
X`20
X`09`7B Class titles for different levels`09`09`09`09`7D
X`09player_title`09:=`09(
X`09`7B Warrior`09`7D
X('Novice','Veteran(1st)','Veteran(2nd)','Veteran(3rd)','Warrior(1st)',
X'Warrior(2nd)','Warrior(3rd)','Swordsman-1','Swordsman-2','Swordsman-3',
X'Hero','Swashbuckler','Myrmidon','Champion-1','Champion-2','Champion-3',
X'Superhero','Knight','Superior Knt','Gallant Knt','Knt Errent','Keeper',
X'Protector','Defender','Warder','Guardian Knt','Chevalier','Justiciar',
X'Lord (1st)','Lord (2nd)','Lord (3rd)','Lord (4th)','Lord (5th)','Lord (6th)
V',
X'Lord (7th)','Lord (8th)','Lord (9th)','Lord Gallant','Lord Keeper',
X'Lord Noble'),
X`09`7B Mage`09`09`7D
X('Novice','Apprentice','Trickster-1','Trickster-2','Trickster-3','Cabalist-1
V',
X'Cabalist-2','Cabalist-3','Visionist','Phantasmist','Shadowist','Spellbinder
V',
X'Illusionist','Evoker (1st)','Evoker (2nd)','Evoker (3rd)','Evoker (4th)',
X'Conjurer','Theurgist','Thaumaturer','Magician','Enchanter','Warlock',
X'Sorcerer','Necromancer','Mage (1st)','Mage (2nd)','Mage (3rd)','Mage (4th)'
V,
X'Mage (5th)','Wizard (1st)','Wizard (2nd)','Wizard (3rd)','Wizard (4th)',
X'Wizard (5th)','Wizard (6th)','Wizard (7th)','Wizard (8th)','Wizard (9th)',
X'Wizard Lord'),
X`09`7B Priests`09`7D
X('Believer','Acolyte(1st)','Acolyte(2nd)','Acolyte(3rd)','Adept (1st)',
X'Adept (2nd)','Adept (3rd)','Priest (1st)','Priest (2nd)','Priest (3rd)',
X'Priest (4th)','Priest (5th)','Priest (6th)','Priest (7th)','Priest (8th)',
X'Priest (9th)','Curate (1st)','Curate (2nd)','Curate (3rd)','Curate (4th)',
X'Curate (5th)','Curate (6th)','Curate (7th)','Curate (8th)','Curate (9th)',
X'Canon (1st)','Canon (2nd)','Canon (3rd)','Canon (4th)','Canon (5th)',
X'Low Lama','Lama-1','Lama-2','Lama-3','High Lama','Great Lama','Patriarch',
X'High Priest','Great Priest','Noble Priest'),
X`09`7B Rogues`09`7D
X('Apprentice','Footpad','Cutpurse','Robber','Burglar','Filcher','Sharper',
X'Magsman','Common Rogue','Rogue (1st)','Rogue (2nd)','Rogue (3rd)',
X'Rogue (4th)','Rogue (5th)','Rogue (6th)','Rogue (7th)','Rogue (8th)',
X'Rogue (9th)','Master Rogue','Expert Rogue','Senior Rogue','Chief Rogue',
X'Prime Rogue','Low Thief','Thief (1st)','Thief (2nd)','Thief (3rd)',
X'Thief (4th)','Thief (5th)','Thief (6th)','Thief (7th)','Thief (8th)',
X'Thief (9th)','High Thief','Master Thief','Executioner','Low Assassin',
X'Assassin','HighAssassin','Guildsmaster'),
X`09`7B Rangers`09`7D
X('Runner (1st)','Runner (2nd)','Runner (3rd)','Strider (1st)','Strider (2nd)
V',
X'Strider (3rd)','Scout (1st)','Scout (2nd)','Scout (3rd)','Scout (4th)',
X'Scout (5th)','Courser (1st)','Courser (2nd)','Courser (3rd)','Courser (4th)
V',
X'Courser (5th)','Tracker (1st)','Tracker (2nd)','Tracker (3rd)',
X'Tracker (4th)','Tracker (5th)','Tracker (6th)','Tracker (7th)',
X'Tracker (8th)','Tracker (9th)','Guide (1st)','Guide (2nd)','Guide (3rd)',
X'Guide (4th)','Guide (5th)','Guide (6th)','Guide (7th)','Guide (8th)',
X'Guide (9th)','Pathfinder-1','Pathfinder-2','Pathfinder-3','Ranger',
X'High Ranger','Ranger Lord'),
X`09`7B Paladins`09`7D
X('Gallant','Keeper (1st)','Keeper (2nd)','Keeper (3rd)','Keeper (4th)',
X'Keeper (5th)','Keeper (6th)','Keeper (7th)','Keeper (8th)','Keeper (9th)',
X'Protector-1','Protector-2','Protector-3','Protector-4','Protector-5',
X'Protector-6','Protector-7','Protector-8','Defender-1','Defender-2',
X'Defender-3','Defender-4','Defender-5','Defender-6','Defender-7','Defender-8
V',
X'Warder (1st)','Warder (2nd)','Warder (3rd)','Warder (4th)','Warder (5th)',
X'Warder (6th)','Warder (7th)','Warder (8th)','Warder (9th)','Gauardian',
X'Chevalier','Justiciar','Paladin','High Lord'),
X`09 `7B Druids`09`7D
X('Aspirant-1','Aspirant-2','Ovate (1st)','Ovate (2nd)','Ovate(3th)',
X'Initiate-1','Initiate-2',
X'1st Cabal','2nd Cabal','3rd Cabal','4th Cabal','5th Cabal','6th Cabal',
X'7th Cabal','8th Cabal','9th Cabal','10th Cabal','11th Cabal','12th Cabal',
X'13th Cabal','Low Druid','Druid (1st)','Druid (2nd)','Druid (3rd)',
X'Druid (4th)','Druid (5th)','Druid (6th)','Adept Druid','Arch Druid',
X'Great Druid','Master Druid','Grand Druid','Lord Druid','LowHierophant',
X'Hierophant-1','Hierophant-2','Hierophant-3','Hierophant-4','Hierophant-5',
X'Forest Master'),
X`09 `7B Bards`09`7D
X('Singer','Rhymer','Joker','Lyrist (1st)','Lyrist (2nd)','Lyrist (3rd)',
X'Jester (1st)','Jester (2nd)','Sonnateer-1',
X'Sonnateer-2','Sonnateer-3','Skald (1st)','Skald (2nd)','Skald (3rd)',
X'Comic (1st)','Comic (2nd)','Comic (3rd)','Racaraide-1','Racaraide-2',
X'Racaraide-3','Joungleur-1','Joungleur-2','Joungleur-3','Minstrel-1',
X'Minstrel-2','Minstrel-3','Muse (1st)','Muse (2nd)','Muse(3rd)','Lorist (1st
V)',
X'Lorist (2nd)','Lorist (3rd)','Initiate Bard','Bard (1st)','Bard (2nd)',
X'Bard (3rd)','Master Bard-1','Master Bard-2','Master Bard-3','Bardic Sage'),
X`09`7B Adventurer`09`7D
X('Dimwit','Beginner','Amateur','Flathead','PileofLeaves','Novice','Brass Bel
Vl',
X'Orange Cake','White Unicorn','Charlatan','CloveofGarlic','Nasty Knife',
X'ParlorMgician','Gaudy Crown','Loaf of Bread','Lurking Grue','Noisome Stew',
X'Broken Timber','Granite Wall','FCD #3','Adventurer-1','Adventurer-2',
X'Adventurer-3','AIMFIZ Scroll','VILSTU Potion','Sr Adventurer','Master Advnt
V',
X'WizofFrobozz','Enchanter','Sorcerer','Wizard (1st)','Wizard (2nd)',
X'Wizard (3rd)','Wizard (4th)','Wizard (5th)','Wizard (6th)','Wizard (7th)',
X'Zorkmid Coin','DungeonMaster','Implementer'),
X`09`7B Monk`09`09`7D
X('Disciple','Acolyte(1st)','Acolyte(2nd)','Acolyte(3rd)','Neophyte(1st)',
X'Neophyte(2nd)','Neophyte(3rd)','Neophyte(4th)','Adept (1st)','Adept (2nd)',
X'Adept (3rd)','Hermit (1st)','Hermit (2nd)','Hermit (3rd)','Hermit (4th)',
X'Hermit (5th)','Curate (1st)','Curate (2nd)','Curate (3rd)','Curate (4th)',
X'Curate (5th)','Curate (6th)','Curate (7th)','Curate (8th)','Curate (9th)',
X'Master (1st)','Master (2nd)','Master (3rd)','Master (4th)','Master (5th)',
X'SupriorMaster','Low Lama','High Lama','Great Lama','DancingLlama',
X'Holy Man','Hi-YA Man','Baby Buddha','BuddingBuddha','Buddha')`09
X
X`09`09`09`09);
X`09`7B Base experience levels, may be adjusted up for race and/or class`7D
X`09player_exp :=`09(
X     10,     25,     45,     70,    100,    140,    200,    280,    380,   5
V00,
X    650,    850,   1100,   1400,   1800,   2300,   2900,   3600,   4400,  54
V00,
X   6800,   8400,  10200,  12500,  17500,  25000,  35000,  50000,  75000,1000
V00,
X 150000, 200000, 300000, 400000, 500000, 750000,1500000,2500000,5000000,9999
V999
X`09`09`09);
X`20
X`20
X`09`7B Background information`09`09`09`09`09`7D
X`09background`09:=`09(
X('You are the illegitimate and unacknowledged child ',`09`09 10, 1, 2,-25),
X('You are the illegitimate but acknowledged child ',`09`09 20, 1, 2,-15),
X('You are one of several children ',`09`09`09`09 95, 1, 2, -5),
X('You are the 1st child ',`09`09`09`09`09100, 1, 2,  0),
X('of a Serf.  ',  `09`09`09`09`09`09 40, 2, 3, 15),
X('of a Yeoman.  ',`09`09`09`09`09`09 65, 2, 3, 30),
X('of a Townsman.  ',`09`09`09`09`09`09 80, 2, 3, 40),
X('of a Guildsman.  ',`09`09`09`09`09`09 90, 2, 3, 55),
X('of a Landed Knight.  ',`09`09`09`09`09 96, 2, 3, 70),
X('of a Titled Noble.  ',`09`09`09`09`09 99, 2, 3, 80),
X('of a Royal Blood Line.  ',`09`09`09`09`09100, 2, 3, 90),
X('You are the black sheep of the family.  ',`09`09`09 20, 3,50,-30),
X('You are a credit to the family.  ',`09`09`09`09 80, 3,50,  5),
X('You are a well liked child.  ',`09`09`09`09100, 3,50, 10),
X('Your mother was a Green-Elf.  ',`09`09`09`09 40, 4, 1,  0),
X('Your father was a Green-Elf.  ',`09`09`09`09 75, 4, 1,  5),
X('Your mother was a Grey-Elf.  ',`09`09`09`09 90, 4, 1,  5),
X('Your father was a Grey-Elf.  ',`09`09`09`09 95, 4, 1, 10),
X('Your mother was a High-Elf.  ',`09`09`09`09 98, 4, 1, 15),
X('Your father was a High-Elf.  ',`09`09`09`09100, 4, 1, 20),
X('You are one of several children ',`09`09`09`09 60, 7, 8,  0),
X('You are the only child ',`09`09`09`09`09100, 7, 8,  5),
X('of a Green-Elf ',`09`09  `09`09`09`09 75, 8, 9,  0),
X('of a Grey-Elf ',`09`09`09`09`09`09 95, 8, 9,  5),
X('of a High-Elf ',`09`09`09`09`09`09100, 8, 9, 10),
X('Ranger.  ',`09`09`09`09`09`09`09 40, 9,54, 30),
X('Archer.  ',`09`09`09`09`09`09`09 70, 9,54, 40),
X('Warrior.  ',`09`09`09`09`09`09`09 87, 9,54, 60),
X('Mage.  ',`09`09`09`09`09`09`09 95, 9,54, 75),
X('Prince.  ',`09`09`09`09`09`09`09 99, 9,54, 90),
X('King.`09 ',`09`09`09`09`09`09`09100, 9,54, 95),
X('You are one of several children of a Halfling ',`09`09 85,10,11, -5),
X('You are the only child of a Halfling ',`09`09`09100,10,11,  5),
X('Bum.  ',`09`09`09`09`09`09`09 20,11, 3,  5),
X('Tavern Owner.`09 ',`09`09`09`09`09`09 30,11, 3, 30),
X('Miller.  ',`09`09`09`09`09`09`09 40,11, 3, 40),
X('Home Owner.  ',`09`09`09`09`09`09 50,11, 3, 50),
X('Burglar.  ',`09`09`09`09`09`09`09 80,11, 3, 60),
+-+-+-+-+-+-+-+-  END  OF PART 91 +-+-+-+-+-+-+-+-