hedgewars/hwengine.pas
changeset 3492 07256e1ad559
parent 3490 016b3172b645
child 3495 a6b4f351d400
equal deleted inserted replaced
3491:4619b1ae99b5 3492:07256e1ad559
   414 begin
   414 begin
   415 {$IFDEF IPHONEOS}
   415 {$IFDEF IPHONEOS}
   416     initEverything();
   416     initEverything();
   417     WriteLnToConsole('Preview connecting on port ' + inttostr(port));
   417     WriteLnToConsole('Preview connecting on port ' + inttostr(port));
   418     ipcPort:= port;
   418     ipcPort:= port;
   419     // this function is so quick that we need slow it down
       
   420     SDL_Delay(250);
       
   421 {$ENDIF}
   419 {$ENDIF}
   422     InitIPC;
   420     InitIPC;
   423     IPCWaitPongEvent;
   421     IPCWaitPongEvent;
   424     TryDo(InitStepsFlags = cifRandomize, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true);
   422     TryDo(InitStepsFlags = cifRandomize, 'Some parameters not set (flags = ' + inttostr(InitStepsFlags) + ')', true);
   425 
   423