hedgewars/uTouch.pas
changeset 6806 cdfb6c7099e5
parent 6723 b77e2d4d664b
child 6808 e9c45f3c5b9c
equal deleted inserted replaced
6805:097289be7200 6806:cdfb6c7099e5
   119     moveCursor:= false;
   119     moveCursor:= false;
   120     finger^.pressedWidget:= @arrowRight;
   120     finger^.pressedWidget:= @arrowRight;
   121     exit;
   121     exit;
   122     end;
   122     end;
   123 if isOnWidget(arrowUp, finger^) then
   123 if isOnWidget(arrowUp, finger^) then
   124      begin
   124     begin
   125      upKey:= true;
   125     upKey:= true;
   126      moveCursor:= false;
   126     moveCursor:= false;
   127      finger^.pressedWidget:= @arrowUp;
   127     finger^.pressedWidget:= @arrowUp;
   128      exit;
   128     exit;
   129      end;
   129     end;
   130 if isOnWidget(arrowDown, finger^) then
   130 if isOnWidget(arrowDown, finger^) then
   131      begin
   131     begin
   132      downKey:= true;
   132     downKey:= true;
   133      moveCursor:= false;
   133     moveCursor:= false;
   134      finger^.pressedWidget:= @arrowDown;
   134     finger^.pressedWidget:= @arrowDown;
   135      exit;
   135     exit;
   136      end;
   136     end;
   137 
   137 
   138 if isOnWidget(pauseButton, finger^) then
   138 if isOnWidget(pauseButton, finger^) then
   139      begin
   139     begin
   140      isPaused:= not isPaused;
   140     isPaused:= not isPaused;
   141      moveCursor:= false;
   141     moveCursor:= false;
   142      finger^.pressedWidget:= @pauseButton;
   142     finger^.pressedWidget:= @pauseButton;
   143      exit;
   143     exit;
   144      end;
   144     end;
   145      
   145 
       
   146 if isOnWidget(utilityWidget, finger^) then
       
   147     begin
       
   148     ParseCommand('/timer ' + inttostr((CurrentHedgeHog^.CurWeapon^.Timer div 1000 + 1) mod 5));
       
   149     end; 
   146 dec(buttonsDown);//no buttonsDown, undo the inc() above
   150 dec(buttonsDown);//no buttonsDown, undo the inc() above
   147 if buttonsDown = 0 then
   151 if buttonsDown = 0 then
   148     begin
   152     begin
   149     moveCursor:= true;
   153     moveCursor:= true;
   150     if pointerCount = 2 then
   154     if pointerCount = 2 then