hedgewars/uTouch.pas
changeset 6806 cdfb6c7099e5
parent 6723 b77e2d4d664b
child 6808 e9c45f3c5b9c
--- a/hedgewars/uTouch.pas	Thu Mar 22 22:55:38 2012 +0400
+++ b/hedgewars/uTouch.pas	Fri Mar 23 14:14:43 2012 +0100
@@ -121,28 +121,32 @@
     exit;
     end;
 if isOnWidget(arrowUp, finger^) then
-     begin
-     upKey:= true;
-     moveCursor:= false;
-     finger^.pressedWidget:= @arrowUp;
-     exit;
-     end;
+    begin
+    upKey:= true;
+    moveCursor:= false;
+    finger^.pressedWidget:= @arrowUp;
+    exit;
+    end;
 if isOnWidget(arrowDown, finger^) then
-     begin
-     downKey:= true;
-     moveCursor:= false;
-     finger^.pressedWidget:= @arrowDown;
-     exit;
-     end;
+    begin
+    downKey:= true;
+    moveCursor:= false;
+    finger^.pressedWidget:= @arrowDown;
+    exit;
+    end;
 
 if isOnWidget(pauseButton, finger^) then
-     begin
-     isPaused:= not isPaused;
-     moveCursor:= false;
-     finger^.pressedWidget:= @pauseButton;
-     exit;
-     end;
-     
+    begin
+    isPaused:= not isPaused;
+    moveCursor:= false;
+    finger^.pressedWidget:= @pauseButton;
+    exit;
+    end;
+
+if isOnWidget(utilityWidget, finger^) then
+    begin
+    ParseCommand('/timer ' + inttostr((CurrentHedgeHog^.CurWeapon^.Timer div 1000 + 1) mod 5));
+    end; 
 dec(buttonsDown);//no buttonsDown, undo the inc() above
 if buttonsDown = 0 then
     begin