hedgewars/uGears.pas
changeset 2915 a02f276035e8
parent 2914 7db64c269a5b
child 2923 e33ecd95aa1a
--- a/hedgewars/uGears.pas	Wed Mar 03 02:36:52 2010 +0000
+++ b/hedgewars/uGears.pas	Wed Mar 03 02:56:18 2010 +0000
@@ -1644,10 +1644,6 @@
 begin
 AddGear(0, 0, gtATStartGame, 0, _0, _0, 2000);
 
-// HACK: just for testing explosives!
-if (GameFlags and gfMines) <> 0 then
-	GameFlags:= (GameFlags or gfExplosives) and not gfMines;
-
 if (TrainingFlags and tfSpawnTargets) <> 0 then
 	begin
 	TrainingTargetGear:= AddGear(0, 0, gtTarget, 0, _0, _0, 0);
@@ -1664,11 +1660,11 @@
 			Gear^.TriggerId:= i + 1;
 			FindPlace(Gear, false, 0, LAND_WIDTH);
 			end;
-	if ((GameFlags and gfExplosives) <> 0) then
-		for i:= 0 to Pred(cLandAdditions) do
+//  No game flag for this for now
+//	if ((GameFlags and gfExplosives) <> 0) then
+		for i:= 0 to Pred(cExplosives) do
 			begin
 			Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0);
-			Gear^.TriggerId:= i + 1;
 			FindPlace(Gear, false, 0, LAND_WIDTH);
 			end;
 	end;