ref: 36ebcdd8fe5c8191e1d59a15259654862de64193
dir: /engine/events/move_deleter.asm/
MoveDeletion: ld hl, .IntroText call PrintText call YesNoBox jr c, .declined ld hl, .AskWhichMonText call PrintText farcall SelectMonFromParty jr c, .declined ld a, [wCurPartySpecies] cp EGG jr z, .egg ld a, [wCurPartyMon] ld hl, wPartyMon1Moves + 1 ld bc, PARTYMON_STRUCT_LENGTH call AddNTimes ld a, [hl] and a jr z, .onlyonemove ld hl, .AskWhichMoveText call PrintText call LoadStandardMenuHeader farcall ChooseMoveToDelete push af call ReturnToMapWithSpeechTextbox pop af jr c, .declined ld a, [wMenuCursorY] push af ld a, [wCurSpecies] ld [wNamedObjectIndexBuffer], a call GetMoveName ld hl, .ConfirmDeleteText call PrintText call YesNoBox pop bc jr c, .declined call .DeleteMove call WaitSFX ld de, SFX_MOVE_DELETED call PlaySFX call WaitSFX ld hl, .MoveDeletedText call PrintText ret .egg ld hl, .EggText call PrintText ret .declined ld hl, .DeclinedDeletionText call PrintText ret .onlyonemove ld hl, .OnlyOneMoveText call PrintText ret .OnlyOneMoveText: ; That #MON knows only one move. text_far UnknownText_0x1c5eba text_end .ConfirmDeleteText: ; Oh, make it forget @ ? text_far UnknownText_0x1c5eda text_end .MoveDeletedText: ; Done! Your #MON forgot the move. text_far UnknownText_0x1c5ef5 text_end .EggText: ; An EGG doesn't know any moves! text_far UnknownText_0x1c5f17 text_end .DeclinedDeletionText: ; No? Come visit me again. text_far UnknownText_0x1c5f36 text_end .AskWhichMoveText: ; Which move should it forget, then? text_far UnknownText_0x1c5f50 text_end .IntroText: ; Um… Oh, yes, I'm the MOVE DELETER. I can make #MON forget moves. Shall I make a #MON forget? text_far UnknownText_0x1c5f74 text_end .AskWhichMonText: ; Which #MON? text_far UnknownText_0x1c5fd1 text_end .DeleteMove: ld a, b push bc dec a ld c, a ld b, 0 ld hl, wPartyMon1Moves add hl, bc ld a, [wCurPartyMon] ld bc, PARTYMON_STRUCT_LENGTH call AddNTimes pop bc push bc inc b .loop ld a, b cp NUM_MOVES + 1 jr z, .okay inc hl ld a, [hld] ld [hl], a inc hl inc b jr .loop .okay xor a ld [hl], a pop bc ld a, b push bc dec a ld c, a ld b, 0 ld hl, wPartyMon1PP add hl, bc ld a, [wCurPartyMon] ld bc, PARTYMON_STRUCT_LENGTH call AddNTimes pop bc inc b .loop2 ld a, b cp NUM_MOVES + 1 jr z, .done inc hl ld a, [hld] ld [hl], a inc hl inc b jr .loop2 .done xor a ld [hl], a ret