Some minor fixes on the map screen.

This commit is contained in:
jianmingyong 2016-09-30 01:02:07 +08:00
parent 8e9fc03c8f
commit 962f15f3fc
1 changed files with 2 additions and 2 deletions

View File

@ -16,7 +16,7 @@
Dim cities As New List(Of City)
Dim routes As New List(Of Route)
Dim places As New List(Of Place)
'Dim RoamingPoke As New List(Of Roaming)
Dim RoamingPoke As New List(Of Roaming)
Dim objectsTexture As Texture2D
Dim mapTexture As Texture2D
@ -1083,7 +1083,7 @@
Me.PositionX = PositionX
Me.PositionY = PositionY
Me.Location = Location
Me.Distance = (2).xRoot((PositionX * 2) + (PositionY * 2))
Me.Distance = Math.Pow(Math.Pow(PositionX, 2) + Math.Pow(PositionY, 2), 0.5) ' (x^2 + y^2)^0.5
End Sub
Public Function getPosition() As Vector2