mirror of
https://github.com/P3D-Legacy/P3D-Legacy.git
synced 2025-07-21 12:54:51 +02:00
Some minor fixes
This commit is contained in:
parent
179d94ccd6
commit
ca5be51d4c
@ -1144,12 +1144,12 @@
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'Turn count
|
''Turn count
|
||||||
If own Then
|
'If own Then
|
||||||
BattleScreen.FieldEffects.OwnTurnCounts += 1
|
' BattleScreen.FieldEffects.OwnTurnCounts += 1
|
||||||
Else
|
'Else
|
||||||
BattleScreen.FieldEffects.OppTurnCounts += 1
|
' BattleScreen.FieldEffects.OppTurnCounts += 1
|
||||||
End If
|
'End If
|
||||||
|
|
||||||
'Reset Destiny Bond:
|
'Reset Destiny Bond:
|
||||||
If moveUsed.ID <> 194 Then
|
If moveUsed.ID <> 194 Then
|
||||||
@ -4652,7 +4652,11 @@
|
|||||||
|
|
||||||
Private Sub EndTurnOwn(ByVal BattleScreen As BattleScreen)
|
Private Sub EndTurnOwn(ByVal BattleScreen As BattleScreen)
|
||||||
With BattleScreen
|
With BattleScreen
|
||||||
'Turn count (currently used for Fake Out only)
|
|
||||||
|
'Turn count since battle started
|
||||||
|
.FieldEffects.OwnTurnCounts += 1
|
||||||
|
|
||||||
|
'Turn count since pokemon switched in(currently used for Fake Out only)
|
||||||
.FieldEffects.OwnPokemonTurns += 1
|
.FieldEffects.OwnPokemonTurns += 1
|
||||||
If HasSwitchedInOwn Then
|
If HasSwitchedInOwn Then
|
||||||
.FieldEffects.OwnPokemonTurns = 0
|
.FieldEffects.OwnPokemonTurns = 0
|
||||||
@ -5391,6 +5395,10 @@
|
|||||||
|
|
||||||
Private Sub EndTurnOpp(ByVal BattleScreen As BattleScreen)
|
Private Sub EndTurnOpp(ByVal BattleScreen As BattleScreen)
|
||||||
With BattleScreen
|
With BattleScreen
|
||||||
|
|
||||||
|
'Turn count since battle started
|
||||||
|
.FieldEffects.OppTurnCounts += 1
|
||||||
|
|
||||||
'Turn count (Currently used for Fake Out only)
|
'Turn count (Currently used for Fake Out only)
|
||||||
.FieldEffects.OppPokemonTurns += 1
|
.FieldEffects.OppPokemonTurns += 1
|
||||||
If HasSwitchedInOpp Then
|
If HasSwitchedInOpp Then
|
||||||
|
Binary file not shown.
@ -16,7 +16,7 @@
|
|||||||
Me.Category = Categories.Physical
|
Me.Category = Categories.Physical
|
||||||
Me.ContestCategory = ContestCategories.Tough
|
Me.ContestCategory = ContestCategories.Tough
|
||||||
Me.Name = "Hyperspace Fury"
|
Me.Name = "Hyperspace Fury"
|
||||||
Me.Description = "Using its many arms, the user unleashes a barrage of attacks that ignore the effects of moves like Protect and Detect. But the user’s Defense stat falls."
|
Me.Description = "Using its many arms, the user unleashes a barrage of attacks that ignore the effects of moves like Protect and Detect. But the user's Defense stat falls."
|
||||||
Me.CriticalChance = 1
|
Me.CriticalChance = 1
|
||||||
Me.IsHMMove = False
|
Me.IsHMMove = False
|
||||||
Me.Target = Targets.OneAdjacentTarget
|
Me.Target = Targets.OneAdjacentTarget
|
||||||
|
@ -16,7 +16,7 @@
|
|||||||
Me.Category = Categories.Status
|
Me.Category = Categories.Status
|
||||||
Me.ContestCategory = ContestCategories.Cute
|
Me.ContestCategory = ContestCategories.Cute
|
||||||
Me.Name = "Nasty Plot"
|
Me.Name = "Nasty Plot"
|
||||||
Me.Description = "The user stimulates its brain by thinking bad thoughts. It sharply raises the user’s Sp. Atk."
|
Me.Description = "The user stimulates its brain by thinking bad thoughts. It sharply raises the user's Sp. Atk."
|
||||||
Me.CriticalChance = 0
|
Me.CriticalChance = 0
|
||||||
Me.IsHMMove = False
|
Me.IsHMMove = False
|
||||||
Me.Target = Targets.Self
|
Me.Target = Targets.Self
|
||||||
|
@ -1,3 +1,4 @@
|
|||||||
|
Imports System.Globalization
|
||||||
Public Class ActionScript
|
Public Class ActionScript
|
||||||
|
|
||||||
Public Scripts As New List(Of Script)
|
Public Scripts As New List(Of Script)
|
||||||
@ -443,7 +444,8 @@ nextScript:
|
|||||||
End Function
|
End Function
|
||||||
|
|
||||||
Public Shared Function TimeToUnix(ByVal dteDate As Date) As String
|
Public Shared Function TimeToUnix(ByVal dteDate As Date) As String
|
||||||
Return (dteDate.ToUniversalTime() - New Date(1970, 1, 1, 0, 0, 0, 0, DateTimeKind.Utc)).TotalSeconds.ToString()
|
Dim invC = CultureInfo.InvariantCulture
|
||||||
|
Return (dteDate.ToUniversalTime() - New Date(1970, 1, 1, 0, 0, 0, 0, DateTimeKind.Utc)).TotalSeconds.ToString(invC)
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
Public Shared Sub RegisterID(ByVal i As String)
|
Public Shared Sub RegisterID(ByVal i As String)
|
||||||
|
Binary file not shown.
Loading…
x
Reference in New Issue
Block a user