hedgewars/hwengine.pas
changeset 10162 38dbf26475d8
parent 10159 5848ed144e0b
child 10175 c92668840ea8
--- a/hedgewars/hwengine.pas	Wed Feb 26 23:07:55 2014 +0400
+++ b/hedgewars/hwengine.pas	Wed Feb 26 23:43:42 2014 +0400
@@ -531,7 +531,7 @@
 
 ///////////////////////////////////////////////////////////////////////////////
 procedure GenLandPreview{$IFDEF HWLIBRARY}(port: LongInt); cdecl; export{$ENDIF};
-var Preview: TPreview;
+var Preview: TPreviewAlpha;
 begin
     initEverything(false);
 {$IFDEF HWLIBRARY}
@@ -544,7 +544,7 @@
     TryDo(InitStepsFlags = cifRandomize, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true);
 
     ScriptOnPreviewInit;
-    GenPreview(Preview);
+    GenPreviewAlpha(Preview);
     WriteLnToConsole('Sending preview...');
     SendIPCRaw(@Preview, sizeof(Preview));
     SendIPCRaw(@MaxHedgehogs, sizeof(byte));