mirror of
https://github.com/pret/pokegold-spaceworld.git
synced 2026-09-26 13:32:48 -04:00
Rangi
387 lines
6.3 KiB
NASM
387 lines
6.3 KiB
NASM
Checksum::
|
||
push de
|
||
xor a
|
||
ld d, a
|
||
.loop
|
||
ld a, [hli]
|
||
add d
|
||
ld d, a
|
||
dec bc
|
||
ld a, b
|
||
or c
|
||
jr nz, .loop
|
||
ld a, d
|
||
cpl
|
||
pop de
|
||
ret
|
||
|
||
EmptyAllSRAMBanks::
|
||
ld a, 0
|
||
call .EmptyBank
|
||
call InitOptions
|
||
ld a, 1
|
||
call .EmptyBank
|
||
ld a, 2
|
||
call .EmptyBank
|
||
ld a, 3
|
||
call .EmptyBank
|
||
call CloseSRAM
|
||
ret
|
||
|
||
.EmptyBank:
|
||
call OpenSRAM
|
||
ld hl, STARTOF(SRAM)
|
||
ld bc, SIZEOF(SRAM)
|
||
ld a, $ff
|
||
call ByteFill
|
||
ret
|
||
|
||
SaveMenu::
|
||
call PrintSaveScreenText
|
||
ld hl, WouldYouLikeToSaveTheGameText
|
||
call SaveTheGame_yesorno
|
||
and a
|
||
jr nz, .done
|
||
call VerifyChecksum
|
||
ld hl, wSaveFileFlags
|
||
bit NEW_FILE_F, [hl]
|
||
res NEW_FILE_F, [hl]
|
||
jr nz, .next
|
||
|
||
bit ANOTHER_FILE_EXISTS_F, [hl]
|
||
res ANOTHER_FILE_EXISTS_F, [hl]
|
||
jr nz, .another_save_file
|
||
|
||
ld hl, AlreadyASaveFileText
|
||
call SaveTheGame_yesorno
|
||
and a
|
||
jr nz, .done
|
||
|
||
jr .next
|
||
|
||
.another_save_file:
|
||
ld hl, AnotherSaveFileText
|
||
call SaveTheGame_yesorno
|
||
and a
|
||
jr nz, .done
|
||
|
||
.next
|
||
ld hl, wSaveFileFlags
|
||
set 0, [hl]
|
||
ld hl, wDebugFlags
|
||
set SAVE_FILE_EXISTS_F, [hl]
|
||
call SaveOptionsAndGameData
|
||
call SavePokemonData
|
||
call Dummy_SaveBox
|
||
ld c, 32
|
||
call DelayFrames
|
||
ld hl, SavedTheGameText
|
||
call MenuTextBox
|
||
ld de, SFX_SAVE
|
||
call WaitPlaySFX
|
||
call WaitSFX
|
||
ld c, 30
|
||
call DelayFrames
|
||
call ExitMenu
|
||
|
||
.done
|
||
call ExitMenu
|
||
ret
|
||
|
||
SaveTheGame_yesorno:
|
||
call MenuTextBox
|
||
lb bc, 0, 7
|
||
call PlaceYesNoBox
|
||
ld a, [wMenuCursorY]
|
||
dec a
|
||
call CloseWindow
|
||
ret
|
||
|
||
WouldYouLikeToSaveTheGameText:
|
||
text "ここまでの かつやくを"
|
||
line "#レポートに かきこみますか？"
|
||
done
|
||
|
||
SavedTheGameText:
|
||
text "<PLAYER>は"
|
||
line "レポートに しっかり かきのこした！"
|
||
done
|
||
|
||
AlreadyASaveFileText:
|
||
text "まえに かかれた レポートが"
|
||
line "きえて しまいますが"
|
||
cont "うえから かいても いいですか？"
|
||
done
|
||
|
||
AnotherSaveFileText:
|
||
text "まえに かかれた レポート が"
|
||
line "こんかいと ちがう もの ですが"
|
||
cont "うえから かいても いいですか？"
|
||
done
|
||
|
||
VerifyChecksum::
|
||
ld a, BANK(sChecksum)
|
||
call OpenSRAM
|
||
ld a, [sChecksum + 2]
|
||
ldh [hChecksum], a
|
||
cp $ff
|
||
jr nz, .file_exists
|
||
ld hl, wSaveFileFlags
|
||
set NEW_FILE_F, [hl]
|
||
jr .done
|
||
|
||
.file_exists
|
||
ld a, BANK(sGameData)
|
||
call OpenSRAM
|
||
ld hl, sGameData
|
||
ld bc, sGameDataEnd - sGameData
|
||
call Checksum
|
||
ld b, a
|
||
ldh a, [hChecksum]
|
||
cp b
|
||
jr z, .done
|
||
ld hl, wSaveFileFlags
|
||
set ANOTHER_FILE_EXISTS_F, [hl]
|
||
.done
|
||
call CloseSRAM
|
||
ret
|
||
|
||
PrintSaveScreenText::
|
||
xor a
|
||
ldh [hBGMapMode], a
|
||
ld hl, .MenuHeader
|
||
call LoadMenuHeader
|
||
call MenuBox
|
||
call PlaceVerticalMenuItems
|
||
farcall PrintSaveScreenNumbers
|
||
call LoadFontExtra
|
||
call UpdateSprites
|
||
ld a, 1
|
||
ldh [hBGMapMode], a
|
||
ld c, 20
|
||
call DelayFrames
|
||
ret
|
||
|
||
.MenuHeader:
|
||
db MENU_BACKUP_TILES
|
||
menu_coords 5, 0, 19, 9
|
||
dw .MenuData
|
||
db 1
|
||
|
||
.MenuData:
|
||
db STATICMENU_PLACE_TITLE
|
||
db 4
|
||
db "しゅじんこう <PLAYER>@"
|
||
db "もっているバッジ こ@"
|
||
db "#ずかん ひき@"
|
||
db "プレイじかん@"
|
||
db 6
|
||
db "テスト@" ; "TEST"
|
||
|
||
SaveOptionsAndGameData::
|
||
ld a, BANK(sOptions)
|
||
call OpenSRAM
|
||
ld hl, wOptions
|
||
ld de, sOptions
|
||
ld bc, wGameDataEnd - wOptions
|
||
call CopyBytes
|
||
ld hl, wGameData2
|
||
ld de, sGameData2
|
||
ld bc, wGameData2End - wGameData2
|
||
call CopyBytes
|
||
|
||
ld a, BANK(sChecksum)
|
||
call OpenSRAM
|
||
ld hl, wGameData
|
||
ld bc, wGameDataEnd - wGameData
|
||
call Checksum
|
||
ld [sChecksum + 2], a
|
||
ld hl, wGameData2
|
||
ld bc, wGameData2End - wGameData2
|
||
call Checksum
|
||
ld [sChecksum + 1], a
|
||
call CloseSRAM
|
||
ret
|
||
|
||
SavePokemonData::
|
||
ld a, BANK(sPokemonData)
|
||
call OpenSRAM
|
||
ld hl, wPokemonData
|
||
ld de, sPokemonData
|
||
ld bc, wPokemonDataEnd - wPokemonData
|
||
call CopyBytes
|
||
|
||
ld a, BANK(sChecksum)
|
||
call OpenSRAM
|
||
ld hl, wPokemonData
|
||
ld bc, wPokemonDataEnd - wPokemonData
|
||
call Checksum
|
||
ld [sChecksum], a
|
||
call CloseSRAM
|
||
ret
|
||
|
||
; Dummied out with a ret, but it seemingly works.
|
||
Dummy_SaveBox::
|
||
ret
|
||
|
||
ld a, [wCurBox]
|
||
ldh [hTempCurBox], a
|
||
call .SaveBox
|
||
ret
|
||
|
||
.SaveBox:
|
||
ldh a, [hTempCurBox]
|
||
dec a
|
||
push af
|
||
cp NUM_BOXES / 2
|
||
ld a, BANK("Boxes 6-10")
|
||
jr nc, .next
|
||
ld a, BANK("Boxes 1-5")
|
||
.next
|
||
call OpenSRAM
|
||
pop af
|
||
add a
|
||
ld d, 0
|
||
ld e, a
|
||
ld hl, .BoxAddresses
|
||
add hl, de
|
||
ld a, [hli]
|
||
ld d, [hl]
|
||
ld e, a
|
||
ld hl, wBox
|
||
ld bc, wBoxEnd - wBox
|
||
call CopyBytes
|
||
call CloseSRAM
|
||
ret
|
||
|
||
.BoxAddresses:
|
||
for n, 1, NUM_BOXES + 1
|
||
dw sBox{d:n}
|
||
endr
|
||
|
||
; Note that unlike the release versions of Red & Green or Gold & Silver, there's nothing to stop you from loading
|
||
; a corrupted file. The message will be displayed, but otherwise the game continues as normal.
|
||
TryLoadSaveFile::
|
||
call ClearTileMap
|
||
call LoadFont
|
||
call LoadFontExtra
|
||
call TryLoadSaveData
|
||
jr c, .corrupt
|
||
call TryLoadPokemonData
|
||
jr c, .corrupt
|
||
ret
|
||
|
||
.corrupt
|
||
ld hl, wOptions
|
||
push hl
|
||
set NO_TEXT_SCROLL_F, [hl]
|
||
ld hl, .SaveFileCorruptedText
|
||
call PrintText
|
||
ld c, 100
|
||
call DelayFrames
|
||
pop hl
|
||
res NO_TEXT_SCROLL_F, [hl]
|
||
ret
|
||
|
||
.SaveFileCorruptedText:
|
||
text "レポートの ないようが"
|
||
line "こわれています！！"
|
||
prompt
|
||
|
||
TryLoadSaveData:
|
||
call CheckSaveFileChecksum
|
||
jr nz, .corrupt
|
||
|
||
ld a, BANK(sGameData)
|
||
call OpenSRAM
|
||
ld hl, sGameData
|
||
ld de, wGameData
|
||
ld bc, wGameDataEnd - wGameData
|
||
call CopyBytes
|
||
|
||
ld hl, sGameData2
|
||
ld de, wGameData2
|
||
ld bc, wGameData2End - wGameData2
|
||
call CopyBytes
|
||
jr .done
|
||
|
||
.corrupt
|
||
scf
|
||
.done
|
||
call CloseSRAM
|
||
ret
|
||
|
||
CheckSaveFileChecksum:
|
||
ld a, BANK(sChecksum)
|
||
call OpenSRAM
|
||
ld a, [sChecksum + 2]
|
||
ldh [hChecksum], a
|
||
ld a, [sChecksum + 1]
|
||
ldh [hChecksum + 1], a
|
||
ld a, [sChecksum + 0]
|
||
ldh [hChecksum + 2], a
|
||
|
||
ld a, BANK(sGameData)
|
||
call OpenSRAM
|
||
ld hl, sGameData
|
||
ld bc, wGameDataEnd - wGameData
|
||
call Checksum
|
||
ld b, a
|
||
ldh a, [hChecksum]
|
||
cp b
|
||
jr nz, .corrupt
|
||
|
||
ld hl, sGameData2
|
||
ld bc, wGameData2End - wGameData2
|
||
call Checksum
|
||
ld b, a
|
||
ldh a, [hChecksum + 1]
|
||
cp b
|
||
jr nz, .corrupt
|
||
|
||
ld a, BANK(sPokemonData)
|
||
call OpenSRAM
|
||
ld hl, sPokemonData
|
||
ld bc, wPokemonDataEnd - wPokemonData
|
||
call Checksum
|
||
ld b, a
|
||
ldh a, [hChecksum + 2]
|
||
cp b
|
||
|
||
.corrupt
|
||
push af
|
||
call CloseSRAM
|
||
pop af
|
||
ret
|
||
|
||
TryLoadPokemonData:
|
||
ld a, BANK(sChecksum)
|
||
call OpenSRAM
|
||
ld a, [sChecksum]
|
||
ldh [hChecksum + 2], a
|
||
|
||
ld a, BANK(sPokemonData)
|
||
call OpenSRAM
|
||
ld hl, sPokemonData
|
||
ld bc, wPokemonDataEnd - wPokemonData
|
||
call Checksum
|
||
ld b, a
|
||
ldh a, [hChecksum + 2]
|
||
cp b
|
||
jr nz, .corrupt
|
||
|
||
ld hl, sPokemonData
|
||
ld de, wPokemonData
|
||
ld bc, wPokemonDataEnd - wPokemonData
|
||
call CopyBytes
|
||
jr .done
|
||
|
||
.corrupt
|
||
scf
|
||
.done
|
||
call CloseSRAM
|
||
ret
|
||
|
||
; Unreferenced
|
||
ret
|