pokecrystal/engine/events/move_tutor.asm

MoveTutor:
	call FadeToMenu
	call ClearBGPalettes
	call ClearScreen
	call DelayFrame
	ld b, SCGB_PACKPALS
	call GetSGBLayout
	xor a
	ld [wItemAttributeParamBuffer], a
	call .GetMoveTutorMove
	ld [wNamedObjectIndexBuffer], a
	ld [wPutativeTMHMMove], a
	call GetMoveName
	call CopyName1
	farcall ChooseMonToLearnTMHM
	jr c, .cancel
	jr .enter_loop

.loop
	farcall ChooseMonToLearnTMHM_NoRefresh
	jr c, .cancel
.enter_loop
	call CheckCanLearnMoveTutorMove
	jr nc, .loop
	xor a ; FALSE
	ld [wScriptVar], a
	jr .quit

.cancel
	ld a, -1
	ld [wScriptVar], a
.quit
	call CloseSubmenu
	ret

.GetMoveTutorMove:
	ld a, [wScriptVar]
	cp MOVETUTOR_FLAMETHROWER
	jr z, .flamethrower
	cp MOVETUTOR_THUNDERBOLT
	jr z, .thunderbolt
	; MOVETUTOR_ICE_BEAM
	ld a, ICE_BEAM
	ret

.flamethrower
	ld a, FLAMETHROWER
	ret

.thunderbolt
	ld a, THUNDERBOLT
	ret

CheckCanLearnMoveTutorMove:
	ld hl, .MenuHeader
	call LoadMenuHeader

	predef CanLearnTMHMMove

	push bc
	ld a, [wCurPartyMon]
	ld hl, wPartyMonNicknames
	call GetNick
	pop bc

	ld a, c
	and a
	jr nz, .can_learn
	push de
	ld de, SFX_WRONG
	call PlaySFX
	pop de
	ld a, BANK(Text_TMHMNotCompatible)
	ld hl, Text_TMHMNotCompatible
	call FarPrintText
	jr .didnt_learn

.can_learn
	callfar KnowsMove
	jr c, .didnt_learn

	predef LearnMove
	ld a, b
	and a
	jr z, .didnt_learn

	ld c, HAPPINESS_LEARNMOVE
	callfar ChangeHappiness
	jr .learned

.didnt_learn
	call ExitMenu
	and a
	ret

.learned
	call ExitMenu
	scf
	ret

.MenuHeader:
	db MENU_BACKUP_TILES ; flags
	menu_coords 0, 12, SCREEN_WIDTH - 1, SCREEN_HEIGHT - 1
Remove all address comments 2018-06-24 14:09:41 +00:00			`MoveTutor:`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`call FadeToMenu`
			`call ClearBGPalettes`
			`call ClearScreen`
			`call DelayFrame`
			`ld b, SCGB_PACKPALS`
			`call GetSGBLayout`
			`xor a`
			`ld [wItemAttributeParamBuffer], a`
			`call .GetMoveTutorMove`
Add meaningful aliases for wd265 Introduce MONICON_* constants Introduce BATTLEPLAYERACTION_* constants 2018-07-28 23:27:34 +00:00			`ld [wNamedObjectIndexBuffer], a`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`ld [wPutativeTMHMMove], a`
			`call GetMoveName`
			`call CopyName1`
callba/callab → farcall/callfar 2017-12-24 17:47:30 +00:00			`farcall ChooseMonToLearnTMHM`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`jr c, .cancel`
			`jr .enter_loop`

			`.loop`
callba/callab → farcall/callfar 2017-12-24 17:47:30 +00:00			`farcall ChooseMonToLearnTMHM_NoRefresh`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`jr c, .cancel`
			`.enter_loop`
			`call CheckCanLearnMoveTutorMove`
			`jr nc, .loop`
Use more constants in scripts 2018-01-12 06:40:20 +00:00			`xor a ; FALSE`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wScriptVar], a`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`jr .quit`

			`.cancel`
			`ld a, -1`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld [wScriptVar], a`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`.quit`
			`call CloseSubmenu`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`.GetMoveTutorMove:`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wScriptVar]`
Use more constants in scripts 2018-01-12 06:40:20 +00:00			`cp MOVETUTOR_FLAMETHROWER`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`jr z, .flamethrower`
Use more constants in scripts 2018-01-12 06:40:20 +00:00			`cp MOVETUTOR_THUNDERBOLT`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`jr z, .thunderbolt`
Use more constants in scripts 2018-01-12 06:40:20 +00:00			`; MOVETUTOR_ICE_BEAM`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`ld a, ICE_BEAM`
			`ret`

			`.flamethrower`
			`ld a, FLAMETHROWER`
			`ret`

			`.thunderbolt`
			`ld a, THUNDERBOLT`
			`ret`

Remove all address comments 2018-06-24 14:09:41 +00:00			`CheckCanLearnMoveTutorMove:`
MenuDataHeader → MenuHeader, MenuData2 → MenuData (might complete issue #440) 2018-01-23 21:08:43 +00:00			`ld hl, .MenuHeader`
			`call LoadMenuHeader`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00
Remove Predef_ prefix from routines listed in PredefPointers 2018-01-16 19:30:10 +00:00			`predef CanLearnTMHMMove`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00
			`push bc`
Prefix wram labels with w, part 2. 2018-01-23 22:39:09 +00:00			`ld a, [wCurPartyMon]`
			`ld hl, wPartyMonNicknames`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`call GetNick`
			`pop bc`

			`ld a, c`
			`and a`
			`jr nz, .can_learn`
			`push de`
			`ld de, SFX_WRONG`
			`call PlaySFX`
			`pop de`
			`ld a, BANK(Text_TMHMNotCompatible)`
			`ld hl, Text_TMHMNotCompatible`
			`call FarPrintText`
			`jr .didnt_learn`

			`.can_learn`
callba/callab → farcall/callfar 2017-12-24 17:47:30 +00:00			`callfar KnowsMove`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`jr c, .didnt_learn`

Remove Predef_ prefix from routines listed in PredefPointers 2018-01-16 19:30:10 +00:00			`predef LearnMove`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`ld a, b`
			`and a`
			`jr z, .didnt_learn`

			`ld c, HAPPINESS_LEARNMOVE`
callba/callab → farcall/callfar 2017-12-24 17:47:30 +00:00			`callfar ChangeHappiness`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-16 01:10:54 +00:00			`jr .learned`

			`.didnt_learn`
			`call ExitMenu`
			`and a`
			`ret`

			`.learned`
			`call ExitMenu`
			`scf`
			`ret`

Remove even more address comments That should be all of them this time 2018-06-25 00:10:37 +00:00			`.MenuHeader:`
Use constants for menu flags Added a bunch of constants for the bitflags of each kind of menu. Some are slightly vague or too long, but I'm not sure how to else name them. 2018-01-14 10:59:56 +00:00			`db MENU_BACKUP_TILES ; flags`
menu_coords macro for (x1, y1, x2, y2) order (see issue #440) 2018-01-13 21:38:14 +00:00			`menu_coords 0, 12, SCREEN_WIDTH - 1, SCREEN_HEIGHT - 1`