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

Updated X Items

This commit is contained in:
OmegaRuan 2018-08-04 22:04:35 -03:00 committed by GitHub
parent 0f4ba408c5
commit aec6777383
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
6 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
P3D/Pokemon/Items/XItems/XAccuracy.vb
View File

@ -27,7 +27,7 @@ Namespace Items.XItems
Dim p As Pokemon = CType(s, BattleSystem.BattleScreen).OwnPokemon
If p.Accuracy < 6 Then
p.Accuracy += 1
p.Accuracy += 2
Screen.TextBox.Show("Boosted " & p.GetDisplayName() & "'s~Accuracy!" & RemoveItem(), {}, False, False)
PlayerStatistics.Track("[53]Status booster used", 1)

2
P3D/Pokemon/Items/XItems/XAttack.vb
View File

@ -27,7 +27,7 @@ Namespace Items.XItems
Dim p As Pokemon = CType(s, BattleSystem.BattleScreen).OwnPokemon
If p.StatAttack < 6 Then
p.StatAttack += 1
p.StatAttack += 2
Screen.TextBox.Show("Boosted " & p.GetDisplayName() & "'s~Attack!" & RemoveItem(), {}, False, False)
PlayerStatistics.Track("[53]Status booster used", 1)

2
P3D/Pokemon/Items/XItems/XDefend.vb
View File

@ -27,7 +27,7 @@ Namespace Items.XItems
Dim p As Pokemon = CType(s, BattleSystem.BattleScreen).OwnPokemon
If p.StatDefense < 6 Then
p.StatDefense += 1
p.StatDefense += 2
Screen.TextBox.Show("Boosted " & p.GetDisplayName() & "'s~Defense!" & RemoveItem(), {}, False, False)
PlayerStatistics.Track("[53]Status booster used", 1)

2
P3D/Pokemon/Items/XItems/XSpAtk.vb
View File

@ -27,7 +27,7 @@ Namespace Items.XItems
Dim p As Pokemon = CType(s, BattleSystem.BattleScreen).OwnPokemon
If p.StatSpAttack < 6 Then
p.StatSpAttack += 1
p.StatSpAttack += 2
Screen.TextBox.Show("Boosted " & p.GetDisplayName() & "'s~Special Attack!" & RemoveItem(), {}, False, False)
PlayerStatistics.Track("[53]Status booster used", 1)

2
P3D/Pokemon/Items/XItems/XSpDef.vb
View File

@ -27,7 +27,7 @@ Namespace Items.XItems
Dim p As Pokemon = CType(s, BattleSystem.BattleScreen).OwnPokemon
If p.StatSpDefense < 6 Then
p.StatSpDefense += 1
p.StatSpDefense += 2
Screen.TextBox.Show("Boosted " & p.GetDisplayName() & "'s~Special Defense!" & RemoveItem(), {}, False, False)
PlayerStatistics.Track("[53]Status booster used", 1)

2
P3D/Pokemon/Items/XItems/XSpeed.vb
View File

@ -27,7 +27,7 @@ Namespace Items.XItems
Dim p As Pokemon = CType(s, BattleSystem.BattleScreen).OwnPokemon
If p.StatSpeed < 6 Then
p.StatSpeed += 1
p.StatSpeed += 2
Screen.TextBox.Show("Boosted " & p.GetDisplayName() & "'s~Speed!" & RemoveItem(), {}, False, False)
PlayerStatistics.Track("[53]Status booster used", 1)