Mercurial Mercurial > hedgewars / 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 2933 02af54eb7e1e
parent 2923 e33ecd95aa1a
child 2934 e0f2b0f97c2b
equal deleted inserted replaced
2932:9bc0cf3c7ac1 2933:02af54eb7e1e 
   326                 gear^.Radius:= 16;
 
   326                 gear^.Radius:= 16;
 
   327                 gear^.Elasticity:= _0_3
 
   327                 gear^.Elasticity:= _0_3
 
   328                 end;
 
   328                 end;
 
   329   gtExplosives: begin
 
   329   gtExplosives: begin
 
   330                 gear^.Radius:= 16;
 
   330                 gear^.Radius:= 16;
 
   331                 gear^.Elasticity:= _0_3;
 
   331                 gear^.Elasticity:= _0_4;
 
       
   332                 gear^.Friction:= _1;
 
   332                 gear^.Health:= cBarrelHealth
 
   333                 gear^.Health:= cBarrelHealth
 
   333                 end;
 
   334                 end;
 
   334   gtDEagleShot: begin
 
   335   gtDEagleShot: begin
 
   335                 gear^.Radius:= 1;
 
   336                 gear^.Radius:= 1;
 
   336                 gear^.Health:= 50
 
   337                 gear^.Health:= 50
 
  1583                                         end;
 
  1584                                         end;
 
  1584                          end;
 
  1585                          end;
 
  1585       gtExplosives: begin
 
  1586       gtExplosives: begin
 
  1586                     i:= (GameTicks shr 6) mod 64;
 
  1587                     i:= (GameTicks shr 6) mod 64;
 
  1587                     if i > 18 then i:= 0;
 
  1588                     if i > 18 then i:= 0;
 
  1588                     DrawSprite(sprExplosives, hwRound(Gear^.X) - 24 + WorldDx, hwRound(Gear^.Y) - 24 + WorldDy, i);
 
  1589                     if Gear^.State and gstAnimation = 0 then
 
       
  1590                         DrawSprite(sprExplosives, hwRound(Gear^.X) - 24 + WorldDx, hwRound(Gear^.Y) - 24 + WorldDy, i)
 
       
  1591                     else
 
       
  1592                         DrawRotatedF(sprExplosivesRoll, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) +4 + WorldDy, i, 0, Gear^.DirAngle);
 
  1589                     end;
 
  1593                     end;
 
  1590         gtDynamite: DrawSprite2(sprDynamite, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 25 + WorldDy, Gear^.Tag and 1, Gear^.Tag shr 1);
 
  1594         gtDynamite: DrawSprite2(sprDynamite, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 25 + WorldDy, Gear^.Tag and 1, Gear^.Tag shr 1);
 
  1591      gtClusterBomb: DrawRotated(sprClusterBomb, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, Gear^.DirAngle);
 
  1595      gtClusterBomb: DrawRotated(sprClusterBomb, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, Gear^.DirAngle);
 
  1592          gtCluster: DrawSprite(sprClusterParticle, hwRound(Gear^.X) - 8 + WorldDx, hwRound(Gear^.Y) - 8 + WorldDy, 0);
 
  1596          gtCluster: DrawSprite(sprClusterParticle, hwRound(Gear^.X) - 8 + WorldDx, hwRound(Gear^.Y) - 8 + WorldDy, 0);
 
  1593            gtFlame: DrawTextureF(SpritesData[sprFlame].Texture, 2 / (Gear^.Tag mod 3 + 2), hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, (GameTicks div 128 + LongWord(Gear^.Tag)) mod 8, 1, 16, 16);
 
  1597            gtFlame: DrawTextureF(SpritesData[sprFlame].Texture, 2 / (Gear^.Tag mod 3 + 2), hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, (GameTicks div 128 + LongWord(Gear^.Tag)) mod 8, 1, 16, 16);
hedgewars