hedgewars/uTouch.pas
changeset 13642 3d14950641a4
parent 11821 d8844d4c67de
child 14304 055eae933482
equal deleted inserted replaced
13641:007813b81f1b 13642:3d14950641a4
   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(trmsg[sidPressTarget], cWhiteColor, capgrpAmmoInfo);
   299     AddCaption(trmsg[sidPressTarget], capcolDefault, 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);