Всем привет.
Пробую изучить ТСП протоколы в блитсе, чтоб делать сетевые игри. Для элементарного понятия делаю банальный и простой чат.
Командой HostNetGame(UserName$) создал комнату, а с другого компа зашел в нее при помощи StartNetGame()
Первая проблема что пересылаются пустые сообщения, но это не столь важно, главная проблема, что прога жрет весь ресурс проца. И немного подвисает. А когда закрываешь ее то еще некоторое время она не отвечает.
Проц (пентиум 1.8 одноядерный, но думаю не в этом дело)
Вот немного кода. Это выдрано из главного цикла:
Repeat
;Просто принимаем сообщение:----------------------------------
If RecvNetMsg() Then
Print "Recieving message from "+NetMsgFrom()+": "+NetMsgData$()
End If
;----------------------------------------------------------------
;Просто отправляем сообщение:--------------------------------
If KeyHit(28)
FlushKeys()
MSG$=Input(NetPlayerName(Me)+", your message is: ")
FlushKeys()
SendNetMsg 1,MSG$,0,0
EndIf
;----------------------------------------------------------------
If KeyHit(1) Exit
Forever
End
Простите что выкидываю код, знаю как это, рыться в чужом коде (одногрупникам часто помогаю) но тут его совсем мало...