Many, many tweaks (Move Relearner!)

- 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.

scripts/move_deleter.asm

@@ -0,0 +1,178 @@
+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