pokecrystal-board/engine/events/trainer_scripts.asm

TalkToTrainerScript::
	faceplayer
	trainerortalkerflagaction CHECK_FLAG
	iftrue AlreadyBeatenTrainerScript
	loadtemptrainer
	encountermusic
	sjump StartBattleWithMapTrainerScript

SeenByTrainerScript::
	loadtemptrainer
	waitsfx ; wait for any pending space-related sfx
	encountermusic
	showemote EMOTE_SHOCK, LAST_TALKED, 30
	callasm TrainerOrTalkerWalkToPlayer
	applymovementlasttalked wMovementBuffer
	writeobjectxy LAST_TALKED
	faceobject PLAYER, LAST_TALKED
	sjump StartBattleWithMapTrainerScript

StartBattleWithMapTrainerScript:
	opentext
	trainerortalkertext TRAINERORTALKERTEXT_TRAINER_SEEN
	waitbutton
	closetext
	loadtemptrainer
	startbattle
	reloadmapafterbattle
	trainerortalkerflagaction SET_FLAG
	scall AfterTrainerOrTalkerScript
	loadmem wRunningTrainerBattleScript, -1

AlreadyBeatenTrainerScript:
	jumptrainerafterbattlescript

SeenByTalkerScript::
	waitsfx ; wait for any pending space-related sfx
	playsound SFX_UNKNOWN_66
	showemote EMOTE_TALK, LAST_TALKED, 20
	trainerortalkerflagaction SET_FLAG
	callasm .TalkOrSkipTalker
	iffalse .skipped
	callasm TrainerOrTalkerWalkToPlayer
	applymovementlasttalked wMovementBuffer
	writeobjectxy LAST_TALKED
	faceobject PLAYER, LAST_TALKED
	callasm .GetTalkerType
	ifequal TALKERTYPE_TEXT,   .Text
	ifequal TALKERTYPE_SCRIPT, .Script
.skipped
	end

.Text
	opentext
	trainerortalkertext TRAINERORTALKERTEXT_TALKER
	waitbutton
	closetext
	sjump AfterTrainerOrTalkerScript

.Script
	talkerscript
	sjump AfterTrainerOrTalkerScript

.TalkOrSkipTalker:
	ld a, [wTempTalkerType]
	and TALKEREVENTTYPE_MASK
	cp TALKEREVENTTYPE_MANDATORY
	jr z, .skip
	farcall LoadTalkerEventLegendGFX
	ld hl, wDisplaySecondarySprites
	set SECONDARYSPRITES_TALKER_EVENT_F, [hl]
	call UpdateActiveSprites
	call JoyWaitAorB
	call PlayClickSFX
	call WaitSFX
	ld hl, wDisplaySecondarySprites
	res SECONDARYSPRITES_TALKER_EVENT_F, [hl]
	ldh a, [hJoyPressed]
	bit A_BUTTON_F, a
	jr z, .skip ; jump if b was pressed
	ld a, TRUE
	jr .done
.skip
	xor a ; FALSE
.done
	ld [hScriptVar], a
	ret

.GetTalkerType:
	ld a, [wTempTalkerType]
	and TALKERTYPE_MASK
	ld [hScriptVar], a
	ret

AfterTrainerOrTalkerScript:
	wait 200
	readmem wSpacesLeft
	iftrue .not_landed
	turnobject PLAYER, DOWN
	wait 100
.not_landed
	end
Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`TalkToTrainerScript::`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`faceplayer`
Implement talker events [commit 2] (#30) 2023-11-28 09:02:00 -08:00			`trainerortalkerflagaction CHECK_FLAG`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`iftrue AlreadyBeatenTrainerScript`
Rename more script commands for consistency and predictability Fixes #540 2019-03-10 12:31:59 -07:00			`loadtemptrainer`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`encountermusic`
Rename some call/jump script commands to avoid confusion with jr/jp asm instructions Fixes #580 2019-03-10 13:39:31 -07:00			`sjump StartBattleWithMapTrainerScript`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00
Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`SeenByTrainerScript::`
Rename more script commands for consistency and predictability Fixes #540 2019-03-10 12:31:59 -07:00			`loadtemptrainer`
Create level scoped event flags for trainers and talkers, and integrate trainer battles in the board engine (#30) 2023-11-28 00:44:10 -08:00			`waitsfx ; wait for any pending space-related sfx`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`encountermusic`
			`showemote EMOTE_SHOCK, LAST_TALKED, 30`
Implement talker events [commit 1] (#30) 2023-11-28 04:59:36 -08:00			`callasm TrainerOrTalkerWalkToPlayer`
Rename more script commands for consistency and predictability Fixes #540 2019-03-10 12:31:59 -07:00			`applymovementlasttalked wMovementBuffer`
Renaming: (fix #412) - MapTriggers / maptrigger → SceneScripts / scene_script - XYTriggers / xy_trigger → CoordEvents / coord_event - Signposts / signpost → BGEvents / bg_event - PersonEvents / person_event → ObjectEvents / object_event 2017-12-24 10:46:34 -08:00			`writeobjectxy LAST_TALKED`
			`faceobject PLAYER, LAST_TALKED`
Rename some call/jump script commands to avoid confusion with jr/jp asm instructions Fixes #580 2019-03-10 13:39:31 -07:00			`sjump StartBattleWithMapTrainerScript`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00
Remove even more address comments That should be all of them this time 2018-06-24 17:10:37 -07:00			`StartBattleWithMapTrainerScript:`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`opentext`
Implement talker events [commit 3] (#30) 2023-11-28 12:36:51 -08:00			`trainerortalkertext TRAINERORTALKERTEXT_TRAINER_SEEN`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`waitbutton`
			`closetext`
Rename more script commands for consistency and predictability Fixes #540 2019-03-10 12:31:59 -07:00			`loadtemptrainer`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00			`startbattle`
			`reloadmapafterbattle`
Implement talker events [commit 2] (#30) 2023-11-28 09:02:00 -08:00			`trainerortalkerflagaction SET_FLAG`
Homogenize transition after trainer/talker (#30); Being writing usage docs 2024-02-17 09:56:19 -08:00			`scall AfterTrainerOrTalkerScript`
Rename more script commands for consistency and predictability Fixes #540 2019-03-10 12:31:59 -07:00			`loadmem wRunningTrainerBattleScript, -1`
Move more contiguous related code blocks from main.asm to engine/ and events/ 2017-12-15 17:10:54 -08:00
			`AlreadyBeatenTrainerScript:`
Implement talker events: core functionality done [commit 4] (#30) 2023-11-29 11:04:08 -08:00			`jumptrainerafterbattlescript`
Implement talker events [commit 1] (#30) 2023-11-28 04:59:36 -08:00
			`SeenByTalkerScript::`
			`waitsfx ; wait for any pending space-related sfx`
SFX player in debug menu 2023-11-30 06:51:24 -08:00			`playsound SFX_UNKNOWN_66`
Implement talker events [commit 1] (#30) 2023-11-28 04:59:36 -08:00			`showemote EMOTE_TALK, LAST_TALKED, 20`
Implement talker events: core functionality done [commit 4] (#30) 2023-11-29 11:04:08 -08:00			`trainerortalkerflagaction SET_FLAG`
Implement talker events [commit 2] (#30) 2023-11-28 09:02:00 -08:00			`callasm .TalkOrSkipTalker`
			`iffalse .skipped`
Implement talker events [commit 1] (#30) 2023-11-28 04:59:36 -08:00			`callasm TrainerOrTalkerWalkToPlayer`
			`applymovementlasttalked wMovementBuffer`
			`writeobjectxy LAST_TALKED`
			`faceobject PLAYER, LAST_TALKED`
Implement talker events [commit 3] (#30) 2023-11-28 12:36:51 -08:00			`callasm .GetTalkerType`
			`ifequal TALKERTYPE_TEXT, .Text`
			`ifequal TALKERTYPE_SCRIPT, .Script`
Implement talker events [commit 2] (#30) 2023-11-28 09:02:00 -08:00			`.skipped`
Implement talker events [commit 3] (#30) 2023-11-28 12:36:51 -08:00			`end`

			`.Text`
			`opentext`
			`trainerortalkertext TRAINERORTALKERTEXT_TALKER`
			`waitbutton`
			`closetext`
Homogenize transition after trainer/talker (#30); Being writing usage docs 2024-02-17 09:56:19 -08:00			`sjump AfterTrainerOrTalkerScript`
Implement talker events [commit 3] (#30) 2023-11-28 12:36:51 -08:00
			`.Script`
Homogenize transition after trainer/talker (#30); Being writing usage docs 2024-02-17 09:56:19 -08:00			`talkerscript`
			`sjump AfterTrainerOrTalkerScript`
Implement talker events [commit 2] (#30) 2023-11-28 09:02:00 -08:00
			`.TalkOrSkipTalker:`
			`ld a, [wTempTalkerType]`
Implement talker events [commit 3] (#30) 2023-11-28 12:36:51 -08:00			`and TALKEREVENTTYPE_MASK`
Implement talker events [commit 2] (#30) 2023-11-28 09:02:00 -08:00			`cp TALKEREVENTTYPE_MANDATORY`
			`jr z, .skip`
Legend OAM in branch space (#28), view map mode (#29), and talker events (#30) 2023-12-23 05:44:36 -08:00			`farcall LoadTalkerEventLegendGFX`
			`ld hl, wDisplaySecondarySprites`
			`set SECONDARYSPRITES_TALKER_EVENT_F, [hl]`
			`call UpdateActiveSprites`
Implement talker events [commit 3] (#30) 2023-11-28 12:36:51 -08:00			`call JoyWaitAorB`
Implement talker events [commit 2] (#30) 2023-11-28 09:02:00 -08:00			`call PlayClickSFX`
			`call WaitSFX`
Legend OAM in branch space (#28), view map mode (#29), and talker events (#30) 2023-12-23 05:44:36 -08:00			`ld hl, wDisplaySecondarySprites`
			`res SECONDARYSPRITES_TALKER_EVENT_F, [hl]`
Implement talker events [commit 2] (#30) 2023-11-28 09:02:00 -08:00			`ldh a, [hJoyPressed]`
			`bit A_BUTTON_F, a`
			`jr z, .skip ; jump if b was pressed`
			`ld a, TRUE`
			`jr .done`
			`.skip`
			`xor a ; FALSE`
			`.done`
			`ld [hScriptVar], a`
			`ret`
Implement talker events [commit 3] (#30) 2023-11-28 12:36:51 -08:00
			`.GetTalkerType:`
			`ld a, [wTempTalkerType]`
			`and TALKERTYPE_MASK`
			`ld [hScriptVar], a`
Homogenize transition after trainer/talker (#30); Being writing usage docs 2024-02-17 09:56:19 -08:00			`ret`

			`AfterTrainerOrTalkerScript:`
			`wait 200`
			`readmem wSpacesLeft`
			`iftrue .not_landed`
			`turnobject PLAYER, DOWN`
			`wait 100`
			`.not_landed`
			`end`