hedgewars/hwengine.pas
changeset 3610 8590424bdfb0
parent 3598 a8aa06bae895
child 3611 ed00aa2b339e
--- a/hedgewars/hwengine.pas	Thu Jul 01 23:41:10 2010 -0400
+++ b/hedgewars/hwengine.pas	Fri Jul 02 17:46:53 2010 +0200
@@ -420,10 +420,10 @@
 end;
 
 /////////////////////////
-procedure GenLandPreview{$IFDEF IPHONEOS}(port: LongInt){$ENDIF}; {$IFDEF HWLIBRARY}cdecl; export;{$ENDIF}
+procedure GenLandPreview{$IFDEF HWLIBRARY}(port: LongInt); cdecl; export{$ENDIF};
 var Preview: TPreview;
 begin
-{$IFDEF IPHONEOS}
+{$IFDEF HWLIBRARY}
     initEverything(false);
     WriteLnToConsole('Preview connecting on port ' + inttostr(port));
     ipcPort:= port;
@@ -438,23 +438,12 @@
     SendIPCRaw(@MaxHedgehogs, sizeof(byte));
     WriteLnToConsole('Preview sent, disconnect');
     CloseIPC();
-{$IFDEF IPHONEOS}
+{$IFDEF HWLIBRARY}
     freeEverything(false);
 {$ENDIF}
 end;
 
 {$IFNDEF HWLIBRARY}
-////////////////////////////////
-(*procedure Resize(w, h: LongInt);
-begin
-    cScreenWidth:= w;
-    cScreenHeight:= h;
-    if cFullScreen then
-        ParseCommand('/fullscr 1', true)
-    else
-        ParseCommand('/fullscr 0', true);
-end;*)
-
 /////////////////////
 procedure DisplayUsage;
 var i: LongInt;
@@ -483,7 +472,6 @@
 var i: LongInt;
 {$ENDIF}
 begin
-
     case ParamCount of
         18: begin
             val(ParamStr(2), cScreenWidth);