1935     DeleteGear(Gear)

  1935     DeleteGear(Gear)

  1936     end

  1936     end

  1937 else begin

  1937 else begin

  1938     PlaySound(sndPlaced);

  1938     PlaySound(sndPlaced);

  1939     DeleteGear(Gear);

  1939     DeleteGear(Gear);

  1943     AfterAttack;

  1940     AfterAttack;

  1944     end;

  1941     end;

  1945 

  1942 

  1946 HHGear^.State:= HHGear^.State and not (gstAttacking or gstAttacked);

  1943 HHGear^.State:= HHGear^.State and not (gstAttacking or gstAttacked);

  1947 HHGear^.Message:= HHGear^.Message and not gm_Attack;

  1944 HHGear^.Message:= HHGear^.Message and not gm_Attack;