207 lines
11 KiB
VB.net
207 lines
11 KiB
VB.net
''' <summary>
|
|
''' A class to handle wild Pokémon encounters.
|
|
''' </summary>
|
|
Public Class PokemonEncounter
|
|
|
|
#Region "Fields and Constants"
|
|
|
|
' Stores a reference to the level instance:
|
|
Private _levelReference As Level
|
|
|
|
#End Region
|
|
|
|
#Region "Constructors"
|
|
|
|
''' <summary>
|
|
''' Creates a new instance of the PokemonEncounter class.
|
|
''' </summary>
|
|
''' <param name="levelReference">The reference to the level instance.</param>
|
|
Public Sub New(ByVal levelReference As Level)
|
|
Me._levelReference = levelReference
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Methods"
|
|
|
|
''' <summary>
|
|
''' Checks if the player should encounter a wild Pokémon.
|
|
''' </summary>
|
|
''' <param name="Position">The position the encounter should happen.</param>
|
|
''' <param name="Method">The method of the encounter.</param>
|
|
''' <param name="pokeFile">The source .poke file. If left empty, the game will assume the levelfile as source .poke file.</param>
|
|
Public Sub TryEncounterWildPokemon(ByVal Position As Vector3, ByVal Method As Spawner.EncounterMethods, ByVal pokeFile As String)
|
|
With Me._levelReference
|
|
|
|
If .WalkedSteps > 3 Then ' Three Step Rule - Only after walking 3 steps, try to encounter a wild Pokémon:
|
|
' Compose the correct .poke file from the levelfile, if the pokeFile parameter is empty:
|
|
If pokeFile = "" Then
|
|
pokeFile = .LevelFile.Remove(.LevelFile.Length - 4, 4) & ".poke"
|
|
End If
|
|
|
|
If System.IO.File.Exists(GameModeManager.GetPokeFilePath(pokeFile)) = True Then ' Only try to register a wild battle if the .poke file exists:
|
|
Dim encounterRate As Single = 1.0F
|
|
Dim minTileValue As Integer
|
|
Select Case Method
|
|
Case Spawner.EncounterMethods.Land
|
|
If Screen.Level.WildPokemonFloor = True And Screen.Level.Surfing = False Then
|
|
minTileValue = 15
|
|
Else
|
|
minTileValue = 25
|
|
End If
|
|
Case Spawner.EncounterMethods.Surfing
|
|
minTileValue = 15
|
|
End Select
|
|
If Core.Player.IsRunning = True Then
|
|
encounterRate *= 1.5F
|
|
End If
|
|
If Core.Player.Pokemons.Count > 0 Then
|
|
Dim p As Pokemon = Core.Player.Pokemons(0)
|
|
|
|
' Arena Trap/Illuminate/No Guard/Swarm Ability:
|
|
If p.Ability.Name.ToLower() = "arena trap" Or p.Ability.Name.ToLower() = "illuminate" Or p.Ability.Name.ToLower() = "no guard" Or p.Ability.Name.ToLower() = "swarm" Then
|
|
encounterRate *= 2.0F
|
|
End If
|
|
|
|
' Intimidate/Keen Eye/Quick Feet/Stench/White Smoke Ability:
|
|
If p.Ability.Name.ToLower() = "intimidate" Or p.Ability.Name.ToLower() = "keen eye" Or p.Ability.Name.ToLower() = "quick feet" Or p.Ability.Name.ToLower() = "stench" Or p.Ability.Name.ToLower() = "white smoke" Then
|
|
encounterRate *= 0.5F
|
|
End If
|
|
|
|
'Sand Veil Ability:
|
|
If .WeatherType = 7 And p.Ability.Name.ToLower() = "sand veil" Then
|
|
If Core.Random.Next(0, 100) < 50 Then
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
|
|
'Snow Cloak Ability:
|
|
If p.Ability.Name.ToLower() = "snow cloak" Then
|
|
If .WeatherType = 2 Or .WeatherType = 9 Then
|
|
If Core.Random.Next(0, 100) < 50 Then
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
' Determine if the wild Pokémon will be met or not:
|
|
Dim minEncounterValue As Integer = CInt(encounterRate * minTileValue)
|
|
Dim randomValue As Integer = Core.Random.Next(0, 255)
|
|
|
|
If randomValue <= minEncounterValue Then
|
|
' Don't encounter a Pokémon if the left control key is held down, for Debug or Sandbox Mode:
|
|
If GameController.IS_DEBUG_ACTIVE = True Or Core.Player.SandBoxMode = True Then
|
|
If CType(Screen.Camera, OverworldCamera)._debugWalk = True Then
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
|
|
' Reset walked steps and set the wild Pokémon data:
|
|
.WalkedSteps = 0
|
|
|
|
.PokemonEncounterData.Position = Position
|
|
.PokemonEncounterData.EncounteredPokemon = True
|
|
.PokemonEncounterData.Method = Method
|
|
.PokemonEncounterData.PokeFile = pokeFile
|
|
End If
|
|
End If
|
|
End If
|
|
End With
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Triggers a battle with a wild Pokémon if the requirements are met.
|
|
''' </summary>
|
|
Public Sub TriggerBattle()
|
|
' If the encounter check is true:
|
|
If Me._levelReference.PokemonEncounterData.EncounteredPokemon = True And Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
|
|
If Core.Player.Pokemons.Count = 0 Then
|
|
Core.SetScreen(New TransitionScreen(Core.CurrentScreen, New BlackOutScreen(Core.CurrentScreen), Color.Black, False))
|
|
Me._levelReference.PokemonEncounterData.EncounteredPokemon = False
|
|
Exit Sub
|
|
Else
|
|
' If the player met the set position:
|
|
If Screen.Camera.Position.X = Me._levelReference.PokemonEncounterData.Position.X And Screen.Camera.Position.Z = Me._levelReference.PokemonEncounterData.Position.Z Then
|
|
' Make the player stop and set encounter check to false:
|
|
Me._levelReference.PokemonEncounterData.EncounteredPokemon = False
|
|
Screen.Camera.StopMovement()
|
|
|
|
' Generate new wild Pokémon:
|
|
Dim Pokemon As Pokemon = Spawner.GetPokemon(Screen.Level.LevelFile, Me._levelReference.PokemonEncounterData.Method, True, Me._levelReference.PokemonEncounterData.PokeFile)
|
|
|
|
If Not Pokemon Is Nothing And CType(Core.CurrentScreen, OverworldScreen).TrainerEncountered = False And CType(Core.CurrentScreen, OverworldScreen).ActionScript.IsReady = True Then
|
|
Screen.Level.RouteSign.Hide() ' When a battle starts, hide the Route sign.
|
|
|
|
' If the player has a Repel going and the first Pokémon in the party's level is greater than the wild Pokémon's level, don't start the battle:
|
|
If Core.Player.RepelSteps > 0 Then
|
|
Dim p As Pokemon = Core.Player.GetWalkPokemon()
|
|
If Not p Is Nothing Then
|
|
If p.Level >= Pokemon.Level Then
|
|
If BattleSystem.BattleScreen.RoamingBattle = True Then
|
|
BattleSystem.BattleScreen.RoamingBattle = False
|
|
BattleSystem.BattleScreen.RoamingPokemonStorage = Nothing
|
|
End If
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
' Cleanse Tag prevents wild Pokémon encounters if held by the first Pokémon in the party:
|
|
If Core.Player.Pokemons(0).Level >= Pokemon.Level Then
|
|
If Not Core.Player.Pokemons(0).Item Is Nothing Then
|
|
If Core.Player.Pokemons(0).Item.ID = 94 Then
|
|
If Core.Random.Next(0, 3) = 0 Then
|
|
If BattleSystem.BattleScreen.RoamingBattle = True Then
|
|
BattleSystem.BattleScreen.RoamingBattle = False
|
|
BattleSystem.BattleScreen.RoamingPokemonStorage = Nothing
|
|
End If
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
' Pure Incense lowers the chance of encountering wild Pokémon if held by the first Pokémon in the party:
|
|
If Core.Player.Pokemons(0).Level >= Pokemon.Level Then
|
|
If Not Core.Player.Pokemons(0).Item Is Nothing Then
|
|
If Core.Player.Pokemons(0).Item.ID = 291 Then
|
|
If Core.Random.Next(0, 3) = 0 Then
|
|
If BattleSystem.BattleScreen.RoamingBattle = True Then
|
|
BattleSystem.BattleScreen.RoamingBattle = False
|
|
BattleSystem.BattleScreen.RoamingPokemonStorage = Nothing
|
|
End If
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
' Register the wild Pokémon as Seen in the Pokédex:
|
|
Dim dexID As String = PokemonForms.GetPokemonDataFileName(Pokemon.Number, Pokemon.AdditionalData)
|
|
If dexID.Contains("_") = False Then
|
|
If PokemonForms.GetAdditionalDataForms(Pokemon.Number) IsNot Nothing AndAlso PokemonForms.GetAdditionalDataForms(Pokemon.Number).Contains(Pokemon.AdditionalData) Then
|
|
dexID = Pokemon.Number & ";" & Pokemon.AdditionalData
|
|
Else
|
|
dexID = Pokemon.Number.ToString
|
|
End If
|
|
End If
|
|
Core.Player.PokedexData = Pokedex.ChangeEntry(Core.Player.PokedexData, dexID, 1)
|
|
|
|
' Determine wild Pokémon intro type. If it's a Roaming Pokémon battle, set to 12:
|
|
Dim introType As Integer = Core.Random.Next(0, 10)
|
|
If BattleSystem.BattleScreen.RoamingBattle = True Then
|
|
introType = 12
|
|
End If
|
|
|
|
Dim b As New BattleSystem.BattleScreen(Pokemon, Core.CurrentScreen, Me._levelReference.PokemonEncounterData.Method)
|
|
Core.SetScreen(New BattleIntroScreen(Core.CurrentScreen, b, introType))
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
End Class |