1517 		if (dmg > 1) and (gi^.Kind = gtHedgehog) then

  1517 		if (dmg > 1) and (gi^.Kind = gtHedgehog) then

  1518 			gi^.State:= gi^.State or gstWinner;

  1518 			gi^.State:= gi^.State or gstWinner;

  1519 		gi:= gi^.NextGear

  1519 		gi:= gi^.NextGear

  1520 		end;

  1520 		end;

  1521 	Gear^.doStep:= @doStepCakeExpl;

  1521 	Gear^.doStep:= @doStepCakeExpl;

  1522 	end else dec(Gear^.Pos)

  1523 	end else dec(Gear^.Pos)

  1523 end;

  1524 end;

  1524 

  1525 

  1525 

  1526 

  1526 procedure doStepCakeWork(Gear: PGear);

  1527 procedure doStepCakeWork(Gear: PGear);