siege_boss() will help me out.

1 files changed, 2 insertions, 39 deletions

diff --git a/npc/012-1/guards.txt b/npc/012-1/guards.txt
index 4e72678fe..080ea00c6 100644
--- a/npc/012-1/guards.txt
+++ b/npc/012-1/guards.txt
@@ -605,9 +605,8 @@ OnRespawn:
 OnMKSiege:
     siege_setup("014-3");
     siege_setup("012-1", "WARNING! WARNING! Siege starting at Hurnscald!!");
-    disablenpc("Mana Stone");
     $@SIEGE_HURNS=rand(1,10);
-    siege_spawn("014-3", BlackScorpion, 10, "#HurnscaldSiege::OnBlackScorpionDeath");
+    siege_cast("014-3", .name$, 0, TP_HURNS);
     initnpctimer;
     end;
 
@@ -652,43 +651,7 @@ OnTimer60000:
     end;
 
 OnTimer120000:
-    // We will now prepare the boss
-    // It must be stronger than players in at least 15 levels, so the mob group
-    // is different. The siege difficulty, as usual, gives an extra level to them.
-    .@val=siege_calcdiff("012-1")+15;
-    .@val+=$@SIEGE_HURNS;
-
-    // We must cap this at 100 to prevent running out of monsters
-    // Also, .@val can NEVER be less than 50, to prevent cheating :<
-    if (.@val > 100)
-        .@val=100;
-    else if (.@val < 50)
-        .@val=50;
-
-    // Get their event/designation
-    if (.@val >= 80)
-        .@ts$="Colonel";
-    else
-        .@ts$="Lieutenant";
-
-    // Select a type for them (saved as .@mobId)
-    siege_selectmob(siege_calcdiff("012-1", .@val), $@SIEGE_HURNS);
-    array_remove($@SIEGE_TMPMOBS, Bif);
-    array_remove($@SIEGE_TMPMOBS, CandiedSlime);
-    array_remove($@SIEGE_TMPMOBS, ManaGhost);
-    array_remove($@SIEGE_TMPMOBS, SlimeBlast);
-    if (array_entries($@SIEGE_TMPMOBS) > 0) {
-        .@mobId=any_of($@SIEGE_TMPMOBS);
-    } else {
-        .@mobId=Yetifly;
-        debugmes "ERROR, TOO FEW MOBS ON DATABASE, whaaaaaaat";
-    }
-
-    // Announce and spawn
-    siege_spawn("012-1", .@mobId, 1, "#SiegeCtrl::On"+.@ts$+"Death");
-    mapannounce("012-1", "##1The Monster "+.@ts$+" arrived! It is a "+strmobinfo(1, .@mobId), bc_map);
-
-    // Clear $@SIEGE_TMPMOBS and start casting
+    siege_boss("012-1", $@SIEGE_HURNS);
     siege_cast("012-1", .name$, $@SIEGE_HURNS, TP_HURNS);
     end;