Concept version for Saulc

1 files changed, 69 insertions, 2 deletions

diff --git a/npc/001-1/eventmaster.txt b/npc/001-1/eventmaster.txt
index c9bf95e31..14c2d0891 100644
--- a/npc/001-1/eventmaster.txt
+++ b/npc/001-1/eventmaster.txt
@@ -41,6 +41,16 @@ L_Spawn:
     mes "Spawn from a preset (with intended levels) from this menu. Otherwise, use @aeros with same syntax.";
     mes "(agr) means Agressive Monsters on the set, DO NOT ABUSE.";
     next;
+    menu
+        "Abort", L_Menu,
+        "Presets", L_Preset,
+        "Normal", L_Norm,
+        "Plants", L_Plants,
+        "Aggressive", L_Agr,
+        "Boss", L_Boss;
+
+
+L_Preset:
     select
         "Abort",                                                        // 1
         "20x Piou, Piousee, Ratto, 10x Croc",                           // 2
@@ -150,12 +160,69 @@ L_Spawn:
             break;
     }
 
-    if (@menu == 1) goto L_Menu;
+    if (@menu == 1) goto L_Spawn;
+    mes "";
+    mes "Completed.";
+    mes "Total spawns: "+str(@log_spawns);
+    next;
+    goto L_Preset;
+
+L_Norm:
+    select
+        "Abort",
+        "Piou";
+
+    input .@c, 0, 100;
+
+    switch (@menu) {
+        case 1:
+            goto L_Spawn;
+            break;
+        case 2:
+            spawner(l("Piou"), Piou, .@c);
+    }
+
+    @log_spawns=@log_spawns+.@c;
+    mes "";
+    mes "Completed.";
+    mes "Total spawns: "+str(@log_spawns);
+    next;
+    goto L_Norm;
+
+
+L_Plants:
+    select
+        "Abort";
+
+    if (@menu == 1) goto L_Spawn;
+    mes "";
+    mes "Completed.";
+    mes "Total spawns: "+str(@log_spawns);
+    next;
+    goto L_Plant;
+
+L_Agr:
+    select
+        "Abort";
+
+    if (@menu == 1) goto L_Spawn;
+    mes "";
+    mes "Completed.";
+    mes "Total spawns: "+str(@log_spawns);
+    next;
+    goto L_Agr;
+
+L_Boss:
+    select
+        "Abort";
+
+    if (@menu == 1) goto L_Spawn;
     mes "";
     mes "Completed.";
     mes "Total spawns: "+str(@log_spawns);
     next;
-    goto L_Spawn;
+    goto L_Boss;
+
 
 L_Drop:
     delitem(StrangeCoin,10);