337 vgtSteam: DrawSprite(sprSmokeWhite, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame); |
337 vgtSteam: DrawSprite(sprSmokeWhite, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame); |
338 vgtAmmo: begin |
338 vgtAmmo: begin |
339 tinted:= true; |
339 tinted:= true; |
340 Tint($FF, $FF, $FF, round(Gear^.alpha * $FF)); |
340 Tint($FF, $FF, $FF, round(Gear^.alpha * $FF)); |
341 DrawTextureF(ropeIconTex, Gear^.scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, 0, 1, 32, 32); |
341 DrawTextureF(ropeIconTex, Gear^.scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, 0, 1, 32, 32); |
342 DrawTextureF(SpritesData[sprAMAmmos].Texture, Gear^.scale * 0.90, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame - 1, 1, 32, 32); |
342 if Gear^.Frame <> ord(amNothing) then |
|
343 DrawTextureF(SpritesData[sprAMAmmos].Texture, Gear^.scale * 0.90, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame - 1, 1, 32, 32); |
343 end; |
344 end; |
344 vgtShell: begin |
345 vgtShell: begin |
345 if Gear^.FrameTicks < $FF then |
346 if Gear^.FrameTicks < $FF then |
346 begin |
347 begin |
347 Tint($FF, $FF, $FF, Gear^.FrameTicks); |
348 Tint($FF, $FF, $FF, Gear^.FrameTicks); |