Thread: Perl Problem.
View Single Post
  #1  
Old 12-25-2012, 11:36 PM
kmra247
Sarnak
 
Join Date: Apr 2012
Posts: 55
Default Perl Problem.

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.


Code:
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);
		}			
    }
}
Reply With Quote