include "constants.asm"

SECTION "maps/Route1P2.asm", ROMX

Route1P2ScriptLoader:: ; 7C67
	ld hl, Route1P2ScriptPointers
	call RunMapScript
	call WriteBackMapScriptNumber
	ret

Route1P2ScriptPointers:
	dw Route1P2Script
	dw Route1P2NPCIDs

Route1P2NPCIDs: ; 7C76
	db $00
	db $01
	db $FF

Route1P2SignPointers:
	dw Route1P2TextSign1

Route1P2TextPointers::
	dw Route1P2Text1
	dw Route1P2Text2

Route1P2Script:: ; 7C7F
	ld a, [wYCoord]
	cp $06
	jr nz, .skipCheck
	ld a, [wXCoord]
	cp $09
	jr nz, .skipCheck
	ld a, 0 ; player
	ld d, LEFT
	call SetObjectFacing
	ld a, 2
	ld d, RIGHT
	call SetObjectFacing
	jr .endDemo
.skipCheck
	ld hl, Route1P2NPCIDs ;data
	ld de, Route1P2SignPointers ;start of textld pointers?
	call CallMapTextSubroutine
	ret

.endDemo
Route1P2Text1: ; 7CA7
	ld hl, Route1P2TextString4
	call OpenTextbox
	call GBFadeOutToBlack
	jp Init

Route1P2Text2: ; 7CB3
	ld hl, $D3A2 ; trainer flags?
	bit 1, [hl]
	jr nz, .Text2Jump ; already fought
	ld hl, Route1P2TextString1
	call OpenTextbox
	ld hl, $D3A2
	set 1, [hl]
	ld a, $3C
	ld [wce02], a
	ld a, $02
	ld [wce05], a
	ld hl, wc5ed
	set 7, [hl]
	ld a, $08
	ld [wd637], a
	ret

.Text2Jump
Route1P2Text3: ; 7CDA
	ld hl, Route1P2TextString3
	call OpenTextbox
	ret

Route1P2TextSign1: ; 7CE1
	ld hl, Route1P2TextString5
	call OpenTextbox
	ret

Route1P2TextString1: ; 7CE8
	text "まあ　かわいらしい　トレーナーやこと"
	line "うちと　ポケモン　しはります？"
	done

Route1P2TextString2: ; 7D0C (unused?)
	text "いやあ　かんにんやわあ"
	done

Route1P2TextString3: ; 7D19
	text "かわいい　かおして　つよおすなあ"
	line "その　ちょうしで　おきばりやす"
	done

Route1P2TextString4: ; 7D3B
	text "シゲル『おっ　サトシじゃないか！"
	
	para "なんとか　ここまで　これた"
	line "って　かんじだな"
	
	para "じつりょくが　ないのに"
	line "むり　するなよな"
	
	para "もっと　ポケモン　あつめるとか"
	line "いろんな　ポケモン　そだてるとか"
	cont "やること　あるだろ？"
	
	para "ここで　ひきかえしたほうが　いいぜ！"
	line "じゃあな"
	done

Route1P2TextString5: ; 7DBD
	text "ここは　１ばん　どうろ"
	line "サイレントヒル　⋯⋯　オールドシティ"
	done

;7DDD