pokehacks/pokecrystal-board
0
0
Fork 0
mirror of https://gitlab.com/xCrystal/pokecrystal-board.git synced 2024-09-09 09:51:34 -07:00
Code Issues Packages Projects Releases Wiki Activity

Implement unlocking levels [Commit 3/3] (#35)

Browse Source
This commit is contained in:
xCrystal 2024-01-21 12:26:13 +01:00
parent 4172760b6d
commit 008d796321
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
engine/menus/cleared_level_screen.asm
View File

@ -76,6 +76,10 @@ ClearLevel:
ret ret
UnlockLevels: UnlockLevels:
call ComputeLevelsToUnlock
jp SaveUnlockedLevels
ComputeLevelsToUnlock:
ld hl, LevelUnlockRequirements ld hl, LevelUnlockRequirements
ld de, wUnlockedLevels - 1 ld de, wUnlockedLevels - 1
ld b, 0 ld b, 0
@ -203,4 +207,17 @@ GetClearedLevelsStageAddress:
ld hl, wClearedLevelsStage4 ld hl, wClearedLevelsStage4
ret ret
SaveUnlockedLevels:
ld hl, wTempUnlockedLevels
.loop
ld a, [hli]
ld e, a
inc a ; cp $ff
ret z
push hl
ld b, SET_FLAG
call UnlockedLevelsFlagAction
pop hl
jr .loop
INCLUDE "data/levels/levels.asm" INCLUDE "data/levels/levels.asm"