You could do a simple thing like print the usr$ behind welcome for a personal greeting:
Code: Select all
CLS
PRINT "Remote Access Server."
PRINT "Admins Only!"
PRINT ""
INPUT "password:", usr$
IF urs$ = "owned" OR usr$ = "happyhacker" OR usr$ = "netstorm" THEN GOTO 1 ELSE GOTO 2
1 PRINT "Welcome"; usr$
PRINT "You now have access to or online command prompt shell, uploading file to are ftp or uploading to the website, Our online chat and are exclusive members area"
PRINT " Enjoy System-Psycho"
end
2 PRINT "Access is denine"
Or maybe use multiple IFs for different domains.. say Owned is the main Admin, and the others Sub-admins:
Code: Select all
CLS
PRINT "Remote Access Server."
PRINT "Admins Only!"
PRINT ""
INPUT "password:", usr$
IF urs$ = "owned" THEN GOTO 1
IF usr$ = "happyhacker" OR usr$ = "netstorm" THEN GOTO 2
PRINT "Access is denine"
END
1 PRINT "Welcome to Main Log."
PRINT "You now have access to or online command prompt shell, uploading file to are ftp or uploading to the website, Our online chat and are exclusive members area"
PRINT " Enjoy System-Psycho"
end
2 PRINT "Welcome to Sub Log"
PRINT "You now have access to our online chat and are exclusive members area"
PRINT " Enjoy System-Psycho"
end
And also a cool tip, use UCASE$() or LCASE$() to make input case-insensitive:
Code: Select all
IF UCASE$(usr$) = "OWNED" THEN ...
Code: Select all
IF LCASE$(usr$) = "owned" THEN ...
NOTE: UCASE$() makes string all caps, and LCASE make it lower case.. So if you input: Owned, OwNeD, or OWNED it would still work by using these converters..
You only need one of the two tho, I normally just use UCASE$, other might prefer LCASE$.. but the end result is the same as for case-insensitivity