mirror of
https://github.com/thornAvery/kep-hack.git
synced 2025-09-16 02:13:23 +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.
178 lines
3.2 KiB
NASM
178 lines
3.2 KiB
NASM
MoveDeleterText1:
|
|
text_asm
|
|
ld hl, MoveDeleterGreetingText
|
|
call PrintText
|
|
.jumpback
|
|
call YesNoChoice
|
|
ld a, [wCurrentMenuItem]
|
|
and a
|
|
jp nz, .exit
|
|
ld hl, MoveDeleterSaidYesText
|
|
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
|
|
call PrepareDeletableMoveList
|
|
pop bc
|
|
ld a, [wMoveBuffer]
|
|
cp 2
|
|
jr nc, .chooseMove
|
|
ld hl, MoveDeleterOneMoveText
|
|
call PrintText
|
|
jr .jumpback
|
|
.chooseMove
|
|
push bc
|
|
xor a
|
|
ld [wListScrollOffset], a
|
|
ld [wCurrentMenuItem], a
|
|
ld hl, MoveDeleterWhichMoveText
|
|
call PrintText
|
|
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
|
|
; Save the selected move id.
|
|
ld a, [wcf91]
|
|
ld d, a
|
|
push de
|
|
push bc
|
|
ld [wMoveNum], a
|
|
ld [wd11e],a
|
|
call GetMoveName
|
|
call CopyToStringBuffer ; copy name to wcf4b
|
|
ld hl, MoveDeleterConfirmText
|
|
call PrintText
|
|
call YesNoChoice
|
|
pop bc
|
|
pop de
|
|
ld a, [wCurrentMenuItem]
|
|
and a
|
|
jr nz, .chooseMove
|
|
push de
|
|
ld a, b ; a = mon index
|
|
ld hl, wPartyMon1Moves
|
|
ld bc, wPartyMon2 - wPartyMon1
|
|
call AddNTimes
|
|
; hl = pointer to mon's moves
|
|
; Search for the move, and set it to 0.
|
|
pop de ; d = move id
|
|
call DeleteMove
|
|
ld hl, MoveDeleterForgotText
|
|
call PrintText
|
|
.exit
|
|
ld hl, MoveDeleterByeText
|
|
call PrintText
|
|
jp TextScriptEnd
|
|
|
|
DeleteMove:
|
|
; d = move id
|
|
ld b, 0
|
|
.searchLoop
|
|
ld a, [hli]
|
|
cp d
|
|
jr z, .foundMoveLoop
|
|
inc b
|
|
jr .searchLoop
|
|
.foundMoveLoop
|
|
ld a, b
|
|
cp 3
|
|
jr z, .zeroLastMove
|
|
ld a, [hl]
|
|
dec hl
|
|
ld [hli], a
|
|
push hl
|
|
ld de, wPartyMon1PP - wPartyMon1Moves
|
|
add hl, de
|
|
ld a, [hld]
|
|
ld [hl], a ; copy move's PP
|
|
pop hl
|
|
inc hl
|
|
inc b
|
|
jr .foundMoveLoop
|
|
.zeroLastMove
|
|
dec hl
|
|
xor a
|
|
ld [hl], a
|
|
ld de, wPartyMon1PP - wPartyMon1Moves
|
|
add hl, de
|
|
ld [hl], a ; clear last move's PP
|
|
ret
|
|
|
|
PrepareDeletableMoveList:
|
|
; Places a list of the selected pokemon's moves at wMoveBuffer.
|
|
; First byte is count, and last byte is $ff.
|
|
; Input: party mon index = [wWhichPokemon]
|
|
ld a, [wWhichPokemon]
|
|
ld hl, wPartyMon1Moves
|
|
ld bc, wPartyMon2 - wPartyMon1
|
|
call AddNTimes
|
|
; hl = pointer to mon's 4 moves
|
|
ld b, 0 ; count of moves
|
|
ld c, 4 + 1 ; 4 moves
|
|
ld de, wMoveBuffer + 1
|
|
.loop
|
|
dec c
|
|
jr z, .done
|
|
ld a, [hli]
|
|
and a
|
|
jr z, .loop
|
|
ld [de], a
|
|
inc de
|
|
inc b
|
|
jr .loop
|
|
.done
|
|
ld a, $ff ; terminate the list
|
|
ld [de], a
|
|
ld a, b ; store number of moves
|
|
ld [wMoveBuffer], a
|
|
ret
|
|
|
|
MoveDeleterGreetingText:
|
|
text_far _MoveDeleterGreetingText
|
|
text_end
|
|
|
|
MoveDeleterSaidYesText:
|
|
text_far _MoveDeleterSaidYesText
|
|
text_end
|
|
|
|
MoveDeleterWhichMoveText:
|
|
text_far _MoveDeleterWhichMoveText
|
|
text_end
|
|
|
|
MoveDeleterConfirmText:
|
|
text_far _MoveDeleterConfirmText
|
|
text_end
|
|
|
|
MoveDeleterForgotText:
|
|
text_far _MoveDeleterForgotText
|
|
text_end
|
|
|
|
MoveDeleterByeText:
|
|
text_far _MoveDeleterByeText
|
|
text_end
|
|
|
|
MoveDeleterOneMoveText:
|
|
text_far _MoveDeleterOneMoveText
|
|
text_end |