798 DrawRotatedTextureF(SpritesData[sprPiano].Texture, 1, 0, 0, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy - hwRound(Gear^.dY * 4 * i), 0, 1, 128, 128, 0); |
798 DrawRotatedTextureF(SpritesData[sprPiano].Texture, 1, 0, 0, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy - hwRound(Gear^.dY * 4 * i), 0, 1, 128, 128, 0); |
799 Tint($FF, $FF, $FF, $FF) |
799 Tint($FF, $FF, $FF, $FF) |
800 end; |
800 end; |
801 DrawRotatedTextureF(SpritesData[sprPiano].Texture, 1, 0, 0, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, 1, 128, 128, 0); |
801 DrawRotatedTextureF(SpritesData[sprPiano].Texture, 1, 0, 0, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, 1, 128, 128, 0); |
802 end; |
802 end; |
|
803 gtPoisonCloud: begin |
|
804 Tint($00, $FF, $40, $80); |
|
805 if Gear^.Timer < 1000 then |
|
806 i:= Gear^.Timer |
|
807 else if Gear^.Timer > 4000 then |
|
808 i:= 5000 - Gear^.Timer |
|
809 else |
|
810 i:= 1000; |
|
811 DrawRotatedTextureF(SpritesData[sprSmokeWhite].texture, i / 250, 0, 0, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, 1, 22, 22, (RealTicks shr 36 + Gear^.UID * 100) mod 360); |
|
812 Tint($FF, $FF, $FF, $FF) |
|
813 end; |
803 end; |
814 end; |
804 if Gear^.RenderTimer and (Gear^.Tex <> nil) then DrawCentered(hwRound(Gear^.X) + 8 + WorldDx, hwRound(Gear^.Y) + 8 + WorldDy, Gear^.Tex); |
815 if Gear^.RenderTimer and (Gear^.Tex <> nil) then DrawCentered(hwRound(Gear^.X) + 8 + WorldDx, hwRound(Gear^.Y) + 8 + WorldDy, Gear^.Tex); |
805 Gear:= Gear^.NextGear |
816 Gear:= Gear^.NextGear |
806 end; |
817 end; |
807 end; |
818 end; |