kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

iso-engine blades sample terrains

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-06-07 22:35:10 +00:00
parent b32792d802
commit 48c7d3e6e1
2 changed files with 47 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
projects/iso-rpg-engine/source/IsometricMapState.kiss
View File

@@ -8,7 +8,11 @@
(method &override :Void create []
(super.create)
(set data (ScenData.coreData))
(addFloorLayer (groups (collect (range 255)) 32)))
(addFloorLayer (groups (collect (range 255)) 32))
(addTerrainLayer (groups (concat
(for _ (range 255) -1)
(collect (range 512)))
32)))
(method :Void addFloorLayer [:Array<Array<Int>> tiles]
(let [&mut rowStartX 0
@@ -26,6 +30,23 @@
(-= rowStartX (/ FLOOR_WIDTH 2))
(+= rowStartY (/ FLOOR_HEIGHT 2)))))
(method :Void addTerrainLayer [: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 (data.terrainSprite tile)]
(set tileSprite.x x)
(set tileSprite.y y)
(add tileSprite))
(+= x (/ FLOOR_WIDTH 2))
(+= y (/ FLOOR_HEIGHT 2))))
(-= rowStartX (/ FLOOR_WIDTH 2))
(+= rowStartY (/ FLOOR_HEIGHT 2)))))
(var CAMERA_SPEED 500)
(method &override :Void update [:Float elapsed]