TGC Codebase Backup



Neat little password system for your PC, includes sound, needs no media! (my first submission) by Anonymous Coder

10th Oct 2005 11:47
Summary

Cool little peice of coding that records your name and plays it back to you later when you have input the correct password. This is my first submission so please comment/improve



Description

Cool little peice of coding that records your name and plays it back to you later when you have input the correct password.(don't foget to set a password) THanks for reading my first submission(workimh on making it into a screen saver with randomly positioned words every few minuites) THANKYOU FOR READING



Code
                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    REM ***********************************************************************************
REM ***************************SOUND PASSWORD SYSTEM***********************************
REM ***********************************************************************************
REM ****************************BY ANDREW COOPER***************************************
REM ***********************************************************************************

rem prevent other means of escape
disable escapekey
disable systemkeys
rem set text to be read
start:
cls
PRINT "WARNING, UGLY FACE DETECTED!"
PRINT "SELF DESTRUCT ACTIVATED!"
PRINT "(TURN UP THE SOUND PLEASE)"
WAIT 3000
PRINT "SAY YOUR NAME LOUDLY IN PLEASE"
PRINT "PLEASE WAIT"
rem records sound
RECORD SOUND 1
WAIT 7000
STOP RECORDING SOUND
rem saves sound and plays back when a certain word has been set.
SAVE SOUND "NAME",1
PRINT "SOUND RECOGNISED"
PRINT "PLEASE ENTER PASSWORD TO DEACTIVATE THE SELFDESTRUCT"
rem password input
input ">" ,password$
if password$ = "password"
rem password verification
print "SELF DESTRUCT ABORTED, unlocking system, please wait"
wait 2000
print "have a nice day"
rem plays back sound
SET SOUND VOLUME 1,100
PLAY SOUND 1
wait 1000
end
else
goto wrong
endif
rem what happens if the wrong password is entered
wrong:
cls
print "Password Incorrect, Access Denied"
wait 1000
goto start