Перед Forever поставь Delay 50 - не будет грузить весь проц.
Я директ плеем не пользовался никогда, но по-моему надо перед принятием сообщения еще проверять и его тип - NetMsgType()
If RecvNetMsg() Then
If NetMsgType()<100
Print "Recieving message from "+NetMsgFrom()+": "+NetMsgData$()
EndIf
EndIf
Вроде так...