shithub: pokered

ref: 02bd91b7076165653a900a8e39c12a92a9bd2976
dir: /scripts/namerater.asm/

View raw version
NameRaterScript: ; 1da12 (7:5a12)
	jp EnableAutoTextBoxDrawing

NameRaterScript_1da15: ; 1da15 (7:5a15)
	call PrintText
	call YesNoChoice
	ld a, [wCurrentMenuItem]
	and a
	ret

NameRaterScript_1da20: ; 1da20 (7:5a20)
	ld hl, wPartyMonOT
	ld bc, $000b
	ld a, [wWhichPokemon]
	call AddNTimes
	ld de, wPlayerName
	ld c, $b
	call .asm_1da47
	jr c, .asm_1da52
	ld hl, wPartyMon1OTID
	ld bc, $002c
	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

NameRaterTextPointers: ; 1da54 (7:5a54)
	dw NameRaterText1

NameRaterText1: ; 1da56 (7:5a56)
	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: ; 1dab3 (7:5ab3)
	TX_FAR _NameRaterText_1dab3
	db "@"

NameRaterText_1dab8: ; 1dab8 (7:5ab8)
	TX_FAR _NameRaterText_1dab8
	db "@"

NameRaterText_1dabd: ; 1dabd (7:5abd)
	TX_FAR _NameRaterText_1dabd
	db "@"

NameRaterText_1dac2: ; 1dac2 (7:5ac2)
	TX_FAR _NameRaterText_1dac2
	db "@"

NameRaterText_1dac7: ; 1dac7 (7:5ac7)
	TX_FAR _NameRaterText_1dac7
	db "@"

NameRaterText_1dacc: ; 1dacc (7:5acc)
	TX_FAR _NameRaterText_1dacc
	db "@"

NameRaterText_1dad1: ; 1dad1 (7:5ad1)
	TX_FAR _NameRaterText_1dad1
	db "@"