fix all roaming mons being caterpie

This commit is contained in:
darkfire006 2022-06-30 09:09:05 -05:00
parent 913c53211c
commit b344879f20

View File

@ -8,7 +8,7 @@ Public Class RoamingPokemon
Public Sub New(ByVal DataLine As String) Public Sub New(ByVal DataLine As String)
Dim data() As String = DataLine.Split(CChar("|")) Dim data() As String = DataLine.Split(CChar("|"))
Me.PokemonReference = Pokemon.GetPokemonByData(data(5)) Me.PokemonReference = Pokemon.GetPokemonByData(data(6))
Me.WorldID = CInt(data(2)) Me.WorldID = CInt(data(2))
Me.LevelFile = data(3) Me.LevelFile = data(3)