1069 DrawRotatedTextureF(SpritesData[sprSnowDust].Texture, 1, 0, 0, x, y, 0, 1, 8, 8, Gear^.DirAngle); |
1069 DrawRotatedTextureF(SpritesData[sprSnowDust].Texture, 1, 0, 0, x, y, 0, 1, 8, 8, Gear^.DirAngle); |
1070 //DrawRotated(sprSnowDust, x, y, 0, Gear^.DirAngle); |
1070 //DrawRotated(sprSnowDust, x, y, 0, Gear^.DirAngle); |
1071 //DrawTexture(x, y, SpritesData[sprVampiric].Texture, 0.1); |
1071 //DrawTexture(x, y, SpritesData[sprVampiric].Texture, 0.1); |
1072 Tint($FF, $FF, $FF, $FF); |
1072 Tint($FF, $FF, $FF, $FF); |
1073 end |
1073 end |
1074 else if not isInLag then |
1074 else //if not isInLag then |
1075 begin |
1075 begin |
|
1076 if isInLag and (Gear^.FlightTime < 256) then inc(Gear^.FlightTime, 8) |
|
1077 else if not isInLag and (Gear^.FlightTime > 0) then dec(Gear^.FlightTime, 8); |
|
1078 if Gear^.FlightTime > 0 then Tint($FF, $FF, $FF, $FF-min(255,Gear^.FlightTime)); |
1076 if vobVelocity = 0 then |
1079 if vobVelocity = 0 then |
1077 DrawSprite(sprFlake, x, y, Gear^.Timer) |
1080 DrawSprite(sprFlake, x, y, Gear^.Timer) |
1078 else |
1081 else |
1079 DrawRotatedF(sprFlake, x, y, Gear^.Timer, 1, Gear^.DirAngle) |
1082 DrawRotatedF(sprFlake, x, y, Gear^.Timer, 1, Gear^.DirAngle); |
1080 //DrawSprite(sprFlake, x-SpritesData[sprFlake].Width div 2, y-SpritesData[sprFlake].Height div 2, Gear^.Timer) |
1083 //DrawSprite(sprFlake, x-SpritesData[sprFlake].Width div 2, y-SpritesData[sprFlake].Height div 2, Gear^.Timer) |
1081 //DrawRotatedF(sprFlake, x-SpritesData[sprFlake].Width div 2, y-SpritesData[sprFlake].Height div 2, Gear^.Timer, 1, Gear^.DirAngle); |
1084 //DrawRotatedF(sprFlake, x-SpritesData[sprFlake].Width div 2, y-SpritesData[sprFlake].Height div 2, Gear^.Timer, 1, Gear^.DirAngle); |
|
1085 if Gear^.FlightTime > 0 then Tint($FF, $FF, $FF, $FF); |
1082 end; |
1086 end; |
1083 gtStructure: DrawSprite(sprTarget, x - 16, y - 16, 0); |
1087 gtStructure: DrawSprite(sprTarget, x - 16, y - 16, 0); |
1084 gtTardis: if Gear^.Pos <> 4 then |
1088 gtTardis: if Gear^.Pos <> 4 then |
1085 begin |
1089 begin |
1086 if Gear^.Pos = 2 then Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF) |
1090 if Gear^.Pos = 2 then Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF) |