TheGameCreators - CodeBase - another screen saver

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 20th Aug 2004 22:20

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

a screen saver with a menu at the very begining

Full Description

lot's of bugs<br /> fill free and do anything your want to<br /> the executale is attached as well<br />

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem Project: Analog

Rem Created: 20/8/2004 11:07:53 Ã¬Ã¬

Rem ***** Main Source File *****

global maxx,maxy,halfx,halfy,diagonal_upperleft_lowerright

global diagonal_upperright_lower_left

global color1,color2,color3,color4,color1_do$

global color1_shift$,cs1

global color2_shift$,cs2

global hue$,losing_color_effect$,fast$,color_message$

maxx=screen width()

maxy=screen height()

halfx=maxx/2

halfy=maxy/2

hide mouse

initialization()

menu()

end

function main_screen_saver()

if (hue$="Red")   then:ink rgb(255,0,0),0

if (hue$="Green") then:ink rgb(0,255,0),0

if (hue$="Blue")  then:ink rgb(0,0,255),0

if (hue$="Yellow")then:ink rgb(255,255,0),0

if (hue$="Orange")then:ink rgb(255,100,0),0

if (hue$="Purple")then:ink rgb(200,0,255),0

if (hue$="Pink")then:ink rgb(255,0,200),0

if (hue$="Brown")then:ink rgb(150,100,0),0

if (hue$="Black")then:ink rgb(0,0,0),0

if (hue$="White")then:ink rgb(255,255,255),0

if (hue$="Grey")then:ink rgb(150,150,150),0

`if color2_shift$="lower left" then:box 0,0,maxx,maxy,color2,0,0,0

`if color2_shift$="upper left" then:box 0,0,maxx,maxy,0,color2,0,0

`if color2_shift$="lower right" then:box 0,0,maxx,maxy,0,0,color2,0

`if color2_shift$="upper right" then:box 0,0,maxx,maxy,0,0,0,color2

if color1_shift$="lower left" then:box 0,0,maxx,maxy,color1,0,0,0

if color1_shift$="upper left" then:box 0,0,maxx,maxy,0,color1,0,0

if color1_shift$="lower right" then:box 0,0,maxx,maxy,0,0,color1,0

if color1_shift$="upper right" then:box 0,0,maxx,maxy,0,0,0,color1

`if (color2=255)   then: color2_do$="subtract"

`if (color2=0)     then: color2_do$="add":cs2=cs2+1

`if (color2_do$="subtract")then:color2=color2-1

`if (color2_do$="add")then:color2=color2+1

if (losing_color_effect$="on" and fast$="on")

if (color1>254)   then: color1_do$="subtract"

if (color1<1)     then: color1_do$="add":cs1=cs1+1

if (color1_do$="subtract")then:color1=color1-10

if (color1_do$="add")then:color1=color1+10

endif

if (losing_color_effect$="off" and fast$="on")

if (color1>244)   then: color1_do$="subtract"

if (color1<11)     then: color1_do$="add":cs1=cs1+1

if (color1_do$="subtract")then:color1=color1-10

if (color1_do$="add")then:color1=color1+10

endif

if (losing_color_effect$="off" and fast$="off")

if (color1=255)   then: color1_do$="subtract"

if (color1=0)     then: color1_do$="add":cs1=cs1+1

if (color1_do$="subtract")then:color1=color1-1

if (color1_do$="add")then:color1=color1+1

endif

if (cs1=1) then:color1_shift$="upper left"

if (cs1=2) then:color1_shift$="lower left"

if (cs1=3) then:color1_shift$="lower right"

if (cs1=4) then:color1_shift$="upper right":cs1=0:change_hue(hue$)

`if (cs2=1) then:color2_shift$="upper left"

`if (cs2=2) then:color2_shift$="lower left"

`if (cs2=3) then:color2_shift$="lower right"

`if (cs2=4) then:color2_shift$="upper right":cs2=0

`i=color1

`if (color1>i) then: i=color1

`print_xy_int(halfx,halfy,i)

if (color_message$="on") then: print_xy_message(halfx,halfy,hue$)

fastsync

loop

endfunction

function change_hue(hue_now$)

if (hue_now$="Red")then: hue$="Green"

if (hue_now$="Green")then: hue$="Blue"

if (hue_now$="Blue")then: hue$="Yellow"

if (hue_now$="Yellow")then:hue$="Orange"

if (hue_now$="Orange")then:hue$="Purple"

if (hue_now$="Purple")then:hue$="Pink"

if (hue_now$="Pink")then:hue$="Brown"

if (hue_now$="Brown")then:hue$="Black"

if (hue_now$="Black")then:hue$="White"

if (hue_now$="White")then:hue$="Grey"

if (hue_now$="Grey")then:hue$="Red"

endfunction

function print_xy_int(x,y,color)

set cursor x,y

print color

endfunction

function print_xy_int_message_real(x,y,message$,real#)

set cursor x,y

print message$

set cursor x,y+15

print real#

endfunction

function print_xy_message(x,y,message$)

set cursor x,y

print message$

endfunction

function initialization()

color1=1

color1_do$="add"

color1_shift$="upper right"

cs1=0

`color2=1

`color2_do$="add"

`color2_shift$="lower left"

`cs2=2

endfunction

function menu()

cls

print_xy_message(halfx-50,halfy-15,"****************")

print_xy_message(halfx-50,halfy,   "* Main----Menu *")

print_xy_message(halfx-50,halfy+15,"****************")

`wait 2000

cls

print "1.Analog/digital clock. ( not functioning yet) "

print "2.screen saver. "

input "3.Exit ",selection$

`if (selection$="1") then:analog_digital_clock()

if (selection$="2") then:menu_screen_saver()

if (selection$="3") then:exit

endfunction

function analog_digital_clock()

cls

fastsync

loop

endfunction

function menu_screen_saver()

cls

print_xy_message(halfx-50,halfy-15,"****************")

print_xy_message(halfx-50,halfy,   "* Screen Saver *")

print_xy_message(halfx-50,halfy+15,"****************")

wait 2000

cls

print "1.Press any key for default status. "

print "2.Custom "

input "3.Exit ",selection$

if (selection$="1")

hue$="Red"

losing_color_effect$="off"

fast$="on"

color_message$="on"

print ""

print "color_message$: ",color_message$

print "hue$: ",hue$

print "fast$: ",fast$

print "losing_color_effect$: ",losing_color_effect$

wait 2000

main_screen_saver()

endif

if (selection$="2") then: selection_2():main_screen_saver()

if (selection$="3") then: exit

endfunction

function selection_2()

cls

input "Color message: (on/off) ",color_message$

if (color_message$="on")

print "Initial color / hue : First character in Capital please..."

input "(Red/Green/Blue/Yellow/Orange/Purple/Pink/Brown/Black/White/Grey):",hue$

endif

input "Fast? (on/off) ",fast$

if (fast$="on")

input "losing color effect? (on/off) ",losing_color_effect$

else

losing_color_effect$="off"

endif

print ""

print "color_message$: ",color_message$

print "hue$: ",hue$

print "fast$: ",fast$

print "losing_color_effect$: ",losing_color_effect$

wait 2000

endfunction

Download

Please login to download

Comments

No comments yet.

Author Name:	Anonymous Coder
CodeBase Entries:	34

CodeBase - another screen saver

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments