1438 with PHedgehog(CurrentHedgehog)^ do |
1438 with PHedgehog(CurrentHedgehog)^ do |
1439 begin |
1439 begin |
1440 if CurAmmoType = amBee then |
1440 if CurAmmoType = amBee then |
1441 spr:= sprTargetBee |
1441 spr:= sprTargetBee |
1442 else |
1442 else |
1443 begin |
|
1444 spr:= sprTargetP; |
1443 spr:= sprTargetP; |
|
1444 if replicateToLeft then |
|
1445 begin |
|
1446 ShiftWorld(-1); |
|
1447 if spr = sprTargetP then |
|
1448 begin |
|
1449 if IsTooDarkToRead(Team^.Clan^.Color) then |
|
1450 DrawSpriteRotatedF(sprTargetPBackInv, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360) |
|
1451 else |
|
1452 DrawSpriteRotatedF(sprTargetPBack, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360); |
|
1453 Tint(Team^.Clan^.Color shl 8 or $FF); |
|
1454 end; |
|
1455 DrawSpriteRotatedF(spr, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360); |
|
1456 if spr = sprTargetP then |
|
1457 untint; |
|
1458 UnshiftWorld(); |
|
1459 end; |
|
1460 |
|
1461 if replicateToRight then |
|
1462 begin |
|
1463 ShiftWorld(1); |
|
1464 if spr = sprTargetP then |
|
1465 begin |
|
1466 if IsTooDarkToRead(Team^.Clan^.Color) then |
|
1467 DrawSpriteRotatedF(sprTargetPBackInv, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360) |
|
1468 else |
|
1469 DrawSpriteRotatedF(sprTargetPBack, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360); |
|
1470 Tint(Team^.Clan^.Color shl 8 or $FF); |
|
1471 end; |
|
1472 DrawSpriteRotatedF(spr, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360); |
|
1473 if spr = sprTargetP then |
|
1474 untint; |
|
1475 UnshiftWorld(); |
|
1476 end; |
|
1477 |
|
1478 if spr = sprTargetP then |
|
1479 begin |
|
1480 if IsTooDarkToRead(Team^.Clan^.Color) then |
|
1481 DrawSpriteRotatedF(sprTargetPBackInv, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360) |
|
1482 else |
|
1483 DrawSpriteRotatedF(sprTargetPBack, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360); |
1445 Tint(Team^.Clan^.Color shl 8 or $FF); |
1484 Tint(Team^.Clan^.Color shl 8 or $FF); |
1446 end; |
1485 end; |
1447 if replicateToLeft then |
|
1448 begin |
|
1449 ShiftWorld(-1); |
|
1450 DrawSpriteRotatedF(spr, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360); |
|
1451 UnshiftWorld(); |
|
1452 end; |
|
1453 |
|
1454 if replicateToRight then |
|
1455 begin |
|
1456 ShiftWorld(1); |
|
1457 DrawSpriteRotatedF(spr, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360); |
|
1458 UnshiftWorld(); |
|
1459 end; |
|
1460 |
|
1461 DrawSpriteRotatedF(spr, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360); |
1486 DrawSpriteRotatedF(spr, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360); |
1462 if spr = sprTargetP then |
1487 if spr = sprTargetP then |
1463 untint; |
1488 untint; |
1464 end; |
1489 end; |
1465 end; |
1490 end; |