Mercurial Mercurial > sheepy-clone / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
sheepy-clone