355 end; |
355 end; |
356 case Gear^.Kind of |
356 case Gear^.Kind of |
357 vgtFlake: begin |
357 vgtFlake: begin |
358 spriteData:= GetSpriteData(sprFlake, sprSDFlake); |
358 spriteData:= GetSpriteData(sprFlake, sprSDFlake); |
359 if vobSDVelocity = 0 then |
359 if vobSDVelocity = 0 then |
360 DrawTextureF(spriteData^.Texture, Gear^.Scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, SpritesData[sprFlake].Width, SpritesData[sprFlake].Height) |
360 DrawTextureF(spriteData^.Texture, Gear^.Scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, spriteData^.Width, spriteData^.Height) |
361 else |
361 else |
362 DrawTextureRotatedF(spriteData^.Texture, Gear^.Scale, 0, 0, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, SpritesData[sprFlake].Width, SpritesData[sprFlake].Height, Gear^.Angle); |
362 DrawTextureRotatedF(spriteData^.Texture, Gear^.Scale, 0, 0, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, spriteData^.Width, spriteData^.Height, Gear^.Angle); |
363 end; |
363 end; |
364 vgtCircle: if gear^.Angle = 1 then |
364 vgtCircle: if gear^.Angle = 1 then |
365 begin |
365 begin |
366 tmp:= Gear^.State / 100; |
366 tmp:= Gear^.State / 100; |
367 DrawTexture(round(Gear^.X-24*tmp) + WorldDx, round(Gear^.Y-24*tmp) + WorldDy, SpritesData[sprVampiric].Texture, tmp) |
367 DrawTexture(round(Gear^.X-24*tmp) + WorldDx, round(Gear^.Y-24*tmp) + WorldDy, SpritesData[sprVampiric].Texture, tmp) |
387 DrawTextureF(spriteData^.Texture, Gear^.Scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, spriteData^.Width, spriteData^.Height); |
387 DrawTextureF(spriteData^.Texture, Gear^.Scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, spriteData^.Width, spriteData^.Height); |
388 end; |
388 end; |
389 vgtFlake: begin |
389 vgtFlake: begin |
390 spriteData:= GetSpriteData(sprFlake, sprSDFlake); |
390 spriteData:= GetSpriteData(sprFlake, sprSDFlake); |
391 if vobSDVelocity = 0 then |
391 if vobSDVelocity = 0 then |
392 DrawTextureF(spriteData^.Texture, Gear^.Scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, SpritesData[sprFlake].Width, SpritesData[sprFlake].Height) |
392 DrawTextureF(spriteData^.Texture, Gear^.Scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, spriteData^.Width, spriteData^.Height) |
393 else |
393 else |
394 DrawTextureRotatedF(spriteData^.Texture, Gear^.Scale, 0, 0, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, SpritesData[sprFlake].Width, SpritesData[sprFlake].Height, Gear^.Angle); |
394 DrawTextureRotatedF(spriteData^.Texture, Gear^.Scale, 0, 0, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, spriteData^.Width, spriteData^.Height, Gear^.Angle); |
395 end; |
395 end; |
396 end; |
396 end; |
397 if (Gear^.Tint <> $FFFFFFFF) then |
397 if (Gear^.Tint <> $FFFFFFFF) then |
398 untint; |
398 untint; |
399 Gear:= Gear^.NextGear |
399 Gear:= Gear^.NextGear |