#region Copyright & License Information
/*
 * Copyright 2007-2011 The OpenRA Developers (see AUTHORS)
 * This file is part of OpenRA, which is free software. It is made
 * available to you under the terms of the GNU General Public License
 * as published by the Free Software Foundation. For more information,
 * see COPYING.
 */
#endregion

using System;
using System.Linq;
using OpenRA.Traits;
using OpenRA.Mods.RA.Buildings;

namespace OpenRA.Mods.RA.Air
{
	public class ReturnToBase : Activity
	{
		bool isCalculated;
		Actor dest;

		int2 w1, w2, w3;	/* tangent points to turn circles */

		public static Actor ChooseAirfield(Actor self)
		{
			var rearmBuildings = self.Info.Traits.Get<PlaneInfo>().RearmBuildings;
			return self.World.ActorsWithTrait<Reservable>()
				.Where(a => a.Actor.Owner == self.Owner)
				.Where(a => rearmBuildings.Contains(a.Actor.Info.Name)
					&& !Reservable.IsReserved(a.Actor))
				.Select(a => a.Actor)
				.ClosestTo( self.CenterLocation );
		}

		void Calculate(Actor self)
		{
			if (dest == null)
				dest = ChooseAirfield(self);

			if (dest == null) return;

			var plane = self.Trait<Plane>();
			var res = dest.TraitOrDefault<Reservable>();
			if (res != null)
			{
				plane.UnReserve();
				plane.reservation = res.Reserve(dest, self, plane);
			}

			var landPos = dest.CenterLocation;
			var aircraft = self.Trait<Aircraft>();

			var speed = .2f * aircraft.MovementSpeed;

			var approachStart = landPos - new float2(aircraft.Altitude * speed, 0);
			var turnRadius = (128f / self.Info.Traits.Get<AircraftInfo>().ROT) * speed / (float)Math.PI;

			/* work out the center points */
			var fwd = -float2.FromAngle(aircraft.Facing / 128f * (float)Math.PI);
			var side = new float2(-fwd.Y, fwd.X);		/* rotate */
			var sideTowardBase = new[] { side, -side }
				.OrderBy(a => float2.Dot(a, self.CenterLocation - approachStart))
				.First();

			var c1 = self.CenterLocation + turnRadius * sideTowardBase;
			var c2 = approachStart + new float2(0,
				turnRadius * Math.Sign(self.CenterLocation.Y - approachStart.Y));		// above or below start point

			/* work out tangent points */
			var d = c2 - c1;
			var e = (turnRadius / d.Length) * d;
			var f = new float2(-e.Y, e.X);		/* rotate */

			/* todo: support internal tangents, too! */

			if (f.X > 0) f = -f;

			w1 = (c1 + f).ToInt2();
			w2 = (c2 + f).ToInt2();
			w3 = (approachStart).ToInt2();
			plane.RTBPathHash = w1 + w2 + w3;

			isCalculated = true;
		}

		public ReturnToBase(Actor self, Actor dest)
		{
			this.dest = dest;
		}

		public override Activity Tick(Actor self)
		{
			if (IsCanceled) return NextActivity;
			if (!isCalculated)
				Calculate(self);
			if (dest == null) return NextActivity;

			return Util.SequenceActivities(
				Fly.ToPx(w1),
				Fly.ToPx(w2),
				Fly.ToPx(w3),
				new Land(Target.FromActor(dest)),
				NextActivity);
		}
	}
}