[ViewVC] Diff of: cvs/deliantra/server/ext/map-random.ext

Comparing deliantra/server/ext/map-random.ext (file contents):
Revision 1.29 by root, Thu May 8 13:47:19 2008 UTC vs.
Revision 1.37 by root, Mon Nov 9 03:08:55 2009 UTC

    1
 }
 sub clean_random_maps {
-   my $files = Coro::AIO::aio_readdir $cf::RANDOMDIR
+   my $files = Coro::AIO::aio_readdirx $cf::RANDOMDIR, IO::AIO::READDIR_STAT_ORDER
       or return;
    my $META_TIMEOUT = $cf::CFG{map_random_meta_timeout} || 86400 * 7;
    for my $file (@$files) {
       while () {
          my $map = cf::map::new;
          $map->generate_random_map ({
             region => "scorn",
             random_seed => $seed++,
-            xsize => (int rand 50) + 3,
+            xsize => (int rand 100) + 1,
-            ysize => (int rand 50) + 3,
+            ysize => (int rand 100) + 1,
          });
          warn sprintf "%d: %dx%d o# %d\n", $seed, $map->width, $map->height, &cf::object::objects_size;#d#
          $map->destroy;
       }
    };
          }
       }
    };
 }
+# save test
+if (0) {
+   cf::async {
+      # 0.080
+      Coro::Timer::sleep 2;
+      my $map = cf::map::find "/mlab/citydeclouds2";
+      $map->load_header;
+      $map->load;
+      $map->post_load_original;
+      my $m=100;
+      for (1..50) {
+         my $t=EV::time;
+         $map->_save_objects ("/tmp/x", cf::IO_HEADER | cf::IO_OBJECTS | cf::IO_UNIQUES);
+         $t = EV::time-$t;
+         $m=$t if $m>$t;
+         warn $m;
+      }
+   };
+}
 1

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines