pokecrystal/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
	db "@"

.ConfirmDeleteText:
	; Oh, make it forget @ ?
	text_far UnknownText_0x1c5eda
	db "@"

.MoveDeletedText:
	; Done! Your #MON forgot the move.
	text_far UnknownText_0x1c5ef5
	db "@"

.EggText:
	; An EGG doesn't know any moves!
	text_far UnknownText_0x1c5f17
	db "@"

.DeclinedDeletionText:
	; No? Come visit me again.
	text_far UnknownText_0x1c5f36
	db "@"

.AskWhichMoveText:
	; Which move should it forget, then?
	text_far UnknownText_0x1c5f50
	db "@"

.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
	db "@"

.AskWhichMonText:
	; Which #MON?
	text_far UnknownText_0x1c5fd1
	db "@"

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

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

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

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

Remove even more address comments That should be all of them this time 2018-06-25 00:10:37 +00:00			`.OnlyOneMoveText:`
Split out the move deleter code. 2015-02-11 21:20:22 +00: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 16:16:55 +00:00			`text_far UnknownText_0x1c5eba`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00			`db "@"`

Remove even more address comments That should be all of them this time 2018-06-25 00:10:37 +00:00			`.ConfirmDeleteText:`
Split out the move deleter code. 2015-02-11 21:20:22 +00: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 16:16:55 +00:00			`text_far UnknownText_0x1c5eda`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00			`db "@"`

Remove even more address comments That should be all of them this time 2018-06-25 00:10:37 +00:00			`.MoveDeletedText:`
Split out the move deleter code. 2015-02-11 21:20:22 +00: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 16:16:55 +00:00			`text_far UnknownText_0x1c5ef5`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00			`db "@"`

Remove even more address comments That should be all of them this time 2018-06-25 00:10:37 +00:00			`.EggText:`
Split out the move deleter code. 2015-02-11 21:20:22 +00: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 16:16:55 +00:00			`text_far UnknownText_0x1c5f17`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00			`db "@"`

Remove even more address comments That should be all of them this time 2018-06-25 00:10:37 +00:00			`.DeclinedDeletionText:`
Split out the move deleter code. 2015-02-11 21:20:22 +00: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 16:16:55 +00:00			`text_far UnknownText_0x1c5f36`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00			`db "@"`

Remove even more address comments That should be all of them this time 2018-06-25 00:10:37 +00:00			`.AskWhichMoveText:`
Split out the move deleter code. 2015-02-11 21:20:22 +00: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 16:16:55 +00:00			`text_far UnknownText_0x1c5f50`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00			`db "@"`

Remove even more address comments That should be all of them this time 2018-06-25 00:10:37 +00:00			`.IntroText:`
Split out the move deleter code. 2015-02-11 21:20:22 +00: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 16:16:55 +00:00			`text_far UnknownText_0x1c5f74`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00			`db "@"`

Remove even more address comments That should be all of them this time 2018-06-25 00:10:37 +00:00			`.AskWhichMonText:`
Split out the move deleter code. 2015-02-11 21:20:22 +00: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 16:16:55 +00:00			`text_far UnknownText_0x1c5fd1`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00			`db "@"`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.DeleteMove:`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00			`ld a, b`
			`push bc`
			`dec a`
			`ld c, a`
			`ld b, 0`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld hl, wPartyMon1Moves`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00			`add hl, bc`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wCurPartyMon]`
Replace party struct relative values with EQUS constants 2015-11-04 16:19:58 +00:00			`ld bc, PARTYMON_STRUCT_LENGTH`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00			`call AddNTimes`
			`pop bc`
			`push bc`
			`inc b`
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 19:48:30 +00:00			`.loop`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00			`ld a, b`
			`cp NUM_MOVES + 1`
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 19:48:30 +00:00			`jr z, .okay`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00			`inc hl`
			`ld a, [hld]`
			`ld [hl], a`
			`inc hl`
			`inc b`
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 19:48:30 +00:00			`jr .loop`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 19:48:30 +00:00			`.okay`
Split out the move deleter code. 2015-02-11 21:20:22 +00: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 22:39:09 +00:00			`ld hl, wPartyMon1PP`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00			`add hl, bc`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wCurPartyMon]`
Replace party struct relative values with EQUS constants 2015-11-04 16:19:58 +00:00			`ld bc, PARTYMON_STRUCT_LENGTH`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00			`call AddNTimes`
			`pop bc`
			`inc b`
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 19:48:30 +00:00			`.loop2`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00			`ld a, b`
			`cp NUM_MOVES + 1`
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 19:48:30 +00:00			`jr z, .done`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00			`inc hl`
			`ld a, [hld]`
			`ld [hl], a`
			`inc hl`
			`inc b`
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 19:48:30 +00:00			`jr .loop2`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00
More work on slots; WRAM cleanup, Move Deleter 2015-12-19 19:48:30 +00:00			`.done`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00			`xor a`
			`ld [hl], a`
			`ret`