Modified oak script to fit the Kanto starters part, and the Mega Bracelet part.

2.5DHero/2.5DHero/2.5DHero.vbproj

@@ -1664,6 +1664,12 @@
     <None Include="Scripts\olivine\voltorb_trade.dat">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>
+    <None Include="Scripts\pallet\bulbasaur.dat">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
+    <None Include="Scripts\pallet\charmander.dat">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
     <None Include="Scripts\pallet\daisy.dat">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>
@@ -1679,6 +1685,9 @@
     <None Include="Scripts\pallet\oak.dat">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>
+    <None Include="Scripts\pallet\squirtle.dat">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
     <None Include="Scripts\pewter\fossilscientist.dat">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>

2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoPokemon.vb

@@ -23,7 +23,7 @@
                         Core.Player.Pokemons.RemoveAt(index)
                     End If
                 Case "add"
-                    ' PokemonID,Level,Method,Ball,Location,IsEgg,TrainerName
+                    ' PokemonID,Level,Method,Ball,Location,IsEgg,TrainerName,HeldItem
 
                     If argument.StartsWith("{") = True Or argument.Remove(0, 1).StartsWith(",{") = True Then
                         Dim insertIndex As Integer = Core.Player.Pokemons.Count
@@ -80,6 +80,11 @@
                             catchTrainer = argument.GetSplit(6)
                         End If
 
+                        Dim heldItem As Integer = 0
+                        If commas > 6 Then
+                            heldItem = CInt(argument.GetSplit(7))
+                        End If
+
                         Dim Pokemon As Pokemon = Pokemon.GetPokemonByID(PokemonID)
                         Pokemon.Generate(Level, True)
 
@@ -97,6 +102,10 @@
                             Pokemon.EggSteps = 0
                         End If
 
+                        If heldItem <> 0 Then
+                            Pokemon.Item = Item.GetItemByID(heldItem)
+                        End If
+
                         Core.Player.Pokemons.Add(Pokemon)
 
                         Dim pokedexType As Integer = 2