tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-05-03 06:11:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

Nuke shiny candy xD

Browse Source
This commit is contained in:
jianmingyong 2016-11-02 23:03:47 +08:00
parent d145750ce4
commit 0f5b0f64cb
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
2.5DHero/2.5DHero/Player/Player.vb
View File

@ -569,15 +569,17 @@
''' Indev 0.54 Removal List ''' Indev 0.54 Removal List
''' 1. All Mega Stones. [ID: 507 - 553] ''' 1. All Mega Stones. [ID: 507 - 553]
''' 2. Shiny Candy [ID: 501]
If Not ActionScript.IsRegistered("PokemonIndev054Update") Then If Not ActionScript.IsRegistered("PokemonIndev054Update") Then
' Check Inventory. ' Check Inventory.
Inventory.RemoveItem(501)
For i As Integer = 507 To 553 Step +1 For i As Integer = 507 To 553 Step +1
Inventory.RemoveItem(i) Inventory.RemoveItem(i)
Next Next
' Check Party Pokemon. ' Check Party Pokemon.
For Each Pokemon As Pokemon In Pokemons For Each Pokemon As Pokemon In Pokemons
If Pokemon.Item IsNot Nothing AndAlso Pokemon.Item.ID >= 507 AndAlso Pokemon.Item.ID <= 553 Then If Pokemon.Item IsNot Nothing AndAlso (Pokemon.Item.ID >= 501 OrElse (Pokemon.Item.ID >= 507 AndAlso Pokemon.Item.ID <= 553)) Then
Pokemon.Item = Nothing Pokemon.Item = Nothing
End If End If
Next Next
@ -592,7 +594,7 @@
Dim TempString As String = item.Remove(item.IndexOf("{")) Dim TempString As String = item.Remove(item.IndexOf("{"))
Dim TempPokemon As Pokemon = Pokemon.GetPokemonByData(item.Remove(0, item.IndexOf("{"))) Dim TempPokemon As Pokemon = Pokemon.GetPokemonByData(item.Remove(0, item.IndexOf("{")))
If TempPokemon.Item IsNot Nothing AndAlso TempPokemon.Item.ID >= 507 AndAlso TempPokemon.Item.ID <= 553 Then If TempPokemon.Item IsNot Nothing AndAlso (TempPokemon.Item.ID >= 501 OrElse (TempPokemon.Item.ID >= 507 AndAlso TempPokemon.Item.ID <= 553)) Then
TempPokemon.Item = Nothing TempPokemon.Item = Nothing
End If End If
@ -613,7 +615,7 @@
Dim TempString As String = ItemData.Remove(item.IndexOf("{")) Dim TempString As String = ItemData.Remove(item.IndexOf("{"))
Dim TempPokemon As Pokemon = Pokemon.GetPokemonByData(item.Remove(0, item.IndexOf("{"))) Dim TempPokemon As Pokemon = Pokemon.GetPokemonByData(item.Remove(0, item.IndexOf("{")))
If TempPokemon.Item IsNot Nothing AndAlso TempPokemon.Item.ID >= 507 AndAlso TempPokemon.Item.ID <= 553 Then If TempPokemon.Item IsNot Nothing AndAlso (TempPokemon.Item.ID >= 501 OrElse (TempPokemon.Item.ID >= 507 AndAlso TempPokemon.Item.ID <= 553)) Then
TempPokemon.Item = Nothing TempPokemon.Item = Nothing
End If End If