Commit bbf4caa0 authored by Michael Alexander's avatar Michael Alexander
Browse files

map done tbd grid and char placement

parent e7e6d46e
......@@ -96,8 +96,32 @@ Public Class Map
recvjson = JsonConvert.DeserializeObject(Of FieldJSONRecv)(recv)
If (recvjson.status = "ok") Then
'TBD disini masukin ke inventory how to dunno yet maybe the dirty hack global class?
MsgBox(recvjson.item)
Dim itemGot As String
Select Case recvjson.item
Case 0
itemGot = "Honey"
Case 1
itemGot = "Herbs"
Case 2
itemGot = "Clay"
Case 3
itemGot = "Mineral"
Case 4
itemGot = "Potion"
Case 5
itemGot = "Incense"
Case 6
itemGot = "Gems"
Case 7
itemGot = "Life Elixir"
Case 8
itemGot = "Mana Crystal"
Case 9
itemGot = "Philosopher Stone"
Case Else
itemGot = "Nothing"
End Select
MsgBox("You got " & itemGot)
ElseIf (recvjson.status = "fail") Then
MsgBox(recvjson.description)
Else
......
Supports Markdown
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