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 1555 0a62938e695a
parent 1528 3fee15104c1d
child 1560 e140bc57ff68
equal deleted inserted replaced
1554:5657cd89668d 1555:0a62938e695a 
   295       gtShover: Result^.Radius:= 20;
 
   295       gtShover: Result^.Radius:= 20;
 
   296        gtFlame: begin
 
   296        gtFlame: begin
 
   297                 Result^.Tag:= Counter mod 64;
 
   297                 Result^.Tag:= Counter mod 64;
 
   298                 Result^.Radius:= 1;
 
   298                 Result^.Radius:= 1;
 
   299                 Result^.Health:= 2;
 
   299                 Result^.Health:= 2;
 
   300                 Result^.dY:= (getrandom - _0_8) * _0_03;
 
   300                 if (Result^.dY.QWordValue = 0) and (Result^.dX.QWordValue = 0) then
 
   301                 Result^.dX:= (getrandom - _0_5) * _0_4
 
   301                 	begin
 
       
   302                 	Result^.dY:= (getrandom - _0_8) * _0_03;
 
       
   303                 	Result^.dX:= (getrandom - _0_5) * _0_4
 
       
   304                 	end
 
   302                 end;
 
   305                 end;
 
   303    gtFirePunch: begin
 
   306    gtFirePunch: begin
 
   304                 Result^.Radius:= 15;
 
   307                 Result^.Radius:= 15;
 
   305                 Result^.Tag:= Y
 
   308                 Result^.Tag:= Y
 
   306                 end;
 
   309                 end;
 
  1073                                         end;
 
  1076                                         end;
 
  1074                          end;
 
  1077                          end;
 
  1075         gtDynamite: DrawSprite2(sprDynamite, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 25 + WorldDy, Gear^.Tag and 1, Gear^.Tag shr 1);
 
  1078         gtDynamite: DrawSprite2(sprDynamite, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 25 + WorldDy, Gear^.Tag and 1, Gear^.Tag shr 1);
 
  1076      gtClusterBomb: DrawRotated(sprClusterBomb, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, Gear^.DirAngle);
 
  1079      gtClusterBomb: DrawRotated(sprClusterBomb, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, Gear^.DirAngle);
 
  1077          gtCluster: DrawSprite(sprClusterParticle, hwRound(Gear^.X) - 8 + WorldDx, hwRound(Gear^.Y) - 8 + WorldDy, 0);
 
  1080          gtCluster: DrawSprite(sprClusterParticle, hwRound(Gear^.X) - 8 + WorldDx, hwRound(Gear^.Y) - 8 + WorldDy, 0);
 
  1078            gtFlame: DrawSprite(sprFlame, hwRound(Gear^.X) - 8 + WorldDx, hwRound(Gear^.Y) - 8 + WorldDy,(GameTicks div 128 + Gear^.Angle) mod 8);
 
  1081            gtFlame: DrawSprite(sprFlame, hwRound(Gear^.X) - 8 + WorldDx, hwRound(Gear^.Y) - 8 + WorldDy,(GameTicks div 128 + Gear^.Tag) mod 8);
 
  1079        gtParachute: DrawSprite(sprParachute, hwRound(Gear^.X) - 24 + WorldDx, hwRound(Gear^.Y) - 48 + WorldDy, 0);
 
  1082        gtParachute: DrawSprite(sprParachute, hwRound(Gear^.X) - 24 + WorldDx, hwRound(Gear^.Y) - 48 + WorldDy, 0);
 
  1080        gtAirAttack: if Gear^.Tag > 0 then DrawSprite(sprAirplane, hwRound(Gear^.X) - 60 + WorldDx, hwRound(Gear^.Y) - 25 + WorldDy, 0)
 
  1083        gtAirAttack: if Gear^.Tag > 0 then DrawSprite(sprAirplane, hwRound(Gear^.X) - 60 + WorldDx, hwRound(Gear^.Y) - 25 + WorldDy, 0)
 
  1081                                      else DrawSprite(sprAirplane, hwRound(Gear^.X) - 60 + WorldDx, hwRound(Gear^.Y) - 25 + WorldDy, 1);
 
  1084                                      else DrawSprite(sprAirplane, hwRound(Gear^.X) - 60 + WorldDx, hwRound(Gear^.Y) - 25 + WorldDy, 1);
 
  1082          gtAirBomb: DrawRotated(sprAirBomb, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
 
  1085          gtAirBomb: DrawRotated(sprAirBomb, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
 
  1083         gtTeleport: begin
 
  1086         gtTeleport: begin
hedgewars