equal
deleted
inserted
replaced
139 isPaused:= not isPaused; |
139 isPaused:= not isPaused; |
140 moveCursor:= false; |
140 moveCursor:= false; |
141 finger^.pressedWidget:= @pauseButton; |
141 finger^.pressedWidget:= @pauseButton; |
142 exit; |
142 exit; |
143 end; |
143 end; |
144 |
144 |
145 dec(buttonsDown);//no buttonsDown, undo the inc() above |
145 dec(buttonsDown);//no buttonsDown, undo the inc() above |
146 if buttonsDown = 0 then |
146 if buttonsDown = 0 then |
147 begin |
147 begin |
148 moveCursor:= true; |
148 moveCursor:= true; |
149 if pointerCount = 2 then |
149 if pointerCount = 2 then |
252 finger := finger;//avoid compiler hint |
252 finger := finger;//avoid compiler hint |
253 end; |
253 end; |
254 |
254 |
255 procedure onTouchLongClick(finger: TTouch_Data); |
255 procedure onTouchLongClick(finger: TTouch_Data); |
256 begin |
256 begin |
257 if isOnRect(backjump.active, finger) then |
257 if isOnRect(jumpWidget.active, finger) then |
258 begin |
258 begin |
259 ParseCommand('ljump', (CurrentTeam <> nil) and not(CurrentTeam^.ExtDriven) and (CurrentHedgehog^.BotLevel=0)); |
259 ParseCommand('ljump', (CurrentTeam <> nil) and not(CurrentTeam^.ExtDriven) and (CurrentHedgehog^.BotLevel=0)); |
260 if (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then |
260 if (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then |
261 ParseCommand('gencmd R', true); |
261 ParseCommand('gencmd R', true); |
262 exit; |
262 exit; |
288 bShowAmmoMenu:= false; |
288 bShowAmmoMenu:= false; |
289 exit; |
289 exit; |
290 end; |
290 end; |
291 |
291 |
292 |
292 |
293 if isOnCurrentHog(finger) then |
293 if isOnCurrentHog(finger) or isOnRect(AMWidget.active, finger) then |
294 begin |
294 begin |
295 bShowAmmoMenu := true; |
295 bShowAmmoMenu := true; |
296 exit; |
296 exit; |
297 end; |
297 end; |
298 |
298 |
299 if isOnRect(backjump.active, finger) then |
299 if isOnRect(jumpWidget.active, finger) then |
300 begin |
300 begin |
301 ParseCommand('hjump', (CurrentTeam <> nil) and not(CurrentTeam^.ExtDriven) and (CurrentHedgehog^.BotLevel=0)); |
301 ParseCommand('hjump', (CurrentTeam <> nil) and not(CurrentTeam^.ExtDriven) and (CurrentHedgehog^.BotLevel=0)); |
302 if (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then |
302 if (CurrentTeam <> nil) and (not CurrentTeam^.ExtDriven) and (ReadyTimeLeft > 1) then |
303 ParseCommand('gencmd R', true); |
303 ParseCommand('gencmd R', true); |
304 exit; |
304 exit; |