first and biggest Pike commit!

win conditions for challenge not done, only 2/9 room types scripted and need npcs in the 3 rooms and then copied. Endless mode needs to be configured from being a copy of challenge

P3D/Content/Data/Scripts/frontier/battlepike/hint.dat

@@ -0,0 +1,32 @@
+version=2
+:if:<register.registered(pikelucynext)>=true
+	@text.show(From every path I sense a dreadful presence...)
+	:end
+:endif
+
+I beg your pardon, but...~Are you perhaps finding it difficult to choose your path?
+@options.show(Yes,No)
+	:when:No
+		@text.show(I See...~I apologize for my~impertinence...)
+		:end
+	:when:Yes
+		:select:<register.value(pikehintspot)>
+			:when:0
+				@text.show(Ah, let me see...*There is something about~the path on the left...)
+			:when:1
+				@text.show(Ah, let me see...*There is something about~the path in the center...)
+			:when:2
+				@text.show(Ah, let me see...*There is something about~the path on the right...)
+		:endwhen
+		:select:<register.value(pikehint)>
+			:when:0
+				@text.show(For some odd reason,~I felt a wave of nostalgia~coming from it...)
+			:when:1
+				@text.show(Is it...~A Trainer?*I sense the presence~of people...)
+			:when:2
+				@text.show(It seems to have the distinct~aroma of Pokémon wafting~around it...)
+			:when:3
+				@text.show(I seem to have heard~something...*It may have been~whispering...)
+		:endwhen
+:endwhen
+:end

P3D/Content/Data/Scripts/frontier/battlepike/roomchooser.dat

@@ -0,0 +1,125 @@
+version=2
+#0 = status Condition - skip if all status or faint
+#1 = partial recovery - skip if fully healed
+#2 = single battle
+#3 = full recovery - Skip if fully healed
+#4 = Wild Pokemon
+#5 = Hard Battle+heal - not hinted if no healing needed
+#6 = no event
+#7 = Double Battle - skip if only one mon
+#8 = Lucy
+:if:<register.registered(pikelucynext)>=true
+	@register.change(pikehintspot,3)
+	@register.change(pikehint,4)
+	@register.change(pikehinted,8)
+	@player.move(0)
+	@text.show(I am sorry to say...*A terrifying event,~yes, a horrible one,~is about to befall you...*I urge you to pay the utmost~care and prepare for~the worst...)
+:else
+	@register.change(pikehintspot,<system.random(0,2)>)
+	@register.change(pikehint,<system.random(0,3)>)
+
+	:select:<register.value(pikehint)>
+		:when:0
+			:if:<pokemon.status(0)> = none <and> <pokemon.status(1)> = none <and> <pokemon.status(2)> = none
+				:if:<pokemon.fullyhealed>=true
+					@register.change(pikehinted,0)
+				:else
+					@register.change(pikehinted,<system.random(0,1)>)
+				:endif
+			:else
+				@register.change(pikehinted,1)
+			:endif
+		:when:1
+			:if:<pokemon.fullyhealed>=true
+				@register.change(pikehinted,2)
+			:else
+				@register.change(pikehinted,<system.random(2,3)>)
+			:endif
+		:when:2
+			:if:<pokemon.fullyhealed>=true
+				@register.change(pikehinted,4)
+			:else
+				@register.change(pikehinted,<system.random(4,5)>)
+			:endif
+		:when:3
+			:if:<pokemon.countbattle>=1
+				@register.change(pikehinted,6)
+			:else
+				:if:<system.random(0,3)>=0
+					@register.change(pikehinted,7)
+				:else
+					@register.change(pikehinted,6)
+				:endif
+			:endif
+		:when:4
+			@register.change(pikehinted,8)
+	:endwhen
+	@storage.set(integer,potentialrooms,0)
+	@storage.set(integer,roomcounter,0)
+	:while:<storage.get(integer,roomcounter)><8
+		:select:<storage.get(integer,roomcounter)>
+			:when:0
+				:if:<not><register.value(pikehint)>=0
+					:if:<pokemon.status(0)> = none <and> <pokemon.status(1)> = none <and> <pokemon.status(2)> = none
+						@storage.set(integer,potroom<storage.get(integer,potentialrooms)>,0)
+						@storage.update(integer,potentialrooms,+,1)
+					:endif
+				:endif
+			:when:1
+				:if:<not><register.value(pikehint)>=0
+					:if:<pokemon.fullyhealed>=false
+						@storage.set(integer,potroom<storage.get(integer,potentialrooms)>,1)
+						@storage.update(integer,potentialrooms,+,1)
+					:endif
+				:endif
+			:when:2
+				:if:<not><register.value(pikehint)>=1
+					@storage.set(integer,potroom<storage.get(integer,potentialrooms)>,2)
+					@storage.update(integer,potentialrooms,+,1)
+				:endif
+			:when:3
+				:if:<not><register.value(pikehint)>=1
+					:if:<pokemon.fullyhealed>=false
+						@storage.set(integer,potroom<storage.get(integer,potentialrooms)>,3)
+						@storage.update(integer,potentialrooms,+,1)
+					:endif
+				:endif
+			:when:4
+				:if:<not><register.value(pikehint)>=2
+					@storage.set(integer,potroom<storage.get(integer,potentialrooms)>,4)
+					@storage.update(integer,potentialrooms,+,1)
+				:endif
+			:when:5
+				:if:<not><register.value(pikehint)>=2
+					@storage.set(integer,potroom<storage.get(integer,potentialrooms)>,5)
+					@storage.update(integer,potentialrooms,+,1)
+				:endif
+			:when:6
+				:if:<not><register.value(pikehint)>=3
+					@storage.set(integer,potroom<storage.get(integer,potentialrooms)>,6)
+					@storage.update(integer,potentialrooms,+,1)
+				:endif
+			:when:7
+				:if:<not><register.value(pikehint)>=3
+					:if:<pokemon.countbattle>=1
+						@storage.set(integer,potroom<storage.get(integer,potentialrooms)>,7)
+						@storage.update(integer,potentialrooms,+,1)
+					:endif
+				:endif
+		:endwhen
+		@storage.update(integer,roomcounter,+,1)
+	:endwhile
+:endif
+@storage.set(integer,roomsset,0)
+:while:<storage.get(integer,roomsset)><3
+	:if:<register.registered(pikelucynext)>=true
+		@register.change(pikeroom<storage.get(integer,roomsset)>,8)
+	:else
+		:if:<storage.get(integer,roomsset)> = <register.value(pikehintspot)>
+			@register.change(pikeroom<storage.get(integer,roomsset)>,<register.value(pikehinted)>)
+		:else
+			@register.change(pikeroom<storage.get(integer,roomsset)>,<storage.get(integer,potroom<system.random(0,<math.int(<storage.get(integer,potentialrooms)>-1)>)>)>)
+		:endif
+	:endif
+	@storage.update(integer,roomsset,+,1)
+:endwhile

P3D/Content/Data/badges.dat

@@ -21,3 +21,6 @@ frontier_1_gold|name=Gold Ability|description=You defeated the Frontier Brain of
 
 frontier_2_silver|name=Silver Knowledge|description=Only few trainers achieved this emblem~which shows what strength lies~inside them.|Texture=GUI\Badges,100,200,50,50
 frontier_2_gold|name=Gold Knowledge|description=This Emblem displays how great you can~interact with Pokémon and how well~you can adapt your strategy to a new situation.|Texture=GUI\Badges,150,200,50,50
+
+frontier_3_silver|name=Silver Luck|description=You have shown great skill at taking~the luck thrown your way, good or bad.|Texture=GUI\Badges,200,200,50,50
+frontier_3_gold|name=Gold Luck|description=Your luck trumped all at the Battle Pike.~You mitigated the worst luck and~doubled down on the best luck.|Texture=GUI\Badges,250,200,50,50

P3D/Content/Data/maps/poke/frontier/battlepike/wildroom.poke

@@ -0,0 +1,5 @@
+name=Skip
+type=Skip
+{0|{"Pokemon"[336]}{"OriginalNumber"[-1]}{"Gender"[0]}{"EggSteps"[0]}{"Item"[0]}{"ItemData"[]}{"NickName"[]}{"Level"[<register.value(wildlevel)>]}{"OT"[00000]}{"Ability"[151]}{"Status"[]}{"Nature"[3]}{"CatchLocation"[Battle Pike]}{"CatchTrainer"[Lucy]}{"CatchBall"[5]}{"CatchMethod"[annoyed]}{"Friendship"[70]}{"isShiny"[0]}{"Attack1"[92]}{"Attack2"[137]}{"Attack3"[188]}{"Attack4"[34]}{"EVs"[88,84,84,84,84,84]}{"IVs"[22,22,22,22,22,22]}{"AdditionalData"[]}|26|-1|<register.value(wildlevel)>,<register.value(wildlevel)>}
+{0|{"Pokemon"[350]}{"OriginalNumber"[-1]}{"Gender"[0]}{"EggSteps"[0]}{"Item"[0]}{"ItemData"[]}{"NickName"[]}{"Level"[<register.value(wildlevel)>]}{"OT"[00000]}{"Ability"[63]}{"Status"[]}{"Nature"[15]}{"CatchLocation"[Battle Pike]}{"CatchTrainer"[Lucy]}{"CatchBall"[5]}{"CatchMethod"[annoyed]}{"Friendship"[70]}{"isShiny"[0]}{"Attack1"[92]}{"Attack2"[95]}{"Attack3"[34]}{"Attack4"[57]}{"EVs"[88,84,84,84,84,84]}{"IVs"[22,22,22,22,22,22]}{"AdditionalData"[]}|26|-1|<register.value(wildlevel)>,<register.value(wildlevel)>}
+{0|<register.value(wildspecial)>|48|-1|<register.value(wildlevel)>,<register.value(wildlevel)>}

P3D/P3D.vbproj

@@ -19484,6 +19484,9 @@
     <Content Include="Content\Textures\NPC\95.png">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </Content>
+    <Content Include="Content\Textures\NPC\96.png">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
     <Content Include="Content\Textures\NPC\Agatha.png">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </Content>
@@ -29290,7 +29293,7 @@
     <Content Include="Content\Data\maps\frontier\battlepike\passage.dat">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </Content>
-    <Content Include="Content\Data\maps\frontier\battlepike\room.dat">
+    <Content Include="Content\Data\maps\frontier\battlepike\rooms\0.dat">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </Content>
     <Content Include="Content\Data\maps\frontier\battlepike\wildroom.dat">
@@ -29347,6 +29350,18 @@
     <Content Include="Content\Data\maps\frontier\battlefactory\breakroom.dat">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </Content>
+    <Content Include="Content\Data\maps\frontier\battlepike\choose.dat">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+    <Content Include="Content\Data\maps\frontier\battlepike\finalroom.dat">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+    <Content Include="Content\Data\maps\frontier\battlepike\rooms\1.dat">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+    <Content Include="Content\Data\maps\frontier\battlepike\rooms\2.dat">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
     <None Include="Content\Data\maps\goldenrod\club.dat">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </None>
@@ -29455,6 +29470,9 @@
     <Content Include="Content\Data\maps\poke\routes\route50.poke">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </Content>
+    <Content Include="Content\Data\maps\poke\frontier\battlepike\wildroom.poke">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
     <None Include="Content\Data\maps\poke\routes\route28.poke">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </None>
@@ -29902,6 +29920,66 @@
     <Content Include="Content\Data\Scripts\frontier\teamcheck.dat">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </Content>
+    <Content Include="Content\Data\Scripts\frontier\battlepike\challenge\checkin.dat">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+    <Content Include="Content\Data\Scripts\frontier\battlepike\challenge\enterchoose.dat">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+    <Content Include="Content\Data\Scripts\frontier\battlepike\challenge\roomevent.dat">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+    <Content Include="Content\Data\Scripts\frontier\battlepike\challenge\intro_walk.dat">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+    <Content Include="Content\Data\Scripts\frontier\battlepike\chatter.dat">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+    <Content Include="Content\Data\Scripts\frontier\battlepike\challenge\main.dat">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+    <Content Include="Content\Data\Scripts\frontier\battlepike\challenge\record_machine.dat">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+    <Content Include="Content\Data\Scripts\frontier\battlepike\challenge\won7.dat">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+    <Content Include="Content\Data\Scripts\frontier\battlepike\challenge\wonbrain.dat">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+    <Content Include="Content\Data\Scripts\frontier\battlepike\hint.dat">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+    <Content Include="Content\Data\Scripts\frontier\battlepike\roomchooser.dat">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+    <Content Include="Content\Data\Scripts\frontier\battlepike\challenge\lost.dat">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+    <Content Include="Content\Data\Scripts\frontier\battlepike\ruleboard.dat">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+    <Content Include="Content\Data\Scripts\frontier\battlepike\endless\checkin.dat">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+    <Content Include="Content\Data\Scripts\frontier\battlepike\endless\enterchoose.dat">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+    <Content Include="Content\Data\Scripts\frontier\battlepike\endless\intro_walk.dat">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+    <Content Include="Content\Data\Scripts\frontier\battlepike\endless\lost.dat">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+    <Content Include="Content\Data\Scripts\frontier\battlepike\endless\main.dat">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+    <Content Include="Content\Data\Scripts\frontier\battlepike\endless\record_machine.dat">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+    <Content Include="Content\Data\Scripts\frontier\battlepike\endless\roomevent.dat">
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
     <None Include="Content\Data\Scripts\kin\berryforestitems\2051.dat">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </None>

P3D/World/ActionScript/V2/ScriptConstructs/DoPokemon.vb

@@ -493,6 +493,9 @@
                     Dim checkType As String = args(1)
 
                     Return ReturnBoolean(p.IsType(New Element(checkType).Type))
+                Case "ability"
+                    Dim p As Pokemon = Core.Player.Pokemons(int(argument))
+                    Return p.Ability.ID()
                 Case "displayname"
                     Dim index As Integer = int(argument.GetSplit(0))
                     Return Core.Player.Pokemons(index).GetDisplayName()