Akkadius
03-19-2010, 01:53 PM
If anyone wants this for their own use, here is a script that will load load2 points for you... I have a NPC in every location that it sends this to for players and I will be manipulating this for further use later but here is a rough sketch
#race needs to be 127
sub EVENT_SPAWN {
quest::settimer(effect,1);
$x = $npc->GetX();
$y = $npc->GetY();
$z = $npc->GetZ();
quest::set_proximity($x - 10, $x + 10, $y - 10, $y + 10, $z - 10, $z + 20);
}
sub EVENT_ENTER
{
$client->Message(15, "Target the portal, and say [activate] to flare");
}
sub EVENT_SAY
{
my $hall = quest::saylink("Hall of Heroes", 0, "Hall of Heroes");
my $armory = quest::saylink("The Armory", 0, "The Armory");
my $redcarpet = quest::saylink("Red Carpet", 0, "Red Carpet");
my $trees = quest::saylink("Trees With Wall", 0, "Trees With Wall");
my $library1 = quest::saylink("Library One", 0, "Library One");
my $library2 = quest::saylink("Library Two", 0, "Library Two");
my $redcarpet2 = quest::saylink("Red Carpet Two", 0, "Red Carpet Two");
my $campfire = quest::saylink("Campfire", 0, "Campfire");
my $cellar = quest::saylink("Cellar", 0, "Cellar");
my $firestones = quest::saylink("Firestones", 0, "Firestones");
my $quad = quest::saylink("Quad", 0, "Quad");
my $chitown = quest::saylink("Chi-Town", 0, "Chi-Town");
my $fire = quest::saylink("Firepool", 0, "Firepool");
if($text=~/The Armory/i)
{
quest::movepc(185,1470,605,-180,0);
}
if($text=~/Hall of Heroes/i)
{
$npc->SignalClient($client, 1);
}
if($text=~/activate/i)
{
$client->Message(15, "[$hall]");
$client->Message(15, "[$armory]");
}
if($status > 120) ##GM LIST
{
if($text=~/activate/i)
{
$client->Message(14, "~~~~~GM LIST~~~~~");
$client->Message(15, "[$redcarpet]");
$client->Message(15, "[$trees]");
$client->Message(15, "[$library1]");
$client->Message(15, "[$library2]");
$client->Message(15, "[$redcarpet2]");
$client->Message(15, "[$campfire]");
$client->Message(15, "[$cellar]");
$client->Message(15, "[$firestones]");
$client->Message(15, "[$quad]");
$client->Message(15, "[$chitown]");
$client->Message(15, "[$fire]");
}
if($text=~/Red Carpet/i)
{
quest::movepc(185,-241, -846, -181,0);
}
if($text=~/Trees With Wall/i)
{
quest::movepc(185,600, 40,-986,0);
}
if($text=~/Library One/i)
{
quest::movepc(185,620, -900, 129,0);
}
if($text=~/Library Two/i)
{
quest::movepc(185,621, 645, -31,0);
}
if($text=~/Red Carpet Two/i)
{
quest::movepc(185,729, -33, 129,0);
}
if($text=~/Campfire/i)
{
quest::movepc(185,1418,-10,0,0);
}
if($text=~/Cellar/i)
{
quest::movepc(185,641,-678,-47,0);
}
if($text=~/Firestones/i)
{
quest::movepc(185,-799,-156, 509,0);
}
if($text=~/Quad/i)
{
quest::movepc(185,-1274,-840,-206,0);
}
if($text=~/Chi-Town/i)
{
quest::movepc(185,-1124,-1,385,0);
}
if($text=~/Firepool/i)
{
quest::movepc(185,-1274,-835,-332,0);
}
}
}
sub EVENT_PROXIMITY_SAY
{
if($text=~/-/i)
{
quest::movepc(185,1470,605,-180,0);
}
if($text=~/-/i)
{
$client->Message(15, "[$armory]");
}
if($status > 120) ##GM LIST
{
if($text=~/-/i)
{
$client->Message(14, "~~~~~GM LIST~~~~~");
$client->Message(15, "[$redcarpet]");
}
if($text=~/Red Carpet/i)
{
quest::movepc(185,-241, -846, -181,0);
}
}
}
sub EVENT_TIMER
{
if($timer eq "effect"){
$npc->CastToMob()->SendAppearanceEffect(79,80,0,0,0);
quest::stoptimer("effect");
quest::settimer(effect,1.5);
}
}
#race needs to be 127
sub EVENT_SPAWN {
quest::settimer(effect,1);
$x = $npc->GetX();
$y = $npc->GetY();
$z = $npc->GetZ();
quest::set_proximity($x - 10, $x + 10, $y - 10, $y + 10, $z - 10, $z + 20);
}
sub EVENT_ENTER
{
$client->Message(15, "Target the portal, and say [activate] to flare");
}
sub EVENT_SAY
{
my $hall = quest::saylink("Hall of Heroes", 0, "Hall of Heroes");
my $armory = quest::saylink("The Armory", 0, "The Armory");
my $redcarpet = quest::saylink("Red Carpet", 0, "Red Carpet");
my $trees = quest::saylink("Trees With Wall", 0, "Trees With Wall");
my $library1 = quest::saylink("Library One", 0, "Library One");
my $library2 = quest::saylink("Library Two", 0, "Library Two");
my $redcarpet2 = quest::saylink("Red Carpet Two", 0, "Red Carpet Two");
my $campfire = quest::saylink("Campfire", 0, "Campfire");
my $cellar = quest::saylink("Cellar", 0, "Cellar");
my $firestones = quest::saylink("Firestones", 0, "Firestones");
my $quad = quest::saylink("Quad", 0, "Quad");
my $chitown = quest::saylink("Chi-Town", 0, "Chi-Town");
my $fire = quest::saylink("Firepool", 0, "Firepool");
if($text=~/The Armory/i)
{
quest::movepc(185,1470,605,-180,0);
}
if($text=~/Hall of Heroes/i)
{
$npc->SignalClient($client, 1);
}
if($text=~/activate/i)
{
$client->Message(15, "[$hall]");
$client->Message(15, "[$armory]");
}
if($status > 120) ##GM LIST
{
if($text=~/activate/i)
{
$client->Message(14, "~~~~~GM LIST~~~~~");
$client->Message(15, "[$redcarpet]");
$client->Message(15, "[$trees]");
$client->Message(15, "[$library1]");
$client->Message(15, "[$library2]");
$client->Message(15, "[$redcarpet2]");
$client->Message(15, "[$campfire]");
$client->Message(15, "[$cellar]");
$client->Message(15, "[$firestones]");
$client->Message(15, "[$quad]");
$client->Message(15, "[$chitown]");
$client->Message(15, "[$fire]");
}
if($text=~/Red Carpet/i)
{
quest::movepc(185,-241, -846, -181,0);
}
if($text=~/Trees With Wall/i)
{
quest::movepc(185,600, 40,-986,0);
}
if($text=~/Library One/i)
{
quest::movepc(185,620, -900, 129,0);
}
if($text=~/Library Two/i)
{
quest::movepc(185,621, 645, -31,0);
}
if($text=~/Red Carpet Two/i)
{
quest::movepc(185,729, -33, 129,0);
}
if($text=~/Campfire/i)
{
quest::movepc(185,1418,-10,0,0);
}
if($text=~/Cellar/i)
{
quest::movepc(185,641,-678,-47,0);
}
if($text=~/Firestones/i)
{
quest::movepc(185,-799,-156, 509,0);
}
if($text=~/Quad/i)
{
quest::movepc(185,-1274,-840,-206,0);
}
if($text=~/Chi-Town/i)
{
quest::movepc(185,-1124,-1,385,0);
}
if($text=~/Firepool/i)
{
quest::movepc(185,-1274,-835,-332,0);
}
}
}
sub EVENT_PROXIMITY_SAY
{
if($text=~/-/i)
{
quest::movepc(185,1470,605,-180,0);
}
if($text=~/-/i)
{
$client->Message(15, "[$armory]");
}
if($status > 120) ##GM LIST
{
if($text=~/-/i)
{
$client->Message(14, "~~~~~GM LIST~~~~~");
$client->Message(15, "[$redcarpet]");
}
if($text=~/Red Carpet/i)
{
quest::movepc(185,-241, -846, -181,0);
}
}
}
sub EVENT_TIMER
{
if($timer eq "effect"){
$npc->CastToMob()->SendAppearanceEffect(79,80,0,0,0);
quest::stoptimer("effect");
quest::settimer(effect,1.5);
}
}