1409 	if TestCollisionXwithGear(HHGear, hwSign(Gear^.dX))

  1409 	if TestCollisionXwithGear(HHGear, hwSign(Gear^.dX))

  1410 		or TestCollisionYwithGear(HHGear, hwSign(Gear^.dY)) then inc(Gear^.Damage, 3);

  1410 		or TestCollisionYwithGear(HHGear, hwSign(Gear^.dY)) then inc(Gear^.Damage, 3);

  1411 

  1411 

  1412 	dec(i)

  1412 	dec(i)

  1413 until (i = 0) or (Gear^.Damage > Gear^.Health);

  1413 until (i = 0) or (Gear^.Damage > Gear^.Health);

  1415 

  1414 

  1416 inc(upd);

  1415 inc(upd);

  1417 if upd > 3 then

  1416 if upd > 3 then

  1418 	begin

  1417 	begin

  1419 	if Gear^.Health < 1500 then Gear^.Pos:= 2;

  1418 	if Gear^.Health < 1500 then Gear^.Pos:= 2;