1401 UnshiftWorld(); |
1401 UnshiftWorld(); |
1402 end; |
1402 end; |
1403 |
1403 |
1404 DrawVisualGears(3, false); |
1404 DrawVisualGears(3, false); |
1405 |
1405 |
1406 {$WARNINGS OFF} |
|
1407 // Target |
1406 // Target |
1408 if (TargetPoint.X <> NoPointX) and (CurrentTeam <> nil) and (CurrentHedgehog <> nil) then |
1407 if (TargetPoint.X <> NoPointX) and (CurrentTeam <> nil) and (CurrentHedgehog <> nil) then |
1409 begin |
1408 begin |
1410 with PHedgehog(CurrentHedgehog)^ do |
1409 with PHedgehog(CurrentHedgehog)^ do |
1411 begin |
1410 begin |
1412 if CurAmmoType = amBee then |
1411 if CurAmmoType = amBee then |
1413 DrawSpriteRotatedF(sprTargetBee, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360) |
1412 spr:= sprTargetBee |
1414 else |
1413 else |
1415 DrawSpriteRotatedF(sprTargetP, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360) |
1414 spr:= sprTargetP; |
1416 end |
1415 if replicateToLeft then |
1417 end; |
1416 begin |
1418 {$WARNINGS ON} |
1417 ShiftWorld(-1); |
|
1418 DrawSpriteRotatedF(spr, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360); |
|
1419 UnshiftWorld(); |
|
1420 end; |
|
1421 |
|
1422 if replicateToRight then |
|
1423 begin |
|
1424 ShiftWorld(1); |
|
1425 DrawSpriteRotatedF(spr, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360); |
|
1426 UnshiftWorld(); |
|
1427 end; |
|
1428 |
|
1429 DrawSpriteRotatedF(spr, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360); |
|
1430 end; |
|
1431 end; |
1419 |
1432 |
1420 RenderWorldEdge(); |
1433 RenderWorldEdge(); |
1421 |
1434 |
1422 // this scale is used to keep the various widgets at the same dimension at all zoom levels |
1435 // this scale is used to keep the various widgets at the same dimension at all zoom levels |
1423 SetScale(cDefaultZoomLevel); |
1436 SetScale(cDefaultZoomLevel); |