hedgewars/hwengine.pas
changeset 8225 186229af4fc1
parent 8215 6d46d1d368bc
child 8278 9cdfcb5b7ddd
child 8302 a7934cd12469
equal deleted inserted replaced
8223:14d9a3c33650 8225:186229af4fc1
    30 {$ENDIF}
    30 {$ENDIF}
    31 
    31 
    32 uses SDLh, uMisc, uConsole, uGame, uConsts, uLand, uAmmos, uVisualGears, uGears, uStore, uWorld, uInputHandler
    32 uses SDLh, uMisc, uConsole, uGame, uConsts, uLand, uAmmos, uVisualGears, uGears, uStore, uWorld, uInputHandler
    33      , uSound, uScript, uTeams, uStats, uIO, uLocale, uChat, uAI, uAIMisc, uAILandMarks, uLandTexture, uCollisions
    33      , uSound, uScript, uTeams, uStats, uIO, uLocale, uChat, uAI, uAIMisc, uAILandMarks, uLandTexture, uCollisions
    34      , SysUtils, uTypes, uVariables, uCommands, uUtils, uCaptions, uDebug, uCommandHandlers, uLandPainted
    34      , SysUtils, uTypes, uVariables, uCommands, uUtils, uCaptions, uDebug, uCommandHandlers, uLandPainted
    35      , uPhysFSLayer
    35      , uPhysFSLayer, uCursor
    36      {$IFDEF USE_VIDEO_RECORDING}, uVideoRec {$ENDIF}
    36      {$IFDEF USE_VIDEO_RECORDING}, uVideoRec {$ENDIF}
    37      {$IFDEF USE_TOUCH_INTERFACE}, uTouch {$ENDIF}
    37      {$IFDEF USE_TOUCH_INTERFACE}, uTouch {$ENDIF}
    38      {$IFDEF ANDROID}, GLUnit{$ENDIF}
    38      {$IFDEF ANDROID}, GLUnit{$ENDIF}
    39      ;
    39      ;
    40 
    40 
   215                 SDL_KEYUP:
   215                 SDL_KEYUP:
   216                     if GameState <> gsChat then
   216                     if GameState <> gsChat then
   217                         ProcessKey(event.key);
   217                         ProcessKey(event.key);
   218                     
   218                     
   219                 SDL_MOUSEBUTTONDOWN:
   219                 SDL_MOUSEBUTTONDOWN:
   220                     ProcessMouse(event.button, true);
   220                     if GameState = gsConfirm then
       
   221                     begin
       
   222                         resetPosition();
       
   223                         ParseCommand('quit', true);
       
   224                     end
       
   225                     else
       
   226                         ProcessMouse(event.button, true);
   221                     
   227                     
   222                 SDL_MOUSEBUTTONUP:
   228                 SDL_MOUSEBUTTONUP:
   223                     ProcessMouse(event.button, false); 
   229                     ProcessMouse(event.button, false); 
   224                     
   230                     
   225                 SDL_ACTIVEEVENT:
   231                 SDL_ACTIVEEVENT: