#region Copyright & License Information
/*
 * Copyright 2007-2014 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.Collections.Generic;
using System.Linq;
using OpenRA.Traits;
using OpenRA.Mods.RA.Render;

namespace OpenRA.Mods.RA.Activities
{
	public class Teleport : Activity
	{
		Actor chronosphere;
		CPos destination;
		int? maximumDistance;
		bool killCargo;
		bool screenFlash;
		string sound;

		const int maxCellSearchRange = Map.MaxTilesInCircleRange;

		public Teleport(Actor chronosphere, CPos destination, int? maximumDistance, bool killCargo, bool screenFlash, string sound)
		{
			if (maximumDistance > maxCellSearchRange)
				throw new InvalidOperationException("Teleport cannot be used with a maximum teleport distance greater than {0}.".F(maxCellSearchRange));

			this.chronosphere = chronosphere;
			this.destination = destination;
			this.maximumDistance = maximumDistance;
			this.killCargo = killCargo;
			this.screenFlash = screenFlash;
			this.sound = sound;
		}

		public override Activity Tick(Actor self)
		{
			var pc = self.TraitOrDefault<PortableChrono>();
			if (pc != null && !pc.CanTeleport)
				return NextActivity;

			var bestCell = ChooseBestDestinationCell(self, destination);
			if (bestCell == null)
				return NextActivity;

			destination = bestCell.Value;

			Sound.Play(sound, self.CenterPosition);
			Sound.Play(sound, destination.CenterPosition);

			self.Trait<IPositionable>().SetPosition(self, destination);
			self.Generation++;

			if (killCargo && self.HasTrait<Cargo>())
			{
				var cargo = self.Trait<Cargo>();
				if (chronosphere != null)
				{
					while (!cargo.IsEmpty(self))
					{
						var a = cargo.Unload(self);
						// Kill all the units that are unloaded into the void
						// Kill() handles kill and death statistics
						a.Kill(chronosphere);
					}
				}
			}

			// Consume teleport charges if this wasn't triggered via chronosphere
			if (chronosphere == null && pc != null)
				pc.ResetChargeTime();

			// Trigger screen desaturate effect
			if (screenFlash)
				foreach (var a in self.World.ActorsWithTrait<ChronoshiftPaletteEffect>())
					a.Trait.Enable();

			if (chronosphere != null && !chronosphere.Destroyed && chronosphere.HasTrait<RenderBuilding>())
				chronosphere.Trait<RenderBuilding>().PlayCustomAnim(chronosphere, "active");

			return NextActivity;
		}

		CPos? ChooseBestDestinationCell(Actor self, CPos destination)
		{
			var restrictTo = maximumDistance == null ? null : self.World.Map.FindTilesInCircle(self.Location, maximumDistance.Value);

			if (maximumDistance != null)
				destination = restrictTo.MinBy(x => (x - destination).LengthSquared);

			var pos = self.Trait<IPositionable>();
			if (pos.CanEnterCell(destination) && self.Owner.Shroud.IsExplored(destination))
				return destination;

			var searched = new List<CPos>();
			for (var r = 1; r <= maxCellSearchRange || (maximumDistance != null && r <= maximumDistance); r++)
			{
				foreach (var tile in self.World.Map.FindTilesInCircle(destination, r).Except(searched))
				{
					if (self.Owner.Shroud.IsExplored(tile)
						&& (restrictTo == null || (restrictTo != null && restrictTo.Contains(tile)))
						&& pos.CanEnterCell(tile))
						return tile;

					searched.Add(tile);
				}
			}

			return null;
		}
	}

	public class SimpleTeleport : Activity
	{
		CPos destination;

		public SimpleTeleport(CPos destination) { this.destination = destination; }

		public override Activity Tick(Actor self)
		{
			self.Trait<IPositionable>().SetPosition(self, destination);
			self.Generation++;
			return NextActivity;
		}
	}
}