hedgewars/uWorld.pas
changeset 15210 8705ee93f8b3
parent 15154 a8b1e25040f3
child 15211 d48eba5ac715
equal deleted inserted replaced
15209:f55c1c895797 15210:8705ee93f8b3
  1860                     else
  1860                     else
  1861                         Tint($FF, $FF, $FF, $80 + (GameTicks div 16) mod $40);
  1861                         Tint($FF, $FF, $FF, $80 + (GameTicks div 16) mod $40);
  1862                     end;
  1862                     end;
  1863                 DrawSprite(PosSprite, TargetCursorPoint.X - (SpritesData[PosSprite].Width shr 1), cScreenHeight - TargetCursorPoint.Y - (SpritesData[PosSprite].Height shr 1),i);
  1863                 DrawSprite(PosSprite, TargetCursorPoint.X - (SpritesData[PosSprite].Width shr 1), cScreenHeight - TargetCursorPoint.Y - (SpritesData[PosSprite].Height shr 1),i);
  1864                 Untint();
  1864                 Untint();
       
  1865                 if (WorldEdge = weWrap) and (CurAmmoType = amBee) then
       
  1866                     begin
       
  1867                     if (TargetCursorPoint.X - WorldDx > rightX) then
       
  1868                         DrawSprite(sprThroughWrap, TargetCursorPoint.X - (SpritesData[sprThroughWrap].Width shr 1), cScreenHeight - TargetCursorPoint.Y - (SpritesData[PosSprite].Height shr 1) - SpritesData[sprThroughWrap].Height - 2, 0)
       
  1869                     else if (TargetCursorPoint.X - WorldDx < leftX) then
       
  1870                         DrawSprite(sprThroughWrap, TargetCursorPoint.X - (SpritesData[sprThroughWrap].Width shr 1), cScreenHeight - TargetCursorPoint.Y - (SpritesData[PosSprite].Height shr 1) - SpritesData[sprThroughWrap].Height - 2, 1);
       
  1871                     end;
  1865                 end;
  1872                 end;
  1866             end;
  1873             end;
  1867     DrawTextureF(SpritesData[sprArrow].Texture, cDefaultZoomLevel / cScaleFactor, TargetCursorPoint.X + round(SpritesData[sprArrow].Width / cScaleFactor), cScreenHeight + round(SpritesData[sprArrow].Height / cScaleFactor) - TargetCursorPoint.Y, (RealTicks shr 6) mod 8, 1, SpritesData[sprArrow].Width, SpritesData[sprArrow].Height);
  1874     DrawTextureF(SpritesData[sprArrow].Texture, cDefaultZoomLevel / cScaleFactor, TargetCursorPoint.X + round(SpritesData[sprArrow].Width / cScaleFactor), cScreenHeight + round(SpritesData[sprArrow].Height / cScaleFactor) - TargetCursorPoint.Y, (RealTicks shr 6) mod 8, 1, SpritesData[sprArrow].Width, SpritesData[sprArrow].Height);
  1868     end;
  1875     end;
  1869 
  1876