mirror of
https://github.com/thornAvery/kep-hack.git
synced 2025-09-16 18:30:50 +12:00
bd23dfa61e
- Move Deleter and Move Relearner are added, featuring updated code from Shin Pokered, which took the code from Mateo's Red++ hack. They replace the Trader in Celadon University. The code has been updated quite a bit to fit the modern standards of pokered. - The Trader has been moved to the trade room in Cinnabar Lab, which is thematically appropriate. - Eevee's L1 learnset now appropriately features Tail Whip; this was a mistake made by Martha when porting Yellow learnsets. - Fast Text cursor slot is fixed - New ROM Bank stores the new maps as it got full when adding the move relearner/deleter - Maps 21 will still have space though. - WRAM has been fiddled with, please please read the notes if you edit the Move Relearner area, it needs quite a bit of space. - Wild data for Mt. Moon and Route 22 has been tweaked a little bit.
132 lines
2.5 KiB
NASM
132 lines
2.5 KiB
NASM
MoveRelearnerText1:
|
|
text_asm
|
|
; Display the list of moves to the player.
|
|
ld hl, MoveRelearnerGreetingText
|
|
call PrintText
|
|
call YesNoChoice
|
|
ld a, [wCurrentMenuItem]
|
|
and a
|
|
jp nz, .exit
|
|
xor a
|
|
;charge 1000 money
|
|
ld [hMoney], a
|
|
ld [hMoney + 2], a
|
|
ld a, $0A
|
|
ld [hMoney + 1], a
|
|
call HasEnoughMoney
|
|
jr nc, .enoughMoney
|
|
; not enough money
|
|
ld hl, MoveRelearnerNotEnoughMoneyText
|
|
call PrintText
|
|
jp TextScriptEnd
|
|
.enoughMoney
|
|
ld hl, MoveRelearnerSaidYesText
|
|
call PrintText
|
|
; Select pokemon from party.
|
|
call SaveScreenTilesToBuffer2
|
|
xor a
|
|
ld [wListScrollOffset], a
|
|
ld [wPartyMenuTypeOrMessageID], a
|
|
ld [wUpdateSpritesEnabled], a
|
|
ld [wMenuItemToSwap], a
|
|
call DisplayPartyMenu
|
|
push af
|
|
call GBPalWhiteOutWithDelay3
|
|
call RestoreScreenTilesAndReloadTilePatterns
|
|
call LoadGBPal
|
|
pop af
|
|
jp c, .exit
|
|
ld a, [wWhichPokemon]
|
|
ld b, a
|
|
push bc
|
|
ld hl, PrepareRelearnableMoveList
|
|
ld b, Bank(PrepareRelearnableMoveList)
|
|
call Bankswitch
|
|
ld a, [wMoveBuffer]
|
|
and a
|
|
jr nz, .chooseMove
|
|
pop bc
|
|
ld hl, MoveRelearnerNoMovesText
|
|
call PrintText
|
|
jp TextScriptEnd
|
|
.chooseMove
|
|
ld hl, MoveRelearnerWhichMoveText
|
|
call PrintText
|
|
xor a
|
|
ld [wCurrentMenuItem], a
|
|
ld [wLastMenuItem], a
|
|
ld a, MOVESLISTMENU
|
|
ld [wListMenuID], a
|
|
ld de, wMoveBuffer
|
|
ld hl, wListPointer
|
|
ld [hl], e
|
|
inc hl
|
|
ld [hl], d
|
|
xor a
|
|
ld [wPrintItemPrices], a ; don't print prices
|
|
call DisplayListMenuID
|
|
pop bc
|
|
jr c, .exit ; exit if player chose cancel
|
|
push bc
|
|
; Save the selected move id.
|
|
ld a, [wcf91]
|
|
ld [wMoveNum], a
|
|
ld [wd11e],a
|
|
call GetMoveName
|
|
call CopyToStringBuffer ; copy name to wcf4b
|
|
pop bc
|
|
ld a, b
|
|
ld [wWhichPokemon], a
|
|
ld a, [wLetterPrintingDelayFlags]
|
|
push af
|
|
xor a
|
|
ld [wLetterPrintingDelayFlags], a
|
|
predef LearnMove
|
|
pop af
|
|
ld [wLetterPrintingDelayFlags], a
|
|
ld a, b
|
|
and a
|
|
jr z, .exit
|
|
; Charge 1000 money
|
|
xor a
|
|
ld [wPriceTemp], a
|
|
ld [wPriceTemp + 2], a
|
|
ld a, $0A
|
|
ld [wPriceTemp + 1], a
|
|
ld hl, wPriceTemp + 2
|
|
ld de, wPlayerMoney + 2
|
|
ld c, $3
|
|
predef SubBCDPredef
|
|
ld hl, MoveRelearnerByeText
|
|
call PrintText
|
|
jp TextScriptEnd
|
|
.exit
|
|
ld hl, MoveRelearnerByeText
|
|
call PrintText
|
|
jp TextScriptEnd
|
|
|
|
|
|
MoveRelearnerGreetingText:
|
|
text_far _MoveRelearnerGreetingText
|
|
text_end
|
|
|
|
MoveRelearnerSaidYesText:
|
|
text_far _MoveRelearnerSaidYesText
|
|
text_end
|
|
|
|
MoveRelearnerNotEnoughMoneyText:
|
|
text_far _MoveRelearnerNotEnoughMoneyText
|
|
text_end
|
|
|
|
MoveRelearnerWhichMoveText:
|
|
text_far _MoveRelearnerWhichMoveText
|
|
text_end
|
|
|
|
MoveRelearnerByeText:
|
|
text_far _MoveRelearnerByeText
|
|
text_end
|
|
|
|
MoveRelearnerNoMovesText:
|
|
text_far _MoveRelearnerNoMovesText
|
|
text_end
|