Perl Problem.

[kmra247]

Hey guys, I've been having an issue with the turn in not working, this is not a complete script, I'm just testing if the item turn in works, but it's not spawning the 1.0 for my class, any thoughts?

EDIT: 150111 Is the Token I will be adding after next restart.


sub EVENT_SAY
{
my $token = quest::saylink('Epic 1.0 Token');
##my $token = quest::varlink(150111);
my $NPCName = $npc->GetCleanName();

if($text=~/Hail/i)
{
quest::say("Hello, $name, I assume you're ready to do your Epic 1.0 Task, here you go! When you're done, just hand me the $token and you will recieve your class 1.0!");
quest::taskselector(271);
}
}


sub EVENT_ITEM
{
if (plugin::check_handin(150110 => 1))
{
if($class eq 'Shadowknight')
{
quest::summonitem(14383, 1);
}
elsif($class eq 'Warrior')
{
quest::summonitem(84105, 1);
quest::summonitem(84106, 1);
}
elsif($class eq 'Paladin')
{
quest::summonitem(10099, 1);
}
elsif($class eq 'Monk')
{
quest::summonitem(10652, 1);
}
elsif($class eq 'Cleric')
{
quest::summonitem(5532, 1);
}
elsif($class eq 'Berserker')
{
quest::summonitem(68299, 1);
}
elsif($class eq 'Magician')
{
quest::summonitem(28034, 1);
}
elsif($class eq 'Wizard')
{
quest::summonitem(14341, 1);
}
elsif($class eq 'Bard')
{
quest::summonitem(20542, 1);
}
elsif($class eq 'Beastlord')
{
quest::summonitem(8495, 1);
quest::summonitem(8496, 1);
}
elsif($class eq 'Druid')
{
quest::summonitem(20490, 1);
}
elsif($class eq 'Ranger')
{
quest::summonitem(20487, 1);
quest::summonitem(20488, 1);
els}
if($class eq 'Shaman')
{
quest::summonitem(10651, 1);
}
elsif($class eq 'Rogue')
{
quest::summonitem(11057, 1);
}
elsif($class eq 'Necromancer')
{
quest::summonitem(20544, 1);
}
}
}

[joligario]

At quick glance you are missing the \%itemcount hash.

You also have an els in there.

[kmra247]

Fixed the script, forgot I made this, sorry for the inconvenience.

Finished script if you guys want it:
sub EVENT_SAY
{
my $NPCName = $npc->GetCleanName();
my $token = quest::varlink(150111);
my $MNK = quest::varlink(10652);
my $WAR = quest::varlink(84105);
my $WAR2 = quest::varlink(84106);
my $SHM = quest::varlink(10651);
my $SK = quest::varlink(14383);
my $BST = quest::varlink(8495);
my $BST2 = quest::varlink(8496);
my $PAL = quest::varlink(10099);
my $DRU = quest::varlink(20490);
my $CLR = quest::varlink(5532);
my $MAG = quest::varlink(28034);
my $BER = quest::varlink(68299);
my $WIZ = quest::varlink(14341);
my $BRD = quest::varlink(20542);
my $ROG = quest::varlink(11057);
my $NEC = quest::varlink(20544);
my $RNG = quest::varlink(20487);
my $RNG2 = quest::varlink(20488);


if($text=~/Hail/i)
{
$client->Message(315, "$NPCName whispers to you, 'Hello, $name, I assume you're ready to do your Epic 1.0 Task, here you go! When you're done, just hand me the $token and you will recieve your class 1.0!'");
quest::taskselector(271);
}
}


sub EVENT_ITEM
{
if($ulevel >= 50){
if(plugin::check_handin(\%itemcount, 150110 => 1))
{
if($class eq 'Shadowknight')
{
quest::summonitem(14383, 1);
quest::shout("Congratulations to $name on their Epic 1.0, $SK!");
}
if($class eq 'Warrior')
{
quest::summonitem(84105, 1);
quest::summonitem(84106, 1);
quest::shout("Congratulations to $name on their Epic 1.0s, $WAR and $WAR2!");
}
if($class eq 'Paladin')
{
quest::summonitem(10099, 1);
quest::shout("Congratulations to $name on their Epic 1.0, $PAL!");
}
if($class eq 'Monk')
{
quest::summonitem(10652, 1);
quest::shout("Congratulations to $name on their Epic 1.0, $MNK!");
}
if($class eq 'Cleric')
{
quest::summonitem(5532, 1);
quest::shout("Congratulations to $name on their Epic 1.0, $CLR!");
}
if($class eq 'Berserker')
{
quest::summonitem(68299, 1);
quest::shout("Congratulations to $name on their Epic 1.0, $BER!");
}
if($class eq 'Magician')
{
quest::summonitem(28034, 1);
quest::shout("Congratulations to $name on their Epic 1.0, $MAG!");
}
if($class eq 'Wizard')
{
quest::summonitem(14341, 1);
quest::shout("Congratulations to $name on their Epic 1.0, $WIZ!");
}
if($class eq 'Bard')
{
quest::summonitem(20542, 1);
quest::shout("Congratulations to $name on their Epic 1.0, $BRD!");
}
if($class eq 'Beastlord')
{
quest::summonitem(8495, 1);
quest::summonitem(8496, 1);
quest::shout("Congratulations to $name on their Epic 1.0, $BST and $BST2!");
}
if($class eq 'Druid')
{
quest::summonitem(20490, 1);
quest::shout("Congratulations to $name on their Epic 1.0, $DRU!");
}
if($class eq 'Ranger')
{
quest::summonitem(20487, 1);
quest::summonitem(20488, 1);
quest::shout("Congratulations to $name on their Epic 1.0s, $RNG and $RNG2!");
}
if($class eq 'Shaman')
{
quest::summonitem(10651, 1);
quest::shout("Congratulations to $name on their Epic 1.0, $SHA!");
}
if($class eq 'Rogue')
{
quest::summonitem(11057, 1);
quest::shout("Congratulations to $name on their Epic 1.0, $ROG!");
}
if($class eq 'Necromancer')
{
quest::summonitem(20544, 1);
quest::shout("Congratulations to $name on their Epic 1.0, $NEC!");
}
else{
}
}
}
else{
}
plugin::return_items(\%itemcount);
}