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/uVisualGears.pas
changeset 7597 1ef520fea21c
parent 7543 a0dc770538e1
child 7615 b39beffcf05e
equal deleted inserted replaced
7596:2c12b8cbd002 7597:1ef520fea21c 
   282                 end;
 
   282                 end;
 
   283   vgtDust:
 
   283   vgtDust:
 
   284                 begin
 
   284                 begin
 
   285                 dx:= 0.005 * (random(15) + 10);
 
   285                 dx:= 0.005 * (random(15) + 10);
 
   286                 dy:= 0.001 * (random(40) + 20);
 
   286                 dy:= 0.001 * (random(40) + 20);
 
   287                 if random(2) = 0 then
 
   287                 if random(2) = 0 then dx := -dx;
 
   288                     dx := -dx;
 
   288                 if random(2) = 0 then Tag:= 1
 
       
   289                 else Tag:= -1;
 
   289                 Frame:= 7 - random(2);
 
   290                 Frame:= 7 - random(2);
 
   290                 FrameTicks:= random(20) + 15;
 
   291                 FrameTicks:= random(20) + 15;
 
   291                 end;
 
   292                 end;
 
   292   vgtSplash:
 
   293   vgtSplash:
 
   293                 begin
 
   294                 begin
 
   640           if (cReducedQuality and rqAntiBoom) = 0 then
 
   641           if (cReducedQuality and rqAntiBoom) = 0 then
 
   641               case Gear^.Kind of
 
   642               case Gear^.Kind of
 
   642                   vgtSmoke: DrawTextureF(SpritesData[sprSmoke].Texture, Gear^.scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, 7 - Gear^.Frame, 1, SpritesData[sprSmoke].Width, SpritesData[sprSmoke].Height);
 
   643                   vgtSmoke: DrawTextureF(SpritesData[sprSmoke].Texture, Gear^.scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, 7 - Gear^.Frame, 1, SpritesData[sprSmoke].Width, SpritesData[sprSmoke].Height);
 
   643                   vgtSmokeWhite: DrawSprite(sprSmokeWhite, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
 
   644                   vgtSmokeWhite: DrawSprite(sprSmokeWhite, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
 
   644                   vgtDust: if Gear^.State = 1 then
 
   645                   vgtDust: if Gear^.State = 1 then
 
   645                                DrawSpriteRotatedF(sprSnowDust, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame, 1, Gear^.Angle)
 
   646                                DrawSpriteRotatedF(sprSnowDust, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame, Gear^.Tag, Gear^.Angle)
 
   646                            else
 
   647                            else
 
   647                                DrawSprite(sprDust, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
 
   648                                DrawSpriteRotatedF(sprDust, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame, Gear^.Tag, Gear^.Angle);
 
   648                   vgtFire: if (Gear^.State and gstTmpFlag) = 0 then
 
   649                   vgtFire: if (Gear^.State and gstTmpFlag) = 0 then
 
   649                                DrawSprite(sprFlame, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy, (RealTicks shr 6 + Gear^.Frame) mod 8)
 
   650                                DrawSprite(sprFlame, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy, (RealTicks shr 6 + Gear^.Frame) mod 8)
 
   650                            else
 
   651                            else
 
   651                                DrawTextureF(SpritesData[sprFlame].Texture, Gear^.FrameTicks / 900, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, (RealTicks shr 7 + Gear^.Frame) mod 8, 1, 16, 16);
 
   652                                DrawTextureF(SpritesData[sprFlame].Texture, Gear^.FrameTicks / 900, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, (RealTicks shr 7 + Gear^.Frame) mod 8, 1, 16, 16);
 
   652                   vgtSplash: if SuddenDeathDmg then
 
   653                   vgtSplash: if SuddenDeathDmg then
hedgewars