X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_basic.pas;h=7df493fe4f248a8fe57ac8fb11da55c9713227b4;hb=06ce403977f0da3911c62eed46414ad03afa9111;hp=7024514be8898ce6796ea8dd5b9213f69e8c6893;hpb=027ace8eccb0dc4c1d5ff8796b238d5b1fbbcfed;p=d2df-sdl.git

diff --git a/src/game/g_basic.pas b/src/game/g_basic.pas
index 7024514..7df493f 100644
--- a/src/game/g_basic.pas
+++ b/src/game/g_basic.pas
@@ -120,7 +120,7 @@ end;
 
 function g_GetBuildHash (full: Boolean = True): AnsiString;
 begin
-  if {$I %D2DF_BUILD_USER%} <> '' then
+  if {$I %D2DF_BUILD_HASH%} <> '' then
     if full then
       result := {$I %D2DF_BUILD_HASH%}
     else
@@ -676,7 +676,7 @@ function GetLines (Text: string; FontID: DWORD; MaxWidth: Word): SSArray;
 begin
   result := nil; lines := 0;
   j := 1; i := 1; len := Length(Text);
-  e_LogWritefln('GetLines @%s len=%s [%s]', [MaxWidth, len, Text]);
+  // e_LogWritefln('GetLines @%s len=%s [%s]', [MaxWidth, len, Text]);
   while j <= len do
   begin
     (* --- Get longest possible sequence --- *)
@@ -689,7 +689,7 @@ begin
     (* --- Add line --- *)
     SetLength(result, lines + 1);
     result[lines] := GetLine(j, i);
-    e_LogWritefln('  -> (%s:%s::%s) [%s]', [j, i, GetWidth(j, i), result[lines]]);
+    // e_LogWritefln('  -> (%s:%s::%s) [%s]', [j, i, GetWidth(j, i), result[lines]]);
     Inc(lines);
     (* --- Skip spaces --- *)
     while (i <= len) and (text[i] = ' ') do Inc(i);