Skip to content
Snippets Groups Projects
Commit 51f81e40 authored by Michael Alexander's avatar Michael Alexander
Browse files

map done, playable

parent bbf4caa0
1 merge request!23Kelompok Poi~ K02 G04
......@@ -38,27 +38,14 @@ Partial Class Map
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.Panel5 = New System.Windows.Forms.Panel()
Me.Panel6 = New System.Windows.Forms.Panel()
Me.Panel7 = New System.Windows.Forms.Panel()
Me.Panel8 = New System.Windows.Forms.Panel()
Me.Panel9 = New System.Windows.Forms.Panel()
Me.Panel10 = New System.Windows.Forms.Panel()
Me.Panel11 = New System.Windows.Forms.Panel()
Me.Panel12 = New System.Windows.Forms.Panel()
Me.Panel13 = New System.Windows.Forms.Panel()
Me.Panel14 = New System.Windows.Forms.Panel()
Me.Panel15 = New System.Windows.Forms.Panel()
Me.Panel16 = New System.Windows.Forms.Panel()
Me.MapLabel = New System.Windows.Forms.Label()
Me.PositionLabel = New System.Windows.Forms.Label()
Me.TimeLabel = New System.Windows.Forms.Label()
Me.CurrentTimeLabel = New System.Windows.Forms.Label()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.MapPanel = New System.Windows.Forms.TableLayoutPanel()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'InventoryButton
......@@ -192,150 +179,6 @@ Partial Class Map
Me.Label5.TabIndex = 14
Me.Label5.Text = "Current Time:"
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel1.Location = New System.Drawing.Point(84, 73)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(96, 92)
Me.Panel1.TabIndex = 15
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel2.Location = New System.Drawing.Point(84, 164)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(96, 92)
Me.Panel2.TabIndex = 16
'
'Panel3
'
Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel3.Location = New System.Drawing.Point(84, 346)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(96, 92)
Me.Panel3.TabIndex = 18
'
'Panel4
'
Me.Panel4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel4.Location = New System.Drawing.Point(84, 255)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(96, 92)
Me.Panel4.TabIndex = 17
'
'Panel5
'
Me.Panel5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel5.Location = New System.Drawing.Point(179, 346)
Me.Panel5.Name = "Panel5"
Me.Panel5.Size = New System.Drawing.Size(96, 92)
Me.Panel5.TabIndex = 22
'
'Panel6
'
Me.Panel6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
Me.Panel6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel6.Location = New System.Drawing.Point(179, 255)
Me.Panel6.Name = "Panel6"
Me.Panel6.Size = New System.Drawing.Size(96, 92)
Me.Panel6.TabIndex = 21
'
'Panel7
'
Me.Panel7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
Me.Panel7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel7.Location = New System.Drawing.Point(179, 164)
Me.Panel7.Name = "Panel7"
Me.Panel7.Size = New System.Drawing.Size(96, 92)
Me.Panel7.TabIndex = 20
'
'Panel8
'
Me.Panel8.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
Me.Panel8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel8.Location = New System.Drawing.Point(179, 73)
Me.Panel8.Name = "Panel8"
Me.Panel8.Size = New System.Drawing.Size(96, 92)
Me.Panel8.TabIndex = 19
'
'Panel9
'
Me.Panel9.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
Me.Panel9.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel9.Location = New System.Drawing.Point(274, 346)
Me.Panel9.Name = "Panel9"
Me.Panel9.Size = New System.Drawing.Size(96, 92)
Me.Panel9.TabIndex = 26
'
'Panel10
'
Me.Panel10.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
Me.Panel10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel10.Location = New System.Drawing.Point(274, 255)
Me.Panel10.Name = "Panel10"
Me.Panel10.Size = New System.Drawing.Size(96, 92)
Me.Panel10.TabIndex = 25
'
'Panel11
'
Me.Panel11.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
Me.Panel11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel11.Location = New System.Drawing.Point(274, 164)
Me.Panel11.Name = "Panel11"
Me.Panel11.Size = New System.Drawing.Size(96, 92)
Me.Panel11.TabIndex = 24
'
'Panel12
'
Me.Panel12.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
Me.Panel12.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel12.Location = New System.Drawing.Point(274, 73)
Me.Panel12.Name = "Panel12"
Me.Panel12.Size = New System.Drawing.Size(96, 92)
Me.Panel12.TabIndex = 23
'
'Panel13
'
Me.Panel13.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
Me.Panel13.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel13.Location = New System.Drawing.Point(369, 346)
Me.Panel13.Name = "Panel13"
Me.Panel13.Size = New System.Drawing.Size(96, 92)
Me.Panel13.TabIndex = 30
'
'Panel14
'
Me.Panel14.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
Me.Panel14.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel14.Location = New System.Drawing.Point(369, 255)
Me.Panel14.Name = "Panel14"
Me.Panel14.Size = New System.Drawing.Size(96, 92)
Me.Panel14.TabIndex = 29
'
'Panel15
'
Me.Panel15.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
Me.Panel15.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel15.Location = New System.Drawing.Point(369, 164)
Me.Panel15.Name = "Panel15"
Me.Panel15.Size = New System.Drawing.Size(96, 92)
Me.Panel15.TabIndex = 28
'
'Panel16
'
Me.Panel16.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
Me.Panel16.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel16.Location = New System.Drawing.Point(369, 73)
Me.Panel16.Name = "Panel16"
Me.Panel16.Size = New System.Drawing.Size(96, 92)
Me.Panel16.TabIndex = 27
'
'MapLabel
'
Me.MapLabel.AutoSize = True
......@@ -372,31 +215,81 @@ Partial Class Map
'
Me.Timer1.Enabled = True
'
'PictureBox1
'
Me.PictureBox1.BackColor = System.Drawing.SystemColors.ActiveCaption
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox1.Image = Global.PoiClient.My.Resources.Resources.idle1
Me.PictureBox1.Location = New System.Drawing.Point(621, 17)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(98, 135)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox1.TabIndex = 35
Me.PictureBox1.TabStop = False
'
'MapPanel
'
Me.MapPanel.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.MapPanel.BackColor = System.Drawing.SystemColors.ActiveCaption
Me.MapPanel.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.[Single]
Me.MapPanel.ColumnCount = 20
Me.MapPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.Location = New System.Drawing.Point(20, 20)
Me.MapPanel.Name = "MapPanel"
Me.MapPanel.RowCount = 20
Me.MapPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 5.0!))
Me.MapPanel.Size = New System.Drawing.Size(500, 500)
Me.MapPanel.TabIndex = 36
'
'Map
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(784, 524)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.MapPanel)
Me.Controls.Add(Me.CurrentTimeLabel)
Me.Controls.Add(Me.TimeLabel)
Me.Controls.Add(Me.PositionLabel)
Me.Controls.Add(Me.MapLabel)
Me.Controls.Add(Me.Panel13)
Me.Controls.Add(Me.Panel14)
Me.Controls.Add(Me.Panel15)
Me.Controls.Add(Me.Panel16)
Me.Controls.Add(Me.Panel9)
Me.Controls.Add(Me.Panel10)
Me.Controls.Add(Me.Panel11)
Me.Controls.Add(Me.Panel12)
Me.Controls.Add(Me.Panel5)
Me.Controls.Add(Me.Panel6)
Me.Controls.Add(Me.Panel7)
Me.Controls.Add(Me.Panel8)
Me.Controls.Add(Me.Panel3)
Me.Controls.Add(Me.Panel4)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
......@@ -414,6 +307,7 @@ Partial Class Map
Me.Controls.Add(Me.InventoryButton)
Me.Name = "Map"
Me.Text = "Map, poi!"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
......@@ -433,25 +327,11 @@ Partial Class Map
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents Panel3 As System.Windows.Forms.Panel
Friend WithEvents Panel4 As System.Windows.Forms.Panel
Friend WithEvents Panel5 As System.Windows.Forms.Panel
Friend WithEvents Panel6 As System.Windows.Forms.Panel
Friend WithEvents Panel7 As System.Windows.Forms.Panel
Friend WithEvents Panel8 As System.Windows.Forms.Panel
Friend WithEvents Panel9 As System.Windows.Forms.Panel
Friend WithEvents Panel10 As System.Windows.Forms.Panel
Friend WithEvents Panel11 As System.Windows.Forms.Panel
Friend WithEvents Panel12 As System.Windows.Forms.Panel
Friend WithEvents Panel13 As System.Windows.Forms.Panel
Friend WithEvents Panel14 As System.Windows.Forms.Panel
Friend WithEvents Panel15 As System.Windows.Forms.Panel
Friend WithEvents Panel16 As System.Windows.Forms.Panel
Friend WithEvents MapLabel As System.Windows.Forms.Label
Friend WithEvents PositionLabel As System.Windows.Forms.Label
Friend WithEvents TimeLabel As System.Windows.Forms.Label
Friend WithEvents CurrentTimeLabel As System.Windows.Forms.Label
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents MapPanel As System.Windows.Forms.TableLayoutPanel
End Class
......@@ -120,4 +120,7 @@
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>25</value>
</metadata>
</root>
\ No newline at end of file
......@@ -4,6 +4,8 @@ Public Class Map
Private time As DateTime
Private currentTime As DateTime
Private height As Integer
Private width As Integer
Private Sub Map_Load(sender As Object, e As EventArgs) Handles MyBase.Load
time = New DateTime(1970, 1, 1, 0, 0, 0).AddSeconds(CDbl(GlobalVariables.TIME)).ToLocalTime()
......@@ -20,6 +22,14 @@ Public Class Map
MapLabel.Text = recvjson.name
PositionLabel.Text = GlobalVariables.X & " , " & GlobalVariables.Y
TimeLabel.Text = time.ToString
height = recvjson.height
width = recvjson.width
MapPanel.ColumnCount = width
MapPanel.RowCount = height
MapPanel.Controls.Add(PictureBox1, GlobalVariables.X, GlobalVariables.Y)
Else
MsgBox("Unknown error occured!")
End If
......@@ -58,30 +68,38 @@ Public Class Map
End Sub
Private Sub MoveButton_Click(sender As Object, e As EventArgs) Handles MoveButton.Click
GlobalVariables.NETWORK = New NetIO
Dim request As New MoveJSONSend
Dim recv As String
If (NewX.Text >= width Or NewX.Text < 0 Or NewY.Text < 0 Or NewY.Text >= height) Then
MsgBox("Invalid move input!")
Else
GlobalVariables.NETWORK = New NetIO
Dim request As New MoveJSONSend
Dim recv As String
request.x = NewX.Text
request.y = NewY.Text
request.x = NewX.Text
request.y = NewY.Text
recv = NETWORK.SendRecv(request)
recv = NETWORK.SendRecv(request)
Dim recvjson As New MoveJSONRecv
recvjson = JsonConvert.DeserializeObject(Of MoveJSONRecv)(recv)
Dim recvjson As New MoveJSONRecv
recvjson = JsonConvert.DeserializeObject(Of MoveJSONRecv)(recv)
If (recvjson.status = "ok") Then
GlobalVariables.X = request.x
GlobalVariables.Y = request.y
GlobalVariables.TIME = recvjson.time
If (recvjson.status = "ok") Then
GlobalVariables.X = request.x
GlobalVariables.Y = request.y
GlobalVariables.TIME = recvjson.time
time = New DateTime(1970, 1, 1, 0, 0, 0).AddSeconds(CDbl(GlobalVariables.TIME)).ToLocalTime()
PositionLabel.Text = GlobalVariables.X & " , " & GlobalVariables.Y
TimeLabel.Text = time.ToString
ElseIf (recvjson.status = "fail") Then
MsgBox(recvjson.description)
Else
MsgBox("Unknown error occured!")
time = New DateTime(1970, 1, 1, 0, 0, 0).AddSeconds(CDbl(GlobalVariables.TIME)).ToLocalTime()
PositionLabel.Text = GlobalVariables.X & " , " & GlobalVariables.Y
TimeLabel.Text = time.ToString
MapPanel.Controls.Remove(PictureBox1)
MapPanel.Controls.Add(PictureBox1, GlobalVariables.X, GlobalVariables.Y)
ElseIf (recvjson.status = "fail") Then
MsgBox(recvjson.description)
Else
MsgBox("Unknown error occured!")
End If
End If
End Sub
......@@ -128,4 +146,6 @@ Public Class Map
MsgBox("Unknown error occured!")
End If
End Sub
End Class
\ No newline at end of file
......@@ -11,6 +11,7 @@
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
......@@ -21,20 +22,20 @@ Namespace My.Resources
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
......@@ -44,19 +45,29 @@ Namespace My.Resources
Return resourceMan
End Get
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set(ByVal value As Global.System.Globalization.CultureInfo)
Set
resourceCulture = value
End Set
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property idle1() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("idle1", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace
......@@ -46,7 +46,7 @@
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
......@@ -60,6 +60,7 @@
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
......@@ -68,9 +69,10 @@
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" />
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
......@@ -85,9 +87,10 @@
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
......@@ -109,9 +112,13 @@
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="idle1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Chara\Idle\idle1.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>
\ No newline at end of file
......@@ -206,32 +206,84 @@
<Content Include="Newtonsoft.Json.dll">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\Chara\Idle\idle1.gif" />
<Content Include="Resources\Chara\Idle\idle2.gif" />
<Content Include="Resources\Chara\Idle\idle3.gif" />
<Content Include="Resources\Chara\Idle\idle4.gif" />
<Content Include="Resources\Chara\Idle\idle5.gif" />
<Content Include="Resources\Chara\Idle\idle6.gif" />
<Content Include="Resources\Chara\Idle\idle7.gif" />
<Content Include="Resources\Chara\Idle\idle8.gif" />
<Content Include="Resources\Chara\Run\run1.gif" />
<Content Include="Resources\Chara\Run\run2.gif" />
<Content Include="Resources\Chara\Run\run3.gif" />
<Content Include="Resources\Chara\Run\run4.gif" />
<Content Include="Resources\Chara\Run\run5.gif" />
<Content Include="Resources\Chara\Run\run6.gif" />
<Content Include="Resources\Chara\Run\run7.gif" />
<Content Include="Resources\Chara\Run\run8.gif" />
<Content Include="Resources\Item\Clay.png" />
<Content Include="Resources\Item\Gems.png" />
<Content Include="Resources\Item\Herbs.png" />
<Content Include="Resources\Item\Honey.png" />
<Content Include="Resources\Item\Incense.png" />
<Content Include="Resources\Item\LifeElixir.png" />
<Content Include="Resources\Item\ManaCrystal.png" />
<Content Include="Resources\Item\Mineral.png" />
<Content Include="Resources\Item\PhilosopherStone.png" />
<Content Include="Resources\Item\Potion.png" />
<Content Include="Resources\Chara\Idle\idle1.gif">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\Chara\Idle\idle2.gif">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\Chara\Idle\idle3.gif">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\Chara\Idle\idle4.gif">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\Chara\Idle\idle5.gif">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\Chara\Idle\idle6.gif">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\Chara\Idle\idle7.gif">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\Chara\Idle\idle8.gif">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\Chara\Run\run1.gif">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\Chara\Run\run2.gif">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\Chara\Run\run3.gif">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\Chara\Run\run4.gif">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\Chara\Run\run5.gif">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\Chara\Run\run6.gif">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\Chara\Run\run7.gif">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\Chara\Run\run8.gif">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\Item\Clay.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\Item\Gems.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\Item\Herbs.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\Item\Honey.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\Item\Incense.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\Item\LifeElixir.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\Item\ManaCrystal.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\Item\Mineral.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\Item\PhilosopherStone.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="Resources\Item\Potion.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment