Переменные, типы
Для начала объявим переменные:
Global chat$="" ;Строка чата
Global name$="noname" ;Имя чувака
Люди будут храниться в типе:
Type Player
Field name$,net_id
End Type
Базар тоже в тип:
Type Info
Field txt$
End Type
[править] Создание сети
Вот здесь создаётся сетевая игра:
newGame =
StartNetGame()
If newGame = 0 Then
end;не получилось
EndIfУзнаём имя
.label1:
Cls
name$=Input$( "Ваше имя? " )
If name$=
"" Then Goto label1
Локальный плеер
Global player.Player=
New Player
playername=name$
playernet_id=CreateNetPlayer( name$ )
myid=playernet_id
Командой CreateNetPlayer() создаётся новый игрок в сети. И всем уже подключенным игрокам отправляется сообщение с типом 100 (оно отправляется автоматически)
[править] Обновление игроков
Теперь нам нужна эта функция:
Function UpdatePlayers
()
For p.Player=Each Player
If NetPlayerLocal( pnet_id )
;Если гамер локальный, то набираем текст
key=GetKey()
If key
If key=13
;13=ENTER ОТСЫЛАЕМ ВСЕМ СВОЙ БАЗАР
If chat$<>"" Then SendNetMsg 2,chat$,pnet_id,0,0:info(name$+": "+chat$)
chat$=""
Else If key=8
;удаляем последнюю букву
If Len(chat$)>0 Then chat$=Left$(chat$,Len(chat$)-1)
Else If key>=32
;пишем букву
chat$=chat$+Chr$(key)
EndIf
EndIf
EndIf
Next
End Function
В этой функции набирается текст, и если нажат ENTER, то отправляем сообщение всем!
SendNetMsg 2,chat$,pnet_id,0,0
Отправляется сообщение с типом 2, содержащее текст переменной chat$, от игрока pnet_id. Отправляется оно всем, об этом свидетельствует первый нуль (вместо нуля можно написать ID другого юзера и тогда сообщение будет отправлено только ему).
И печатаем
info(name$+": "+chat$)
Добавление строчки в тип
Function info
(t$
)
i.Info=New Info
itxt$=t$
Insert i Before First Info
End Function
Эта функция просто рисует.
Function RenderAll
()
Cls
Text 10,10,chat$
y=FontHeight()*2
r=0;255
For i.Info=Each Info
If r<15;максимальное количество ctpok
Text 8,y,itxt$
y=y+FontHeight()
r=r+1
Else
Delete i
EndIf
Next
End Function
[править] Обновление сети
Теперь самая главная функция.
Function UpdateNetwork
()
While RecvNetMsg()
Select NetMsgType()
Case 2:
;Сообщение принято!!
info( NetPlayerName$( NetMsgFrom() )+": "+NetMsgData$() )
Case 100:
;новый чувак влез к нам!!...
p.Player=New Player
pnet_id=NetMsgFrom()
pname=NetPlayerName$( NetMsgFrom() )
info( "Входит "+pname )
Case 101:
;...и ушел
p.Player=FindPlayer( NetMsgFrom() )
If p<>Null
info( "Вышел "+pname )
Delete p
EndIf
Case 102:
;сервак закрылся
info( "Теперь я сервер" )
Case 200:
;Must Die сети
EndGraphics
Print "Сессия прервана"
WaitKey
End
End Select
Wend
End Function
Эта функция проверяет, есть ли какие-нибудь сообщения. Если есть, то по типу сообщения выполняем соответствующие действия.
Case 2:
;Сообщение принято!!
info
( NetPlayerName$
( NetMsgFrom() )+
": "+
NetMsgData$
() )
Почему именно 2???. Потому что в функции UpdatePlayers() отправляется сообщение 2-го типа
SendNetMsg 2,chat$,pnet_id,0,0
Можно было и 17 и 56 (до 99) придумать.
Это стандартные типы сообщений:
Case 100:
;новый чувак влез к нам!!...
когда получено это сообщение, чувак добавляется в тип.
Case 101:
;...и ушел
когда получено это сообщение, чувак удаляется из типа.
Case 102:
;сервак закрылся
когда получено это сообщение, Вы становитесь сервером
Case 200:
;Сессия прервана
когда получено это сообщение, сеть накрылась
4
[править] Главный цикл
Cls
While Not Keyhit(1)
Cls
UpdateNetwork()
UpdatePlayers()
RenderAll()
Flip
Wend
;**********************************************
;ЧАТ *
;АВТОР: TankSoft *
;МЫЛО : TankSoft@rambler.ru *
;САЙТ : http://TankSoft.narod.ru *
;**********************************************
Global chat$="" ;Строка чата
Global name$="noname";Имя чувака
Type Player
Field name$,net_id
End Type
Type Info
Field txt$
End Type
;===================================
;Стартуем сетевую гаму
newGame = StartNetGame()
If newGame = 0 Then
End;не получилось
EndIf
;===================================
;===================================
;Узнаём имя
.label1:Cls
name$=Input$( "Ваше имя? " )
If name$="" Then Goto label1
;===================================
;===================================
;Локальный плеер
Global player.Player=New Player
playername=name$
playernet_id=CreateNetPlayer( name$ )
myid=playernet_id
;===================================
Cls
While Not KeyHit(1)
Cls
UpdateNetwork()
UpdatePlayers()
RenderAll()
Flip
Wend
Function UpdateNetwork()
While RecvNetMsg()
Select NetMsgType()
Case 2:
;Сообщение принято!!
info( NetPlayerName$( NetMsgFrom() )+": "+NetMsgData$() )
Case 100:
;новый чувак влез к нам!!...
p.Player=New Player
pnet_id=NetMsgFrom()
pname=NetPlayerName$( NetMsgFrom() )
info( "Входит "+pname )
Case 101:
;...и ушел
p.Player=FindPlayer( NetMsgFrom() )
If p<>Null
info( "Вышел "+pname )
Delete p
EndIf
Case 102:
;сервак закрылся
info( "Теперь я сервер" )
Case 200:
;Must Die сети
EndGraphics
Print "Сессия прервана"
WaitKey
End
End Select
Wend
End Function
Function UpdatePlayers()
For p.Player=Each Player
If NetPlayerLocal( pnet_id )
;Если гамер локальный, то набираем текст
key=GetKey()
If key
If key=13
;13=ENTER ОТСЫЛАЕМ ВСЕМ СВОЙ БАЗАР
If chat$<>"" Then SendNetMsg 2,chat$,pnet_id,0,0:info(name$+": "+chat$)
chat$=""
Else If key=8
;удаляем последнюю букву
If Len(chat$)>0 Then chat$=Left$(chat$,Len(chat$)-1)
Else If key>=32
;пишем букву
chat$=chat$+Chr$(key)
EndIf
EndIf
EndIf
Next
End Function
Function info(t$)
i.Info=New Info
itxt$=t$
Insert i Before First Info
End Function
Function RenderAll()
Cls
Text 10,10,chat$
y=FontHeight()*2
r=0;255
For i.Info=Each Info
If r<15;максимальное количество ctpok
Text 8,y,itxt$
y=y+FontHeight()
r=r+1
Else
Delete i
EndIf
Next
End Function
Function FindPlayer.Player( id )
For p.Player=Each Player
If pnet_id=id Then Return p
Next
End Function
