Fenster = CreateWindow ("Chat", 0,0,800,670)
menu10 = CreateMenu ("Datei", 10, WindowMenu(Fenster))
menu20 = CreateMenu ("Bearbeiten", 20, WindowMenu(Fenster))

;
menu11 = CreateMenu ("Spiel erstellen", 11, menu10)
menu12 = CreateMenu ("Anmelden", 12, menu10)
menu13 = CreateMenu ("Abmelden", 13, menu10)
menu14 = CreateMenu ("Ende", 14, menu10)
;
menu21 = CreateMenu ("Benutzer wechseln", 21, menu20)
menu22 = CreateMenu ("Registrieren", 22, menu20)


UpdateWindowMenu Fenster

Repeat
 Ereigniss = WaitEvent()
 Wahl = EventData()
  Select Ereigniss
  Case $401 And EventSource() = Erstellschalter 
   Host = HostNetGame (Spielsitzungabfrage$)
   SpielerNR = CreateNetPlayer(Namenabfrage$)
    If Host = 0 Then Notify "Starten des Chats fehlgeschlagen!"
    If Host = 1 Then Notify "Chat als Client beigetreten!"
    If Host = 2 Then Notify "Chat als Host wurde gestartet"
   FreeGadget Erstellung
   
 
  Case $401 And EventSource() = Anmeldeschalter 
   Client = JoinNetGame(Felix, IPabfrage$) 
   SpielerNR2 = CreateNetPlayer(Namenabfrage2$)
    If Client = 0 Then Notify "Starten des Chats fehlgeschlagen!"
    If Client = 1 Then Notify "Chat als Client beigetreten!"
    If Client = 2 Then Notify "Chat als Host wurde gestartet"
   FreeGadget Anmeldung
   
 
  Case $401 And EventSource() = Bestaetigungsschalter 
   Notify "Erfolgreich gespeichert!"
   FreeGadget Registration
  
  Case $803 ;Ende
   End 
   Case $1001  ;Menu benutzen
    Select Wahl
     Case 11 ;Spiel erstellen
      Erstellung = CreateWindow("Erstellung eines Spiels", 300,200, 400,300)
      Name$ = CreateLabel("Ihr Name:", 5,0, 180,20, Erstellung)
      Passwort$ = CreateLabel("Ihr Passwort:", 5,45, 180,20, Erstellung)
      Spielsitzung$ = CreateLabel("Name der Spielsitzung:", 5,90, 180,20, Erstellung)
       Namenabfrage$ = CreateTextField (5,20, 180,20, Erstellung)
       Passwortabfrage$ = CreateTextField (5,65, 180,20, Erstellung, 1)
       Spielsitzungabfrage$ = CreateTextField (5,110, 180,20, Erstellung)
      Erstellschalter = CreateButton ("Erstellen", 60,140, 100,20, Erstellung, 1)
     
     Case 12 ; Anmelden
       Anmeldung = CreateWindow("Anmedung zu einem Spiel", 300,200, 400,300)
       Anmeldename$ = CreateLabel("Ihr Name:", 5,0, 180,20, Anmeldung)
       Passwort2$ = CreateLabel("Ihr Passwort:", 5,45, 180,20, Anmeldung)
       IP$ = CreateLabel("Die IP-Adresse:", 5,90, 180,20, Anmeldung)
        Namenabfrage2$ = CreateTextField (5,20, 180,20, Anmeldung)
        Passwortabfrage2$ = CreateTextField (5,65, 180,20, Anmeldung, 1)
        IPabfrage$ = CreateTextField (5,110, 180,20, Anmeldung)
       Anmeldeschalter = CreateButton ("Anmelden", 60,140, 100,20, Anmeldung, 1)
     
     Case 13 ;Abmelden
      DeleteNetPlayer SpielerNR
      Notify "Spieler wurde erfolgreich abgemeldet!"
      ;ClsColor(255,255,255)
      ;Cls
      
     Case 14 ;Ende
      End
     
     Case 22 ;Registration
      Registration = CreateWindow("Registration bei einem Spiel", 300,200, 400,300)
      Vorname$ = CreateLabel("Ihr Vorname*", 5,0, 180,20, Registration)
      Nachname$ = CreateLabel("Ihr Nachname*", 5,45, 180,20, Registration)
      Wohnort$ = CreateLabel("Ihr Wohnort*", 5,90, 180,20, Registration)
      Postleitzahl$ = CreateLabel("Postleitzahl*", 150,90, 180,20, Registration)
      Strasse$ = CreateLabel("Straße*", 5,135, 180,20, Registration)
      Hausnummer$ = CreateLabel("Hausnummer*", 150,135, 180,20, Registration)
      Pflicht$ = CreateLabel("* - muss angegeben werden - bitte gibt keine Falschen Angaben an", 5, 175, 180,20, Registration)
       Vornameabfrage$ = CreateTextField (5,20, 130,20, Registration)
       Nachnameabfrage$ = CreateTextField (5,65, 130,20, Registration)
       Wohnortabfrage$ = CreateTextField (5,110, 130,20, Registration)
       Postleitzahlabfrage$ = CreateTextField (150,110, 130,20, Registration)
       Strasseabfrage$ = CreateTextField (5,155, 130,20, Registration)
       Hausnummerabfrage$ = CreateTextField (150,155, 130,20, Registration)
      Bestaetigungsschalter = CreateButton ("Speichern", 100,190, 100,20, Registration, 1)
    End Select
   End Select
     

Forever

Select Ereigniss
   Case $401
      If EventSource() = Erstellungsschalter Then
         ; ... Code Code Code
      EndIf
End Select