From c7796024590fec48ac79756793c1a6e3b54daf8f Mon Sep 17 00:00:00 2001 From: Rangi Date: Tue, 1 Jan 2019 15:06:23 -0500 Subject: Rename map files, labels, and constants to be consistent and work with Polished Map --- scripts/NameRatersHouse.asm | 107 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 107 insertions(+) create mode 100755 scripts/NameRatersHouse.asm (limited to 'scripts/NameRatersHouse.asm') 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 "@" -- cgit v1.3.1-sl0p