Build files in maps/

1 files changed, 265 insertions, 0 deletions

diff --git a/maps/PlayerHouse2F.asm b/maps/PlayerHouse2F.asm
new file mode 100644
index 0000000..f2be5e1
--- /dev/null
+++ b/maps/PlayerHouse2F.asm
@@ -0,0 +1,265 @@
+include "constants.asm"
+
+SECTION "Player's House 2F", ROMX[$418B], BANK[$34]
+
+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
\ No newline at end of file