|
TCP
Почитав статьи: Вышло вот
Сервер:
svrGame=CreateTCPServer(7777)
If svrGame<>0 Then
Print "Сервер запущен удачно."
Else
Print "Ошибка создания сервера."
End
End If
While Not KeyHit(1)
strStream=AcceptTCPStream(svrGame)
If strStream Then
While Not Eof(strStream)
Print ReadString$(strStream)
Delay 2000
Wend
Else
Print "От Apollo X ничего нет ..."
Delay 1000
End If
Wend
End
Клиент:
strmGame=OpenTCPStream("127.0.0.1",7777)
If strmGame<>0 Then
Print "Клиент соединился с сервером."
Else
Print "Сервер не отвечает."
WaitKey
End
End If
While Not KeyHit(1)
; отправим сообщение серверу
WriteString strmGame,"Центр Управления, это Apollo X ..."
Print "Сообщение Центр Управления отправлено успешно..."
Delay 2000
Wend
Все в роде бы хорошо, вот только как это преобразовать в игру, т.е. шарик - игрок передвигается по плоскости.
(проблема в передаче координат, не могу понять как, всего то нужно передать координаты X,Y и их же раздать всем клиентам. )
Надеюсь на Вашу помощь.
|