INCLUDE "constants.asm" SECTION "scripts/SilentHill.asm", ROMX SilentHill_ScriptLoader:: ld hl, SilentHillScriptPointers1 call RunMapScript call WriteBackMapScriptNumber ret SilentHillNPCIDs1: db 0 db 2 db 3 db $FF SilentHillNPCIDs2: db 2 db 3 db $FF SilentHillNPCIDs3: db 1 db 2 db 3 db $FF SilentHillScriptPointers1: dw SilentHillScript1 dw SilentHillNPCIDs1 SilentHillScriptPointers2: dw SilentHillScript2 dw SilentHillNPCIDs1 SilentHillScriptPointers3: dw SilentHillScript3 dw SilentHillNPCIDs1 SilentHillScriptPointers4: dw SilentHillScript4 dw SilentHillNPCIDs2 SilentHillScriptPointers5: dw SilentHillScript5 dw SilentHillNPCIDs3 SilentHillScriptPointers6: dw SilentHillScript6 dw SilentHillNPCIDs2 SilentHillScriptPointers7: dw SilentHillScript7 dw SilentHillNPCIDs2 SilentHillScript1: ld a, [wYCoord] cp 5 ret nz ld a, [wXCoord] cp 5 ret nz ld hl, wJoypadFlags set 4, [hl] ld a, 02 call Function17f9 ld a, 02 ld hl, SilentHillMovement1 call LoadMovementDataPointer ld hl, wc5ed set 7, [hl] ld a, 1 ld [wMapScriptNumber], a ld a, 1 call WriteIntod637 ret SilentHillMovement1: db $0D db $0D db $0D db $09 db $05 db $02 db $32 SilentHillScript2: ld a, 0 ld d, RIGHT call SetObjectFacing ld hl, SilentHillTextRival1 call OpenTextbox ld hl, SilentHillTextRival2 call OpenTextbox ld hl, wJoypadFlags set 4, [hl] ld a, 2 ld hl, SilentHillMovement2 call LoadMovementDataPointer ld hl, wc5ed set 7, [hl] ld a, 1 call WriteIntod637 ld a, 2 ld [wMapScriptNumber], a ret SilentHillMovement2: db $00, $04, $08, $0C, $0C, $0C, $33 SilentHillScript3: call Function1848 ld a, 3 ld [wMapScriptNumber], a call InitUnknownBuffercc9e ret SilentHillScript4: ld a, [wXCoord] cp 0 jr nz, .bigjump ld a, [wYCoord] cp 8 jr z, .jump cp 09 jr nz, .bigjump .jump call Function776a ld hl, SilentHillTextNorthExit call OpenTextbox ld hl, wJoypadFlags set 4, [hl] ld a, 3 call Function15ed ld a, 3 call Function17f9 ld a, [wYCoord] cp 9 jr z, .jump2 ld hl, SilentHillMovement3 jr .skip .jump2 ld hl, SilentHillMovement4 .skip ld a, 03 call LoadMovementDataPointer ld hl, wc5ed set 7, [hl] ld a, 1 call WriteIntod637 ld a, 4 ld [wMapScriptNumber], a ret .bigjump ld hl, SilentHillNPCIDs2 ld de, SilentHillSignPointers call CallMapTextSubroutine ret Function776a: ld hl, wd41a set 7, [hl] ld a, 1 ld hl, wd29d ld [hl], a ret SilentHillMovement3: db $0A, $0A, $0A, $09, $0A, $06, $02, $32 SilentHillMovement4: db $0A, $0A, $0A, $0A, $06, $02, $32 SilentHillScript5: ld a, 0 ld d, RIGHT call SetObjectFacing ld hl, SilentHillTextPokemonInGrassString call OpenTextbox ld hl, wJoypadFlags set 4, [hl] ld a, 3 call Function17f9 ld a, 0 call Function186a ld b, 3 ld c, 0 call StartFollow ld a, [wYCoord] cp 9 jr z, .jump ld hl, SilentHillMovement5 jr .skip .jump ld hl, SilentHillMovement6 .skip ld a, 3 call LoadMovementDataPointer ld hl, wc5ed set 7, [hl] ld a, 1 call WriteIntod637 ld a, 5 ld [wMapScriptNumber], a ret SilentHillMovement5: db $0B, $0B, $0B, $0B, $0B, $0B, $08, $08, $08, $08, $0B, $0B, $0B, $0B, $0B, $0B, $0B, $0B, $05, $33 SilentHillMovement6: db $0B, $0B, $0B, $0B, $0B, $0B, $08, $08, $08, $0B, $0B, $0B, $0B, $0B, $0B, $0B, $0B, $05, $33 SilentHillScript6: ld hl, SilentHillNPCIDs2 ld de, SilentHillSignPointers call CallMapTextSubroutine ld hl, wd41b bit 2, [hl] ret z ld a, $12 ld [wd29d], a ld a, 6 ld [wMapScriptNumber], a ret SilentHillScript7: call CheckLabDoor ret z ld hl, SilentHillNPCIDs2 ld de, SilentHillSignPointers call CallMapTextSubroutine ret CheckLabDoor: ld a, [wYCoord] cp $C ret nz ld a, [wXCoord] cp $E jr z, .jump ld a, [wXCoord] cp $F ret nz .jump ldh a, [hJoyState] bit 6, a ret z ld a, 0 ld d, UP call SetObjectFacing ld hl, wJoypadFlags set 6, [hl] ld hl, SilentHillTextString1 call OpenTextbox call LabClosed call ClearAccumulator ret LabClosed: ld a, 0 ld hl, SilentHillMovement7 call LoadMovementDataPointer ld hl, wc5ed set 7, [hl] ld a, 1 call WriteIntod637 ret SilentHillTextString1: text "あれ？　カギが　かかっている" done SilentHillMovement7: db $04, $32 SilentHillSignPointers:: dw SilentHillPlayerHouseText dw Function38c6 dw SilentHillSignText1 dw SilentHillLabText dw SilentHillRivalHouseText SilentHillLabText: ld hl, SilentHillTextString2 call OpenTextbox ret SilentHillTextString2: text "にゅうきょしゃ　ぼしゅうちゅう！" done SilentHillSignText1: ld hl, SilentHillTextString3 call OpenTextbox ret SilentHillTextString3: text "ここは　サイレント　ヒル" line "しずかな　おか" done SilentHillPlayerHouseText: ld hl, SilentHillTextString4 call OpenTextbox ret SilentHillTextString4: text "ここは　　のいえ" done SilentHillRivalHouseText: ld hl, SilentHillTextString5 call OpenTextbox ret SilentHillTextString5: text "ここは　　のいえ" done SilentHill_TextPointers:: dw SilentHillTextRival1 ; west dw SilentHillTextNorthExit ; north dw SilentHillTextBackpack ; npc1 dw SilentHillTextPokemonHate ; npc2 SilentHillTextRival1: text "『よう　ちょっと　おまえに" cont "じまん　したいことが" cont "あってきたんだよ" para "おれ　あの　ゆうめいなオーキドから" line "メール　もらっちゃった！" cont "え？　おまえにも　きたの？" cont "ちぇっ！　つまんねーの！" para "⋯⋯ふん！" line "じゃあさ　じゃあさー　おまえさー" cont "じぶんの　ははおや　のこと" cont "いつも　なんて　よんでる？@" db $08 LoadMomNamePromptUnused: call LoadStandardMenuHeader callab MomNamePrompt call CloseWindow call GetMemSGBLayout call UpdateSprites call UpdateTimePals jp Function3036 MomNameMenuHeaderUnused: db MENU_BACKUP_TILES ; flags menu_coords 00, 00, 10, 11 dw .MomNameMenuDataUnused db 01 ; initial selection .MomNameMenuDataUnused: db STATICMENU_CURSOR db 04 ; items db "じぶんで　きめる@" db "おかあさん　@" db "ママ@" db "かあちゃん@" SilentHillTextRival2: ; BYTE OFF text "『えー　かっこわりい！" line "そんな　こどもっぽい" cont "よびかた　してるなんて" cont "おわらいだぜ！" cont"あー　ちょっとだけ　すっきりした！" para "そんじゃあ" line "おれは　ひとあし　おさきに" cont "オーキドのところへ" cont "いくことに　するぜ！" done SilentHillTextNorthExit: text "ちょいまち！" line "まってよ！　まてっ　てば！" done SilentHillTextPokemonInGrassString: text "きみは　まったく" line "なんにも　しらないんだね！" cont "くさむらでは" cont "やせいの　ポケモンが　とびだす！" para "じぶんも　ポケモンを" line "もって　いれば" cont "たたかえるんだ⋯⋯" para "あっ！　ひょっとして　きみは" line "⋯⋯ちょっと" cont "ぼくに　ついて　きて！" done SilentHillTextBackpack: ld hl, SilentHillTextBackpackString call OpenTextbox ret SilentHillTextBackpackString: text "あなたの　りュック　かっこいいわよ" line "どこで　てに　いれたの？" done SilentHillTextPokemonHate: ld hl, SilentHillTextPokemonHateString call OpenTextbox ret SilentHillTextPokemonHateString: text "よのなかに　ポケモンが　きらいな" line "ひとは　いるのかな？" done