After reviewing this its very naff itdont work well, I want to use a password based protection system on my work as it going to be part of game but dont no how to. Here is code I have so far but its not set up to check anythink it just lets you type anything and let you in. I want to change this but dont no how
Rem Project: Upload
Rem Created: 21/06/2003 10:11:20
Rem Created by: Pink Venom and Darksith
Rem ***** Main Source File *****
rem hide mouse and colour writing bright green
hide mouse :ink rgb(0,255,0),0
rem message setup
message$="Attempting to find server..."
for t=1 to len(message$) :print mid$(message$,t),""; :next t :wait 1500 :cls
server$="Phoenix Server found. Attempting connection..."
for t=1 to len(server$) :print mid$(server$,t),""; :next t :wait 1500 :cls
connection$="Connection OK... Booting Operating System..."
for t=1 to len(connection$) :print mid$(connection$,t),""; :next t
rem "operating system" setup
wait 1500 :ink rgb(255,255,255),1 :cls 0 :wait 1500 :ink rgb(0,255,0),1
box 0,0,635,50 :ink rgb(0,0,0),1 :box 3,3,632,47 :ink rgb(0,255,0),0
window$="Phoenix Server Remote Login" :text 170,15,window$
rem username/password access
os_login:
set cursor 250,100 :input "Username: ";username$
set cursor 250,150 :input "Password: ";password$
filename$="login.dat"
if file exist(filename$)=1 then delete file filename$
open to write 1,filename$ :write string 1,username$ :write string 1,password$
close file 1
if file exist(filename$)=1
open to read 1,filename$ :read string 1,username$ :read string 1,password$
close file 1
gosub enter_mainframe
endif
rem redirection to operator
enter_mainframe:
cls
ink rgb(0,255,0),1 :print "Welcome ";username$,"."
print "You are now being re-directed to User Control" :wait 1500 :cls
print "Welcome Agent. You have been chosen due to your expertise in this field."
print "You are required to gather company information by any means neccessary. Are you ready?"
set cursor 300,100 :print "1. Yes" :suspend for key
if inkey$()="1" then gosub start_game
if escapekey()=1 then gosub exit_program
start_game:
cls
exit_program:
