169 lines
4.4 KiB
PHP
169 lines
4.4 KiB
PHP
PUSHS UNION "Screen Variables", WRAM0[SCREEN_VARS_START]
|
|
ds 16 ; why are we putting this so far in? i don't remember but whatever
|
|
vPreviousCardIndex: db
|
|
POPS
|
|
|
|
ScreenCardRead:
|
|
dw CardReadSetup
|
|
dw CardReadUpdate
|
|
dw CardReadDraw
|
|
dw CardReadTeardown
|
|
|
|
CardReadSetup:
|
|
ld a, 1
|
|
ld [vBlocked], a
|
|
|
|
ld hl, .asyncTask
|
|
call Async_Spawn_HL
|
|
|
|
ld hl, ZEROES
|
|
ld de, MY_OAM
|
|
ld bc, $100
|
|
call CopyRange
|
|
ret
|
|
|
|
.asyncTask:
|
|
|
|
ld hl, CardRead.UITilemap ; origin
|
|
ld de, _SCRN0 ; destination
|
|
ld b, 18 ; height
|
|
ld c, 20 ; width
|
|
call CopyTilesToMap
|
|
|
|
ld a, 0
|
|
ld [vBlocked], a
|
|
|
|
call ChangedCardTask
|
|
|
|
ret
|
|
|
|
CardReadUpdate:
|
|
call CardUpdate
|
|
|
|
call ScrollBackgroundTile
|
|
|
|
ld hl, rMYBTNP
|
|
bit 5, [hl]
|
|
jp z, .doneWithB
|
|
ld hl, ScreenSpreadSelect
|
|
call ChangeScene
|
|
ret
|
|
.doneWithB
|
|
|
|
ld a, [vSelectedSpreadCard]
|
|
ld hl, rMYBTNP
|
|
bit 1, [hl]
|
|
jp z, :+ ; skip the following code if left is not pressed
|
|
dec a
|
|
:
|
|
bit 0, [hl]
|
|
jp z, :+ ; skip the following code if right is not pressed
|
|
inc a
|
|
:
|
|
ld [vSelectedSpreadCard], a
|
|
ld a, [vCurrentSpread]
|
|
ld l, a
|
|
ld a, [vCurrentSpread+1]
|
|
ld h, a
|
|
ld a, [vSelectedSpreadCard]
|
|
call ArrayClampLooping
|
|
|
|
ld [vSelectedSpreadCard], a
|
|
ld hl, vPreviousSpreadCard
|
|
cp a, [hl]
|
|
ret z ; if the selected card diddn't change, nothing to do
|
|
|
|
ld a, [vBlocked]
|
|
cp a, 0
|
|
ret nz
|
|
|
|
ld hl, ChangedCardTask
|
|
call Async_Spawn_HL
|
|
|
|
ret
|
|
|
|
CardReadDraw:
|
|
ld a, [vCurrentBackgroundTile]
|
|
ld l, a
|
|
ld a, [vCurrentBackgroundTile+1]
|
|
ld h, a
|
|
ld de, _VRAM + $1000 + 1*16
|
|
call CopyOneTileData
|
|
|
|
call CardDraw
|
|
|
|
ld de, SAFE_DMA_LOCATION
|
|
ld a, HIGH(MY_OAM)
|
|
call RunDMA
|
|
|
|
ret
|
|
|
|
CardReadTeardown:
|
|
ret
|
|
|
|
ChangedCardTask:
|
|
ld a, [vSelectedSpreadCard]
|
|
ld [vPreviousSpreadCard], a
|
|
|
|
ld a, [vCurrentSpread]
|
|
ld c, a
|
|
ld a, [vCurrentSpread+1]
|
|
ld b, a ; gett bc as cuurrent spread address
|
|
ld hl, _SCRN0 + (32*1)+11
|
|
ld a, [vSelectedSpreadCard]
|
|
call DrawSpreadMinimap
|
|
|
|
ld a, [vCurrentSpread]
|
|
ld l, a
|
|
ld a, [vCurrentSpread+1]
|
|
ld h, a
|
|
call PassList ; skip spread layout
|
|
ld a, [vSelectedSpreadCard]
|
|
or a, a
|
|
.loopThroughSpreadPositions
|
|
jp z, .foundSpreadPositionDescription
|
|
call PassList
|
|
call PassList
|
|
dec a
|
|
jp .loopThroughSpreadPositions
|
|
.foundSpreadPositionDescription
|
|
ld de, _SCRN0 + 32*5 + 11
|
|
call PrintString
|
|
ld de, _SCRN0 + 32*6 + 11
|
|
call PrintString
|
|
|
|
ld hl, SHUFFLED_DECK+1
|
|
ld a, [vSelectedSpreadCard]
|
|
ld c, a
|
|
ld b, 0
|
|
add hl, bc
|
|
ld a, [hl]
|
|
ld [vSelectedCardIndex], a
|
|
ld [vPreviousCardIndex], a
|
|
|
|
call LoadCardData
|
|
|
|
ret
|
|
|
|
|
|
CardRead.UITilemap:
|
|
db $0e, $0a, $0a, $0a, $0a, $0a, $0a, $0a, $0a, $0f, $09, $02, $02, $02, $02, $02, $02, $02, $08, $01
|
|
db $0b, $00, $00, $00, $00, $00, $00, $00, $00, $0c, $03, $00, $00, $00, $00, $00, $00, $00, $04, $01
|
|
db $0b, $00, $00, $00, $00, $00, $00, $00, $00, $0c, $03, $00, $00, $00, $00, $00, $00, $00, $04, $01
|
|
db $0b, $00, $00, $00, $00, $00, $00, $00, $00, $0c, $03, $00, $00, $00, $00, $00, $00, $00, $04, $01
|
|
db $0b, $00, $00, $00, $00, $00, $00, $00, $00, $0c, $03, $00, $00, $00, $00, $00, $00, $00, $04, $01
|
|
db $0b, $00, $00, $00, $00, $00, $00, $00, $00, $0c, $03, $00, $00, $00, $00, $00, $00, $00, $04, $01
|
|
db $0b, $00, $00, $00, $00, $00, $00, $00, $00, $0c, $03, $00, $00, $00, $00, $00, $00, $00, $04, $01
|
|
db $0b, $00, $00, $00, $00, $00, $00, $00, $00, $0c, $06, $05, $05, $05, $05, $05, $05, $05, $07, $01
|
|
db $0b, $00, $00, $00, $00, $00, $00, $00, $00, $0c, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01
|
|
db $0b, $00, $00, $00, $00, $00, $00, $00, $00, $0c, $01, $01, $01, $01, $01, $01, $01, $01, $01, $01
|
|
db $0b, $00, $00, $00, $00, $00, $00, $00, $00, $0c, $02, $02, $02, $02, $02, $02, $02, $02, $02, $02
|
|
db $0b, $00, $00, $00, $00, $00, $00, $00, $00, $0c, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
|
|
db $0b, $00, $00, $00, $00, $00, $00, $00, $00, $0c, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
|
|
db $0b, $00, $00, $00, $00, $00, $00, $00, $00, $0c, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
|
|
db $0b, $00, $00, $00, $00, $00, $00, $00, $00, $0c, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
|
|
db $0b, $00, $00, $00, $00, $00, $00, $00, $00, $0c, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
|
|
db $0b, $00, $00, $00, $00, $00, $00, $00, $00, $0c, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
|
|
db $11, $0d, $0d, $0d, $0d, $0d, $0d, $0d, $0d, $10, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
|
|
CardRead.UITilemapEnd:
|