P3D-Legacy/P3D/Content/Data/Scripts/pewter/fossilscientist.dat

<EFBFBD><EFBFBD>version=2
@text.show(Hello.*I study fossils.*If you find a fossil~bring it to me and I might~be able to revive it!)
:end

:if:<item.countitem(601)>=0 <and> <item.countitem(602)>=0 <and> <item.countitem(603)>=0 <and> <item.countitem(604)>=0 <and> <item.countitem(605)>=0 <and> <item.countitem(606)>=0 <and> <item.countitem(607)>=0 <and> <item.countitem(608)>=0 <and> <item.countitem(609)>=0 <and> <item.countitem(610)>=0 <and> <item.countitem(611)>=0
	:if:<item.countitem(612)>>0 <or> <item.countitem(613)>>0 <or> <item.countitem(614)>>0 <or> <item.countitem(615)>>0
		@text.show(Oh that fossil looks~broken, I don't think~I can revive it.)
	:endif
	:end
:endif

@storage.set(int,fossilcount,0)
@storage.set(str,fossils,)

:if:<item.countitem(601)>>0
	:if:<storage.get(int,fossilcount)>>0
		@storage.set(str,fossils,<storage.get(str,fossils)>,)
	:endif
	@storage.set(str,fossils,<storage.get(str,fossils)>Helix Fossil)
	@storage.set(int,fossilcount,<storage.get(int,fossilcount)>+1)
:endif

:if:<item.countitem(602)>>0
	:if:<storage.get(int,fossilcount)>>0
		@storage.set(str,fossils,<storage.get(str,fossils)>,)
	:endif
	@storage.set(str,fossils,<storage.get(str,fossils)>Dome Fossil)
	@storage.set(int,fossilcount,<storage.get(int,fossilcount)>+1)
:endif

:if:<item.countitem(603)>>0
	:if:<storage.get(int,fossilcount)>>0
		@storage.set(str,fossils,<storage.get(str,fossils)>,)
	:endif
	@storage.set(str,fossils,<storage.get(str,fossils)>Old Amber)
	@storage.set(int,fossilcount,<storage.get(int,fossilcount)>+1)
:endif

:if:<item.countitem(604)>>0
	:if:<storage.get(int,fossilcount)>>0
		@storage.set(str,fossils,<storage.get(str,fossils)>,)
	:endif
	@storage.set(str,fossils,<storage.get(str,fossils)>Root Fossil)
	@storage.set(int,fossilcount,<storage.get(int,fossilcount)>+1)
:endif

:if:<item.countitem(605)>>0
	:if:<storage.get(int,fossilcount)>>0
		@storage.set(str,fossils,<storage.get(str,fossils)>,)
	:endif
	@storage.set(str,fossils,<storage.get(str,fossils)>Claw Fossil)
	@storage.set(int,fossilcount,<storage.get(int,fossilcount)>+1)
:endif

:if:<item.countitem(606)>>0
	:if:<storage.get(int,fossilcount)>>0
		@storage.set(str,fossils,<storage.get(str,fossils)>,)
	:endif
	@storage.set(str,fossils,<storage.get(str,fossils)>Skull Fossil)
	@storage.set(int,fossilcount,<storage.get(int,fossilcount)>+1)
:endif

:if:<item.countitem(607)>>0
	:if:<storage.get(int,fossilcount)>>0
		@storage.set(str,fossils,<storage.get(str,fossils)>,)
	:endif
	@storage.set(str,fossils,<storage.get(str,fossils)>Armor Fossil)
	@storage.set(int,fossilcount,<storage.get(int,fossilcount)>+1)
:endif

:if:<item.countitem(608)>>0
	:if:<storage.get(int,fossilcount)>>0
		@storage.set(str,fossils,<storage.get(str,fossils)>,)
	:endif
	@storage.set(str,fossils,<storage.get(str,fossils)>Cover Fossil)
	@storage.set(int,fossilcount,<storage.get(int,fossilcount)>+1)
:endif

:if:<item.countitem(609)>>0
	:if:<storage.get(int,fossilcount)>>0
		@storage.set(str,fossils,<storage.get(str,fossils)>,)
	:endif
	@storage.set(str,fossils,<storage.get(str,fossils)>Plume Fossil)
	@storage.set(int,fossilcount,<storage.get(int,fossilcount)>+1)
:endif

:if:<item.countitem(610)>>0
	:if:<storage.get(int,fossilcount)>>0
		@storage.set(str,fossils,<storage.get(str,fossils)>,)
	:endif
	@storage.set(str,fossils,<storage.get(str,fossils)>Jaw Fossil)
	@storage.set(int,fossilcount,<storage.get(int,fossilcount)>+1)
:endif

:if:<item.countitem(611)>>0
	:if:<storage.get(int,fossilcount)>>0
		@storage.set(str,fossils,<storage.get(str,fossils)>,)
	:endif
	@storage.set(str,fossils,<storage.get(str,fossils)>Sail Fossil)
	@storage.set(int,fossilcount,<storage.get(int,fossilcount)>+1)
:endif

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

@text.show(Which fossil should I revive?)
@options.show(<storage.get(str,fossils)>)
	:when:Helix Fossil
		@storage.set(int,poknum,138)
		@storage.set(int,fosnum,601)
		@storage.set(str,pokname,Omanyte)
		@storage.set(str,fosname,Helix Fossil)
	:when:Dome Fossil
		@storage.set(int,poknum,140)
		@storage.set(int,fosnum,602)
		@storage.set(str,pokname,Kabuto)
		@storage.set(str,fosname,Dome Fossil)
	:when:Old Amber
		@storage.set(int,poknum,142)
		@storage.set(int,fosnum,603)
		@storage.set(str,pokname,Aerodactyl)
		@storage.set(str,fosname,Old Amber)
	:when:Root Fossil
		@storage.set(int,poknum,345)
		@storage.set(int,fosnum,604)
		@storage.set(str,pokname,Lileep)
		@storage.set(str,fosname,Root Fossil)
	:when:Claw Fossil
		@storage.set(int,poknum,347)
		@storage.set(int,fosnum,605)
		@storage.set(str,pokname,Anorith)
		@storage.set(str,fosname,Claw Fossil)
	:when:Skull Fossil
		@storage.set(int,poknum,408)
		@storage.set(int,fosnum,606)
		@storage.set(str,pokname,Cranidos)
		@storage.set(str,fosname,Skull Fossil)
	:when:Armor Fossil
		@storage.set(int,poknum,410)
		@storage.set(int,fosnum,607)
		@storage.set(str,pokname,Sheildon)
		@storage.set(str,fosname,Armor Fossil)
	:when:Cover Fossil
		@storage.set(int,poknum,564)
		@storage.set(int,fosnum,608)
		@storage.set(str,pokname,Tirtouga)
		@storage.set(str,fosname,Cover Fossil)
	:when:Plume Fossil
		@storage.set(int,poknum,566)
		@storage.set(int,fosnum,609)
		@storage.set(str,pokname,Archen)
		@storage.set(str,fosname,Plume Fossil)
	:when:Jaw Fossil
		@storage.set(int,poknum,696)
		@storage.set(int,fosnum,610)
		@storage.set(str,pokname,Tyrunt)
		@storage.set(str,fosname,Jaw Fossil)
	:when:Sail Fossil
		@storage.set(int,poknum,698)
		@storage.set(int,fosnum,611)
		@storage.set(str,pokname,Amaura)
		@storage.set(str,fosname,Sail Fossil)
	:when:Cancel
		:end
:endwhen

:if:<inventory.countitem(<storage.get(int,fosnum)>)>>1
	@text.show(Should I revive all <inventory.countitem(<storage.get(int,fosnum)>)>~of your <storage.get(str,fosname)>s?)
	@options.show(All,Just one)
		:when:All
			@text.show(I will put them directly~into your PC box for you!*This will take me just a moment!)
			@npc.turn(1,1)
			@npc.move(1,1)
			@npc.turn(1,0)
			@npc.move(1,1)
			@sound.play(enter)
			@level.wait(100)
			:while:<inventory.countitem(<storage.get(int,fosnum)>)>>0
				:if:<system.random(512)>=1
					@pokemon.addtostorage({"Pokemon"[<storage.get(int,poknum)>]}{"Level"[25]}{"CatchBall"[5]}{"CatchMethod"[revived at]}{"isShiny"[1]})
				:else
					@pokemon.addtostorage({"Pokemon"[<storage.get(int,poknum)>]}{"Level"[25]}{"CatchBall"[5]}{"CatchMethod"[revived at]}{"isShiny"[0]})
				:endif
				@item.remove(1,<storage.get(int,fosnum)>,0)
				@sound.play(pickup)
				@level.wait(75)
			:endwhile
			@npc.turn(1,2)
			@sound.play(enter)
			@npc.move(1,1)
			@npc.turn(1,3)
			@npc.warp(1,~,0.25,~)
			@npc.move(1,1)
			@npc.turn(1,2)
			@text.show(Okay, you are all set~check your PC to see~your new <storage.get(str,pokname)>!)
		:when:Just one
			:if:<pokemon.freeplaceinparty>=true
				@text.show(This will take me~just a moment!)
				@npc.turn(1,1)
				@npc.move(1,1)
				@npc.turn(1,0)
				@npc.move(1,1)
				@sound.play(enter)
				@level.wait(100)
				:if:<system.random(512)>=1
					@pokemon.add({"Pokemon"[<storage.get(int,poknum)>]}{"Level"[25]}{"CatchBall"[5]}{"CatchMethod"[revived at]}{"isShiny"[1]})
				:else
					@pokemon.add({"Pokemon"[<storage.get(int,poknum)>]}{"Level"[25]}{"CatchBall"[5]}{"CatchMethod"[revived at]}{"isShiny"[0]})
				:endif
				@item.remove(1,<storage.get(int,fosnum)>,0)
				@npc.turn(1,2)
				@sound.play(enter)
				@npc.move(1,1)
				@npc.turn(1,3)
				@npc.warp(1,~,0.25,~)
				@npc.move(1,1)
				@npc.turn(1,2)
				@text.show(Okay, here is your new <storage.get(str,pokname)>!)
				@sound.play(success_small)
			:else
				@text.show(I will put it directly~into your PC box for you!*This will take me just a moment!)
				@npc.turn(1,1)
				@npc.move(1,1)
				@npc.turn(1,0)
				@npc.move(1,1)
				@sound.play(enter)
				@level.wait(100)
				:if:<system.random(512)>=1
					@pokemon.addtostorage({"Pokemon"[<storage.get(int,poknum)>]}{"Level"[25]}{"CatchBall"[5]}{"CatchMethod"[revived at]}{"isShiny"[1]})
				:else
					@pokemon.addtostorage({"Pokemon"[<storage.get(int,poknum)>]}{"Level"[25]}{"CatchBall"[5]}{"CatchMethod"[revived at]}{"isShiny"[0]})
				:endif
				@item.remove(1,<storage.get(int,fosnum)>,0)
				@sound.play(pickup)
				@level.wait(75)
				@npc.turn(1,2)
				@sound.play(enter)
				@npc.move(1,1)
				@npc.turn(1,3)
				@npc.warp(1,~,0.25,~)
				@npc.move(1,1)
				@npc.turn(1,2)
				@text.show(Okay, you are all set~check your PC to see~your new <storage.get(str,pokname)>!)
			:endif
	:endwhen
:else
	:if:<pokemon.freeplaceinparty>=true
		@text.show(This will take me~just a moment!)
		@npc.turn(1,1)
		@npc.move(1,1)
		@npc.turn(1,0)
		@npc.move(1,1)
		@sound.play(enter)
		@level.wait(100)
		:if:<system.random(512)>=1
			@pokemon.add({"Pokemon"[<storage.get(int,poknum)>]}{"Level"[25]}{"CatchBall"[5]}{"CatchMethod"[revived at]}{"isShiny"[1]})
		:else
			@pokemon.add({"Pokemon"[<storage.get(int,poknum)>]}{"Level"[25]}{"CatchBall"[5]}{"CatchMethod"[revived at]}{"isShiny"[0]})
		:endif
		@item.remove(1,<storage.get(int,fosnum)>,0)
		@npc.turn(1,2)
		@sound.play(enter)
		@npc.move(1,1)
		@npc.turn(1,3)
		@npc.warp(1,~,0.25,~)
		@npc.move(1,1)
		@npc.turn(1,2)
		@text.show(Okay, here is your new <storage.get(str,pokname)>!)
		@sound.play(success_small)
	:else
		@text.show(I will put it directly~into your PC box for you!*This will take me just a moment!)
		@npc.turn(1,1)
		@npc.move(1,1)
		@npc.turn(1,0)
		@npc.move(1,1)
		@sound.play(enter)
		@level.wait(100)
		:if:<system.random(512)>=1
			@pokemon.addtostorage({"Pokemon"[<storage.get(int,poknum)>]}{"Level"[25]}{"CatchBall"[5]}{"CatchMethod"[revived at]}{"isShiny"[1]})
		:else
			@pokemon.addtostorage({"Pokemon"[<storage.get(int,poknum)>]}{"Level"[25]}{"CatchBall"[5]}{"CatchMethod"[revived at]}{"isShiny"[0]})
		:endif
		@item.remove(1,<storage.get(int,fosnum)>,0)
		@sound.play(pickup)
		@level.wait(75)
		@npc.turn(1,2)
		@sound.play(enter)
		@npc.move(1,1)
		@npc.turn(1,3)
		@npc.warp(1,~,0.25,~)
		@npc.move(1,1)
		@npc.turn(1,2)
		@text.show(Okay, you are all set~check your PC to see~your new <storage.get(str,pokname)>!)
	:endif
:endif
:end