tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Implemented the effects of the remaining incenses 

Rock, Rose, Full and Pure.
This commit is contained in:
FantaX1911 2016-09-23 17:24:59 +03:00
parent 252a3f7543
commit ef4ba249fa
2 changed files with 37 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
2.5DHero/2.5DHero/Battle/BattleSystemV2/BattleCalculation.vb
View File

@ -101,6 +101,30 @@
End If
End Select
Dim Full As Integer = 0 'Uses effect of Full Incense
If Not ownPokemon.Item Is Nothing And BattleScreen.FieldEffects.CanUseItem(True) = True And BattleScreen.FieldEffects.CanUseOwnItem(True, BattleScreen) = True Then
If ownPokemon.Item.Name = "Full Incense" Then
Full += 1
End If
End If
If Not oppPokemon.Item Is Nothing And BattleScreen.FieldEffects.CanUseItem(False) = True And BattleScreen.FieldEffects.CanUseOwnItem(False, BattleScreen) = True Then
If oppPokemon.Item.Name = "Full Incense" Then
Full += 10
End If
End If
Select Case Tail
Case 1
Return False 'Your Full incense effect works > You go last
Case 10
Return True 'Opponents full incense effect works > He goes last
Case 11
If Core.Random.Next(0, 2) = 0 Then 'Both full incense works. > Random determination.
Return True
Else
Return False
End If
End Select
If ownPokemon.Ability.Name.ToLower() = "stall" And oppPokemon.Ability.Name.ToLower() <> "stall" Then
Return False
End If
@ -953,7 +977,7 @@
If Attack.Type.Type = Element.Types.Dragon Then
IT = 1.2F
End If
Case 125, 281 'Hard Stone, Stone Plate
Case 125, 281, 286 'Hard Stone, Stone Plate, Rock Incense
If Attack.Type.Type = Element.Types.Rock Then
IT = 1.2F
End If
@ -965,7 +989,7 @@
If Attack.Type.Type = Element.Types.Steel Then
IT = 1.2F
End If
Case 117, 275 'Miracle Seed, Meadow Plate
Case 117, 275, 287 'Miracle Seed, Meadow Plate, Rose Incense
If Attack.Type.Type = Element.Types.Grass Then
IT = 1.2F
End If

11
2.5DHero/2.5DHero/World/PokemonEncounter.vb
View File

@ -139,6 +139,17 @@ Public Class PokemonEncounter
End If
End If
'Pure Incense Lowers the chance of encountering wild Pokémon if held by first Pokémon in 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
Exit Sub
End If
End If
End If
End If
'Register wild Pokémon in the Pokédex.
Core.Player.PokedexData = Pokedex.ChangeEntry(Core.Player.PokedexData, Pokemon.Number, 1)