hedgewars/hwengine.pas
changeset 13077 c213645ff848
parent 13040 a87d3119c962
child 13487 d23731fe84d4
equal deleted inserted replaced
13076:65a3b4bea459 13077:c213645ff848
   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: