# HG changeset patch
# User unc0rr
# Date 1251377961 0
# Node ID f53a208e96373b9bae1224c7f8ad80359e406f49
# Parent  351abbbb12f341a46056de9eb678ad507de63414
Add respawning mines mode as a hack.
To test uncomment lines 1456-1460 in uGears.pas

diff -r 351abbbb12f3 -r f53a208e9637 hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Wed Aug 26 20:32:27 2009 +0000
+++ b/hedgewars/uGears.pas	Thu Aug 27 12:59:21 2009 +0000
@@ -1451,8 +1451,13 @@
 	for i:= 0 to Pred(cLandAdditions) do
 		begin
 		Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0);
-		FindPlace(Gear, false, 0, LAND_WIDTH)
-		end;
+		Gear^.TriggerId:= i + 1;
+		FindPlace(Gear, false, 0, LAND_WIDTH);
+{		if(Gear <> nil) then
+			ParseCommand('addtrig s' + inttostr(Gear^.TriggerId) + ' 1 5 11 ' +
+				inttostr(hwRound(Gear^.X)) + ' ' + inttostr(hwRound(Gear^.Y)) +
+				' ' + inttostr(Gear^.TriggerId), true);
+}		end;
 
 if (GameFlags and gfLowGravity) <> 0 then
     cGravity:= cMaxWindSpeed / 2;