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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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