1379 begin |
1379 begin |
1380 if Gear^.Pos = 2 then |
1380 if Gear^.Pos = 2 then |
1381 Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF) |
1381 Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF) |
1382 else |
1382 else |
1383 Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or max($00, round(Gear^.Power * (1-abs(0.5 - (GameTicks mod 2000) / 2000))))); |
1383 Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or max($00, round(Gear^.Power * (1-abs(0.5 - (GameTicks mod 2000) / 2000))))); |
1384 DrawSprite(sprTardis, x-24, y-63,0); |
1384 DrawSprite(sprTardis, x-25, y-64,0); |
1385 if Gear^.Pos = 2 then |
1385 if Gear^.Pos = 2 then |
1386 untint |
1386 untint |
1387 else |
1387 else |
1388 Tint($FF,$FF,$FF,max($00, round(Gear^.Power * (1-abs(0.5 - (GameTicks mod 2000) / 2000))))); |
1388 Tint($FF,$FF,$FF,max($00, round(Gear^.Power * (1-abs(0.5 - (GameTicks mod 2000) / 2000))))); |
1389 DrawSprite(sprTardis, x-24, y-63,1); |
1389 DrawSprite(sprTardis, x-25, y-64,1); |
1390 if Gear^.Pos <> 2 then |
1390 if Gear^.Pos <> 2 then |
1391 untint |
1391 untint |
1392 (* |
1392 (* |
1393 Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or max($00, round(Gear^.Power * abs(1 - (RealTicks mod 500) / 250)))); |
1393 Tint(Gear^.Hedgehog^.Team^.Clan^.Color shl 8 or max($00, round(Gear^.Power * abs(1 - (RealTicks mod 500) / 250)))); |
1394 DrawTexture(x-6, y-70, SpritesData[sprVampiric].Texture, 0.25); |
1394 DrawTexture(x-6, y-70, SpritesData[sprVampiric].Texture, 0.25); |