381 0: while Gear <> nil do |
381 0: while Gear <> nil do |
382 begin |
382 begin |
383 if Gear^.Tint <> $FFFFFFFF then Tint(Gear^.Tint); |
383 if Gear^.Tint <> $FFFFFFFF then Tint(Gear^.Tint); |
384 case Gear^.Kind of |
384 case Gear^.Kind of |
385 vgtFlake: if vobVelocity = 0 then |
385 vgtFlake: if vobVelocity = 0 then |
386 DrawSprite(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame) |
386 if SuddenDeathDmg then |
|
387 DrawSprite(sprSDFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame) |
|
388 else |
|
389 DrawSprite(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame) |
387 else |
390 else |
388 DrawRotatedF(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle); |
391 if SuddenDeathDmg then |
|
392 DrawRotatedF(sprSDFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle) |
|
393 else |
|
394 DrawRotatedF(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle); |
389 vgtCloud: DrawSprite(sprCloud, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame); |
395 vgtCloud: DrawSprite(sprCloud, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame); |
390 end; |
396 end; |
391 if Gear^.Tint <> $FFFFFFFF then Tint($FF,$FF,$FF,$FF); |
397 if Gear^.Tint <> $FFFFFFFF then Tint($FF,$FF,$FF,$FF); |
392 Gear:= Gear^.NextGear |
398 Gear:= Gear^.NextGear |
393 end; |
399 end; |