1082 end; |
1082 end; |
1083 gtStructure: DrawSprite(sprTarget, x - 16, y - 16, 0); |
1083 gtStructure: DrawSprite(sprTarget, x - 16, y - 16, 0); |
1084 gtTardis: if Gear^.Pos <> 4 then |
1084 gtTardis: if Gear^.Pos <> 4 then |
1085 begin |
1085 begin |
1086 if (Gear^.Pos = 1) or (Gear^.Pos = 3) then |
1086 if (Gear^.Pos = 1) or (Gear^.Pos = 3) then |
1087 Tint($FF, $FF, $FF, max($00, round(Gear^.Power * (1-abs(0.5 - (GameTicks mod 2000) / 2000))))); |
1087 Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or max($00, round(Gear^.Power * (1-abs(0.5 - (GameTicks mod 2000) / 2000))))) |
1088 DrawSprite(sprTardis, x-24, y-63,0); |
1088 else Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF); |
1089 if (Gear^.Pos = 1) or (Gear^.Pos = 3) then |
1089 DrawSprite(sprTardis, x-26, y-63,0); |
1090 Tint($FF, $FF, $FF, $FF) |
1090 Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or max($00, round(Gear^.Power * abs(1 - (RealTicks mod 500) / 250)))); |
|
1091 DrawTexture(x-6, y-70, SpritesData[sprVampiric].Texture, 0.25); |
|
1092 Tint($FF, $FF, $FF, $FF) |
1091 end; |
1093 end; |
1092 |
1094 |
1093 |
1095 |
1094 end; |
1096 end; |
1095 if Gear^.RenderTimer and (Gear^.Tex <> nil) then DrawCentered(x + 8, y + 8, Gear^.Tex); |
1097 if Gear^.RenderTimer and (Gear^.Tex <> nil) then DrawCentered(x + 8, y + 8, Gear^.Tex); |