Some minor fixes
This commit is contained in:
parent
179d94ccd6
commit
ca5be51d4c
|
@ -1144,12 +1144,12 @@
|
|||
End If
|
||||
End If
|
||||
|
||||
'Turn count
|
||||
If own Then
|
||||
BattleScreen.FieldEffects.OwnTurnCounts += 1
|
||||
Else
|
||||
BattleScreen.FieldEffects.OppTurnCounts += 1
|
||||
End If
|
||||
''Turn count
|
||||
'If own Then
|
||||
' BattleScreen.FieldEffects.OwnTurnCounts += 1
|
||||
'Else
|
||||
' BattleScreen.FieldEffects.OppTurnCounts += 1
|
||||
'End If
|
||||
|
||||
'Reset Destiny Bond:
|
||||
If moveUsed.ID <> 194 Then
|
||||
|
@ -4652,7 +4652,11 @@
|
|||
|
||||
Private Sub EndTurnOwn(ByVal BattleScreen As 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
|
||||
If HasSwitchedInOwn Then
|
||||
.FieldEffects.OwnPokemonTurns = 0
|
||||
|
@ -5391,6 +5395,10 @@
|
|||
|
||||
Private Sub EndTurnOpp(ByVal BattleScreen As BattleScreen)
|
||||
With BattleScreen
|
||||
|
||||
'Turn count since battle started
|
||||
.FieldEffects.OppTurnCounts += 1
|
||||
|
||||
'Turn count (Currently used for Fake Out only)
|
||||
.FieldEffects.OppPokemonTurns += 1
|
||||
If HasSwitchedInOpp Then
|
||||
|
|
Binary file not shown.
|
@ -16,7 +16,7 @@
|
|||
Me.Category = Categories.Physical
|
||||
Me.ContestCategory = ContestCategories.Tough
|
||||
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.IsHMMove = False
|
||||
Me.Target = Targets.OneAdjacentTarget
|
||||
|
|
|
@ -16,7 +16,7 @@
|
|||
Me.Category = Categories.Status
|
||||
Me.ContestCategory = ContestCategories.Cute
|
||||
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.IsHMMove = False
|
||||
Me.Target = Targets.Self
|
||||
|
|
|
@ -1,3 +1,4 @@
|
|||
Imports System.Globalization
|
||||
Public Class ActionScript
|
||||
|
||||
Public Scripts As New List(Of Script)
|
||||
|
@ -443,7 +444,8 @@ nextScript:
|
|||
End Function
|
||||
|
||||
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
|
||||
|
||||
Public Shared Sub RegisterID(ByVal i As String)
|
||||
|
|
Binary file not shown.
Loading…
Reference in New Issue