hedgewars/uGears.pas
changeset 534 92fb2b0d5117
parent 531 1f6c6eb0ea02
child 538 74219eadab5e
equal deleted inserted replaced
533:eebb7684ac22 534:92fb2b0d5117
   127                                                                @doStepAirAttack,
   127                                                                @doStepAirAttack,
   128                                                                @doStepAirBomb,
   128                                                                @doStepAirBomb,
   129                                                                @doStepBlowTorch,
   129                                                                @doStepBlowTorch,
   130                                                                @doStepGirder,
   130                                                                @doStepGirder,
   131                                                                @doStepTeleport,
   131                                                                @doStepTeleport,
   132                                                                @doStepHealthTag
   132                                                                @doStepHealthTag,
       
   133                                                                @doStepSwitcher
   133                                                                );
   134                                                                );
   134 
   135 
   135 procedure InsertGearToList(Gear: PGear);
   136 procedure InsertGearToList(Gear: PGear);
   136 var tmp: PGear;
   137 var tmp: PGear;
   137 begin
   138 begin
   588      gtClusterBomb: DrawSprite(sprClusterBomb, hwRound(Gear^.X) - 8 + WorldDx, hwRound(Gear^.Y) - 8 + WorldDy, hwRound(Gear^.DirAngle), Surface);
   589      gtClusterBomb: DrawSprite(sprClusterBomb, hwRound(Gear^.X) - 8 + WorldDx, hwRound(Gear^.Y) - 8 + WorldDy, hwRound(Gear^.DirAngle), Surface);
   589          gtCluster: DrawSprite(sprClusterParticle, hwRound(Gear^.X) - 8 + WorldDx, hwRound(Gear^.Y) - 8 + WorldDy, 0, Surface);
   590          gtCluster: DrawSprite(sprClusterParticle, hwRound(Gear^.X) - 8 + WorldDx, hwRound(Gear^.Y) - 8 + WorldDy, 0, Surface);
   590            gtFlame: DrawSprite(sprFlame, hwRound(Gear^.X) - 8 + WorldDx, hwRound(Gear^.Y) - 8 + WorldDy,(GameTicks div 128 + Gear^.Angle) mod 8, Surface);
   591            gtFlame: DrawSprite(sprFlame, hwRound(Gear^.X) - 8 + WorldDx, hwRound(Gear^.Y) - 8 + WorldDy,(GameTicks div 128 + Gear^.Angle) mod 8, Surface);
   591          gtAirBomb: DrawSprite(sprAirBomb , hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 16 + WorldDy, DxDy2Angle32(Gear^.dY, Gear^.dX), Surface);
   592          gtAirBomb: DrawSprite(sprAirBomb , hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 16 + WorldDy, DxDy2Angle32(Gear^.dY, Gear^.dX), Surface);
   592        gtAirAttack: if Gear^.Tag > 0 then DrawSprite(sprAirplane, hwRound(Gear^.X) - 60 + WorldDx, hwRound(Gear^.Y) - 25 + WorldDy, 0, Surface)
   593        gtAirAttack: if Gear^.Tag > 0 then DrawSprite(sprAirplane, hwRound(Gear^.X) - 60 + WorldDx, hwRound(Gear^.Y) - 25 + WorldDy, 0, Surface)
   593                                      else DrawSprite(sprAirplane, hwRound(Gear^.X) - 60 + WorldDx, hwRound(Gear^.Y) - 25 + WorldDy, 1, Surface)
   594                                      else DrawSprite(sprAirplane, hwRound(Gear^.X) - 60 + WorldDx, hwRound(Gear^.Y) - 25 + WorldDy, 1, Surface);
       
   595         gtSwitcher: DrawSprite(sprSwitch, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 56 + WorldDy, 0, Surface);
   594               end;
   596               end;
   595       Gear:= Gear^.NextGear
   597       Gear:= Gear^.NextGear
   596       end;
   598       end;
   597 end;
   599 end;
   598 
   600