version=2

:if:<Register.registered(LORSGyarados)>=True <and> <register.registered(LORLance)>=False
	@NPC.Unregister(Lakeofrage.dat|4|position|4,21,0,28)
	@NPC.Register(Lakeofrage.dat|4|position|21,0,28)
:endif

:if:<register.registered(passhail)>=True
	@Entity.Warp(5,7,0,2)
	@Entity.SetVisible(6,0)
	@NPC.Register(mahogany\shop.dat|0|remove|0)
	@NPC.Register(mahogany\shop.dat|3|remove|0)
	:endscript
:endif

:if:<register.registered(MahoganyLance)>=True
	@Entity.Warp(5,7,0,2)
	@Entity.SetVisible(6,0)
	:endscript
:endif

:if:<Register.registered(LORLance)>=True <and> <register.registered(MahoganyLance)>=False
	@Player.Move(0)
	@player.turnto(1)
	@Text.show(Lance: DRAGONITE,~HYPER BEAM.)
	@pokemon.cry(149)
	@level.wait(60)
	@sound.play(destroy)
	@npc.move(2,-1)
	@level.Wait(50)
	@Text.show(Dragonite return!)
	@sound.play(PokeballOpen)
	@npc.Warp(3,0,-1,0)
	@Level.Update
	@player.turnto(0)
	@npc.Turn(0,2)
	@Text.show(What took you,~<player.name>?*Just as I thought,~that strange radio*signal is coming~from here.)
	@npc.Turn(0,3)
	@npc.Move(0,2)
	@Player.turnto(3)
	@Player.Move(2)
	@npc.Turn(0,0)
	@Player.turnto(0)
	@npc.Move(0,3)
	@npc.Turn(0,3)
	@npc.Move(0,1)
	@Player.Move(5)
	@Player.turnto(3)
	@Player.Move(2)
	@Player.turnto(2)
	@Text.show(The stairs are~right here.)
	@sound.play(shutter)
	@Entity.Warp(5,7,0,2)
	@Entity.SetVisible(6,0)
	@Level.Update
	@Text.show(<player.name>, we~should split up to~check this place.*I'll go first.)
	@npc.move(0,1)
	@sound.play(enter)
	@npc.Warp(0,0,-1,0)
	@NPC.Register(mahogany\shop.dat|0|remove|0)
	@NPC.Register(mahogany\shop.dat|3|remove|0)
	@Register.register(MahoganyLance)
	:endscript
:endif
:end