[TEHb08]

For p.Player=Each Player
online = online +1

If p\stream Then
If ReadAvail(p\potok)>0 Then
p\S$=ReadLine(p\potok)



;Проверяем логин и пасс если все норма то обрабатываем запросы
Include "game.bb"
;-----------------------------------------------------------------------


EndIf

Else
online = online - 1
Print ""
Print "------------------------------------------------------------------------------"
Print p\login$ + " отключен "
Print "------------------------------------------------------------------------------"
Print ""
Delete p
EndIf


Next

он бесконечно считает так как цикл тоже бесконечный он все время перебирает цикл пользователей