Go Back   EQEmulator Home > EQEmulator Forums > Quests > Quests::Submissions
Reload this Page PoNightmare Hedge Event

Quests::Submissions This is where you submit your quests for review

Reply
 
Thread Tools Display Modes
  #1  
Old 08-06-2018, 10:05 PM
Sturm
Hill Giant
  
Join Date: Dec 2015
Posts: 116
Default 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();
      }
       }
__________________
Developer of the Imperium Server.
https://imperium-eq.com/
Reply With Quote
Reply

« Previous Thread | Next Thread »

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

   

All times are GMT -4. The time now is 02:37 AM.

EQEmulator - Archive - Top

 

Everquest is a registered trademark of Daybreak Game Company LLC.
EQEmulator is not associated or affiliated in any way with Daybreak Game Company LLC.
Except where otherwise noted, this site is licensed under a Creative Commons License.
       
Powered by vBulletin®, Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Template by Bluepearl Design and vBulletin Templates - Ver3.3