spiderantiheavy.lua

include "constants.lua"

local base = piece 'base'
local turret = piece 'turret'
local barrel = piece 'barrel'
local flare = piece 'flare'

local lfrontleg = piece 'lfrontleg'
local lfrontleg1 = piece 'lfrontleg_1'

local rfrontleg = piece 'rfrontleg'
local rfrontleg1 = piece 'rfrontleg_1'

local laftleg = piece 'laftleg'
local laftleg1 = piece 'laftleg_1'

local raftleg = piece 'raftleg'
local raftleg1 = piece 'raftleg_1'

local SIG_Walk = 1
local SIG_Aim = 2

--constants
local sa = math.rad(-10)
local ma = math.rad(40)
local pause = 280

local forward = 3.6
local backward = 3.5
local up = 2.2

local LOWER_LEG_ANGLE = math.rad(14)
local LOWER_LEG_SPEED = 3

local smokePiece = {base, barrel}

local function RestoreAfterDelay()
	Sleep(2750)
	Turn(turret, y_axis, 0, math.rad(90))
	Turn(barrel, x_axis, 0, math.rad(90))
end

local function Walk()
	Signal(SIG_Walk)
	SetSignalMask(SIG_Walk)
	while (true) do
		Turn(lfrontleg, y_axis, 1.5*ma, forward) 	-- right front forward
		Turn(lfrontleg, z_axis, -ma, up)	 	-- right front up
		Turn(lfrontleg1, z_axis, -LOWER_LEG_ANGLE, LOWER_LEG_SPEED)
			
		Turn(laftleg, y_axis, -1.5*ma, backward) 	-- right back backward
		Turn(laftleg, z_axis, 0, 4*up)		 	-- right back down
		Turn(laftleg1, z_axis, 0, LOWER_LEG_SPEED)
		
		Turn(rfrontleg, y_axis, sa, backward) 	-- left front backward
		Turn(rfrontleg, z_axis, 0, 4*up)		 	-- left front down
		Turn(rfrontleg1, z_axis, -LOWER_LEG_ANGLE/2, LOWER_LEG_SPEED)
		
		Turn(raftleg, y_axis, -sa, forward) 	-- left back forward
		Turn(raftleg, z_axis, ma, up)	 	-- left back up
		Turn(raftleg1, z_axis, LOWER_LEG_ANGLE, LOWER_LEG_SPEED)
		
		Sleep(pause)
		
		
		Turn(lfrontleg, y_axis, -sa, backward) 	-- right front backward
		Turn(lfrontleg, z_axis, 0, 4*up)		 	-- right front down
		Turn(lfrontleg1, z_axis, LOWER_LEG_ANGLE/2, LOWER_LEG_SPEED)
		
		Turn(laftleg, y_axis, sa, forward) 	-- right back forward
		Turn(laftleg, z_axis, -ma, up)	 	-- right back up
		Turn(laftleg1, z_axis, -LOWER_LEG_ANGLE, LOWER_LEG_SPEED)
		
		Turn(rfrontleg, y_axis, -1.5*ma, forward) 	-- left front forward
		Turn(rfrontleg, z_axis, ma, up)	 	-- left front up
		Turn(rfrontleg1, z_axis, LOWER_LEG_ANGLE, LOWER_LEG_SPEED)
		
		Turn(raftleg, y_axis, 1.5*ma, backward) 	-- left back backward
		Turn(raftleg, z_axis, 0, 4*up)		 	-- left back down
		Turn(raftleg1, z_axis, LOWER_LEG_ANGLE, LOWER_LEG_SPEED)
		
		Sleep(pause)
	
	end
end

local function StopWalk()
	Signal(SIG_Walk)
	SetSignalMask(SIG_Walk)
	Move(base, y_axis, 0, 4*up)
	Turn(lfrontleg, y_axis, 0) 	-- right front forward
	Turn(lfrontleg, z_axis, 0, up)
	Turn(lfrontleg1, z_axis, 0, up)
	
	Turn(laftleg, y_axis, 0) 	-- right back backward
	Turn(laftleg, z_axis, 0, up)
	Turn(laftleg1, z_axis, 0, up)
	
	Turn(rfrontleg, y_axis, 0) 	-- left front backward
	Turn(rfrontleg, z_axis, 0, up)
	Turn(rfrontleg1, z_axis, 0, up)
	
	Turn(raftleg, y_axis, 0) 	-- left back forward
	Turn(raftleg, z_axis, 0, up)
	Turn(raftleg1, z_axis, 0, up)


	Turn(lfrontleg, y_axis, math.rad(45), forward)
	Turn(rfrontleg, y_axis, math.rad(-45), forward)
	Turn(laftleg, y_axis, math.rad(-45), forward)
	Turn(raftleg, y_axis, math.rad(45), forward)

end

function script.StartMoving()
	StartThread(Walk)
end

function script.StopMoving()
	StartThread(StopWalk)
end

function script.Create()

	Turn(lfrontleg, y_axis, math.rad(45))
	Turn(rfrontleg, y_axis, math.rad(-45))
	Turn(laftleg, y_axis, math.rad(-45))
	Turn(raftleg, y_axis, math.rad(45))

	StartThread(GG.Script.SmokeUnit, unitID, smokePiece)
end

function script.AimWeapon(num, heading, pitch)
	Signal(SIG_Aim)
	SetSignalMask(SIG_Aim)
	Turn(turret, y_axis, heading, math.rad(360)) -- left-right
	Turn(barrel, x_axis, -pitch, math.rad(270)) --up-down
	WaitForTurn(turret, y_axis)
	WaitForTurn(barrel, x_axis)
	StartThread(RestoreAfterDelay)
	return true
end

function script.AimFromWeapon(num)
	return turret
end

function script.QueryWeapon(num)
	return flare
end

function script.BlockShot(num, targetID)
	if (targetID and GG.DontFireRadar_CheckBlock(unitID, targetID)) then
		return true
	end

	-- Hax to refresh the target's quadfield presence, since otherwise
	-- the lightning bolt can fail to connect due to stale quad cache.
	-- See https://springrts.com/mantis/view.php?id=6421
	if targetID and not Spring.MoveCtrl.GetTag(targetID) then
		local bx, by, bz = Spring.GetUnitPosition(targetID)
		if bx then
			local height = Spring.GetGroundHeight(bx, bz)
			if math.abs(height - by) < 0.01 then
				Spring.SetUnitPosition(targetID, bx, bz)
			elseif by < 0.1 and by > -0.01 then
				Spring.SetUnitPosition(targetID, bx, bz, true)
			end
		end
	end

	return false
end

function script.Killed(recentDamage, maxHealth)
	local severity = recentDamage/maxHealth
	if severity <= .25 then
		Explode(base, SFX.NONE)
		return 1
	elseif severity <= .50 then
		Explode(base, SFX.NONE)
		Explode(barrel, SFX.FALL + SFX.SMOKE)
		return 1
	else
		Explode(base, SFX.SHATTER)
		Explode(barrel, SFX.FALL + SFX.SMOKE + SFX.FIRE + SFX.EXPLODE)
		return 2
	end
end