Sorry your browser is not supported!

Global Wmess$
Global Plrs$
Global Message2$

ip$="192.168.1.2" //GetMyIp()
Print "IP Server : ",ip$
Input "Maximo de clientes : ",Plrs$
Input "Mensagem inicial : ",Wmess$
Print "Pressione qualquer letra para iniciar o servidor..."
wait key

NETWORK_PORT = 8181
NET SET PORT (NETWORK_PORT)
NET HOST Val(Plrs$),ip$

Do
	//DETALHES TÉCNICOS DO HOST
	CLS
	Print ">>>Detalhes do servidor<<<"
	Print ""
	Print ">Server IP : "+"192.168.1.2" //GetMyIp()
	Print ">Local IP : 127.0.0.1"
	Print ">Maximo de clientes : "+Plrs$
	Print "-----------------------------------------------------------------------------"
	Print ""
	Print ">>>Misc<<<"
	Print ">Last Given Error : "+NET GET ERROR()
	Print ">Last Received Message : "+Message2$
	Print ">Welcome Message : "+Wmess$
	Print "-----------------------------------------------------------------------------"
	
	//ENCONTRA JOGADORES
	For X=1 to 9999
		If NET PLAYER CONNECTED(X)=1
			Print "Jogador "+Str$(X)+" existe!"
		endif
	Next X
	
	//ADICIONA JOGADORES AO JOGO
	New#=Net Player Joined()
	
	//ENVIA MENSAGEM DE BOAS VINDAS
	If New#=>0
		Message$=Wmess$
		NET PUT STRING Message$
		NET SEND New#
		New#=0
	endif
	
	//RECEBE MENSAGENS E REDIRECIONA A TODOS OS USUÁRIOS
	If NET GET MESSAGE()=1
		Message2$=NET GET STRING()
		NET PUT STRING Message2$
		NET SEND ALL
	endif

loop

//ip$="127.0.0.1"
//IP DO HOST
ip$="192.168.1.2" //--> deve ser dado por uma memblock ou algo assim



Global Name$

//SE CONECTA AO IP DO HOST
NETWORK_PORT = 8181
NET SET PORT (NETWORK_PORT)
NET CONNECT ip$

//PEGA O NICK DO JOGADOR
Input "Seu nome : ",Name$

//MANDA AVISO DE ENTRADA
If NET CONNECTED()=1 
	Mensage_nick$="O jogador ["+Name$+"] se logou!"
	NET PUT STRING Mensage_nick$
	NET SEND 1
endif
Do
	If NET CONNECTED()=0
		Print "ERROR : "+NET GET ERROR()
		wait 6000
		end
	endif
	If NET GET MESSAGE()=1
		Message$=NET GET STRING()
		Print Message$
	endif
	If Controlkey()=1
		Input Name$+">> ",Message$
		Msg$=Name$+">> "+Message$
		NET PUT STRING Msg$
		NET SEND 1
	endif
loop

"NETWORK_PORT = 8181
NET SET PORT (NETWORK_PORT)"