2484             PrevAngle

  2484             PrevAngle

  2485     else

  2485     else

  2486     begin

  2486     begin

  2487         Gear^.Tag := 0;

  2487         Gear^.Tag := 0;

  2488         Gear^.X := Gear^.X + int2hwFloat(xx);

  2488         Gear^.X := Gear^.X + int2hwFloat(xx);

  2490         begin

  2490         begin

  2491             Gear^.Y := Gear^.Y + int2hwFloat(yyn);

  2491             Gear^.Y := Gear^.Y + int2hwFloat(yyn);

  2492             NextAngle

  2492             NextAngle

  2493         end;

  2493         end;

  2494     end;

  2494     end;

  2559     AllInactive := false;

  2559     AllInactive := false;

  2560 

  2560 

  2561     HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;

  2561     HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;

  2562     HHGear^.Message := HHGear^.Message and (not gm_Attack);

  2562     HHGear^.Message := HHGear^.Message and (not gm_Attack);

  2563     DeleteCI(HHGear);

  2563     DeleteCI(HHGear);

  2564 

  2565 

  2565     FollowGear := Gear;

  2566     FollowGear := Gear;

  2566 

  2567 

  2567     Gear^.doStep := @doStepCakeFall

  2568     Gear^.doStep := @doStepCakeFall

  2568 end;

  2569 end;