Не получается настроить передачу данных через локальную сеть о координатах кубика, то что клиент подключается и отключается пишет нормально, а вот координаты кубика не перемещает ни в какую.
Вот код:
Код:
InitSprite()
InitNetwork()
If StartDrawing(ScreenOutput())
DrawingMode(#PB_2DDrawing_Transparent)
DrawText(x, y, Text, RGB(255, 0, 0))
StopDrawing()
EndIf
EndProcedure
OpenNetworkConnection("192.168.1.100", 1010)
OpenWindow(0, 0, 0, 500, 500, "game", #PB_Window_ScreenCentered | #PB_Window_SystemMenu)
OpenWindowedScreen(WindowID(0), 0, 0, 500, 500, 0, 0, 0)
CreateSprite(0, 20, 20)
StartDrawing(SpriteOutput(0))
Box(0, 0, 20, 20, RGB(255,0,0))
StopDrawing()
XPos1 = WindowMouseX(0)
YPos1 = WindowMouseY(0)
*Buffer = AllocateMemory(1000)
*Buffer2 = AllocateMemory(1000)
If CreateNetworkServer(0, 1010)
Repeat
FlipBuffers()
ClearScreen(RGB(255, 255, 255))
DisplaySprite(0, XPos1, YPos1)
SEvent = NetworkServerEvent()
If SEvent
ClientID = EventClient()
Select SEvent
Case #PB_NetworkEvent_Connect
MessageRequester("PureBasic - Server", "Клиент подключился...", 0)
DisplaySprite(0, *Buffer, Buffer2)
Case #PB_NetworkEvent_Data
ReceiveNetworkData(ClientID, *Buffer, 1000)
ReceiveNetworkData(ClientID, *Buffer2, 1000)
Case #PB_NetworkEvent_Disconnect
MessageRequester("PureBasic - Server", "Клиент отключился...", 0)
EndSelect
EndIf
Until WindowEvent() = #PB_Event_CloseWindow
Else
ConnectionID = OpenNetworkConnection("192.168.1.100", 1010)
If ConnectionID
SendNetworkData(ClientID, *XPos1, XPos1)
SendNetworkData(ClientID, *YPos1, YPos1)
Else
MessageRequester("PureBasic - Client", "Can't find the server (Is it launched ?).", 0)
EndIf
End
EndIf