version=2
@music.play(silence)
:select:<player.position>

:when:3,1,2
@player.turnto(1)
@player.move(1)
@player.turnto(0)
:endwhen

@player.move(1)
@player.turnto(3)
@npc.turn(0,1)
@battle.starttrainer(league\<register.registered(leagueupgrade)>\lance)

@register.unregister(trainer_league\<register.registered(leagueupgrade)>\lance)

:if:<register.registered(First_time_champion)>=False
:then
@register.register(First_time_champion)
:endif

@music.play(silence)
@entity.remove(4)
@entity.remove(5)
@entity.setvisible(3,1)
@entity.setvisible(6,1)
@player.achieveemblem(champion)
@text.show(...Whew.*You have become truly~powerful, <player.name>.*Your Pokémon have responded~to your strong and~upstanding nature.*As a trainer,~you will continue to grow~strong with your Pokémon.)
@music.play(mary_encounter)
@npc.warp(1,2,0,5)
@npc.warp(2,2,0,6)

@npc.turn(0,2)
@npc.wearskin(3,<player.skin>)
@npc.setonlineskin(3,<player.gamejoltid>)
@camera.deactivethirdperson
@player.warp(3,2,6)
@player.turnto(0)
@npc.warp(3,2,1,1)

@level.update
@npc.move(1,1)
@npc.setmovey(1,1)
@npc.move(1,2)
@npc.turn(1,2)
@text.show(Mary: Oh, no!~It's all over!*Prof. Oak, if you~weren't so slow...)
@npc.move(2,2)
@npc.setmovey(2,1)
@npc.turn(1,1)
@npc.move(1,1)
@npc.turn(1,3)
@npc.move(2,2)
@text.show(Ah, <player.name>!*It's been a long while.*You certainly look~more impressive.*Your conquest of the~League is just fantastic!*Your dedication, trust~and love for your Pokémon~made this happen.*Your Pokémon were~outstanding too!*Because they believed~in you as a trainer,~they persevered.*Congratulations, <player.name>!)
@npc.turn(1,0)
@npc.move(1,1)
@npc.turn(1,3)
@npc.turn(3,1)
@text.show(Mary: Let's interview the~brand new champion!)
@npc.turn(0,1)
@npc.turn(3,3)
@text.show(This is getting to~be a bit too noisy...~<player.name>,~could you come with me?)
@npc.turn(0,0)
@npc.turn(3,0)
@npc.move(0,2)
@sound.play(enter)
@npc.move(3,2)
@sound.play(enter)
@npc.remove(0)
@npc.remove(3)
@npc.move(1,1)
@npc.turn(1,0)
@npc.move(1,1)
@Text.show(Mary: Oh wait!~We haven't done the interview!)
@register.unregister(defeatwill)
@register.unregister(trainer_league\<register.registered(leagueupgrade)>\will)
@register.unregister(defeatkoga)
@register.unregister(trainer_league\<register.registered(leagueupgrade)>\koga)
@register.unregister(defeatbruno)
@register.unregister(trainer_league\<register.registered(leagueupgrade)>\bruno)
@register.unregister(defeatkaren)
@register.unregister(trainer_league\<register.registered(leagueupgrade)>\karen)
@screen.fadeout
@player.warp(indigo\halloffame.dat,4,0.1,17,0)
:end