new PlayVictoryMusic function, WIP

PlayVictoryMusic: ; 3d0ea
	push de
	ld de, MUSIC_NONE
	call PlayMusic
	call DelayFrame
	ld de, MUSIC_WILD_VICTORY
	ld a, [wBattleMode]
	dec a
	jr nz, .trainer_victory
	push de
	call DoOthersShareExperience
	pop de
	jr nz, .play_music
	ld hl, wPayDayMoney
	ld a, [hli]
	or [hl]
	jr nz, .play_music
	ld a, [wBattleParticipantsNotFainted]
	and a
	jr z, .lost
	jr .play_music


.trainer_victory
	ld de, MUSIC_GYM_VICTORY
	call IsJohtoGymLeader
	jr c, .play_music
	ld de, MUSIC_TRAINER_VICTORY

.play_music
	call PlayMusic
	ld a, [wBattleMode]
	cp a, 1
	jr z, .yes
	jp .no
.yes
	ld hl, askTake
	call PrintText
	call YesNoBox
	jr nz, .saidyes
.no
.lost
	pop de
	ret
; 3d123

askTake:
	text_jump AskTake
	db "@"

AskTake:
	text "Capture the #-"
	line "mon?"
	prompt

.saidyes
	; insert code for catching the pokémon here
	jp .no