Go Back   EQEmulator Home > EQEmulator Forums > Quests > Quests::Q&A
Reload this Page Possibly a few questions.

Quests::Q&A This is the quest support section

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #13  
Old 02-13-2013, 12:23 AM
Kingmen30264
Hill Giant
  
Join Date: Sep 2006
Posts: 112
Post
Quote:
Originally Posted by c0ncrete View Post
commented, to hopefully help you sort out exactly what it is you want to remove/change.

Code:
# do this for skill number 0 through 74
foreach my $skill ( 0 .. 74 ) {

    # skip to next skill if client can't have this skill
    next unless $client->CanHaveSkill($skill);
    
    # get the maximum skll level for current skill number, based on client's class and level
    my $max = $client->MaxSkill( $skill, $client->GetClass(), $client->GetLevel() );
    
    # skip to next skill unless the maximum skill level from above is higher than the client's current raw skill level
    next unless $max > $client->GetRawSkill($skill);
    
    # set the current skill level to the maximum, as determined above
    $client->SetSkill( $skill, $max );
}
Please forgive my ignorance, or whatever it is that I seem to be having with this. I followed your comments, and I am still unable to get this working through a few variations.

Here is the modified script:
Code:
##########
#Skills Trainer And Quest
#By Kingmen30264
##########

 sub EVENT_SAY
  {
  my $train = quest::saylink("train");
  my $advanced = quest::saylink("advanced skills");
  my $trade = quest::saylink("trade");
  my $free = quest::saylink("FREE");
  my $items = quest::saylink("items");
  my $zone1 = quest::saylink("zone1");
  my $zone2 = quest::saylink("zone2");
  my $item1 = quest::varlink("9989");
  my $item2 = quest::varlink("9999");
  my $count1 = quest::saylink("2");
  my $count2 = quest::saylink("2");
  
  my $skill = $client->GetSkill(0);
  my $skill = $client->GetSkill(1);
  my $skill = $client->GetSkill(2);
  my $skill = $client->GetSkill(3);
  my $skill = $client->GetSkill(4);
  my $skill = $client->GetSkill(5);
  my $skill = $client->GetSkill(6);
  my $skill = $client->GetSkill(7);
  my $skill = $client->GetSkill(8);
  my $skill = $client->GetSkill(9);
  my $skill = $client->GetSkill(10);
  my $skill = $client->GetSkill(11);
  my $skill = $client->GetSkill(12);
  my $skill = $client->GetSkill(13);
  my $skill = $client->GetSkill(14);
  my $skill = $client->GetSkill(15);
  my $skill = $client->GetSkill(16);
  my $skill = $client->GetSkill(17);
  my $skill = $client->GetSkill(18);
  my $skill = $client->GetSkill(19);
  my $skill = $client->GetSkill(20);
  my $skill = $client->GetSkill(21);
  my $skill = $client->GetSkill(22);
  my $skill = $client->GetSkill(23);
  my $skill = $client->GetSkill(24);
  my $skill = $client->GetSkill(25);
  my $skill = $client->GetSkill(26);
  my $skill = $client->GetSkill(27);
  my $skill = $client->GetSkill(28);
  my $skill = $client->GetSkill(29);
  my $skill = $client->GetSkill(30);
  my $skill = $client->GetSkill(31);
  my $skill = $client->GetSkill(32);
  my $skill = $client->GetSkill(33);
  my $skill = $client->GetSkill(34);
  my $skill = $client->GetSkill(35);
  my $skill = $client->GetSkill(36);
  my $skill = $client->GetSkill(37);
  my $skill = $client->GetSkill(38);
  my $skill = $client->GetSkill(39);
  my $skill = $client->GetSkill(40);
  my $skill = $client->GetSkill(41);
  my $skill = $client->GetSkill(42);
  my $skill = $client->GetSkill(43);
  my $skill = $client->GetSkill(44);
  my $skill = $client->GetSkill(45);
  my $skill = $client->GetSkill(46);
  my $skill = $client->GetSkill(47);
  my $skill = $client->GetSkill(48);
  my $skill = $client->GetSkill(49);
  my $skill = $client->GetSkill(50);
  my $skill = $client->GetSkill(51);
  my $skill = $client->GetSkill(52);
  my $skill = $client->GetSkill(53);
  my $skill = $client->GetSkill(54);
  my $skill = $client->GetSkill(55);
  my $skill = $client->GetSkill(56);
  my $skill = $client->GetSkill(57);
  my $skill = $client->GetSkill(58);
  my $skill = $client->GetSkill(59);
  my $skill = $client->GetSkill(60);
  my $skill = $client->GetSkill(61);
  my $skill = $client->GetSkill(62);
  my $skill = $client->GetSkill(63);
  my $skill = $client->GetSkill(64);
  my $skill = $client->GetSkill(65);
  my $skill = $client->GetSkill(66);
  my $skill = $client->GetSkill(67);
  my $skill = $client->GetSkill(68);
  my $skill = $client->GetSkill(69);
  my $skill = $client->GetSkill(70);
  my $skill = $client->GetSkill(71);
  my $skill = $client->GetSkill(72);
  my $skill = $client->GetSkill(73);
  my $skill = $client->GetSkill(74);
  my $skill = $client->GetSkill(75);
  my $skill = $client->GetSkill(76);
  
  my $max = $client->MaxSkill( $skill, $client->GetClass(), $client->GetLevel() ); # get the maximum skll level for current skill number, based on client's class and level


  if($text=~/Hail/i)
    {
      plugin::Whisper("Hi $name. My name is Skills.
                I can $train you in your skills if you would like. Otherwise I might be able to teach some more $advanced.");
    }
  if($text=~/train/i)
     
        {
        # skip to next skill if client can't have this skill
        next unless $client->CanHaveSkill($skill);
              
        
        # skip to next skill unless the maximum skill level from above is higher than the client's current raw skill level
        next unless $max > $client->GetRawSkill($skill);
        
        # set the current skill level to the maximum, as determined above
        $client->SetSkill( $skill, $max );
       }
    
  if($text=~/advanced skills/i)
    {
      plugin::Whisper("Yes, I can train you even more. I can train you so much, in fact, that when I am done, I doubt you could go further! However, I cannot merely offer my services for $free now can I?");
      plugin::Whisper("No, no. But, I am in a good mood today, and I am willing to $trade you your higher skills in exchange for something.");
    }
  if($text=~/free/i)
    {
      plugin::Whisper("The only thing you will get from me for free is a swift kick up the --");
      quest::emote("Skills turns his head in disgust.");
    }
  if($text=~/trade/i)
    {
      plugin::Whisper("Yes, you must do something for me for your $advanced.");
      plugin::Whisper("If you wouldn't mind getting your armor a little scratched, I am going to require a few $items from some different locations.");
    }
  if($text=~/items/i)
    {
      plugin::Whisper("Ah, glad to hear that you are willing to begin your training. In that case, I am going to need the following:");
      $client->Message(315, "===$zone1===");
      plugin::Whisper("$item1 X $count1");
      $client->Message(315, "===$zone2===");
      plugin::Whisper("$item2 X $count2");
    }
    
  }
 sub EVENT_ITEM
  {

  if(plugin::check_handin(\%itemcount, 9989 => 1))
    
    {
    plugin::Whisper("As promised, here are your advanced skills. Use them wisely.");
    $npc->SetSkillAll(400, $client);
    }
    
    plugin::return_items(\%itemcount);
  }
If I do just my $skill(#); then the NPC will not talk to me in the least. So I tried to find a parameter that WOULD work, but I am using the wrong one?

If I leave the $max = $client-> .... where you have it in the original, NPC still will not talk to me.

I don't know what I am doing wrong to be honest.

Sorry for the annoyance with this, I truly am trying to learn this the best that I can. I can do everything else just fine, spawn mobs, create tasks, etc, etc... but it just seems that any of the skill commands I get from here just either don't work, or don't wanna work. Which I am not sure.

Thanks,
Kingmen

===EDIT===

I have found a temporary work around for the skill trainer, but I am going to mess with it some more until I find a more workable command/script for it.

Here is what I have:
Code:
##########
#Skills Trainer And Quest
#By Kingmen30264
##########

 sub EVENT_SAY
  {
  my $train = quest::saylink("train");
  my $advanced = quest::saylink("advanced skills");
  my $trade = quest::saylink("trade");
  my $free = quest::saylink("FREE");
  my $items = quest::saylink("items");
  my $zone1 = quest::saylink("zone1");
  my $zone2 = quest::saylink("zone2");
  my $item1 = quest::varlink("9989");
  my $item2 = quest::varlink("9999");
  my $count1 = quest::saylink("2");
  my $count2 = quest::saylink("2");
  
  my $skill = quest::addskill(0, $ulevel = 20);
  my $skill = quest::addskill(1, $ulevel = 20);
  my $skill = quest::addskill(2, $ulevel = 20);
  my $skill = quest::addskill(3, $ulevel = 20);
  my $skill = quest::addskill(4, $ulevel = 20);
  my $skill = quest::addskill(5, $ulevel = 20);
  my $skill = quest::addskill(6, $ulevel = 20);
  my $skill = quest::addskill(7, $ulevel = 20);
  my $skill = quest::addskill(8, $ulevel = 20);
  my $skill = quest::addskill(9, $ulevel = 20);
  my $skill = quest::addskill(10, $ulevel = 20);
  my $skill = quest::addskill(11, $ulevel = 20);
  my $skill = quest::addskill(12, $ulevel = 20);
  my $skill = quest::addskill(13, $ulevel = 20);
  my $skill = quest::addskill(14, $ulevel = 20);
  my $skill = quest::addskill(15, $ulevel = 20);
  my $skill = quest::addskill(16, $ulevel = 20);
  my $skill = quest::addskill(17, $ulevel = 20);
  my $skill = quest::addskill(18, $ulevel = 20);
  my $skill = quest::addskill(19, $ulevel = 20);
  my $skill = quest::addskill(20, $ulevel = 20);
  my $skill = quest::addskill(21, $ulevel = 20);
  my $skill = quest::addskill(22, $ulevel = 20);
  my $skill = quest::addskill(23, $ulevel = 20);
  my $skill = quest::addskill(24, $ulevel = 20);
  my $skill = quest::addskill(25, $ulevel = 20);
  my $skill = quest::addskill(26, $ulevel = 20);
  my $skill = quest::addskill(27, $ulevel = 20);
  my $skill = quest::addskill(28, $ulevel = 20);
  my $skill = quest::addskill(29, $ulevel = 20);
  my $skill = quest::addskill(30, $ulevel = 20);
  my $skill = quest::addskill(31, $ulevel = 20);
  my $skill = quest::addskill(32, $ulevel = 20);
  my $skill = quest::addskill(33, $ulevel = 20);
  my $skill = quest::addskill(34, $ulevel = 20);
  my $skill = quest::addskill(35, $ulevel = 20);
  my $skill = quest::addskill(36, $ulevel = 20);
  my $skill = quest::addskill(37, $ulevel = 20);
  my $skill = quest::addskill(38, $ulevel = 20);
  my $skill = quest::addskill(39, $ulevel = 20);
  my $skill = quest::addskill(40, $ulevel = 20);
  my $skill = quest::addskill(41, $ulevel = 20);
  my $skill = quest::addskill(42, $ulevel = 20);
  my $skill = quest::addskill(43, $ulevel = 20);
  my $skill = quest::addskill(44, $ulevel = 20);
  my $skill = quest::addskill(45, $ulevel = 20);
  my $skill = quest::addskill(46, $ulevel = 20);
  my $skill = quest::addskill(47, $ulevel = 20);
  my $skill = quest::addskill(48, $ulevel = 20);
  my $skill = quest::addskill(49, $ulevel = 20);
  my $skill = quest::addskill(50, $ulevel = 20);
  my $skill = quest::addskill(51, $ulevel = 20);
  my $skill = quest::addskill(52, $ulevel = 20);
  my $skill = quest::addskill(53, $ulevel = 20);
  my $skill = quest::addskill(54, $ulevel = 20);
  my $skill = quest::addskill(55, $ulevel = 20);
  my $skill = quest::addskill(56, $ulevel = 20);
  my $skill = quest::addskill(57, $ulevel = 20);
  my $skill = quest::addskill(58, $ulevel = 20);
  my $skill = quest::addskill(59, $ulevel = 20);
  my $skill = quest::addskill(60, $ulevel = 20);
  my $skill = quest::addskill(61, $ulevel = 20);
  my $skill = quest::addskill(62, $ulevel = 20);
  my $skill = quest::addskill(63, $ulevel = 20);
  my $skill = quest::addskill(64, $ulevel = 20);
  my $skill = quest::addskill(65, $ulevel = 20);
  my $skill = quest::addskill(66, $ulevel = 20);
  my $skill = quest::addskill(67, $ulevel = 20);
  my $skill = quest::addskill(68, $ulevel = 20);
  my $skill = quest::addskill(69, $ulevel = 20);
  my $skill = quest::addskill(70, $ulevel = 20);
  my $skill = quest::addskill(71, $ulevel = 20);
  my $skill = quest::addskill(72, $ulevel = 20);
  my $skill = quest::addskill(73, $ulevel = 20);
  my $skill = quest::addskill(74, $ulevel = 20);
  my $skill = quest::addskill(75, $ulevel = 20);
  my $skill = quest::addskill(76, $ulevel = 20);
  
  my $max = $client->MaxSkill( $skill, $client->GetClass(), $client->GetLevel() ); # get the maximum skll level for current skill number, based on client's class and level


  if($text=~/Hail/i)
    {
      plugin::Whisper("Hi $name. My name is Skills.
                I can $train you in your skills if you would like. Otherwise I might be able to teach some more $advanced.");
    }
  if($text=~/train/i)
     
        {
        # skip to next skill if client can't have this skill
        next unless $client->CanHaveSkill($skill);
              
        
        # skip to next skill unless the maximum skill level from above is higher than the client's current raw skill level
        next unless $max > $client->GetRawSkill($skill);
        
        # set the current skill level to the maximum, as determined above
        $client->SetSkill( $skill, $max );
       }
    
  if($text=~/advanced skills/i)
    {
      plugin::Whisper("Yes, I can train you even more. I can train you so much, in fact, that when I am done, I doubt you could go further! However, I cannot merely offer my services for $free now can I?");
      plugin::Whisper("No, no. But, I am in a good mood today, and I am willing to $trade you your higher skills in exchange for something.");
    }
  if($text=~/free/i)
    {
      plugin::Whisper("The only thing you will get from me for free is a swift kick up the --");
      quest::emote("Skills turns his head in disgust.");
    }
  if($text=~/trade/i)
    {
      plugin::Whisper("Yes, you must do something for me for your $advanced.");
      plugin::Whisper("If you wouldn't mind getting your armor a little scratched, I am going to require a few $items from some different locations.");
    }
  if($text=~/items/i)
    {
      plugin::Whisper("Ah, glad to hear that you are willing to begin your training. In that case, I am going to need the following:");
      $client->Message(315, "===$zone1===");
      plugin::Whisper("$item1 X $count1");
      $client->Message(315, "===$zone2===");
      plugin::Whisper("$item2 X $count2");
    }
    
  }
 sub EVENT_ITEM
  {

  if(plugin::check_handin(\%itemcount, 9989 => 1))
    
    {
    plugin::Whisper("As promised, here are your advanced skills. Use them wisely.");
    $npc->SetSkillAll(400, $client);
    }
    
    plugin::return_items(\%itemcount);
  }
===EDIT 2===

After messing with it some more, here is what I have come up with so far that will work for what I am trying to do... It is VERY sloppy, but I am hoping that I can alter this through Hashes?

Code:
##########
#Skills Trainer And Quest
#By Kingmen30264
##########

 sub EVENT_SAY
  {
  my $train = quest::saylink("train");
  my $advanced = quest::saylink("advanced skills");
  my $trade = quest::saylink("trade");
  my $free = quest::saylink("FREE");
  my $items = quest::saylink("items");
  my $zone1 = quest::saylink("zone1");
  my $zone2 = quest::saylink("zone2");
  my $item1 = quest::varlink("9989");
  my $item2 = quest::varlink("9999");
  my $count1 = quest::saylink("2");
  my $count2 = quest::saylink("2");
  
 
  my $max = $client->MaxSkill( $skill, $client->GetClass(), $client->GetLevel() ); # get the maximum skll level for current skill number, based on client's class and level


  if($text=~/Hail/i)
    {
      plugin::Whisper("Hi $name. My name is Skills.
                I can $train you in your skills if you would like. Otherwise I might be able to teach some more $advanced.");
    }
  if($text=~/train/i)
     
        {
      my $skill = quest::addskill(0, $ulevel = 100);
	  my $skill = quest::addskill(1, $ulevel = 100);
	  my $skill = quest::addskill(2, $ulevel = 100);
	  my $skill = quest::addskill(3, $ulevel = 100);
	  my $skill = quest::addskill(4, $ulevel = 100);
	  my $skill = quest::addskill(5, $ulevel = 100);
	  my $skill = quest::addskill(6, $ulevel = 100);
	  my $skill = quest::addskill(7, $ulevel = 100);
	  my $skill = quest::addskill(8, $ulevel = 100);
	  my $skill = quest::addskill(9, $ulevel = 100);
	  my $skill = quest::addskill(10, $ulevel = 100);
	  my $skill = quest::addskill(11, $ulevel = 100);
	  my $skill = quest::addskill(12, $ulevel = 100);
	  my $skill = quest::addskill(13, $ulevel = 100);
	  my $skill = quest::addskill(14, $ulevel = 100);
	  my $skill = quest::addskill(15, $ulevel = 100);
	  my $skill = quest::addskill(16, $ulevel = 100);
	  my $skill = quest::addskill(17, $ulevel = 100);
	  my $skill = quest::addskill(18, $ulevel = 100);
	  my $skill = quest::addskill(19, $ulevel = 100);
	  my $skill = quest::addskill(20, $ulevel = 100);
	  my $skill = quest::addskill(21, $ulevel = 100);
	  my $skill = quest::addskill(22, $ulevel = 100);
	  my $skill = quest::addskill(23, $ulevel = 100);
	  my $skill = quest::addskill(24, $ulevel = 100);
	  my $skill = quest::addskill(25, $ulevel = 100);
	  my $skill = quest::addskill(26, $ulevel = 100);
	  my $skill = quest::addskill(27, $ulevel = 100);
	  my $skill = quest::addskill(28, $ulevel = 100);
	  my $skill = quest::addskill(29, $ulevel = 100);
	  my $skill = quest::addskill(30, $ulevel = 100);
	  my $skill = quest::addskill(31, $ulevel = 100);
	  my $skill = quest::addskill(32, $ulevel = 100);
	  my $skill = quest::addskill(33, $ulevel = 100);
	  my $skill = quest::addskill(34, $ulevel = 100);
	  my $skill = quest::addskill(35, $ulevel = 100);
	  my $skill = quest::addskill(36, $ulevel = 100);
	  my $skill = quest::addskill(37, $ulevel = 100);
	  my $skill = quest::addskill(38, $ulevel = 100);
	  my $skill = quest::addskill(39, $ulevel = 100);
	  my $skill = quest::addskill(40, $ulevel = 100);
	  my $skill = quest::addskill(41, $ulevel = 100);
	  my $skill = quest::addskill(42, $ulevel = 100);
	  my $skill = quest::addskill(43, $ulevel = 100);
	  my $skill = quest::addskill(44, $ulevel = 100);
	  my $skill = quest::addskill(45, $ulevel = 100);
	  my $skill = quest::addskill(46, $ulevel = 100);
	  my $skill = quest::addskill(47, $ulevel = 100);
	  my $skill = quest::addskill(48, $ulevel = 100);
	  my $skill = quest::addskill(49, $ulevel = 100);
	  my $skill = quest::addskill(50, $ulevel = 100);
	  my $skill = quest::addskill(51, $ulevel = 100);
	  my $skill = quest::addskill(52, $ulevel = 100);
	  my $skill = quest::addskill(53, $ulevel = 100);
	  my $skill = quest::addskill(54, $ulevel = 100);
	  my $skill = quest::addskill(55, $ulevel = 100);
	  my $skill = quest::addskill(56, $ulevel = 100);
	  my $skill = quest::addskill(57, $ulevel = 100);
	  my $skill = quest::addskill(58, $ulevel = 100);
	  my $skill = quest::addskill(59, $ulevel = 100);
	  my $skill = quest::addskill(60, $ulevel = 100);
	  my $skill = quest::addskill(61, $ulevel = 100);
	  my $skill = quest::addskill(62, $ulevel = 100);
	  my $skill = quest::addskill(63, $ulevel = 100);
	  my $skill = quest::addskill(64, $ulevel = 100);
	  my $skill = quest::addskill(65, $ulevel = 100);
	  my $skill = quest::addskill(66, $ulevel = 100);
	  my $skill = quest::addskill(67, $ulevel = 100);
	  my $skill = quest::addskill(68, $ulevel = 100);
	  my $skill = quest::addskill(69, $ulevel = 100);
	  my $skill = quest::addskill(70, $ulevel = 100);
	  my $skill = quest::addskill(71, $ulevel = 100);
	  my $skill = quest::addskill(72, $ulevel = 100);
	  my $skill = quest::addskill(73, $ulevel = 100);
	  my $skill = quest::addskill(74, $ulevel = 100);
	  my $skill = quest::addskill(75, $ulevel = 100);
	  my $skill = quest::addskill(76, $ulevel = 100);
       }
    
  if($text=~/advanced skills/i)
    {
      plugin::Whisper("Yes, I can train you even more. I can train you so much, in fact, that when I am done, I doubt you could go further! However, I cannot merely offer my services for $free now can I?");
      plugin::Whisper("No, no. But, I am in a good mood today, and I am willing to $trade you your higher skills in exchange for something.");
    }
  if($text=~/free/i)
    {
      plugin::Whisper("The only thing you will get from me for free is a swift kick up the --");
      quest::emote("Skills turns his head in disgust.");
    }
  if($text=~/trade/i)
    {
      plugin::Whisper("Yes, you must do something for me for your $advanced.");
      plugin::Whisper("If you wouldn't mind getting your armor a little scratched, I am going to require a few $items from some different locations.");
    }
  if($text=~/items/i)
    {
      plugin::Whisper("Ah, glad to hear that you are willing to begin your training. In that case, I am going to need the following:");
      $client->Message(315, "===$zone1===");
      plugin::Whisper("$item1 X $count1");
      $client->Message(315, "===$zone2===");
      plugin::Whisper("$item2 X $count2");
    }
    
  }
 sub EVENT_ITEM
  {

  if(plugin::check_handin(\%itemcount, 9989 => 1))
	{
    my $skill = quest::addskill(0, $ulevel = 1000);
    my $skill = quest::addskill(1, $ulevel = 1000);
    my $skill = quest::addskill(2, $ulevel = 1000);
    my $skill = quest::addskill(3, $ulevel = 1000);
    my $skill = quest::addskill(4, $ulevel = 1000);
    my $skill = quest::addskill(5, $ulevel = 1000);
    my $skill = quest::addskill(6, $ulevel = 1000);
    my $skill = quest::addskill(7, $ulevel = 1000);
    my $skill = quest::addskill(8, $ulevel = 1000);
    my $skill = quest::addskill(9, $ulevel = 1000);
    my $skill = quest::addskill(10, $ulevel = 1000);
    my $skill = quest::addskill(11, $ulevel = 1000);
    my $skill = quest::addskill(12, $ulevel = 1000);
    my $skill = quest::addskill(13, $ulevel = 1000);
    my $skill = quest::addskill(14, $ulevel = 1000);
    my $skill = quest::addskill(15, $ulevel = 1000);
    my $skill = quest::addskill(16, $ulevel = 1000);
    my $skill = quest::addskill(17, $ulevel = 1000);
    my $skill = quest::addskill(18, $ulevel = 1000);
    my $skill = quest::addskill(19, $ulevel = 1000);
    my $skill = quest::addskill(20, $ulevel = 1000);
    my $skill = quest::addskill(21, $ulevel = 1000);
    my $skill = quest::addskill(22, $ulevel = 1000);
    my $skill = quest::addskill(23, $ulevel = 1000);
    my $skill = quest::addskill(24, $ulevel = 1000);
    my $skill = quest::addskill(25, $ulevel = 1000);
    my $skill = quest::addskill(26, $ulevel = 1000);
    my $skill = quest::addskill(27, $ulevel = 1000);
    my $skill = quest::addskill(28, $ulevel = 1000);
    my $skill = quest::addskill(29, $ulevel = 1000);
    my $skill = quest::addskill(30, $ulevel = 1000);
    my $skill = quest::addskill(31, $ulevel = 1000);
    my $skill = quest::addskill(32, $ulevel = 1000);
    my $skill = quest::addskill(33, $ulevel = 1000);
    my $skill = quest::addskill(34, $ulevel = 1000);
    my $skill = quest::addskill(35, $ulevel = 1000);
    my $skill = quest::addskill(36, $ulevel = 1000);
    my $skill = quest::addskill(37, $ulevel = 1000);
    my $skill = quest::addskill(38, $ulevel = 1000);
    my $skill = quest::addskill(39, $ulevel = 1000);
    my $skill = quest::addskill(40, $ulevel = 1000);
    my $skill = quest::addskill(41, $ulevel = 1000);
    my $skill = quest::addskill(42, $ulevel = 1000);
    my $skill = quest::addskill(43, $ulevel = 1000);
    my $skill = quest::addskill(44, $ulevel = 1000);
    my $skill = quest::addskill(45, $ulevel = 1000);
    my $skill = quest::addskill(46, $ulevel = 1000);
    my $skill = quest::addskill(47, $ulevel = 1000);
    my $skill = quest::addskill(48, $ulevel = 1000);
    my $skill = quest::addskill(49, $ulevel = 1000);
    my $skill = quest::addskill(50, $ulevel = 1000);
    my $skill = quest::addskill(51, $ulevel = 1000);
    my $skill = quest::addskill(52, $ulevel = 1000);
    my $skill = quest::addskill(53, $ulevel = 1000);
    my $skill = quest::addskill(54, $ulevel = 1000);
    my $skill = quest::addskill(55, $ulevel = 1000);
    my $skill = quest::addskill(56, $ulevel = 1000);
    my $skill = quest::addskill(57, $ulevel = 1000);
    my $skill = quest::addskill(58, $ulevel = 1000);
    my $skill = quest::addskill(59, $ulevel = 1000);
    my $skill = quest::addskill(60, $ulevel = 1000);
    my $skill = quest::addskill(61, $ulevel = 1000);
    my $skill = quest::addskill(62, $ulevel = 1000);
    my $skill = quest::addskill(63, $ulevel = 1000);
    my $skill = quest::addskill(64, $ulevel = 1000);
    my $skill = quest::addskill(65, $ulevel = 1000);
    my $skill = quest::addskill(66, $ulevel = 1000);
    my $skill = quest::addskill(67, $ulevel = 1000);
    my $skill = quest::addskill(68, $ulevel = 1000);
    my $skill = quest::addskill(69, $ulevel = 1000);
    my $skill = quest::addskill(70, $ulevel = 1000);
    my $skill = quest::addskill(71, $ulevel = 1000);
    my $skill = quest::addskill(72, $ulevel = 1000);
    my $skill = quest::addskill(73, $ulevel = 1000);
    my $skill = quest::addskill(74, $ulevel = 1000);
    my $skill = quest::addskill(75, $ulevel = 1000);
    my $skill = quest::addskill(76, $ulevel = 1000);
	}
    {
    plugin::Whisper("As promised, here are your advanced skills. Use them wisely.");
    
    }
    
    plugin::return_items(\%itemcount);
  }
Hopefully I can clean this up some on my own. I thank those that helped me throughout this post so far in getting me this far.

Thanks,
Kingmen30264
Reply With Quote
 

« Previous Thread | Next Thread »

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

   

All times are GMT -4. The time now is 03:17 AM.

EQEmulator - Archive - Top

 

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