1071 DrawRotatedTextureF(SpritesData[sprSnowDust].Texture, 1, 0, 0, x, y, 0, 1, 8, 8, Gear^.DirAngle); |
1071 DrawRotatedTextureF(SpritesData[sprSnowDust].Texture, 1, 0, 0, x, y, 0, 1, 8, 8, Gear^.DirAngle); |
1072 //DrawRotated(sprSnowDust, x, y, 0, Gear^.DirAngle); |
1072 //DrawRotated(sprSnowDust, x, y, 0, Gear^.DirAngle); |
1073 //DrawTexture(x, y, SpritesData[sprVampiric].Texture, 0.1); |
1073 //DrawTexture(x, y, SpritesData[sprVampiric].Texture, 0.1); |
1074 Tint($FF, $FF, $FF, $FF); |
1074 Tint($FF, $FF, $FF, $FF); |
1075 end |
1075 end |
1076 else if not isInLag then |
1076 else //if not isInLag then |
1077 begin |
1077 begin |
|
1078 if isInLag and (Gear^.FlightTime < 256) then inc(Gear^.FlightTime, 8) |
|
1079 else if not isInLag and (Gear^.FlightTime > 0) then dec(Gear^.FlightTime, 8); |
|
1080 if Gear^.FlightTime > 0 then Tint($FF, $FF, $FF, $FF-min(255,Gear^.FlightTime)); |
1078 if vobVelocity = 0 then |
1081 if vobVelocity = 0 then |
1079 DrawSprite(sprFlake, x, y, Gear^.Timer) |
1082 DrawSprite(sprFlake, x, y, Gear^.Timer) |
1080 else |
1083 else |
1081 DrawRotatedF(sprFlake, x, y, Gear^.Timer, 1, Gear^.DirAngle) |
1084 DrawRotatedF(sprFlake, x, y, Gear^.Timer, 1, Gear^.DirAngle); |
1082 //DrawSprite(sprFlake, x-SpritesData[sprFlake].Width div 2, y-SpritesData[sprFlake].Height div 2, Gear^.Timer) |
1085 //DrawSprite(sprFlake, x-SpritesData[sprFlake].Width div 2, y-SpritesData[sprFlake].Height div 2, Gear^.Timer) |
1083 //DrawRotatedF(sprFlake, x-SpritesData[sprFlake].Width div 2, y-SpritesData[sprFlake].Height div 2, Gear^.Timer, 1, Gear^.DirAngle); |
1086 //DrawRotatedF(sprFlake, x-SpritesData[sprFlake].Width div 2, y-SpritesData[sprFlake].Height div 2, Gear^.Timer, 1, Gear^.DirAngle); |
|
1087 if Gear^.FlightTime > 0 then Tint($FF, $FF, $FF, $FF); |
1084 end; |
1088 end; |
1085 gtStructure: DrawSprite(sprTarget, x - 16, y - 16, 0); |
1089 gtStructure: DrawSprite(sprTarget, x - 16, y - 16, 0); |
1086 gtTardis: if Gear^.Pos <> 4 then |
1090 gtTardis: if Gear^.Pos <> 4 then |
1087 begin |
1091 begin |
1088 if (Gear^.Pos = 1) or (Gear^.Pos = 3) then |
1092 if Gear^.Pos = 2 then Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF) |
1089 Tint($FF, $FF, $FF, max($00, round(Gear^.Power * (1-abs(0.5 - (GameTicks mod 2000) / 2000))))); |
1093 else Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or max($00, round(Gear^.Power * (1-abs(0.5 - (GameTicks mod 2000) / 2000))))); |
1090 DrawSprite(sprTardis, x-24, y-63,0); |
1094 DrawSprite(sprTardis, x-24, y-63,0); |
1091 if (Gear^.Pos = 1) or (Gear^.Pos = 3) then |
1095 if Gear^.Pos = 2 then Tint($FF, $FF, $FF, $FF) |
1092 Tint($FF, $FF, $FF, $FF) |
1096 else Tint($FF,$FF,$FF,max($00, round(Gear^.Power * (1-abs(0.5 - (GameTicks mod 2000) / 2000))))); |
|
1097 DrawSprite(sprTardis, x-24, y-63,1); |
|
1098 if Gear^.Pos <> 2 then Tint($FF, $FF, $FF, $FF) |
|
1099 (* |
|
1100 Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or max($00, round(Gear^.Power * abs(1 - (RealTicks mod 500) / 250)))); |
|
1101 DrawTexture(x-6, y-70, SpritesData[sprVampiric].Texture, 0.25); |
|
1102 Tint($FF, $FF, $FF, $FF) |
|
1103 *) |
1093 end; |
1104 end; |
1094 |
1105 |
1095 |
1106 |
1096 end; |
1107 end; |
1097 if Gear^.RenderTimer and (Gear^.Tex <> nil) then DrawCentered(x + 8, y + 8, Gear^.Tex); |
1108 if Gear^.RenderTimer and (Gear^.Tex <> nil) then DrawCentered(x + 8, y + 8, Gear^.Tex); |