-+-+-+-+-+-+-+-+ START OF PART 61 -+-+-+-+-+-+-+-+ X ('Sense Surroundings' ,23,17, 80, 50,false), X ('Cure Critical Wounds' ,25,20, 80, 50,false), X ('Turn Undead' ,27,21, 90, 50,false), X ('Prayer' ,29,22, 95, 50,false), X ('Dispell Undead' ,31,24,100, 60,false), X ('Heal' ,33,28,125, 60,false), X ('Dispell Evil' ,35,32,150, 70,false), X ('Glyph of Warding' ,37,36,200, 90,false), X ('Holy Word' ,39,38,500, 95,false)), X X( `7BConsultant`7D X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false)), X `20 X X( `7BConsultant`7D X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false)) X `20 X X); `20 X `20 X X Xextra_spell := ( X X( `7B Warrior `7D X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false)),`09 X`20 X( `7B Mage `7D X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false)),`09 X`20 X( `7B Priest `7D X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false)),`09 X`20 X( `7B Rogue `7D X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false)),`09 X`20 X( `7B Ranger `7D X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false)),`09 X`20 X( `7B Paladin `7D X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false), X ('' ,`0999,`0999,`09 0,`09 0,`09false),`09 X ('' ,`0999,`0999,`09 0,`09 0,`09false)),`09 X`20 X( `7BConsultant`7D 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( `7BConsultant`7D 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); `20 X $ CALL UNPACK [.SOURCE.INCLUDE]SPELL_VALUES.INC;1 674276219 $ create 'f' X`7B Use a staff... `7D X `5Bpsect(staff$code)`5D procedure use; X var X i1 : unsigned; X i2,i3,item_val,chance : integer; X out_val : vtype; X redraw,ident : boolean; X begin X reset_flag := true; X if (inven_ctr > 0) then +-+-+-+-+-+-+-+- END OF PART 61 +-+-+-+-+-+-+-+-