Keskustelu: Koodit: Coolbasic: Käyttäjänimi ja salasana

muisti=3

Alkuvalikko:

AddText " Mitä haluat tehdä"
AddText ""
AddText ""
AddText " (1) Luo käyttäjä"
AddText " (2) Kirjaudu käyttäjään"



Repeat

If KeyHit(2) And muisti=>1 Then
CloseInput
ClearText
Goto uusiprofiili
EndIf

If KeyHit(3) And käyttäjä$=0 And salasana$=0 Then Color cbred:Text 0,0,"Luo ensin profiili"


If KeyHit(3) And käyttäjä$=1 And salasana$=1 Then
CloseInput
ClearText
Goto lataaprofiili
EndIf

If muisti=>1 Then Text 0,120,"Sinulla on vielä "+muisti+" vapaata profiili paikkaa jäljellä"
If muisti=0 Or muisti=<0 Then Text 0,120,"Muistisi on täynnä biggrin.gif "

DrawScreen

Forever

uusiprofiili:

Repeat

käyttäjän1$=Input("tunnuksesi: ")
DrawScreen
Until KeyHit(28)

käyttäjä$=1

CloseInput

ClearText

Goto salasana

salasana:


Repeat

Locate 0,20

salasana1$=Input("Salasanasi ","*")
DrawScreen


Until KeyHit(28)

salasana$=1

ClearText

CloseInput

muisti-1

Goto alkuvalikko

lataaprofiili:



Repeat



käyttäjä$=Input("tunnus: ")
DrawScreen
Until KeyHit(cbkeyreturn)

CloseInput



Repeat

salasana$=Input("Salasana: ","*")
DrawScreen
Until KeyHit(28)


ClearText

CloseInput

If käyttäjä$=käyttäjän1 And salasana$=salasana1 Then
Color cbyellow
Locate 0,0
AddText "tervetuloa "+käyttäjän1

Repeat

DrawScreen
Until EscapeKey()
End

Else

Color cbred
Locate 0,0
AddText "VÄÄRIN"

Repeat

DrawScreen
Until EscapeKey()
End


EndIf