hedgewars/hwengine.pas
branchios-develop
changeset 13418 ba39a1d396c0
parent 13082 c213645ff848
child 13492 d23731fe84d4
equal deleted inserted replaced
13416:6e8b807bda4b 13418:ba39a1d396c0
   103                 with TeamsArray[t]^ do
   103                 with TeamsArray[t]^ do
   104                     MaxTeamHealth:= TeamHealth;
   104                     MaxTeamHealth:= TeamHealth;
   105             RecountAllTeamsHealth;
   105             RecountAllTeamsHealth;
   106             GameState:= gsGame;
   106             GameState:= gsGame;
   107             end;
   107             end;
   108         gsConfirm, gsGame, gsChat:
   108         gsConfirm, gsGame:
   109             begin
   109             begin
   110             // disable screenshot flash effect when about to make another screenshot
   110             // disable screenshot flash effect when about to make another screenshot
   111             if flagMakeCapture and (ScreenFade = sfFromWhite) then
   111             if flagMakeCapture and (ScreenFade = sfFromWhite) then
   112                 ScreenFade:= sfNone;
   112                 ScreenFade:= sfNone;
   113             if not cOnlyStats then
   113             if not cOnlyStats then
   178 
   178 
   179         while SDL_PeepEvents(@event, 1, SDL_GETEVENT, SDL_FIRSTEVENT, SDL_LASTEVENT) > 0 do
   179         while SDL_PeepEvents(@event, 1, SDL_GETEVENT, SDL_FIRSTEVENT, SDL_LASTEVENT) > 0 do
   180         begin
   180         begin
   181             case event.type_ of
   181             case event.type_ of
   182                 SDL_KEYDOWN:
   182                 SDL_KEYDOWN:
   183                     if GameState = gsChat then
   183                     if isInChatMode then
   184                         begin
   184                         begin
   185                     // sdl on iphone supports only ashii keyboards and the unicode field is deprecated in sdl 1.3
   185                     // sdl on iphone supports only ashii keyboards and the unicode field is deprecated in sdl 1.3
   186                         KeyPressChat(event.key.keysym);
   186                         KeyPressChat(event.key.keysym);
   187                         end
   187                         end
   188                     else
   188                     else
   189                         if GameState >= gsGame then ProcessKey(event.key);
   189                         if GameState >= gsGame then ProcessKey(event.key);
   190                 SDL_KEYUP:
   190                 SDL_KEYUP:
   191                     if (GameState <> gsChat) and (GameState >= gsGame) then
   191                     if (not isInChatMode) and (GameState >= gsGame) then
   192                         ProcessKey(event.key);
   192                         ProcessKey(event.key);
   193 
   193 
   194                 SDL_TEXTINPUT: if GameState = gsChat then uChat.TextInput(event.text);
   194                 SDL_TEXTINPUT: if isInChatMode then uChat.TextInput(event.text);
   195 
   195 
   196                 SDL_WINDOWEVENT:
   196                 SDL_WINDOWEVENT:
   197                     begin
   197                     begin
   198                     case event.window.event of
   198                     case event.window.event of
   199                         SDL_WINDOWEVENT_FOCUS_GAINED:
   199                         SDL_WINDOWEVENT_FOCUS_GAINED:
   330     oldGameTicks:= newGameTicks;
   330     oldGameTicks:= newGameTicks;
   331 
   331 
   332     while LoadNextCameraPosition(newRealTicks, newGameTicks) do
   332     while LoadNextCameraPosition(newRealTicks, newGameTicks) do
   333     begin
   333     begin
   334         IPCCheckSock();
   334         IPCCheckSock();
       
   335         RealTicks:= newRealTicks;
   335         DoGameTick(newGameTicks - oldGameTicks);
   336         DoGameTick(newGameTicks - oldGameTicks);
   336         if GameState = gsExit then
   337         if GameState = gsExit then
   337             break;
   338             break;
   338         ProcessVisualGears(newRealTicks - oldRealTicks);
   339         ProcessVisualGears(newRealTicks - oldRealTicks);
   339         DrawWorld(newRealTicks - oldRealTicks);
   340         DrawWorld(newRealTicks - oldRealTicks);