Battle Frontier Editor! Battle tents added!

I've added the battle tents to the Battle Frontier editor!
2026-08-22 02:14:10 -05:00 · 2015-12-02 13:34:06 -05:00
parent dec3388d64
commit 394f7011a2
19 changed files with 2674 additions and 55 deletions
--- a/.vs/GBAPokemonGameEditor/v14/.suo
+++ b/.vs/GBAPokemonGameEditor/v14/.suo
--- a/GBAPokemonGameEditor/BattleFrontierEditor.Designer.vb
+++ b/GBAPokemonGameEditor/BattleFrontierEditor.Designer.vb
--- a/GBAPokemonGameEditor/BattleFrontierEditor.vb
+++ b/GBAPokemonGameEditor/BattleFrontierEditor.vb
--- a/GBAPokemonGameEditor/ChangeNameFunctions.vb
+++ b/GBAPokemonGameEditor/ChangeNameFunctions.vb
@@ -163,4 +163,85 @@ Module ChangeNameFunctions
            End
        End If
    End Function
+
+    Public Function ChangeSlateportBattleTentName(ByVal Index As Integer, ByVal NewName As String)
+        Dim offvar As Long
+
+        offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "SlateportBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber)
+        If header2 = "BPE" Then
+            If header3 = "J" Then
+
+            Else
+
+                FileNum = FreeFile()
+                FileOpen(FileNum, LoadedROM, OpenMode.Binary)
+                Dim PokeName As String = "xxxxxxxx"
+                Dim filler As Byte = "&HFF"
+                PokeName = NameAsc2Sapp(NewName)
+                FilePut(FileNum, PokeName, offvar + 1 + 4 + (Index * 52))
+                FilePut(FileNum, filler, offvar + 1 + 4 + (Index * 52) + Len(NewName))
+
+
+            End If
+            FileClose(FileNum)
+            ChangeSlateportBattleTentName = NewName
+        Else
+            MsgBox("What did you do? Contact Gamer2020")
+            End
+        End If
+    End Function
+
+    Public Function ChangeVerdanturfBattleTentName(ByVal Index As Integer, ByVal NewName As String)
+        Dim offvar As Long
+
+        offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber)
+        If header2 = "BPE" Then
+            If header3 = "J" Then
+
+            Else
+
+                FileNum = FreeFile()
+                FileOpen(FileNum, LoadedROM, OpenMode.Binary)
+                Dim PokeName As String = "xxxxxxxx"
+                Dim filler As Byte = "&HFF"
+                PokeName = NameAsc2Sapp(NewName)
+                FilePut(FileNum, PokeName, offvar + 1 + 4 + (Index * 52))
+                FilePut(FileNum, filler, offvar + 1 + 4 + (Index * 52) + Len(NewName))
+
+
+            End If
+            FileClose(FileNum)
+            ChangeVerdanturfBattleTentName = NewName
+        Else
+            MsgBox("What did you do? Contact Gamer2020")
+            End
+        End If
+    End Function
+
+    Public Function ChangeFallarborBattleTentName(ByVal Index As Integer, ByVal NewName As String)
+        Dim offvar As Long
+
+        offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "FallarborBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber)
+        If header2 = "BPE" Then
+            If header3 = "J" Then
+
+            Else
+
+                FileNum = FreeFile()
+                FileOpen(FileNum, LoadedROM, OpenMode.Binary)
+                Dim PokeName As String = "xxxxxxxx"
+                Dim filler As Byte = "&HFF"
+                PokeName = NameAsc2Sapp(NewName)
+                FilePut(FileNum, PokeName, offvar + 1 + 4 + (Index * 52))
+                FilePut(FileNum, filler, offvar + 1 + 4 + (Index * 52) + Len(NewName))
+
+
+            End If
+            FileClose(FileNum)
+            ChangeFallarborBattleTentName = NewName
+        Else
+            MsgBox("What did you do? Contact Gamer2020")
+            End
+        End If
+    End Function
 End Module
--- a/GBAPokemonGameEditor/GetNameFunctions.vb
+++ b/GBAPokemonGameEditor/GetNameFunctions.vb
@@ -172,6 +172,105 @@ Module GetNameFunctions
        GetBattleFrontierTrainerName = stringvar
    End Function

+    Public Function GetSlateportBattleTentTrainerName(ByVal Index As Integer) As String
+        Dim offvar As Integer
+        Dim stringvar As String
+        offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "SlateportBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber)
+
+        If header2 = "BPE" Then
+            If header3 = "J" Then
+            Else
+                offvar = offvar + 4 + (Index * 52)
+                FileNum = FreeFile()
+                FileOpen(FileNum, LoadedROM, OpenMode.Binary)
+                Dim LabelName As String = "xxxxxxxx"
+
+
+
+                FileGet(FileNum, LabelName, offvar + 1)
+                stringvar = Sapp2Asc(LabelName, False)
+                While InStr(1, stringvar, "\x") : stringvar = LSet(stringvar, Len(stringvar) - 1) : End While
+                stringvar = LSet(stringvar, Len(stringvar) - 1)
+
+            End If
+
+            FileClose(FileNum)
+        Else
+            MsgBox("What did you do?")
+            End
+        End If
+
+
+
+        GetSlateportBattleTentTrainerName = stringvar
+    End Function
+
+    Public Function GetVerdanturfBattleTentTrainerName(ByVal Index As Integer) As String
+        Dim offvar As Integer
+        Dim stringvar As String
+        offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "VerdanturfBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber)
+
+        If header2 = "BPE" Then
+            If header3 = "J" Then
+            Else
+                offvar = offvar + 4 + (Index * 52)
+                FileNum = FreeFile()
+                FileOpen(FileNum, LoadedROM, OpenMode.Binary)
+                Dim LabelName As String = "xxxxxxxx"
+
+
+
+                FileGet(FileNum, LabelName, offvar + 1)
+                stringvar = Sapp2Asc(LabelName, False)
+                While InStr(1, stringvar, "\x") : stringvar = LSet(stringvar, Len(stringvar) - 1) : End While
+                stringvar = LSet(stringvar, Len(stringvar) - 1)
+
+            End If
+
+            FileClose(FileNum)
+        Else
+            MsgBox("What did you do?")
+            End
+        End If
+
+
+
+        GetVerdanturfBattleTentTrainerName = stringvar
+    End Function
+
+    Public Function GetFallarborBattleTentTrainerName(ByVal Index As Integer) As String
+        Dim offvar As Integer
+        Dim stringvar As String
+        offvar = Int32.Parse((GetString(GetINIFileLocation(), header, "FallarborBattleTentTrainers", "")), System.Globalization.NumberStyles.HexNumber)
+
+        If header2 = "BPE" Then
+            If header3 = "J" Then
+            Else
+                offvar = offvar + 4 + (Index * 52)
+                FileNum = FreeFile()
+                FileOpen(FileNum, LoadedROM, OpenMode.Binary)
+                Dim LabelName As String = "xxxxxxxx"
+
+
+
+                FileGet(FileNum, LabelName, offvar + 1)
+                stringvar = Sapp2Asc(LabelName, False)
+                While InStr(1, stringvar, "\x") : stringvar = LSet(stringvar, Len(stringvar) - 1) : End While
+                stringvar = LSet(stringvar, Len(stringvar) - 1)
+
+            End If
+
+            FileClose(FileNum)
+        Else
+            MsgBox("What did you do?")
+            End
+        End If
+
+
+
+        GetFallarborBattleTentTrainerName = stringvar
+    End Function
+
    Public Function GetTrainerClass(ByVal Index As Integer)
        Dim offvar As Integer

--- a/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.application
+++ b/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.application
@@ -16,7 +16,7 @@
          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
        </dsig:Transforms>
        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
-        <dsig:DigestValue>sj4kF8teN0wVK1GEr2Y6a5JL8zc=</dsig:DigestValue>
+        <dsig:DigestValue>/rX4zE0fVoY+ztFUUlWne/Yk1SE=</dsig:DigestValue>
      </hash>
    </dependentAssembly>
  </dependency>
--- a/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.exe
+++ b/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.exe
--- a/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.exe.manifest
+++ b/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.exe.manifest
@@ -43,14 +43,14 @@
    </dependentAssembly>
  </dependency>
  <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="GBAPokemonGameEditor.exe" size="448512">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="GBAPokemonGameEditor.exe" size="506368">
      <assemblyIdentity name="GBAPokemonGameEditor" version="3.2.0.0" language="neutral" processorArchitecture="msil" />
      <hash>
        <dsig:Transforms>
          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
        </dsig:Transforms>
        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
-        <dsig:DigestValue>SViiHhuinDBoO5WLDav7R/nx3kM=</dsig:DigestValue>
+        <dsig:DigestValue>Uox+rVA2MM8qHL9VopX54YJd3kA=</dsig:DigestValue>
      </hash>
    </dependentAssembly>
  </dependency>
--- a/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.pdb
+++ b/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.pdb
--- a/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.vshost.application
+++ b/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.vshost.application
@@ -16,7 +16,7 @@
          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
        </dsig:Transforms>
        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
-        <dsig:DigestValue>sj4kF8teN0wVK1GEr2Y6a5JL8zc=</dsig:DigestValue>
+        <dsig:DigestValue>/rX4zE0fVoY+ztFUUlWne/Yk1SE=</dsig:DigestValue>
      </hash>
    </dependentAssembly>
  </dependency>
--- a/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.vshost.exe.manifest
+++ b/GBAPokemonGameEditor/bin/Debug/GBAPokemonGameEditor.vshost.exe.manifest
@@ -43,14 +43,14 @@
    </dependentAssembly>
  </dependency>
  <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="GBAPokemonGameEditor.exe" size="448512">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="GBAPokemonGameEditor.exe" size="506368">
      <assemblyIdentity name="GBAPokemonGameEditor" version="3.2.0.0" language="neutral" processorArchitecture="msil" />
      <hash>
        <dsig:Transforms>
          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
        </dsig:Transforms>
        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
-        <dsig:DigestValue>SViiHhuinDBoO5WLDav7R/nx3kM=</dsig:DigestValue>
+        <dsig:DigestValue>Uox+rVA2MM8qHL9VopX54YJd3kA=</dsig:DigestValue>
      </hash>
    </dependentAssembly>
  </dependency>
--- a/GBAPokemonGameEditor/bin/Debug/app.publish/GBAPokemonGameEditor.exe
+++ b/GBAPokemonGameEditor/bin/Debug/app.publish/GBAPokemonGameEditor.exe
--- a/GBAPokemonGameEditor/bin/Debug/ini/roms.ini
+++ b/GBAPokemonGameEditor/bin/Debug/ini/roms.ini
@@ -805,7 +805,7 @@ SlateportBattleTentTrainers=5DDA14
 VerdanturfBattleTentTrainers=5DE610
 FallarborBattleTentTrainers=5DF084
 NumberOfBattleFrontierTrainers=300
-NumberOfSlateportBattleTentTrainers=70
+NumberOfSlateportBattleTentTrainers=30
 NumberOfVerdanturfBattleTentTrainers=30
 NumberOfFallarborBattleTentTrainers=30
 TrainerClasses=30FCD4
@@ -813,7 +813,7 @@ NumberOfTrainerClasses=65
 BattleFrontierPokemon=5D97BC
 SlateportBattleTentPokemon=5DE02C
 VerdanturfBattleTentPokemon=5DEC28
-FallarborBattleTentPokemon=5DF96C
+FallarborBattleTentPokemon=5DF69C
 NumberOfBattleFrontierPokemon=882
 NumberOfSlateportBattleTentPokemon=70
 NumberOfVerdanturfBattleTentPokemon=45
--- a/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.application
+++ b/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.application
@@ -16,7 +16,7 @@
          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
        </dsig:Transforms>
        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
-        <dsig:DigestValue>sj4kF8teN0wVK1GEr2Y6a5JL8zc=</dsig:DigestValue>
+        <dsig:DigestValue>/rX4zE0fVoY+ztFUUlWne/Yk1SE=</dsig:DigestValue>
      </hash>
    </dependentAssembly>
  </dependency>
--- a/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.exe
+++ b/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.exe
--- a/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.exe.manifest
+++ b/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.exe.manifest
@@ -43,14 +43,14 @@
    </dependentAssembly>
  </dependency>
  <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="GBAPokemonGameEditor.exe" size="448512">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="GBAPokemonGameEditor.exe" size="506368">
      <assemblyIdentity name="GBAPokemonGameEditor" version="3.2.0.0" language="neutral" processorArchitecture="msil" />
      <hash>
        <dsig:Transforms>
          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
        </dsig:Transforms>
        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
-        <dsig:DigestValue>SViiHhuinDBoO5WLDav7R/nx3kM=</dsig:DigestValue>
+        <dsig:DigestValue>Uox+rVA2MM8qHL9VopX54YJd3kA=</dsig:DigestValue>
      </hash>
    </dependentAssembly>
  </dependency>
--- a/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.pdb
+++ b/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.pdb
--- a/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.vbproj.GenerateResource.Cache
+++ b/GBAPokemonGameEditor/obj/x86/Debug/GBAPokemonGameEditor.vbproj.GenerateResource.Cache
--- a/roms.ini
+++ b/roms.ini
@@ -805,7 +805,7 @@ SlateportBattleTentTrainers=5DDA14
 VerdanturfBattleTentTrainers=5DE610
 FallarborBattleTentTrainers=5DF084
 NumberOfBattleFrontierTrainers=300
-NumberOfSlateportBattleTentTrainers=70
+NumberOfSlateportBattleTentTrainers=30
 NumberOfVerdanturfBattleTentTrainers=30
 NumberOfFallarborBattleTentTrainers=30
 TrainerClasses=30FCD4
@@ -813,7 +813,7 @@ NumberOfTrainerClasses=65
 BattleFrontierPokemon=5D97BC
 SlateportBattleTentPokemon=5DE02C
 VerdanturfBattleTentPokemon=5DEC28
-FallarborBattleTentPokemon=5DF96C
+FallarborBattleTentPokemon=5DF69C
 NumberOfBattleFrontierPokemon=882
 NumberOfSlateportBattleTentPokemon=70
 NumberOfVerdanturfBattleTentPokemon=45