Skip checkin on collision for frequently spammed gear types if collision gets huge instead of trying to delete mines.
-- taken from http://code.google.com/p/hedgewars/wiki/LuaDrawing
PointsBuffer = '' -- A string to accumulate points in
function AddPoint(x, y, width, erase)
PointsBuffer = PointsBuffer .. string.char(band(x,0xff00) / 256 , band(x,0xff) , band(y,0xff00) / 256 , band(y,0xff))
if width then
width = bor(width,0x80)
if erase then
width = bor(width,0x40)
end
PointsBuffer = PointsBuffer .. string.char(width)
else
PointsBuffer = PointsBuffer .. string.char(0)
end
if #PointsBuffer > 245 then
ParseCommand('draw '..PointsBuffer)
PointsBuffer = ''
end
end
function FlushPoints()
if #PointsBuffer > 0 then
ParseCommand('draw '..PointsBuffer)
PointsBuffer = ''
end
end
local ta_pointsize = 63
local ta_radius = (ta_pointsize * 10 + 6) / 2
-- creates round test area
function AddTestArea(testarea)
step = 200
xstep = step * testarea["xdir"]
ystep = step * testarea["ydir"]
x = testarea["x"]
y = testarea["y"]
AddPoint(x, y, ta_pointsize);
AddPoint(x + xstep, y + ystep);
end
-- vertical test areas
local taa_v1 = {x= 350, y= 400, xdir= 0, ydir= 1}
local taa_v2 = {x= 350, y=1500, xdir= 0, ydir=-1}
-- horizontal test areas
local taa_h1 = {x=1150, y= 400, xdir= 1, ydir= 0}
local taa_h2 = {x=1200, y=1100, xdir=-1, ydir= 0}
-- diagonal test areas
local taa_d1 = {x=2200, y= 400, xdir= 1, ydir= 1}
local taa_d2 = {x=2000, y=1500, xdir= 1, ydir=-1}
local taa_d3 = {x=3300, y= 400, xdir=-1, ydir= 1}
local taa_d4 = {x=3300, y=1500, xdir=-1, ydir=-1}
-- fail counter
local nfailed = 0
local nspawned = 0
local ndied = 0
function onGameInit()
-- At first we have to overwrite/set some global variables
-- that define the map, the game has to load, as well as
-- other things such as the game rules to use, etc.
-- Things we don't modify here will use their default values.
-- The base number for the random number generator
Seed = 1
-- The map to be played
MapGen = mgDrawn
-- The theme to be used
Theme = "Bamboo"
-- Game settings and rules
EnableGameFlags(gfOneClanMode, gfDisableWind, gfDisableLandObjects, gfDisableGirders, gfSolidLand)
CaseFreq = 0
MinesNum = 0
Explosives = 0
-- No damage please
DamagePercent = 1
-- Draw Map
AddPoint(10,30,0) -- hog spawn platform
-- test areas
AddTestArea(taa_v1)
AddTestArea(taa_v2)
AddTestArea(taa_h1)
AddTestArea(taa_h2)
AddTestArea(taa_d1)
AddTestArea(taa_d2)
AddTestArea(taa_d3)
AddTestArea(taa_d4)
FlushPoints()
-- Create the player team
AddTeam("'Zooka Team", 14483456, "Simple", "Island", "Default")
-- And add a hog to it
player = AddHog("Hunter", 0, 1, "NoHat")
-- place it on how spawn platform
SetGearPosition(player, 10, 10)
end
-- xdir/ydir is direction in which to fire the drills
function SpawnDrillRocketArray(testarea)
xdir = testarea["xdir"]
ydir = testarea["ydir"]
centerx = testarea["x"]
centery = testarea["y"]
distance = 23
d = distance
radius = ta_radius
local xmin, xmax, ymin, ymax
speed = 900000;
local xmin, xmax, ymin, ymax
if (xdir ~= 0) and (ydir ~= 0) then
sqrttwo = math.sqrt(2)
d = d / sqrttwo
radius = radius / sqrttwo
speed = math.floor(speed / sqrttwo)
end
centerx = centerx - (xdir * (radius + 20))
centery = centery - (ydir * (radius + 20))
radius = radius - 6
xn = ydir
yn = -xdir
startx = centerx - (radius * xn)
starty = centery - (radius * yn)
endx = centerx + (radius * xn)
endy = centery + (radius * yn)
-- spawn loop
x = startx
y = starty
xd = d * xn
yd = d * yn
if (xd < 0) and (startx < endx) then x = endx end
if (yd < 0) and (starty < endy) then y = endy end
nsteps = math.floor(math.max(math.abs(startx - endx),math.abs(starty - endy)) / d)
for i = 1, nsteps, 1 do
AddGear(math.floor(x), math.floor(y), gtDrill, 0, speed * xdir, speed * ydir, 0)
nspawned = nspawned + 1
x = x + xd
y = y + yd
end
end
function onGearDelete(gear)
if GetGearType(gear) == gtDrill then
if GetTimer(gear) > 0 then
nfailed = nfailed + 1
end
ndied = ndied + 1
if ndied == nspawned then
WriteLnToConsole('TESTRESULT: ' .. nfailed .. ' of ' .. nspawned .. ' drill rockets exploded prematurely')
if (nfailed > 0) then
EndLuaTest(TEST_FAILED)
else
EndLuaTest(TEST_SUCCESSFUL)
end
end
end
end
function onGameStart()
SetGravity(1)
SpawnDrillRocketArray(taa_h1)
SpawnDrillRocketArray(taa_h2)
SpawnDrillRocketArray(taa_v1)
SpawnDrillRocketArray(taa_v2)
SpawnDrillRocketArray(taa_d1)
SpawnDrillRocketArray(taa_d2)
SpawnDrillRocketArray(taa_d3)
SpawnDrillRocketArray(taa_d4)
end