Private Sub MouseMoved(x As Int,y As Int)
'If x Mod 10 = 0 Or y Mod 10 = 0 Then
Dim m As Map = CreateMap("x":X.As(String),"y":Y.As(String),"clr":MySessionColor.As(String),"usr_id":ThisUser.Id,"username":ThisUser.Metadata.Get("username"))
If ThisChannel.IsInitialized = False Then Return
ThisChannel.SendBroadcast("cursor-pos",m)
End Sub