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