| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108 |
- NameRaterScript:
- 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
- NameRaterTextPointers:
- 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 "@"
|
