Prevent entering “/”, “\” and “:” in team and scheme names.
The name of teams and schems is saved in the file name itself, so these characters would cause trouble as they are used in path names in Linux and Windows.
--[[ Stuck Cake Test
In this test, 2 hedgehogs are placed very close to each other, tightly
crammed between girders. The first hog (Cake Hog) launches a cake. Now
the test waits until the cake explodes due to time.
The cake must not take too long or forever to explode. The test succeeds
if the cake explodes before CAKE_MAX_EXPLOSION_TIME ticks (rough estimate)
after the cake spawned and fails otherwise.
This test case has been written in response to bug 194.
]]
-- Cake must explode before this many ticks for the test to succeed
local CAKE_MAX_EXPLOSION_TIME = 15000
-- Give up if cake is still running after this many ticks
local CAKE_GIVE_UP_TIME = 20000
local hhs = {}
function onGameInit()
ClearGameFlags()
EnableGameFlags(gfDisableWind, gfPerHogAmmo, gfOneClanMode, gfInvulnerable, gfSolidLand)
Map = ""
Seed = "{84f5e62e-6a12-4444-b53c-2bc62cfd9c62}"
Theme = "Cave"
MapGen = mgDrawn
MapFeatureSize = 12
TemplateFilter = 3
TemplateNumber = 0
TurnTime = 9999000
Explosives = 0
MinesNum = 0
CaseFreq = 0
WaterRise = 0
HealthDecrease = 0
Ready = 0
------ TEAM LIST ------
AddTeam("Test Team", 0xFFFF02, "Statue", "Tank", "Default", "cm_test")
hhs[1] = AddHog("Cake Hog", 0, 100, "NoHat")
SetGearPosition(hhs[1], 771, 1344)
hhs[2] = AddHog("Passive Hog", 0, 100, "NoHat")
SetGearPosition(hhs[2], 772, 1344)
HogTurnLeft(hhs[2], true)
end
function onAmmoStoreInit()
SetAmmo(amCake, 9, 0, 0, 0)
SetAmmo(amSkip, 9, 0, 0, 0)
end
function onGameStart()
PlaceSprite(784, 1361, sprAmGirder, 4, 0xFFFFFFFF, nil, nil, nil, lfNormal)
PlaceSprite(730, 1271, sprAmGirder, 6, 0xFFFFFFFF, nil, nil, nil, lfNormal)
PlaceSprite(753, 1270, sprAmGirder, 6, 0xFFFFFFFF, nil, nil, nil, lfNormal)
PlaceSprite(798, 1271, sprAmGirder, 6, 0xFFFFFFFF, nil, nil, nil, lfNormal)
PlaceSprite(777, 1243, sprAmGirder, 6, 0xFFFFFFFF, nil, nil, nil, lfNormal)
end
local cakeTestPhase = 0
--[[ Test phases:
0: Waiting for turn start
1: Cake selected, waiting for attack
2: Cake gear added
3: Cake gead destroyed ]]
function onNewTurn()
if cakeTestPhase == 0 then
SetWeapon(amCake)
cakeTestPhase = 1
end
end
local cakeTicks = 0
function onGearAdd(gear)
if GetGearType(gear) == gtCake then
cakeTestPhase = 2
end
end
function onGearDelete(gear)
if GetGearType(gear) == gtCake and cakeTestPhase == 2 then
WriteLnToConsole(string.format("TEST: The cake exploded after %d ticks.", cakeTicks))
cakeTestPhase = 3
if cakeTicks > CAKE_MAX_EXPLOSION_TIME then
WriteLnToConsole("TEST RESULT: Failed because cake took too long to explode.")
EndLuaTest(TEST_FAILED)
else
WriteLnToConsole("TEST RESULT: Succeeded because cake exploded in time.")
EndLuaTest(TEST_SUCCESSFUL)
end
end
end
function onGameTick()
if cakeTestPhase == 1 then
ParseCommand("+attack")
elseif cakeTestPhase == 2 then
cakeTicks = cakeTicks + 1
if cakeTicks > CAKE_GIVE_UP_TIME then
WriteLnToConsole(string.format("TEST RESULT: Failed because the cake still didn't explode after %d ticks.", CAKE_GIVE_UP_TIME))
cakeTestPhase = 3
EndLuaTest(TEST_FAILED)
end
end
end