pokecrystal-board/engine/events/move_tutor.asm

MoveTutor:
	call FadeToMenu
	call ClearBGPalettes
	call ClearScreen
	call DelayFrame
	ld b, CGB_PACKPALS
	call GetCGBLayout
	xor a
	ld [wItemAttributeValue], a
	call .GetMoveTutorMove
	ld [wNamedObjectIndex], 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
	ldh [hScriptVar], a
	jr .quit

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

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

.flamethrower
	ld a, MT01_MOVE ; FLAMETHROWER
	ret

.thunderbolt
	ld a, MT02_MOVE ; THUNDERBOLT
	ret

CheckCanLearnMoveTutorMove:
	ld hl, .MenuHeader
	call LoadMenuHeader

	predef CanLearnTMHMMove

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

	ld a, c
	and a
	jr nz, .can_learn
	push de
	ld de, SFX_WRONG
	call PlaySFX
	pop de
	ld a, BANK(TMHMNotCompatibleText)
	ld hl, TMHMNotCompatibleText
	call FarPrintText1bpp
	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 07:09:41 -07:00			`MoveTutor:`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`call FadeToMenu`
			`call ClearBGPalettes`
			`call ClearScreen`
			`call DelayFrame`
Further remove unnecessary DMG/SGB checking (#7) and remove SGB layouts and palette data (#1) 2023-07-26 08:01:20 -07:00			`ld b, CGB_PACKPALS`
			`call GetCGBLayout`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`xor a`
Rename some labels - Remove "Buffer" suffix from some byte and word quantities - Change "Ptr" to "Pointer" Fixes #789 2020-12-23 13:29:30 -08:00			`ld [wItemAttributeValue], a`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`call .GetMoveTutorMove`
Rename some labels - Remove "Buffer" suffix from some byte and word quantities - Change "Ptr" to "Pointer" Fixes #789 2020-12-23 13:29:30 -08:00			`ld [wNamedObjectIndex], a`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ld [wPutativeTMHMMove], a`
			`call GetMoveName`
			`call CopyName1`
callba/callab → farcall/callfar 2017-12-24 09:47:30 -08:00			`farcall ChooseMonToLearnTMHM`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`jr c, .cancel`
			`jr .enter_loop`

			`.loop`
callba/callab → farcall/callfar 2017-12-24 09:47:30 -08:00			`farcall ChooseMonToLearnTMHM_NoRefresh`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`jr c, .cancel`
			`.enter_loop`
			`call CheckCanLearnMoveTutorMove`
			`jr nc, .loop`
Use more constants in scripts 2018-01-11 22:40:20 -08:00			`xor a ; FALSE`
Optimize some HRAM usage 2023-09-30 10:12:57 -07:00			`ldh [hScriptVar], a`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`jr .quit`

			`.cancel`
			`ld a, -1`
Optimize some HRAM usage 2023-09-30 10:12:57 -07:00			`ldh [hScriptVar], a`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`.quit`
			`call CloseSubmenu`
			`ret`

Remove all address comments 2018-06-24 07:09:41 -07:00			`.GetMoveTutorMove:`
Optimize some HRAM usage 2023-09-30 10:12:57 -07:00			`ldh a, [hScriptVar]`
Use more constants in scripts 2018-01-11 22:40:20 -08:00			`cp MOVETUTOR_FLAMETHROWER`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`jr z, .flamethrower`
Use more constants in scripts 2018-01-11 22:40:20 -08:00			`cp MOVETUTOR_THUNDERBOLT`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`jr z, .thunderbolt`
Use more constants in scripts 2018-01-11 22:40:20 -08:00			`; MOVETUTOR_ICE_BEAM`
add_tm, add_hm, and add_mt define TM##_MOVE, HM##_MOVE, and MT##_MOVE constants, to avoid repeating the move names in tmhm_moves.asm 2020-07-06 13:53:05 -07:00			`ld a, MT03_MOVE ; ICE_BEAM`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ret`

			`.flamethrower`
add_tm, add_hm, and add_mt define TM##_MOVE, HM##_MOVE, and MT##_MOVE constants, to avoid repeating the move names in tmhm_moves.asm 2020-07-06 13:53:05 -07:00			`ld a, MT01_MOVE ; FLAMETHROWER`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ret`

			`.thunderbolt`
add_tm, add_hm, and add_mt define TM##_MOVE, HM##_MOVE, and MT##_MOVE constants, to avoid repeating the move names in tmhm_moves.asm 2020-07-06 13:53:05 -07:00			`ld a, MT02_MOVE ; THUNDERBOLT`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`ret`

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

			`ld a, c`
			`and a`
			`jr nz, .can_learn`
			`push de`
			`ld de, SFX_WRONG`
			`call PlaySFX`
			`pop de`
#641 fixes and additions. (#646) Name a lot of text labels according to our conventions 2019-10-20 15:24:17 -07:00			`ld a, BANK(TMHMNotCompatibleText)`
			`ld hl, TMHMNotCompatibleText`
Use overworld textbox in text printing functions, differentiating between 1bpp and 2bpp text (#10) 2023-08-11 03:28:14 -07:00			`call FarPrintText1bpp`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`jr .didnt_learn`

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

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

			`ld c, HAPPINESS_LEARNMOVE`
callba/callab → farcall/callfar 2017-12-24 09:47:30 -08:00			`callfar ChangeHappiness`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08: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-24 17:10:37 -07: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 02:59:56 -08:00			`db MENU_BACKUP_TILES ; flags`
menu_coords macro for (x1, y1, x2, y2) order (see issue #440) 2018-01-13 13:38:14 -08:00			`menu_coords 0, 12, SCREEN_WIDTH - 1, SCREEN_HEIGHT - 1`