View Single Post
  #3  
Old 05-15-2004, 05:12 AM
mikenune
Discordant
 
Join Date: Apr 2004
Location: Gukta
Posts: 359
Default

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.
Reply With Quote