138 			@doStepMortar,

   138 			@doStepMortar,

   139 			@doStepWhip,

   139 			@doStepWhip,

   140 			@doStepKamikaze,

   140 			@doStepKamikaze,

   141 			@doStepCake,

   141 			@doStepCake,

   142 			@doStepSeduction,

   142 			@doStepSeduction,

   144 			);

   145 			);

   145 

   146 

   146 procedure InsertGearToList(Gear: PGear);

   147 procedure InsertGearToList(Gear: PGear);

   147 var tmp, ptmp: PGear;

   148 var tmp, ptmp: PGear;

   148 begin

   149 begin

  1082           gtTarget: DrawSprite(sprTarget, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 16 + WorldDy, 0);

  1083           gtTarget: DrawSprite(sprTarget, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 16 + WorldDy, 0);

  1083           gtMortar: DrawRotated(sprMortar, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, DxDy2Angle(Gear^.dY, Gear^.dX));

  1084           gtMortar: DrawRotated(sprMortar, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, DxDy2Angle(Gear^.dY, Gear^.dX));

  1084           gtCake: if Gear^.Pos = 6 then

  1085           gtCake: if Gear^.Pos = 6 then

  1085                      DrawRotatedf(sprCakeWalk, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, (GameTicks div 40) mod 6, hwSign(Gear^.dX), Gear^.DirAngle + hwSign(Gear^.dX) * 90)

  1086                      DrawRotatedf(sprCakeWalk, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, (GameTicks div 40) mod 6, hwSign(Gear^.dX), Gear^.DirAngle + hwSign(Gear^.dX) * 90)

  1086                   else

  1087                   else

  1088               end;

  1091               end;

  1089       Gear:= Gear^.NextGear

  1092       Gear:= Gear^.NextGear

  1090       end;

  1093       end;

  1091 end;

  1094 end;

  1092 

  1095