Some minor fixes

This commit is contained in:
CaptainSegis 2019-01-20 11:11:07 -05:00
parent 179d94ccd6
commit ca5be51d4c
6 changed files with 20 additions and 10 deletions

View File

@ -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

View File

@ -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 users 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

View File

@ -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 users 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

View File

@ -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.