ich hab dein Beispiel mit einem User mal auf drei erweitert.
Hab dabei auf Strukturen und deren Übergabe an die Prozedur verzichtet.
Das ist vielleicht nicht die eleganteste Möglichkeit das Problem zu lösen, aber für einen Anfänger leichter nachzuvollziehen. Wäre nett, wenn du mir sagst, ob es dir weitergeholfen hat
Code: Alles auswählen
Global Profil.s, Passwort.s
Profil.s = InputRequester("Spieler","Bitte geben sie Ihren Profilnamen an:","")
Passwort.s = InputRequester("Spieler","Bitte geben sie Passwort an:","")
; das hier sind die Passworte und Profile der bereits bekannten User
Global Dim Profil_vorhanden.s(2)
Global Dim Passwort_vorhanden.s(2)
Profil_vorhanden(0)="User1"
Passwort_vorhanden(0)="Passwort1"
Profil_vorhanden(1)="User2"
Passwort_vorhanden(1)="Passwort2"
Profil_vorhanden(2)="User3"
Passwort_vorhanden(2)="Passwort3"
Procedure Login()
User_erkannt=0
For i=0 To 2 ; es werden alle vorhanden User mit der Eingabe verglichen
If Profil = Profil_vorhanden(i) And Passwort = Passwort_vorhanden(i)
Debug "Hallo " + Profil ; Begrüßung mit Profilname
User_erkannt=1 ; nur wenn die Eingaben einem der Profile entsprechen, wird die Variable 1 gesetzt
EndIf
Next i
If User_erkannt=0 ; wenn die Eingaben keinem Profil entsprochen haben, kommt die Fehlermeldung
Debug "Benutzername oder Passwort falsch"
EndIf
Delay(5000)
End
EndProcedure
Login()