КОд не пашет!!! Подключение к серверу успешное а сообщения не передаются ( или не приходят) Код сервера:
Code
Graphics 800,600,32,2
NET = HostNetGame("Server")
PlayerID1 = CreateNetPlayer("000")
Print "Ok"
While Not KeyHit(1)
If KeyHit(57) Then
WriteInfo() : Print "Ok ?"
EndIf
Wend
End
Function WriteInfo()
SendNetMsg 1,"Проверка связи ",PlayerID1,0
End Function
Код клиента :
Code
Graphics 800,600,32,2
NET = JoinNetGame("Server","5.145.213.55")
PlayerID2 = CreateNetPlayer("001")
Print "Ok"
While Not KeyHit(1)
If RecvNetMsg() Then
ReadInfo()
EndIf
Wend
End
Function ReadInfo()
Print ""+NetMsgData()
End Function
