equal
deleted
inserted
replaced
1233 DrawSpriteRotatedF(sprTargetP, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360) |
1233 DrawSpriteRotatedF(sprTargetP, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360) |
1234 end |
1234 end |
1235 end; |
1235 end; |
1236 {$WARNINGS ON} |
1236 {$WARNINGS ON} |
1237 |
1237 |
|
1238 if WorldEdge <> weNone then |
|
1239 begin |
|
1240 (* I think for a bounded world, will fill the left and right areas with black or something. Also will probably want various border effects/animations based on border type. Prob also, say, trigger a border animation timer on an impact. *) |
|
1241 DrawLine(leftX, -3000, leftX, cWaterLine+cVisibleWater, 3.0, $FF, $00, $FF, $FF); |
|
1242 DrawLine(rightX, -3000, rightX, cWaterLine+cVisibleWater, 3.0, $FF, $00, $FF, $FF) |
|
1243 end; |
|
1244 |
1238 // this scale is used to keep the various widgets at the same dimension at all zoom levels |
1245 // this scale is used to keep the various widgets at the same dimension at all zoom levels |
1239 SetScale(cDefaultZoomLevel); |
1246 SetScale(cDefaultZoomLevel); |
1240 |
1247 |
1241 // Turn time |
1248 // Turn time |
1242 {$IFDEF USE_TOUCH_INTERFACE} |
1249 {$IFDEF USE_TOUCH_INTERFACE} |
1629 DrawSprite(PosSprite, TargetCursorPoint.X - (SpritesData[PosSprite].Width shr 1), cScreenHeight - TargetCursorPoint.Y - (SpritesData[PosSprite].Height shr 1),i); |
1636 DrawSprite(PosSprite, TargetCursorPoint.X - (SpritesData[PosSprite].Width shr 1), cScreenHeight - TargetCursorPoint.Y - (SpritesData[PosSprite].Height shr 1),i); |
1630 end; |
1637 end; |
1631 DrawSprite(sprArrow, TargetCursorPoint.X, cScreenHeight - TargetCursorPoint.Y, (RealTicks shr 6) mod 8) |
1638 DrawSprite(sprArrow, TargetCursorPoint.X, cScreenHeight - TargetCursorPoint.Y, (RealTicks shr 6) mod 8) |
1632 end |
1639 end |
1633 end; |
1640 end; |
1634 isFirstFrame:= false |
1641 isFirstFrame:= false; |
1635 end; |
1642 end; |
1636 |
1643 |
1637 var PrevSentPointTime: LongWord = 0; |
1644 var PrevSentPointTime: LongWord = 0; |
1638 |
1645 |
1639 procedure MoveCamera; |
1646 procedure MoveCamera; |