-+-+-+-+-+-+-+-+ START OF PART 58 -+-+-+-+-+-+-+-+ X ('Recharge Item II'`09`09,21,12,100, 75,false), X ('Teleport Other'`09`09,23,12,125, 52,false), X ('Haste Self'`09`09`09,25,12,150, 55,false), X ('Fire Ball'`09`09`09,29,18,200, 60,false), X ('Word of Destruction'`09`09,33,21,300, 75,false), X ('Genocide'`09`09`09,37,25,400, 95,false) X`09`09`09`09`09), X`09`09`09`09`09(`09`09`7B Priest`09`7D X ('Detect Evil'`09`09`09, 1, 1, 2, 15,false), X ('Cure Light Wounds'`09`09, 1, 2, 2, 25,false), X ('Bless'`09`09`09, 1, 2, 3, 25,false), X ('Remove Fear'`09`09`09, 1, 2, 3, 25,false), X ('Call Light'`09`09`09, 3, 2, 4, 25,false), X ('Find Traps'`09`09`09, 3, 3, 4, 30,false), X ('Detect Doors/Stairs'`09`09, 3, 3, 4, 30,false), X ('Slow Poison'`09`09`09, 3, 3, 4, 27,false), X ('Blind Creature'`09`09, 5, 4, 10, 27,false), X ('Portal'`09`09`09, 5, 4, 10, 27,false), X ('Cure Medium Wounds'`09`09, 5, 4, 8, 30,false), X ('Chant'`09`09`09, 5, 5, 12, 30,false), X ('Sanctuary'`09`09`09, 7, 5, 12, 30,false), X ('Create Food'`09`09`09, 7, 5, 15, 40,false), X ('Remove Curse'`09`09, 7, 6, 15, 40,false), X ('Resist Heat and Cold'`09, 7, 7, 18, 40,false), X ('Neutralize Poison'`09`09, 9, 6, 20, 35,false), X ('Orb of Draining' , 9, 7, 25, 35,false), X ('Cure Serious Wounds'`09`09, 9, 7, 30, 40,false), X ('Sense Invisible'`09`09,11, 8, 40, 40,false), X ('Protection from Evil'`09,11, 8, 35, 40,false), X ('Earthquake'`09`09`09,11, 9, 35, 50,false), X ('Sense Surroundings'`09`09,13,10, 40, 45,false), X ('Cure Critical Wounds'`09,13,11, 45, 45,false), X ('Turn Undead'`09`09`09,15,12, 50, 45,false), X ('Prayer'`09`09`09,15,14, 50, 45,false), X ('Dispell Undead'`09`09,17,14, 75, 50,false), X ('Heal'`09`09`09,21,16, 80, 55,false), X ('Dispell Evil'`09`09,25,20,100, 60,false), X ('Glyph of Warding'`09`09,33,24,125, 75,false), X ('Holy Word'`09`09`09,39,32,200, 95,false) X`09`09`09`09`09), X`09`09`09`09`09(`09`09`7B Rogue`09`09`7D X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false), X (''`09`09`09`09,99,99, 0, 0,false) X`09`09`09`09`09), X`09`09`09`09`09(`09`09`7B Ranger`09`7D X ('Magic Missle'`09`09, 3, 1, 3, 25,false), X ('Detect Monsters'`09`09, 3, 2, 3, 30,false), X ('Phase Door'`09`09`09, 3, 2, 4, 30,false), X ('Light Area'`09`09`09, 5, 3, 4, 30,false), X ('Cure Light Wounds'`09`09, 5, 3, 4, 35,false), X ('Find Hidden Traps/Doors'`09, 5, 4, 5, 40,false), X ('Stinking Cloud'`09`09, 7, 6, 12, 35,false), X ('Confusion'`09`09`09, 7, 6, 10, 35,false), X ('Lightning Bolt'`09`09, 9, 7, 10, 35,false), X ('Trap/Door Destruction'`09, 9, 8, 12, 40,false), X ('Sleep I'`09`09`09,11, 8, 15, 35,false), X ('Cure Poison'`09`09`09,11, 9, 20, 40,false), X ('Teleport Self'`09`09,13,10, 25, 40,false), X ('Remove Curse'`09`09,13,11, 30, 50,false), X ('Frost Bolt'`09`09`09,15,12, 30, 45,false), X ('Turn Stone to Mud'`09`09,15,13, 35, 45,false), X ('Identify'`09`09`09,17,15, 40, 75,false), X ('Recharge Item I'`09`09,17,17, 40, 75,false), X ('Sleep II'`09`09`09,21,17, 40, 50,false), X ('Polymorph Other'`09`09,21,19, 50, 55,false), X ('Detect Invisible'`09`09,23,19, 60, 50,false), X ('Sleep III'`09`09`09,23,20, 75, 55,false), X ('Fire Bolt'`09`09`09,25,20, 75, 55,false), X ('Slow Monster'`09`09,25,21, 80, 60,false), X ('Frost Ball'`09`09`09,27,21, 85, 60,false), X ('Recharge Item II'`09`09,29,23, 90, 90,false), X ('Teleport Other'`09`09,31,25,100, 65,false), X ('Haste Self'`09`09`09,33,25,125, 70,false), X ('Fire Ball'`09`09`09,35,25,130, 75,false), X ('Word of Destruction'`09`09,37,30,200,100,false), X (''`09`09`09`09,99,99, 0, 0,false) X`09`09`09`09`09), X`09`09`09`09`09(`09`09`7B Paladin`09`7D X ('Detect Evil'`09`09`09, 1, 1, 2, 25,false), X ('Cure Light Wounds'`09`09, 2, 2, 2, 30,false), X ('Bless'`09`09`09, 3, 3, 3, 30,false), X ('Remove Fear'`09`09`09, 5, 3, 5, 30,false), X ('Call Light'`09`09`09, 5, 4, 5, 30,false), X ('Find Traps'`09`09`09, 7, 5, 10, 35,false), X ('Detect Doors/Stairs'`09`09, 7, 5, 10, 35,false), X ('Slow Poison'`09`09`09, 9, 7, 12, 35,false), X ('Blind Creature' , 9, 7, 15, 35,false), X ('Portal'`09`09`09, 9, 8, 20, 35,false), X ('Cure Medium Wounds'`09`09,11, 9, 20, 35,false), X ('Chant'`09`09`09,11,10, 25, 40,false), X ('Sanctuary'`09`09`09,11,10, 25, 40,false), X ('Create Food'`09`09`09,13,10, 25, 40,false), X ('Remove Curse'`09`09,13,11, 30, 40,false), X ('Resist Heat and Cold'`09,15,13, 30, 40,false), X ('Neutralize Poison'`09`09,15,15, 40, 45,false), X ('Orb of Draining' ,17,15, 45, 45,false), X ('Cure Serious Wounds'`09`09,17,15, 45, 45,false), X ('Sense Invisible'`09`09,19,15, 45, 45,false), X ('Protection from Evil'`09,19,15, 50, 45,false), X ('Earthquake'`09`09`09,21,17, 50, 45,false), X ('Sense Surroundings'`09`09,23,17, 55, 45,false), X ('Cure Critical Wounds'`09,25,20, 60, 45,false), X ('Turn Undead'`09`09`09,27,21, 65, 45,false), X ('Prayer'`09`09`09,29,22, 70, 45,false), X ('Dispell Undead'`09`09,31,24, 75, 55,false), X ('Heal'`09`09`09,33,28, 80, 55,false), X ('Dispell Evil'`09`09,35,32,100, 65,false), X ('Glyph of Warding'`09`09,37,36,125, 85,false), X ('Holy Word'`09`09`09,39,38,200, 95,false) X`09`09`09`09`09) X`09`09`09); X`09`7B For Create Food spell use...`09`09`7D X mush :=`20 X('& pint`7E of fine grade mush' , 80, ',',%X'00000000' V, X 1500, 0, 308, 1, 1, 0, 0, 0, 0, '1d1' , 1); X X X`09char_row`09:= 0; X`09char_col`09:= 0; X X`09`7B Initialize player generation variables`09`09`09`7D X`09sex_type := 'FemaleMale '; X X`09`7BRace`09STR,INT,WIS,DEX,CON,CHR, X`09`09Ages, heights, and weights, X`09`09Racial Bases for: dis,srh,stl,fos,bth,bthb,bsav,hitdie, X`09`09infra, choice-classes`09`09`09`09`09`7D X 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`09 0, 0, 0, 0, 0, 0, 0, 10, 0, %B'111111' X`09`09`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`09 2, 6, 1, -1, 0, 5, 3, 9, 0, %B'111111' X`09`09`09), X`09`09('Elf', -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`09 5, 8, 1, -2, -5, 15, 6, 8, 0, %B'011111' X`09`09`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`09`09 15, 12, 4, -5,-10, 20, 18, 7, 4, %B'001011' X`09`09`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.15, X`09`09`09 10, 6, 3, -3, -8, 12, 14, 8, 4, %B'001111' X`09`09`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.25, X`09`09`09 2, 7, 0, 0, 15, 0, 9, 9, 5, %B'000101' X`09`09`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.15, X`09`09`09 -3, 0, -1, 3, 12, -5, -3, 10, 3, %B'001101' X`09`09`09), X`09`09('Half-Troll',4, -4, -2, -4, 3, -6, X`09`09`09 20, 10, 96, 10,300, 50, 84, 8,260, 40, 1.30, X`09`09`09 -5, -1, -2, 5, 20,-10, -8, 12, 3, %B'000101' X`09`09`09) X`09`09); X 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 X`09rgold_adj :=`09( X`09`09`09`7B Hum, HfE, Elf, Hal, Gno, Dwa, HfO, HfT`7D X`7BHuman`09`09`7D`09( 0.00, 0.05, 0.05, 0.10, 0.13, 0.15, 0.20, 0.25), X`7BHalf-Elf`09`7D`09( 0.10, 0.00, 0.00, 0.05, 0.10, 0.20, 0.25, 0.30), X`7BElf`09`09`7D`09( 0.10, 0.05, 0.00, 0.05, 0.10, 0.20, 0.25, 0.30), X`7BHalfling`09`7D`09( 0.15, 0.10, 0.05,-0.05, 0.05, 0.10, 0.15, 0.30), X`7BGnome`09`09`7D`09( 0.15, 0.15, 0.10, 0.05,-0.05, 0.10, 0.15, 0.30), X`7BDwarf`09`09`7D`09( 0.15, 0.20, 0.20, 0.10, 0.10,-0.05, 0.25, 0.35), X`7BHalf-Orc`09`7D`09( 0.15, 0.20, 0.25, 0.15, 0.15, 0.30, 0.10, 0.15), X`7BHalf-Troll`09`7D`09( 0.10, 0.15, 0.15, 0.10, 0.10, 0.30, 0.10, 0.10) X`09`09`09); X X`09`7B Classes...`09`09`09`09`09`09`09`7D X`09class`09:=`09( X('Warrior', 0.05, 5, 20, 10, 1, 45, 65, 50,15, 3,-1,-1, 1, 2,-1, false,fals Ve), X('Mage', 0.20, 1, 35, 15, 2, 30, 45, 35,30,-1, 2, 1, 1,-1, 0, false,true V ), X('Priest', 0.10, 2, 25, 12, 2, 40, 50, 40,25, 0,-1, 2,-1, 1, 1, true ,fals Ve), X('Rogue', 0.00, 4, 45, 30, 4, 20, 60, 65,25, 1, 1,-1, 3, 1,-1, false,fals Ve), X('Ranger', 0.50, 3, 30, 16, 3, 35, 55, 70,25, 0, 1, 0, 1, 1, 1, false,true V ), X('Paladin', 0.40, 5, 15, 10, 1, 40, 65, 45,20, 2,-1, 1, 0, 1, 2, true ,fals Ve) X`09`09`09); X 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`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,1000000,1500000,2000000,5000 V000 X`09`09`09); X X 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), +-+-+-+-+-+-+-+- END OF PART 58 +-+-+-+-+-+-+-+-