pokecrystal/engine/events/move_deleter.asm

MoveDeletion:
	ld hl, .DeleterIntroText
	call PrintText
	call YesNoBox
	jr c, .declined
	ld hl, .DeleterAskWhichMonText
	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, .DeleterAskWhichMoveText
	call PrintText
	call LoadStandardMenuHeader
	farcall ChooseMoveToDelete
	push af
	call ReturnToMapWithSpeechTextbox
	pop af
	jr c, .declined
	ld a, [wMenuCursorY]
	push af
	ld a, [wCurSpecies]
	ld [wNamedObjectIndex], a
	call GetMoveName
	ld hl, .AskDeleteMoveText
	call PrintText
	call YesNoBox
	pop bc
	jr c, .declined
	call .DeleteMove
	call WaitSFX
	ld de, SFX_MOVE_DELETED
	call PlaySFX
	call WaitSFX
	ld hl, .DeleterForgotMoveText
	call PrintText
	ret

.egg
	ld hl, .MailEggText
	call PrintText
	ret

.declined
	ld hl, .DeleterNoComeAgainText
	call PrintText
	ret

.onlyonemove
	ld hl, .MoveKnowsOneText
	call PrintText
	ret

.MoveKnowsOneText:
	text_far _MoveKnowsOneText
	text_end

.AskDeleteMoveText:
	text_far _AskDeleteMoveText
	text_end

.DeleterForgotMoveText:
	text_far _DeleterForgotMoveText
	text_end

.MailEggText:
	text_far _DeleterEggText
	text_end

.DeleterNoComeAgainText:
	text_far _DeleterNoComeAgainText
	text_end

.DeleterAskWhichMoveText:
	text_far _DeleterAskWhichMoveText
	text_end

.DeleterIntroText:
	text_far _DeleterIntroText
	text_end

.DeleterAskWhichMonText:
	text_far _DeleterAskWhichMonText
	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 16:17:05 +00:00			`MoveDeletion:`
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 22:24:17 +00:00			`ld hl, .DeleterIntroText`
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`
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 22:24:17 +00:00			`ld hl, .DeleterAskWhichMonText`
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`
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 22:24:17 +00:00			`ld hl, .DeleterAskWhichMoveText`
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]`
Rename some labels - Remove "Buffer" suffix from some byte and word quantities - Change "Ptr" to "Pointer" Fixes #789 2020-12-23 21:29:30 +00:00			`ld [wNamedObjectIndex], a`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00			`call GetMoveName`
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 22:24:17 +00:00			`ld hl, .AskDeleteMoveText`
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`
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 22:24:17 +00:00			`ld hl, .DeleterForgotMoveText`
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`
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 22:24:17 +00:00			`ld hl, .MailEggText`
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`
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 22:24:17 +00:00			`ld hl, .DeleterNoComeAgainText`
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`
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 22:24:17 +00:00			`ld hl, .MoveKnowsOneText`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00			`call PrintText`
			`ret`

#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 22:24:17 +00:00			`.MoveKnowsOneText:`
			`text_far _MoveKnowsOneText`
Resolve issue #575: Rename text commands 2018-11-17 18:33:03 +00:00			`text_end`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 22:24:17 +00:00			`.AskDeleteMoveText:`
			`text_far _AskDeleteMoveText`
Resolve issue #575: Rename text commands 2018-11-17 18:33:03 +00:00			`text_end`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 22:24:17 +00:00			`.DeleterForgotMoveText:`
			`text_far _DeleterForgotMoveText`
Resolve issue #575: Rename text commands 2018-11-17 18:33:03 +00:00			`text_end`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 22:24:17 +00:00			`.MailEggText:`
			`text_far _DeleterEggText`
Resolve issue #575: Rename text commands 2018-11-17 18:33:03 +00:00			`text_end`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 22:24:17 +00:00			`.DeleterNoComeAgainText:`
			`text_far _DeleterNoComeAgainText`
Resolve issue #575: Rename text commands 2018-11-17 18:33:03 +00:00			`text_end`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 22:24:17 +00:00			`.DeleterAskWhichMoveText:`
			`text_far _DeleterAskWhichMoveText`
Resolve issue #575: Rename text commands 2018-11-17 18:33:03 +00:00			`text_end`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 22:24:17 +00:00			`.DeleterIntroText:`
			`text_far _DeleterIntroText`
Resolve issue #575: Rename text commands 2018-11-17 18:33:03 +00:00			`text_end`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 22:24:17 +00:00			`.DeleterAskWhichMonText:`
			`text_far _DeleterAskWhichMonText`
Resolve issue #575: Rename text commands 2018-11-17 18:33:03 +00:00			`text_end`
Split out the move deleter code. 2015-02-11 21:20:22 +00:00
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`