hedgewars/uTouch.pas
branchios-revival
changeset 11224 24bafdcf1860
parent 11088 378882cc9148
child 11592 49b2dcfb89d0
equal deleted inserted replaced
11223:93bc68aa41d3 11224:24bafdcf1860
   294                 ParseTeamCommand('switch')
   294                 ParseTeamCommand('switch')
   295             else WriteLnToConsole(inttostr(ord(Ammoz[CurrentHedgehog^.CurAmmoType].NameId)) + ' ' + inttostr(ord(sidSwitch)));
   295             else WriteLnToConsole(inttostr(ord(Ammoz[CurrentHedgehog^.CurAmmoType].NameId)) + ' ' + inttostr(ord(sidSwitch)));
   296     end;
   296     end;
   297 
   297 
   298 if targetting then
   298 if targetting then
   299     AddCaption('Press the target button to mark the target', cWhiteColor, capgrpAmmoInfo);
   299     AddCaption(trmsg[sidPressTarget], cWhiteColor, capgrpAmmoInfo);
   300 
   300 
   301 deleteFinger(pointerId);
   301 deleteFinger(pointerId);
   302 end;
   302 end;
   303 
   303 
   304 procedure onTouchDoubleClick(finger: TTouch_Data);
   304 procedure onTouchDoubleClick(finger: TTouch_Data);