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." );
}
}
__________________
THE POSTER assumes no warranty, guarantee, or representation as to the accuracy
or sufficiency of the information presented herein, and THE POSTER assumes no
responsibility or liability regarding the use or misuse of such information.
Furthermore THE POSTER assumes no responsibility and makes no warranty, guarantee,
or representation for the content of any web or FTP sites linked to or from this
post.
THE POSTER reserves the right to change the terms, conditions, and notices under
which THE POSTER presents information. It is the responsibility of THE READER to
regularly review these terms, conditions, and notices. THE READER understands that
the reading of any content including or covered by this disclaimer constitutes THE
READER's acceptance of and agreement to such changes.
THE POSTER retains the right to in any way alter the content of this post at any
time with or without prior notice to THE READER.
|