mirror of
https://gitlab.com/xCrystal/pokecrystal-board.git
synced 2024-09-09 09:51:34 -07:00
parent
b530cf90f4
commit
80257e4bca
@ -42,6 +42,9 @@ DEF MAX_LEVEL_COINS EQU 99999
|
||||
DEF MAX_DELTA_COINS_DIGITS EQU 5
|
||||
DEF MAX_CHIPS EQU 9999
|
||||
|
||||
; significant turns values
|
||||
DEF MAX_TURNS EQU 999
|
||||
|
||||
; link record
|
||||
DEF MAX_LINK_RECORD EQU 9999
|
||||
|
||||
|
@ -26,7 +26,21 @@ BoardMenuScript::
|
||||
xor a
|
||||
call ByteFill
|
||||
ld hl, wCurTurn
|
||||
ld a, [hli]
|
||||
cp MAX_TURNS / $100
|
||||
jr nz, .not_max_turns
|
||||
ld a, [hl]
|
||||
cp MAX_TURNS % $100
|
||||
jr z, .next
|
||||
.not_max_turns
|
||||
inc [hl]
|
||||
jr nz, .next
|
||||
dec hl
|
||||
inc [hl]
|
||||
jr .next
|
||||
.next
|
||||
; apply wCurTurn and wDieRoll in overworld HUD
|
||||
call RefreshOverworldHUD
|
||||
; reset turn-scoped event flags
|
||||
ld hl, wEventFlags + EVENT_TURN_SCOPED_FLAGS_START / 8
|
||||
ld c, (EVENT_TURN_SCOPED_FLAGS_END / 8) - (EVENT_TURN_SCOPED_FLAGS_START / 8)
|
||||
@ -305,6 +319,7 @@ DIE_MAX_NUMBER EQU 6
|
||||
|
||||
BoardMenu_BreakDieAnimation:
|
||||
farcall LoadBoardMenuDieNumbersGFX
|
||||
call RefreshOverworldHUD ; apply wDieRoll in overworld HUD
|
||||
ld a, [wDieRoll]
|
||||
dec a
|
||||
add a
|
||||
|
@ -349,7 +349,9 @@ PrintGainOrLoseCoins:
|
||||
call PrintNum
|
||||
ld hl, wDisplaySecondarySprites
|
||||
set SECONDARYSPRITES_GAIN_OR_LOSE_COINS_F, [hl]
|
||||
; refresh overworld HUD, and show coins string 750 ms
|
||||
call UpdateActiveSprites
|
||||
call RefreshOverworldHUD
|
||||
ld c, 45 ; 750 ms
|
||||
call DelayFrames
|
||||
ld hl, wDisplaySecondarySprites
|
||||
|
@ -29,11 +29,41 @@ _LoadOverworldHUDAttrmap:
|
||||
jp ByteFill
|
||||
|
||||
_ConstructOverworldHUDTilemap::
|
||||
; layout
|
||||
ld hl, .Tilemap
|
||||
ld de, wOverworldHUDTiles
|
||||
ld bc, .TilemapEnd - .Tilemap ; SCREEN_WIDTH
|
||||
call CopyBytes
|
||||
ret
|
||||
; turn
|
||||
ld hl, wCurTurn + 1
|
||||
ld a, [hld]
|
||||
or [hl]
|
||||
jr z, .next1 ; skip if turn is 0 (not yet started)
|
||||
ld d, h
|
||||
ld e, l
|
||||
ld hl, wOverworldHUDTiles + 1
|
||||
lb bc, 2 | 1 << 6, 3 ; 2 bytes, left aligned, no leading zeros, 3 digits
|
||||
call PrintNum
|
||||
.next1
|
||||
; current roll
|
||||
ld de, wDieRoll
|
||||
ld a, [de]
|
||||
and a
|
||||
jr z, .next2 ; skip if wDieRoll is 0
|
||||
ld hl, wOverworldHUDTiles + 5
|
||||
lb bc, 1 | 1 << 6, 2 ; 1 byte, left aligned, no leading zeros, 2 digits
|
||||
call PrintNum
|
||||
.next2
|
||||
; coins
|
||||
ld de, wCurLevelCoins
|
||||
ld hl, wOverworldHUDTiles + 8
|
||||
lb bc, 3 | 1 << 6, MAX_DELTA_COINS_DIGITS ; 3 bytes, left aligned, no leading zeros, 5 digits
|
||||
call PrintNum
|
||||
; exp points
|
||||
ld de, wCurLevelExp
|
||||
ld hl, wOverworldHUDTiles + 15
|
||||
lb bc, 3 | 1 << 6, 5 ; 3 bytes, left aligned, no leading zeros, 5 digits
|
||||
jp PrintNum
|
||||
|
||||
.Tilemap:
|
||||
db "<TURN><N_A> <DIE><N_A> <COIN>0 <XP>0 "
|
||||
|
@ -155,6 +155,7 @@ StartMap:
|
||||
xor a
|
||||
ld hl, wCurTurn
|
||||
ld [hli], a ; wCurTurn
|
||||
ld [hli], a ;
|
||||
ld [hli], a ; wCurSpace
|
||||
ld [hli], a ; wCurLevelCoins
|
||||
ld [hli], a ;
|
||||
|
@ -2546,7 +2546,7 @@ wYCoord:: db
|
||||
wXCoord:: db
|
||||
wScreenSave:: ds SCREEN_META_WIDTH * SCREEN_META_HEIGHT
|
||||
|
||||
wCurTurn:: db
|
||||
wCurTurn:: dw
|
||||
wCurSpace:: db
|
||||
wCurLevelCoins:: ds 3
|
||||
wCurLevelExp:: ds 3
|
||||
|
Loading…
Reference in New Issue
Block a user