EQEmulator Forums

EQEmulator Forums (https://www.eqemulator.org/forums/index.php)
-   Quests::Q&A (https://www.eqemulator.org/forums/forumdisplay.php?f=599)
-   -   Perl Problem. (https://www.eqemulator.org/forums/showthread.php?t=36158)

kmra247 12-25-2012 11:36 PM
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);
                }                       
    }
}

joligario 12-25-2012 11:45 PM
At quick glance you are missing the \%itemcount hash.

You also have an els in there.

kmra247 12-26-2012 07:14 AM
Fixed the script, forgot I made this, sorry for the inconvenience.

Finished script if you guys want it:
Code:
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);
}


All times are GMT -4. The time now is 04:41 AM.

Powered by vBulletin®, Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.