I wrote this program in about 10 minutes, but I've encountered a few issues with it. What it does is it takes your name and a second person's name and then once it has that info it's supposed to go to the part where it checks your password. But when it reaches that area of the code it shrinks down, then opens up again, but nothing happens. I can only then end the program. Here's my full code:
Rem *************************************
Rem Password Check By Yodaman Jer 1/24/09
Rem *************************************
Rem Set Display Mode and stuff
Set Display Mode 800,600,32
Ink RGB(255,0,0),0
Cls
Rem Create Variables
AST$="Leader: "
Input "Type your name, Leader: ",NME$
MM$="Assistant Leader: "
Input "Type your name, Assistant: ",MNE$
T1$="Thank you for enterting your information. Please wait..."
T2$="Thank you for waiting. Press enter to continue."
Rem print variables to the screen
Print AST$
Ink RGB(0,90,255),0
Print NME$
Ink RGB(255,0,0),0
Print MM$
Ink RGB(0,90,255),0
Print MNE$
Sleep 2000
Ink RGB(0,250,55),0
Print T1$
Sleep 5000
Ink RGB(0,250,55),0
Print T2$
Rem create loop
Repeat:Until returnkey()=1
If returnkey()=1 then gosub password
Rem password information
password:
Cls
Psswrd$="65Masters"
Ink RGB(255,0,0),0
Rem variables
AST2$="Password Check"
Input "Enter the password: ",PS$
Rem Print variables
Print AST2$
If PS$=Psswrd$ then gosub here else gosub password
Rem here
here:
Cls
if mouseclick()=1 then end
Here's the part that checks the password...I'm pretty sure this is where the problem lies...
If PS$=Psswrd$ then gosub here else gosub password
Any ideas as to why it's doing this?
EDIT: Never mind, the problem disappeared. Still don't know why it did that...but the program works perfectly now.
Wait....what?
