Private Sub RunOnClient_SendRoomsList(Msg As String)
Dim lst As List
lst.Initialize
Dim GameRoom As clsGameRoom
For r = 0 To Main.mapGameRooms.Size - 1
GameRoom = Main.mapGameRooms.Get(r)
If GameRoom <> Null Then
lst.Add(GameRoom.Name)
Else
Log("GameRoom is null")
End If
Next
ws.RunFunction("FromServer_Rooms", lst)
ws.Flush
End Sub