pokecrystal-board/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
Remove Special_ prefix from special routines (close #478) 2018-01-24 08:17:05 -08:00			`MoveDeletion:`
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 11:48:30 -08:00			`ld hl, .IntroText`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`call PrintText`
			`call YesNoBox`
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 11:48:30 -08:00			`jr c, .declined`
			`ld hl, .AskWhichMonText`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`call PrintText`
callba/callab → farcall/callfar 2017-12-24 09:47:30 -08:00			`farcall SelectMonFromParty`
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 11:48:30 -08:00			`jr c, .declined`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wCurPartySpecies]`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`cp EGG`
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 11:48:30 -08:00			`jr z, .egg`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wCurPartyMon]`
			`ld hl, wPartyMon1Moves + 1`
Replace party struct relative values with EQUS constants 2015-11-04 08:19:58 -08:00			`ld bc, PARTYMON_STRUCT_LENGTH`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`call AddNTimes`
			`ld a, [hl]`
			`and a`
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 11:48:30 -08:00			`jr z, .onlyonemove`
			`ld hl, .AskWhichMoveText`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`call PrintText`
MenuDataHeader → MenuHeader, MenuData2 → MenuData (might complete issue #440) 2018-01-23 13:08:43 -08:00			`call LoadStandardMenuHeader`
callba/callab → farcall/callfar 2017-12-24 09:47:30 -08:00			`farcall ChooseMoveToDelete`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`push af`
Events and some WRAM cleanup 2015-12-18 17:07:09 -08:00			`call ReturnToMapWithSpeechTextbox`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`pop af`
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 11:48:30 -08:00			`jr c, .declined`
Menu 2015-12-15 15:59:49 -08:00			`ld a, [wMenuCursorY]`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`push af`
No wCurMove alias for wCurSpecies 2018-07-29 13:04:38 -07:00			`ld a, [wCurSpecies]`
Add meaningful aliases for wd265 Introduce MONICON_* constants Introduce BATTLEPLAYERACTION_* constants 2018-07-28 16:27:34 -07:00			`ld [wNamedObjectIndexBuffer], a`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`call GetMoveName`
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 11:48:30 -08:00			`ld hl, .ConfirmDeleteText`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`call PrintText`
			`call YesNoBox`
			`pop bc`
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 11:48:30 -08:00			`jr c, .declined`
			`call .DeleteMove`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`call WaitSFX`
			`ld de, SFX_MOVE_DELETED`
			`call PlaySFX`
			`call WaitSFX`
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 11:48:30 -08:00			`ld hl, .MoveDeletedText`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`call PrintText`
			`ret`

More work on slots; WRAM cleanup, Move Deleter 2015-12-19 11:48:30 -08:00			`.egg`
			`ld hl, .EggText`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`call PrintText`
			`ret`

More work on slots; WRAM cleanup, Move Deleter 2015-12-19 11:48:30 -08:00			`.declined`
			`ld hl, .DeclinedDeletionText`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`call PrintText`
			`ret`

More work on slots; WRAM cleanup, Move Deleter 2015-12-19 11:48:30 -08:00			`.onlyonemove`
			`ld hl, .OnlyOneMoveText`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`call PrintText`
			`ret`

Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`.OnlyOneMoveText:`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`; That #MON knows only one move.`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far UnknownText_0x1c5eba`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00
Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`.ConfirmDeleteText:`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`; Oh, make it forget @ ?`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far UnknownText_0x1c5eda`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00
Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`.MoveDeletedText:`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`; Done! Your #MON forgot the move.`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far UnknownText_0x1c5ef5`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00
Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`.EggText:`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`; An EGG doesn't know any moves!`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far UnknownText_0x1c5f17`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00
Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`.DeclinedDeletionText:`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`; No? Come visit me again.`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far UnknownText_0x1c5f36`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00
Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`.AskWhichMoveText:`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`; Which move should it forget, then?`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far UnknownText_0x1c5f50`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00
Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`.IntroText:`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`; Um… Oh, yes, I'm the MOVE DELETER. I can make #MON forget moves. Shall I make a #MON forget?`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far UnknownText_0x1c5f74`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00
Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`.AskWhichMonText:`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`; Which #MON?`
text_jump → text_far The previous name for this was rather misleading. It isn't an actual jump like you'd expect the `jp` instruction to behave as. Instead, it behaves more like a `farcall`. This also makes it consistent with its current command ID name of `TX_FAR`. 2018-10-28 09:16:55 -07:00			`text_far UnknownText_0x1c5fd1`
Resolve issue #575: Rename text commands 2018-11-17 10:33:03 -08:00			`text_end`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00
Remove all address comments 2018-06-24 07:09:41 -07:00			`.DeleteMove:`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`ld a, b`
			`push bc`
			`dec a`
			`ld c, a`
			`ld b, 0`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wPartyMon1Moves`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`add hl, bc`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wCurPartyMon]`
Replace party struct relative values with EQUS constants 2015-11-04 08:19:58 -08:00			`ld bc, PARTYMON_STRUCT_LENGTH`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`call AddNTimes`
			`pop bc`
			`push bc`
			`inc b`
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 11:48:30 -08:00			`.loop`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`ld a, b`
			`cp NUM_MOVES + 1`
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 11:48:30 -08:00			`jr z, .okay`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`inc hl`
			`ld a, [hld]`
			`ld [hl], a`
			`inc hl`
			`inc b`
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 11:48:30 -08:00			`jr .loop`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 11:48:30 -08:00			`.okay`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`xor a`
			`ld [hl], a`
			`pop bc`

			`ld a, b`
			`push bc`
			`dec a`
			`ld c, a`
			`ld b, 0`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld hl, wPartyMon1PP`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`add hl, bc`
Prefix wram labels with w, part 2. 2018-01-23 14:39:09 -08:00			`ld a, [wCurPartyMon]`
Replace party struct relative values with EQUS constants 2015-11-04 08:19:58 -08:00			`ld bc, PARTYMON_STRUCT_LENGTH`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`call AddNTimes`
			`pop bc`
			`inc b`
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 11:48:30 -08:00			`.loop2`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`ld a, b`
			`cp NUM_MOVES + 1`
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 11:48:30 -08:00			`jr z, .done`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`inc hl`
			`ld a, [hld]`
			`ld [hl], a`
			`inc hl`
			`inc b`
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 11:48:30 -08:00			`jr .loop2`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 11:48:30 -08:00			`.done`
Split out the move deleter code. 2015-02-11 13:20:22 -08:00			`xor a`
			`ld [hl], a`
			`ret`