mirror of
https://github.com/pret/pokegold-spaceworld.git
synced 2026-04-26 00:05:12 -05:00
fac958b280
- Indent with single tabs, not spaces - Colons after labels - Capitalize BANK, HIGH, and LOW - dbw BANK(X), X -> dba X
361 lines
7.3 KiB
NASM
361 lines
7.3 KiB
NASM
include "constants.asm"
|
||
|
||
SECTION "maps/SilentHillLabBack.asm", ROMX
|
||
|
||
SilentHillLabBackScriptLoader:: ; 5C69
|
||
ld hl, SilentHillLabBackScriptPointers
|
||
call RunMapScript
|
||
call WriteBackMapScriptNumber
|
||
ret
|
||
|
||
SilentHillLabBackScriptPointers: ; 5C73
|
||
dw SilentHillLabBackScript1
|
||
dw SilentHillLabBackNPCIDs1
|
||
dw SilentHillLabBackScript2
|
||
dw SilentHillLabBackNPCIDs1
|
||
dw SilentHillLabBackScript3
|
||
dw SilentHillLabBackNPCIDs1
|
||
dw SilentHillLabBackRivalChoosePokemon
|
||
dw SilentHillLabBackNPCIDs1
|
||
dw SilentHillLabBackScript5
|
||
dw SilentHillLabBackNPCIDs1
|
||
dw SilentHillLabBackScript6
|
||
dw SilentHillLabBackNPCIDs1
|
||
dw SilentHillLabBackScript7
|
||
dw SilentHillLabBackNPCIDs1
|
||
|
||
SilentHillLabBackNPCIDs1: ; 5C8F
|
||
db 00, 01, 02, 03, 04, $FF
|
||
SilentHillLabBackNPCIDs2: ; 5C95
|
||
db 00, 01, 04, $FF
|
||
SilentHillLabBackNPCIDs3: ; 5C99
|
||
db 00, 01, 02, $FF
|
||
SilentHillLabBackNPCIDs4: ; 5C9D
|
||
db 00, 01, 03, $FF
|
||
|
||
SilentHillLabBackTextPointers:: ; 5CA1
|
||
dw SilentHillLabBackText1
|
||
dw SilentHillLabBackFunc3
|
||
dw SilentHillLabBackFunc4
|
||
dw SilentHillLabBackFunc4
|
||
dw SilentHillLabBackFunc4
|
||
|
||
SilentHillLabBackScript1: ; 5CAB
|
||
ld hl, wJoypadFlags
|
||
set 4, [hl]
|
||
ld a, 0
|
||
call Function17f9
|
||
ld a, 0
|
||
ld hl, SilentHillLabBackMovement1
|
||
call LoadMovementDataPointer
|
||
ld hl, wd41b
|
||
set 1, [hl]
|
||
ld hl, wc5ed
|
||
set 7, [hl]
|
||
ld a, 1
|
||
ld [wMapScriptNumber], a
|
||
ld a, 1
|
||
call WriteIntod637
|
||
ret
|
||
|
||
SilentHillLabBackMovement1: ; 5CD2
|
||
db 09, 09, 05, $32
|
||
|
||
SilentHillLabBackScript2: ; 5CD6
|
||
ld hl, wc5ed
|
||
set 6, [hl]
|
||
call Function20f8
|
||
ld a, 3
|
||
ld d, UP
|
||
call SetObjectFacing
|
||
ld hl, SilentHillLabBackTextString1
|
||
call OpenTextbox
|
||
ld hl, SilentHillLabBackTextString10
|
||
call OpenTextbox
|
||
ld hl, SilentHillLabBackTextString2
|
||
call OpenTextbox
|
||
ld a, 2
|
||
ld [wMapScriptNumber], a
|
||
ret
|
||
|
||
SilentHillLabBackScript3: ; 5CFD
|
||
ld hl, SilentHillLabBackNPCIDs1
|
||
ld de, SilentHillLabBackTextPointers2
|
||
call CallMapTextSubroutine
|
||
ret
|
||
|
||
SilentHillLabBackRivalChoosePokemon: ; 5D07
|
||
ld hl, wJoypadFlags
|
||
set 4, [hl]
|
||
ld a, 3
|
||
call Function17f9
|
||
ld hl, SilentHillLabBackMovementPointers
|
||
ld a, [wChosenStarter]
|
||
ld d, 0
|
||
ld e, a
|
||
add hl, de
|
||
add hl, de
|
||
ld a, [hl+]
|
||
ld h, [hl]
|
||
ld l, a
|
||
ld a, 3
|
||
call LoadMovementDataPointer
|
||
ld hl, wc5ed
|
||
set 7, [hl]
|
||
ld a, 4
|
||
ld [wMapScriptNumber], a
|
||
ld a, 1
|
||
call WriteIntod637
|
||
ret
|
||
|
||
SilentHillLabBackMovementPointers: ; 5D34
|
||
dw SilentHillLabBackMovement2+1
|
||
dw SilentHillLabBackMovement2
|
||
dw SilentHillLabBackMovement2+2
|
||
|
||
SilentHillLabBackMovement2: ; 5D3A
|
||
db $0B, $0B, $0B, $0B, $05, $32
|
||
|
||
SilentHillLabBackScript5: ; 5D40
|
||
ld hl, SilentHillLabBackTextString12
|
||
call OpenTextbox
|
||
ld a, [wd266]
|
||
ld [wNamedObjectIndexBuffer], a
|
||
call GetPokemonName
|
||
ld hl, SilentHillLabBackTextString13
|
||
call OpenTextbox
|
||
ld a, 5
|
||
ld [wMapScriptNumber], a
|
||
ret
|
||
|
||
SilentHillLabBackScript6: ; 5D5B
|
||
call Function20f8
|
||
ld hl, wc5ed
|
||
res 6, [hl]
|
||
ld a, 6
|
||
ld[wMapScriptNumber], a
|
||
ret
|
||
|
||
SilentHillLabBackScript7: ; 5D69
|
||
ld hl, SilentHillLabBackNPCIDs1
|
||
ld de, SilentHillLabBackTextPointers2
|
||
call CallMapTextSubroutine
|
||
ret
|
||
|
||
SilentHillLabBackText1: ; 5D73
|
||
ld hl, wd41b
|
||
bit 2, [hl]
|
||
ld hl, SilentHillLabBackTextString3
|
||
jr z, .skip
|
||
ld hl, SilentHillLabBackTextString9
|
||
.skip
|
||
call OpenTextbox
|
||
ret
|
||
|
||
SilentHillLabBackTextString1: ; 5D84
|
||
text "オーキド『ほれ そこに ３びき"
|
||
cont "ポケモンが いる じゃろう！"
|
||
cont "ほっほ！"
|
||
|
||
para "こいつらを きみたちに"
|
||
cont "いっぴき づつ やろう！"
|
||
cont "⋯⋯ さあ えらべ！"
|
||
done
|
||
|
||
SilentHillLabBackTextString2: ; 5DCD
|
||
text "オーキド『まあ"
|
||
line "あわてるな <RIVAL>！"
|
||
cont "おまえも すきなものを とれ！"
|
||
done
|
||
|
||
SilentHillLabBackTextString3: ; 5DEF
|
||
text "オーキド『さあ <PLAYER>"
|
||
line "どの ポケモンに するかね？"
|
||
done
|
||
|
||
SilentHillLabBackTextString4: ; 5E1C
|
||
text "オーキド『ほう！ ほのおのポケモン"
|
||
line "@"
|
||
ld bc, wStringBuffer1
|
||
text "に するんじゃな？@"
|
||
db 08
|
||
call ConfirmPokemonSelection
|
||
call Function3036
|
||
ret
|
||
|
||
SilentHillLabBackTextString5: ; 5E32
|
||
text "オーキド『ふむ みずのポケモン"
|
||
line "@"
|
||
ld bc, wStringBuffer1
|
||
text "に きめるのじゃな？@"
|
||
db 08
|
||
call ConfirmPokemonSelection
|
||
call Function3036
|
||
ret
|
||
|
||
SilentHillLabBackTextString6: ; 5E6E
|
||
text "オーキド『おお！ くさのポケモン"
|
||
line "@"
|
||
ld bc, wStringBuffer1
|
||
text "が いいんじゃな？@"
|
||
db 08
|
||
call ConfirmPokemonSelection
|
||
call Function3036
|
||
ret
|
||
|
||
ConfirmPokemonSelection: ; 5E85
|
||
call YesNoBox
|
||
jr c, .bigJump
|
||
ld hl, wd41b
|
||
set 2, [hl]
|
||
ld a, 1
|
||
ld [wd29b], a
|
||
ld a, 1
|
||
ld [wd29a], a
|
||
ld a, 1
|
||
ld [wd2a0], a
|
||
ld hl, SilentHillLabBackTextString8
|
||
call PrintText
|
||
ld hl, wJoypadFlags
|
||
set 5, [hl]
|
||
ld a, [wd265]
|
||
ld [wMonDexIndex], a
|
||
ld a, 5
|
||
ld [wCurPartyLevel], a
|
||
callab Function60a0
|
||
xor a
|
||
ld [wPartyMon1 + 1], a
|
||
ld a, 3
|
||
ld [wMapScriptNumber], a
|
||
ret
|
||
.bigJump ; 5EC6
|
||
ld hl, SilentHillLabBackTextString7
|
||
call PrintText
|
||
ret
|
||
|
||
SilentHillLabBackTextString7: ; 5ECD
|
||
text "では"
|
||
line "どれに するのじゃ？"
|
||
done
|
||
|
||
SilentHillLabBackTextString8: ; 5EDC
|
||
text "オーキド『この ポケモンは"
|
||
line "ほんとに げんきが いいぞ！"
|
||
|
||
para "<PLAYER>は オーキドはかせから"
|
||
line "@"
|
||
ld bc, wStringBuffer1
|
||
text "を もらった！<PROMPT>"
|
||
|
||
SilentHillLabBackTextString9: ; 5F14
|
||
text "オーキド『そうじゃ！"
|
||
line "やせいの ポケモンが でて きても"
|
||
cont "そいつを たたかわせて いけば"
|
||
cont "となりまちへ いける！"
|
||
done
|
||
|
||
SilentHillLabBackFunc3: ; 5F4E
|
||
ld hl, wd41b
|
||
bit 2, [hl]
|
||
ld hl, SilentHillLabBackTextString11
|
||
jr z, .skip
|
||
ld hl, SilentHillLabBackTextString14
|
||
.skip
|
||
call OpenTextbox
|
||
ret
|
||
|
||
SilentHillLabBackTextString10: ; 5F5F
|
||
text "<RIVAL>『あッ！ おれにも！"
|
||
line "じいさん おれにもくれよう！"
|
||
done
|
||
|
||
SilentHillLabBackTextString11: ; 5F7B
|
||
text "<RIVAL>『いいぜ <PLAYER>！"
|
||
line "さきに えらんで！"
|
||
cont "おれは こころが ひろいからな"
|
||
done
|
||
|
||
SilentHillLabBackTextString12: ; 5F9F
|
||
text "<RIVAL>『じゃ おれは これ！"
|
||
done
|
||
|
||
SilentHillLabBackTextString13: ; 5FAD
|
||
text "<RIVAL>は オーキドから"
|
||
line "@"
|
||
ld bc, wStringBuffer1
|
||
text "を もらった！"
|
||
done
|
||
|
||
SilentHillLabBackTextString14: ; 5FC5
|
||
text "<RIVAL>『<PLAYER>の#"
|
||
line "いいなあ！"
|
||
cont "でも おれのポケモンも"
|
||
cont "ちょっと いいだろ？"
|
||
done
|
||
|
||
SilentHillLabBackFunc4: ; 5FE9
|
||
ld hl, wd41b
|
||
bit 2, [hl]
|
||
jr nz, .bigjump
|
||
ldh a, [hFFEA]
|
||
sub 2
|
||
ld [wChosenStarter], a
|
||
ld d, 0
|
||
ld e, a
|
||
ld hl, SilentHillLabBackStarterData
|
||
add hl, de
|
||
add hl, de
|
||
add hl, de
|
||
add hl, de
|
||
ld a, [hl+]
|
||
ld [wd265], a
|
||
push hl
|
||
ld [wNamedObjectIndexBuffer], a
|
||
callba Function6734
|
||
ld a, [wd265]
|
||
ld [wNamedObjectIndexBuffer], a
|
||
call GetPokemonName
|
||
pop hl
|
||
push hl
|
||
ld a, [hl+]
|
||
ld h, [hl]
|
||
ld l, a
|
||
call OpenTextbox
|
||
pop hl
|
||
inc hl
|
||
inc hl
|
||
ld a, [hl]
|
||
ld [wd266], a
|
||
ret
|
||
.bigjump
|
||
ld hl, SilentHillLabBackTextString15
|
||
call OpenTextbox
|
||
ret
|
||
|
||
SilentHillLabBackStarterData: ; 6031
|
||
db DEX_HONOGUMA
|
||
dw SilentHillLabBackTextString4
|
||
db DEX_KURUSU
|
||
|
||
db DEX_KURUSU
|
||
dw SilentHillLabBackTextString5
|
||
db DEX_HAPPA
|
||
|
||
db DEX_HAPPA
|
||
dw SilentHillLabBackTextString6
|
||
db DEX_HONOGUMA
|
||
|
||
SilentHillLabBackTextString15: ; 603D
|
||
text "オーキド『これ！"
|
||
line "よくばっちゃ いかん！"
|
||
done
|
||
|
||
SilentHillLabBackTextPointers2: ; 6053
|
||
dw Function3899
|
||
dw Function3899
|
||
dw Function3899
|
||
dw Function3899
|
||
dw MapDefaultText
|
||
|
||
; 605D
|