Prepare maze0/config to create a random maze memory

1 files changed, 28 insertions, 5 deletions

diff --git a/npc/maze0/config.txt b/npc/maze0/config.txt
index d3f44cf9a..3f59d30fe 100644
--- a/npc/maze0/config.txt
+++ b/npc/maze0/config.txt
@@ -533,8 +533,11 @@ function	script	GenerateMaze	{
             .@l$=.@l$+","+getd(MazeVar(.@x, .@y, "_ID"));
             .@lb$=.@lb$+" "+.@symbol$;
         }
-        debugmes "[REPORT] %s", .@l$;
-        debugmes "[REPORT] %s", .@lb$;
+        // Debug human readable format + a easy to grep-replace RNG
+        // Pseudo-rng example: $@MAZES_12_4 = Random Maze 12, Row 4
+        // On the example, replace VAR with "MAZES_12"
+        debugmes "[REPORT-SA] setarray $@VAR_%d, %s", .@y, .@l$; // SetArray
+        debugmes "[REPORT-HR] %s", .@lb$; // HumanReadable
     }
 
 
@@ -708,9 +711,29 @@ maze0,30,30,0	script	#MazeMaster	NPC_MONA,{
     function parseConnections;
     */
     //GenerateMaze(7, 7, 0);
-    GenerateMaze(5, 5);
-    CreateMaze();
-    InitMaze(0, 0);
+    select
+        l("Playtesting"),
+        l("RMG"),
+        l("RMG+Playtest");
+    mes "";
+    .@x=5;.@y=5;
+    if (@menu >= 2) {
+        // Width
+        mesf "Width (%d-25): ", max(1, @xvar);
+        input .@x, max(1, @xvar), 25;
+
+        // Height
+        mesf "Height (%d-25): ", max(1, @yvar);
+        input .@y, max(1, @yvar), 25;
+
+        // Prevent bugs
+        @xvar=.@x; @yvar=.@y;
+    }
+    GenerateMaze(.@x, .@y);
+    if (@menu != 2) {
+        CreateMaze();
+        InitMaze(0, 0);
+    }
     end;
 }