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