EQEmulator Forums

EQEmulator Forums (https://www.eqemulator.org/forums/index.php)
-   Quests::Submissions (https://www.eqemulator.org/forums/forumdisplay.php?f=634)
-   -   PoNightmare Hedge Event (https://www.eqemulator.org/forums/showthread.php?t=42022)

Sturm 08-06-2018 10:05 PM

PoNightmare Hedge Event
 
The lore was missing at the end of the scripting for this event. I was bored tonight so I fixed it up. Here you go:

Code:

# Terris_Thule.pl npcID(204065)
# zone: ponightmare
# written by Sturm

sub EVENT_SPAWN {
        quest::settimer(5,10);
        quest::settimer(6,20);
}

sub EVENT_TIMER {
        if ($timer == 5) {
                quest::stoptimer(5);
                quest::say("You fool! You did not earn this prize on your own! The contract that has been drawn is now invalid. You will never leave my grasp, prepare your soul for eternal torment!");
               
        }
        if ($timer == 6) {
                quest::stoptimer(6);
                quest::emote(" laughs heartily and then vanishes in a swirl of incorporeal mist.");
                quest::signalwith(204067, 1, 10);
                quest::depop();
        }
}

Code:

# __Thelin_Poxbourne.pl npcID(204067)
# zone: ponightmare
# originally written by ??? completed by Sturm


sub EVENT_SPAWN {

        quest::settimer(7,600);
        quest::say("Terris hear me now! I have done as you have called for. My beloved dagger is whole once again! Come now keep up your part of the bargain.");
        quest::spawn2(204065,0,0,-4550.47,5079.23,4.75,255.9); #spawn Terris
}

sub EVENT_TIMER {

if($timer == 7) {
        quest::depop();
        quest::stoptimer(7);
}
if($timer == 8) {
        quest::stoptimer(8);
        quest::say("So then my hope is nearly lost. Take with you my dagger. Plunge it deep into her soulless heart. If I cannot escape from this plane under her rules, I shall make my own!");
}

}

sub EVENT_SIGNAL {
        if ($signal == 1) {
                quest::settimer(8,10);
                quest::say("Vile wench, I knew in the end it would come to this. You shall pay dearly for your injustice here.");
        }

}

sub EVENT_SAY {

        if ($text=~/Hail/i) {
          quest::say("Please destroy her for all that have had to endure her hideous visions.' Thelin closes his eyes and is swept away from his nightmare. The land of pure thought begins to vanish from around you.");
          # quest::say("She lied! She said she would release me if I found my way through the maze! Please, you must defeat her. It is the only way I will ever be free. I can help you escape this maze if you would like to [return]");
      $client->Message(4,"You receive a character flag!");
      quest::setglobal("pop_pon_construct", 1, 5, "F");
          quest::movepc(204,-1520,1104,125);
        }

{
$pop_pon_hedge_jezith=undef;
$pop_pon_construct=undef;
$pop_ponb_terris=undef;
$pop_ponb_poxbourne=undef;
$pop_poi_dragon=undef;
$pop_poi_behometh_preflag=undef;
$pop_poi_behometh_flag=undef;
$pop_pod_alder_fuirstel=undef;
$pop_pod_grimmus_planar_projection=undef;
$pop_pod_elder_fuirstel=undef;
$pop_poj_mavuin=undef;
$pop_poj_tribunal=undef;
$pop_poj_valor_storms=undef;
$pop_poj_execution=undef;
$pop_poj_flame=undef;
$pop_poj_hanging=undef;
$pop_poj_lashing=undef;
$pop_poj_stoning=undef;
$pop_poj_torture=undef;
$pop_pov_aerin_dar=undef;
$pop_pos_askr_the_lost=undef;
$pop_pos_askr_the_lost_final=undef;
$pop_cod_preflag =undef;
$pop_cod_bertox=undef;
$pop_cod_final=undef;
$pop_pot_shadyglade=undef;
$pop_pot_newleaf=undef;
$pop_pot_saryrn=undef;
$pop_pot_saryn_final=undef;
$pop_hoh_faye=undef;
$pop_hoh_trell=undef;
$pop_hoh_garn=undef;
$pop_hohb_marr=undef;
$pop_bot_agnarr=undef;
$pop_bot_karana=undef;
$pop_tactics_tallon =undef;
$pop_tactics_vallon=undef;
$pop_tactics_ralloz=undef;
$pop_elemental_grand_librarian=undef;
$pop_sol_ro_arlyxir=undef;
$pop_sol_ro_dresolik=undef;
$pop_sol_ro_jiva=undef;
$pop_sol_ro_rizlona=undef;
$pop_sol_ro_xuzl=undef;
$pop_sol_ro_solusk=undef;
$pop_fire_fennin_projection=undef;
$pop_wind_xegony_projection=undef;
$pop_water_coirnav_projection=undef;
$pop_eartha_arbitor_projection=undef;
$pop_earthb_rathe=undef;
$pop_time_maelin=undef;
}
}

Code:

# Thelin_Poxbourne.pl npcID(204016)
# zone: ponightmare
# originally written by ??? completed by Sturm

sub EVENT_SPAWN {
quest::settimer(1,1);
quest::settimer(2,7200);
}

sub EVENT_DEATH_COMPLETE {
$spawn_mob1 = undef;
$flag = undef;
$dagger = undef;
$spawn_CYCLE = undef;
quest::signalwith(204037, 5, 0);
quest::signalwith(204058, 6, 0);
quest::stoptimer(1);       
quest::stoptimer(2);
}

sub EVENT_TIMER {

if($timer == 2){
$spawn_mob1 = undef;       
$flag = undef;       
$dagger = undef;       
$spawn_CYCLE = undef;       
quest::depop();       
quest::stoptimer(1);       
quest::stoptimer(2);       
}

if($timer == 1){     
if($x == -4800 && $y == 5050  && $spawn_mob1 == undef && $flag == undef){
        quest::pause(10000);
        $spawn_mob1=$spawn_mob1+1;
        }
      if($x == -4827 && $y == 4823 && $spawn_mob1 == 2 && $flag == undef){
       
        quest::pause(10000);
        }

      if($x == -4942 && $y == 4725  && $spawn_mob1 == 4 && $flag == undef){
       
        quest::pause(10000);
        }

      if($x == -4416 && $y == 4592  && $spawn_mob1 == 7 && $flag == undef){
       
        quest::pause(10000);
        }

      if($x == -4150 && $y == 4664  && $spawn_mob1 == 11 && $flag == undef){
       
        quest::pause(10000);
        }

      if($x == -4125 && $y == 5145  && $spawn_mob1 == 16 && $flag == undef){
       
        quest::pause(10000);
        }

      if($x == -4478 && $y ==5407  && $spawn_mob1 == 22 && $flag == undef){
       
        quest::pause(10000);
        }

      if($x == -4549 && $y ==5155  && $spawn_mob1 == 29 && $flag == undef){
       
        quest::pause(10000);
        }
          }

      if($timer == 9){
        quest::depop();
        $spawn_mob1=undef;
        $flag=undef;
        $dagger=undef;
        }

      if($timer == 1){
      if($x == -4800 && $y == 5050 && $spawn_mob1 == 1 && $flag == undef){

       
           
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4740.6,5111.6,4,161.5);
            quest::stoptimer(1);
            $spawn_mob1=$spawn_mob1+1;
            }
      if($x == -4827 && $y == 4823 && $spawn_mob1 == 2 && $flag == undef){

       
           
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4810.1,4750.7,4,245);
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4750,4827.9,4,190);
            quest::stoptimer(1);
            $spawn_mob1=$spawn_mob1+2;
            }
  if($x == -4942 && $y == 4725 && $spawn_mob1 == 4 && $flag == undef){

       
           
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4899.1,4718.7,4,192);
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4904,4759,4,165);
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4912,4667,4,235);
            quest::stoptimer(1);
            $spawn_mob1=$spawn_mob1+3;
            }
  if($x == -4416 && $y == 4592 && $spawn_mob1 == 7 && $flag == undef){

       
           
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4416,4653,4,245);
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4484,4658,4,190);
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4487,4588,4,190);
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4448,4610,4,190);
            quest::stoptimer(1);
            $spawn_mob1=$spawn_mob1+4;
            }
  if($x == -4150 && $y == 4664 && $spawn_mob1 == 11 && $flag == undef){

       
           
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4208,4656,4,245);
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4208,4595,4,245);
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4145,4592,4,190);
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4095,4590,4,190);
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4092,4657,4,190);
            quest::stoptimer(1);
            $spawn_mob1=$spawn_mob1+5;
            }
  if($x == -4125 && $y == 5145 && $spawn_mob1 == 16 && $flag == undef){

       
           
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4162,5162,4,245);
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4088,5192,4,190);
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4089,5234,4,190);
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4121,5235,4,190);
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4165,5236,4,190);
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4164,5189,4,190);
            quest::stoptimer(1);
            $spawn_mob1=$spawn_mob1+6;
            }
  if($x == -4478 && $y ==5407 && $spawn_mob1 == 22 && $flag == undef){

       
           
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4386,5408,4,245);
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4390,5341,4,190);
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4431,5337,4,190);
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4486,5343,4,190);
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4486,5369,4,190);
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4449,5407,4,190);
            quest::spawn2(quest::ChooseRandom(204059,204066,204060,204061,204062,204063),0,0,-4446,5369,4,190);
            quest::stoptimer(1);
            $spawn_mob1=$spawn_mob1+7;
            }

  if($x == -4549 && $y ==5155 && $spawn_mob1 == 29 && $flag == undef){
            quest::spawn2(204064,0,0,-4546,4974,4,0);
            quest::stoptimer(1);
            }
            }
      if($timer == 6){
           
            $spawn_mob1=undef;
            }
              }



sub EVENT_ITEM {

  if (plugin::check_handin(\%itemcount, 9258 => 1)) {
      quest::emote(" takes the final shard from you and places all of the pieces on the ground, with unseen hands the dagger moves together and fuses itself back together into one complete piece. Thelin picks it up and hands it to you.");
          quest::summonitem(9259);
          $dagger=1;
      quest::depop();
      $spawn_mob1=undef;
      $spawn_CYCLE = undef;
      $flag=undef;
      $dagger=undef;
      quest::spawn2(204067,0,0,$x,$y,$z,0); #spawn Thelin
      }
}

sub EVENT_SIGNAL { 
      if($signal == 8){
      quest::settimer(9,600);
      $flag=1;
      }
 
      if($signal == 6 && $spawn_CYCLE == undef){
      quest::spawn2(204016,117,0,$x,$y,$z,0);
      $spawn_CYCLE=$spawn_CYCLE+1;
      quest::depop();
      }
 
    elsif($signal == 6 && $spawn_CYCLE == 1){
      $spawn_CYCLE=$spawn_CYCLE+1;
      }

    elsif($signal == 6 && $spawn_CYCLE == 2){
      quest::spawn2(204016,118,0,$x,$y,$z,0);
      $spawn_CYCLE=$spawn_CYCLE+1;
      quest::depop();
      }
 
    elsif($signal == 6 && $spawn_CYCLE == 3){
      $spawn_CYCLE=$spawn_CYCLE+1;
      }
 
    elsif($signal == 6 && $spawn_CYCLE == 4){
      $spawn_CYCLE=$spawn_CYCLE+1;
      }

    elsif($signal == 6 && $spawn_CYCLE == 5){
     
      quest::spawn2(204016,119,0,$x,$y,$z,0);
      $spawn_CYCLE=$spawn_CYCLE+1;
      quest::depop();
      }

    elsif($signal == 6 && $spawn_CYCLE == 6) {
     
      $spawn_CYCLE=$spawn_CYCLE+1;
      }

      elsif($signal == 6 && $spawn_CYCLE == 7) {
     
      $spawn_CYCLE=$spawn_CYCLE+1;
      }

      elsif($signal == 6 && $spawn_CYCLE == 8) {
     

      $spawn_CYCLE=$spawn_CYCLE+1;
      }

    elsif($signal == 6 && $spawn_CYCLE == 9) {
     
      quest::spawn2(204016,120,0,$x,$y,$z,0);
      $spawn_CYCLE=$spawn_CYCLE+1;
      quest::depop();
      }

    elsif($signal == 6 && $spawn_CYCLE == 10){
     
      $spawn_CYCLE=$spawn_CYCLE+1;
      }

    elsif($signal == 6 && $spawn_CYCLE == 11)        {
     
      $spawn_CYCLE=$spawn_CYCLE+1;
      }

    elsif($signal == 6 && $spawn_CYCLE == 12){
     
      $spawn_CYCLE=$spawn_CYCLE+1;
      }

    elsif($signal == 6 && $spawn_CYCLE == 13){
     
      $spawn_CYCLE=$spawn_CYCLE+1;
      }

    elsif($signal == 6 && $spawn_CYCLE == 14){
   
      quest::spawn2(204016,121,0,$x,$y,$z,0);
      $spawn_CYCLE=$spawn_CYCLE+1;
      quest::depop();
      }

    elsif($signal == 6 && $spawn_CYCLE == 15) {
     
      $spawn_CYCLE=$spawn_CYCLE+1;
      }

    elsif($signal == 6 && $spawn_CYCLE == 16){
     
      $spawn_CYCLE=$spawn_CYCLE+1;
      }

    elsif($signal == 6 && $spawn_CYCLE == 17) {
     
      $spawn_CYCLE=$spawn_CYCLE+1;
      }

    elsif($signal == 6 && $spawn_CYCLE == 18) {
   
      $spawn_CYCLE=$spawn_CYCLE+1;
      }

    elsif($signal == 6 && $spawn_CYCLE == 19) {
     
      $spawn_CYCLE=$spawn_CYCLE+1;
      }

    elsif($signal == 6 && $spawn_CYCLE == 20) {
     
      quest::spawn2(204016,122,0,$x,$y,$z,0);
      $spawn_CYCLE=$spawn_CYCLE+1;
      quest::depop();
      }

    elsif($signal == 6 && $spawn_CYCLE == 21){
     
      $spawn_CYCLE=$spawn_CYCLE+1;
      }

    elsif($signal == 6 && $spawn_CYCLE == 22)        {
     
      $spawn_CYCLE=$spawn_CYCLE+1;
      }

    elsif($signal == 6 && $spawn_CYCLE == 23) {
     
      $spawn_CYCLE=$spawn_CYCLE+1;
      }

    elsif($signal == 6 && $spawn_CYCLE == 24) {
     
      $spawn_CYCLE=$spawn_CYCLE+1;
      }

    elsif($signal == 6 && $spawn_CYCLE == 25) {
     
      $spawn_CYCLE=$spawn_CYCLE+1;
      }

    elsif($signal == 6 && $spawn_CYCLE == 26) {
   
      $spawn_CYCLE=$spawn_CYCLE+1;
      }

      elsif($signal == 6 && $spawn_CYCLE == 27)        {
   
      quest::spawn2(204016,123,0,$x,$y,$z,0);
      $spawn_CYCLE=$spawn_CYCLE+1;
      quest::depop();
      }
      }



All times are GMT -4. The time now is 12:48 PM.

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