Spring RTS Engine

Code: Select all

function script.Create()
	newFactory ()
	StartThread (moveFactory)	
end

function newFactory ()
	local x,y,z = Spring.GetUnitPosition (unitID)
	teamID = Spring.GetUnitTeam (unitID)
	factoryID = Spring.CreateUnit ("NAME_OF_FACTORY", x,y,z+100, 0, teamID)
	Spring.MoveCtrl.Enable (factoryID)
end

function moveFactory ()
	while (true) do
		if (not Spring.ValidUnitID (factoryID)) then newFactory () end
		local x,y,z = Spring.GetUnitPosition (unitID)
		Spring.SetUnitPosition (factoryID, x, y, z+100)
		Sleep (33)
	end
end

Code: Select all

function script.Killed(recentDamage, maxHealth)
--	if (Spring.ValidUnitID (factoryID)) then 
		Spring.DestroyUnit (factoryID) 
	--end
end

Code: Select all

function UpdateUnitPosition(ParentID, UnitID, attach)
	local px, py, pz, _, _, _ = spGetUnitPiecePosDir(ParentID, attach)
	local rx, ry, rz = GetUnitPieceRotation(ParentID, attach)
	mcSetPhysics(UnitID, px, py, pz, 0, 0, 0, rx, ry, rz)
end
		
function GetUnitPieceRotation(unitID, piece)
	local rx, ry, rz = Spring.UnitScript.CallAsUnit(unitID, spGetPieceRotation, piece)
	local Heading = spGetUnitHeading(unitID) --COB format
	local dy = rad(Heading / 182)
	return rx, dy + ry, rz
end

Code: Select all

function InsertOrder(unitID, cmdID, cmdParams, cmdOptions, cmdPos)
	if not cmdPos then
		cmdPos = -1 --put it in the end of queue
	end
	local IntParams = {cmdPos, cmdID, cmdOptions}
	for i = 1, #cmdParams do --insert params from cmdParams
		IntParams[i+3] = cmdParams[i]
	end
	local IntOptions = {"alt"} --treat IntParam[0] as position instead of tag
	spGiveOrderToUnit(unitID, CMD_INSERT, IntParams, IntOptions)
end