diff --git a/escape.pbp b/escape.pbp
index 8236ef9..9e81ac5 100644
--- a/escape.pbp
+++ b/escape.pbp
@@ -10,7 +10,7 @@
@@ -19,19 +19,19 @@
-
+
-
+
-
-
+
+
-
+
diff --git a/src/Functions.pbi b/src/Functions.pbi
index a251835..20f785f 100644
--- a/src/Functions.pbi
+++ b/src/Functions.pbi
@@ -23,13 +23,12 @@ Procedure InitTileset()
Debug count
EndProcedure
-; TODO: Hier gehts weiter
Procedure LoadMap(Filename.s)
; Extract the map data from the XML file
If LoadXML(0, Filename) And XMLStatus(0) = #PB_XML_Success
Define *Node.i = XMLNodeFromPath(MainXMLNode(0), "/map/layer/data")
Define MapData.s = GetXMLNodeText(*Node)
- If CreateRegularExpression(0, "\d,?")
+ If CreateRegularExpression(0, "\d{1,2},?")
Dim Tiles.s(0)
Define NumFound.i = ExtractRegularExpression(0, MapData, Tiles())
Define i.i, X.i, Y.i
@@ -38,18 +37,23 @@ Procedure LoadMap(Filename.s)
Debug ArraySize(Tiles())
+ ;CreateFile(0, "mapcheck.txt") ; File stuff for checking the map loader
For i=0 To NumFound-1
TileMap(X, Y)\TileNumber = Val(RTrim(Tiles(i), ","))-1
TileMap(X, Y)\X = X
TileMap(X, Y)\Y = Y
+
+ ;WriteString(0, StrU(TileMap(X, Y)\TileNumber+1)+",")
If X = #MAP_WIDTH-1
X = 0
Y+1
+ ;WriteStringN(0, "") ; do new line
Else
X+1
EndIf
Next
+ ;CloseFile(0)
EndIf
EndIf
EndProcedure
diff --git a/src/Globals.pbi b/src/Globals.pbi
index 63f9e7d..a1d663a 100644
--- a/src/Globals.pbi
+++ b/src/Globals.pbi
@@ -1,8 +1,8 @@
#DATA_PATH = "../data/"
#TILE_SIZE = 20
-#MAP_WIDTH = 50
-#MAP_HEIGHT = 50
+#MAP_WIDTH = 120
+#MAP_HEIGHT = 120
; TODO: Aus der XML lesen
; Global variables
diff --git a/src/Main.pb b/src/Main.pb
index 2353dc3..049dd15 100644
--- a/src/Main.pb
+++ b/src/Main.pb
@@ -18,7 +18,7 @@ XIncludeFile "Draw.pbi"
XIncludeFile "Events.pbi"
-LoadMap(#DATA_PATH + "maps/joni2.tmx")
+LoadMap(#DATA_PATH + "maps/joni.tmx")
; Initialize all the variables and stuff. I think we refactor this