1708 var CakePoints: array[0..Pred(cakeh)] of record x, y: hwFloat; end;

  1708 var CakePoints: array[0..Pred(cakeh)] of record x, y: hwFloat; end;

  1709 	CakeI: Longword;

  1709 	CakeI: Longword;

  1710 

  1710 

  1711 procedure doStepCakeExpl(Gear: PGear);

  1711 procedure doStepCakeExpl(Gear: PGear);

  1712 begin

  1712 begin

  1713 inc(Gear^.Tag);

  1715 inc(Gear^.Tag);

  1714 if Gear^.Tag < 2250 then exit;

  1716 if Gear^.Tag < 2250 then exit;

  1715 

  1717 

  1716 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), cakeDmg, EXPLAutoSound);

  1718 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), cakeDmg, EXPLAutoSound);

  1717 AfterAttack;

  1719 AfterAttack;

  1762 	begin

  1764 	begin

  1763 	Gear^.Angle:= (LongInt(Gear^.Angle) + 4 + dA) mod 4

  1765 	Gear^.Angle:= (LongInt(Gear^.Angle) + 4 + dA) mod 4

  1764 	end;

  1766 	end;

  1765 	

  1767 	

  1766 begin

  1768 begin

  1767 inc(Gear^.Tag);

  1771 inc(Gear^.Tag);

  1768 if Gear^.Tag < 7 then exit;

  1772 if Gear^.Tag < 7 then exit;

  1769 

  1773 

  1770 dA:= hwSign(Gear^.dX);

  1774 dA:= hwSign(Gear^.dX);

  1771 xx:= dirs[Gear^.Angle].x;

  1775 xx:= dirs[Gear^.Angle].x;