Need a proof reader please...

[Maceblade]

Seems I cant get this to work at all. I know its a bit cut up, but its a mash up of a few different scripts;

sub EVENT_SPAWN {
	quest::setnexthpevent(90);
	}
}

sub EVENT_COMBAT {
	if($combat_state == 0) {
		$npc->SetHP(885000);
	}
}

sub EVENT_HP {  # adds does not aggro unless within aggro range
	if($hpevent == 90) {
		$npc->CastSpell(13882,0);
		quest::setnexthpevent(88);
		quest::emote("shakes with laughter and says, 'You are much stronger than I thought. Looks like I'm gonna have to use all the tricks of the trade!' He then shouts a mystical word of power and suddenly his skin begins to take on a rock like appearance.");
		quest::modifynpcstat("ac", "5587");
	}

	if ($hpevent == 88) {	
		$npc->CastSpell(6539, $target->GetID());
		quest::setnexthpevent(86);
	}

	if ($hpevent == 86) {	
		$npc->CastSpell(2823, $target->GetID());
		quest::setnexthpevent(84);
	}
	if ($hpevent == 84) {	
		$npc->CastSpell(13882, $target->GetID());
		quest::setnexthpevent(82);
	}
	if ($hpevent == 82) {	
		$npc->CastSpell(6539, $target->GetID());
		quest::setnexthpevent(80);
	}


	if ($hpevent == 80) {
		$npc->CastSpell(13882, $target->GetID());
		quest::setnexthpevent(78);
		quest::emote("shakes with laughter and says, 'You are much stronger than I thought. Looks like I'm gonna have to use all the tricks of the trade!' He then shouts a mystical word of power and is suddenly surrrounded by a magical glowing aura.");
		quest::modifynpcstat("ac", "0");
		quest::modifynpcstat("mr", "2500");
		quest::modifynpcstat("cr", "2500");
		quest::modifynpcstat("fr", "2500");
	}

	if ($hpevent == 78) {	
		$npc->CastSpell(6539, $target->GetID());
		quest::setnexthpevent(76);
	}

	if ($hpevent == 76) {	
		$npc->CastSpell(2823, $target->GetID());
		quest::setnexthpevent(74);
	}
	if ($hpevent == 74) {	
		$npc->CastSpell(13882, $target->GetID());
		quest::setnexthpevent(72);
	}
	if ($hpevent == 72) {	
		$npc->CastSpell(6539, $target->GetID());
		quest::setnexthpevent(70);
	}

  	if($hpevent == 70) {
		$npc->CastSpell(13882, $target->GetID());
		quest::setnexthpevent(68);
		quest::emote("shakes with laughter and says, 'You are much stronger than I thought. Looks like I'm gonna have to use all the tricks of the trade!' He then shouts a mystical word of power and suddenly his muscles bulge with incomprehensible strength.");
		quest::modifynpcstat("mr", "144");
		quest::modifynpcstat("fr", "144");
		quest::modifynpcstat("cr", "144");
		quest::modifynpcstat("max_hit", "850");
	} 
	if ($hpevent == 68) {	
		$npc->CastSpell(6539, $target->GetID());
		quest::setnexthpevent(66);
	}

	if ($hpevent == 66) {	
		$npc->CastSpell(2823, $target->GetID());
		quest::setnexthpevent(64);
	}
	if ($hpevent == 64) {	
		$npc->CastSpell(13882, $target->GetID());
		quest::setnexthpevent(62);
	}
	if ($hpevent == 62) {	
		$npc->CastSpell(6539, $target->GetID());
		quest::setnexthpevent(60);
	}

	if($hpevent == 60) {
		$npc->CastSpell(13882, $target->GetID());
		quest::setnexthpevent(58);
		quest::emote("shakes with laughter and says, 'You are much stronger than I thought. Looks like I'm gonna have to use all the tricks of the trade!' He then shouts a mystical word of power and is suddenly surrrounded by a magical glowing aura.");
		quest::modifynpcstat("max_hit", "900");
		quest::modifynpcstat("mr", "2250");
	}

	if ($hpevent == 58) {	
		$npc->CastSpell(6539, $target->GetID());
		quest::setnexthpevent(56);
	}

	if ($hpevent == 56) {	
		$npc->CastSpell(2823, $target->GetID());
		quest::setnexthpevent(54);
	}
	if ($hpevent == 54) {	
		$npc->CastSpell(13882, $target->GetID());
		quest::setnexthpevent(52);
	}
	if ($hpevent == 52) {	
		$npc->CastSpell(6539, $target->GetID());
		quest::setnexthpevent(50);
	}
	if ($hpevent == 50) {
		$npc->CastSpell(13882, $target->GetID());
		quest::setnexthpevent(48);
		quest::spawn2(999245,0,0,668,733,347,253); # Mayong's Twisted Nightmare
		quest::spawn2(999245,0,0,697,733,347,253); # Mayong's Twisted Nightmare
		quest::spawn2(999245,0,0,749,732,347,253); # Mayong's Twisted Nightmare
		quest::spawn2(999245,0,0,790,732,347,253); # Mayong's Twisted Nightmare
		quest::emote("shakes with laughter and says, 'You are much stronger than I thought. Looks like I'm gonna have to use all the tricks of the trade!' He then shouts a mystical word of power and suddenly his muscles bulge with incomprehensible strength.");
		quest::modifynpcstat("special_attacks",ABfHG);
	    	quest::settimer(1,60);
    		$npc->WipeHateList();
	}

	if ($hpevent == 48) {	
		$npc->CastSpell(6539, $target->GetID());
		quest::setnexthpevent(46);
	}

	if ($hpevent == 46) {	
		$npc->CastSpell(2823, $target->GetID());
		quest::setnexthpevent(44);
	}
	if ($hpevent == 44) {	
		$npc->CastSpell(13882, $target->GetID());
		quest::setnexthpevent(42);
	}
	if ($hpevent == 42) {	
		$npc->CastSpell(6539, $target->GetID());
		quest::setnexthpevent(40);
	}
 	if($hpevent == 40) {
		$npc->CastSpell(13882, $target->GetID());
		quest::setnexthpevent(38);
		quest::emote("shakes with laughter and says, 'You are much stronger than I thought. Looks like I'm gonna have to use all the tricks of the trade!' He then shouts a string of mystical words and is suddenly surrounded by a magical glowing aura and his skin takes on a rock like appearance.");
		quest::modifynpcstat("max_hit", "700");
		quest::modifynpcstat("ac", "0");
		quest::modifynpcstat("mr", "250");
	}

	if ($hpevent == 38) {	
		$npc->CastSpell(6539, $target->GetID());
		quest::setnexthpevent(36);
	}

	if ($hpevent == 36) {	
		$npc->CastSpell(2823, $target->GetID());
		quest::setnexthpevent(34);
	}
	if ($hpevent == 34) {	
		$npc->CastSpell(13882, $target->GetID());
		quest::setnexthpevent(32);
	}
	if ($hpevent == 32) {	
		$npc->CastSpell(6539, $target->GetID());
		quest::setnexthpevent(30);
	}
	if($hpevent == 30) {
		$npc->CastSpell(13882, $target->GetID());
		quest::setnexthpevent(28);
		quest::emote("shakes with laughter and says, 'You are much stronger than I thought. Looks like I'm gonna have to use all the tricks of the trade!' He then shouts a string of mystical words and is suddenly surrounded by a magical glowing aura and his attacks become a blur as he launches into a quickened attack routine.");
		quest::modifynpcstat("ac", "1087");
		quest::modifynpcstat("attack_speed", "-50");
		quest::modifynpcstat("max_hit", "150");
	}
	if ($hpevent == 28) {	
		$npc->CastSpell(6539, $target->GetID());
		quest::setnexthpevent(26);
	}

	if ($hpevent == 26) {	
		$npc->CastSpell(2823, $target->GetID());
		quest::setnexthpevent(24);
	}
	if ($hpevent == 24) {	
		$npc->CastSpell(13882, $target->GetID());
		quest::setnexthpevent(22);
	}
	if ($hpevent == 22) {	
		$npc->CastSpell(6539, $target->GetID());
		quest::setnexthpevent(20);
	}

	if ($hpevent == 20) {
		$npc->CastSpell(13882, $target->GetID());
		quest::setnexthpevent(18);
		quest::emote("shakes with laughter and says, 'You are much stronger than I thought. Looks like I'm gonna have to use all the tricks of the trade!' He then shouts a string of mystical words and is suddenly surrounded by a magical glowing aura and his muscles bulge with incomprehensible strength. ");
		quest::modifynpcstat("attack_speed", "0");
		quest::modifynpcstat("max_hit", "1050");
	}

	if ($hpevent == 18) {	
		$npc->CastSpell(6539, $target->GetID());
		quest::setnexthpevent(16);
	}

	if ($hpevent == 16) {	
		$npc->CastSpell(2823, $target->GetID());
		quest::setnexthpevent(14);
	}
	if ($hpevent == 14) {	
		$npc->CastSpell(13882, $target->GetID());
		quest::setnexthpevent(12);
	}
	if ($hpevent == 12) {	
		$npc->CastSpell(6539, $target->GetID());
		quest::setnexthpevent(10);
	}
 	if($hpevent == 10) {
		$npc->CastSpell(13882, $target->GetID());
		quest::emote("shakes with laughter and says, 'You are much stronger than I thought. Looks like I'm gonna have to use all the tricks of the trade!' He then shouts a string of mystical words and suddenly his skin takes on a rock like apppearance and he enters a defensive stance!");
		quest::modifynpcstat("ac", "6587");
		quest::modifynpcstat("mr", "1044");
		quest::modifynpcstat("cr", "1044");
		quest::modifynpcstat("dr", "1044");
		quest::modifynpcstat("fr", "1044");
		quest::modifynpcstat("pr", "1044");
		quest::modifynpcstat("max_hit", "450");
	}
}

sub EVENT_SIGNAL {
  if($signal == 1) {
    CheckForRavs();
	}
}

sub CheckForRavs {
  if((!$entity_list->GetMobByNpcTypeID(999245))) {
     quest::modifynpcstat("special_attacks",SRTMCNIDf);
	 quest::stoptimer(1);
	}
}

sub EVENT_TIMER {
	if($timer == "timeup") {
		quest::depop();
	}
}

sub EVENT_DEATH {
	quest::stoptimer("engaged");
	}
}

Any suggestions is appreciated lol

[lerxst2112]

C:\Temp>perl -c t.pl
Unmatched right curly bracket at t.pl line 4, at end of line
syntax error at t.pl line 4, near "}"
syntax error at t.pl line 18, near "}"
syntax error at t.pl line 23, near "}"
syntax error at t.pl line 28, near "}"
syntax error at t.pl line 32, near "}"
syntax error at t.pl line 36, near "}"
syntax error at t.pl line 47, near "}"
syntax error at t.pl line 52, near "}"
syntax error at t.pl line 57, near "}"
t.pl has too many errors.

[Maceblade]

thanks Lerx! gonna remove a shitload of those lol

[rencro]

gonna remove a shitload of those lol

Just line 4 and the very last one looks like..

[Kayen]

http://ult-tex.net/tools/ultra/line_count.pl

Same yourself some time and just pop code in here for a prelim debug.

[BlackSunGM]

Kayen thanks for this! Should help quite a bit

[Maceblade]

I ended up getting rid of my sub spawn... idk why but that was bugging the whole thing