hedgewars/hwengine.pas
changeset 3928 2560731c860d
parent 3922 44804043b691
child 3935 5ca27a0e9a63
equal deleted inserted replaced
3926:668b71f31e51 3928:2560731c860d
    28 {$ELSE}
    28 {$ELSE}
    29 program hwengine;
    29 program hwengine;
    30 {$ENDIF}
    30 {$ENDIF}
    31 
    31 
    32 uses SDLh, uMisc, uConsole, uGame, uConsts, uLand, uAmmos, uVisualGears, uGears, uStore, uWorld, uKeys, uSound,
    32 uses SDLh, uMisc, uConsole, uGame, uConsts, uLand, uAmmos, uVisualGears, uGears, uStore, uWorld, uKeys, uSound,
    33      uScript, uTeams, uStats, uIO, uLocale, uChat, uAI, uAIMisc, uRandom, uLandTexture, uCollisions, sysutils;
    33      uScript, uTeams, uStats, uIO, uLocale, uChat, uAI, uAIMisc, uRandom, uLandTexture, uCollisions, uMobile, sysutils;
    34 
    34 
    35 var isTerminated: boolean = false;
    35 var isTerminated: boolean = false;
    36     alsoShutdownFrontend: boolean = false;
    36     alsoShutdownFrontend: boolean = false;
    37 
    37 
    38 {$IFDEF HWLIBRARY}
    38 {$IFDEF HWLIBRARY}
   283         SendIPCAndWaitReply('C');        // ask for game config
   283         SendIPCAndWaitReply('C');        // ask for game config
   284     end
   284     end
   285     else
   285     else
   286     begin
   286     begin
   287         LoadRecordFromFile(recordFileName);
   287         LoadRecordFromFile(recordFileName);
   288 {$IFDEF IPHONEOS}
   288         doSomethingWhen_SaveBeganSynching();
   289         replayBegan();
       
   290 {$ENDIF}
       
   291     end;
   289     end;
   292 
   290 
   293     ScriptOnGameInit;
   291     ScriptOnGameInit;
   294 
   292 
   295     s:= 'eproto ' + inttostr(cNetProtoVersion);
   293     s:= 'eproto ' + inttostr(cNetProtoVersion);