-+-+-+-+-+-+-+-+ START OF PART 69 -+-+-+-+-+-+-+-+ X ('Magic Missle' , 1, 1,5, 22,false), X ('Detect Monsters' , 1, 1,5, 27,false), X ('Phase Door' , 1, 2,4, 22,false), X ('Light Area' , 1, 2,4, 25,false), X ('Cure Light Wounds' , 3, 3,8, 25,false), X ('Find Hidden Traps/Doors', 3, 3,6, 45,false), X ('Stinking Cloud' , 3, 4,8, 27,false), X ('Confusion' , 3, 4,6, 32,false), X ('Lightning Bolt' , 5, 4, 25, 32,false), X ('Trap/Door Destruction' , 5, 5, 30, 37,false), X ('Sleep I' , 5, 5, 20, 32,false), X ('Cure Poison' , 5, 5, 25, 37,false), X ('Teleport Self' , 7, 6, 35, 37,false), X ('Remove Curse' , 7, 6, 40, 50,false), X ('Frost Bolt' , 7, 6, 50, 40,false), X ('Turn Stone to Mud' , 9, 7, 75, 44,false), X ('Identify' ,9, 7, 75, 95,false), X ('Recharge Item I' , 9, 7, 90, 70,false), X ('Sleep II' , 9, 7, 75, 45,false), X ('Polymorph Other' ,11, 7,100, 45,false), X ('Create Food' , 11, 7, 75, 50,false), X ('Sleep III' ,13, 7, 90, 50,false), X ('Fire Bolt' ,15, 9,100, 50,false), X ('Slow Monster' ,17, 9,125, 50,false), X ('Frost Ball' ,19,12,150, 52,false), X ('Recharge Item II' ,21,12,175, 85,false), X ('Teleport Other' ,23,12,200, 60,false), X ('Haste Self' ,25,12,250, 60,false), X ('Fire Ball' ,29,18,350, 60,false), X ('Word of Destruction' ,33,21,500, 75,false), X ('Genocide' ,37,25,800, 95,false))); X X X X X`20 X `7B For Create Food spell use... `7D X mush := ('& pint`7E of fine grade mush' ,80,',',%X'00000000',1500, 0, 308, V 1, 1, X 0, 0, 0, 0, '1d1' , 1); X`20 X char_row := 0; X char_col := 0; X`20 X `7B Initialize player generation variables `7D X sex_type := 'FemaleMale '; X`20 X `7BRace STR,INT,WIS,DEX,CON,CHR, X Ages, heights, and weights, X Racial Bases for: dis,srh,stl,fos,bth,bthb,bsav,hitdie, X infra, choice-classes `7D X`7B Class choice bit string goes (from MSB to LSB): Consultant2, Consultant, X Paladin, Rogue, Priest, Mage, Rogue, Fighter `7D X`20 X race := ( `20 X ('Human',0,0,0,0,0,0,14,6,72,6,180,25,66,4,120,20,1.00, X 0,0,0,0,0,0,0, 10,0,%B'00111111'), X ('Half-Elf',-1,1,0,1,-1,1,24,16,66,6,130,15,62,6,100,10,1.10, X 2,6,1, -1,0,5,3,9,3,%B'00111111'), X ('Elf',-1,2,1,1,-2,1,75,75,60,4,100,6,54,4,80,6,1.20, X 5,8,1, -2, -5, 15,6,8,4,%B'00011111'), X ('Halfling',-2,2,1,3,1,1,21,12,36,3,60,3,33,3,50,3,1.10, X 15, 12,4, -5,-10, 20, 18,6,4,%B'00001011'), X ('Gnome',-1,2,0,2,1,-2,50,40,42,3,90,6,39,3,75,3,1.25, X 10,6,3, -3, -8, 12, 12,7,3,%B'00001111'), X ('Dwarf',2,-3,1,-2,2,-3,35,15,48,3,150,10,46,3,120,10,1.20, X 2,7,0,0, 15,0,9,9,5,%B'00000101'), X ('Half-Orc',2,-1,0,0,1,-4,11,4,66,1,150,5,62,1,120,5,1.10, X -3,0, -1,3, 12, -5, -3, 10,3,%B'00001101'), X ('Half-Troll',4,-4,-2,-4,3,-6,20,10,96,10,300,50,84,8,260,40,1. V20, X -5, -1, -2,5, 20,-10, -8, 12,3,%B'00000101')); X`20 X`7B Buying and selling adjustments for character race VS store owner race `7 VD X `20 X rgold_adj := ( X `7B Hum,HfE,Elf,Hob,Gno,Dwa,HfO,HfT`7D X`7BHuman `7D ( 0.00, 0.05, 0.05, 0.10, 0.13, 0.15, 0.20, 0.25), X`7BHalf-Elf `7D ( 0.10, 0.00, 0.00, 0.05, 0.10, 0.20, 0.25, 0.30), X`7BElf `7D ( 0.10, 0.05, 0.00, 0.05, 0.10, 0.20, 0.25, 0.30), X`7BHalfling `7D ( 0.15, 0.10, 0.05,-0.05, 0.05, 0.10, 0.15, 0.30), X`7BGnome `7D ( 0.15, 0.15, 0.10, 0.05,-0.05, 0.10, 0.15, 0.30), X`7BDwarf `7D ( 0.15, 0.20, 0.20, 0.10, 0.10,-0.05, 0.25, 0.35), X`7BHalf-Orc `7D ( 0.15, 0.20, 0.25, 0.15, 0.15, 0.30, 0.10, 0.15), X`7BHalf-Troll `7D ( 0.10, 0.15, 0.15, 0.10, 0.10, 0.30, 0.10, 0.10)); X`20 X`7B Classes...`7D X class := ( X('Warrior' ,0.00,18, 20, 12, 1, 40, 65, 50,20, 4,-1,-1, 1, 2,-1, false,fal Vse, false,0,0), X('Mage' ,0.30,2, 30, 15, 2, 35, 35, 25,30,-4, 2, 0, 1,-2, 0, false, tru Ve ,false,0,0), X('Priest' ,0.10,4, 25, 15, 2, 35, 50, 40,30, 0,-1, 2,-1, 1, 1, true , fal Vse,false,0,0), X('Rogue' ,0.00,6, 45, 30, 4, 18, 60, 65,25, 2, 1,-1, 3, 1,-1, false, fal Vse,false,0,0), X('Ranger' ,0.40,4, 30, 20, 3, 25, 55, 70,25, 1, 1, 0, 1, 1, 1, false, tru Ve ,false,0,0), X('Paladin' ,0.35,6, 15, 12, 1, 40, 65, 45,20, 2,-1, 1, 0, 1, 2, true , fal Vse, false,0,0), X('Consultant',0.00,8, 20, 12, 1, 40, 65, 50,20, 4,-1,-1, 1, 2,-1, false, fal Vse,true,1,92 ), X('Consultant2',0.00,8, 20, 12, 1, 40, 65, 50,20, 4,-1,-1, 1, 2,-1, false,fal Vse, true ,2,93)); X`20 X`7B Class titles for different levels `7D X player_title := ( X`7B WARRIOR `7D X('Novice','Veteran','Veteran','Veteran','Warrior','Warrior','Warrior', X'Swordsman','Swordsman','Swordsman','Hero','Swashbuckler','Myrmidon', X'Champion','Champion','Champion','Superhero','Knight','Superior Knt', X'Gallant Knt','Knt Errent','Keeper','Protector','Defender','Warder', X'Guardian Knt','Chevalier','Justiciar','Lord','Lord','Lord','Lord','Lord', X'Lord','Lord','Lord','Lord','Lord Gallant','Lord Keeper','Lord Noble', X'Lord Noble','Lord Noble','Lord Noble','Lord Noble','Lord Noble','Lord Noble V'), X`7B MAGE `7D X('Novice','Apprentice','Trickster','Trickster','Trickster','Cabalist', X'Cabalist','Cabalist','Visionist','Phantasmist','Shadowist','Spellbinder', X'Illusionist','Evoker','Evoker','Evoker','Evoker','Conjurer','Theurgist', X'Thaumaturer','Magician','Enchanter','Warlock','Sorcerer','Necromancer', X'Mage','Mage','Mage','Mage','Mage','Wizard','Wizard','Wizard','Wizard', X'Wizard','Wizard','Wizard','Wizard','Wizard','Wizard Lord','Wizard Lord', X'Wizard Lord','Wizard Lord','Wizard Lord','Wizard Lord','Wizard Lord'), X`7B PRIESTS `7D X('Believer','Acolyte','Acolyte','Acolyte','Adept','Adept','Adept','Priest', X'Priest','Priest','Priest','Priest','Priest','Priest','Priest', X'Priest','Curate','Curate','Curate','Curate','Curate','Curate','Curate', X'Curate','Curate','Canon','Canon','Canon','Canon','Canon', X'Low Lama','Lama','Lama','Lama','High Lama','Great Lama','Patriarch', X'High Priest','Great Priest','Noble Priest','Noble Priest','Noble Priest', X'Noble Priest','Noble Priest','Noble Priest','Noble Priest'), X`7B ROGUES `7D X('Apprentice','Footpad','Cutpurse','Robber','Burglar','Filcher','Sharper', X'Magsman','Common Rogue','Rogue','Rogue','Rogue','Rogue','Rogue','Rogue', X'Rogue','Rogue','Rogue','Master Rogue','Expert Rogue','Senior Rogue', X'Chief Rogue','Prime Rogue','Low Thief','Thief','Thief','Thief', X'Thief','Thief','Thief','Thief','Thief','Thief','High Thief','Master Thief', X'Executioner','Low Assassin','Assassin','HighAssassin','Guildsmaster', X'Guildsmaster','Guildsmaster','Guildsmaster','Guildsmaster','Guildsmaster', X'Guildsmaster'), X`7B RANGERS `7D X('Runner','Runner','Runner','Strider','Strider','Strider','Scout','Scout', X'Scout','Scout','Scout','Courser','Courser','Courser','Courser', X'Courser','Tracker','Tracker','Tracker','Tracker','Tracker','Tracker', X'Tracker','Tracker','Tracker','Guide','Guide','Guide','Guide','Guide','Guide V', X'Guide','Guide','Guide','Pathfinder','Pathfinder','Pathfinder','Ranger', X'High Ranger','Ranger Lord','Ranger Lord','Ranger Lord','Ranger Lord', X'Ranger Lord','Ranger Lord','Ranger Lord'), X`7B PALADINS `7D X('Gallant','Keeper','Keeper','Keeper','Keeper','Keeper','Keeper','Keeper', X'Keeper','Keeper','Protector','Protector','Protector','Protector','Protector V', X'Protector','Protector','Protector','Defender','Defender','Defender', X'Defender','Defender','Defender','Defender','Defender','Warder','Warder', X'Warder','Warder','Warder','Warder','Warder','Warder','Warder','Gauardian', X'Chevalier','Justiciar','Paladin','High Lord','High Lord','High Lord', X'High Lord','High Lord','High Lord','High Lord'), X`7BTEST`7D X('Novice','Veteran','Veteran','Veteran','Warrior','Warrior','Warrior', X'Swordsman','Swordsman','Swordsman','Hero','Swashbuckler','Myrmidon', X'Champion','Champion','Champion','Superhero','Knight','Superior Knt', X'Gallant Knt','Knt Errent','Keeper','Protector','Defender','Warder', X'Guardian Knt','Chevalier','Justiciar','Lord','Lord','Lord','Lord','Lord', X'Lord','Lord','Lord','Lord','Lord Gallant','Lord Keeper','Lord Noble', X'Lord Noble','Lord Noble','Lord Noble','Lord Noble','Lord Noble','Lord Noble V'), X X('Novice','Veteran','Veteran','Veteran','Warrior','Warrior','Warrior', X'Swordsman','Swordsman','Swordsman','Hero','Swashbuckler','Myrmidon', X'Champion','Champion','Champion','Superhero','Knight','Superior Knt', X'Gallant Knt','Knt Errent','Keeper','Protector','Defender','Warder', X'Guardian Knt','Chevalier','Justiciar','Lord','Lord','Lord','Lord','Lord', X'Lord','Lord','Lord','Lord','Lord Gallant','Lord Keeper','Lord Noble', X'Lord Noble','Lord Noble','Lord Noble','Lord Noble','Lord Noble','Lord Noble V') X X); X X`7BBase experience levels, may be adjusted up for race and/or class`7D X player_exp := ( X10,25,45,70,100,150,220,310,410,520,650,900,1200,1600,2000,2600,3300,4100,50 V00, X6500,8000,10500,14000,19000,25000,33000,43000,58000,78000,110000,175000,2600 V00, X360000,510000,750000,1100000,1300000,1600000,2000000,2500000,3000000,3500000 V, X4000000,4500000,5000000,9999999 ); X`7BBase experience levels, may be adjusted up for race and/or class X player_exp := ( X 10, 25, 45, 70,100,140,200,280,380, 500, X 650,850, 1100, 1400, 1800, 2300, 2900, 3600, 4400,5400, X 6800, 8400,10200,12500,17500,25000,35000,50000,75000,100000, X150000,200000, 300000, 400000, 500000, 750000,1500000,2500000,5000000,999999 V9;`7D X`20 X`20 X`7B Background information `7D X background := ( X('You are the illegitimate and unacknowledged child ', 10, 1, 2,-25), X('You are the illegitimate but acknowledged child ', 20, 1, 2,-15), X('You are one of several children ', 95, 1, 2, -5), X('You are the 1st born child ', 100, 1, 2,0), X('of a Serf. ', 40, 2, 3, 15), X('of a Yeoman. ', 65, 2, 3, 30), X('of a Townsman. ', 80, 2, 3, 40), X('of a Guildsman. ', 90, 2, 3, 55), X('of a Landed Knight. ', 96, 2, 3, 70), X('of a Titled Noble. ', 99, 2, 3, 80), X('of a Royal Blood Line. ', 100, 2, 3, 90), X('You are the black sheep of the family. ', 20, 3,50,-30), X('You are a credit to the family. ', 80, 3,50,5), X('You are a well liked child. ', 100, 3,50, 10), X('Your mother was a Woods-Elf. ', 40, 4, 1,0), X('Your father was a Woods-Elf. ', 75, 4, 1,5), X('Your mother was a Grey-Elf. ', 90, 4, 1,5), X('Your father was a Grey-Elf. ', 95, 4, 1, 10), X('Your mother was a High-Elf. ', 98, 4, 1, 15), X('Your father was a High-Elf. ', 100, 4, 1, 20), X('You are one of several children ', 60, 7, 8,0), X('You are the only child ', 100, 7, 8,5), X('of a Woods-Elf ', 75, 8, 9,0), X('of a Grey-Elf ', 95, 8, 9,5), X('of a High-Elf ', 100, 8, 9, 10), X('Ranger. ', 40, 9,54, 30), X('Archer. ', 70, 9,54, 40), X('Warrior. ',87, 9,54, 60), X('Mage. ', 95, 9,54, 75), X('Prince. ', 99, 9,54, 90), X('King. ', 100, 9,54, 95), X('You are one of several children of a Halfling ', 85,10,11, -5), X('You are the only child of a Halfling ', 100,10,11,5), X('Gardener. ', 20,11, 3,5), X('Tavern Owner. ', 30,11, 3, 30), X('Miller. ', 40,11, 3, 40), X('Home Owner. ', 50,11, 3, 50), X('Burglar. ', 80,11, 3, 60), X('Warrior. ', 95,11, 3, 65), X('Mage. ', 100,11, 3, 75), X('Clan Elder. ', 100,11, 3, 90), X('You are one of several children of a Gnome ', 85,13,14, -5), X('You are the only child of a Gnome ', 100,13,14,5), X('Beggar. ',20,14, 3,5), X('Bragart. ', 50,14, 3, 20), X('Prankster. ', 75,14, 3, 35), X('Warrior. ', 95,14, 3, 50), X('Mage. ', 100,14, 3, 75), X('You are one of two children of a Dwarven ', 25,16,17,-10), X('You are the only child of a Dwarven ', 100,16,17,0), X('Thief. ', 10,17,18, 10), X('Prison Guard. ', 25,17,18, 25), X('Miner. ', 75,17,18, 40), X('Warrior. ', 90,17,18, 60), X('Priest. ', 99,17,18, 80), X('King. ', 100,17,18,100), X('You are the black sheep of the family. ', 15,18,57,-40), X('You are a credit to the family. ', 85,18,57,0), X('You are a well liked child. ', 100,18,57,5), X('Your mother was an Orc, but it is unacknowledged. ' , 25,19,20,-25), X('Your father was an Orc, but it is unacknowledged. ' ,100,19,20,-25), X('You are the adopted child ', 100,20, 2,0), X('Your mother was a Cave-Troll ', 30,22,23,-30), X('Your father was a Cave-Troll ', 60,22,23,-25), X('Your mother was a Hill-Troll ', 75,22,23,-20), X('Your father was a Hill-Troll ', 90,22,23,-15), X('Your mother was a Water-Troll ',95,22,23,-10), X('Your father was a Water-Troll ',100,22,23, -5), X('Cook. ', 5,23,62, 10), X('Warrior. ', 95,23,62,5), X('Shaman. ', 99,23,62, 15), X('Clan Chief. ', 100,23,62, 30), X('You have dark brown eyes, ', 20,50,51,0), X('You have brown eyes, ', 60,50,51,0), X('You have hazel eyes, ', 70,50,51,0), X('You have green eyes, ', 80,50,51,0), X('You have blue eyes, ', 90,50,51,0), X('You have blue-gray eyes, ', 100,50,51,0), X('straight ', 70,51,52,0), X('wavey ', 90,51,52,0), X('curly ', 100,51,52,0), X('black hair, ', 30,52,53,0), X('brown hair, ', 70,52,53,0), X('auburn hair, ', 80,52,53,0), X('red hair, ', 90,52,53,0), X('blonde hair, ', 100,52,53,0), X('and a very dark complexion.', 10,53,-1,0), X('and a dark complexion.', 30,53,-1,0), X('and an average complexion.', 80,53,-1,0), X('and a fair complexion.', 90,53,-1,0), X('and a very fair complexion.', 100,53,-1,0), X('You have light grey eyes, ', 85,54,55,0), X('You have light blue eyes, ', 95,54,55,0), X('You have light green eyes, ', 100,54,55,0), X('straight ', 75,55,56,0), X('wavey ', 100,55,56,0), X('black hair, and a fair complexion.', 75,56,-1,0), X('brown hair, and a fair complexion.', 85,56,-1,0), X('blonde hair, and a fair complexion.',95,56,-1,0), X('silver hair, and a fair complexion.', 100,56,-1,0), X('You have dark brown eyes, ', 99,57,58,0), X('You have glowing red eyes, ', 100,57,58, 10), X('straight ', 90,58,59,0), X('wavey ', 100,58,59,0), X('black hair, ', 75,59,60,0), X('brown hair, ', 100,59,60,0), X('a one foot beard, ', 25,60,61,0), X('a two foot beard, ', 60,60,61,1), X('a three foot beard, ', 90,60,61,3), X('a four foot beard, ', 100,60,61,5), X('and a dark complexion.', 100,61,-1,0), X('You have slime green eyes, ', 60,62,63,0), X('You have puke yellow eyes, ', 85,62,63,0), X('You have blue-bloodshot eyes, ', 99,62,63,0), X('You have glowing red eyes, ', 100,62,63,5), X('dirty ', 33,63,64,0), X('mangy ', 66,63,64,0), +-+-+-+-+-+-+-+- END OF PART 69 +-+-+-+-+-+-+-+-