| changeset 10876 | d012728b89b9 |
| parent 10675 | cc3dea58794d |
| child 11046 | 47a8c19ecb60 |
| 10875:67b92a09cded | 10876:d012728b89b9 |
|---|---|
286 i:= -1 |
286 i:= -1 |
287 else |
287 else |
288 i:= 1; |
288 i:= 1; |
289 DrawTextureRotatedF(SpritesData[TSprite(Gear^.State)].Texture, Gear^.Scale, 0, 0, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, i, SpritesData[TSprite(Gear^.State)].Width, SpritesData[TSprite(Gear^.State)].Height, Gear^.Angle); |
289 DrawTextureRotatedF(SpritesData[TSprite(Gear^.State)].Texture, Gear^.Scale, 0, 0, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, i, SpritesData[TSprite(Gear^.State)].Width, SpritesData[TSprite(Gear^.State)].Height, Gear^.Angle); |
290 end; |
290 end; |
291 vgtFeather: begin |
|
292 if Gear^.FrameTicks < 255 then |
|
293 begin |
|
294 Tint($FF, $FF, $FF, Gear^.FrameTicks); |
|
295 tinted:= true |
|
296 end; |
|
297 DrawSpriteRotatedF(sprFeather, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle); |
|
298 end; |
|
291 end; |
299 end; |
292 if (cReducedQuality and rqAntiBoom) = 0 then |
300 if (cReducedQuality and rqAntiBoom) = 0 then |
293 case Gear^.Kind of |
301 case Gear^.Kind of |
294 vgtChunk: DrawSpriteRotatedF(sprChunk, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle); |
302 vgtChunk: DrawSpriteRotatedF(sprChunk, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle); |
295 end; |
303 end; |
330 begin |
338 begin |
331 Tint($FF, $FF, $FF, Gear^.FrameTicks); |
339 Tint($FF, $FF, $FF, Gear^.FrameTicks); |
332 tinted:= true |
340 tinted:= true |
333 end; |
341 end; |
334 DrawSpriteRotatedF(sprShell, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle); |
342 DrawSpriteRotatedF(sprShell, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle); |
335 end; |
|
336 vgtFeather: begin |
|
337 if Gear^.FrameTicks < 255 then |
|
338 begin |
|
339 Tint($FF, $FF, $FF, Gear^.FrameTicks); |
|
340 tinted:= true |
|
341 end; |
|
342 DrawSpriteRotatedF(sprFeather, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle); |
|
343 end; |
343 end; |
344 vgtEgg: DrawSpriteRotatedF(sprEgg, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle); |
344 vgtEgg: DrawSpriteRotatedF(sprEgg, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle); |
345 vgtBeeTrace: begin |
345 vgtBeeTrace: begin |
346 if Gear^.FrameTicks < $FF then |
346 if Gear^.FrameTicks < $FF then |
347 Tint($FF, $FF, $FF, Gear^.FrameTicks div 2) |
347 Tint($FF, $FF, $FF, Gear^.FrameTicks div 2) |