TheGameCreators - CodeBase - Screensaver structure with configuration screen

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 26th Sep 2003 06:03

Modified: 26th Sep 2003 06:12

Author: Kelebrindae

Summary

Reusable screensaver structure with configuration screen. Now you can easily make your own saver !

Full Description

Very simple screensaver with configuration screen. My aim wasn't to make a nice saver, but to give an understandable, well-commented structure to allow any coder to create his own saver.<br /> <br /> Works well with DarkBasic Classic, but the screen flickers when the preview window or the configuration screen is shown (DB Classic switch to full screen before executing the code and switching back to windowed mode).<br /> This can be fixed with DBpro only, by setting the "windowed" parameter at compile time.

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem The command line give the screensaver mode.

rem /s Show the Screen Saver

rem /c Display the Settings Dialog

rem /a Display the Password Change Dialog

rem /p Preview the Screen Saver (which also gives you the window handle of the little screensaver preview window)

rem Parse the command line to know the current mode

comd$ = upper$(left$(CL$(),2))

if comd$ = "" then comd$ = "/C"

rem Check the registry to know if then screen saver is already running. If it is, just quit.

rem The key name has no importance at all

regkey$ = "DarkBasicscreenSaver"

regValue = get registry(regkey$, "Running")

if comd$<>"/C" and regValue = 1 then end

rem Screensaver mode

select comd$

rem Show the screensaver

case "/S"

rem Write to registry that the screensaver is running

write to registry regkey$, "Running", 1

rem Get all available resolutions

perform checklist for display modes

rem Then read then user settings for resolution (see the function "getResolution" for further details)

res = get registry(regkey$, "Resolution")

resmode$=checklist string$(res)

set display mode getResolution(resmode$,"width"),getResolution(resmode$,"height"),getResolution(resmode$,"depth")

rem Read the other user settings from the registry

size = get registry(regkey$, "CubeSize")

if size=0 then size=40

rem Hide the mouse, set up the sync rate, etc...

hide mouse

sync on:sync rate 40

disable escapekey

autocam off

backdrop on:color backdrop rgb(0,0,0)

rem ***************************** From here, it's up to you! ************************

rem (The following code is minimalist. My aim was to emphasize on the code structure)

rem Make a cube using the size chosen by the user

make object cube 1,size

position object 1,0,0,400

rem Set up the cube's variables

x=0:y=0:xmove=5:ymove=3

xrotate=rnd(10):yrotate=rnd(10):yrotate=rnd(10)

xangle=0:yangle=0:zangle=0

OldRedValue=0:OldGreenValue=0:OldBlueValue=255

NewRedValue=0:NewGreenValue=0:NewBlueValue=255

rem Main loop

rem Change the cube's color randomly

if rgb(OldRedValue,OldGreenValue,OldBlueValue)=rgb(newRedValue,newGreenValue,newBlueValue)

newRedValue=128+rnd(127)

newGreenValue=128+rnd(127)

newBlueValue=128+rnd(127)

else

if oldRedvalue<newRedValue then inc oldRedvalue

if oldRedvalue>newRedValue then dec oldRedvalue

if oldGreenValue<newGreenValue then inc oldGreenValue

if oldGreenValue>newGreenValue then dec oldGreenValue

if oldBlueValue<newBlueValue then inc oldBlueValue

if oldBlueValue>newBlueValue then dec oldBlueValue

color object 1,rgb(OldRedValue,OldGreenValue,OldBlueValue)

endif

rem Move and rotate the cube

inc x,xmove:inc y,ymove

position object 1,x,y,400

xangle=wrapvalue(xangle+xrotate):yangle=wrapvalue(yangle+yrotate):zangle=wrapvalue(zangle+zrotate)

rotate object 1,xangle,yangle,zangle

rem If the cube hits the screen borders, bounce

if object screen x(1)<object size x(1) or object screen x(1)>screen width()-object size x(1)

xmove=-1*xmove

xrotate=rnd(10):yrotate=rnd(10):yrotate=rnd(10)

endif

if object screen y(1)<object size y(1) or object screen y(1)>screen height()-object size y(1)

ymove=-1*ymove

xrotate=rnd(10):yrotate=rnd(10):yrotate=rnd(10)

endif

sync

rem IMPORTANT: Check if the mouse moved, if any key was hit, etc...

if mouseclick()<>0 or mousemoveX()<>0 or mousemoveY()<>0 or scancode() <> 0

show mouse

rem write to registry that the prog has finished running

write to registry regkey$, "Running", 0

end

endif

loop

endcase

rem Configuration screen

case "/C"

rem write in the registry that the saver isn't running. (Useful if the saver crashes without

rem telling it has stopped; You can fix the registry value by opening the configuration screen)

write to registry regkey$, "Running", 0

rem Get all available resolutions

perform checklist for display modes

maxres=checklist quantity()

rem Get cube size in user settings

size = get registry(regkey$, "CubeSize")

if size=0 then size=40

rem Get cube size in user settings

res = get registry(regkey$, "Resolution")

if res=0 then res=1

rem *************** Here, write a neat setting screen *******************

rem (This one is quite lame and ugly; it's just an example...)

sync on

disable escapekey

set window on:set window layout 0,1,1

set window title "Cube Save Settings":set window size 400,300

cls rgb(192,192,192)

rem Draw a "windows-look-alike" UI

dim UIbutton(50,4)

rectangle(250,150,370,170,rgb(128,128,128),rgb(255,255,255))

ink 0,0:text 160,152,"Resolution:"

text 255,152,checklist string$(res)

button(1,380,150,400,170,rgb(224,224,224),">")

rectangle(250,200,290,220,rgb(128,128,128),rgb(255,255,255))

ink 0,0:text 160,202,"Cube Size:"

text 255,202,str$(size)+"  "

button(2,300,200,320,220,rgb(224,224,224),"-")

button(3,330,200,350,220,rgb(224,224,224),"+")

button(4,290,350,360,370,rgb(224,224,224),"     OK")

set text opaque:ink 0,rgb(255,255,255)

rem Loop to catch the mouse clicks

repeat

if mouseclick()=1

clicked=buttonPressed( mousex(),mousey() )

rem Button #1: Resolution

if clicked=1

res=res+1:if res>maxres then res=1

rectangle(250,150,370,170,rgb(128,128,128),rgb(255,255,255))

ink 0,rgb(255,255,255):text 255,152,checklist string$(res)

wait 1

endif

rem Button #2: decrement cube size

if clicked=2 and size>20

dec size,10

text 255,202,str$(size)+"  "

wait 1

endif

rem Button #3: increment cube size

if clicked=3 and size<200

inc size,10

text 255,202,str$(size)+"  "

wait 1

endif

sync

until clicked=4

rem when the user quit, save the settings to registry

write to registry regkey$, "CubeSize", size

write to registry regkey$, "Resolution", res

end

endcase

rem Little preview in the settings Tab

case "/P"

write to registry regkey$, "Running", 0

rem This parameter looks like "/P:6458" where 6458 is a pointer to the tiny preview window

rem in the screensaver settings tab. It's easy to extract this pointer...

winPointer = val( right$(cl$(),len(cl$())-3) )

rem But I don't know how to use it...

end

endcase

rem Change the password

case "/A"

rem This case is related to the screensaver password.

rem But I don't know how to use it...

endcase

endselect

rem ************************************** Functions ****************************************

rem Extract an information from a display mode string (ex: "640x480x16")

function getResolution(text$,info$)

rem where is the info? (1=width,2=height,3=depth)

whereIsIt=1

if info$="height"

whereIsIt=2

else

if info$="depth" then whereIsIt=3

endif

rem Read each caracter of the string; the "x" delimit each zone

rem if we are in the chose zone, we concatenate the caracters to get the info

result$="":infonum=1

for i=1 to len(text$)

if mid$(text$,i)="x"

inc infonum

else

if infonum=whereIsIt then result$=result$+mid$(text$,i)

endif

next i

result=val(result$)

endfunction result

rem Draw an empty rectangle

function rectangle(x1,y1,x2,y2,border,fill)

ink border,0:box x1,y1,x2,y2

ink fill,0:box x1+1,y1+1,x2-1,y2-1

endfunction

rem Draw a button and record his coords

function button(num,x1,y1,x2,y2,color,label$)

ink rgb(255,255,255),0:box x1-1,y1-1,x2,y2

ink rgb(128,128,128),0:box x1,y1,x2+1,y2+1

rectangle(x1,y1,x2,y2,color,color)

ink 0,0:text x1+5,y1+2,label$

UIbutton(num,1)=x1:UIbutton(num,2)=y1:UIbutton(num,3)=x2:UIbutton(num,4)=y2

endfunction

rem Return the number of the pressed button

function buttonPressed(x,y)

numButton=0

for i=1 to 50

if x>=UIbutton(i,1) and x<=UIbutton(i,3) and y>=UIbutton(i,2) and y<=UIbutton(i,4) then numButton=i

CodeBase - Screensaver structure with configuration screen

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Kelebrindae
CodeBase Entries:	3