Everquest F2P on Steam

[c0ncrete]

unrelated to thread and rife with typos/syntax errors. imagine that.

Originally Posted by Noport

Old man Thorren.pl updated

#Old man Thorren.pl
# LOC PoK (-170.68,-261.52,-156.31)

sub EVENT_SAY { 
if($text=~/Hail/i){
quest::say("Welcome $name. To ease your [Newly discovered Lands]. If you wish, I can also send you to [Arena] or [Crafthalls]. But be warned that while I can Teleport you to these distant Lands, you are on your own for finding a way back.");

}     if($text=~/Newly discovered Lands/i) {
        quest::say("I can whisk you to Argath,Valley of Lunanyn,Sarith,Rubak Oseka,Beast Domain,Resplacement Temple,Bronze,Pillars,Windsong,Sepulcher,Sepulcher East,Sepulcher West,Shard's,xorbb,Kael,East Wastes,Crystal,Breeding Grounds,Evantil,Grelleth's,Temple of Veeshan")   
      }
      if($text=~/Arena/i) {
        quest::movepc(-882.00,132.00,51.47); Arena
      }
      if($text=~/Crafthalls/i) {
        quest::movepc(0.00,0.00,-6.30); Crafthalls
       }
      if($text=~/Argath/i) {
        quest::movepc(62000.00,7930.00,-29.99); Argath
      }
      if($text=~/Valley of Lunanyn/i) {
        quest::movepc(3379.00,-1922.00,1333.37); Valley of Lunanyn
      }
      if($text=~/Sarith/i) {
       quest::movepc(918.00,-499.00,-1.87); Sarith
      }
      if($text=~/Rubak Oseka/i) {
       quest::movepc(-27.00,-56.00,516.17); Rubak Oseka
      }
      if($text=~/Beast Domain/i) {
       quest::movepc(-4846.00,4463.00,181.21); Beast Domain
      }
      if($text=~/Resplacement Temple/i) {
       quest::movepc(92.00,-76.00,9.90); Resplacement Temple
      }
      if($text=~/Bronze/i) {
       quest::movepc(-978.00,-2255.00,50.54); Bronze
      }
      if($text=~/Pillars/i) {
       quest::movepc(); Pillars
      }
      if($text=~/Windsong/i) {
       quest::movepc(); Windsong
      }
      if($text=~/Sepulcher/i) {
       quest::movepc(); Sepulcher
      }
      if($text=~/Sepulcher East/i) {
       quest::movepc(); Sepulcher East
      }
      if($text=~/Sepulcher West/i) {
       quest::movepc(); Sepulcher West
      }
      if($text=~/Shard's/i) {
       quest::movepc(-1965.00,-495.00,2.64); Shard's Landing
       }
      if($text=~/xorbb/i) {
       quest::movepc(-1739.00,-807.00,132.25); Valley of King
       }
      if($text=~/Kael/i) {
       quest::movepc(-74.00,633.00,124.31); Kael Drakkel
      }
      if($text=~/East Wastes/i) {
       quest::movepc(-4517.00,-4023.00,224.98); The Kings Maddness 
       }
      if($text=~/Crystal/i) {
       quest::movepc(-460.00,234.00,-75.59); Crystal Caverns
       }   
      if($text=~/Breeding Grounds/i) {
       quest::movepc(1.00,7.00,4.21); The Breeding Grounds
       }   
      if($text=~/Evantil/i) {
       quest::movepc(198.00,1374.00,193.90); The Vile Oak 
       }   
      if($text=~/Grelleths/i) {
       quest::movepc(32.00,-2.00,2.87); Grelleth's Place
          }   
      if($text=~/Temple of Veeshan/i) {
       quest::movepc(1361.00,658.00,-195.34); Temple of Veeshan   
sub EVENT_SPAWN
{
    $x = $npc->GetX();
    $y = $npc->GetY();
    quest::set_proximity($x - 170.68, $x - 261.52, $y - 156.31, $y + 0);
}


}
sub EVENT_ITEM {
  quest::say("I have no use for this, $name.");
  plugin::return_items(\%itemcount);
}

#END of FILE Zone:poknowledge

Lorekeeper Antinov.pl

#Lordkeeper Antnov.pl
#LOC Pok (-229.65,-197.30,-155.31)
sub EVENT_SAY {
$charid = 0;
$corpse = 0;
$charid = $client->CharacterID();
$x = $npc->GetX();
$y = $npc->GetY();
$z = $npc->GetZ();
$corpse = quest::getplayerburriedcorpsecount($charid);
sub EVENT_SAY { 
if($text=~/Hail/i){
quest::say("Greetings $Name! If you wish to Improve yourself Just [Ask] and, if I am able, I will increase your power. I also have The Ability
to [Summon] any corpses you may be missing.");

}
      if($text=~/AsK/i) {
         $client->Message("Vary well, $name, I will grant you what power I am able."); #ASk
      
      if($text=~/Summon/i && $corpse == 0) {
         $client->Message("Vary well, $name, I shell Recover your Corpses! ");
          quest::summonburriedplayercorpse($charid, $x, $y, $z, 0);
         $corpse = 0;
         $charid = 0;
}

sub EVENT_SPAWN
{
    $x = $npc->GetX();
    $y = $npc->GetY();
    quest::set_proximity($x - 229.65, $x -197.30, $y -155.31, $y + 0);
}


} 
sub EVENT_ITEM {
  quest::say("I have no use for this, $name.");
  plugin::return_items(\%itemcount);
}

#END of FILE Zone:poknowledge