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 Synchronize and Moody

This commit is contained in:
TheOmegaGhost 2019-11-23 03:15:53 -02:00
parent 82fa8630f7
commit 94a0ee7ce6
2 changed files with 51 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

96
P3D/Battle/BattleSystemV2/Battle.vb
View File

@ -5593,21 +5593,21 @@
ElseIf .OwnPokemon.StatSpeed = -6 Then ElseIf .OwnPokemon.StatSpeed = -6 Then
cannotLower.Add(4) cannotLower.Add(4)
End If End If
If .OwnPokemon.Accuracy = 6 Then 'If .OwnPokemon.Accuracy = 6 Then
cannotRaise.Add(5) ' cannotRaise.Add(5)
ElseIf .OwnPokemon.Accuracy = -6 Then 'ElseIf .OwnPokemon.Accuracy = -6 Then
cannotLower.Add(5) ' cannotLower.Add(5)
End If 'End If
If .OwnPokemon.Evasion = 6 Then 'If .OwnPokemon.Evasion = 6 Then
cannotRaise.Add(6) ' cannotRaise.Add(6)
ElseIf .OwnPokemon.Evasion = -6 Then 'ElseIf .OwnPokemon.Evasion = -6 Then
cannotLower.Add(6) ' cannotLower.Add(6)
End If 'End If
If cannotRaise.Count < 7 Then If cannotRaise.Count < 5 Then
Dim statToRaise As Integer = Core.Random.Next(0, 7) Dim statToRaise As Integer = Core.Random.Next(0, 5)
While cannotRaise.Contains(statToRaise) = True While cannotRaise.Contains(statToRaise) = True
statToRaise = Core.Random.Next(0, 7) statToRaise = Core.Random.Next(0, 5)
End While End While
Select Case statToRaise Select Case statToRaise
@ -5621,10 +5621,10 @@
RaiseStat(True, True, BattleScreen, "Special Defense", 2, "Moody raised a stat.", "moody") RaiseStat(True, True, BattleScreen, "Special Defense", 2, "Moody raised a stat.", "moody")
Case 4 Case 4
RaiseStat(True, True, BattleScreen, "Speed", 2, "Moody raised a stat.", "moody") RaiseStat(True, True, BattleScreen, "Speed", 2, "Moody raised a stat.", "moody")
Case 5 'Case 5
RaiseStat(True, True, BattleScreen, "Accuracy", 2, "Moody raised a stat.", "moody") ' RaiseStat(True, True, BattleScreen, "Accuracy", 2, "Moody raised a stat.", "moody")
Case 6 'Case 6
RaiseStat(True, True, BattleScreen, "Evasion", 2, "Moody raised a stat.", "moody") ' RaiseStat(True, True, BattleScreen, "Evasion", 2, "Moody raised a stat.", "moody")
End Select End Select
If cannotLower.Contains(statToRaise) = False Then If cannotLower.Contains(statToRaise) = False Then
@ -5632,10 +5632,10 @@
End If End If
End If End If
If cannotLower.Count < 7 Then If cannotLower.Count < 5 Then
Dim statToLower As Integer = Core.Random.Next(0, 7) Dim statToLower As Integer = Core.Random.Next(0, 5)
While cannotLower.Contains(statToLower) = True While cannotLower.Contains(statToLower) = True
statToLower = Core.Random.Next(0, 7) statToLower = Core.Random.Next(0, 5)
End While End While
Select Case statToLower Select Case statToLower
@ -5649,10 +5649,10 @@
LowerStat(True, True, BattleScreen, "Special Defense", 1, "Moody lowered a stat.", "moody") LowerStat(True, True, BattleScreen, "Special Defense", 1, "Moody lowered a stat.", "moody")
Case 4 Case 4
LowerStat(True, True, BattleScreen, "Speed", 1, "Moody lowered a stat.", "moody") LowerStat(True, True, BattleScreen, "Speed", 1, "Moody lowered a stat.", "moody")
Case 5 'Case 5
LowerStat(True, True, BattleScreen, "Accuracy", 1, "Moody lowered a stat.", "moody") ' LowerStat(True, True, BattleScreen, "Accuracy", 1, "Moody lowered a stat.", "moody")
Case 6 'Case 6
LowerStat(True, True, BattleScreen, "Evasion", 1, "Moody lowered a stat.", "moody") ' LowerStat(True, True, BattleScreen, "Evasion", 1, "Moody lowered a stat.", "moody")
End Select End Select
End If End If
End If End If
@ -6342,21 +6342,21 @@
ElseIf .OppPokemon.StatSpeed = -6 Then ElseIf .OppPokemon.StatSpeed = -6 Then
cannotLower.Add(4) cannotLower.Add(4)
End If End If
If .OppPokemon.Accuracy = 6 Then 'If .OppPokemon.Accuracy = 6 Then
cannotRaise.Add(5) ' cannotRaise.Add(5)
ElseIf .OppPokemon.Accuracy = -6 Then 'ElseIf .OppPokemon.Accuracy = -6 Then
cannotLower.Add(5) ' cannotLower.Add(5)
End If 'End If
If .OppPokemon.Evasion = 6 Then 'If .OppPokemon.Evasion = 6 Then
cannotRaise.Add(6) ' cannotRaise.Add(6)
ElseIf .OppPokemon.Evasion = -6 Then 'ElseIf .OppPokemon.Evasion = -6 Then
cannotLower.Add(6) ' cannotLower.Add(6)
End If 'End If
If cannotRaise.Count < 7 Then If cannotRaise.Count < 5 Then
Dim statToRaise As Integer = Core.Random.Next(0, 7) Dim statToRaise As Integer = Core.Random.Next(0, 5)
While cannotRaise.Contains(statToRaise) = True While cannotRaise.Contains(statToRaise) = True
statToRaise = Core.Random.Next(0, 7) statToRaise = Core.Random.Next(0, 5)
End While End While
Select Case statToRaise Select Case statToRaise
@ -6370,10 +6370,10 @@
RaiseStat(False, False, BattleScreen, "Special Defense", 2, "Moody raised a stat.", "moody") RaiseStat(False, False, BattleScreen, "Special Defense", 2, "Moody raised a stat.", "moody")
Case 4 Case 4
RaiseStat(False, False, BattleScreen, "Speed", 2, "Moody raised a stat.", "moody") RaiseStat(False, False, BattleScreen, "Speed", 2, "Moody raised a stat.", "moody")
Case 5 'Case 5
RaiseStat(False, False, BattleScreen, "Accuracy", 2, "Moody raised a stat.", "moody") ' RaiseStat(False, False, BattleScreen, "Accuracy", 2, "Moody raised a stat.", "moody")
Case 6 'Case 6
RaiseStat(False, False, BattleScreen, "Evasion", 2, "Moody raised a stat.", "moody") ' RaiseStat(False, False, BattleScreen, "Evasion", 2, "Moody raised a stat.", "moody")
End Select End Select
If cannotLower.Contains(statToRaise) = False Then If cannotLower.Contains(statToRaise) = False Then
@ -6381,10 +6381,10 @@
End If End If
End If End If
If cannotLower.Count < 7 Then If cannotLower.Count < 5 Then
Dim statToLower As Integer = Core.Random.Next(0, 7) Dim statToLower As Integer = Core.Random.Next(0, 5)
While cannotLower.Contains(statToLower) = True While cannotLower.Contains(statToLower) = True
statToLower = Core.Random.Next(0, 7) statToLower = Core.Random.Next(0, 5)
End While End While
Select Case statToLower Select Case statToLower
@ -6398,10 +6398,10 @@
LowerStat(False, False, BattleScreen, "Special Defense", 1, "Moody lowered a stat.", "moody") LowerStat(False, False, BattleScreen, "Special Defense", 1, "Moody lowered a stat.", "moody")
Case 4 Case 4
LowerStat(False, False, BattleScreen, "Speed", 1, "Moody lowered a stat.", "moody") LowerStat(False, False, BattleScreen, "Speed", 1, "Moody lowered a stat.", "moody")
Case 5 'Case 5
LowerStat(False, False, BattleScreen, "Accuracy", 1, "Moody lowered a stat.", "moody") ' LowerStat(False, False, BattleScreen, "Accuracy", 1, "Moody lowered a stat.", "moody")
Case 6 'Case 6
LowerStat(False, False, BattleScreen, "Evasion", 1, "Moody lowered a stat.", "moody") ' LowerStat(False, False, BattleScreen, "Evasion", 1, "Moody lowered a stat.", "moody")
End Select End Select
End If End If
End If End If

6
P3D/Pokemon/Monster/Pokemon.vb
View File

@ -1818,9 +1818,9 @@ Public Class Pokemon
'Synchronize ability: 'Synchronize ability:
If Core.Player.Pokemons.Count > 0 Then If Core.Player.Pokemons.Count > 0 Then
If Core.Player.Pokemons(0).Ability.Name.ToLower() = "synchronize" Then If Core.Player.Pokemons(0).Ability.Name.ToLower() = "synchronize" Then
If Core.Random.Next(0, 100) < 50 Then 'If Core.Random.Next(0, 100) < 50 Then # GEN 8 FORCES A NATURE 100% OF TIME
Me.Nature = Core.Player.Pokemons(0).Nature Me.Nature = Core.Player.Pokemons(0).Nature
End If 'End If
End If End If
End If End If