forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)

- 3D-программирование (http://forum.boolean.name/forumdisplay.php?f=12)

- - Lan (http://forum.boolean.name/showthread.php?t=2279)

Кто не будь может написать пример игры со сетью - простой, чтобы не запутаться!? Например мир с двумя кубиками, при этом, чтобы мы их двигали. Заранее спасибо!

Я сам пишу понемногу онлайновую игру. Структура сервера игры не такая простая как модет показаться изначально.
Вот как я представляю и делаю сервер:
программа сервера состоит из таких частей:
1) - приём всех входящих посылок
2) - распознование посылок от клиентов:
2.1) - если от зарегистрированного клиента то расшифровка пакета и сохранение в данные сервера (данные об этом клиенте)
2.2) - если от нового клиента то создаётся база его данных.
3) - просчитывание мира
4) - зашифровка (создание) massage (для каждого клиента)
5) - рассылка massage каждому клиенту.

Причем ты должен сделать так чтобы новые клиенты сначало заходили на сервер как гости, потом происходила их регистрация, помом они начинали играть, им присылались все данные о других игроках. Когда игрок уходит то это долно быть тоже продумано. И каждому игроку должны отправляться только данные предназначенные для него!

Nunan
ето уж слишком поверхносно :)

притом реальную сетевую архитектуру надо проектировать достаточно долго
обычно очень сильно влияет жанр и стиль игры

Ну допустим танчики на 5 играков. простенькая игра. Там ведь можно всё и проше сделать. Или нет?
Вот нарыл пару примеров

сервер:

Сервер для сетевой программы (обучение как пользоватся Direct play)
Два шарика и возможность переписки
Извените без пояснений....

Код:

Graphics 640,480,32,0

fon=LoadFont("Ms sans Serif",10)

SetFont fon

 

Print "WAITING START NETGAME..." :Delay 1000

 

PK=HostNetGame("Lanx")

If PK<>2 Then End

PLY=CreateNetPlayer("Jim")

 

 

NMT=0

NMF=0

.g

 

 

If RecvNetMsg() Then

NMT=NetMsgType()

NMF=NetMsgFrom()

NMTT=NetMsgTo()

NMD$=NetMsgData$()

 

If nmt=100 Then plu=NMF

 

 

If nmt=2 Then x2=Int(NMD$)

If nmt=3 Then y2=Int(NMD$)

 

 

 

If nmt=5 Then

tot6$=tot5$

tot5$=tot4$

tot4$=tot3$

tot3$=tot2$

tot2$=tot$

tot$=NMD$

End If

 

 

End If

 

count=count+1

If Count=25 Then

SendNetMsg 2,x,ply,plu,0

SendNetMsg 3,y,ply,plu,0

Count=0

End If

 

 

If INPU=0 Then

If KeyDown(30) Then x=x-1

If KeyDown(32) Then x=x+1

If KeyDown(17) Then y=y-1

If KeyDown(31) Then y=y+1

End If

 

If KeyDown(15) Then INPU=1

 

 

 

If inpu=1 Then

s=GetKey()

If s<>0 And s<>9 And s<>8 Then t$=t$+Chr(s)

If s=13 Then SendNetMsg 5,t$,ply,plu,0:t$="":inpu=0

If s=8 Then t$=""

End If

 

 

Cls

Color 255,0,0:Oval x,y,10,10

Color 0,255,0:Oval x2,y2,15,15

Color 255,255,255

If inpu=1 Then Color 0,255,0

Text 10,50,">>>>>> "+t$+" <<<<<"

Text 10,90,Tot$

Text 10,100,tot2$

Text 10,110,tot3$

Text 10,120,tot4$

Text 10,130,tot5$

Text 10,140,tot6$

Color 255,255,255

 

 

Text 10,10,"YOU ID "+ply+" you joint with "+NetPlayerName(PLU)

Flip

 

Goto g

Клиент:
Client для Server DirectPlay (semples)

Тут все поясняется как управлять программой
принцип клиента и сервера по внешнему виду
идентичные даже код похож...
Лиш небольшие различия
(Примечание%) Я подключался так
Два модема один настроен как сервер с IP 197.57.0.1
а другой просто к нему подключается
тот кто сервер тот и запускает прогу сервер
Тот кто клиент соответственно
запускает клиента и указывает IP 197.57.0.1
и все.... Версии програм реально действующие
Сам пробывал... Правда ЛАГАЮТ из за не совершенства кода...

Код:

Graphics 640,480,32,2

fon=LoadFont("Ms sans Serif",10)

SetFont fon

 

 

 

.NE

Cls

Print ""

Print " Инструкция по применению."

Print ""

Print " Управление"

Print " [A,S,D,W] - управление шариком в четырех направленияях"

Print " [TAB] - вход в текстовый наборный режим (при етом стрелочки должны загорется зеленым)"

Print " [ENTER] - окончание текстового режима и отправка сообщения на сервер"

Print " [DEL] - удоление строки в текстовом режиме для перепичатования занова"

Print ""

Print ""

Print ""

Print ""

Print ""

Print ""

Print ""

Print ""

Print " Нажмите любую клавишу ..."

;WaitKey()

 

 

IPADDR$=Input ("IP ADDRES LIKE [127.0.0.1]: ")

Print "WAITING START NETGAME..." :Delay 1000

 

PK=JoinNetGame("Lanx",IPADDR$)

If PK<>1 Then Cls:Text 100,100,"SERVER CLOSED. TRY RECONNECT":If Input (" [y/n] ")="y" Then StopNetGame():Goto NE:Else End

 

PLY=CreateNetPlayer("Serg")

 

 

.g

 

 

If RecvNetMsg() Then

NMT=NetMsgType()

NMF=NetMsgFrom()

NMTT=NetMsgTo()

NMD$=NetMsgData$()

 

 

If nmt=100 Then plu=NMF

 

 

If nmt=2 Then x2=Int(NMD$)

If nmt=3 Then y2=Int(NMD$)

 

 

If nmt=5 Then

tot6$=tot5$

tot5$=tot4$

tot4$=tot3$

tot3$=tot2$

tot2$=tot$

tot$=NMD$

End If

 

 

 

End If

 

 

count=count+1

If Count=25 Then

SendNetMsg 2,x,ply,plu,0

SendNetMsg 3,y,ply,plu,0

Count=0

End If

 

 

 

If INPU=0 Then

If KeyDown(30) Then x=x-1

If KeyDown(32) Then x=x+1

If KeyDown(17) Then y=y-1

If KeyDown(31) Then y=y+1

 

End If

 

 

If KeyDown(15) Then INPU=1

 

 

If inpu=1 Then

s=GetKey()

If s<>0 And s<>9 And s<>8 Then t$=t$+Chr(s)

If s=13 Then SendNetMsg 5,t$,ply,plu,0:t$="":inpu=0

If s=8 Then t$=""

End If

 

 

 

Cls

Color 255,0,0:Oval x,y,10,10

Color 0,255,0:Oval x2,y2,15,15

Color 255,255,255

If inpu=1 Then Color 0,255,0

Text 10,50,">>>>>> "+t$+" <<<<<"

Text 10,90,Tot$

Text 10,100,tot2$

Text 10,110,tot3$

Text 10,120,tot4$

Text 10,130,tot5$

Text 10,140,tot6$

Color 255,255,255

 

NAMER$=NetPlayerName(PLU)

Text 10,10,"YOU ID "+ply+" you joint with "+NAMER$

If NAMER$="" Then Cls:Text 100,100,"SERVER CLOSED. TRY RECONNECT":If Input (" [y/n] ")="y" Then StopNetGame():Goto NE:Else End

Flip

 

Goto g

если нужно нечто по круче и соответственно посложнее (правда тоже без комментариев) то прошу заглянуть в раздел незаконченные проекты.

А как организуется в мультиплеере физика? Вот допустим две сферы и куб, подвержены физике, сферы управляются игроками. Физика просчитывается вся на сервере, и посылается вся инфа клиентам, а у них физики нет вообще? или как?

Freestyler
примерно так
но на клиентах тоже иногда кое че просчитывается дополнительно

Jimon
Что например?

А как же так не лагает это дело в таких играх как unreal и cellfactor , я понимаю что у них там сильно заморочено по этому поводу, но хотябы принцип.

к примеру в lineage2 идет дополнительная проверка в самой игре чтобы игроки не вылазили :)

а в таких шутерах очень сильная заморочка с проверками :)
по сетевому коду unreal'а можно книги писать ... :-)

физика влияющая на геймплей (положение игроков например) на сервере. все остальное и эффекты - на клиентах.