62 lines
2.8 KiB
Plaintext
62 lines
2.8 KiB
Plaintext
// TODO make these variables
|
|
(var FLOOR_WIDTH 46)
|
|
(var FLOOR_HEIGHT 32)
|
|
(var SPRITE_HEIGHT 55)
|
|
(var SPRITE_PADDING 1)
|
|
|
|
(prop :Array<FlxSprite> floorTiles [])
|
|
|
|
(method &override :Void create []
|
|
(super.create)
|
|
// TODO load from a more accessible path
|
|
(let [bitmapData (Bmp.loadBitmapData "Data/Terrain Graphics/G796.bmp")
|
|
spriteSheet (.loadGraphic (new FlxSprite) (FlxGraphic.fromBitmapData bitmapData))]
|
|
(spriteSheet.replaceColor FlxColor.WHITE FlxColor.TRANSPARENT)
|
|
(let [sheetWidth (/ (- spriteSheet.frameWidth SPRITE_PADDING) (+ SPRITE_PADDING FLOOR_WIDTH))
|
|
sheetHeight (/ (- spriteSheet.frameHeight SPRITE_PADDING) (+ SPRITE_PADDING SPRITE_HEIGHT))]
|
|
(doFor row (range sheetHeight)
|
|
(doFor col (range sheetWidth)
|
|
(floorTiles.push (let [tile (spriteSheet.clone)]
|
|
(set tile.clipRect (new FlxRect
|
|
(+ SPRITE_PADDING (* col (+ SPRITE_PADDING FLOOR_WIDTH)))
|
|
(+ SPRITE_PADDING (* row (+ SPRITE_PADDING SPRITE_HEIGHT)))
|
|
FLOOR_WIDTH
|
|
SPRITE_HEIGHT))
|
|
tile))))))
|
|
|
|
(addSpriteLayer (for row (range 5) (collect (range 5)))))
|
|
|
|
(method :Void addSpriteLayer [:Array<Array<Int>> tiles]
|
|
(let [&mut rowStartX 0
|
|
&mut rowStartY 0]
|
|
(doFor row tiles
|
|
(let [&mut x rowStartX
|
|
&mut y rowStartY]
|
|
(doFor tile row
|
|
(let [tileSprite (.clone (nth floorTiles tile))]
|
|
(set tileSprite.x (- x tileSprite.clipRect.x))
|
|
(set tileSprite.y (- y tileSprite.clipRect.y))
|
|
(add tileSprite))
|
|
(+= x (/ FLOOR_WIDTH 2))
|
|
(+= y (/ FLOOR_HEIGHT 2))))
|
|
|
|
(-= rowStartX (/ FLOOR_WIDTH 2))
|
|
(+= rowStartY (/ FLOOR_HEIGHT 2)))))
|
|
|
|
(var CAMERA_SPEED 100)
|
|
|
|
(method &override :Void update [:Float elapsed]
|
|
(super.update elapsed)
|
|
|
|
(let [&mut cameraMovement (new FlxVector 0 0)]
|
|
(when (= 0 FlxG.mouse.screenX)
|
|
(set cameraMovement.x -1))
|
|
(when (= 0 FlxG.mouse.screenY)
|
|
(set cameraMovement.y -1))
|
|
(when (= (- FlxG.width 1) FlxG.mouse.screenX)
|
|
(set cameraMovement.x 1))
|
|
(when (= (- FlxG.height 1) FlxG.mouse.screenY)
|
|
(set cameraMovement.y 1))
|
|
(set cameraMovement (cameraMovement.truncate 1))
|
|
(set cameraMovement (cameraMovement.scale (* elapsed CAMERA_SPEED)))
|
|
(set FlxG.camera.scroll (FlxG.camera.scroll.add cameraMovement.x cameraMovement.y)))) |