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 |
803 gtPoisonCloud: begin |
804 Tint($00, $FF, $40, $80); |
804 if Gear^.Timer < 1020 then |
805 if Gear^.Timer < 1000 then |
805 Tint($C0, $C0, $00, Gear^.Timer div 8) |
806 i:= Gear^.Timer |
806 else if Gear^.Timer > 3980 then |
807 else if Gear^.Timer > 4000 then |
807 Tint($C0, $C0, $00, (5000 - Gear^.Timer) div 8) |
808 i:= 5000 - Gear^.Timer |
|
809 else |
808 else |
810 i:= 1000; |
809 Tint($C0, $C0, $00, $C0); |
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); |
810 DrawRotatedTextureF(SpritesData[sprSmokeWhite].texture, 3, 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) |
811 Tint($FF, $FF, $FF, $FF) |
813 end; |
812 end; |
814 end; |
813 end; |
815 if Gear^.RenderTimer and (Gear^.Tex <> nil) then DrawCentered(hwRound(Gear^.X) + 8 + WorldDx, hwRound(Gear^.Y) + 8 + WorldDy, Gear^.Tex); |
814 if Gear^.RenderTimer and (Gear^.Tex <> nil) then DrawCentered(hwRound(Gear^.X) + 8 + WorldDx, hwRound(Gear^.Y) + 8 + WorldDy, Gear^.Tex); |
816 Gear:= Gear^.NextGear |
815 Gear:= Gear^.NextGear |