hedgewars/hwengine.pas
changeset 6267 be5d40bb1e86
parent 6219 c193881389c1
child 6268 d773867f93db
--- a/hedgewars/hwengine.pas	Thu Nov 03 01:10:25 2011 +0100
+++ b/hedgewars/hwengine.pas	Thu Nov 03 03:58:24 2011 +0100
@@ -115,15 +115,11 @@
         s:= 'hw_' + FormatDateTime('YYYY-MM-DD_HH-mm-ss', Now()) + inttostr(GameTicks);
 
         playSound(sndShutter);
-{$IFNDEF IPHONEOS}
-        if not MakeScreenshot(s) then
-        begin
+        if MakeScreenshot(s) then WriteLnToConsole('Screenshot saved: ' + s)
+        else begin
             WriteLnToConsole('Screenshot failed.');
             AddChatString(#5 + 'screen capture failed (lack of memory or write permissions)');
-        end
-        else
-{$ENDIF}
-            WriteLnToConsole('Screenshot saved: ' + s);
+            end
     end;
 end;
 
@@ -148,11 +144,8 @@
 
 ///////////////////
 procedure MainLoop;
-{$WARNINGS OFF}
-// disable "Some fields weren't initialized" warning
-const event: TSDL_Event = ();
-{$WARNINGS ON}
-var PrevTime, CurrTime: Longword;
+var event: TSDL_Event;
+    PrevTime, CurrTime: Longword;
 {$IFDEF SDL13}
     previousGameState: TGameState;
 {$ELSE}