Go Back   EQEmulator Home > EQEmulator Forums > Quests > Quests::Custom

Quests::Custom Custom Quests here

Reply
 
Thread Tools Display Modes
  #1  
Old 06-12-2022, 01:24 PM
Drg
Fire Beetle
 
Join Date: Feb 2004
Posts: 5
Default Individual Skill Trainer for Perl

Hello All,

I had a need on a server that I was assisting with that players wanted a way to train skills to the max, but we didn't want to just grant all skills to max.


So I wrote a script that allows a player to trade in 2 radiant crystals for 1 "skill token" which is just a databucket entry tied to the character. The player can then say the name of any skill and the script checks to see
if their maximum allowed training for that level is higher than their current training. If so, it grants the skill and deducts 1 skill token from their account.

They can also trade in a skill token for 2 radiant crystals if they change their mind.

I have all the skills and trade skills in there, but currently have spell specializations and trade skills disabled, but its as easy as removing or moving the =cut in the script to enable them.

Finally there is an option to use platinum directly to get skill tokens, but it is currently commented out, but is working if enabled.

Code:
#Stat Trainer
sub EVENT_SAY {
my $token = $client->CharacterID() . "-available-skill-tokens";
my $skill = quest::saylink("skill token", 1);
my $purchase = quest::saylink("purchase", 1);
my $reclaim = quest::saylink("reclaim", 1);
my $check = quest::saylink("check", 1);
my $one = quest::saylink("one", 1);
my $five = quest::saylink("five", 1);
my $ten = quest::saylink("ten", 1);

if($text=~/hail/i) {
	plugin::Whisper("Hello Adventuer, I can assist you with training your skills. Simply say the name of a skill and if you have a $skill I will train you up to the maximum of your level if you have the capacity to learn it. However, I can't do tradeskills or spell specializations at this time. I can also assist you if you need to $check your balance");
}
if($text=~/skill token/i) {
	plugin::Whisper("Yes, skill tokens are a special currency that allow me to train your skills you can $purchase with Radiant Crystals");
}
if($text=~/purchase/i) {
	plugin::Whisper("Please tell me how many you would like to purchase $one, $five, or $ten. The purchase will be completed immediately and the radiant crystals will be deducted from your inventory automatically.");
}
if($text=~/one/i) {
 if(quest::countitem(40903) >= 2) {
    quest::removeitem(40903, 2);
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") + 1);
    plugin::Whisper("I have added a skill token to your account. You now have (" . quest::get_data($client->CharacterID() . "-available-skill-tokens") . ") skill token(s)!");
}}
if($text=~/five/i) {
 if(quest::countitem(40903) >= 10) {
    quest::removeitem(40903, 10);
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") + 5);
    plugin::Whisper("I have added five skill tokens to your account. You now have (" . quest::get_data($client->CharacterID() . "-available-skill-tokens") . ") skill token(s)!");
}}
if($text=~/ten/i) {
 if(quest::countitem(40903) >= 20) {
    quest::removeitem(40903, 20);
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") + 10);
    plugin::Whisper("I have added 10 skills token to your account. You now have (" . quest::get_data($client->CharacterID() . "-available-skill-tokens") . ") skill token(s)!");
}}
if($text=~/check/i) {
	plugin::Whisper("You have (" . quest::get_data($client->CharacterID() . "-available-skill-tokens") . ") skill token(s).");
}
if(($text=~/reclaim/i) && (quest::get_data($token) >= 1)) {
	plugin::Whisper("Here are your tokens back..");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    quest::summonitem(40903, 2); #40903 Radiant Crystals
    plugin::Whisper("You now have (" . quest::get_data($client->CharacterID() . "-available-skill-tokens") . ") skill tokens.");
}
elsif ($text=~/reclaim/i) {
    plugin::Whisper("I'm sorry you don't appear to have any skill tokens on your account.");
    }
#GM Testing Scripts
=cut
if($text=~/test/i) {
quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") + 50);
quest::say("You have traveled far! You have a mighty (" . quest::get_data($client->CharacterID() . "-available-skill-tokens") . ") skill tokens!");
}
if($text=~/remove/i) {
quest::set_data($token, 0);
quest::say("You have traveled far! You have a mighty (" . quest::get_data($client->CharacterID() . "-available-skill-tokens") . ") skill tokens!");
}
if($text=~/reset/i){
	#::Set available (non-trade, non-casting specialization) skills to maximum for race/class at current level
     foreach my $skill ( 0 .. 42, 48 .. 54, 70 .. 74, 76, 77) {
            next unless $client->CanHaveSkill($skill);
            $client->SetSkill($skill, 10);
        }
    }
=cut

#::  Tremble All ye Who Enter Below Here:

if(($text=~/1H Blunt/i) && ($client->MaxSkill(0, $client->GetClass(), $ulevel) > $client->GetRawSkill(0)) && (quest::get_data($token) >= 1)){
		for my $skill (0) {
            next unless $client->CanHaveSkill(0);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
           next unless $maxSkill > $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your 1H Blunt has been Upgraded to Maximum");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 } elsif ($text=~/1H Blunt/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
  if(($text=~/1H Slashing/i) && ($client->MaxSkill(1, $client->GetClass(), $ulevel) > $client->GetRawSkill(1)) && (quest::get_data($token) >= 1)){
		for my $skill (1) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your 1H Slashing has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/1H Slashing/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }

  if(($text=~/2H Blunt/i) && ($client->MaxSkill(2, $client->GetClass(), $ulevel) > $client->GetRawSkill(2)) && (quest::get_data($token) >= 1)){
		for my $skill (2) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your 2H Blunt has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/2H Blunt/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
 if(($text=~/2H Slashing/i) && ($client->MaxSkill(3, $client->GetClass(), $ulevel) > $client->GetRawSkill(3)) && (quest::get_data($token) >= 1)){
		for my $skill (3) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your 2H Slashing has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/2H Slashing/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
 if(($text=~/Abjuration/i) && ($client->MaxSkill(4, $client->GetClass(), $ulevel) > $client->GetRawSkill(4)) && (quest::get_data($token) >= 1)){
		for my $skill (4) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Abjuration has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Abjuration/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
 if(($text=~/Alteration/i) && ($client->MaxSkill(5, $client->GetClass(), $ulevel) > $client->GetRawSkill(5)) && (quest::get_data($token) >= 1)){
		for my $skill (5) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Alteration has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Alteration/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
 if(($text=~/Apply Poison/i) && ($client->MaxSkill(6, $client->GetClass(), $ulevel) > $client->GetRawSkill(6)) && (quest::get_data($token) >= 1)){
		for my $skill (6) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Apply Poison has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Apply Poison/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
 if(($text=~/Archery/i) && ($client->MaxSkill(7, $client->GetClass(), $ulevel) > $client->GetRawSkill(7)) && (quest::get_data($token) >= 1)){
		for my $skill (7) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Archery has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Archery/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
 if(($text=~/Backstab/i) && ($client->MaxSkill(8, $client->GetClass(), $ulevel) > $client->GetRawSkill(8)) && (quest::get_data($token) >= 1)){
		for my $skill (8) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Backstab has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Backstab/i){\
 plugin::Whisper("I'm not able to assist you at this time");
 }
   
 if(($text=~/Bind Wound/i) && ($client->MaxSkill(9, $client->GetClass(), $ulevel) > $client->GetRawSkill(9)) && (quest::get_data($token) >= 1)){
		for my $skill (9) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Bind Wound has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Bind Wound/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
 if(($text=~/Bash/i) && ($client->MaxSkill(10, $client->GetClass(), $ulevel) > $client->GetRawSkill(10)) && (quest::get_data($token) >= 1)){
		for my $skill (10) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Bash has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Bash/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
 if(($text=~/Block/i) && ($client->MaxSkill(11, $client->GetClass(), $ulevel) > $client->GetRawSkill(11)) && (quest::get_data($token) >= 1)){
		for my $skill (11) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Block has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Block/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
 if(($text=~/Brass Instruments/i) && ($client->MaxSkill(12, $client->GetClass(), $ulevel) > $client->GetRawSkill(12)) && (quest::get_data($token) >= 1)){
		for my $skill (12) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Brass Instruments has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Brass Instruments/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
  
 if(($text=~/Channeling/i) && ($client->MaxSkill(13, $client->GetClass(), $ulevel) > $client->GetRawSkill(13)) && (quest::get_data($token) >= 1)){
		for my $skill (13) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Channeling has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Channeling/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }

 if(($text=~/Conjuration/i) && ($client->MaxSkill(14, $client->GetClass(), $ulevel) > $client->GetRawSkill(14)) && (quest::get_data($token) >= 1)){
		for my $skill (14) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Conjuration has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Conjuration/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
   
 if(($text=~/Defense/i) && ($client->MaxSkill(15, $client->GetClass(), $ulevel) > $client->GetRawSkill(15)) && (quest::get_data($token) >= 1)){
		for my $skill (15) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Defense has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Defense/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }

if(($text=~/Disarm/i) && ($client->MaxSkill(16, $client->GetClass(), $ulevel) > $client->GetRawSkill(16)) && (quest::get_data($token) >= 1)){
		for my $skill (16) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Disarm has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Disarm/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }

 if(($text=~/Disarm Traps/i) && ($client->MaxSkill(17, $client->GetClass(), $ulevel) > $client->GetRawSkill(17)) && (quest::get_data($token) >= 1)){
		for my $skill (17) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Disarm Traps has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Disarm Traps/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }

if(($text=~/Divination/i) && ($client->MaxSkill(18, $client->GetClass(), $ulevel) > $client->GetRawSkill(18)) && (quest::get_data($token) >= 1)){
		for my $skill (18) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Divination has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Divination/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }

if(($text=~/Dodge/i) && ($client->MaxSkill(19, $client->GetClass(), $ulevel) > $client->GetRawSkill(19)) && (quest::get_data($token) >= 1)){
		for my $skill (19) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Dodge has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Dodge/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Double Attack/i) && ($client->MaxSkill(20, $client->GetClass(), $ulevel) > $client->GetRawSkill(20)) && (quest::get_data($token) >= 1)){
		for my $skill (20) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Double Attack has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Double Attack/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }

if(($text=~/Dragon Punch/i) && ($client->MaxSkill(21, $client->GetClass(), $ulevel) > $client->GetRawSkill(21)) && (quest::get_data($token) >= 1)){
		for my $skill (21) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Dragon Punch has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Dragon Punch/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
  
if(($text=~/Duel Wield/i) && ($client->MaxSkill(22, $client->GetClass(), $ulevel) > $client->GetRawSkill(22)) && (quest::get_data($token) >= 1)){
		for my $skill (22) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Duel Wield has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Duel Wield/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Eagle Strike/i) && ($client->MaxSkill(23, $client->GetClass(), $ulevel) > $client->GetRawSkill(23)) && (quest::get_data($token) >= 1)){
		for my $skill (23) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Eagle Strike has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Eagle Strike/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Evocation/i) && ($client->MaxSkill(24, $client->GetClass(), $ulevel) > $client->GetRawSkill(24)) && (quest::get_data($token) >= 1)){
		for my $skill (24) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Evocation has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Evocation/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Feign Death/i) && ($client->MaxSkill(25, $client->GetClass(), $ulevel) > $client->GetRawSkill(25)) && (quest::get_data($token) >= 1)){
		for my $skill (25) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Feign Death has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Feign Death/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Flying Kick/i) && ($client->MaxSkill(26, $client->GetClass(), $ulevel) > $client->GetRawSkill(26)) && (quest::get_data($token) >= 1)){
		for my $skill (26) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Flying Kick has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Flying Kick/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Forage/i) && ($client->MaxSkill(27, $client->GetClass(), $ulevel) > $client->GetRawSkill(27)) && (quest::get_data($token) >= 1)){
		for my $skill (27) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Forage has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Forage/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Hand to Hand/i) && ($client->MaxSkill(28, $client->GetClass(), $ulevel) > $client->GetRawSkill(28)) && (quest::get_data($token) >= 1)){
		for my $skill (28) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Hand to Hand has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Hand to Hand/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Hide/i) && ($client->MaxSkill(29, $client->GetClass(), $ulevel) > $client->GetRawSkill(29)) && (quest::get_data($token) >= 1)){
		for my $skill (29) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Hide has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Hide/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Kick/i) && ($client->MaxSkill(30, $client->GetClass(), $ulevel) > $client->GetRawSkill(30)) && (quest::get_data($token) >= 1)){
		for my $skill (30) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Kick has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Kick/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Meditate/i) && ($client->MaxSkill(31, $client->GetClass(), $ulevel) > $client->GetRawSkill(31)) && (quest::get_data($token) >= 1)){
		for my $skill (31) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Meditate has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Meditate/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Mend/i) && ($client->MaxSkill(32, $client->GetClass(), $ulevel) > $client->GetRawSkill(32)) && (quest::get_data($token) >= 1)){
		for my $skill (32) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Mend has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Mend/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Offense/i) && ($client->MaxSkill(33, $client->GetClass(), $ulevel) > $client->GetRawSkill(33)) && (quest::get_data($token) >= 1)){
		for my $skill (33) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Offense has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Offense/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Parry/i) && ($client->MaxSkill(34, $client->GetClass(), $ulevel) > $client->GetRawSkill(34)) && (quest::get_data($token) >= 1)){
		for my $skill (34) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Parry has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Parry/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Pick Lock/i) && ($client->MaxSkill(35, $client->GetClass(), $ulevel) > $client->GetRawSkill(35)) && (quest::get_data($token) >= 1)){
		for my $skill (35) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Pick Lock has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Pick Lock/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Piercing/i) && ($client->MaxSkill(36, $client->GetClass(), $ulevel) > $client->GetRawSkill(36)) && (quest::get_data($token) >= 1)){
		for my $skill (36) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Piercing has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Piercing/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }

if(($text=~/Riposte/i) && ($client->MaxSkill(37, $client->GetClass(), $ulevel) > $client->GetRawSkill(37)) && (quest::get_data($token) >= 1)){
		for my $skill (37) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Riposte has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Riposte/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }

if(($text=~/Round Kick/i) && ($client->MaxSkill(38, $client->GetClass(), $ulevel) > $client->GetRawSkill(38)) && (quest::get_data($token) >= 1)){
		for my $skill (38) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Round Kick has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Round Kick/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }

if(($text=~/Safe Fall/i) && ($client->MaxSkill(39, $client->GetClass(), $ulevel) > $client->GetRawSkill(39)) && (quest::get_data($token) >= 1)){
		for my $skill (39) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Safe Fall has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Safe Fall/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Sense Heading/i) && ($client->MaxSkill(40, $client->GetClass(), $ulevel) > $client->GetRawSkill(40)) && (quest::get_data($token) >= 1)){
		for my $skill (40) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Sense Heading has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Sense Heading/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
    
if(($text=~/Singing/i) && ($client->MaxSkill(41, $client->GetClass(), $ulevel) > $client->GetRawSkill(41)) && (quest::get_data($token) >= 1)){
		for my $skill (41) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Singing has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Singing/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }

if(($text=~/Sneak/i) && ($client->MaxSkill(42, $client->GetClass(), $ulevel) > $client->GetRawSkill(42)) && (quest::get_data($token) >= 1)){
		for my $skill (42) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Sneak has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Sneak/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
  
if(($text=~/Pick Pockets/i) && ($client->MaxSkill(48, $client->GetClass(), $ulevel) > $client->GetRawSkill(48)) && (quest::get_data($token) >= 1)){
		for my $skill (48) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Pick Pockets has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Pick Pockets/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Stringed Instruments/i) && ($client->MaxSkill(49, $client->GetClass(), $ulevel) > $client->GetRawSkill(49)) && (quest::get_data($token) >= 1)){
		for my $skill (49) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Stringed Instruments has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Stringed Instruments/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Swimming/i) && ($client->MaxSkill(50, $client->GetClass(), $ulevel) > $client->GetRawSkill(50)) && (quest::get_data($token) >= 1)){
		for my $skill (50) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Swimming has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Swimming/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }

if(($text=~/Throwing/i) && ($client->MaxSkill(51, $client->GetClass(), $ulevel) > $client->GetRawSkill(51)) && (quest::get_data($token) >= 1)){
		for my $skill (51) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Throwing has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Throwing/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
  
if(($text=~/Tiger Claw/i) && ($client->MaxSkill(52, $client->GetClass(), $ulevel) > $client->GetRawSkill(52)) && (quest::get_data($token) >= 1)){
		for my $skill (52) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Tiger Claw has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Tiger Claw/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Tracking/i) && ($client->MaxSkill(53, $client->GetClass(), $ulevel) > $client->GetRawSkill(53)) && (quest::get_data($token) >= 1)){
		for my $skill (53) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Tracking has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Tracking/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Wind Instruments/i) && ($client->MaxSkill(54, $client->GetClass(), $ulevel) > $client->GetRawSkill(54)) && (quest::get_data($token) >= 1)){
		for my $skill (54) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Wind Instruments has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Wind Instruments/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }

if(($text=~/Sense Traps/i) && ($client->MaxSkill(62, $client->GetClass(), $ulevel) > $client->GetRawSkill(62)) && (quest::get_data($token) >= 1)){
		for my $skill (62) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Sense Traps has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Sense Traps/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
  
if(($text=~/Alcohol Tolerance/i) && ($client->MaxSkill(66, $client->GetClass(), $ulevel) > $client->GetRawSkill(66)) && (quest::get_data($token) >= 1)){
		for my $skill (66) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Alcohol Tolerance has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Alcohol Tolerance/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Begging/i) && ($client->MaxSkill(67, $client->GetClass(), $ulevel) > $client->GetRawSkill(67)) && (quest::get_data($token) >= 1)){
		for my $skill (67) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Begging has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Begging/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Percussion Instruments/i) && ($client->MaxSkill(70, $client->GetClass(), $ulevel) > $client->GetRawSkill(70)) && (quest::get_data($token) >= 1)){
		for my $skill (70) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Percussion Instruments has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Percussion Instruments/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Intimidation/i) && ($client->MaxSkill(71, $client->GetClass(), $ulevel) > $client->GetRawSkill(71)) && (quest::get_data($token) >= 1)){
		for my $skill (71) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Intimidation has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Intimidation/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Berserking/i) && ($client->MaxSkill(72, $client->GetClass(), $ulevel) > $client->GetRawSkill(72)) && (quest::get_data($token) >= 1)){
		for my $skill (72) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Berserking has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Berserking/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Taunt/i) && ($client->MaxSkill(73, $client->GetClass(), $ulevel) > $client->GetRawSkill(73)) && (quest::get_data($token) >= 1)){
		for my $skill (73) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Taunt has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Taunt/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Frenzy/i) && ($client->MaxSkill(74, $client->GetClass(), $ulevel) > $client->GetRawSkill(74)) && (quest::get_data($token) >= 1)){
		for my $skill (74) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Frenzy has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Frenzy/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Remove Trap/i) && ($client->MaxSkill(75, $client->GetClass(), $ulevel) > $client->GetRawSkill(75)) && (quest::get_data($token) >= 1)){
		for my $skill (75) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Remove Trap has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Remove Trap/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Triple Attack/i) && ($client->MaxSkill(76, $client->GetClass(), $ulevel) > $client->GetRawSkill(76)) && (quest::get_data($token) >= 1)){
		for my $skill (76) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Triple Attack has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Triple Attack/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/2H Piercing/i) && ($client->MaxSkill(77, $client->GetClass(), $ulevel) > $client->GetRawSkill(77)) && (quest::get_data($token) >= 1)){
		for my $skill (77) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your 2H Piercing has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/2H Piercing/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
 #End of Main Skills
=cut
 #Beginning of Caster Specalization Skills
 
if(($text=~/Specialize Abjuration/i) && ($client->MaxSkill(43, $client->GetClass(), $ulevel) > $client->GetRawSkill(43)) && (quest::get_data($token) >= 1)){
		for my $skill (43) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Specialize Abjuration has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Specialize Abjuration/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Specialize Alteration/i) && ($client->MaxSkill(44, $client->GetClass(), $ulevel) > $client->GetRawSkill(44)) && (quest::get_data($token) >= 1)){
		for my $skill (44) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Specialize Alteration has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Specialize Alteration/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Specialize Conjuration/i) && ($client->MaxSkill(45, $client->GetClass(), $ulevel) > $client->GetRawSkill(45)) && (quest::get_data($token) >= 1)){
		for my $skill (45) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Specialize Conjuration has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Specialize Conjuration/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }

if(($text=~/Specialize Divination/i) && ($client->MaxSkill(46, $client->GetClass(), $ulevel) > $client->GetRawSkill(46)) && (quest::get_data($token) >= 1)){
		for my $skill (46) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Specialize Divination has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Specialize Divination/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }

if(($text=~/Specialize Evocation/i) && ($client->MaxSkill(47, $client->GetClass(), $ulevel) > $client->GetRawSkill(47)) && (quest::get_data($token) >= 1)){
		for my $skill (47) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Specialize Evocation has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Specialize Evocation/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }


# Begin Tradeskill Section

if(($text=~/Fishing/i) && ($client->MaxSkill(55, $client->GetClass(), $ulevel) > $client->GetRawSkill(55)) && (quest::get_data($token) >= 1)){
		for my $skill (55) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Fishing has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Fishing/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Make Poison/i) && ($client->MaxSkill(56, $client->GetClass(), $ulevel) > $client->GetRawSkill(56)) && (quest::get_data($token) >= 1)){
		for my $skill (56) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Make Poison has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Make Poison/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Tinkering/i) && ($client->MaxSkill(57, $client->GetClass(), $ulevel) > $client->GetRawSkill(57)) && (quest::get_data($token) >= 1)){
		for my $skill (57) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Tinkering has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Tinkering/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Research/i) && ($client->MaxSkill(58, $client->GetClass(), $ulevel) > $client->GetRawSkill(58)) && (quest::get_data($token) >= 1)){
		for my $skill (58) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Research has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Research/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Alchemy/i) && ($client->MaxSkill(59, $client->GetClass(), $ulevel) > $client->GetRawSkill(59)) && (quest::get_data($token) >= 1)){
		for my $skill (59) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Alchemy has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Alchemy/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Baking/i) && ($client->MaxSkill(60, $client->GetClass(), $ulevel) > $client->GetRawSkill(60)) && (quest::get_data($token) >= 1)){
		for my $skill (60) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Baking has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Baking/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Tailoring/i) && ($client->MaxSkill(61, $client->GetClass(), $ulevel) > $client->GetRawSkill(61)) && (quest::get_data($token) >= 1)){
		for my $skill (61) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Tailoring has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Tailoring/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Blacksmithing/i) && ($client->MaxSkill(63, $client->GetClass(), $ulevel) > $client->GetRawSkill(63)) && (quest::get_data($token) >= 1)){
		for my $skill (63) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Blacksmithing has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Blacksmithing/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Fletching/i) && ($client->MaxSkill(64, $client->GetClass(), $ulevel) > $client->GetRawSkill(64)) && (quest::get_data($token) >= 1)){
		for my $skill (64) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Fletching has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Fletching/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Brewing/i) && ($client->MaxSkill(65, $client->GetClass(), $ulevel) > $client->GetRawSkill(65)) && (quest::get_data($token) >= 1)){
		for my $skill (65) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Brewing has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Brewing/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Jewelry Making/i) && ($client->MaxSkill(68, $client->GetClass(), $ulevel) > $client->GetRawSkill(68)) && (quest::get_data($token) >= 1)){
		for my $skill (68) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Jewelry Making has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Jewelry Making/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
if(($text=~/Pottery/i) && ($client->MaxSkill(69, $client->GetClass(), $ulevel) > $client->GetRawSkill(69)) && (quest::get_data($token) >= 1)){
		for my $skill (69) {
            next unless $client->CanHaveSkill($skill);
     #:: Create a scalar variable to store each skill's maximum skill level at the player's current level
            my $maxSkill = $client->MaxSkill($skill, $client->GetClass(), $ulevel);
     
	 #:: Check that the player's skill does not already exceed the maximum skill based on level
            next unless $maxSkill >= $client->GetRawSkill($skill);
    #::Set Selected Skilll to Maximum
        $client->SetSkill($skill, $maxSkill);
}
    plugin::Whisper("Your Pottery has been Upgraded to Maximum!");
    quest::set_data($token, quest::get_data($client->CharacterID() . "-available-skill-tokens") - 1);
    plugin::Whisper("Your new skill token amount is " . quest::get_data($client->CharacterID() . "-available-skill-tokens") . " tokens");
 }elsif ($text=~/Pottery/i){
 plugin::Whisper("I'm not able to assist you at this time");
 }
 
=cut
#End Brackets Don't Touch
}

sub EVENT_ITEM {

 plugin::return_items(\%itemcount);
 }
Reply With Quote
Reply

Thread Tools
Display Modes

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 07:57 AM.


 

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 - 2024, Jelsoft Enterprises Ltd.
Template by Bluepearl Design and vBulletin Templates - Ver3.3