hedgewars/uWorld.pas
changeset 6794 95ee7bde3514
parent 6734 9709d15dabfa
child 6795 e4831e13e04a
equal deleted inserted replaced
6793:d62f25f5d6ce 6794:95ee7bde3514
   501 {$ENDIF}
   501 {$ENDIF}
   502     AMShiftTargetX:= (cScreenWidth shr 1) - AmmoRect.x;
   502     AMShiftTargetX:= (cScreenWidth shr 1) - AmmoRect.x;
   503     AMShiftTargetY:= cScreenHeight - AmmoRect.y;
   503     AMShiftTargetY:= cScreenHeight - AmmoRect.y;
   504     AMShiftX:= AMShiftTargetX;
   504     AMShiftX:= AMShiftTargetX;
   505     AMShiftY:= AMShiftTargetY;
   505     AMShiftY:= AMShiftTargetY;
   506 
   506     
   507     if (AMShiftTargetX div MENUSPEED) <  (AMShiftTargetY div MENUSPEED) then
   507     if (AMShiftTargetX = 0) or (AMShiftTargetY = 0) then
   508         begin
   508         begin
   509         MenuSpeedX:= MENUSPEED;
   509         MenuSpeedX:= MENUSPEED;
   510         MenuSpeedY:= AMShiftTargetY div (AMShiftTargetX div MENUSPEED);
   510         MENUSpeedY:= MENUSPEED;
   511         end
   511         end
   512     else
   512     else
   513         begin
   513         if (AMShiftTargetX div MENUSPEED) <  (AMShiftTargetY div MENUSPEED) then
   514         MenuSpeedX:= AMShiftTargetX div (AMShiftTargetY div MENUSPEED);
   514             begin
   515         MenuSpeedY:= MENUSPEED;
   515             MenuSpeedX:= MENUSPEED;
   516         end;
   516             MenuSpeedY:= AMShiftTargetY div (AMShiftTargetX div MENUSPEED);
       
   517             end
       
   518         else
       
   519             begin
       
   520             MenuSpeedX:= AMShiftTargetX div (AMShiftTargetY div MENUSPEED);
       
   521             MenuSpeedY:= MENUSPEED;
       
   522             end;
   517 end;
   523 end;
   518 
   524 
   519 if bShowAmmoMenu then // show ammo menu
   525 if bShowAmmoMenu then // show ammo menu
   520     begin
   526     begin
   521     FollowGear:= nil;
   527     FollowGear:= nil;