390 else |
390 else |
391 if SuddenDeathDmg then |
391 if SuddenDeathDmg then |
392 DrawRotatedF(sprSDFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle) |
392 DrawRotatedF(sprSDFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle) |
393 else |
393 else |
394 DrawRotatedF(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle); |
394 DrawRotatedF(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle); |
395 vgtCloud: DrawSprite(sprCloud, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame); |
395 vgtCloud: if SuddenDeathDmg then |
|
396 DrawSprite(sprSDCloud, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame) |
|
397 else |
|
398 DrawSprite(sprCloud, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame); |
396 end; |
399 end; |
397 if Gear^.Tint <> $FFFFFFFF then Tint($FF,$FF,$FF,$FF); |
400 if Gear^.Tint <> $FFFFFFFF then Tint($FF,$FF,$FF,$FF); |
398 Gear:= Gear^.NextGear |
401 Gear:= Gear^.NextGear |
399 end; |
402 end; |
400 1: while Gear <> nil do |
403 1: while Gear <> nil do |