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

Nuke bomb Part 2

This commit is contained in:
jianmingyong 2016-10-30 00:53:20 +08:00
parent 26a0c6e821
commit 9f11078e6b
1 changed files with 36 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -583,23 +583,47 @@
Next Next
' Check PC Boxes. ' Check PC Boxes.
Dim TempBoxData As New List(Of String) If Not String.IsNullOrWhiteSpace(BoxData) Then
TempBoxData.AddRange(BoxData.SplitAtNewline()) Dim TempBoxData As New List(Of String)
TempBoxData.AddRange(BoxData.SplitAtNewline())
For Each item As String In TempBoxData For Each item As String In TempBoxData
If Not item.StartsWith("BOX") Then If Not String.IsNullOrWhiteSpace(item) AndAlso Not item.StartsWith("BOX") Then
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 >= 507 AndAlso TempPokemon.Item.ID <= 553 Then
TempPokemon.Item = Nothing TempPokemon.Item = Nothing
End If
item = TempString & TempPokemon.ToString()
End If End If
Next
item = TempString & TempPokemon.ToString() BoxData = String.Join(vbNewLine, TempBoxData)
End If End If
Next
' Check Day Care.
If Not String.IsNullOrWhiteSpace(DaycareData) Then
Dim TempDaycareData As New List(Of String)
TempDaycareData.AddRange(DaycareData.SplitAtNewline())
For Each item As String In TempDaycareData
If Not String.IsNullOrWhiteSpace(item) AndAlso item.Contains("{") Then
Dim TempString As String = ItemData.Remove(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
TempPokemon.Item = Nothing
End If
item = TempString & TempPokemon.ToString()
End If
Next
DaycareData = String.Join(vbNewLine, TempDaycareData)
End If
BoxData = String.Join(vbNewLine, TempBoxData)
ActionScript.RegisterID("PokemonIndev054Update") ActionScript.RegisterID("PokemonIndev054Update")
End If End If