hedgewars/hwengine.dpr
changeset 351 29bc9c36ad5f
parent 316 57d50189ad86
child 355 40c68869899e
--- a/hedgewars/hwengine.dpr	Thu Jan 18 20:29:28 2007 +0000
+++ b/hedgewars/hwengine.dpr	Sun Jan 21 19:51:02 2007 +0000
@@ -43,7 +43,8 @@
   uLandGraphics in 'uLandGraphics.pas',
   uLocale in 'uLocale.pas',
   uAmmos in 'uAmmos.pas',
-  uSHA in 'uSHA.pas';
+  uSHA in 'uSHA.pas',
+  uFloat in 'uFloat.pas';
 
 {$INCLUDE options.inc}
 
@@ -102,7 +103,7 @@
    flagMakeCapture:= false;
    s:= 'hw_' + cSeed + '_' + inttostr(GameTicks) + '.bmp';
    WriteLnToConsole('Saving ' + s);
-   SDL_SaveBMP_RW(SDLPrimSurface, SDL_RWFromFile(PChar(s), 'wb'), 1)
+//   SDL_SaveBMP_RW(SDLPrimSurface, SDL_RWFromFile(PChar(s), 'wb'), 1)
    end;
 end;
 
@@ -154,7 +155,7 @@
 procedure GetParams;
 var c: integer;
 {$IFDEF DEBUGFILE}
-    i: integer;    
+    i: integer;
 {$ENDIF}
     p: TPathType;
 begin
@@ -194,8 +195,8 @@
 
 procedure ShowMainWindow;
 begin
-if cFullScreen then ParseCommand('fullscr 1')
-               else ParseCommand('fullscr 0');
+if cFullScreen then ParseCommand('fullscr 1', true)
+               else ParseCommand('fullscr 0', true);
 SDL_ShowCursor(0)
 end;
 
@@ -225,7 +226,7 @@
 SendIPCRaw(@s[0], Length(s) + 1); // send proto version
 
 InitTeams;
-ParseCommand('ammstore 91911111111111108');
+ParseCommand('ammstore 91911111111111108', true);
 AssignStores;
 
 if isSoundEnabled then InitSound;