mirror of
https://github.com/ProjectEQ/projecteqquests
synced 2026-08-12 00:26:10 -04:00
64 lines
1.8 KiB
Perl
64 lines
1.8 KiB
Perl
my $delivery = 0;
|
|
my $bandit1id = 56178;
|
|
my $bandit2id = 56179;
|
|
my $bandit3id = 56180;
|
|
|
|
sub EVENT_SPAWN {
|
|
quest::settimer("CargoTimer",5);
|
|
}
|
|
|
|
sub EVENT_SIGNAL {
|
|
quest::emote("Chuga.. Chug..Chug..");
|
|
quest::say("This unit requires maintenance.");
|
|
}
|
|
|
|
sub EVENT_TIMER {
|
|
if (!quest::get_data("CargoClockwork") && ($zonehour == 8)) {
|
|
quest::set_data("CargoClockwork", "1", "H2");
|
|
quest::start(177); #Path to windmills
|
|
}
|
|
if ($npc->GetTarget() && ($targetname=~/highway_bandit/i)) {
|
|
$npc->WipeHateList();
|
|
}
|
|
}
|
|
|
|
sub EVENT_WAYPOINT_ARRIVE {
|
|
if ($wp == 1 && $delivery == 1) {
|
|
quest::stop();
|
|
$delivery = 0;
|
|
}
|
|
if ($wp == 8) {
|
|
quest::say("kachunk .. kachunk..");
|
|
quest::signal(56066,1); #Watchman Grep
|
|
}
|
|
if ($wp == 10 && $delivery == 0) {
|
|
$delivery = 1;
|
|
quest::emote("Chuga.. Chug..Chug..");
|
|
quest::emote("The chugging of the Cargo Clockwork comes to a halt.");
|
|
|
|
$bandit1 = quest::spawn2($bandit1id,0,0,30,-700,-109,124); #Hector
|
|
$bandit1obj = $entity_list->GetMobID($bandit1);
|
|
$bandit1npc = $bandit1obj->CastToNPC();
|
|
$bandit1npc->AddToHateList($npc,1);
|
|
|
|
$bandit2 = quest::spawn2($bandit2id,0,0,95,-732,-108,480); #Renaldo
|
|
$bandit2obj = $entity_list->GetMobID($bandit2);
|
|
$bandit2npc = $bandit2obj->CastToNPC();
|
|
$bandit2npc->AddToHateList($npc,1);
|
|
|
|
$bandit3 = quest::spawn2($bandit3id,0,0,53,-615,-107,226); #Jerald
|
|
$bandit3obj = $entity_list->GetMobID($bandit3);
|
|
$bandit3npc = $bandit3obj->CastToNPC();
|
|
$bandit3npc->AddToHateList($npc,1);
|
|
|
|
quest::say("This is highway robbery.");
|
|
}
|
|
}
|
|
|
|
sub EVENT_DEATH_COMPLETE {
|
|
quest::stoptimer("CargoTimer");
|
|
$delivery = 0;
|
|
quest::signal($bandit1id,0); #Hector
|
|
quest::signal($bandit2id,0); #Renaldo
|
|
quest::signal($bandit3id,0); #Jerald
|
|
}
|