1 files changed, 117 insertions, 0 deletions
diff --git a/scripts/Route1P2.asm b/scripts/Route1P2.asm
new file mode 100644
index 0000000..40c5d6f
--- /dev/null
+++ b/scripts/Route1P2.asm
@@ -0,0 +1,117 @@
+include "constants.asm"
+
+SECTION "scripts/Route1P2.asm", ROMX
+
+Route1P2ScriptLoader::
+	ld hl, Route1P2ScriptPointers
+	call RunMapScript
+	call WriteBackMapScriptNumber
+	ret
+
+Route1P2ScriptPointers:
+	dw Route1P2Script
+	dw Route1P2NPCIDs
+
+Route1P2NPCIDs:
+	db $00
+	db $01
+	db $FF
+
+Route1P2SignPointers:
+	dw Route1P2TextSign1
+
+Route1P2TextPointers::
+	dw Route1P2Text1
+	dw Route1P2Text2
+
+Route1P2Script::
+	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:
+	ld hl, Route1P2TextString4
+	call OpenTextbox
+	call GBFadeOutToBlack
+	jp Init
+
+Route1P2Text2:
+	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:
+	ld hl, Route1P2TextString3
+	call OpenTextbox
+	ret
+
+Route1P2TextSign1:
+	ld hl, Route1P2TextString5
+	call OpenTextbox
+	ret
+
+Route1P2TextString1:
+	text "まあ　かわいらしい　トレーナーやこと"
+	line "うちと　ポケモン　しはります？"
+	done
+
+Route1P2TextString2: ; (unused?)
+	text "いやあ　かんにんやわあ"
+	done
+
+Route1P2TextString3:
+	text "かわいい　かおして　つよおすなあ"
+	line "その　ちょうしで　おきばりやす"
+	done
+
+Route1P2TextString4:
+	text "シゲル『おっ　サトシじゃないか！"
+
+	para "なんとか　ここまで　これた"
+	line "って　かんじだな"
+
+	para "じつりょくが　ないのに"
+	line "むり　するなよな"
+
+	para "もっと　ポケモン　あつめるとか"
+	line "いろんな　ポケモン　そだてるとか"
+	cont "やること　あるだろ？"
+
+	para "ここで　ひきかえしたほうが　いいぜ！"
+	line "じゃあな"
+	done
+
+Route1P2TextString5:
+	text "ここは　１ばん　どうろ"
+	line "サイレントヒル　⋯⋯　オールドシティ"
+	done