2073 or (t^.Count <> 0)

  2073 or (t^.Count <> 0)

  2074 or (not TestCollisionYWithGear(Gear, hwSign(Gear^.dY))

  2074 or (not TestCollisionYWithGear(Gear, hwSign(Gear^.dY))

  2075 and not TestCollisionXWithGear(Gear, hwSign(Gear^.dX)))

  2075 and not TestCollisionXWithGear(Gear, hwSign(Gear^.dX)))

  2076 or (Land[hwRound(Gear^.Y), hwRound(Gear^.X)] = COLOR_INDESTRUCTIBLE) then

  2076 or (Land[hwRound(Gear^.Y), hwRound(Gear^.X)] = COLOR_INDESTRUCTIBLE) then

  2077 	begin //out of time or exited ground

  2077 	begin //out of time or exited ground

  2078 	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);

  2079 	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);

  2079 	DeleteGear(Gear);

  2080 	DeleteGear(Gear);

  2080 	exit

  2081 	exit

  2081 	end;

  2082 	end;

  2082 

  2083 

  2112 		doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);

  2113 		doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);

  2113 		DeleteGear(Gear);

  2114 		DeleteGear(Gear);

  2114 		exit;

  2115 		exit;

  2115 		end;

  2116 		end;

  2116 

  2117 

  2117 	Gear^.doStep:= @doStepDrillDrilling;

  2119 	Gear^.doStep:= @doStepDrillDrilling;

  2118 	dec(Gear^.Timer)

  2120 	dec(Gear^.Timer)

  2119 	end

  2121 	end

  2120 end;

  2122 end;

  2121 

  2123