1 files changed, 107 insertions, 0 deletions
diff --git a/scripts/NameRatersHouse.asm b/scripts/NameRatersHouse.asm
new file mode 100755
index 00000000..323cb360
--- /dev/null
+++ b/scripts/NameRatersHouse.asm
@@ -0,0 +1,107 @@
+NameRatersHouse_Script:
+	jp EnableAutoTextBoxDrawing
+
+NameRaterScript_1da15:
+	call PrintText
+	call YesNoChoice
+	ld a, [wCurrentMenuItem]
+	and a
+	ret
+
+NameRaterScript_1da20:
+	ld hl, wPartyMonOT
+	ld bc, NAME_LENGTH
+	ld a, [wWhichPokemon]
+	call AddNTimes
+	ld de, wPlayerName
+	ld c, NAME_LENGTH
+	call .asm_1da47
+	jr c, .asm_1da52
+	ld hl, wPartyMon1OTID
+	ld bc, wPartyMon2 - wPartyMon1
+	ld a, [wWhichPokemon]
+	call AddNTimes
+	ld de, wPlayerID
+	ld c, $2
+.asm_1da47
+	ld a, [de]
+	cp [hl]
+	jr nz, .asm_1da52
+	inc hl
+	inc de
+	dec c
+	jr nz, .asm_1da47
+	and a
+	ret
+.asm_1da52
+	scf
+	ret
+
+NameRatersHouse_TextPointers:
+	dw NameRaterText1
+
+NameRaterText1:
+	TX_ASM
+	call SaveScreenTilesToBuffer2
+	ld hl, NameRaterText_1dab3
+	call NameRaterScript_1da15
+	jr nz, .asm_1daae
+	ld hl, NameRaterText_1dab8
+	call PrintText
+	xor a
+	ld [wPartyMenuTypeOrMessageID], a
+	ld [wUpdateSpritesEnabled], a
+	ld [wMenuItemToSwap], a
+	call DisplayPartyMenu
+	push af
+	call GBPalWhiteOutWithDelay3
+	call RestoreScreenTilesAndReloadTilePatterns
+	call LoadGBPal
+	pop af
+	jr c, .asm_1daae
+	call GetPartyMonName2
+	call NameRaterScript_1da20
+	ld hl, NameRaterText_1dad1
+	jr c, .asm_1daa8
+	ld hl, NameRaterText_1dabd
+	call NameRaterScript_1da15
+	jr nz, .asm_1daae
+	ld hl, NameRaterText_1dac2
+	call PrintText
+	callba DisplayNameRaterScreen
+	jr c, .asm_1daae
+	ld hl, NameRaterText_1dac7
+.asm_1daa8
+	call PrintText
+	jp TextScriptEnd
+.asm_1daae
+	ld hl, NameRaterText_1dacc
+	jr .asm_1daa8
+
+NameRaterText_1dab3:
+	TX_FAR _NameRaterText_1dab3
+	db "@"
+
+NameRaterText_1dab8:
+	TX_FAR _NameRaterText_1dab8
+	db "@"
+
+NameRaterText_1dabd:
+	TX_FAR _NameRaterText_1dabd
+	db "@"
+
+NameRaterText_1dac2:
+	TX_FAR _NameRaterText_1dac2
+	db "@"
+
+NameRaterText_1dac7:
+	TX_FAR _NameRaterText_1dac7
+	db "@"
+
+NameRaterText_1dacc:
+	TX_FAR _NameRaterText_1dacc
+	db "@"
+
+NameRaterText_1dad1:
+	TX_FAR _NameRaterText_1dad1
+	db "@"