Add initial standard library, and port shellmaps.

OpenRA.Mods.RA/Scripting/Properties/ChronosphereProperties.cs

@@ -0,0 +1,43 @@
+#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.Linq;
+using Eluant;
+using OpenRA;
+using OpenRA.Mods.RA;
+using OpenRA.Mods.RA.Activities;
+using OpenRA.Scripting;
+using OpenRA.Traits;
+
+namespace OpenRA.Mods.RA.Scripting
+{
+	[ScriptPropertyGroup("Support Powers")]
+	public class ChronsphereProperties : ScriptActorProperties, Requires<ChronoshiftPowerInfo>
+	{
+		public ChronsphereProperties(Actor self)
+			: base(self) { }
+
+		[Desc("Chronoshift a group of actors. A duration of 0 will teleport the actors permanently.")]
+		public void Chronoshift(LuaTable unitLocationPairs, int duration = 0, bool killCargo = false)
+		{
+			foreach (var kv in unitLocationPairs)
+			{
+				Actor actor;
+				CPos cell;
+				if (!kv.Key.TryGetClrValue<Actor>(out actor) || !kv.Value.TryGetClrValue<CPos>(out cell))
+					throw new LuaException("Chronoshift requires a table of Actor,CPos pairs. Received {0},{1}".F(kv.Key.WrappedClrType().Name, kv.Value.WrappedClrType().Name));
+
+				var cs = actor.TraitOrDefault<Chronoshiftable>();
+				if (cs != null && cs.CanChronoshiftTo(actor, cell))
+					cs.Teleport(actor, cell, duration, killCargo, self);
+			}
+		}
+	}
+}

OpenRA.Mods.RA/Scripting/Properties/CombatProperties.cs

@@ -0,0 +1,42 @@
+#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 OpenRA;
+using OpenRA.FileFormats;
+using OpenRA.Mods.RA;
+using OpenRA.Mods.RA.Activities;
+using OpenRA.Mods.RA.Move;
+using OpenRA.Scripting;
+using OpenRA.Traits;
+
+namespace OpenRA.Mods.RA.Scripting
+{
+	[ScriptPropertyGroup("Combat")]
+	public class CombatProperties : ScriptActorProperties, Requires<AttackBaseInfo>, Requires<IMoveInfo>
+	{
+		public CombatProperties(Actor self) : base(self) { }
+
+		[ScriptActorPropertyActivity]
+		[Desc("Seek out and attack nearby targets.")]
+		public void Hunt()
+		{
+			self.QueueActivity(new Hunt(self));
+		}
+
+		[ScriptActorPropertyActivity]
+		[Desc("Move to a cell, but stop and attack anything within range on the way. " +
+			"closeEnough defines an optional range (in cells) that will be considered " +
+			"close enough to complete the activity.")]
+		public void AttackMove(CPos cell, int closeEnough = 0)
+		{
+			self.QueueActivity(new AttackMove.AttackMoveActivity(self, new Move.Move(cell, WRange.FromCells(closeEnough))));
+		}
+	}
+}

OpenRA.Mods.RA/Scripting/Properties/GeneralProperties.cs

@@ -0,0 +1,139 @@
+#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 Eluant;
+using OpenRA;
+using OpenRA.FileFormats;
+using OpenRA.Mods.RA;
+using OpenRA.Mods.RA.Activities;
+using OpenRA.Mods.RA.Move;
+using OpenRA.Scripting;
+using OpenRA.Traits;
+
+namespace OpenRA.Mods.RA.Scripting
+{
+	[ScriptPropertyGroup("General")]
+	public class GeneralProperties : ScriptActorProperties
+	{
+		readonly IFacing facing;
+		readonly AutoTarget autotarget;
+
+		public GeneralProperties(Actor self) : base(self)
+		{
+			facing = self.TraitOrDefault<IFacing>();
+			autotarget = self.TraitOrDefault<AutoTarget>();
+		}
+
+		[Desc("Specifies whether the actor is in the world.")]
+		public bool IsInWorld
+		{
+			get
+			{
+				return self.IsInWorld;
+			}
+
+			set
+			{
+				if (value)
+					self.World.AddFrameEndTask(w => w.Add(self));
+				else
+					self.World.AddFrameEndTask(w => w.Remove(self));
+			}
+		}
+
+		[Desc("Specifies whether the actor is idle (not performing any activities).")]
+		public bool IsIdle { get { return self.IsIdle; } }
+
+		[Desc("The actor position in cell coordinates.")]
+		public CPos Location { get { return self.Location; } }
+
+		[Desc("The actor position in world coordinates.")]
+		public WPos CenterPosition { get { return self.CenterPosition; } }
+
+		[Desc("The player that owns the actor.")]
+		public Player Owner { get { return self.Owner; } }
+
+		[Desc("The direction that the actor is facing.")]
+		public int Facing
+		{
+			get
+			{
+				if (facing == null)
+					throw new LuaException("Actor '{0}' doesn't define a facing".F(self));
+
+				return facing.Facing;
+			}
+		}
+
+		[ScriptActorPropertyActivity]
+		[Desc("Instantly moves the actor to the specified cell.")]
+		public void Teleport(CPos cell)
+		{
+			self.QueueActivity(new SimpleTeleport(cell));
+		}
+
+		[ScriptActorPropertyActivity]
+		[Desc("Run an arbitrary lua function.")]
+		public void CallFunc(LuaFunction func)
+		{
+			self.QueueActivity(new CallLuaFunc(func));
+		}
+
+		[ScriptActorPropertyActivity]
+		[Desc("Wait for a specified number of game ticks (25 ticks = 1 second).")]
+		public void Wait(int ticks)
+		{
+			self.QueueActivity(new Wait(ticks));
+		}
+
+		[ScriptActorPropertyActivity]
+		[Desc("Remove the actor from the game, without triggering any death notification.")]
+		public void Destroy()
+		{
+			self.QueueActivity(new RemoveSelf());
+		}
+
+		[Desc("Attempt to cancel any active activities.")]
+		public void Stop()
+		{
+			self.CancelActivity();
+		}
+
+		[Desc("Current actor stance. Returns nil if this actor doesn't support stances.")]
+		public string Stance
+		{
+			get
+			{
+				if (autotarget == null)
+					return null;
+
+				return autotarget.Stance.ToString();
+			}
+
+			set
+			{
+				if (autotarget == null)
+					return;
+
+				UnitStance stance;
+				if (!Enum<UnitStance>.TryParse(value, true, out stance))
+					throw new LuaException("Unknown stance type '{0}'".F(value));
+
+				autotarget.Stance = stance;
+			}
+		}
+
+		[Desc("Test whether an actor has a specific property.")]
+		public bool HasProperty(string name)
+		{
+			return self.HasScriptProperty(name);
+		}
+	}
+}

OpenRA.Mods.RA/Scripting/Properties/HealthProperties.cs

@@ -0,0 +1,63 @@
+#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 Eluant;
+using OpenRA;
+using OpenRA.FileFormats;
+using OpenRA.Mods.RA;
+using OpenRA.Mods.RA.Activities;
+using OpenRA.Mods.RA.Move;
+using OpenRA.Scripting;
+using OpenRA.Traits;
+
+namespace OpenRA.Mods.RA.Scripting
+{
+	[ScriptPropertyGroup("General")]
+	public class HealthProperties : ScriptActorProperties, Requires<HealthInfo>
+	{
+		Health health;
+		public HealthProperties(Actor self)
+			: base(self)
+		{
+			health = self.Trait<Health>();
+		}
+
+		[Desc("Current health of the actor.")]
+		public int Health
+		{
+			get { return health.HP; }
+			set { health.InflictDamage(self, self, health.HP - value, null, true); }
+		}
+
+		[Desc("Maximum health of the actor.")]
+		public int MaxHealth { get { return health.MaxHP; } }
+
+		[Desc("Specifies whether the actor is alive or dead.")]
+		public bool IsDead { get { return health.IsDead; } }
+	}
+
+	[ScriptPropertyGroup("General")]
+	public class InvulnerableProperties : ScriptActorProperties, Requires<ScriptInvulnerableInfo>
+	{
+		ScriptInvulnerable invulnerable;
+		public InvulnerableProperties(Actor self)
+			: base(self)
+		{
+			invulnerable = self.Trait<ScriptInvulnerable>();
+		}
+
+		[Desc("Set or query unit invulnerablility.")]
+		public bool Invulnerable
+		{
+			get { return invulnerable.Invulnerable; }
+			set { invulnerable.Invulnerable = value; }
+		}
+	}
+}

OpenRA.Mods.RA/Scripting/Properties/MobileProperties.cs

@@ -0,0 +1,40 @@
+#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 OpenRA;
+using OpenRA.FileFormats;
+using OpenRA.Mods.RA.Activities;
+using OpenRA.Mods.RA.Move;
+using OpenRA.Scripting;
+using OpenRA.Traits;
+
+namespace OpenRA.Mods.RA.Scripting
+{
+	[ScriptPropertyGroup("Movement")]
+	public class MobileProperties : ScriptActorProperties, Requires<MobileInfo>
+	{
+		public MobileProperties(Actor self) : base(self) { }
+
+		[ScriptActorPropertyActivity]
+		[Desc("Moves within the cell grid. closeEnough defines an optional range " +
+			"(in cells) that will be considered close enough to complete the activity.")]
+		public void Move(CPos cell, int closeEnough = 0)
+		{
+			self.QueueActivity(new Move.Move(cell, WRange.FromCells(closeEnough)));
+		}
+
+		[ScriptActorPropertyActivity]
+		[Desc("Moves within the cell grid, ignoring lane biases.")]
+		public void ScriptedMove(CPos cell)
+		{
+			self.QueueActivity(new Move.Move(cell));
+		}
+	}
+}

OpenRA.Mods.RA/Scripting/Properties/ProductionProperties.cs

@@ -0,0 +1,43 @@
+#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.Linq;
+using Eluant;
+using OpenRA;
+using OpenRA.Mods.RA;
+using OpenRA.Mods.RA.Activities;
+using OpenRA.Scripting;
+using OpenRA.Traits;
+
+namespace OpenRA.Mods.RA.Scripting
+{
+	[ScriptPropertyGroup("Production")]
+	public class ProductionProperties : ScriptActorProperties, Requires<ProductionInfo>
+	{
+		readonly Production p;
+
+		public ProductionProperties(Actor self)
+			: base(self)
+		{
+			p = self.Trait<Production>();
+		}
+
+		[ScriptActorPropertyActivity]
+		[Desc("Build a unit, ignoring the production queue. The activity will wait if the exit is blocked")]
+		public void Produce(string actorType)
+		{
+			ActorInfo actorInfo;
+			if (!Rules.Info.TryGetValue(actorType, out actorInfo))
+				throw new LuaException("Unknown actor type '{0}'".F(actorType));
+
+			self.QueueActivity(new WaitFor(() => p.Produce(self, actorInfo)));
+		}
+	}
+}

OpenRA.Mods.RA/Scripting/Properties/ResourceProperties.cs

@@ -0,0 +1,46 @@
+#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 OpenRA;
+using OpenRA.Scripting;
+using OpenRA.Traits;
+
+namespace OpenRA.Mods.RA.Scripting
+{
+	[ScriptPropertyGroup("Resources")]
+	public class ResourceProperties : ScriptPlayerProperties, Requires<PlayerResourcesInfo>
+	{
+		readonly PlayerResources pr;
+
+		public ResourceProperties(Player player)
+			: base(player)
+		{
+			pr = player.PlayerActor.Trait<PlayerResources>();
+		}
+
+		[Desc("The amount of harvestable resources held by the player.")]
+		public int Resources
+		{
+			get { return pr.Ore; }
+			set { pr.Ore = value.Clamp(0, pr.OreCapacity); }
+		}
+
+		[Desc("The maximum resource storage of the player.")]
+		public int ResourceCapacity { get { return pr.OreCapacity; } }
+
+		[Desc("The amount of cash held by the player.")]
+		public int Cash
+		{
+			get { return pr.Cash; }
+			set { pr.Cash = Math.Max(0, value); }
+		}
+	}
+}

OpenRA.Mods.RA/Scripting/Properties/TransportProperties.cs

@@ -0,0 +1,66 @@
+#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.Linq;
+using Eluant;
+using OpenRA;
+using OpenRA.Mods.RA;
+using OpenRA.Mods.RA.Activities;
+using OpenRA.Mods.RA.Air;
+using OpenRA.Scripting;
+using OpenRA.Traits;
+
+namespace OpenRA.Mods.RA.Scripting
+{
+	[ScriptPropertyGroup("Transports")]
+	public class TransportProperties : ScriptActorProperties, Requires<CargoInfo>
+	{
+		readonly Cargo cargo;
+
+		public TransportProperties(Actor self)
+			: base(self)
+		{
+			cargo = self.Trait<Cargo>();
+		}
+
+		[Desc("Specifies whether transport has any passengers.")]
+		public bool HasPassengers { get { return cargo.Passengers.Any(); } }
+
+		[Desc("Teleport an existing actor inside this transport.")]
+		public void LoadPassenger(Actor a) { cargo.Load(self, a); }
+
+		[ScriptActorPropertyActivity]
+		[Desc("Command transport to unload passengers.")]
+		public void UnloadPassengers()
+		{
+			self.QueueActivity(new UnloadCargo(self, true));
+		}
+	}
+
+	[ScriptPropertyGroup("Transports")]
+	public class ParadropPowers : ScriptActorProperties, Requires<CargoInfo>, Requires<ParaDropInfo>
+	{
+		readonly ParaDrop paradrop;
+
+		public ParadropPowers(Actor self)
+			: base(self)
+		{
+			paradrop = self.Trait<ParaDrop>();
+		}
+
+		[ScriptActorPropertyActivity]
+		[Desc("Command transport to paradrop passengers near the target cell.")]
+		public void Paradrop(CPos cell)
+		{
+			paradrop.SetLZ(cell);
+			self.QueueActivity(new FlyAttack(Target.FromCell(cell)));
+		}
+	}
+}