--Hello there!

--I managed to make an ugly fix to solve that issue, well here it is:

HedgewarsScriptLoad("/Scripts/Locale.lua")

--[[
“100” is a placeholder until I am able to
query the game scheme’s retreat time.
]]

local retreatTimePercentage = 100
local GlobalGirderEndTurn=0

function onGameInit()
Goals = loc("Girders, dirt balls, land cannons and resurrections end your turn!")
end

function onGearAdd(gear)

if(GetGearType(gear) == gtSnowball)
then
endTurn(3000)
end
end

function onGearDelete(gear)

local gt = GetGearType(gear)

if(gt == gtResurrector or gt == gtLandGun or gt == gtGirder)
then
endTurn(3000)
end
end

function endTurn(baseRetreatTime)
if(GetCurAmmoType()==amGirder)
then
ParseCommand("setweap " .. string.char(amSkip))
GlobalGirderEndTurn=GetAmmoCount(CurrentHedgehog, amGirder)
else
SetState(CurrentHedgehog,bor(GetState(CurrentHedgehog),gstAttacked))
TurnTimeLeft = baseRetreatTime / 100 * retreatTimePercentage
end

end

function onGameTick20()
if(GlobalGirderEndTurn==GetAmmoCount(CurrentHedgehog, amGirder)+1)
then
endTurn(3000)
GlobalGirderEndTurn=0
elseif(GlobalGirderEndTurn>0)
then
ParseCommand("setweap " .. string.char(amGirder))
GlobalGirderEndTurn=0
end
end

--Have fun!--

Yeah, it’s a hack, true. But it works so far, thanks.

There is another minor problem with the script in general: The tool descriptions still say “Usage does not end round.” or something like that. This is of course not true anymore with this script.

Hi! I have made an updated version of this script for Hedgewars 0.9.20. Now rubber is supported, too.

Data/Scripts/Multiplayer/Strategy.lua:

do
	
	HedgewarsScriptLoad("/Scripts/Locale.lua")
	
	--[[
	“100” is a placeholder until I am able to
	query the game scheme’s retreat time.
	]]
	
	local retreatTimePercentage = 100
	local GlobalGirderEndTurn = 0
	local GlobalGirderType = amNothing
	
	function onGameInit()
		Goals = loc("Girders, rubbers, dirt balls, land cannons and resurrections end your turn!")
	end
	
	function onGearAdd(gear)
		if(GetGearType(gear) == gtSnowball) then
			endTurn(3000)
		end
	end
	
	function onGearDelete(gear)
	
		local gt = GetGearType(gear)
	
		if(gt == gtResurrector or gt == gtLandGun or gt == gtGirder) then
			endTurn(3000)
		end
	end
	
	function endTurn(baseRetreatTime)
		local at = GetCurAmmoType()
		if(at==amGirder or at == amRubber) then
			ParseCommand("setweap " .. string.char(amSkip))
			GlobalGirderType = at
			GlobalGirderEndTurn=GetAmmoCount(CurrentHedgehog, at)
		else
			SetState(CurrentHedgehog,bor(GetState(CurrentHedgehog),gstAttacked))
			TurnTimeLeft = div(baseRetreatTime * retreatTimePercentage, 100)
		end
	
	end
	
	function onGameTick20()
		if(GlobalGirderType ~= amNothing) then
			if(GlobalGirderEndTurn==GetAmmoCount(CurrentHedgehog, GlobalGirderType)+1) then
				endTurn(3000)
			elseif(GlobalGirderEndTurn>0) then
				ParseCommand("setweap " .. string.char(GlobalGirderType))
			end
			GlobalGirderEndTurn = 0
			GlobalGirderType = amNothing
		end
	end
end

Data/Scripts/Multiplayer/Strategy.cfg:

Strategy
Strategy

You can, but don’t have to, use the script together with the weapon and game schemes called “Strategy”.
http://www.hedgewars.org/node/3857#comment-29047
Together with this scheme, this script already works pretty well.

The code to find out when a girder or rubber has been placed is still very hackish.
I discovered another bug: It does not work if the amount of girders or rubbers is infinite. In this case, the turn does not end when one has been placed.

Okay, I guess I finally made it! I got rid of the last game-breaking bug (infinite girders bug, see above).

I managed to create a more or less working version of my Strategy script! Sadly, it only works in current experimentals (pre 0.9.21), sorry. But it is playable and without serious bugs anymore.

The code is still a bit hacky and still needs some very ugly workarounds (see comments), but at least it works now and does not seem to have serious bugs anymore. Especially the girder and rubber placement is now OK.

You can download the script here as HWP file (with description):
http://hh.unit22.org/addons/Script/Strategy_v1/

Please post any further discussion about the script here:
http://www.hedgewars.org/node/5948