-- * let grenade fall

-- * after a second capture fall distance

-- * change gravity value every second and see if the fall distance in the

--   following second is about what we'd expect it to be

local spawnX = 10

local spawnY = -500

local defaultG = nil

local currentG = nil

local defaultDY = nil

local expectedY = nil

local testGs = nil

local nFails = 0

function onGameInit()

	-- The base number for the random number generator

	Seed = 1

	-- The map to be played

	Map = "Ruler"

	-- The theme to be used

	Theme = "Bamboo"

	-- Game settings and rules

	EnableGameFlags(gfOneClanMode, gfInvulnerable)

	CaseFreq = 0

	MinesNum = 0

	Explosives = 0

	-- Create the player team

	AddTeam("O_o", 14483456, "Simple", "Island", "Default")

	-- And add a hog to it

	player = AddHog("o_O", 0, 1, "NoHat")

	SetGearPosition(player, 100, 100)

end

local tol = 0

function IsKindaSame(a, b)

	tol = 1 + math.max(1,math.abs(currentG) / 100)

	return (a >= b-tol) and (a <= b+tol)

end

function SpawnGrenade()

	AddGear(spawnX, spawnY, gtGrenade, 0, 0, 0, 1000)

end

local gIdx = 1

function onGearDelete(gear)

	if GetGearType(gear) ~= gtGrenade then

		return

	end

	-- catch initial measuring drop

	if defaultDY == nil then

		defaultDY = GetY(gear) - spawnY

	elseif not IsKindaSame(GetY(gear), expectedY) then

		nFails = nFails + 1

		WriteLnToConsole("FAIL: Unexpected Y position! " .. GetY(gear) .. " returned, expected " .. expectedY .. ' (max tolerated difference = ' .. tol .. ')')

	else

		WriteLnToConsole("Y position OK! " .. GetY(gear) .. " returned, expected " .. expectedY .. ' (max tolerated difference = ' .. tol .. ')')

	end

	returnedG = GetGravity()

	if (returnedG ~= currentG) then

		WriteLnToConsole("GetGravity did not return the value that we used with SetGravity! " .. returnedG .. " returned, expected " .. currentG)

		nFails = nFails + 1

	end

	currentG = testGs[gIdx]

	gIdx = gIdx + 1

	-- after last test

	if currentG == nil then

		if (nFails > 0) then

			EndLuaTest(TEST_FAILED)

		else

			EndLuaTest(TEST_SUCCESSFUL)

		end

	end

	WriteLnToConsole("SetGravity(" .. currentG .. ") ...")

	SetGravity(currentG)

	SpawnGrenade()

	expectedY = spawnY + math.floor(currentG * defaultDY / 100)

end

function onGameStart()

	currentG = 100

	defaultG = GetGravity()

	if (defaultG ~= 100) then

		WriteLnToConsole("GetGravity did not return 100 at game start")

		nFails = 1

	end

	SpawnGrenade()

	testGs = {150, 200, 300, 10, 1, 13, 15, 0, 27, -600, -10, nil}

end