136                                                                @doStepSwitcher,

   136                                                                @doStepSwitcher,

   137                                                                @doStepCase,

   137                                                                @doStepCase,

   138                                                                @doStepMortar,

   138                                                                @doStepMortar,

   139                                                                @doStepWhip,

   139                                                                @doStepWhip,

   140                                                                @doStepKamikaze,

   140                                                                @doStepKamikaze,

   142                                                                );

   142                                                                );

   143 

   143 

   144 procedure InsertGearToList(Gear: PGear);

   144 procedure InsertGearToList(Gear: PGear);

   145 var tmp, ptmp: PGear;

   145 var tmp, ptmp: PGear;

   146 begin

   146 begin

   310                 end;

   310                 end;

   311         gtWhip: Result^.Radius:= 20;

   311         gtWhip: Result^.Radius:= 20;

   312     gtKamikaze: begin

   312     gtKamikaze: begin

   313                 Result^.Health:= 2048;

   313                 Result^.Health:= 2048;

   314                 Result^.Radius:= 20

   314                 Result^.Radius:= 20

   315                 end;

   320                 end;

   316      end;

   321      end;

   317 InsertGearToList(Result);

   322 InsertGearToList(Result);

   318 AddGear:= Result

   323 AddGear:= Result

   319 end;

   324 end;

  1027                     DrawRotatedF(sprTeleport, hwRound(HHGear^.X) + 1 + WorldDx, hwRound(HHGear^.Y) - 3 + WorldDy, 11 - Gear^.Pos, hwSign(HHGear^.dX), 0);

  1032                     DrawRotatedF(sprTeleport, hwRound(HHGear^.X) + 1 + WorldDx, hwRound(HHGear^.Y) - 3 + WorldDy, 11 - Gear^.Pos, hwSign(HHGear^.dX), 0);

  1028                     end;

  1033                     end;

  1029         gtSwitcher: DrawSprite(sprSwitch, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 56 + WorldDy, (GameTicks shr 6) mod 12);

  1034         gtSwitcher: DrawSprite(sprSwitch, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 56 + WorldDy, (GameTicks shr 6) mod 12);

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

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

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

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

  1032               end;

  1038               end;

  1033       Gear:= Gear^.NextGear

  1039       Gear:= Gear^.NextGear

  1034       end;

  1040       end;

  1035 end;

  1041 end;

  1036 

  1042