MQEmulator.net • -

#Tqiv_Qukret_the_Furious.pl - Quest File

General Info

Quest File

my $twin_absorbed = 0;

sub EVENT_SPAWN {
  #inactive until golems down
  quest::modifynpcstat("special_attacks","ABfHG");
}

sub EVENT_AGGRO {
  quest::settimer(1,1);
}

sub EVENT_TIMER {
  if ($timer == 1) {
    if(($x > -1160) || ($x < -1290) || ($y > -480) || ($y < -810)) {
      $npc->GMMove(-1227,-628,-5,0);
    }
  }
  elsif ($timer == 2) {
    #time ran out, go inactive
	quest::modifynpcstat("special_attacks","ABfHG");
	$npc->WipeHateList();
    quest::spawn2(292018,0,0,-1252,-911,8,134); # NPC: a_construct_of_fury
    quest::spawn2(292018,0,0,-1250,-878,8,128); # NPC: a_construct_of_fury
    quest::spawn2(292018,0,0,-1193,-911,8,378); # NPC: a_construct_of_fury
    quest::spawn2(292018,0,0,-1190,-878,8,386); # NPC: a_construct_of_fury
	quest::stoptimer(1);
	quest::stoptimer(2);
  } elsif ($timer eq "absorb_twin") {
	$twin_absorbed = 1;
	$npc->AddAISpell(0, 5115, Nuke, -1, -1, -350);
	$npc->AddAISpell(0, 5116, Nuke, -1, -1, -250);
	$npc->AddAISpell(0, 5119, Nuke, -1, -1, -350);
	quest::modifynpcstat("max_hit",4800);
	quest::modifynpcstat("special_attacks","SEFQUMCNIDf");
	quest::modifynpcstat("max_hp","600000");
	quest::modifynpcstat("accuracy","1500");
	$npc->ModSkillDmgTaken(36, -50); #piercing
	$npc->ModSkillDmgTaken(77, -50); #2h piercing
	$npc->ModSkillDmgTaken(2, -50); #2h blunt
	$npc->ModSkillDmgTaken(51, -50); #throwing
	$npc->ModSkillDmgTaken(28, -50); #hand to hand
	$npc->ModSkillDmgTaken(1, -50); #1h slashing
	$npc->ModSkillDmgTaken(3, -50); #2h slashing
	$npc->ModSkillDmgTaken(7, -50); #archery
	$npc->ModSkillDmgTaken(0, -50); #1h blunt
	  quest::stoptimer("absorb_twin");
  }
}

sub EVENT_SIGNAL {
	if ($signal == 1) {
		#construct of fury died, if none left, go active
		if(!$entity_list->IsMobSpawnedByNpcTypeID(292018)) {
			if (!$twin_absorbed) {
				quest::modifynpcstat("special_attacks","SEQUMCNIDf");
			} else {
				quest::modifynpcstat("special_attacks","SEFQUMCNIDf");
				quest::modifynpcstat("max_hit",4800);
			}
			#30 minutes to kill named
			quest::settimer(2,1800);
		}
	} elsif ($signal == 3) {
		#other twin died
		quest::settimer("absorb_twin",30);
	}
}

sub EVENT_DEATH_COMPLETE {
	quest::creategroundobject(67706,-1227,-628,-5,0,3600000);
	#tell other twin I died
	quest::signalwith(292022,3); # NPC: #Tqiv_Araxt_the_Enraged
	#lockouts
	quest::signalwith(292079, 1); # NPC: lockout_uqua
}

Source: 17 Jan 2022
Quest Source: 28 May 2022