If Client(Index).Publicnum = 9 Then
Dim AmFolders As Integer
Open DBP & "battleball\gamecount.txt" For Input As #1
Input #1, AmFolders
Close #1
arenaname = FSO.OpenTextFile(DBP & "battleball\arenaname.txt", ForReading).ReadAll
Minimum = FSO.OpenTextFile(DBP & "battleball\minimum.txt", ForReading).ReadAll
Maximum = FSO.OpenTextFile(DBP & "battleball\maximum.txt", ForReading).ReadAll
pagecount = FSO.OpenTextFile(DBP & "battleball\pagecount.txt", ForReading).ReadAll
gamecount = FSO.OpenTextFile(DBP & "battleball\gamecount.txt", ForReading).ReadAll
For X = 1 To AmFolders
GameName = FSO.OpenTextFile(DBP & "battleball\" & X & "\gamename.txt", ForReading).ReadAll
gameowner = FSO.OpenTextFile(DBP & "battleball\" & X & "\gameowner.txt", ForReading).ReadAll
GameNumber = FSO.OpenTextFile(DBP & "battleball\" & X & "\gamenumber.txt", ForReading).ReadAll
GameData = GameData & GameName & "" & VL64encode(GameNumber) & gameowner & ""
 Send Index, "CgH" & arenaname & "" & VL64encode(Minimum) & VL64encode(Maximum) & Chr(1)
    Send Index, "Ch" & VL64encode(gamecount) & VL64encode(pagecount) & GameData & ""
    Next X
End If