hedgewars/uWorld.pas
changeset 10672 c2004c3e9c7d
parent 10662 e0d7d499c851
child 10818 f642a28cab0c
equal deleted inserted replaced
10671:17dd6265a08a 10672:c2004c3e9c7d
  1855 {$IFNDEF MOBILE}
  1855 {$IFNDEF MOBILE}
  1856 if (not (CurrentTeam^.ExtDriven and isCursorVisible and (not bShowAmmoMenu) and autoCameraOn)) and cHasFocus and (GameState <> gsConfirm) then
  1856 if (not (CurrentTeam^.ExtDriven and isCursorVisible and (not bShowAmmoMenu) and autoCameraOn)) and cHasFocus and (GameState <> gsConfirm) then
  1857     uCursor.updatePosition();
  1857     uCursor.updatePosition();
  1858 {$ENDIF}
  1858 {$ENDIF}
  1859 z:= round(200/zoom);
  1859 z:= round(200/zoom);
  1860 inbtwnTrgtAttks := (CurrentHedgehog <> nil) and ((Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_NeedTarget) <> 0) and ((GameFlags and gfInfAttack) <> 0);
  1860 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);
  1861 if autoCameraOn and (not PlacingHogs) and (FollowGear <> nil) and (not isCursorVisible) and (not bShowAmmoMenu) and (not fastUntilLag) and (not inbtwnTrgtAttks) then
  1861 if autoCameraOn and (not PlacingHogs) and (FollowGear <> nil) and (not isCursorVisible) and (not bShowAmmoMenu) and (not fastUntilLag) and (not inbtwnTrgtAttks) then
  1862     if ((abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y)) > 4) then
  1862     if ((abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y)) > 4) then
  1863         begin
  1863         begin
  1864         FollowGear:= nil;
  1864         FollowGear:= nil;
  1865         prevPoint:= CursorPoint;
  1865         prevPoint:= CursorPoint;