tests/lua/drillrockets_drill.lua
changeset 10043 ca075f0f7cfb
parent 10028 9e742fc72696
child 10421 87e47843018e
--- a/tests/lua/drillrockets_drill.lua	Tue Jan 21 23:25:57 2014 +0100
+++ b/tests/lua/drillrockets_drill.lua	Tue Jan 21 23:46:48 2014 +0100
@@ -109,10 +109,13 @@
 	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))
@@ -133,7 +136,7 @@
 	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, 900000 * xdir, 900000 * ydir, 0)
+		AddGear(math.floor(x), math.floor(y), gtDrill, 0, speed * xdir, speed * ydir, 0)
 		nspawned = nspawned + 1
 		x = x + xd
 		y = y + yd