Private Sub Form_Load()
Dim Packet As String

    Packet = "REQUESTMAPLIST" & SEP_CHAR & END_CHAR
    Call SendData(Packet)
End Sub

Private Sub lstMaps_Click()
    txtMap.Text = lstMaps.ListIndex + 1
End Sub

Private Sub scrlMapNum_Change()
    txtMap.Text = scrlMapNum.Value
End Sub

Private Sub cmdGoTo_Click()
    If txtMap.Text > 0 Then
        lstMaps.ListIndex = txtMap.Text - 1
        scrlMapNum.Value = txtMap.Text
        Call WarpTo(scrlMapNum.Value)
    End If
End Sub

Private Sub cmdEdit_Click()
    Call SendRequestEditMap
End Sub

Private Sub cmdCancel_Click()
    Unload Me
End Sub

    ' ::::::::::::::::::
    ' :: Get Map List ::
    ' ::::::::::::::::::
    If LCase(Parse(0)) = "maplist" Then
       frmMapReport.lstMaps.Clear

         n = 2
         z = Val(Parse(1))
       For X = n To (z + 1)
           If Trim(Parse(n)) <> vbNullString Then
               frmMapReport.lstMaps.AddItem "Map # " & (X - 1) & ": " & Trim(Parse(n))
           Else
               frmMapReport.lstMaps.AddItem "Map # " & (X - 1) & ": Free Map"
           End If
           n = n + 2
       Next X
       Exit Sub
    End If

    ' :::::::::::::::::::::
    ' :: Edit map packet ::
    ' :::::::::::::::::::::
    If (LCase(Parse(0)) = "mapreport") Then
        Call MapReportInit
        Exit Sub
    End If

Public Sub MapReportInit()
    frmMapReport.Show
End Sub

Call SendDataTo(Index, "MAPREPORT" & SEP_CHAR & END_CHAR)

Sub SendMapList(ByVal Index As Long)
Dim Packet As String
Dim I As Long
Dim n As Long

    Packet = ""
    n = 0
   
    For I = 1 To MAX_MAPS
        Packet = Packet & SEP_CHAR & MAP(I).Name & SEP_CHAR
        n = n + 1
    Next I
   
    Packet = "MAPLIST" & SEP_CHAR & n & Packet & END_CHAR
    Call SendDataTo(Index, Packet)
End Sub

    ' :::::::::::::::::::::::::::::
    ' :: Request Map List Packet ::
    ' :::::::::::::::::::::::::::::
    If LCase(Parse(0)) = "requestmaplist" Then
        ' Prevent hacking
        If GetPlayerAccess(Index) < ADMIN_MAPPER Then
            Call HackingAttempt(Index, "Admin Cloning")
            Exit Sub
        End If
       
        Call SendMapList(Index)
    End If

    ' ::::::::::::::::::
    ' :: Get Map List ::
    ' ::::::::::::::::::
    Dim z As Integer
    If LCase(Parse(0)) = "maplist" Then
       frmMapReport.lstMaps.Clear

         n = 2
         z = Val(Parse(1))
       For x = n To (z + 1)
           If Trim(Parse(n)) <> vbNullString Then
               frmMapReport.lstMaps.AddItem "Map # " & (x - 1) & ": " & Trim(Parse(n))
           Else
               frmMapReport.lstMaps.AddItem "Map # " & (x - 1) & ": Free Map"
           End If
           n = n + 2
       Next x
       Exit Sub