hedgewars/hwengine.pas
branchqmlfrontend
changeset 12860 e33bcb9d5e9c
parent 12855 1b2b84315d27
child 12876 b544bbbd0696
equal deleted inserted replaced
12859:a03f245243b0 12860:e33bcb9d5e9c
   578 
   578 
   579     freeEverything(false);
   579     freeEverything(false);
   580 end;
   580 end;
   581 
   581 
   582 function EngineThread(p: pointer): Longint; cdecl; export;
   582 function EngineThread(p: pointer): Longint; cdecl; export;
   583 var e: TFLIBEvent;
       
   584 begin
   583 begin
   585     if GameType = gmtLandPreview then
   584     if GameType = gmtLandPreview then
   586         GenLandPreview()
   585         GenLandPreview()
   587     else Game();
   586     else Game();
   588 
   587 
   589     e:= flibGameFinished;
   588     sendUI(mtGameFinished, nil, 0);
   590     sendUI(mtFlibEvent, @e, sizeof(e));
       
   591     EngineThread:= 0
   589     EngineThread:= 0
   592 end;
   590 end;
   593 
   591 
   594 
   592 
   595 function RunEngine(argc: LongInt; argv: PPChar): Longint; cdecl; export;
   593 function RunEngine(argc: LongInt; argv: PPChar): Longint; cdecl; export;