mirror of
https://github.com/badvision/lawless-legends.git
synced 2024-12-26 19:29:27 +00:00
Started on 2D tile routines, starting with the loading and boundary crossing logic
This commit is contained in:
Brendan Robert
parent
278d769ade
commit
68d9767947
321
Platform/Apple/virtual/src/tile/tile.s
Normal file
321
Platform/Apple/virtual/src/tile/tile.s
Normal file
@ -0,0 +1,321 @@
|
|||||||
|
;@com.wudsn.ide.asm.hardware=APPLE2
|
||||||
|
; Tile routines
|
||||||
|
; ------------------
|
||||||
|
;
|
||||||
|
|
||||||
|
* = $6000
|
||||||
|
; Global definitions
|
||||||
|
!source "../include/global.i"
|
||||||
|
!source "../include/mem.i"
|
||||||
|
!source "../include/plasma.i"
|
||||||
|
|
||||||
|
HEADER_LENGTH=6
|
||||||
|
SECTION_WIDTH=22
|
||||||
|
SECTION_HEIGHT=23
|
||||||
|
VIEWPORT_WIDTH=9
|
||||||
|
VIEWPORT_HEIGHT=9
|
||||||
|
VIEWPORT_VERT_PAD=0 ; This is the distance between the center of the viewport and the top/bottom
|
||||||
|
VIEWPORT_HORIZ_PAD=4 ; This is the distance between the center of the viewport and the left/right
|
||||||
|
MAX_MAP_ID=254 ; This means that the total map area can be as big as 5588x5842 tiles!
|
||||||
|
|
||||||
|
REL_X=$50 ; Will always be in the range 0-43
|
||||||
|
REL_Y=$51 ; Will always be in the range 0-45
|
||||||
|
; Map quadrant data pointers
|
||||||
|
NW_MAP_LOC=$52
|
||||||
|
NE_MAP_LOC=$54
|
||||||
|
SW_MAP_LOC=$56
|
||||||
|
SE_MAP_LOC=$58
|
||||||
|
; Map section IDs (255 = not loaded)
|
||||||
|
NOT_LOADED=$FF
|
||||||
|
NW_MAP_ID=$5A
|
||||||
|
NE_MAP_ID=$5B
|
||||||
|
SW_MAP_ID=$5C
|
||||||
|
SE_MAP_ID=$5D
|
||||||
|
|
||||||
|
NORTH =0
|
||||||
|
EAST =1
|
||||||
|
SOUTH =2
|
||||||
|
WEST =3
|
||||||
|
|
||||||
|
; >> INIT (reset map drawing vars)
|
||||||
|
INIT
|
||||||
|
LDA #NOT_LOADED
|
||||||
|
STA NW_MAP_ID
|
||||||
|
STA NE_MAP_ID
|
||||||
|
STA SW_MAP_ID
|
||||||
|
STA SE_MAP_ID
|
||||||
|
LDX VIEWPORT_HORIZ_PAD
|
||||||
|
LDY VIEWPORT_VERT_PAD
|
||||||
|
JSR SET_XY
|
||||||
|
RTS
|
||||||
|
;----------------------------------------------------------------------
|
||||||
|
; >> LOAD MAP SECTION
|
||||||
|
; Section number is in A
|
||||||
|
; Returns location of loaded data (Y = hi, X = lo)
|
||||||
|
; First 6 bytes are header information
|
||||||
|
; 0 Resource ID of next map section (north), FF = none
|
||||||
|
; 1 Resource ID of next map section (east), FF = none
|
||||||
|
; 2 Resource ID of next map section (south), FF = none
|
||||||
|
; 3 Resource ID of next map section (west), FF = none
|
||||||
|
; 4 Tileset resouce id
|
||||||
|
; 5 Resource ID of script library (if any)
|
||||||
|
LOAD_SECTION
|
||||||
|
CMP #$FF
|
||||||
|
BNE .doLoad
|
||||||
|
LDX #00 ; This is a bogus map section, don't load
|
||||||
|
LDY #00
|
||||||
|
RTS
|
||||||
|
.doLoad
|
||||||
|
;INSERT LOADER HERE
|
||||||
|
RTS
|
||||||
|
!loadSection ptr {
|
||||||
|
JSR LOAD_SECTION
|
||||||
|
STX ptr
|
||||||
|
STY ptr+1
|
||||||
|
}
|
||||||
|
;----------------------------------------------------------------------
|
||||||
|
; >> RELEASE MAP SECTION
|
||||||
|
!macro releaseMapSection resourceId {
|
||||||
|
; --> free up unused resource
|
||||||
|
}
|
||||||
|
;----------------------------------------------------------------------
|
||||||
|
; >> LOAD TILES
|
||||||
|
; Load tile resource (A = Resource ID)
|
||||||
|
;----------------------------------------------------------------------
|
||||||
|
; >> MOVE NORTH
|
||||||
|
; Check for boundary
|
||||||
|
; If none, check for map boundary
|
||||||
|
; If so, move to bottom of next map
|
||||||
|
; If not at boundary
|
||||||
|
; Move up one row
|
||||||
|
; Check to see if viewport is crossing section boundary;
|
||||||
|
; Does new location have a script assigned?
|
||||||
|
; execute script
|
||||||
|
;----------------------------------------------------------------------
|
||||||
|
; >> MOVE EAST
|
||||||
|
; (same as move north, might be able to overlap functionality)
|
||||||
|
;----------------------------------------------------------------------
|
||||||
|
; >> MOVE SOUTH
|
||||||
|
; (same as move north, might be able to overlap functionality)
|
||||||
|
;----------------------------------------------------------------------
|
||||||
|
; >> MOVE WEST
|
||||||
|
; (same as move north, might be able to overlap functionality)
|
||||||
|
;----------------------------------------------------------------------
|
||||||
|
; >> GET TILE IN CARDINAL DIRECTION AND FLAGS
|
||||||
|
; (Returns Tile # in Y, Flags in A)
|
||||||
|
; Each tile in memory can be 0-64, the flags are the upper 3 bits
|
||||||
|
; 0 0 0
|
||||||
|
; | | `- Boundary (Can not cross)
|
||||||
|
; | `--- Requires special (rope, raft, etc)
|
||||||
|
; `----- Script assigned, triggers script lookup
|
||||||
|
;----------------------------------------------------------------------
|
||||||
|
; >> SET X,Y COORDINATES
|
||||||
|
SET_XY
|
||||||
|
STX REL_X
|
||||||
|
STY REL_Y
|
||||||
|
RTS
|
||||||
|
;----------------------------------------------------------------------
|
||||||
|
; >> TRIGGER SCRIPT AT TILE (X,Y = Coordinates in section)
|
||||||
|
;----------------------------------------------------------------------
|
||||||
|
!macro move_zp_word from, to {
|
||||||
|
ldx #from
|
||||||
|
ldy #to
|
||||||
|
jsr move_zp_word
|
||||||
|
}
|
||||||
|
|
||||||
|
!macro move_byte from, to {
|
||||||
|
LDX from
|
||||||
|
STX to
|
||||||
|
}
|
||||||
|
|
||||||
|
move_zp_word
|
||||||
|
; Move a two-byte word from (X) to (Y)
|
||||||
|
lda $00,X
|
||||||
|
sta $00,Y
|
||||||
|
lda $01,X
|
||||||
|
sta $01,Y
|
||||||
|
rts
|
||||||
|
|
||||||
|
; >> CROSS NORTH BOUNDARY (Load next section to the north)
|
||||||
|
!zone
|
||||||
|
CROSS_NORTH
|
||||||
|
!releaseMapSection SW_MAP_ID
|
||||||
|
!releaseMapSection SE_MAP_ID
|
||||||
|
LDA REL_Y
|
||||||
|
CLC
|
||||||
|
ADC #SECTION_HEIGHT
|
||||||
|
STA REL_Y
|
||||||
|
!move_byte NW_MAP_ID, SW_MAP_ID
|
||||||
|
!movezp_word NW_MAP_LOC, SW_MAP_LOC
|
||||||
|
!move_byte NE_MAP_ID, SE_MAP_ID
|
||||||
|
!movezp_word NE_MAP_LOC, SE_MAP_LOC
|
||||||
|
LDA REL_X
|
||||||
|
CMP SECTION_WIDTH+VIEWPORT_HORIZ_PAD
|
||||||
|
BGE .1
|
||||||
|
.nw ; Get new NW section
|
||||||
|
LDA (SW_MAP_LOC)
|
||||||
|
STA NW_MAP_ID
|
||||||
|
!loadSection NW_MAP_LOC
|
||||||
|
LDA REL_X
|
||||||
|
CMP SECTION_WIDTH-VIEWPORT_HORIZ_PAD
|
||||||
|
BGE .2
|
||||||
|
; Skip the NE quadrant if not visible
|
||||||
|
LDA #$FF
|
||||||
|
STA NE_MAP_ID
|
||||||
|
RTS
|
||||||
|
; Skip the NW quadrant if not visible
|
||||||
|
.1 LDA #$FF
|
||||||
|
STA NW_MAP_ID
|
||||||
|
.2 ; Get the new NE section
|
||||||
|
LDA (SE_MAP_LOC)
|
||||||
|
STA NE_MAP_ID
|
||||||
|
!loadSection NE_MAP_LOC
|
||||||
|
RTS
|
||||||
|
;----------------------------------------------------------------------
|
||||||
|
; >> CROSS EAST BOUNDARY (Load next section to the east)
|
||||||
|
!zone
|
||||||
|
CROSS_EAST
|
||||||
|
!releaseMapSection NW_MAP_ID
|
||||||
|
!releaseMapSection SW_MAP_ID
|
||||||
|
LDA REL_X
|
||||||
|
SEC
|
||||||
|
SBC #SECTION_WIDTH
|
||||||
|
STA REL_X
|
||||||
|
!move_byte NE_MAP_ID, NW_MAP_ID
|
||||||
|
!movezp_word NE_MAP_LOC, NW_MAP_LOC
|
||||||
|
!move_byte SE_MAP_ID, SW_MAP_ID
|
||||||
|
!movezp_word SE_MAP_LOC, SW_MAP_LOC
|
||||||
|
LDA REL_Y
|
||||||
|
CMP SECTION_HEIGHT+VIEWPORT_VERT_PAD
|
||||||
|
BGE .1
|
||||||
|
; Get new NE section
|
||||||
|
LDY #EAST
|
||||||
|
LDA (NW_MAP_LOC),Y
|
||||||
|
STA NE_MAP_ID
|
||||||
|
!loadSection NE_MAP_LOC
|
||||||
|
LDA REL_Y
|
||||||
|
CMP SECTION_HEIGHT-VIEWPORT_VERT_PAD
|
||||||
|
BGE .2
|
||||||
|
; Skip the SE quadrant if not visible
|
||||||
|
LDA #$FF
|
||||||
|
STA SE_MAP_ID
|
||||||
|
RTS
|
||||||
|
; Skip the NE quadrant if not visible
|
||||||
|
.1 LDA #$FF
|
||||||
|
STA NE_MAP_ID
|
||||||
|
.2 ; Get the new SE section
|
||||||
|
LDY #EAST
|
||||||
|
LDA (SW_MAP_LOC),Y
|
||||||
|
STA SE_MAP_ID
|
||||||
|
!loadSection SE_MAP_LOC
|
||||||
|
RTS
|
||||||
|
;----------------------------------------------------------------------
|
||||||
|
; >> CROSS SOUTH BOUNDARY (Load next section to the south)
|
||||||
|
!zone
|
||||||
|
CROSS_SOUTH
|
||||||
|
!releaseMapSection NW_MAP_ID
|
||||||
|
!releaseMapSection NE_MAP_ID
|
||||||
|
LDA REL_Y
|
||||||
|
SEC
|
||||||
|
SBC #SECTION_HEIGHT
|
||||||
|
STA REL_Y
|
||||||
|
!move_byte SW_MAP_ID, NW_MAP_ID
|
||||||
|
!movezp_word SW_MAP_LOC, NW_MAP_LOC
|
||||||
|
!move_byte SE_MAP_ID, NE_MAP_ID
|
||||||
|
!movezp_word SE_MAP_LOC, NE_MAP_LOC
|
||||||
|
LDA REL_X
|
||||||
|
CMP SECTION_WIDTH+VIEWPORT_HORIZ_PAD
|
||||||
|
BGE .1
|
||||||
|
; Get new SW section
|
||||||
|
LDY #SOUTH
|
||||||
|
LDA (NW_MAP_LOC),Y
|
||||||
|
STA SW_MAP_ID
|
||||||
|
!loadSection SW_MAP_LOC
|
||||||
|
LDA REL_X
|
||||||
|
CMP SECTION_WIDTH-VIEWPORT_HORIZ_PAD
|
||||||
|
BGE .2
|
||||||
|
; Skip the NE quadrant if not visible
|
||||||
|
LDA #$FF
|
||||||
|
STA SE_MAP_ID
|
||||||
|
RTS
|
||||||
|
; Skip the NW quadrant if not visible
|
||||||
|
.1 LDA #$FF
|
||||||
|
STA SW_MAP_ID
|
||||||
|
.2 ; Get the new SE section
|
||||||
|
LDY #SOUTH
|
||||||
|
LDA (SE_MAP_LOC),Y
|
||||||
|
STA SE_MAP_ID
|
||||||
|
!loadSection SE_MAP_LOC
|
||||||
|
RTS
|
||||||
|
;----------------------------------------------------------------------
|
||||||
|
; >> CROSS WEST BOUNDARY (load next section to the west)
|
||||||
|
!zone
|
||||||
|
CROSS_WEST
|
||||||
|
!releaseMapSection NE_MAP_ID
|
||||||
|
!releaseMapSection SE_MAP_ID
|
||||||
|
LDA REL_X
|
||||||
|
CLC
|
||||||
|
ADC #SECTION_WIDTH
|
||||||
|
STA REL_X
|
||||||
|
!move_byte NW_MAP_ID, NE_MAP_ID
|
||||||
|
!movezp_word NW_MAP_LOC, NE_MAP_LOC
|
||||||
|
!move_byte SW_MAP_ID, SE_MAP_ID
|
||||||
|
!movezp_word SW_MAP_LOC, SE_MAP_LOC
|
||||||
|
LDA REL_Y
|
||||||
|
CMP SECTION_HEIGHT+VIEWPORT_VERT_PAD
|
||||||
|
BGE .1
|
||||||
|
; Get new NW section
|
||||||
|
LDY #WEST
|
||||||
|
LDA (NE_MAP_LOC),Y
|
||||||
|
STA NW_MAP_ID
|
||||||
|
!loadSection NW_MAP_LOC
|
||||||
|
LDA REL_Y
|
||||||
|
CMP SECTION_HEIGHT-VIEWPORT_VERT_PAD
|
||||||
|
BGE .2
|
||||||
|
; Skip the SW quadrant if not visible
|
||||||
|
LDA #$FF
|
||||||
|
STA SW_MAP_ID
|
||||||
|
RTS
|
||||||
|
; Skip the NE quadrant if not visible
|
||||||
|
.1 LDA #$FF
|
||||||
|
STA NW_MAP_ID
|
||||||
|
.2 ; Get the new SE section
|
||||||
|
LDY #WEST
|
||||||
|
LDA (SE_MAP_LOC),Y
|
||||||
|
STA SW_MAP_ID
|
||||||
|
!loadSection SW_MAP_LOC
|
||||||
|
RTS
|
||||||
|
;----------------------------------------------------------------------
|
||||||
|
; >> SET PLAYER TILE (A = tile)
|
||||||
|
;----------------------------------------------------------------------
|
||||||
|
; >> SET NPC TILE (A = tile, X,Y = coordinates in section)
|
||||||
|
;----------------------------------------------------------------------
|
||||||
|
; >> DRAW
|
||||||
|
!zone draw
|
||||||
|
DRAW
|
||||||
|
; For each quadrant, display relevant parts of screen
|
||||||
|
.checkNorthQuads
|
||||||
|
LDA REL_Y
|
||||||
|
CMP SECTION_HEIGHT+VIEWPORT_VERT_PAD
|
||||||
|
BGE .checkSouthQuads
|
||||||
|
; Check for NW quadrant area
|
||||||
|
; Check for NE quadrant area
|
||||||
|
.checkSouthQuads
|
||||||
|
; Check for SW quadrant area
|
||||||
|
; Check for SE quadrand area
|
||||||
|
RTS
|
||||||
|
.mainDraw
|
||||||
|
; Identify start of map data (upper left)
|
||||||
|
; Display row of tiles
|
||||||
|
; Get tile
|
||||||
|
; Is there a NPC there?
|
||||||
|
; No, use map tile
|
||||||
|
; Yes, use NPC tile
|
||||||
|
; Compare tile to last-drawn tile
|
||||||
|
; Skip if no change
|
||||||
|
; Is this the first time we're drawing this row?
|
||||||
|
; -- It is, update the draw pointers
|
||||||
|
; If tile is different then redraw
|
||||||
|
; -- unrolled loop for 16 rows at a time
|
||||||
|
; Increment row
|
||||||
|
; Draw player
|
||||||
Loading…
Reference in New Issue
Block a user