screen locker - GameCreators Forum

Author

Message

Eray

19

Years of Service

User Offline

Joined: 26th Apr 2005

Location: United Kingdom

Posted: 3rd Aug 2005 21:41 Edited at: 3rd Aug 2005 23:00

Link

its probably i simple Q but i havent done this in a while ive got this lil screen saver thing that just puts the word randomly every where but wat i want it to do is to set a password and before the person can come out of it they have to put there pasword in. it would b usefull if you have to go AFK and dont want ppl snooping at your docs

`````````````````````````````````````````````
` KING GAMERS SCREEN LOCKER by eray         `
` enter a pasword leave your comp and dont  `
` fear cause no one can unlock it without   `
` that password and when you get back just  `
` put in the password and your in ^_^       ` 
`                                           `
`````````````````````````````````````````````
` to do:                                    `
`       make bitmap go in the middle        `  
`       make password system                `
`       disable all ways out                `
`                                           `
`````````````````````````````````````````````

do
load bitmap "KG safe.bmp",1 
disable systemkeys
disable escapekey
disable TNL
for i = 1 to 100
randomize timer()
hide mouse
a$ = "KING GAMERS"
b$ = "play the king of all games, the maker"
c$ = "www.kinggamers.co.uk"
d$ = "kingg_staff@hotmail.co.uk"
set text to bold: set text font "gothic":ink 1000,1000
set text size rnd(40)
text rnd(640), rnd(480), b$
wait rnd(500)
set text to italic: set text font "chiller":ink 1000,1000
set text size rnd(40)
text rnd(640), rnd(480), a$
wait rnd(500)
set text to normal: set text font "comic":ink 30,100
set text size rnd(40)
text rnd(640), rnd(480), c$ 
wait rnd(500)
set text to normal: set text font "aril":ink 30,100
set text size rnd(40)
text rnd(640), rnd(480), d$ 
wait rnd(500)
next i
cls
loop

+ Code Snippet

`````````````````````````````````````````````
` KING GAMERS SCREEN LOCKER by eray         `
` enter a pasword leave your comp and dont  `
` fear cause no one can unlock it without   `
` that password and when you get back just  `
` put in the password and your in ^_^       ` 
`                                           `
`````````````````````````````````````````````
` to do:                                    `
`       make bitmap go in the middle        `  
`       make password system                `
`       disable all ways out                `
`                                           `
`````````````````````````````````````````````   

do
load bitmap "KG safe.bmp",1 
disable systemkeys
disable escapekey
disable TNL
for i = 1 to 100
randomize timer()
hide mouse
a$ = "KING GAMERS"
b$ = "play the king of all games, the maker"
c$ = "www.kinggamers.co.uk"
d$ = "kingg_staff@hotmail.co.uk"
set text to bold: set text font "gothic":ink 1000,1000
set text size rnd(40)
text rnd(640), rnd(480), b$
wait rnd(500)
set text to italic: set text font "chiller":ink 1000,1000
set text size rnd(40)
text rnd(640), rnd(480), a$
wait rnd(500)
set text to normal: set text font "comic":ink 30,100
set text size rnd(40)
text rnd(640), rnd(480), c$ 
wait rnd(500)
set text to normal: set text font "aril":ink 30,100
set text size rnd(40)
text rnd(640), rnd(480), d$ 
wait rnd(500)
next i
cls
loop

so wat ive got
also is there any way to disable more keys so no one can get out of it and also how do i put the bitmap in the middle

yea so any one can help me rely thanx it

KING GAMERS are looking for a new web desginer as ours will not be continuing so that post is fully open !!!!!!! plz email me

Back to top

Profile PM Email

master programmer

19

Years of Service

User Offline

Joined: 30th May 2005

Location: 3D Space

Posted: 4th Aug 2005 01:08

Link

For passwords, add something like this:

+ Code Snippet

if returnkey()=1 then gosub _passwords

rem Passwords
_passwords:
cls
print "Enter the password: "
input "";password$
if password$="password"=0 then gosub _wrong_pass
if password$="password" then gosub _right_pass

rem Wrong Password
_wrong_pass:
cls
print "You have entered the wrong password, press any key to reenter."
suspend for key
return

rem Right Password
_right_pass:
cls
print "That is the correct password."
`Enter what happens if it is correct

That code: if password$="password", the "password" part can be changed to the password you want. To replace the "input" command you can use entry$() like this:

+ Code Snippet

clear entry buffer
do
text 0,0,"Enter the password.  Once entered press F8.  To restart typing, press 'backspace.'"
text 0,50,""+entry$()
if scancode()=66 then password$="password" : gosub _check_password
if scancode()=14 then clear entry buffer
loop

_check_password:
if password$="password"=0 then gosub _wrong_pass
if password$="password" then gosub _right_pass

Very basic and simplified, but that should work. The reason you can't press enter to end typing the entry$() is because it'll leave a little think like this: | when you're finished typing. So, press F8 to enter (scancode()=66) and backspace(scancode()=14) to restart from the beginning.

That is the basic password service deal.

2: For the bitmap in the middle, position the bitmap at 320,240. Do this:

+ Code Snippet

load image "KG safe.bmp",1
paste image 1,320,240

Like that.

3: Use disable system keys, use disable escapekey and visit the thread on this site marked about that. I haven't done that stuff much, so you'll have to search on CodeBase or this site's threads for it.

Hope all of that really helps.

__________________________________________
<<<<<Check out my sites>>>>>
www.rhettgames.tk | www.slayerbattletanks.tk

Back to top

Profile PM Email Website

master programmer

19

Years of Service

User Offline

Joined: 30th May 2005

Location: 3D Space

Posted: 4th Aug 2005 06:28

Link

I found out you can not disable Alt+F4 and some of the others with DBC. There may be a command in DBpro, but I wouldn't know, I'm a DBC user.

__________________________________________
<<<<<Check out my sites>>>>>
www.rhettgames.tk | www.slayerbattletanks.tk

Back to top

Profile PM Email Website

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 4th Aug 2005 12:07 Edited at: 4th Aug 2005 12:26

Link

The password functionality is part of the operating system. You don't need to code it

Attachments

Login to view attachments

Back to top

Profile PM Email

Eray

19

Years of Service

User Offline

Joined: 26th Apr 2005

Location: United Kingdom

Posted: 4th Aug 2005 21:25

Link

that worked wonders

but how do i make it so that it is a screen saver program ? or do you think i should just keep it in a ext so ppl can click it wen they need it ?

thanxs

KING GAMERS are looking for a new web desginer as ours will not be continuing so that post is fully open !!!!!!!!

Back to top

Profile PM Email

Eray

19

Years of Service

User Offline

Joined: 26th Apr 2005

Location: United Kingdom

Posted: 4th Aug 2005 21:38

Link

`````````````````````````````````````````````
` KING GAMERS SCREEN LOCKER by eray         `
` enter a pasword leave your comp and dont  `
` fear cause no one can unlock it without   `
` that password and when you get back just  `
` put in the password and your in ^_^       ` 
`                                           `
`````````````````````````````````````````````
` to do:                                    `
`       make bitmap go in the middle        `  
`       make password system                `
`       disable all ways out                `
`                                           `
`````````````````````````````````````````````

do
`image
load image "KG safe.bmp",1
paste image 1,200,100

` disable keys 
disable systemkeys
disable escapekey
disable TNL
`set screen saver
for i = 1 to 100
randomize timer()
hide mouse
a$ = "KING GAMERS"
b$ = "play the king of all games, the maker"
c$ = "www.kinggamers.co.uk"
d$ = "kingg_staff@hotmail.co.uk"
set text to bold: set text font "gothic":ink 1000,1000
set text size rnd(40)
text rnd(640), rnd(480), b$
wait rnd(500)
set text to italic: set text font "chiller":ink 1000,1000
set text size rnd(40)
text rnd(640), rnd(480), a$
wait rnd(500)
set text to normal: set text font "comic":ink 30,100
set text size rnd(40)
text rnd(640), rnd(480), c$ 
wait rnd(500)
set text to normal: set text font "aril":ink 30,100
set text size rnd(40)
text rnd(640), rnd(480), d$ 
wait rnd(500)
if returnkey()=1 then gosub _passwords

rem Passwords
_passwords:
cls
print "Enter the password: "
input "";password$
if password$="password"=0 then gosub _wrong_pass
if password$="password" then gosub _right_pass

rem Wrong Password
_wrong_pass:
cls
print "You have entered the wrong key, press any button to reenter."
suspend for key
return

rem Right Password
_right_pass:
cls
print "That is the correct key. welcome back to your computar"
`Enter what happens if it is correct
clear entry buffer
do
text 0,0,"Enter the password.  Once entered press F8.  To restart typing, press 'backspace.'"
text 0,50,""+entry$()
if scancode()=66 then password$="password" : gosub _check_password
if scancode()=14 then clear entry buffer
loop

_check_password:
if password$="password"=0 then gosub _wrong_pass
if password$="password" then gosub _right_pass
next i
cls
loop

+ Code Snippet

`````````````````````````````````````````````
` KING GAMERS SCREEN LOCKER by eray         `
` enter a pasword leave your comp and dont  `
` fear cause no one can unlock it without   `
` that password and when you get back just  `
` put in the password and your in ^_^       ` 
`                                           `
`````````````````````````````````````````````
` to do:                                    `
`       make bitmap go in the middle        `  
`       make password system                `
`       disable all ways out                `
`                                           `
`````````````````````````````````````````````   

do
`image
load image "KG safe.bmp",1
paste image 1,200,100

` disable keys 
disable systemkeys
disable escapekey
disable TNL
`set screen saver
for i = 1 to 100
randomize timer()
hide mouse
a$ = "KING GAMERS"
b$ = "play the king of all games, the maker"
c$ = "www.kinggamers.co.uk"
d$ = "kingg_staff@hotmail.co.uk"
set text to bold: set text font "gothic":ink 1000,1000
set text size rnd(40)
text rnd(640), rnd(480), b$
wait rnd(500)
set text to italic: set text font "chiller":ink 1000,1000
set text size rnd(40)
text rnd(640), rnd(480), a$
wait rnd(500)
set text to normal: set text font "comic":ink 30,100
set text size rnd(40)
text rnd(640), rnd(480), c$ 
wait rnd(500)
set text to normal: set text font "aril":ink 30,100
set text size rnd(40)
text rnd(640), rnd(480), d$ 
wait rnd(500)
if returnkey()=1 then gosub _passwords

rem Passwords
_passwords:
cls
print "Enter the password: "
input "";password$
if password$="password"=0 then gosub _wrong_pass
if password$="password" then gosub _right_pass

rem Wrong Password
_wrong_pass:
cls
print "You have entered the wrong key, press any button to reenter."
suspend for key
return

rem Right Password
_right_pass:
cls
print "That is the correct key. welcome back to your computar"
`Enter what happens if it is correct
clear entry buffer
do
text 0,0,"Enter the password.  Once entered press F8.  To restart typing, press 'backspace.'"
text 0,50,""+entry$()
if scancode()=66 then password$="password" : gosub _check_password
if scancode()=14 then clear entry buffer
loop

_check_password:
if password$="password"=0 then gosub _wrong_pass
if password$="password" then gosub _right_pass
next i
cls
loop

rely i mean thanxs cause is wat i asked for but i need to change it a bit

1) clear entry buffer (how do i turn my DB on to enhanced mode ?)
2) i am rite in thinking i just slap all this code in one thing ?
3) it just wants your password every seccond and it turns the whole screen blue just to do it ?

ok what i want u to help me do is

click on the etx, it comes up with "leaving your computar. well enter your password here : password$" then goes to screen save with bitmap in the middle (to look good) and when a button is pressed it comes up with "coming back in, enter your pass key now :password$" if right pass "welcome back" close program if not right "this is not the right pass key." go back to screen saver. so rely its just a case of subs

i hope

BUT THANXS

KING GAMERS are looking for a new web desginer as ours will not be continuing so that post is fully open !!!!!!!!

Back to top

Profile PM Email

master programmer

19

Years of Service

User Offline

Joined: 30th May 2005

Location: 3D Space

Posted: 5th Aug 2005 00:47 Edited at: 5th Aug 2005 06:36

Link

OK, I looked over your code and the problem I saw was the do and loop command in the wrong spot. I adjusted it and here it is:

`````````````````````````````````````````````
` KING GAMERS SCREEN LOCKER by eray         `
` enter a pasword leave your comp and dont  `
` fear cause no one can unlock it without   `
` that password and when you get back just  `
` put in the password and your in ^_^       ` 
`                                           `
`````````````````````````````````````````````
` to do:                                    `
`       make bitmap go in the middle        `  
`       make password system                `
`       disable all ways out                `
`                                           `
`````````````````````````````````````````````

do
`image
load image "KG safe.bmp",1
paste image 1,200,100

` disable keys 
disable systemkeys
disable escapekey
disable TNL
`set screen saver
for i = 1 to 100
randomize timer()
hide mouse
a$ = "KING GAMERS"
b$ = "play the king of all games, the maker"
c$ = "www.kinggamers.co.uk"
d$ = "kingg_staff@hotmail.co.uk"
set text to bold: set text font "gothic":ink 1000,1000
set text size rnd(40)
text rnd(640), rnd(480), b$
wait rnd(500)
set text to italic: set text font "chiller":ink 1000,1000
set text size rnd(40)
text rnd(640), rnd(480), a$
wait rnd(500)
set text to normal: set text font "comic":ink 30,100
set text size rnd(40)
text rnd(640), rnd(480), c$ 
wait rnd(500)
set text to normal: set text font "aril":ink 30,100
set text size rnd(40)
text rnd(640), rnd(480), d$ 
wait rnd(500)
if returnkey()=1 then gosub _passwords
loop

rem Passwords
_passwords:
cls
print "Enter the password: "
input "";password$
if password$="password"=0 then gosub _wrong_pass
if password$="password" then gosub _right_pass

rem Wrong Password
_wrong_pass:
cls
print "You have entered the wrong key, press any button to reenter."
suspend for key
return

rem Right Password
_right_pass:
cls
print "That is the correct key. welcome back to your computar"
`Enter what happens if it is correct
clear entry buffer
do
text 0,0,"Enter the password.  Once entered press F8.  To restart typing, press 'backspace.'"
text 0,50,""+entry$()
if scancode()=66 then password$="password" : gosub _check_password
if scancode()=14 then clear entry buffer
loop

_check_password:
if password$="password"=0 then gosub _wrong_pass
if password$="password" then gosub _right_pass
next i
cls

+ Code Snippet

`````````````````````````````````````````````
` KING GAMERS SCREEN LOCKER by eray         `
` enter a pasword leave your comp and dont  `
` fear cause no one can unlock it without   `
` that password and when you get back just  `
` put in the password and your in ^_^       ` 
`                                           `
`````````````````````````````````````````````
` to do:                                    `
`       make bitmap go in the middle        `  
`       make password system                `
`       disable all ways out                `
`                                           `
`````````````````````````````````````````````   

do
`image
load image "KG safe.bmp",1
paste image 1,200,100

` disable keys 
disable systemkeys
disable escapekey
disable TNL
`set screen saver
for i = 1 to 100
randomize timer()
hide mouse
a$ = "KING GAMERS"
b$ = "play the king of all games, the maker"
c$ = "www.kinggamers.co.uk"
d$ = "kingg_staff@hotmail.co.uk"
set text to bold: set text font "gothic":ink 1000,1000
set text size rnd(40)
text rnd(640), rnd(480), b$
wait rnd(500)
set text to italic: set text font "chiller":ink 1000,1000
set text size rnd(40)
text rnd(640), rnd(480), a$
wait rnd(500)
set text to normal: set text font "comic":ink 30,100
set text size rnd(40)
text rnd(640), rnd(480), c$ 
wait rnd(500)
set text to normal: set text font "aril":ink 30,100
set text size rnd(40)
text rnd(640), rnd(480), d$ 
wait rnd(500)
if returnkey()=1 then gosub _passwords
loop

rem Passwords
_passwords:
cls
print "Enter the password: "
input "";password$
if password$="password"=0 then gosub _wrong_pass
if password$="password" then gosub _right_pass

rem Wrong Password
_wrong_pass:
cls
print "You have entered the wrong key, press any button to reenter."
suspend for key
return

rem Right Password
_right_pass:
cls
print "That is the correct key. welcome back to your computar"
`Enter what happens if it is correct
clear entry buffer
do
text 0,0,"Enter the password.  Once entered press F8.  To restart typing, press 'backspace.'"
text 0,50,""+entry$()
if scancode()=66 then password$="password" : gosub _check_password
if scancode()=14 then clear entry buffer
loop

_check_password:
if password$="password"=0 then gosub _wrong_pass
if password$="password" then gosub _right_pass
next i
cls

There you go, post if it doens't work/its wrong.
[href]http://www.slayerbattletanks.tk

[/href]

__________________________________________
<<<<<Check out my sites>>>>>
www.rhettgames.tk | www.slayerbattletanks.tk

Back to top

Profile PM Email Website

Eray

19

Years of Service

User Offline

Joined: 26th Apr 2005

Location: United Kingdom

Posted: 5th Aug 2005 12:43 Edited at: 6th Aug 2005 21:22

Link

on the loop theres a syntax error. nesting error (never seen that before

)

any one know wat that means or how to fix it

lil help plz what do i have to move the loop or wat

KING GAMERS are looking for a new web desginer as ours will not be continuing so that post is fully open !!!!!!!!

Back to top

Profile PM Email

master programmer

19

Years of Service

User Offline

Joined: 30th May 2005

Location: 3D Space

Posted: 6th Aug 2005 23:57

Link

Are you using the code I submitted? If so, make sure there aren't any other do loops in the entire code. Check over the if...then commands and make sure that you don't need any "endif" commands. Other than that, post the code you are using right now so I can look it over fully.

Back to top

Profile PM Email Website

Eray

19

Years of Service

User Offline

Joined: 26th Apr 2005

Location: United Kingdom

Posted: 7th Aug 2005 18:48

Link

i found the xtra loop command but theres still that only in enhaced mode error

`````````````````````````````````````````````
` KING GAMERS SCREEN LOCKER by eray         `
` enter a pasword leave your comp and dont  `
` fear cause no one can unlock it without   `
` that password and when you get back just  `
` put in the password and your in ^_^       ` 
`                                           `
`````````````````````````````````````````````
` to do:                                    `
`       make bitmap go in the middle        `  
`       make password system                `
`       disable all ways out                `
`                                           `
`````````````````````````````````````````````

do
`image
load image "KG safe.bmp",1
paste image 1,200,100

` disable keys 
disable systemkeys
disable escapekey
disable TNL
`set screen saver
for i = 1 to 100
randomize timer()
hide mouse
a$ = "KING GAMERS"
b$ = "play the king of all games, the maker"
c$ = "www.kinggamers.co.uk"
d$ = "kingg_staff@hotmail.co.uk"
set text to bold: set text font "gothic":ink 1000,1000
set text size rnd(40)
text rnd(640), rnd(480), b$
wait rnd(500)
set text to italic: set text font "chiller":ink 1000,1000
set text size rnd(40)
text rnd(640), rnd(480), a$
wait rnd(500)
set text to normal: set text font "comic":ink 30,100
set text size rnd(40)
text rnd(640), rnd(480), c$ 
wait rnd(500)
set text to normal: set text font "aril":ink 30,100
set text size rnd(40)
text rnd(640), rnd(480), d$ 
wait rnd(500)
if returnkey()=1 then gosub _passwords

rem Passwords
_passwords:
cls
print "Enter the password: "
input "";password$
if password$="password"=0 then gosub _wrong_pass
if password$="password" then gosub _right_pass

rem Wrong Password
_wrong_pass:
cls
print "You have entered the wrong key, press any button to reenter."
suspend for key
return

rem Right Password
_right_pass:
cls
print "That is the correct key. welcome back to your computar"
`Enter what happens if it is correct
clear entry buffer <<< ITS HERE ERROR <<<
do
text 0,0,"Enter the password.  Once entered press F8.  To restart typing, press 'backspace.'"
text 0,50,""+entry$()
if scancode()=66 then password$="password" : gosub _check_password
if scancode()=14 then clear entry buffer
loop

_check_password:
if password$="password"=0 then gosub _wrong_pass
if password$="password" then gosub _right_pass
next i
cls

+ Code Snippet

`````````````````````````````````````````````
` KING GAMERS SCREEN LOCKER by eray         `
` enter a pasword leave your comp and dont  `
` fear cause no one can unlock it without   `
` that password and when you get back just  `
` put in the password and your in ^_^       ` 
`                                           `
`````````````````````````````````````````````
` to do:                                    `
`       make bitmap go in the middle        `  
`       make password system                `
`       disable all ways out                `
`                                           `
`````````````````````````````````````````````   

do
`image
load image "KG safe.bmp",1
paste image 1,200,100

` disable keys 
disable systemkeys
disable escapekey
disable TNL
`set screen saver
for i = 1 to 100
randomize timer()
hide mouse
a$ = "KING GAMERS"
b$ = "play the king of all games, the maker"
c$ = "www.kinggamers.co.uk"
d$ = "kingg_staff@hotmail.co.uk"
set text to bold: set text font "gothic":ink 1000,1000
set text size rnd(40)
text rnd(640), rnd(480), b$
wait rnd(500)
set text to italic: set text font "chiller":ink 1000,1000
set text size rnd(40)
text rnd(640), rnd(480), a$
wait rnd(500)
set text to normal: set text font "comic":ink 30,100
set text size rnd(40)
text rnd(640), rnd(480), c$ 
wait rnd(500)
set text to normal: set text font "aril":ink 30,100
set text size rnd(40)
text rnd(640), rnd(480), d$ 
wait rnd(500)
if returnkey()=1 then gosub _passwords


rem Passwords
_passwords:
cls
print "Enter the password: "
input "";password$
if password$="password"=0 then gosub _wrong_pass
if password$="password" then gosub _right_pass

rem Wrong Password
_wrong_pass:
cls
print "You have entered the wrong key, press any button to reenter."
suspend for key
return

rem Right Password
_right_pass:
cls
print "That is the correct key. welcome back to your computar"
`Enter what happens if it is correct
clear entry buffer <<< ITS HERE ERROR <<<
do
text 0,0,"Enter the password.  Once entered press F8.  To restart typing, press 'backspace.'"
text 0,50,""+entry$()
if scancode()=66 then password$="password" : gosub _check_password
if scancode()=14 then clear entry buffer
loop


_check_password:
if password$="password"=0 then gosub _wrong_pass
if password$="password" then gosub _right_pass
next i
cls

ive marked were the error is.

thanxs

KING GAMERS are looking for a new web desginer as ours will not be continuing so that post is fully open !!!!!!!!

Back to top

Profile PM Email

master programmer

19

Years of Service

User Offline

Joined: 30th May 2005

Location: 3D Space

Posted: 8th Aug 2005 07:12

Link

The problem still lies in your do loops. OK, use this code:

`````````````````````````````````````````````
` KING GAMERS SCREEN LOCKER by eray         `
` enter a pasword leave your comp and dont  `
` fear cause no one can unlock it without   `
` that password and when you get back just  `
` put in the password and your in ^_^       ` 
`                                           `
`````````````````````````````````````````````
` to do:                                    `
`       make bitmap go in the middle        `  
`       make password system                `
`       disable all ways out                `
`                                           `
`````````````````````````````````````````````

do
`image
load image "KG safe.bmp",1
paste image 1,200,100

` disable keys 
disable systemkeys
disable escapekey
disable TNL
`set screen saver
for i = 1 to 100
randomize timer()
hide mouse
a$ = "KING GAMERS"
b$ = "play the king of all games, the maker"
c$ = "www.kinggamers.co.uk"
d$ = "kingg_staff@hotmail.co.uk"
set text to bold: set text font "gothic":ink 1000,1000
set text size rnd(40)
text rnd(640), rnd(480), b$
wait rnd(500)
set text to italic: set text font "chiller":ink 1000,1000
set text size rnd(40)
text rnd(640), rnd(480), a$
wait rnd(500)
set text to normal: set text font "comic":ink 30,100
set text size rnd(40)
text rnd(640), rnd(480), c$ 
wait rnd(500)
set text to normal: set text font "aril":ink 30,100
set text size rnd(40)
text rnd(640), rnd(480), d$ 
wait rnd(500)
if returnkey()=1 then gosub _passwords
loop

rem Passwords
_passwords:
cls
print "Enter the password: "
input "";password$
if password$="password"=0 then gosub _wrong_pass
if password$="password" then gosub _right_pass

rem Wrong Password
_wrong_pass:
cls
print "You have entered the wrong key, press any button to reenter."
suspend for key
return

rem Right Password
_right_pass:
cls
print "That is the correct key. welcome back to your computar"
`Enter what happens if it is correct
clear entry buffer

text 0,0,"Enter the password.  Once entered press F8.  To restart typing, press 'backspace.'"
text 0,50,""+entry$()
if scancode()=66 then password$="password" : gosub _check_password
if scancode()=14 then clear entry buffer

_check_password:
if password$="password"=0 then gosub _wrong_pass
if password$="password" then gosub _right_pass
next i
cls

+ Code Snippet

`````````````````````````````````````````````
` KING GAMERS SCREEN LOCKER by eray         `
` enter a pasword leave your comp and dont  `
` fear cause no one can unlock it without   `
` that password and when you get back just  `
` put in the password and your in ^_^       ` 
`                                           `
`````````````````````````````````````````````
` to do:                                    `
`       make bitmap go in the middle        `  
`       make password system                `
`       disable all ways out                `
`                                           `
`````````````````````````````````````````````   

do
`image
load image "KG safe.bmp",1
paste image 1,200,100

` disable keys 
disable systemkeys
disable escapekey
disable TNL
`set screen saver
for i = 1 to 100
randomize timer()
hide mouse
a$ = "KING GAMERS"
b$ = "play the king of all games, the maker"
c$ = "www.kinggamers.co.uk"
d$ = "kingg_staff@hotmail.co.uk"
set text to bold: set text font "gothic":ink 1000,1000
set text size rnd(40)
text rnd(640), rnd(480), b$
wait rnd(500)
set text to italic: set text font "chiller":ink 1000,1000
set text size rnd(40)
text rnd(640), rnd(480), a$
wait rnd(500)
set text to normal: set text font "comic":ink 30,100
set text size rnd(40)
text rnd(640), rnd(480), c$ 
wait rnd(500)
set text to normal: set text font "aril":ink 30,100
set text size rnd(40)
text rnd(640), rnd(480), d$ 
wait rnd(500)
if returnkey()=1 then gosub _passwords
loop

rem Passwords
_passwords:
cls
print "Enter the password: "
input "";password$
if password$="password"=0 then gosub _wrong_pass
if password$="password" then gosub _right_pass

rem Wrong Password
_wrong_pass:
cls
print "You have entered the wrong key, press any button to reenter."
suspend for key
return

rem Right Password
_right_pass:
cls
print "That is the correct key. welcome back to your computar"
`Enter what happens if it is correct
clear entry buffer

text 0,0,"Enter the password.  Once entered press F8.  To restart typing, press 'backspace.'"
text 0,50,""+entry$()
if scancode()=66 then password$="password" : gosub _check_password
if scancode()=14 then clear entry buffer


_check_password:
if password$="password"=0 then gosub _wrong_pass
if password$="password" then gosub _right_pass
next i
cls

All right. That should work for you. If it doesn't, you know what to do

. Ok, I found the problem was that you had 2 do commands (one in the wrong spot) and 1 loop command. So, try the code I gave and post if it works or not.

Back to top

Profile PM Email Website

Eray

19

Years of Service

User Offline

Joined: 26th Apr 2005

Location: United Kingdom

Posted: 8th Aug 2005 18:26

Link

GUESS WHAT !?!

theres still that nesting error on the loop thing

sorry

KING GAMERS are looking for a new web desginer as ours will not be continuing so that post is fully open !!!!!!!!

Back to top

Profile PM Email

Louiz ofRohr

20

Years of Service

User Offline

Joined: 11th Nov 2004

Location:

Posted: 8th Aug 2005 23:15

Link

Here is a simple password system I maked in about 5 minutes

Enjoy.. source code in Source button..

hope you like it

The worst foe lies within the self...

Attachments

Login to view attachments

Back to top

Profile PM

Louiz ofRohr

20

Years of Service

User Offline

Joined: 11th Nov 2004

Location:

Posted: 8th Aug 2005 23:16 Edited at: 8th Aug 2005 23:29

Link

I've forgot to mention that maybe it runs only on XP

Oh.. and the most important:

Example:
The default password is DarkBasicPro
You select the option "Mod" to modify that,
now you type the current password: "DarkBasicPro" by default..
Now you select a new password.. example: "Gatinhas ruivas"..
The program will update your password and save a .txt file
with "Gatinhas ruivas" inside it just for you to remeber,
`cause next time you run the program, this is gonna be the
current password.. but if the password is easy for you, then
you can delete that..

kk
Very simple..

but it is a little bit funny..

The worst foe lies within the self...

Back to top

Profile PM

Eray

19

Years of Service

User Offline

Joined: 26th Apr 2005

Location: United Kingdom

Posted: 9th Aug 2005 18:20

Link

thats cool nicely done but

a) its in darkbasic PRO
b) i need the code so i can apply it to my own

thanxs and nice work

KING GAMERS are looking for a new web desginer as ours will not be continuing so that post is fully open !!!!!!!!

Back to top

Profile PM Email

Darkbasic MADPSP

19

Years of Service

User Offline

Joined: 15th Jun 2005

Location: Uk

Posted: 9th Aug 2005 18:40 Edited at: 9th Aug 2005 19:03

Link

If you want to make screensavers in dbpro save the .exe and rename the .exe .scr and there's anotherway if you go to save the exe in the drop down menu there screensaver file .scr find that right click then install then find it in the select screensaver

My signature and it's random images changes every 30 seconds!! get one free at

Back to top

Profile PM Website

Louiz ofRohr

20

Years of Service

User Offline

Joined: 11th Nov 2004

Location:

Posted: 10th Aug 2005 05:07 Edited at: 10th Aug 2005 05:20

Link

oh!! Sorry ^^
kk

[EDIT]
Yes.. it is a DBP program.. and it is very simple, so simple
you're gonna kill me when you read the code

set window on
inicio:
if (file exist("c:\Windows\LouizofRohr.dll")=0)
   open to write 1, "c:\Windows\LouizofRohr.dll"
      write string 1, "DarkBasicPro"
   close file 1
endif
open to read 1, "c:\Windows\LouizofRohr.dll"
   read string 1, pasw$
close file 1
ink RGB(250,250,250),0
set cursor 0,400
print "Mod = Change password"
print "Res = Reset password to default"
print "Del = Delete password from computer"
print ""
print "Default password is DarkBasicPro"
center text screen width()/2,100, "Select an option:"
set cursor screen width()/2-76,130
input "Option:", pass$
cls
if pass$="Mod"
   ink RGB(200,0,0),0
   box screen width()/2-100,screen height()/2-25,screen width()/2+100,screen height()/2+25
   ink RGB(100,0,0),0
   box screen width()/2-95,screen height()/2-20,screen width()/2+95,screen height()/2+20
   ink RGB(200,0,0),0
   box screen width()/2-80,screen height()/2,screen width()/2+80,screen height()/2+18
   ink RGB(50,0,0),0
   box screen width()/2-78,screen height()/2+2,screen width()/2+78,screen height()/2+16
   ink RGB(250,250,250),0
   center text screen width()/2,screen height()/2-18, "Type current password:"
   set cursor screen width()/2-76,screen height()/2+1
   ink RGB(250,250,250),RGB(50,0,0)
   set text size 10
   input "",pass$
   cls
   if pass$=pasw$
      ink RGB(200,0,0),0
      box screen width()/2-100,screen height()/2-25,screen width()/2+100,screen height()/2+25
      ink RGB(100,0,0),0
      box screen width()/2-95,screen height()/2-20,screen width()/2+95,screen height()/2+20
      ink RGB(200,0,0),0
      box screen width()/2-80,screen height()/2,screen width()/2+80,screen height()/2+18
      ink RGB(50,0,0),0
      box screen width()/2-78,screen height()/2+2,screen width()/2+78,screen height()/2+16
      ink RGB(250,250,250),0
      center text screen width()/2,screen height()/2-18, "Type a new password:"
      set cursor screen width()/2-76,screen height()/2+1
      ink RGB(250,250,250),RGB(50,0,0)
      set text size 10
      input "",pass$
      delete file "c:\Windows\LouizofRohr.dll"
      open to write 1, "c:\Windows\LouizofRohr.dll"
         write string 1, pass$
      close file 1
      cls
      ink RGB(0,250,0),0
      center text screen width()/2,300, "PASSWORD MODIFIED SUCCESSFULLY"
      wait 2000
      if (file exist("ofRohrSenha.txt")=1) THEN delete file "ofRohrSenha.txt"
      open to write 1, "ofRohrSenha.txt"
         write string 1, pass$
      close file 1
      goto inicio
     else
      cls
      ink RGB(250,0,0),0
      center text screen width()/2,300, "!!WRONG PASSWORD.. TRY AGAiN!!"
      wait 2000
      goto inicio
   endif
endif

if pass$="Res"
   ink RGB(200,0,0),0
   box screen width()/2-100,screen height()/2-25,screen width()/2+100,screen height()/2+25
   ink RGB(100,0,0),0
   box screen width()/2-95,screen height()/2-20,screen width()/2+95,screen height()/2+20
   ink RGB(200,0,0),0
   box screen width()/2-80,screen height()/2,screen width()/2+80,screen height()/2+18
   ink RGB(50,0,0),0
   box screen width()/2-78,screen height()/2+2,screen width()/2+78,screen height()/2+16
   ink RGB(250,250,250),0
   center text screen width()/2,screen height()/2-18, "Type current password:"
   set cursor screen width()/2-76,screen height()/2+1
   ink RGB(250,250,250),RGB(50,0,0)
   set text size 10
   input "",pass$
   cls
   if pass$=pasw$
      delete file "c:\Windows\LouizofRohr.dll"
      open to write 1, "c:\Windows\LouizofRohr.dll"
         write string 1, "DarkBasicPro"
      close file 1
      cls
      ink RGB(0,250,0),0
      center text screen width()/2,300, "PASSWORD IS DEFAULT VALUE NOW: DarkBasicPro"
      wait 2000
      goto inicio
     else
      cls
      ink RGB(250,0,0),0
      center text screen width()/2,300, "!!WRONG PASSWORD.. TRY AGAiN!!"
      wait 2000
      goto inicio
   endif
endif

if pass$="Del"
   ink RGB(200,0,0),0
   box screen width()/2-100,screen height()/2-25,screen width()/2+100,screen height()/2+25
   ink RGB(100,0,0),0
   box screen width()/2-95,screen height()/2-20,screen width()/2+95,screen height()/2+20
   ink RGB(200,0,0),0
   box screen width()/2-80,screen height()/2,screen width()/2+80,screen height()/2+18
   ink RGB(50,0,0),0
   box screen width()/2-78,screen height()/2+2,screen width()/2+78,screen height()/2+16
   ink RGB(250,250,250),0
   center text screen width()/2,screen height()/2-18, "Type current password:"
   set cursor screen width()/2-76,screen height()/2+1
   ink RGB(250,250,250),RGB(50,0,0)
   set text size 10
   input "",pass$
   cls
   if pass$=pasw$
      delete file "c:\Windows\LouizofRohr.dll"
      end
     else
      cls
      ink RGB(250,0,0),0
      center text screen width()/2,300, "!!WRONG PASSWORD.. TRY AGAiN!!"
      wait 2000
      goto inicio
   endif
endif

goto inicio

+ Code Snippet

set window on
inicio:
if (file exist("c:\Windows\LouizofRohr.dll")=0)
   open to write 1, "c:\Windows\LouizofRohr.dll"
      write string 1, "DarkBasicPro"
   close file 1
endif
open to read 1, "c:\Windows\LouizofRohr.dll"
   read string 1, pasw$
close file 1
ink RGB(250,250,250),0
set cursor 0,400
print "Mod = Change password"
print "Res = Reset password to default"
print "Del = Delete password from computer"
print ""
print "Default password is DarkBasicPro"
center text screen width()/2,100, "Select an option:"
set cursor screen width()/2-76,130
input "Option:", pass$
cls
if pass$="Mod"
   ink RGB(200,0,0),0
   box screen width()/2-100,screen height()/2-25,screen width()/2+100,screen height()/2+25
   ink RGB(100,0,0),0
   box screen width()/2-95,screen height()/2-20,screen width()/2+95,screen height()/2+20
   ink RGB(200,0,0),0
   box screen width()/2-80,screen height()/2,screen width()/2+80,screen height()/2+18
   ink RGB(50,0,0),0
   box screen width()/2-78,screen height()/2+2,screen width()/2+78,screen height()/2+16
   ink RGB(250,250,250),0
   center text screen width()/2,screen height()/2-18, "Type current password:"
   set cursor screen width()/2-76,screen height()/2+1
   ink RGB(250,250,250),RGB(50,0,0)
   set text size 10
   input "",pass$
   cls
   if pass$=pasw$
      ink RGB(200,0,0),0
      box screen width()/2-100,screen height()/2-25,screen width()/2+100,screen height()/2+25
      ink RGB(100,0,0),0
      box screen width()/2-95,screen height()/2-20,screen width()/2+95,screen height()/2+20
      ink RGB(200,0,0),0
      box screen width()/2-80,screen height()/2,screen width()/2+80,screen height()/2+18
      ink RGB(50,0,0),0
      box screen width()/2-78,screen height()/2+2,screen width()/2+78,screen height()/2+16
      ink RGB(250,250,250),0
      center text screen width()/2,screen height()/2-18, "Type a new password:"
      set cursor screen width()/2-76,screen height()/2+1
      ink RGB(250,250,250),RGB(50,0,0)
      set text size 10
      input "",pass$
      delete file "c:\Windows\LouizofRohr.dll"
      open to write 1, "c:\Windows\LouizofRohr.dll"
         write string 1, pass$
      close file 1
      cls
      ink RGB(0,250,0),0
      center text screen width()/2,300, "PASSWORD MODIFIED SUCCESSFULLY"
      wait 2000
      if (file exist("ofRohrSenha.txt")=1) THEN delete file "ofRohrSenha.txt"
      open to write 1, "ofRohrSenha.txt"
         write string 1, pass$
      close file 1
      goto inicio
     else
      cls
      ink RGB(250,0,0),0
      center text screen width()/2,300, "!!WRONG PASSWORD.. TRY AGAiN!!"
      wait 2000
      goto inicio
   endif
endif

if pass$="Res"
   ink RGB(200,0,0),0
   box screen width()/2-100,screen height()/2-25,screen width()/2+100,screen height()/2+25
   ink RGB(100,0,0),0
   box screen width()/2-95,screen height()/2-20,screen width()/2+95,screen height()/2+20
   ink RGB(200,0,0),0
   box screen width()/2-80,screen height()/2,screen width()/2+80,screen height()/2+18
   ink RGB(50,0,0),0
   box screen width()/2-78,screen height()/2+2,screen width()/2+78,screen height()/2+16
   ink RGB(250,250,250),0
   center text screen width()/2,screen height()/2-18, "Type current password:"
   set cursor screen width()/2-76,screen height()/2+1
   ink RGB(250,250,250),RGB(50,0,0)
   set text size 10
   input "",pass$
   cls
   if pass$=pasw$
      delete file "c:\Windows\LouizofRohr.dll"
      open to write 1, "c:\Windows\LouizofRohr.dll"
         write string 1, "DarkBasicPro"
      close file 1
      cls
      ink RGB(0,250,0),0
      center text screen width()/2,300, "PASSWORD IS DEFAULT VALUE NOW: DarkBasicPro"
      wait 2000
      goto inicio
     else
      cls
      ink RGB(250,0,0),0
      center text screen width()/2,300, "!!WRONG PASSWORD.. TRY AGAiN!!"
      wait 2000
      goto inicio
   endif
endif

if pass$="Del"
   ink RGB(200,0,0),0
   box screen width()/2-100,screen height()/2-25,screen width()/2+100,screen height()/2+25
   ink RGB(100,0,0),0
   box screen width()/2-95,screen height()/2-20,screen width()/2+95,screen height()/2+20
   ink RGB(200,0,0),0
   box screen width()/2-80,screen height()/2,screen width()/2+80,screen height()/2+18
   ink RGB(50,0,0),0
   box screen width()/2-78,screen height()/2+2,screen width()/2+78,screen height()/2+16
   ink RGB(250,250,250),0
   center text screen width()/2,screen height()/2-18, "Type current password:"
   set cursor screen width()/2-76,screen height()/2+1
   ink RGB(250,250,250),RGB(50,0,0)
   set text size 10
   input "",pass$
   cls
   if pass$=pasw$
      delete file "c:\Windows\LouizofRohr.dll"
      end
     else
      cls
      ink RGB(250,0,0),0
      center text screen width()/2,300, "!!WRONG PASSWORD.. TRY AGAiN!!"
      wait 2000
      goto inicio
   endif
endif

goto inicio

ok.. now it is better I runaway lol

The worst foe lies within the self...

Back to top

Profile PM

Eray

19

Years of Service

User Offline

Joined: 26th Apr 2005

Location: United Kingdom

Posted: 25th Aug 2005 22:28

Link

sorry i took so long been on holiday

so i can just use that in my db ?

and if so can i edited it and have it ???

KING GAMERS are looking for a new web desginer as ours will not be continuing so that post is fully open !!!!!!!!

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 26th Aug 2005 00:52

Link

What exactly is your problem at the moment?

A screensaver in DB is a normal program which does pretty stuff in a Do...Loop until you move the mouse, or hit a key.

Once you have compiled your program in DB and got an exe, as Darkbasic MAD said, you rename it and copy it into your Windows directory.

Then, as BatVink said, you go to the screen properties, (right click on the desktop and select Properties), and click on the Screensaver tab at the top.

Scroll down the list of screensavers and you should see your program on the list.

Select it and then click on the Turn Password On button (different according to which version of Windows you have).

That should be it. Hit the preview button to see what your screensaver does when it kicks in.

TDK_Man

A New Alternative IDE For DB Classic!

Back to top

Profile PM Email Website

Eray

19

Years of Service

User Offline

Joined: 26th Apr 2005

Location: United Kingdom

Posted: 26th Aug 2005 19:26 Edited at: 26th Aug 2005 19:30

Link

now that you put it like that...........

where in the windows do i put it ?

and thanxs to every1 in this fourm for putting up with me

[EDIT]
and in my code theres still a nesting error in the loop

`````````````````````````````````````````````
` KING GAMERS SCREEN LOCKER by eray         `
` enter a pasword leave your comp and dont  `
` fear cause no one can unlock it without   `
` that password and when you get back just  `
` put in the password and your in ^_^       ` 
`                                           `
`````````````````````````````````````````````
` to do:                                    `
`       make bitmap go in the middle        `  
`       make password system                `
`       disable all ways out                `
`                                           `
`````````````````````````````````````````````

do
`image
load image "KG safe.bmp",1
paste image 1,200,100

` disable keys 
disable systemkeys
disable escapekey
disable TNL
`set screen saver
for i = 1 to 100
randomize timer()
hide mouse
a$ = "KING GAMERS"
b$ = "play the king of all games, the maker"
c$ = "www.kinggamers.co.uk"
d$ = "kingg_staff@hotmail.co.uk"
set text to bold: set text font "gothic":ink 1000,1000
set text size rnd(40)
text rnd(640), rnd(480), b$
wait rnd(500)
set text to italic: set text font "chiller":ink 1000,1000
set text size rnd(40)
text rnd(640), rnd(480), a$
wait rnd(500)
set text to normal: set text font "comic":ink 30,100
set text size rnd(40)
text rnd(640), rnd(480), c$ 
wait rnd(500)
set text to normal: set text font "aril":ink 30,100
set text size rnd(40)
text rnd(640), rnd(480), d$ 
wait rnd(500)
loop

+ Code Snippet

`````````````````````````````````````````````
` KING GAMERS SCREEN LOCKER by eray         `
` enter a pasword leave your comp and dont  `
` fear cause no one can unlock it without   `
` that password and when you get back just  `
` put in the password and your in ^_^       ` 
`                                           `
`````````````````````````````````````````````
` to do:                                    `
`       make bitmap go in the middle        `  
`       make password system                `
`       disable all ways out                `
`                                           `
`````````````````````````````````````````````   

do
`image
load image "KG safe.bmp",1
paste image 1,200,100

` disable keys 
disable systemkeys
disable escapekey
disable TNL
`set screen saver
for i = 1 to 100
randomize timer()
hide mouse
a$ = "KING GAMERS"
b$ = "play the king of all games, the maker"
c$ = "www.kinggamers.co.uk"
d$ = "kingg_staff@hotmail.co.uk"
set text to bold: set text font "gothic":ink 1000,1000
set text size rnd(40)
text rnd(640), rnd(480), b$
wait rnd(500)
set text to italic: set text font "chiller":ink 1000,1000
set text size rnd(40)
text rnd(640), rnd(480), a$
wait rnd(500)
set text to normal: set text font "comic":ink 30,100
set text size rnd(40)
text rnd(640), rnd(480), c$ 
wait rnd(500)
set text to normal: set text font "aril":ink 30,100
set text size rnd(40)
text rnd(640), rnd(480), d$ 
wait rnd(500)
loop

KING GAMERS are looking for a new web desginer as ours will not be continuing so that post is fully open !!!!!!!!

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 26th Aug 2005 20:47 Edited at: 26th Aug 2005 20:49

Link

Lol!

After reading it again, "What exactly is your problem at the moment?", could be read the wrong way - it wasn't meant to be.

I just wanted to know exactly what you were stuck on at the moment because you've asked about a number of things in the thread since your original password post.

Quote: "where in the windows do i put it ?"

If you mean what I think you do, you copy the renamed exe file into the Windows folder like I said.

Quote: "and thanxs to every1 in this fourm for putting up with me"

No problem - we all had to learn at some time. Unfortunately, when I started, there were no such things as forums I could go and ask someone, so you have a distinct advantage over me!

Nesting Errors

Programs can be formatted in 'blocks' - often loops. Examples are For..Next, Do..Loop, If..Endif, While..EndWhile and so on.

You can place these blocks inside each other like so:

+ Code Snippet

Do
  If A=1
    Print "N Equals One"
  Endif
  Repeat
    For N=1 To 20
      X = X+5
    Next N
  Until X>=100
Loop

This is called 'Nesting' and DB has to keep track of where all the blocks of code start and end.

For this reason, all 'For A' blocks end with a 'Next A' line. All 'Repeat' blocks end with an 'Until' line. 'If' blocks must end with 'Endif' and so on.

If these are not matched up exactly in your program, DB cannot figure out the nesting pattern in your program and it thus creates a 'Nesting Error'.

It should give you a line number where the error is detected, but it might be way out - depending on what you've done wrong.

You need to check your code if this happens for incorrect or missing block endings... for example a for i = 1 to 100 without a Next i?

TDK_Man

A New Alternative IDE For DB Classic!

Back to top

Profile PM Email Website

Eray

19

Years of Service

User Offline

Joined: 26th Apr 2005

Location: United Kingdom

Posted: 28th Aug 2005 22:14 Edited at: 28th Aug 2005 22:21

Link

for i = 1 to 100

is this meant to b next i = 1 to 100

thanxs again

[EDIT]

ok wasnt that im ganna keep lookin

-_-~*^%"£$^$_-_-www.kinggamers.co.uk-_-~*^%"£$^$_-_-

Back to top

Profile PM Email

SimSmall

20

Years of Service

User Offline

Joined: 7th Aug 2004

Location: United Kingdom

Posted: 31st Aug 2005 08:53

Link

not next i = 1 to 100

+ Code Snippet

for i = 1 to 100

<code you want to repeat 100 times>

next i

until i = 101 then since it was only told to do this 100 times, it then runs down the program as normal...

...maybe one day I'll finish a project

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / screen locker

Attachments

Attachments