PDA

View Full Version : The Green Leaf - The Skills Skeleton


bUsh
05-13-2004, 05:38 PM
Here is the PERL quest file for The Green Leaf's Skill Skeleton.

He will train anyone who hails him, so visiting the trainer is not needed for most skills. This comes in very handy when your database is frequently missing trainers or has incorrect trainer data, and you want your players to still be able to train.

This works with the latest CVS Dump of EQEMu (0.5.7-DR2 May 12th) and later (I added quest::setskill).


sub EVENT_SAY
{
if( $text =~ /Hail/i )
{
quest::say("Greetings, $name! Would you like me to [train your skills]?");
}
elsif( $text =~ /train my skills/i )
{
if( $ulevel > 1 )
{
quest::say("I must warn you, if I have previously trained with you, your skills will be set back to 5 again.");
quest::say("Are you sure you would like to [continue]?");
}
else
{
TrainSkills();
}
}
elsif( $text =~ /continue/i )
{
TrainSkills();
}
}

sub TrainSkills
{

# Skills:

#quest::setskill(6,5); # Apply Poison
#quest::setskill(7,5); # Archery
#quest::setskill(8,5); # Backstab
#quest::setskill(10,5); # Bash
#quest::setskill(11,5); # Block
#quest::setskill(12,5); # Brass Instruments
#quest::setskill(16,5); # Disarm
#quest::setskill(17,5); # Disarm Traps
#quest::setskill(19,5); # Dodge
#quest::setskill(20,5); # Double Attack
#quest::setskill(21,5); # Dragon Punch
#quest::setskill(22,5); # Dual Wield
#quest::setskill(23,5); # Eagle Strike
#quest::setskill(25,5); # Feign Death
#quest::setskill(26,5); # Flying Kick
#quest::setskill(27,5); # Forage
#quest::setskill(29,5); # Hide
#quest::setskill(30,5); # Kick
#quest::setskill(31,5); # Meditate
#quest::setskill(32,5); # Mend
#quest::setskill(34,5); # Parry
#quest::setskill(35,5); # Pick Lock
#quest::setskill(37,5); # Riposte
#quest::setskill(38,5); # Round Kick
#quest::setskill(39,5); # Safe Fall
#quest::setskill(42,5); # Sneak
#quest::setskill(43,5); # Specialize Abjuration
#quest::setskill(44,5); # Specialize Alteration
#quest::setskill(45,5); # Specialize Conjuration
#quest::setskill(46,5); # Specialize Divination
#quest::setskill(47,5); # Specialize Evocation
#quest::setskill(48,5); # Pick Pockets
#quest::setskill(49,5); # Stringed Instruments
#quest::setskill(52,5); # Tiger Claw
#quest::setskill(53,5); # Tracking
#quest::setskill(54,5); # Wind Instruments
#quest::setskill(56,5); # Make Poison
#quest::setskill(58,5); # Research
#quest::setskill(59,5); # Alchemy
#quest::setskill(62,5); # Sense Traps
#quest::setskill(70,5); # Percussion Instruments
#quest::setskill(71,5); # Intimidation
#quest::setskill(73,5); # Taunt

if( ($class eq "Bard") || ($class eq "Minstrel") || ($class eq "Troubadour") || ($class eq "Virtuoso") || ($class eq "Maestro") )
{
quest::setskill(19,5); # Dodge
quest::setskill(22,5); # Dual Wield
quest::setskill(71,5); # Intimidation
quest::setskill(34,5); # Parry
quest::setskill(37,5); # Riposte
quest::setskill(70,5); # Percussion Instruments
quest::setskill(49,5); # Stringed Instruments
quest::setskill(31,5); # Meditate
quest::setskill(12,5); # Brass Instruments
quest::setskill(54,5); # Wind Instruments
quest::setskill(27,5); # Forage
quest::setskill(42,5); # Sneak
quest::setskill(62,5); # Sense Traps
quest::setskill(39,5); # Safe Fall
quest::setskill(29,5); # Hide
quest::setskill(17,5); # Disarm Traps
quest::setskill(53,5); # Tracking
quest::setskill(35,5); # Pick Lock
quest::say("Use your skills wisely, $name.");
}
elsif( ($class eq "Beastlord") || ($class eq "Primalist") || ($class eq "Animist") || ($class eq "Savage Lord") || ($class eq "Feral Lord") )
{
quest::setskill(30,5); # Kick
quest::setskill(19,5); # Dodge
quest::setskill(22,5); # Dual Wield
quest::setskill(11,5); # Block
quest::setskill(37,5); # Riposte
quest::setskill(31,5); # Meditate
quest::say("Use your skills wisely, $name.");
}
elsif( ($class eq "Cleric") || ($class eq "Vicar") || ($class eq "Templar") || ($class eq "High Priest") || ($class eq "Archon") )
{
quest::setskill(19,5); # Dodge
quest::setskill(10,5); # Bash
quest::setskill(31,5); # Meditate
quest::setskill(43,5); # Specialize Abjuration
quest::setskill(44,5); # Specialize Alteration
quest::setskill(45,5); # Specialize Conjuration
quest::setskill(46,5); # Specialize Divination
quest::setskill(47,5); # Specialize Evocation
quest::say("Use your skills wisely, $name.");
}
elsif( ($class eq "Druid") || ($class eq "Wanderer") || ($class eq "Preserver") || ($class eq "Hierophant") || ($class eq "Storm Warden") )
{
quest::setskill(19,5); # Dodge
quest::setskill(31,5); # Meditate
quest::setskill(43,5); # Specialize Abjuration
quest::setskill(44,5); # Specialize Alteration
quest::setskill(45,5); # Specialize Conjuration
quest::setskill(46,5); # Specialize Divination
quest::setskill(47,5); # Specialize Evocation
quest::setskill(27,5); # Forage
quest::setskill(53,5); # Tracking
quest::say("Use your skills wisely, $name.");
}
elsif( ($class eq "Enchanter") || ($class eq "Illusionist") || ($class eq "Beguiler") || ($class eq "Phantasmist") || ($class eq "Coercer") )
{
quest::setskill(19,5); # Dodge
quest::setskill(31,5); # Meditate
quest::setskill(58,5); # Research
quest::setskill(43,5); # Specialize Abjuration
quest::setskill(44,5); # Specialize Alteration
quest::setskill(45,5); # Specialize Conjuration
quest::setskill(46,5); # Specialize Divination
quest::setskill(47,5); # Specialize Evocation
quest::say("Use your skills wisely, $name.");
}
elsif( ($class eq "Magician") || ($class eq "Elementalist") || ($class eq "Conjurer") || ($class eq "Arch Mage") || ($class eq "Arch Convoker") )
{
quest::setskill(19,5); # Dodge
quest::setskill(31,5); # Meditate
quest::setskill(58,5); # Research
quest::setskill(43,5); # Specialize Abjuration
quest::setskill(44,5); # Specialize Alteration
quest::setskill(45,5); # Specialize Conjuration
quest::setskill(46,5); # Specialize Divination
quest::setskill(47,5); # Specialize Evocation
quest::say("Use your skills wisely, $name.");
}
elsif( ($class eq "Monk") || ($class eq "Disciple") || ($class eq "Master") || ($class eq "Grandmaster") || ($class eq "Transcendent") )
{
quest::setskill(38,5); # Round Kick
quest::setskill(52,5); # Tiger Claw
quest::setskill(11,5); # Block
quest::setskill(20,5); # Double Attack
quest::setskill(25,5); # Feign Death
quest::setskill(71,5); # Intimidation
quest::setskill(23,5); # Eagle Strike
quest::setskill(21,5); # Dragon Punch
quest::setskill(16,5); # Disarm
quest::setskill(26,5); # Flying Kick
quest::setskill(37,5); # Riposte
quest::setskill(39,5); # Safe Fall
quest::setskill(42,5); # Sneak
quest::say("Use your skills wisely, $name.");
}
elsif( ($class eq "Necromancer") || ($class eq "Heretic") || ($class eq "Defiler") || ($class eq "Warlock") || ($class eq "Arch Lich") )
{
quest::setskill(19,5); # Dodge
quest::setskill(31,5); # Meditate
quest::setskill(58,5); # Research
quest::setskill(43,5); # Specialize Abjuration
quest::setskill(44,5); # Specialize Alteration
quest::setskill(45,5); # Specialize Conjuration
quest::setskill(46,5); # Specialize Divination
quest::setskill(47,5); # Specialize Evocation
quest::say("Use your skills wisely, $name.");
}
elsif( ($class eq "Paladin") || ($class eq "Cavalier") || ($class eq "Knight") || ($class eq "Crusader") || ($class eq "Lord Protector") )
{
quest::setskill(10,5); # Bash
quest::setskill(19,5); # Dodge
quest::setskill(34,5); # Parry
quest::setskill(20,5); # Double Attack
quest::setskill(37,5); # Riposte
quest::setskill(16,5); # Disarm
quest::setskill(31,5); # Meditate
quest::say("Use your skills wisely, $name.");
}
elsif( ($class eq "Ranger") || ($class eq "Pathfinder") || ($class eq "Outrider") || ($class eq "Warder") || ($class eq "Forest Stalker") )
{
quest::setskill(30,5); # Kick
quest::setskill(19,5); # Dodge
quest::setskill(22,5); # Dual Wield
quest::setskill(34,5); # Parry
quest::setskill(20,5); # Double Attack
quest::setskill(16,5); # Disarm
quest::setskill(37,5); # Riposte
quest::setskill(31,5); # Meditate
quest::setskill(27,5); # Forage
quest::setskill(42,5); # Sneak
quest::setskill(29,5); # Hide
quest::say("Use your skills wisely, $name.");
}
elsif( ($class eq "Rogue") || ($class eq "Rake") || ($class eq "Blackguard") || ($class eq "Assassin") || ($class eq "Deceiver") )
{
quest::setskill(19,5); # Dodge
quest::setskill(8,5); # Backstab
quest::setskill(34,5); # Parry
quest::setskill(22,5); # Dual Wield
quest::setskill(20,5); # Double Attack
quest::setskill(71,5); # Intimidation
quest::setskill(16,5); # Disarm
quest::setskill(37,5); # Riposte
quest::setskill(29,5); # Hide
quest::setskill(35,5); # Pick Lock
quest::setskill(48,5); # Pick Pockets
quest::setskill(62,5); # Sense Traps
quest::setskill(39,5); # Safe Fall
quest::setskill(6,5); # Apply Poison
quest::setskill(17,5); # Disarm Traps
quest::setskill(56,5); # Make Poison
quest::say("Use your skills wisely, $name.");
}
elsif( ($class eq "Shadowknight") || ($class eq "Reaver") || ($class eq "Revenant") || ($class eq "Grave Lord") || ($class eq "Dread Lord") )
{
quest::setskill(10,5); # Bash
quest::setskill(19,5); # Dodge
quest::setskill(34,5); # Parry
quest::setskill(20,5); # Double Attack
quest::setskill(37,5); # Riposte
quest::setskill(16,5); # Disarm
quest::setskill(31,5); # Meditate
quest::setskill(29,5); # Hide
quest::say("Use your skills wisely, $name.");
}
elsif( ($class eq "Shaman") || ($class eq "Mystic") || ($class eq "Luminary") || ($class eq "Oracle") || ($class eq "Prophet") )
{
quest::setskill(19,5); # Dodge
quest::setskill(31,5); # Meditate
quest::setskill(43,5); # Specialize Abjuration
quest::setskill(44,5); # Specialize Alteration
quest::setskill(45,5); # Specialize Conjuration
quest::setskill(46,5); # Specialize Divination
quest::setskill(47,5); # Specialize Evocation
quest::setskill(59,5); # Alchemy
quest::say("Use your skills wisely, $name.");
}
elsif( ($class eq "Warrior") || ($class eq "Champion") || ($class eq "Myrmidon") || ($class eq "Warlord") || ($class eq "Overlord") )
{
quest::setskill(10,5); # Bash
quest::setskill(19,5); # Dodge
quest::setskill(34,5); # Parry
quest::setskill(22,5); # Dual Wield
quest::setskill(20,5); # Double Attack
quest::setskill(37,5); # Riposte
quest::setskill(16,5); # Disarm
quest::say("Use your skills wisely, $name.");
}
elsif( ($class eq "Wizard") || ($class eq "Channeler") || ($class eq "Evoker") || ($class eq "Sorcerer") || ($class eq "Arcanist") )
{
quest::setskill(19,5); # Dodge
quest::setskill(31,5); # Meditate
quest::setskill(58,5); # Research
quest::setskill(43,5); # Specialize Abjuration
quest::setskill(44,5); # Specialize Alteration
quest::setskill(45,5); # Specialize Conjuration
quest::setskill(46,5); # Specialize Divination
quest::setskill(47,5); # Specialize Evocation
quest::say("Use your skills wisely, $name.");
}
else
{
quest::say("Sorry, $name. I don't recognize your field of study.");
}

}

KhaN
05-14-2004, 10:44 AM
Wow, thanks bUsh, i think this script show the real power of Perl.

mikenune
05-15-2004, 05:12 AM
I've updated your Perl script to include Berserkers. . .

sub EVENT_SAY
{
if ( $text =~ /Hail/i )
{
quest::say( "Greetings, $name! Would you like me to [train your skills]?" );
}
elsif ( $text =~ /train my skills/i )
{
if ( $ulevel > 1 )
{
quest::say( "I must warn you, if I have previously trained with you, your skills will be set back to 5 again." );
quest::say( "Are you sure you would like to [continue]?" );
}
else
{
TrainSkills( );
}
}
elsif ( $text =~ /continue/i )
{
TrainSkills( );
}
}

sub TrainSkills
{
### List of Skills:
#quest::setskill( 6,5 ); # Apply Poison
#quest::setskill( 7,5 ); # Archery
#quest::setskill( 8,5 ); # Backstab
#quest::setskill( 10,5 ); # Bash
#quest::setskill( 11,5 ); # Block
#quest::setskill( 12,5 ); # Brass Instruments
#quest::setskill( 16,5 ); # Disarm
#quest::setskill( 17,5 ); # Disarm Traps
#quest::setskill( 19,5 ); # Dodge
#quest::setskill( 20,5 ); # Double Attack
#quest::setskill( 21,5 ); # Dragon Punch
#quest::setskill( 22,5 ); # Dual Wield
#quest::setskill( 23,5 ); # Eagle Strike
#quest::setskill( 25,5 ); # Feign Death
#quest::setskill( 26,5 ); # Flying Kick
#quest::setskill( 27,5 ); # Forage
#quest::setskill( 29,5 ); # Hide
#quest::setskill( 30,5 ); # Kick
#quest::setskill( 31,5 ); # Meditate
#quest::setskill( 32,5 ); # Mend
#quest::setskill( 34,5 ); # Parry
#quest::setskill( 35,5 ); # Pick Lock
#quest::setskill( 37,5 ); # Riposte
#quest::setskill( 38,5 ); # Round Kick
#quest::setskill( 39,5 ); # Safe Fall
#quest::setskill( 42,5 ); # Sneak
#quest::setskill( 43,5 ); # Specialize Abjuration
#quest::setskill( 44,5 ); # Specialize Alteration
#quest::setskill( 45,5 ); # Specialize Conjuration
#quest::setskill( 46,5 ); # Specialize Divination
#quest::setskill( 47,5 ); # Specialize Evocation
#quest::setskill( 48,5 ); # Pick Pockets
#quest::setskill( 49,5 ); # Stringed Instruments
#quest::setskill( 52,5 ); # Tiger Claw
#quest::setskill( 53,5 ); # Tracking
#quest::setskill( 54,5 ); # Wind Instruments
#quest::setskill( 56,5 ); # Make Poison
#quest::setskill( 58,5 ); # Research
#quest::setskill( 59,5 ); # Alchemy
#quest::setskill( 62,5 ); # Sense Traps
#quest::setskill( 70,5 ); # Percussion Instruments
#quest::setskill( 71,5 ); # Intimidation
#quest::setskill( 73,5 ); # Taunt

if ( ( $class eq "Bard" ) || ( $class eq "Minstrel" ) || ( $class eq "Troubadour" ) || ( $class eq "Virtuoso" ) || ( $class eq "Maestro" ) )
{
quest::setskill( 19,5 ); # Dodge
quest::setskill( 22,5 ); # Dual Wield
quest::setskill( 71,5 ); # Intimidation
quest::setskill( 34,5 ); # Parry
quest::setskill( 37,5 ); # Riposte
quest::setskill( 70,5 ); # Percussion Instruments
quest::setskill( 49,5 ); # Stringed Instruments
quest::setskill( 31,5 ); # Meditate
quest::setskill( 12,5 ); # Brass Instruments
quest::setskill( 54,5 ); # Wind Instruments
quest::setskill( 27,5 ); # Forage
quest::setskill( 42,5 ); # Sneak
quest::setskill( 62,5 ); # Sense Traps
quest::setskill( 39,5 ); # Safe Fall
quest::setskill( 29,5 ); # Hide
quest::setskill( 17,5 ); # Disarm Traps
quest::setskill( 53,5 ); # Tracking
quest::setskill( 35,5 ); # Pick Lock
quest::say( "Use your skills wisely, $name." );
elsif ( ( $class eq "Beastlord" ) || ( $class eq "Primalist" ) || ( $class eq "Animist" ) || ( $class eq "Savage Lord" ) || ( $class eq "Feral Lord" ) )
{
quest::setskill( 30,5 ); # Kick
quest::setskill( 19,5 ); # Dodge
quest::setskill( 22,5 ); # Dual Wield
quest::setskill( 11,5 ); # Block
quest::setskill( 37,5 ); # Riposte
quest::setskill( 31,5 ); # Meditate
quest::say( "Use your skills wisely, $name." );
}
elsif ( ( $class eq "Berserker" ) || ( $class eq "Brawler" ) || ( $class eq "Vehement" ) || ( $class eq "Rager" ) || ( $class eq "Fury" ) )
quest::setskill( 16,5 ); # Disarm
quest::setskill( 19,5 ); # Dodge
quest::setskill( 20,5 ); # Double Attack
quest::setskill( 30,5 ); # Kick
quest::setskill( 71,5 ); # Intimidation
quest::setskill( 34,5 ); # Parry
quest::setskill( 37,5 ); # Riposte
quest::say( "Use your skills wisely, $name." );
}
elsif ( ( $class eq "Cleric" ) || ( $class eq "Vicar" ) || ( $class eq "Templar" ) || ( $class eq "High Priest" ) || ( $class eq "Archon" ) )
{
quest::setskill( 19,5 ); # Dodge
quest::setskill( 10,5 ); # Bash
quest::setskill( 31,5 ); # Meditate
quest::setskill( 43,5 ); # Specialize Abjuration
quest::setskill( 44,5 ); # Specialize Alteration
quest::setskill( 45,5 ); # Specialize Conjuration
quest::setskill( 46,5 ); # Specialize Divination
quest::setskill( 47,5 ); # Specialize Evocation
quest::say( "Use your skills wisely, $name." );
}
elsif ( ( $class eq "Druid" ) || ( $class eq "Wanderer" ) || ( $class eq "Preserver" ) || ( $class eq "Hierophant" ) || ( $class eq "Storm Warden" ) )
{
quest::setskill( 19,5 ); # Dodge
quest::setskill( 31,5 ); # Meditate
quest::setskill( 43,5 ); # Specialize Abjuration
quest::setskill( 44,5 ); # Specialize Alteration
quest::setskill( 45,5 ); # Specialize Conjuration
quest::setskill( 46,5 ); # Specialize Divination
quest::setskill( 47,5 ); # Specialize Evocation
quest::setskill( 27,5 ); # Forage
quest::setskill( 53,5 ); # Tracking
quest::say( "Use your skills wisely, $name." );
}
elsif ( ( $class eq "Enchanter" ) || ( $class eq "Illusionist" ) || ( $class eq "Beguiler" ) || ( $class eq "Phantasmist" ) || ( $class eq "Coercer" ) )
{
quest::setskill( 19,5 ); # Dodge
quest::setskill( 31,5 ); # Meditate
quest::setskill( 58,5 ); # Research
quest::setskill( 43,5 ); # Specialize Abjuration
quest::setskill( 44,5 ); # Specialize Alteration
quest::setskill( 45,5 ); # Specialize Conjuration
quest::setskill( 46,5 ); # Specialize Divination
quest::setskill( 47,5 ); # Specialize Evocation
quest::say( "Use your skills wisely, $name." );
}
elsif ( ( $class eq "Magician" ) || ( $class eq "Elementalist" ) || ( $class eq "Conjurer" ) || ( $class eq "Arch Mage" ) || ( $class eq "Arch Convoker" ) )
{
quest::setskill( 19,5 ); # Dodge
quest::setskill( 31,5 ); # Meditate
quest::setskill( 58,5 ); # Research
quest::setskill( 43,5 ); # Specialize Abjuration
quest::setskill( 44,5 ); # Specialize Alteration
quest::setskill( 45,5 ); # Specialize Conjuration
quest::setskill( 46,5 ); # Specialize Divination
quest::setskill( 47,5 ); # Specialize Evocation
quest::say( "Use your skills wisely, $name." );
}
elsif ( ( $class eq "Monk" ) || ( $class eq "Disciple" ) || ( $class eq "Master" ) || ( $class eq "Grandmaster" ) || ( $class eq "Transcendent" ) )
{
quest::setskill( 38,5 ); # Round Kick
quest::setskill( 52,5 ); # Tiger Claw
quest::setskill( 11,5 ); # Block
quest::setskill( 20,5 ); # Double Attack
quest::setskill( 25,5 ); # Feign Death
quest::setskill( 71,5 ); # Intimidation
quest::setskill( 23,5 ); # Eagle Strike
quest::setskill( 21,5 ); # Dragon Punch
quest::setskill( 16,5 ); # Disarm
quest::setskill( 26,5 ); # Flying Kick
quest::setskill( 37,5 ); # Riposte
quest::setskill( 39,5 ); # Safe Fall
quest::setskill( 42,5 ); # Sneak
quest::say( "Use your skills wisely, $name." );
}
elsif ( ( $class eq "Necromancer" ) || ( $class eq "Heretic" ) || ( $class eq "Defiler" ) || ( $class eq "Warlock" ) || ( $class eq "Arch Lich" ) )
{
quest::setskill( 19,5 ); # Dodge
quest::setskill( 31,5 ); # Meditate
quest::setskill( 58,5 ); # Research
quest::setskill( 43,5 ); # Specialize Abjuration
quest::setskill( 44,5 ); # Specialize Alteration
quest::setskill( 45,5 ); # Specialize Conjuration
quest::setskill( 46,5 ); # Specialize Divination
quest::setskill( 47,5 ); # Specialize Evocation
quest::say( "Use your skills wisely, $name." );
}
elsif ( ( $class eq "Paladin" ) || ( $class eq "Cavalier" ) || ( $class eq "Knight" ) || ( $class eq "Crusader" ) || ( $class eq "Lord Protector" ) )
{
quest::setskill( 10,5 ); # Bash
quest::setskill( 19,5 ); # Dodge
quest::setskill( 34,5 ); # Parry
quest::setskill( 20,5 ); # Double Attack
quest::setskill( 37,5 ); # Riposte
quest::setskill( 16,5 ); # Disarm
quest::setskill( 31,5 ); # Meditate
quest::say( "Use your skills wisely, $name." );
}
elsif ( ( $class eq "Ranger" ) || ( $class eq "Pathfinder" ) || ( $class eq "Outrider" ) || ( $class eq "Warder" ) || ( $class eq "Forest Stalker" ) )
{
quest::setskill( 30,5 ); # Kick
quest::setskill( 19,5 ); # Dodge
quest::setskill( 22,5 ); # Dual Wield
quest::setskill( 34,5 ); # Parry
quest::setskill( 20,5 ); # Double Attack
quest::setskill( 16,5 ); # Disarm
quest::setskill( 37,5 ); # Riposte
quest::setskill( 31,5 ); # Meditate
quest::setskill( 27,5 ); # Forage
quest::setskill( 42,5 ); # Sneak
quest::setskill( 29,5 ); # Hide
quest::say( "Use your skills wisely, $name." );
}
elsif ( ( $class eq "Rogue" ) || ( $class eq "Rake" ) || ( $class eq "Blackguard" ) || ( $class eq "Assassin" ) || ( $class eq "Deceiver" ) )
{
quest::setskill( 19,5 ); # Dodge
quest::setskill( 8,5 ); # Backstab
quest::setskill( 34,5 ); # Parry
quest::setskill( 22,5 ); # Dual Wield
quest::setskill( 20,5 ); # Double Attack
quest::setskill( 71,5 ); # Intimidation
quest::setskill( 16,5 ); # Disarm
quest::setskill( 37,5 ); # Riposte
quest::setskill( 29,5 ); # Hide
quest::setskill( 35,5 ); # Pick Lock
quest::setskill( 48,5 ); # Pick Pockets
quest::setskill( 62,5 ); # Sense Traps
quest::setskill( 39,5 ); # Safe Fall
quest::setskill( 6,5 ); # Apply Poison
quest::setskill( 17,5 ); # Disarm Traps
quest::setskill( 56,5 ); # Make Poison
quest::say( "Use your skills wisely, $name." );
}
elsif ( ( $class eq "Shadowknight" ) || ( $class eq "Reaver" ) || ( $class eq "Revenant" ) || ( $class eq "Grave Lord" ) || ( $class eq "Dread Lord" ) )
{
quest::setskill( 10,5 ); # Bash
quest::setskill( 19,5 ); # Dodge
quest::setskill( 34,5 ); # Parry
quest::setskill( 20,5 ); # Double Attack
quest::setskill( 37,5 ); # Riposte
quest::setskill( 16,5 ); # Disarm
quest::setskill( 31,5 ); # Meditate
quest::setskill( 29,5 ); # Hide
quest::say( "Use your skills wisely, $name." );
}
elsif ( ( $class eq "Shaman" ) || ( $class eq "Mystic" ) || ( $class eq "Luminary" ) || ( $class eq "Oracle" ) || ( $class eq "Prophet" ) )
{
quest::setskill( 19,5 ); # Dodge
quest::setskill( 31,5 ); # Meditate
quest::setskill( 43,5 ); # Specialize Abjuration
quest::setskill( 44,5 ); # Specialize Alteration
quest::setskill( 45,5 ); # Specialize Conjuration
quest::setskill( 46,5 ); # Specialize Divination
quest::setskill( 47,5 ); # Specialize Evocation
quest::setskill( 59,5 ); # Alchemy
quest::say( "Use your skills wisely, $name." );
}
elsif ( ( $class eq "Warrior" ) || ( $class eq "Champion" ) || ( $class eq "Myrmidon" ) || ( $class eq "Warlord" ) || ( $class eq "Overlord" ) )
{
quest::setskill( 10,5 ); # Bash
quest::setskill( 19,5 ); # Dodge
quest::setskill( 34,5 ); # Parry
quest::setskill( 22,5 ); # Dual Wield
quest::setskill( 20,5 ); # Double Attack
quest::setskill( 37,5 ); # Riposte
quest::setskill( 16,5 ); # Disarm
quest::say( "Use your skills wisely, $name." );
}
elsif ( ( $class eq "Wizard" ) || ( $class eq "Channeler" ) || ( $class eq "Evoker" ) || ( $class eq "Sorcerer" ) || ( $class eq "Arcanist" ) )
{
quest::setskill( 19,5 ); # Dodge
quest::setskill( 31,5 ); # Meditate
quest::setskill( 58,5 ); # Research
quest::setskill( 43,5 ); # Specialize Abjuration
quest::setskill( 44,5 ); # Specialize Alteration
quest::setskill( 45,5 ); # Specialize Conjuration
quest::setskill( 46,5 ); # Specialize Divination
quest::setskill( 47,5 ); # Specialize Evocation
quest::say( "Use your skills wisely, $name." );
}
else
{
quest::say( "Sorry, $name. I don't recognize your field of study." );
}
}