Thread: Perl Problem.
View Single Post
  #3  
Old 12-26-2012, 07:14 AM
kmra247
Sarnak
 
Join Date: Apr 2012
Posts: 55
Default

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