OwsauriStatEXP_MapScriptHeader;trigger count
	db 0
 ;callback count
	db 0

OwsauriStatEXPNPC:
	faceplayer
	opentext
	writetext .introduction_text
	yesorno
	sif false, then
		closetext
		end
	sendif
	checkmoney 0, 500
	sif =, 2
		jumptext .not_enough_money_text
	takemoney 0, 500
	writetext .choose_a_mon_text
	special Special_SelectMonFromParty
	iffalse .refund
	writetext .which_stat_text
	loadmenudata .menu
	verticalmenu
	closewindow
	sif true
		jumptext OwsauriStatEXP_ShowEXP
.refund
	givemoney 0, 500
	closetext
	end

.introduction_text
	ctxt "For ¥500 I can"
	line "tell you the Stat"
	para "Experience of one"
	line "of your #mon."

	para "Interested?"
	done

.not_enough_money_text
	ctxt "Sorry, you don't"
	line "have enough money."
	done

.choose_a_mon_text
	ctxt "Choose a #mon"
	line "you want me to"
	cont "check."
	sdone

.which_stat_text
	ctxt "Which stat do you"
	line "want me to check?"
	done

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

.options
	db $80
	db $5
StatExpStatNames:
	db "HP@"
	db "Attack@"
	db "Defense@"
	db "Speed@"
	db "Special@"

OwsauriStatEXP_ShowEXP:
	start_asm
	push bc
	ld a, [wPartyMenuCursor]
	dec a
	ld bc, PARTYMON_STRUCT_LENGTH
	ld hl, wPartyMon1 + MON_HP_EXP
	rst AddNTimes
	ld a, [hScriptVar]
	dec a
	push af
	add a, a
	ld c, a
	ld b, 0
	add hl, bc
	ld de, TempNumber
	ld a, [hli]
	ld [de], a
	inc de
	ld a, [hl]
	ld [de], a
	ld a, "@"
	ld hl, wStringBuffer1
	ld c, 8 ; b is already 0
	call ByteFill
	pop af
	ld hl, StatExpStatNames
	call GetNthString
	ld d, h
	ld e, l
	ld hl, wStringBuffer1
	call PlaceString
	pop bc
	ld hl, .text
	ret

.text
	ctxt "<STRBF1> EXP:"
	line "@"
	deciram TempNumber, 2, 5
	ctxt "/65535"
	done

OwsauriStatEXP_MapEventHeader ;filler
	db 0, 0

;warps
	db 2
	warp_def $7, $2, 5, OWSAURI_CITY
	warp_def $7, $3, 5, OWSAURI_CITY

	;xy triggers
	db 0

	;signposts
	db 0

	;people-events
	db 1
	person_event SPRITE_PHARMACIST, 3, 5, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, PAL_OW_YELLOW, PERSONTYPE_SCRIPT, 0, OwsauriStatEXPNPC, -1
