Zamthos
03-17-2013, 04:10 AM
So, players have been having issues with Bards and the Skill Trainer due to apparent MacroQuest errors, when they train their skills they crash upon login while using MacroQuest, I don't know if anyone can troubleshoot this issue or if I'm posting in the wrong place, but it would be nice to know if anyone could help, Skill Trainer script below.
sub EVENT_SAY
{
my $NPCName = $npc->GetCleanName();
my $skill = quest::saylink("skills", 1);
my $reset = quest::saylink("reset", 1);
my $languages = quest::saylink("languages", 1);
my $set = (400);
if($text=~/^Hail$/i)
{
$client->Message(315, "$NPCName whispers to you, 'Good day to you, $name. Would you like me to teach you all of your $skill, I can also $reset them. Or maybe you need to learn to speak some $languages?'");
}
if($text=~/^Skills$/i)
{
foreach my $skill (0..74)
{
next unless $client->CanHaveSkill($skill);
my $max = $client->MaxSkill( $skill, $client->GetClass(), $ulevel);
next unless $max > $client->GetRawSkill($skill);
$client->SetSkill($skill, $max);
}
}
if($text=~/^Reset$/i)
{
quest::setallskill(0);
}
if($text=~/^Languages$/i)
{
if(!defined $qglobals{Language})
{
quest::setlanguage(0, 400);
quest::setlanguage(1, 400);
quest::setlanguage(2, 400);
quest::setlanguage(3, 400);
quest::setlanguage(4, 400);
quest::setlanguage(5, 400);
quest::setlanguage(6, 400);
quest::setlanguage(7, 400);
quest::setlanguage(8, 400);
quest::setlanguage(9, 400);
quest::setlanguage(10, 400);
quest::setlanguage(11, 400);
quest::setlanguage(12, 400);
quest::setlanguage(13, 400);
quest::setlanguage(14, 400);
quest::setlanguage(15, 400);
quest::setlanguage(16, 400);
quest::setlanguage(17, 400);
quest::setlanguage(18, 400);
quest::setlanguage(19, 400);
quest::setlanguage(20, 400);
quest::setlanguage(21, 400);
quest::setlanguage(22, 400);
quest::setlanguage(23, 400);
quest::setlanguage(24, 400);
plugin::Whisper("Enjoy your new knowledge of the languages in the land of Norrath!");
quest::setglobal("Language","1","5","F");
}
else
{
plugin::Whisper("You already know all the languages in the land of Norrath!");
}
}
}
sub EVENT_SAY
{
my $NPCName = $npc->GetCleanName();
my $skill = quest::saylink("skills", 1);
my $reset = quest::saylink("reset", 1);
my $languages = quest::saylink("languages", 1);
my $set = (400);
if($text=~/^Hail$/i)
{
$client->Message(315, "$NPCName whispers to you, 'Good day to you, $name. Would you like me to teach you all of your $skill, I can also $reset them. Or maybe you need to learn to speak some $languages?'");
}
if($text=~/^Skills$/i)
{
foreach my $skill (0..74)
{
next unless $client->CanHaveSkill($skill);
my $max = $client->MaxSkill( $skill, $client->GetClass(), $ulevel);
next unless $max > $client->GetRawSkill($skill);
$client->SetSkill($skill, $max);
}
}
if($text=~/^Reset$/i)
{
quest::setallskill(0);
}
if($text=~/^Languages$/i)
{
if(!defined $qglobals{Language})
{
quest::setlanguage(0, 400);
quest::setlanguage(1, 400);
quest::setlanguage(2, 400);
quest::setlanguage(3, 400);
quest::setlanguage(4, 400);
quest::setlanguage(5, 400);
quest::setlanguage(6, 400);
quest::setlanguage(7, 400);
quest::setlanguage(8, 400);
quest::setlanguage(9, 400);
quest::setlanguage(10, 400);
quest::setlanguage(11, 400);
quest::setlanguage(12, 400);
quest::setlanguage(13, 400);
quest::setlanguage(14, 400);
quest::setlanguage(15, 400);
quest::setlanguage(16, 400);
quest::setlanguage(17, 400);
quest::setlanguage(18, 400);
quest::setlanguage(19, 400);
quest::setlanguage(20, 400);
quest::setlanguage(21, 400);
quest::setlanguage(22, 400);
quest::setlanguage(23, 400);
quest::setlanguage(24, 400);
plugin::Whisper("Enjoy your new knowledge of the languages in the land of Norrath!");
quest::setglobal("Language","1","5","F");
}
else
{
plugin::Whisper("You already know all the languages in the land of Norrath!");
}
}
}