Go Back   EQEmulator Home > EQEmulator Forums > Archives > Archive::Development > Archive::Quests
Reload this Page The Green Leaf - The Skills Skeleton

Archive::Quests Archive area for Quests's posts that were moved here after an inactivity period of 90 days.

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 05-13-2004, 05:38 PM
bUsh
Sarnak
  
Join Date: Apr 2004
Location: Waukesha, WI
Posts: 93
Default 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.");
}

}
__________________
~ b [ u ] s h

* ServerOP * The Green Leaf Server
Reply With Quote
 

« Previous Thread | Next Thread »

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

   

All times are GMT -4. The time now is 08:59 AM.

EQEmulator - Archive - Top

 

Everquest is a registered trademark of Daybreak Game Company LLC.
EQEmulator is not associated or affiliated in any way with Daybreak Game Company LLC.
Except where otherwise noted, this site is licensed under a Creative Commons License.
       
Powered by vBulletin®, Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Template by Bluepearl Design and vBulletin Templates - Ver3.3