--- deliantra/server/ext/map-random.ext	2007/12/05 11:08:34	1.19
+++ deliantra/server/ext/map-random.ext	2008/05/03 15:17:13	1.25
@@ -80,7 +80,7 @@
    clean_random_maps;
 };
 
-# map generator stresstest, never enable under normal circumstances
+# map generator stresstest, NEVER enable under normal circumstances
 if (0) {
    cf::async {
       my $seed = 0;
@@ -89,14 +89,27 @@
          $map->generate_random_map ({
             region => "scorn",
             random_seed => $seed++,
-            xsize => 12,
-            ysize => 12,
+            xsize => (int rand 90) + 3,
+            ysize => (int rand 90) + 3,
          });
-         warn sprintf "%d: %d %d\n", $seed, $map->width, $map->height;#d#
+#         warn sprintf "%d: %d %d\n", $seed, $map->width, $map->height;#d#
          $map->destroy;
       }
    };
 }
+
+# prefetch test, load some ocean-maps
+if (0) {
+   cf::async {
+      # 0.58
+      Coro::Timer::sleep 2;
+      for my $x (200..219) {
+         for my $y (200..219) {
+            (cf::map::find "/world/world_$x\_$y")->load;
+         }
+      }
+   };
+}
 
 1