make attacks queuable

OpenRA.Game/Actor.cs

@@ -133,6 +133,13 @@ namespace OpenRA
 
 		public bool IsInWorld { get; internal set; }
 
+		public void QueueActivity( bool queued, IActivity nextActivity )
+		{
+			if( !queued )
+				CancelActivity();
+			QueueActivity( nextActivity );
+		}
+
 		public void QueueActivity( IActivity nextActivity )
 		{
 			if( currentActivity == null )

OpenRA.Mods.RA/Air/AttackHeli.cs

@@ -22,10 +22,10 @@ namespace OpenRA.Mods.RA.Air
 	{
 		public AttackHeli(Actor self, AttackHeliInfo info) : base(self, info) { }
 
-		protected override void QueueAttack(Actor self, Target newTarget)
+		protected override void QueueAttack(Actor self, bool queued, Target newTarget)
 		{
 			target = newTarget;
-			self.QueueActivity(new HeliAttack(newTarget));
+			self.QueueActivity(queued, new HeliAttack(newTarget));
 		}
 	}
 }

OpenRA.Mods.RA/Air/AttackPlane.cs

@@ -22,10 +22,10 @@ namespace OpenRA.Mods.RA.Air
 	{
 		public AttackPlane(Actor self, AttackPlaneInfo info) : base(self, info) { }
 
-		protected override void QueueAttack(Actor self, Target newTarget)
+		protected override void QueueAttack(Actor self, bool queued, Target newTarget)
 		{
 			target = newTarget;
-			self.QueueActivity(new FlyAttack(newTarget));
+			self.QueueActivity(queued, new FlyAttack(newTarget));
 		}
 
 		protected override bool CanAttack(Actor self)

OpenRA.Mods.RA/AttackBase.cs

@@ -149,8 +149,7 @@ namespace OpenRA.Mods.RA
 		{
 			if (order.OrderString == "Attack")
 			{
-				self.CancelActivity();
+				QueueAttack(self, order.Queued, Target.FromOrder(order));
-				QueueAttack(self, Target.FromOrder(order));
 
 				if (self.Owner == self.World.LocalPlayer)
 					self.World.AddFrameEndTask(w =>
@@ -181,7 +180,7 @@ namespace OpenRA.Mods.RA
 			return (order.OrderString == "Attack") ? "Attack" : null;
 		}
 		
-		protected abstract void QueueAttack(Actor self, Target newTarget);
+		protected abstract void QueueAttack(Actor self, bool queued, Target newTarget);
 
 		public bool HasAnyValidWeapons(Target t) { return Weapons.Any(w => w.IsValidAgainst(self.World, t)); }
 		public float GetMaximumRange() { return Weapons.Max(w => w.Info.Range); }

OpenRA.Mods.RA/AttackFrontal.cs

@@ -40,12 +40,12 @@ namespace OpenRA.Mods.RA
 			return true;
 		}
 
-		protected override void QueueAttack(Actor self, Target newTarget)
+		protected override void QueueAttack(Actor self, bool queued, Target newTarget)
 		{
 			var weapon = ChooseWeaponForTarget(newTarget);
 
 			if (weapon != null)
-				self.QueueActivity(
+				self.QueueActivity( queued,
 					new Activities.Attack(
 						newTarget, 
 						Math.Max(0, (int)weapon.Info.Range)));

OpenRA.Mods.RA/AttackLeap.cs

@@ -40,12 +40,12 @@ namespace OpenRA.Mods.RA
 			self.QueueActivity(new Leap(self, target));
 		}
 
-		protected override void QueueAttack(Actor self, Target newTarget)
+		protected override void QueueAttack(Actor self, bool queued, Target newTarget)
 		{
 			var weapon = ChooseWeaponForTarget(newTarget);
 
 			if (weapon != null)
-				self.QueueActivity(
+				self.QueueActivity( queued,
 					new Activities.Attack(
 						newTarget, 
 						Math.Max(0, (int)weapon.Info.Range)));

OpenRA.Mods.RA/AttackOmni.cs

@@ -10,6 +10,7 @@
 
 using OpenRA.Mods.RA.Buildings;
 using OpenRA.Traits;
+using OpenRA.Mods.RA.Activities;
 
 namespace OpenRA.Mods.RA
 {
@@ -37,9 +38,22 @@ namespace OpenRA.Mods.RA
 			DoAttack(self, target);
 		}
 
-		protected override void QueueAttack(Actor self, Target newTarget)
+		protected override void QueueAttack(Actor self, bool queued, Target newTarget)
 		{
-			target = newTarget;
+			self.QueueActivity( queued, new SetTarget( newTarget ) );
+		}
+
+		class SetTarget : CancelableActivity
+		{
+			readonly Target target;
+			public SetTarget( Target target ) { this.target = target; }
+
+			public override IActivity Tick( Actor self )
+			{
+				if( !IsCanceled )
+					self.Trait<AttackBase>().target = target;
+				return NextActivity;
+			}
 		}
 	}
 }

OpenRA.Mods.RA/AttackTurreted.cs

@@ -46,24 +46,39 @@ namespace OpenRA.Mods.RA
 			DoAttack( self, target );
 		}
 
-		protected override void QueueAttack( Actor self, Target newTarget )
+		protected override void QueueAttack( Actor self, bool queued, Target newTarget )
 		{
 			if (self.TraitsImplementing<IDisable>().Any(d => d.Disabled))
 				return;
 
-			const int RangeTolerance = 1;	/* how far inside our maximum range we should try to sit */
+			self.QueueActivity( queued, new AttackActivity( newTarget ) );
-			var weapon = ChooseWeaponForTarget(newTarget);
+		}
-			if (weapon == null)
-				return;
 
-			target = newTarget;
+		bool buildComplete = false;
+		public void BuildingComplete(Actor self) { buildComplete = true; }
+
+		class AttackActivity : CancelableActivity
+		{
+			readonly Target newTarget;
+			public AttackActivity( Target newTarget ) { this.newTarget = newTarget; }
+
+			public override IActivity Tick( Actor self )
+			{
+				if( IsCanceled ) return NextActivity;
+
+				var attack = self.Trait<AttackTurreted>();
+				const int RangeTolerance = 1;	/* how far inside our maximum range we should try to sit */
+				var weapon = attack.ChooseWeaponForTarget(newTarget);
+				if (weapon != null)
+				{
+					attack.target = newTarget;
 
 					if (self.HasTrait<Mobile>() && !self.Info.Traits.Get<MobileInfo>().OnRails)
 						self.QueueActivity( new Follow( newTarget,
 							Math.Max( 0, (int)weapon.Info.Range - RangeTolerance ) ) );
 				}
-
+				return NextActivity;
-		bool buildComplete = false;
+			}
-		public void BuildingComplete(Actor self) { buildComplete = true; }
+		}
 	}
 }

OpenRA.Mods.RA/OpenRA.Mods.RA.csproj

@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project ToolsVersion="3.5" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <PropertyGroup>
     <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
@@ -321,7 +321,4 @@
 copy "$(TargetPath)" "$(SolutionDir)mods/ra/"
 cd "$(SolutionDir)"</PostBuildEvent>
   </PropertyGroup>
-  <ItemGroup>
-    <Folder Include="ServerTraits\" />
-  </ItemGroup>
 </Project>