AppTitle \"Chat\"

Graphics 640,480,32,2

;------------------------------------------------------------------------
back = LoadImage(\"background.bmp\") 

TileBlock back ,0,0
;------------------------------------------------------------------------
Print \" \"
Print \"[1] Sitzung hosten\"
Print \"[2] Sitzung joinen\"
Print \" \"
auswahl=Input(\"Wollen sie hosten oder joinen?\")

Name$ = \"test\"

If auswahl=2 Then IP$ = Input(\"IP Adresse des Hosts:\")


;------------------------------------------------------------------------
If auswahl = 1 Then
spiel = HostNetGame(Name$)
If Spiel=2 Then
Print \" \"
Print \"Verbindung erfolgreich aufgebaut (Sie haben eine Sitzung erstellt)\"
Else
Print \" \"
Print \"Verbindung konnte nicht aufgebaut werden\"
EndIf 

ElseIf auswahl = 2
spiel = JoinNetGame(Name$, IP$) 
If Spiel=1 Then
Print \" \"
Print \"Verbindung erfolgreich aufgebaut (Sie sind der Sitzung beigetreten)\"
Else
Print \" \"
Print \"Verbindung konnte nicht aufgebaut werden\"
EndIf 
EndIf 
;--------------------------------------------------------------------------

Print \" \"

Spieler$ = Input$(\"Name: \")
SpielerNr = CreateNetPlayer(Spieler$)

Repeat
 NachrichtAn$ = Input(\"Nachricht eingeben: \")
 SendNetMsg 1, NachrichtAn$, SpielerNr, 0
 While RecvNetMsg() = 1 
  Select NetMsgType()
   Case 100 Print \"Spieler \" + NetPlayerName$(NetMsgFrom()) + \" beigetreten\" 
   Case 101 Print \"Spieler \" + NetPlayerName$(NetMsgFrom()) + \" ausgetreten\"
   Case 102 Print \"Host ausgetreten\"
   Case 200 Print \"Verbindung abgebrochen\"
   Default Print \"Nachricht von \" + NetPlayerName$(NetMsgFrom()) + \": \" + NetMsgData$()
  End Select
 Wend
Until NachrichtAn$ = \"Ende\"


End