;
;Server.bb
;

Host = HostNetGame("[GearTech] Chat Server")
If Host = 2 Then
	CreateNetPlayer("Server")
	Print "Server erfolgreich gestartet!"
	
	While Not KeyHit(1)
		
		If RecvNetMsg() Then
			msgType = NetMsgType()
			If msgType > 0 And msgType < 100 Then
				
				msgData$ = NetMsgData$()
				Print "[" + NetPlayerName(NetMsgFrom()) + "]: " + msgData$
				
			End If
		End If
		
		
	Wend
Else
	Print "Server konnte nicht gestartet werden!"
	Delay 2000
	End
End If

;
;Client.bb
;
Graphics 800,600,16,2
Join = JoinNetGame("[GearTech] Chat Server","127.0.0.1")
Name$ = Input("Chatname: ")
Select Join
	Case 1
		CreateNetPlayer(Name$)
		Print "Herzlich Willkommen, " + Name$ + ", du bist dem Server erfolgreich beigetreten!"
		
		While Not KeyHit(1)
			
			message$ = Input(Name$ + ": ")
			SendNetMsg (Rand(1, 99),message$,Name$,1)
			Print "Nachricht wurde gesendet!"
		Wend
		End
	Default
		Print "Der Server ist momentan Offline!"
End Select