Fix the ability to use dive while the player is diving up or down.

This commit is contained in:
jianmingyong 2016-11-11 16:32:29 +08:00
parent 3fd5716f8e
commit bfd3c8d644
1 changed files with 5 additions and 1 deletions

View File

@ -14,7 +14,11 @@
If Screen.Level.Surfing = True Then If Screen.Level.Surfing = True Then
If CInt(Me.Position.X) = CInt(Screen.Camera.Position.X) And CInt(Me.Position.Y) = CInt(Screen.Camera.Position.Y) And CInt(Me.Position.Z) = CInt(Screen.Camera.Position.Z) Then If CInt(Me.Position.X) = CInt(Screen.Camera.Position.X) And CInt(Me.Position.Y) = CInt(Screen.Camera.Position.Y) And CInt(Me.Position.Z) = CInt(Screen.Camera.Position.Z) Then
If Controls.Accept(True, True, True) = True Then If Controls.Accept(True, True, True) = True Then
Me.StartDive() If Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
If CType(Core.CurrentScreen, OverworldScreen).ActionScript.IsReady Then
Me.StartDive()
End If
End If
End If End If
End If End If
End If End If