mirror of
https://github.com/pret/pokered.git
synced 2024-10-23 15:08:23 +00:00
107 lines
2 KiB
NASM
Executable file
107 lines
2 KiB
NASM
Executable file
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 ; 0x1da34 $1c
|
|
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 ; 0x1da49 $7
|
|
inc hl
|
|
inc de
|
|
dec c
|
|
jr nz, .asm_1da47 ; 0x1da4e $f7
|
|
and a
|
|
ret
|
|
.asm_1da52
|
|
scf
|
|
ret
|
|
|
|
NameRaterTextPointers: ; 1da54 (7:5a54)
|
|
dw NameRaterText1
|
|
|
|
NameRaterText1: ; 1da56 (7:5a56)
|
|
db $8
|
|
call SaveScreenTilesToBuffer2
|
|
ld hl, NameRaterText_1dab3
|
|
call NameRaterScript_1da15
|
|
jr nz, .asm_1daae ; 0x1da60 $4c
|
|
ld hl, NameRaterText_1dab8
|
|
call PrintText
|
|
xor a
|
|
ld [wd07d], a
|
|
ld [wUpdateSpritesEnabled], a
|
|
ld [wMenuItemToSwap], a
|
|
call DisplayPartyMenu
|
|
push af
|
|
call GBPalWhiteOutWithDelay3
|
|
call RestoreScreenTilesAndReloadTilePatterns
|
|
call LoadGBPal
|
|
pop af
|
|
jr c, .asm_1daae ; 0x1da80 $2c
|
|
call GetPartyMonName2
|
|
call NameRaterScript_1da20
|
|
ld hl, NameRaterText_1dad1
|
|
jr c, .asm_1daa8 ; 0x1da8b $1b
|
|
ld hl, NameRaterText_1dabd
|
|
call NameRaterScript_1da15
|
|
jr nz, .asm_1daae ; 0x1da93 $19
|
|
ld hl, NameRaterText_1dac2
|
|
call PrintText
|
|
callba Func_655c
|
|
jr c, .asm_1daae ; 0x1daa3 $9
|
|
ld hl, NameRaterText_1dac7
|
|
.asm_1daa8
|
|
call PrintText
|
|
jp TextScriptEnd
|
|
.asm_1daae
|
|
ld hl, NameRaterText_1dacc
|
|
jr .asm_1daa8 ; 0x1dab1 $f5
|
|
|
|
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 "@"
|