version=2

:if:<inventory.countitem(612)>=0 <and> <inventory.countitem(613)>=0
	@text.show(A few Fossils are broken~into top halves and bottom~halves for some reason, huh.*Strangely, no matter which~top and bottom you combine,~we can revive them together.*Perhaps, within this~mystery, lies the key~to understanding these~combinable Pokémon, huh.)
	:end
:endif

:if:<inventory.countitem(614)>=0 <and> <inventory.countitem(615)>=0
	@text.show(A few Fossils are broken~into top halves and bottom~halves for some reason, huh.*Strangely, no matter which~top and bottom you combine,~we can revive them together.*Perhaps, within this~mystery, lies the key~to understanding these~combinable Pokémon, huh.)
	:end
:endif

@storage.set(int,fossilcount1,0)
@storage.set(str,fossils1,)
@storage.set(int,fossilcount2,0)
@storage.set(str,fossils2,)

:if:<inventory.countitem(612)>>0
	:if:<storage.get(int,fossilcount1)>>0
		@storage.set(str,fossils1,<storage.get(str,fossils1)>,)
	:endif
	@storage.set(str,fossils1,<storage.get(str,fossils1)>Fossilized Bird)
	@storage.set(int,fossilcount1,<storage.get(int,fossilcount1)>+1)
:endif

:if:<inventory.countitem(613)>>0
	:if:<storage.get(int,fossilcount1)>>0
		@storage.set(str,fossils1,<storage.get(str,fossils1)>,)
	:endif
	@storage.set(str,fossils1,<storage.get(str,fossils1)>Fossilized Fish)
	@storage.set(int,fossilcount1,<storage.get(int,fossilcount1)>+1)
:endif

:if:<inventory.countitem(614)>>0
	:if:<storage.get(int,fossilcount2)>>0
		@storage.set(str,fossils2,<storage.get(str,fossils2)>,)
	:endif
	@storage.set(str,fossils2,<storage.get(str,fossils2)>Fossilized Drake)
	@storage.set(int,fossilcount2,<storage.get(int,fossilcount2)>+1)
:endif

:if:<inventory.countitem(615)>>0
	:if:<storage.get(int,fossilcount2)>>0
		@storage.set(str,fossils2,<storage.get(str,fossils2)>,)
	:endif
	@storage.set(str,fossils2,<storage.get(str,fossils2)>Fossilized Dino)
	@storage.set(int,fossilcount2,<storage.get(int,fossilcount2)>+1)
:endif

:if:<storage.get(int,fossilcount1)>>0
	@storage.set(str,fossils1,<storage.get(str,fossils1)>,)
:endif
@storage.set(str,fossils1,<storage.get(str,fossils1)>Cancel)

:if:<storage.get(int,fossilcount2)>>0
	@storage.set(str,fossils2,<storage.get(str,fossils2)>,)
:endif
@storage.set(str,fossils2,<storage.get(str,fossils2)>Cancel)

@text.show(Hm?~You've got some Fossils~there, huh.*Will you show them to me,~Cara Liss?*Which of your Fossils~do you think stands up~to the high standards~of Cara Liss?)
@options.show(<storage.get(str,fossils1)>)
	:when:Fossilized Bird
		@text.show(Which of your fossils do~you think will pique the~curiosity of Cara Liss?)
		@options.show(<storage.get(str,fossils2)>)
			:when:Fossilized Drake
				@storage.set(int,poknum,880)
				@storage.set(int,fosnum1,612)
				@storage.set(int,fosnum2,614)
				@storage.set(str,pokname,Dracozolt)
				@storage.set(str,fosname1,Fossilized Bird)
				@storage.set(str,fosname2,Fossilized Drake)
			:when:Fossilized Dino
				@storage.set(int,poknum,881)
				@storage.set(int,fosnum1,612)
				@storage.set(int,fosnum2,615)
				@storage.set(str,pokname,Arctozolt)
				@storage.set(str,fosname1,Fossilized Bird)
				@storage.set(str,fosname2,Fossilized Dino)
			:when:Cancel
				:end
		:endwhen
	:when:Fossilized Fish
		@text.show(Which of your fossils do~you think will pique the~curiosity of Cara Liss?)
		@options.show(<storage.get(str,fossils2)>)
			:when:Fossilized Drake
				@storage.set(int,poknum,882)
				@storage.set(int,fosnum1,613)
				@storage.set(int,fosnum2,614)
				@storage.set(str,pokname,Dracovish)
				@storage.set(str,fosname1,Fossilized Fish)
				@storage.set(str,fosname2,Fossilized Drake)
			:when:Fossilized Dino
				@storage.set(int,poknum,883)
				@storage.set(int,fosnum1,613)
				@storage.set(int,fosnum2,615)
				@storage.set(str,pokname,Arctovish)
				@storage.set(str,fosname1,Fossilized Fish)
				@storage.set(str,fosname2,Fossilized Dino)
			:when:Cancel
				:end
		:endwhen
	:when:Cancel
		:end
:endwhen

@text.show(So I should restore~the <storage.get(str,fosname1)>~and the <storage.get(str,fosname2)>~together, huh?)
@options.show(Yes!,No)
	:when:Yes!
		@text.show(OK.~Restoration time.~Let's unravel the mystery~of these Fossils!)
		:if:<pokemon.freeplaceinparty>=true
			@npc.turn(3,3)
			@npc.move(3,1)
			@npc.turn(3,0)
			@npc.move(3,1)
			@sound.play(enter)
			:if:<system.random(<math.floor(<pokemon.mastershinyrate>/8)>)>=1
				@pokemon.add(<storage.get(int,poknum)>,25,Revived from a fossil,5,at Pewter City,0,<player.name>,0,1)
			:else
				@pokemon.add(<storage.get(int,poknum)>,25,Revived from a fossil,5,at Pewter City)
			:endif
			@item.remove(<storage.get(int,fosnum1)>,1,0)
			@item.remove(<storage.get(int,fosnum2)>,1,0)
			@text.show(All right,~I'll stick 'em together!~Here...we...GO!)
			@level.wait(100)
			@npc.turn(3,2)
			@sound.play(enter)
			@npc.move(3,1)
			@npc.turn(3,1)
			@npc.move(3,1)
			@npc.warp(3,~,0.25,~)
			@npc.turn(3,2)
			@text.show(Objective complete.~It seems the restoration~was a great success.*Yes, I can see it in its eyes.*This is a Pokémon that~walked the face of the~world in ancient times!*Please take and care~for this Pokémon, huh.)
			@sound.play(success_small)
		:else
			@npc.turn(3,3)
			@npc.move(3,1)
			@npc.turn(3,0)
			@npc.move(3,1)
			@sound.play(enter)
			:if:<system.random(512)>=1
				@pokemon.addtostorage(<storage.get(int,poknum)>,25,Revived from a fossil,5,at Pewter City,0,<player.name>,0,1)
			:else
				@pokemon.addtostorage(<storage.get(int,poknum)>,25,Revived from a fossil,5,at Pewter City)
			:endif
			@item.remove(<storage.get(int,fosnum1)>,1,0)
			@item.remove(<storage.get(int,fosnum2)>,1,0)
			@text.show(All right,~I'll stick 'em together!~Here...we...GO!)
			@level.wait(100)
			@npc.turn(3,2)
			@sound.play(enter)
			@npc.move(3,1)
			@npc.turn(3,1)
			@npc.move(3,1)
			@npc.warp(3,~,0.25,~)
			@npc.turn(3,2)
			@text.show(Objective complete.~It seems the restoration~was a great success.*Yes, I can see it in its eyes.*This is a Pokémon that~walked the face of the~world in ancient times!*I will put it directly~into your PC box for you!*Please care for this~Pokémon, huh.)
			@sound.play(success_small)
		:endif
	:when:No
:endwhen
:end