hedgewars/uWorld.pas
changeset 13621 0c797469d16d
parent 13461 854caa3c9212
child 13622 358ccb060cb3
equal deleted inserted replaced
13620:211a37eb6a29 13621:0c797469d16d
  1800 {$IFNDEF MOBILE}
  1800 {$IFNDEF MOBILE}
  1801 if (not (CurrentTeam^.ExtDriven and isCursorVisible and (not bShowAmmoMenu) and autoCameraOn)) and cHasFocus and (GameState <> gsConfirm) then
  1801 if (not (CurrentTeam^.ExtDriven and isCursorVisible and (not bShowAmmoMenu) and autoCameraOn)) and cHasFocus and (GameState <> gsConfirm) then
  1802     uCursor.updatePosition();
  1802     uCursor.updatePosition();
  1803 {$ENDIF}
  1803 {$ENDIF}
  1804 z:= round(200/zoom);
  1804 z:= round(200/zoom);
  1805 inbtwnTrgtAttks := ((GameFlags and gfInfAttack) <> 0) and (CurrentHedgehog <> nil) and ((CurrentHedgehog^.Gear = nil) or (CurrentHedgehog^.Gear <> FollowGear)) and ((Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_NeedTarget) <> 0);
  1805 inbtwnTrgtAttks := ((GameFlags and (gfInfAttack or gfMultiWeapon)) <> 0) and (CurrentHedgehog <> nil) and ((CurrentHedgehog^.Gear = nil) or (CurrentHedgehog^.Gear <> FollowGear)) and ((Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_NeedTarget) <> 0);
  1806 if autoCameraOn and (not PlacingHogs) and (FollowGear <> nil) and (not isCursorVisible) and (not bShowAmmoMenu) and (not fastUntilLag) and (not inbtwnTrgtAttks) then
  1806 if autoCameraOn and (not PlacingHogs) and (FollowGear <> nil) and (not isCursorVisible) and (not bShowAmmoMenu) and (not fastUntilLag) and (not inbtwnTrgtAttks) then
  1807     if ((abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y)) > 4) then
  1807     if ((abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y)) > 4) then
  1808         begin
  1808         begin
  1809         FollowGear:= nil;
  1809         FollowGear:= nil;
  1810         prevPoint:= CursorPoint;
  1810         prevPoint:= CursorPoint;