Can anyone work this out?

can anyone work out what does this code do?

please help~~~~

this is a rpg game where a samurai has to find this scroll
but there is no map on the form
and i cannot work out how is the map loaded in the game
and what the long string of characters after Map() thing
can anyone please help me!!


Sub Init_Game()
'Initialization Stuff
FrmMain.Show
Found_Scroll = False
LblEquip.Caption = "Equipment: Nothing"
Answers(1) = "Whoever has walked with truth generates life."
Answers(2) = "Do not cut off the neck of that which has had its neck cut off."
Answers(3) = "That which is given in submission becomes a medium of defiance."
Answers(4) = "The destruction is from his own personal god; he knows no savior."
Answers(5) = "Wealth is hard to come by, but poverty is always at hand."
Answers(6) = "He acquires many things, he must keep close watch over them."
Answers(7) = "Have you tried the Southwest reigon of Booken Island?"
Answers(8) = "The Northeast reigon of Booken Island might be promising."
Answers(9) = "I have heard that the scroll has been seen in the Northwest."
Answers(10) = "The elders believe the scroll lies in the Southeast"
Newline = Chr(13) + Chr(10)
Map(0) = "VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV"
Map(1) = "VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV"
Map(2) = "VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV"
Map(3) = "VVVQTTTTTTTTTTTTTTTTTTTTTTTTTTTTSVVVVVVVVVVVVV"
Map(4) = "VVVG55555555555555555566B6646666MVVQTTTTTSVVVV"
Map(5) = "VVVG55U5566665555556666666666666MVVG66666MVVVV"
Map(6) = "VVVG5566P66666655566666466666666MVVG66666MVVVV"
Map(7) = "VVVG6666664666646666666666666666MVV1003002VVVV"
Map(8) = "VVVG66666666666666666666E0C66466MVVVVV3VVVVVVV"
Map(9) = "VVVG55666666666666646666MVG66666FTTTTT3TTTSVVV"
Map(10) = "VVVG55555555555555666L66FTD66666L66666666PMVVV"
Map(11) = "VVVG555555556646666666666666a6666646666466MVVV"
Map(12) = "VVVG55555566666664666466646666646666666666MVVV"
Map(13) = "VVVG66555666666666666666666666666555564666MVVV"
Map(14) = "VVVG666466646664666666666666666L5555555546MVVV"
Map(15) = "VVVG666666666L666666666666P664666665555666MVVV"
Map(16) = "VVVG6466664666666666L666666666666665556966MVVV"
Map(17) = "VVVG6666666666666L666666666666466555566666MVVV"
Map(18) = "VVVG66646666664666646666666646666555666666MVVV"
Map(19) = "VVVG6666666666666666666L666666655566666646MVVV"
Map(20) = "VVVG664L6666666666666666666666555666466666MVVV"
Map(21) = "VVVG6666444444444464466666L655555556664666MVVV"
Map(22) = "VVVG676646O6666664644666666666655555556666MVVV"
Map(23) = "VVVG666646664444466646666666666666666E00002VVV"
Map(24) = "VVVG6666446666466646464666666466L6666FTTTTSVVV"
Map(25) = "VVVG66664664444446464646666666666666666466MVVV"
Map(26) = "VVVG66664666666666644466646666666666646666MVVV"
Map(27) = "VVVG66664444444444644666666646686666666666MVVV"
Map(28) = "VVVG66L6666HI666666666666666666666L6666646MVVV"
Map(29) = "VVVG66666LLJKLL666666P66666666646666466666MVVV"
Map(30) = "VVVG666LLLLL66LL66666666646666666666664666MVVV"
Map(31) = "VVVG66666666666666666666666666666666666666MVVV"
Map(32) = "VVV1000000000000000000000000000000000000002VVV"
Map(33) = "VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV"
Map(34) = "VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV"
Map(35) = "VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV"
Char_X = 5
Char_Y = 5
Char_Face = 1
TxtText.Text = ""
TxtText.Text = "Your Sensei has become ill. You must venute out to find the sacred" + Newline
TxtText.Text = TxtText.Text + "Samurai Scroll. Hurry, or else your Sensei may die!" + Newline
LblTime = 100
Scroll_Place
Draw_Position
Timer1.Enabled = True
End Sub

Map() is obviously an array which will be parsed later in order to display a graphical map

I see...
thank you^^

but i still don't know how is this "VVVQTTTTTTTTTTTTTTTTTTTTTTTTTTTTSVVVVVVVVVVVVV"
array structured :confused:

Each letter corresponds to a tile, for example W can be a water tile and G a grass tile :)
It's a simple tile engine. Look for some info on tile engines if you can't understand how the map is drawn.

whoever wrote that needs to be introduced to multi-dimensional arrays ^^

and a good map editor with a tile UDT and some binary access files to put them on would be nice

Hehe yeah :)

But still, this is the best way to go if you're too lazy to make a map editor ;)

i see
thanks heaps^^

it's so frustrated to know absolutely nothing about vb (sigh)

Read some tutorials! Download some code! Here's a great place to start:

www.vbexplorer.com

;)