Hopefully fixed a couple of crashes

This commit is contained in:
CaptainSegis 2019-01-31 01:35:14 -05:00
parent 5d4ae15b67
commit a24f5ff637
2 changed files with 6 additions and 4 deletions

View File

@ -1756,10 +1756,12 @@
If CanFireStepEvent() = True Then If CanFireStepEvent() = True Then
Dim addEggSteps As Integer = stepAmount Dim addEggSteps As Integer = stepAmount
For Each p As Pokemon In Pokemons For Each p As Pokemon In Pokemons
If p.Ability.Name.ToLower() = "magma armor" Or p.Ability.Name.ToLower() = "flame body" Then If p.Ability IsNot Nothing Then
If p.Ability.Name.ToLower() = "magma armor" OrElse p.Ability.Name.ToLower() = "flame body" Then
addEggSteps *= Random.Next(1, 4) addEggSteps *= Random.Next(1, 4)
Exit For Exit For
End If End If
End If
Next Next
Dim eggsReady As New List(Of Pokemon) Dim eggsReady As New List(Of Pokemon)

View File

@ -25,7 +25,7 @@
If Core.Player.IsGameJoltSave = True Then If Core.Player.IsGameJoltSave = True Then
Me.canCreateAutosave = False Me.canCreateAutosave = False
Else Else
If Not Me.PreScreen Is Nothing Then If Me.PreScreen IsNot Nothing AndAlso Camera.Name IsNot Nothing Then
If Camera.Name <> "Overworld" Then If Camera.Name <> "Overworld" Then
Me.canCreateAutosave = False Me.canCreateAutosave = False
Else Else