TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.1

Information

Uploaded: 22nd Jan 2005 14:11

Modified: 1st Jan 1970 01:00

Author: NinJA99

Summary

This program lets you lock your computer.

Full Description

This program lets you lock your computer.

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

sync on : sync rate 0

rem Main loop

mainl:

rem User prompt buttons

ink rgb(255,255,0),0 : set text size 50

center text 320,80,"GuardPro 1.1"

if lock=0 then lc$="Lock Computer"

if lock=1 then lc$="Unlock Computer"

rem Status prompt

ink 0,0 : box 0,140,639,479

ink rgb(0,255,0),0 : set text size 12

select stat

case 0 : center text 320,140,"Welcome" : endcase

case 1 : center text 320,140,"Computer Locked" : endcase

case 2 : center text 320,140,"Computer Not Locked" : endcase

case 3 : center text 320,140,"Bye" : endcase

case default : center text 320,140,"NOUT" : endcase

endselect

rem Show and operate buttons

buttonselected=0

if makebutton(110,240,lc$)>0 then buttonselected=1

if makebutton(320,240,"See Credits")>0 then buttonselected=2

if lock=0

if makebutton(530,240,"Exit")>0 then buttonselected=3

endif

rem Detect button selection

if buttonselected=1

goto lock

endif

if buttonselected=2

goto credits

endif

if buttonselected=3

goto exit

endif

rem Update screen

sync

rem End loop

loop

lock:

ink rgb(0,255,0),0 : set text size 12

if cp=0

cls

print "Create a password:"

input createpass$

print "Password stored."

sleep 1000

print "Computer Locked."

cp=1

lock=1

stat=1

disable escapekey

disable systemkeys

sleep 1000

cls

goto mainl

else

if lock=0

cls

print "Computer Locked."

lock=1

stat=1

disable escapekey

disable systemkeys

sleep 1000

cls

goto mainl

endif

if lock=1

cls

print "Enter password:"

input pass$

if pass$=createpass$

print "Computer unlocked."

enable escapekey

enable systemkeys

lock=0

stat=2

sleep 1000

cls

goto mainl

else

print "Incorrect password-try again."

sleep 1000

cls

goto lock

endif

credits:

cls

ink rgb(0,255,0),0 : set text size 12

print "---------------------------------CREDITS---------------------------------"

print ""

print "Program by Nick Aldwin"

print "Some part of the code was taken from other sources"

print "Press any key to exit"

suspend for key

cls

goto mainl

exit:

stat=3

sleep 1000

exit prompt "GuardPro", "Thanks for using GuardPro!"

end

function makebutton(x,y,desc$)

buttonpressed=0

ink rgb(0,255,0),0 : box x-102,y-34,x+102,y+34

ink rgb(0,128,0),0 : box x-100,y-32,x+100,y+32

ink rgb(55,55,0),0

myx=mousex() : myy=mousey()

if myx>x-100 and myx<x+100

if myy>y-32 and myy<y+32

buttonpressed=1

endif

if buttonpressed=1 then ink rgb(255,255,0),0

set text size 18 : center text x,y-8,desc$

if mouseclick()=0 then buttonpressed=0

endfunction buttonpressed

Download

Please login to download

Comments

No comments yet.

CodeBase - GuardPro

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	NinJA99
CodeBase Entries:	1