mirror of
https://github.com/pret/pokegold-spaceworld.git
synced 2026-04-22 10:17:14 -05:00
265 lines
5.9 KiB
NASM
265 lines
5.9 KiB
NASM
include "constants.asm"
|
||
|
||
SECTION "maps/PlayerHouse2F.asm", ROMX
|
||
|
||
PlayerHouse2FScriptLoader:: ; 418B
|
||
ld hl, PlayerHouse2FScriptPointers
|
||
call RunMapScript
|
||
call WriteBackMapScriptNumber
|
||
ret
|
||
|
||
PlayerHouse2FScriptPointers: ; 4195
|
||
dw PlayerHouse2FScript1
|
||
dw PlayerHouse2FNPCIDs1
|
||
dw PlayerHouse2FScript2
|
||
dw PlayerHouse2FNPCIDs2
|
||
|
||
PlayerHouse2FTextPointers::
|
||
dw PlayerHouse2FText1
|
||
dw PlayerHouse2FDollText
|
||
|
||
PlayerHouse2FNPCIDs1: ; 41A1
|
||
db 0
|
||
db 1
|
||
db $FF
|
||
|
||
PlayerHouse2FNPCIDs2: ; 41A4
|
||
db 1
|
||
db $FF
|
||
|
||
PlayerHouse2FSignPointers: ; 41A6
|
||
dw Function3899
|
||
dw PlayerHouse2FRadioText
|
||
dw PlayerHouse2FComputerText
|
||
dw Function3899
|
||
dw PlayerHouse2FN64Text
|
||
|
||
PlayerHouse2FScript1: ; 41B0
|
||
call PlayerHouse2PositionCheck
|
||
ret z
|
||
ld hl, PlayerHouse2FNPCIDs1
|
||
ld de, PlayerHouse2FSignPointers
|
||
call CallMapTextSubroutine
|
||
ret nz
|
||
ret
|
||
|
||
PlayerHouse2PositionCheck: ; 41BF
|
||
ld hl, wd41a
|
||
bit 0, [hl]
|
||
ret nz
|
||
ld a, [wYCoord]
|
||
cp 1
|
||
ret nz
|
||
ld a, [wXCoord]
|
||
cp 9
|
||
ret nz
|
||
ld hl, wJoypadFlags
|
||
set 6, [hl]
|
||
ld a, LEFT
|
||
ld d, 0
|
||
call SetObjectFacing
|
||
ld hl, PlayerHouse2FTextString2
|
||
call OpenTextbox
|
||
call PlayerHouse2FMovePlayer
|
||
call ClearAccumulator
|
||
ret
|
||
|
||
PlayerHouse2FMovePlayer: ; 41EA
|
||
ld a, 0
|
||
ld hl, Movement
|
||
call LoadMovementDataPointer
|
||
ld hl, wc5ed
|
||
set 7, [hl]
|
||
ld a, 1
|
||
call WriteIntod637
|
||
ret
|
||
|
||
Movement: ; 41FD
|
||
db $08
|
||
db $04
|
||
db $32
|
||
|
||
PlayerHouse2FScript2: ; 4200
|
||
ld hl, PlayerHouse2FNPCIDs2
|
||
ld de, PlayerHouse2FSignPointers
|
||
call CallMapTextSubroutine
|
||
ret
|
||
|
||
PlayerHouse2FText1: ; 420A
|
||
ld hl, wd41a
|
||
bit 3, [hl]
|
||
jr nz, .jump
|
||
ld hl, PlayerHouse2FTextString1
|
||
call OpenTextbox
|
||
ld hl, wd41a
|
||
set 3, [hl]
|
||
ld c, 3
|
||
call DelayFrames
|
||
.jump
|
||
ld hl, PlayerHouse2FTextString2
|
||
call OpenTextbox
|
||
ret
|
||
|
||
PlayerHouse2FDollText: ; 4228
|
||
ld hl, PlayerHouse2FTextString3
|
||
call OpenTextbox
|
||
ret
|
||
|
||
PlayerHouse2FRadioText: ; 422F
|
||
ld hl, PlayerHouse2FTextString9
|
||
call OpenTextbox
|
||
ret
|
||
|
||
PlayerHouse2FComputerText: ; 4236
|
||
ld hl, wd41a
|
||
bit 0, [hl]
|
||
jr nz, .jump
|
||
ld hl, PlayerHouse2FTextString5
|
||
call OpenTextbox
|
||
ret
|
||
|
||
.jump
|
||
; 4244
|
||
call RefreshScreen
|
||
callab Function1477D
|
||
call Function1fea
|
||
ret
|
||
|
||
PlayerHouse2FCheckEmail: ; 4253
|
||
call YesNoBox
|
||
jr c, .jump2
|
||
ld hl, wd41a
|
||
set 0, [hl]
|
||
ld hl, PlayerHouse2FTextString6
|
||
call PrintText
|
||
ret
|
||
|
||
.jump2
|
||
; 4264
|
||
ld hl, PlayerHouse2FTextString7
|
||
call PrintText
|
||
ret
|
||
|
||
PlayerHouse2FN64Text: ; 426B
|
||
ld hl, PlayerHouse2FTextString4
|
||
call OpenTextbox
|
||
ret
|
||
|
||
PlayerHouse2FTextString1: ; 4272
|
||
text "ケン『おっ おまえの うでで"
|
||
line "ひかりかがやく そのとけいは⋯⋯"
|
||
cont "<PLAYER>も ついに"
|
||
cont "トレーナーギアを かったのか！"
|
||
|
||
para "すごいじゃないか！"
|
||
line "でも かったばかりじゃ じかんしか"
|
||
cont "わからないだろ？"
|
||
cont "あとで マップが"
|
||
cont "みられるように してやるよ！"
|
||
cont "おまえ どうせ"
|
||
cont "あそびに いくんだろう？"
|
||
|
||
para "ざんねんながら おふくろは"
|
||
line "かいものに いってるから"
|
||
cont "おこづかいを もらおうなんて"
|
||
cont "きょうは むり だぜ！"
|
||
done
|
||
|
||
PlayerHouse2FTextString2: ; 4332
|
||
text "そうだ おまえの パソコンに"
|
||
line "メールが とどいていたな"
|
||
cont "でかけるんなら"
|
||
cont "メールぐらい よんでおけよ"
|
||
done
|
||
|
||
PlayerHouse2FTextString3: ; 4365
|
||
text "クりスマスに カントーの"
|
||
line "しんせきに プレゼント"
|
||
cont "してもらった にんぎょうだ"
|
||
done
|
||
|
||
PlayerHouse2FTextString4: ; 438D
|
||
text "ニンテンドウ６４を してる！"
|
||
cont "⋯⋯ ⋯⋯ さてと！"
|
||
cont "そろそろ そとに あそびに"
|
||
cont "でかけるか！"
|
||
done
|
||
|
||
PlayerHouse2FTextString5: ; 43BD
|
||
text "<PLAYER>は"
|
||
line "パソコンの スイッチを いれた！"
|
||
|
||
para "おや？ <PLAYER>あてに"
|
||
line "メールが とどいている ようだ"
|
||
cont "よんでみる？@"
|
||
|
||
db $08
|
||
|
||
; 43F3
|
||
call PlayerHouse2FCheckEmail
|
||
call Function3036
|
||
ret
|
||
|
||
PlayerHouse2FTextString6: ; 43FA
|
||
text "とつぜん メールを さしあげる"
|
||
line "しつれいを おゆるしあれ"
|
||
|
||
para "じつは きみに どうしても"
|
||
line "わたしたい ものが あるのじゃが"
|
||
cont "うけとって もらえんかのう"
|
||
cont "ポケモンけんきゅうしゃ オーキド"
|
||
done
|
||
|
||
PlayerHouse2FTextString7: ; 4456
|
||
text "あとで"
|
||
line "よもっと<⋯⋯>"
|
||
done
|
||
|
||
PlayerHouse2FTextString8: ; 4461 (unused?)
|
||
text "しんはつばい トレーナーギア！"
|
||
line "ポケモントレーナーの ための"
|
||
cont "さいせんたんの とけい です"
|
||
|
||
para "じかんが わかるのは あたりまえ"
|
||
line "カセットを ついかすれば"
|
||
cont "ばしょも わかる！ "
|
||
cont "でんわが かけられる！"
|
||
|
||
para "とどめは"
|
||
line "ラジオを きくことができる！"
|
||
|
||
para "もうしこみさきは⋯⋯"
|
||
line "⋯⋯⋯⋯⋯⋯⋯⋯⋯⋯⋯⋯"
|
||
cont "シルフの ホームぺージだ"
|
||
done
|
||
|
||
PlayerHouse2FTextString9: ; 44FE
|
||
text "<PLAYER>は"
|
||
line "ラジオのスイッチを おした！"
|
||
|
||
para "ジェイ オー ピー エム"
|
||
line "こちらは"
|
||
cont "# ほうそうきょく です"
|
||
|
||
para "#ニュースを おおくりします"
|
||
line "<⋯⋯> #の せかいてきな"
|
||
cont "けんきゅうしゃ オーキドはかせが"
|
||
cont "カントー から"
|
||
cont "すがたを けしました"
|
||
cont "あらたな けんきゅうの ばしょを"
|
||
cont "もとめて いどうした との"
|
||
cont "みかたも ありますが"
|
||
cont "なんらかの じけんに まきこまれた"
|
||
cont "かのうせいも あり"
|
||
cont "かんけいしゃは とても"
|
||
cont "しんぱい しています"
|
||
|
||
para "<⋯⋯><⋯⋯>いじょう"
|
||
line "#ニュースでした"
|
||
|
||
para "<⋯⋯><⋯⋯><⋯⋯><⋯⋯><⋯⋯><⋯⋯>"
|
||
line "それでは ひきつづき"
|
||
cont "おんがくを おたのしみ ください"
|
||
done
|
||
|
||
; 45FF |