Small null reference fix

This commit is contained in:
CaptainSegis 2016-10-18 23:11:42 -05:00
parent e16e4d3818
commit 6eb26a68e8

View File

@ -11,7 +11,7 @@
p = BattleScreen.OppPokemon p = BattleScreen.OppPokemon
End If End If
Dim ability As String = p.Ability.Name.ToLower() Dim ability As String = p.Ability.Name.ToLower()
If BattleScreen.FieldEffects.CanUseItem(own) = True Then If p.Item IsNot Nothing AndAlso BattleScreen.FieldEffects.CanUseItem(own) = True Then
Select Case p.Item.Name.ToLower() Select Case p.Item.Name.ToLower()
Case "damp rock" Case "damp rock"
If ability = "drizzle" Or moveName = "rain dance" Then If ability = "drizzle" Or moveName = "rain dance" Then