diff options
Diffstat (limited to 'scripts/SilentHillLabBack.asm')
| -rw-r--r-- | scripts/SilentHillLabBack.asm | 358 |
1 files changed, 358 insertions, 0 deletions
diff --git a/scripts/SilentHillLabBack.asm b/scripts/SilentHillLabBack.asm new file mode 100644 index 0000000..622af89 --- /dev/null +++ b/scripts/SilentHillLabBack.asm @@ -0,0 +1,358 @@ +include "constants.asm" + +SECTION "scripts/SilentHillLabBack.asm", ROMX + +SilentHillLabBackScriptLoader:: + ld hl, SilentHillLabBackScriptPointers + call RunMapScript + call WriteBackMapScriptNumber + ret + +SilentHillLabBackScriptPointers: + 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: + db 00, 01, 02, 03, 04, $FF +SilentHillLabBackNPCIDs2: + db 00, 01, 04, $FF +SilentHillLabBackNPCIDs3: + db 00, 01, 02, $FF +SilentHillLabBackNPCIDs4: + db 00, 01, 03, $FF + +SilentHillLabBackTextPointers:: + dw SilentHillLabBackText1 + dw SilentHillLabBackFunc3 + dw SilentHillLabBackFunc4 + dw SilentHillLabBackFunc4 + dw SilentHillLabBackFunc4 + +SilentHillLabBackScript1: + 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: + db 09, 09, 05, $32 + +SilentHillLabBackScript2: + 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: + ld hl, SilentHillLabBackNPCIDs1 + ld de, SilentHillLabBackTextPointers2 + call CallMapTextSubroutine + ret + +SilentHillLabBackRivalChoosePokemon: + 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: + dw SilentHillLabBackMovement2+1 + dw SilentHillLabBackMovement2 + dw SilentHillLabBackMovement2+2 + +SilentHillLabBackMovement2: + db $0B, $0B, $0B, $0B, $05, $32 + +SilentHillLabBackScript5: + 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: + call Function20f8 + ld hl, wc5ed + res 6, [hl] + ld a, 6 + ld[wMapScriptNumber], a + ret + +SilentHillLabBackScript7: + ld hl, SilentHillLabBackNPCIDs1 + ld de, SilentHillLabBackTextPointers2 + call CallMapTextSubroutine + ret + +SilentHillLabBackText1: + ld hl, wd41b + bit 2, [hl] + ld hl, SilentHillLabBackTextString3 + jr z, .skip + ld hl, SilentHillLabBackTextString9 +.skip + call OpenTextbox + ret + +SilentHillLabBackTextString1: + text "オーキド『ほれ そこに ３びき" + cont "ポケモンが いる じゃろう！" + cont "ほっほ！" + + para "こいつらを きみたちに" + cont "いっぴき づつ やろう！" + cont "⋯⋯ さあ えらべ！" + done + +SilentHillLabBackTextString2: + text "オーキド『まあ" + line "あわてるな <RIVAL>！" + cont "おまえも すきなものを とれ！" + done + +SilentHillLabBackTextString3: + text "オーキド『さあ <PLAYER>" + line "どの ポケモンに するかね？" + done + +SilentHillLabBackTextString4: + text "オーキド『ほう！ ほのおのポケモン" + line "@" + ld bc, wStringBuffer1 + text "に するんじゃな？@" + db 08 + call ConfirmPokemonSelection + call Function3036 + ret + +SilentHillLabBackTextString5: + text "オーキド『ふむ みずのポケモン" + line "@" + ld bc, wStringBuffer1 + text "に きめるのじゃな？@" + db 08 + call ConfirmPokemonSelection + call Function3036 + ret + +SilentHillLabBackTextString6: + text "オーキド『おお！ くさのポケモン" + line "@" + ld bc, wStringBuffer1 + text "が いいんじゃな？@" + db 08 + call ConfirmPokemonSelection + call Function3036 + ret + +ConfirmPokemonSelection: + 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 + ld hl, SilentHillLabBackTextString7 + call PrintText + ret + +SilentHillLabBackTextString7: + text "では" + line "どれに するのじゃ？" + done + +SilentHillLabBackTextString8: + text "オーキド『この ポケモンは" + line "ほんとに げんきが いいぞ！" + + para "<PLAYER>は オーキドはかせから" + line "@" + ld bc, wStringBuffer1 + text "を もらった！<PROMPT>" + +SilentHillLabBackTextString9: + text "オーキド『そうじゃ！" + line "やせいの ポケモンが でて きても" + cont "そいつを たたかわせて いけば" + cont "となりまちへ いける！" + done + +SilentHillLabBackFunc3: + ld hl, wd41b + bit 2, [hl] + ld hl, SilentHillLabBackTextString11 + jr z, .skip + ld hl, SilentHillLabBackTextString14 +.skip + call OpenTextbox + ret + +SilentHillLabBackTextString10: + text "<RIVAL>『あッ！ おれにも！" + line "じいさん おれにもくれよう！" + done + +SilentHillLabBackTextString11: + text "<RIVAL>『いいぜ <PLAYER>！" + line "さきに えらんで！" + cont "おれは こころが ひろいからな" + done + +SilentHillLabBackTextString12: + text "<RIVAL>『じゃ おれは これ！" + done + +SilentHillLabBackTextString13: + text "<RIVAL>は オーキドから" + line "@" + ld bc, wStringBuffer1 + text "を もらった！" + done + +SilentHillLabBackTextString14: + text "<RIVAL>『<PLAYER>の#" + line "いいなあ！" + cont "でも おれのポケモンも" + cont "ちょっと いいだろ？" + done + +SilentHillLabBackFunc4: + 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: + 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: + text "オーキド『これ！" + line "よくばっちゃ いかん！" + done + +SilentHillLabBackTextPointers2: + dw Function3899 + dw Function3899 + dw Function3899 + dw Function3899 + dw MapDefaultText |