BotanMagnetTrain_MapScriptHeader;trigger count
	db 0
 ;callback count
	db 0

BotanMagnetTrainEmployee:
	opentext
	writetext .text
	loadmenudata .menu
	verticalmenu
	closewindow
	sif >, 1
		addvar 1
	farjump TrainStationScript

.menu
	db $40 ; flags
	db 01, 10 ; start coords
	db 11, 19 ; end coords
	dw .options
	db 1 ; default option

.options
	db $80
	db $4
	db "Naljo@"
	db "Johto@"
	db "Kanto@"
	db "Cancel@"

.text
	ctxt "Hello."

	para "Where do you want"
	line "to go?"
	done

BotanMagnetTrainNPC:
	jumptextfaceplayer .text

.text
	ctxt "A cave used to"
	line "stand here, but"

	para "they demolished"
	line "it to make way"

	para "for this very"
	line "train station."
	done

BotanMagnetTrain_MapEventHeader ;filler
	db 0, 0

;warps
	db 2
	warp_def $11, $8, 7, BOTAN_CITY
	warp_def $11, $9, 7, BOTAN_CITY

	;xy triggers
	db 0

	;signposts
	db 0

	;people-events
	db 2
	person_event SPRITE_OFFICER, 9, 9, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_OW_BROWN, PERSONTYPE_SCRIPT, 0, BotanMagnetTrainEmployee, -1
	person_event SPRITE_GENTLEMAN, 14, 6, SPRITEMOVEDATA_WANDER, 1, 1, -1, -1, PAL_OW_RED, PERSONTYPE_SCRIPT, 0, BotanMagnetTrainNPC, -1
