Additional siege modes

1 files changed, 50 insertions, 7 deletions

diff --git a/npc/003-1/lieutenantdausen.txt b/npc/003-1/lieutenantdausen.txt
index 6426e9bf7..02ae0f7ad 100644
--- a/npc/003-1/lieutenantdausen.txt
+++ b/npc/003-1/lieutenantdausen.txt
@@ -91,10 +91,13 @@ L_MKControl:
     mes l("Oh noes! You've found the Tulimshar control panel!");
     menu
         l("Initiate small siege (lv. 20)"), L_MKSmall,
+        l("Initiate medium siege (lv. 30)"), L_MKMedium,
+        l("Initiate huge siege (lv. 40)"), L_MKHuge,
         l("Abort"), -;
     close;
 
 L_MKSmall:
+    $@SIEGE_TULIM=0; // factor zero
     pvpon("003-1");
     pvpon("004-1");
     announce(l("##1WARNING! WARNING! Siege starting at Tulimshar!!"), bc_all);
@@ -102,6 +105,24 @@ L_MKSmall:
     initnpctimer;
     close;
 
+L_MKMedium:
+    $@SIEGE_TULIM=1; // factor one
+    pvpon("003-1");
+    pvpon("004-1");
+    announce(l("##1WARNING! WARNING! Siege starting at Tulimshar!!"), bc_all);
+    areamonster("004-1", 0, 0, 79, 81, l("Black Scorpion"), 1074, 15, "Lieutenant Dausen::OnBlackScorpionDeath");
+    initnpctimer;
+    close;
+
+L_MKHuge:
+    $@SIEGE_TULIM=5; // factor five
+    pvpon("003-1");
+    pvpon("004-1");
+    announce(l("##1WARNING! WARNING! Siege starting at Tulimshar!!"), bc_all);
+    areamonster("004-1", 0, 0, 79, 81, l("Black Scorpion"), 1074, 30, "Lieutenant Dausen::OnBlackScorpionDeath");
+    initnpctimer;
+    close;
+
 OnBlackScorpionDeath:
     areamonster("004-1", 0, 0, 79, 81, l("Black Scorpion"), 1074, 1, "Lieutenant Dausen::OnBlackScorpionDeath");
     if (rand(10000) <= 100)
@@ -132,9 +153,22 @@ OnManaGhostDeath:
         getitem StrangeCoin, 1;
     end;
 
+OnLieutenantDeath:
+    getitem StrangeCoin, 1;
+    Karma=Karma+1;
+    mapannounce("003-1", l("##2The Monster Lieutenant was defeated by @@!", strcharinfo(0)), bc_map);
+    end;
+
+OnColonelDeath:
+    getitem StrangeCoin, 1;
+    Karma=Karma+1;
+    set $MOST_HEROIC$=strcharinfo(0);
+    mapannounce("003-1", l("##2The Monster Colonel was defeated by @@!", strcharinfo(0)), bc_map);
+    end;
+
 OnTimer5000:
-    areamonster("004-1", 0, 0, 79, 81, "Black Scorpion", 1074, 5, "Lieutenant Dausen::OnBlackScorpionDeath");
-    areamonster("003-1", 0, 0, 120, 155, "Black Scorpion", 1074, 5, "Lieutenant Dausen::OnBlackScorpion2Death");
+    areamonster("004-1", 0, 0, 79, 81, "Black Scorpion", 1074, 5+$@SIEGE_TULIM, "Lieutenant Dausen::OnBlackScorpionDeath");
+    areamonster("003-1", 0, 0, 120, 155, "Black Scorpion", 1074, 5+$@SIEGE_TULIM, "Lieutenant Dausen::OnBlackScorpion2Death");
     mapannounce("003-1", "##2Message to all Tulimshar NPCs: Take shelter!", bc_map);
     disablenpc "Ched";
     disablenpc "Aahna";
@@ -173,12 +207,20 @@ OnTimer15000:
     end;
 
 OnTimer60000:
+    if ($@SIEGE_TULIM == 1) {
+        mapannounce("003-1", "##1The Monster Lieutenant arrived!", bc_map);
+        areamonster("003-1", 0, 0, 120, 155, ("Monster Lieutenant"), 1077, 1, "Lieutenant Dausen::OnLieutenantDeath");
+    }
     areamonster("003-1", 0, 0, 120, 155, ("Black Scorpion"), 1074, 3, "Lieutenant Dausen::OnBlackScorpion2Death");
-    areamonster("003-1", 0, 0, 120, 155, ("Green Slime"), 1085, 10, "Lieutenant Dausen::OnGreenSlimeDeath");
-    areamonster("003-1", 0, 0, 120, 155, ("Candied Slime"), 1089, 1, "Lieutenant Dausen::OnCandiedSlimeDeath");
+    areamonster("003-1", 0, 0, 120, 155, ("Green Slime"), 1085, 10+$@SIEGE_TULIM, "Lieutenant Dausen::OnGreenSlimeDeath");
+    areamonster("003-1", 0, 0, 120, 155, ("Candied Slime"), 1089, 1+$@SIEGE_TULIM, "Lieutenant Dausen::OnCandiedSlimeDeath");
     end;
 
 OnTimer120000:
+    if ($@SIEGE_TULIM == 5) {
+        mapannounce("003-1", "##1The Monster Colonel arrived!", bc_map);
+        areamonster("003-1", 0, 0, 120, 155, ("Monster Colonel"), 1036, 1, "Lieutenant Dausen::OnColonelDeath");
+    }
     areamonster("003-1", 0, 0, 120, 155, ("Slime Blast"), 1090, 15);
     areamonster("003-1", 0, 0, 120, 155, ("Black Scorpion"), 1074, 1, "Lieutenant Dausen::OnBlackScorpion2Death");
     areamonster("003-1", 0, 0, 120, 155, ("Green Slime"), 1085, 10, "Lieutenant Dausen::OnGreenSlimeDeath");
@@ -207,13 +249,13 @@ OnTimer300000:
 OnTimer360000:
 OnTimer420000:
 OnTimer480000:
-    areamonster("003-1", 0, 0, 120, 155, ("Slime Blast"), 1090, 5);
-    areamonster("003-1", 0, 0, 120, 155, ("Red Slime"), 1092, 1);
+    areamonster("003-1", 0, 0, 120, 155, ("Slime Blast"), 1090, 5+$@SIEGE_TULIM);
+    areamonster("003-1", 0, 0, 120, 155, ("Red Slime"), 1092, 1+$@SIEGE_TULIM);
     end;
 
 OnTimer540000:
     mapannounce("003-1", "##1The Monster Army is getting tired of resistance!", bc_map);
-    areamonster("003-1", 0, 0, 120, 155, ("Slime Blast"), 1090, 5);
+    areamonster("003-1", 0, 0, 120, 155, ("Slime Blast"), 1090, 5+$@SIEGE_TULIM);
     areamonster("003-1", 0, 0, 120, 155, ("Mana Ghost"), 1068, 1, "Lieutenant Dausen::OnManaGhostDeath");
     end;
 
@@ -222,6 +264,7 @@ OnTimer600000:
     end;
 
 OnTimer630000:
+    $@SIEGE_TULIM$=0;
     killmonsterall("003-1", 0);
     killmonsterall("004-1", 0);
     pvpoff("003-1");