Public Function convert111(ByVal map As String)
        Dim i As Integer
        Dim temp As String
        Dim result As String = "//objects:"
        On Error GoTo state2
        For i = 1 To 999999999
            temp = Split(map, "<object name=")(i)
        Next
state2:
        i = i - 2
        Dim a As Integer
        For a = 0 To i
            temp = Split(map, "<object name=")(a + 1)
            temp = Split(temp, "</object>")(0)
            Dim position As String
            Dim rotation As String
            Dim id As String

            id = Split(temp, "<model>")(1)
            id = Split(id, "</model>")(0)

            position = Split(temp, "<position>")(1)
            position = Split(position, "</position>")(0)
            position = Replace(position, Chr(32), ",")

            rotation = Split(temp, "<rotation>")(1)
            rotation = Split(rotation, "</rotation>")(0)

            Dim x As Decimal, y As Decimal, z As Decimal
            x = (Split(rotation, " ")(2) * 57.2957795)
            y = (Split(rotation, " ")(1) * 57.2957795)
            z = (Split(rotation, " ")(0) * 57.2957795)
            rotation = x & "," & y & "," & z
            result = result & vbCrLf & "    CreateObject(" & id & "," & position & "," & rotation & ");"
        Next
        Return result
    End Function

    Public Function convert104(ByVal map As String)
        On Error GoTo state2
        Dim temp As String
        Dim checkpoint_count As Integer = 0
        Dim checkpoints As String = ""
        Dim i As Integer
        For i = 0 To 999999999
            temp = Split(map, "/>")(i)
        Next i
        Exit Function
state2:
        i = i - 2
        Dim result As String = ""
        For a = 0 To i
            temp = Split(map, "/>")(a)
            Dim obj As String, x As String, y As String, z As String, rx As String, ry As String, rz As String
            If Not temp = Replace(temp, "<vehicle", "") Then
                obj = " AddStaticVehicle(" & Split(Split(temp, "model=" & Chr(34))(1), Chr(34))(0)
                x = Split(Split(temp, "posX=" & Chr(34))(1), Chr(34))(0)
                y = Split(Split(temp, "posY=" & Chr(34))(1), Chr(34))(0)
                z = Split(Split(temp, "posZ=" & Chr(34))(1), Chr(34))(0)
                rz = Split(Split(temp, "rotZ=" & Chr(34))(1), Chr(34))(0)
                If result = "" Then
                    result = obj & "," & x & "," & y & "," & z & "," & rz & ",-1,-1);"
                Else
                    result = result & vbCrLf & obj & "," & x & "," & y & "," & z & "," & rz & ",-1,-1);"
                End If
            ElseIf Not temp = Replace(temp, "<object", "") Then
                obj = " CreateObject(" & Split(Split(temp, "model=" & Chr(34))(1), Chr(34))(0)
                x = Split(Split(temp, "posX=" & Chr(34))(1), Chr(34))(0)
                y = Split(Split(temp, "posY=" & Chr(34))(1), Chr(34))(0)
                z = Split(Split(temp, "posZ=" & Chr(34))(1), Chr(34))(0)
                rx = Split(Split(temp, "rotX=" & Chr(34))(1), Chr(34))(0)
                ry = Split(Split(temp, "rotY=" & Chr(34))(1), Chr(34))(0)
                rz = Split(Split(temp, "rotZ=" & Chr(34))(1), Chr(34))(0)
                If result = "" Then
                    result = obj & "," & x & "," & y & "," & z & "," & rx & "," & ry & "," & rz & ");"
                Else
                    result = result & vbCrLf & obj & "," & x & "," & y & "," & z & "," & rx & "," & ry & "," & rz & ");"
                End If
            End If
        Next
        Return result
    End Function

    Public Function getversion(ByVal map As String)
        If Not map = Replace(map, "<map edf:definitions=", "") Then
            Return "1.0.4"
        ElseIf Not map = Replace(map, "<map mod=" & Chr(34) & "race" & Chr(34), "") Then
            Return "1.1.1"
        Else : Return "INVALID_VERSION"
        End If
    End Function