X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=blobdiff_plain;f=src%2Fgame%2Fg_map.pas;h=5bca6b012ad82226e39827f88ec5c92fd89d7add;hp=a05a2cf405d1c1a07751fca69af1a424d56b7866;hb=e8f8394426db6b11bc3e15ca60e413fade0b16e1;hpb=6b8ffe735038ca0a7704e7fad15868ef32a07925

diff --git a/src/game/g_map.pas b/src/game/g_map.pas
index a05a2cf..5bca6b0 100644
--- a/src/game/g_map.pas
+++ b/src/game/g_map.pas
@@ -473,7 +473,7 @@ var
   ia: TDynImageDataArray = nil;
   il: TImageFileFormat = nil;
   meta: TMetadata = nil;
-  f: Integer;
+  f, c: Integer;
   gf: TGIFFileFormat;
   pf: TPNGFileFormat;
 begin
@@ -650,7 +650,11 @@ begin
           //writeln(' frame delay: ', meta.MetaItems[SMetaFrameDelay]);
           try
             f := meta.MetaItems[SMetaFrameDelay];
-            f := f div 27;
+            if f < 0 then f := 0;
+            // rounding ;-)
+            c := f mod 27;
+            if c < 13 then c := 0 else c := 1;
+            f := (f div 27)+c;
             if f < 1 then f := 1 else if f > 255 then f := 255;
             _speed := f;
           except