hedgewars/uWorld.pas
changeset 6691 79c96abd06d6
parent 6688 b2084a00a4cf
child 6692 029c27660dd2
equal deleted inserted replaced
6690:46b3f4776538 6691:79c96abd06d6
   616                 begin
   616                 begin
   617                 bShowAmmoMenu:= false;
   617                 bShowAmmoMenu:= false;
   618                 SetWeapon(Ammo^[Slot, Pos].AmmoType);
   618                 SetWeapon(Ammo^[Slot, Pos].AmmoType);
   619                 bSelected:= false;
   619                 bSelected:= false;
   620                 FreeWeaponTooltip;
   620                 FreeWeaponTooltip;
       
   621 {$IFDEF USE_TOUCH_INTERFACE}//show the aiming buttons + animation
       
   622                 if (Ammo^[Slot, Pos].Propz and ammoprop_NoCrosshair) = 0 then
       
   623                     begin
       
   624                     if not(arrowUp.show) then
       
   625                         begin
       
   626                         animateWidget(@arrowUp, true, true);
       
   627                         animateWidget(@arrowDown, true, true);
       
   628                         animateWidget(@arrowRight, false, true);
       
   629                         end;
       
   630                     end
       
   631                 else
       
   632                     if arrowUp.show then
       
   633                         begin
       
   634                         animateWidget(@arrowUp, true, false);
       
   635                         animateWidget(@arrowDown, true, false);
       
   636                         animateWidget(@arrowRight, false, true);
       
   637                         end;
       
   638 {$ENDIF}
   621 
   639 
   622                 exit
   640                 exit
   623                 end;
   641                 end;
   624             end
   642             end
   625         end
   643         end