EQEmulator Forums

EQEmulator Forums (https://www.eqemulator.org/forums/index.php)
-   Archive::Quests (https://www.eqemulator.org/forums/forumdisplay.php?f=624)
-   -   The Green Leaf - The Skills Skeleton (https://www.eqemulator.org/forums/showthread.php?t=13748)

bUsh 05-13-2004 05:38 PM
The Green Leaf - The Skills Skeleton
 
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).

Code:
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. . .

Code:
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." );
  }
}


All times are GMT -4. The time now is 10:25 AM.

Powered by vBulletin®, Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.