equal
deleted
inserted
replaced
61 procedure printFinger(finger: TTouch_Data); |
61 procedure printFinger(finger: TTouch_Data); |
62 implementation |
62 implementation |
63 |
63 |
64 const |
64 const |
65 clickTime = 200; |
65 clickTime = 200; |
|
66 nilFingerId = High(TSDL_FingerId); |
66 baseRectSize = 96; |
67 baseRectSize = 96; |
67 |
68 |
68 var |
69 var |
69 rectSize, halfRectSize: LongInt; |
70 rectSize, halfRectSize: LongInt; |
70 |
71 |
293 ParseTeamCommand('switch') |
294 ParseTeamCommand('switch') |
294 else WriteLnToConsole(inttostr(ord(Ammoz[CurrentHedgehog^.CurAmmoType].NameId)) + ' ' + inttostr(ord(sidSwitch))); |
295 else WriteLnToConsole(inttostr(ord(Ammoz[CurrentHedgehog^.CurAmmoType].NameId)) + ' ' + inttostr(ord(sidSwitch))); |
295 end; |
296 end; |
296 |
297 |
297 if targetting then |
298 if targetting then |
298 AddCaption('Press the target button to mark the target', cWhiteColor, capgrpAmmoInfo); |
299 AddCaption(trmsg[sidPressTarget], cWhiteColor, capgrpAmmoInfo); |
299 |
300 |
300 deleteFinger(pointerId); |
301 deleteFinger(pointerId); |
301 end; |
302 end; |
302 |
303 |
303 procedure onTouchDoubleClick(finger: TTouch_Data); |
304 procedure onTouchDoubleClick(finger: TTouch_Data); |