hedgewars/hwengine.pas
changeset 2682 d4c395f25db2
parent 2678 334016e8d895
child 2688 174c94b8ea72
--- a/hedgewars/hwengine.pas	Thu Jan 07 16:18:32 2010 +0000
+++ b/hedgewars/hwengine.pas	Thu Jan 07 19:50:40 2010 +0000
@@ -160,25 +160,12 @@
     CurrTime: Longword;
     event: TSDL_Event;
 {$IFDEF TOUCHINPUT}
-type TDirection = (nodir, left, right);
 var tiltValue: LongInt;
-    direction: TDirection = nodir;
-    movedbybuttons: boolean = false;
 {$ENDIF}
 begin
 PrevTime:= SDL_GetTicks;
 repeat
 while SDL_PollEvent(@event) <> 0 do
-{$IFDEF TOUCHINPUT}
-if (direction <> nodir) and (movedbybuttons = true) then
-begin
-	WriteLnToConsole('* Hedgehog moving *');
-        uKeys.isWalking:= true;
-        if direction = left then uKeys.leftKey:= true
-        else if direction = right then uKeys.rightKey:= true;
-end
-else uKeys.isWalking:= false;
-{$ENDIF}
 	case event.type_ of
 {$IFDEF SDL13}
 		SDL_WINDOWEVENT: