TheGameCreators - CodeBase - ClockSaver (Alarm Clock / ScreenSaver)

Category: Miscellaneous

Version: 2.5

Information

Uploaded: 26th Nov 2004 06:53

Modified: 26th Nov 2004 08:00

Author: Anonymous Coder

Summary

An Alarm Clock that doubles as a Screen Saver. Features gentle incremental alarm backed by a secondary alarm in 60 seconds. Alarm remains active for 24 hours and the keyboard spacebar serves as a 5 minute snooze-bar. Uses scrolling backdrop bitmaps already found on your hard drive and just makes a list of them (does not copy them). Also features the ability to minimize actively and gives access to the desktop / background. Demonstrates automated DOS shell batch scripting and self contained setup routines. Mouse controlled menus with simple text command sensors. Theatrical-like scrolling credits. All of your preferred settings are saved to a file and it even remembers the last bitmap that was used last in the backdrop. AND last but not least, the clock is a 3D analog face with A.M / P.M. posted in 3D on it's rear casing (spins occassionally to show it). Military time posted at the bottom of the screen. Maximum system refresh rate is utilized for low end integrated video circuits. Program also has the ability to delete it's self when commanded to do so. It's also partitioned hard drive friendly. It does require media, so don't forget to download them (broken into 2 parts).

Full Description

MAKE SURE YOU BUILD A FINAL EXECUTABLE OF THIS PROGRAM IN A COMPLETELY DIFFERENT FOLDER!!!<br /> IF YOU RUN IT FROM THE EDITOR, THEN MAKE SURE YOU RUN IT IN A TEST FOLDER. THIS PROGRAM WILL, IN FACT, BUILD MORE FILES BY ITSELF UPON RUNNING AND YOU DON'T WANT TO CORRUPT ANY OF THE DATA IN AN ORIGINAL PROJECT FOLDER. UNDERSTAND? THE FILES YOU RECIEVE UPON DOWNLOADING SHOULD BE THE ONLY ONES THAT EXIST IN A SECURE PROJECT FOLDER (MAKE COPIES FROM THAT ONE)

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem * Title  : ClockSaver V 2.5

Rem * Author : Timothy J. Saunders

Rem * Date   : 10-29-2003

REM created by TIMOTHY J. SAUNDERS

REM project build date 10/29/2003

REM title CLOCKSAVER

REM version 2.5

ALWAYS ACTIVE ON

SET TEXT FONT "arial"

SET TEXT SIZE 17

DIM FTANK$(100000)

LOAD SOUND "click.wav",91

LOAD IMAGE "yesU.bmp",91

LOAD IMAGE "yesD.bmp",92

LOAD IMAGE "noU.bmp",93

LOAD IMAGE "noD.bmp",94

MC=RGB(250,225,200)

LOCALE$=GET DIR$()

DOSCD=LEN(LOCALE$)

DOSCD$=RIGHT$(LOCALE$,DOSCD-3)

DOSDRIVE$=LEFT$(LOCALE$,1)

LOAD SOUND "gong.wav",1

IF FILE EXIST("dbFlag.txt")=0

SYNC ON : BACKDROP ON : COLOR BACKDROP 0 : SYNC RATE 0

SHOW MOUSE

PLAY SOUND 1

INK MC,0

CENTER TEXT 320,1,"*** NEW STARTUP DETECTED ***"

TEXT 1,40,"Welcome to the Dark Basic screensaver - 'ClockSaver'."

TEXT 1,80,"I (T.J. Saunders) need to install a few things to make this screensaver"

TEXT 1,100,"more enjoyable for you to watch. I only have to do this ONCE."

TEXT 1,120,"While this is happening, I will display on your screen what is going on."

TEXT 1,140,"Each step will allow you to make a decision wether to proceed or not."

TEXT 1,160,"By answering any question with a 'yes', you are acknowledging to"

TEXT 1,180,"use this program at your own risk and can not seek any legal actions"

TEXT 1,200,"against me whatsoever. However, if you stumble across a problem with"

TEXT 1,220,"this program, I'll be more than happy to help you correct it. You can"

TEXT 1,240,"contact me via E-mail at tjsaunders@connectnc.net for questions."

TEXT 1,260,"This program is FREE SHAREWARE, so feel free to share it with your friends."

TEXT 1,280,"(you can end installation at anytime by pressing the 'esc' key)"

CENTER TEXT 320,320,"SHALL WE PROCEED?"

SPRITE 1,240,350,91 : SPRITE 2,340,350,93

IF INKEY$()="y" OR INKEY$()="Y" THEN GOTO STEP1

IF INKEY$()="n" OR INKEY$()="N" THEN GOTO END

IF MOUSEX()<307 AND MOUSEX()>246 AND MOUSEY()<417 AND MOUSEY()>355 AND MOUSECLICK()=1

PLAY SOUND 91

SPRITE 1,240,350,92 : SYNC

REPEAT : UNTIL MOUSECLICK()=0

SPRITE 1,240,350,91

IF MOUSEX()<307 AND MOUSEX()>246 AND MOUSEY()<417 AND MOUSEY()>355 THEN GOTO STEP1

ENDIF

IF MOUSEX()<407 AND MOUSEX()>345 AND MOUSEY()<417 AND MOUSEY()>355 AND MOUSECLICK()=1

PLAY SOUND 91

SPRITE 2,340,350,94 : SYNC

REPEAT : UNTIL MOUSECLICK()=0

SPRITE 2,340,350,93

IF MOUSEX()<407 AND MOUSEX()>345 AND MOUSEY()<417 AND MOUSEY()>355 THEN GOTO END

ENDIF

SYNC : CLS

LOOP

STEP1:

IF RSFBM=1

UNDIM FTANK$(100000)

WAIT 3000

DIM FTANK$(100000)

ENDIF

SPRITE 1,240,350,91 : SPRITE 2,340,350,93

DELETE SPRITE 1 : DELETE SPRITE 2

IF FILE EXIST("0.bmp")=1 THEN DELETE FILE "0.bmp"

DIM DTANK$(100000)

ALL$="..1...TO SCAN YOUR ENTIRE DEFAULT HARD DRIVE '"+DOSDRIVE$+":'"

CUSTOM$="..2...TO SCAN A CUSTOM DIRECTORY THAT YOU WILL ENTER FOR ME"

BORING$="..3...TO SKIP THIS STEP AND JUST USE AN OLD BORING BLACK BACKGROUND"

SET TEXT TO NORMAL

TEXT 1,1,"I NEED TO SCAN FOR '.bmp' (bitmap) FILES AND RECORD THEIR LOCATIONS"

TEXT 1,20,"TO A FILE, BUT I'M GOING TO GIVE YOU SOME OPTIONS AS FOLLOWS..."

MX=MOUSEX() : MY=MOUSEY()

IF INKEY$()="1" THEN GOTO ONE

IF INKEY$()="2" THEN GOTO TWO

IF INKEY$()="3" THEN GOTO THREE

IF MX<TEXT WIDTH(ALL$) AND MY<60+(TEXT HEIGHT(ALL$)) AND MY>59

SET TEXT TO NORMAL : TEXT 1,60,ALL$

IF MOUSECLICK()=1 THEN PLAY SOUND 91 : REPEAT : UNTIL MOUSECLICK()=0 : GOTO ONE

ELSE

SET TEXT TO BOLD : TEXT 1,60,ALL$

ENDIF

IF MX<TEXT WIDTH(CUSTOM$) AND MY<80+(TEXT HEIGHT(CUSTOM$)) AND MY>79

SET TEXT TO NORMAL : TEXT 1,80,CUSTOM$

IF MOUSECLICK()=1 THEN PLAY SOUND 91 : REPEAT : UNTIL MOUSECLICK()=0 : GOTO TWO

ELSE

SET TEXT TO BOLD : TEXT 1,80,CUSTOM$

ENDIF

IF MX<TEXT WIDTH(BORING$) AND MY<100+(TEXT HEIGHT(BORING$)) AND MY>99

SET TEXT TO NORMAL : TEXT 1,100,BORING$

IF MOUSECLICK()=1 THEN PLAY SOUND 91 : REPEAT : UNTIL MOUSECLICK()=0 : GOTO THREE

ELSE

SET TEXT TO BOLD : TEXT 1,100,BORING$

ENDIF

SYNC : CLS

LOOP

ONE:

TEXT 1,1,"YOU HAVE SELECTED TO SCAN YOUR ENTIRE '"+DOSDRIVE$+":' DRIVE FOR BITMAPS."

TEXT 1,20,"DEPENDING ON THE SIZE OF YOUR HARD DRIVE AND THE NUMBER OF BITMAPS"

TEXT 1,40,"FOUND, THIS PROCESS COULD TAKE UP TO 15 MINUTES TO COMPLETE."

CENTER TEXT 320,80,"ARE YOU SURE YOU WANT TO DO THIS?"

SPRITE 1,240,350,91 : SPRITE 2,340,350,93

IF INKEY$()="y" OR INKEY$()="Y"

SETDIR$=DOSDRIVE$+":"

GOTO SCAN

ENDIF

IF INKEY$()="n" OR INKEY$()="N" THEN GOTO STEP1

IF MOUSEX()<307 AND MOUSEX()>246 AND MOUSEY()<417 AND MOUSEY()>355 AND MOUSECLICK()=1

PLAY SOUND 91

SPRITE 1,240,350,92 : SYNC

REPEAT : UNTIL MOUSECLICK()=0

SPRITE 1,240,350,91

IF MOUSEX()<307 AND MOUSEX()>246 AND MOUSEY()<417 AND MOUSEY()>355 THEN SETDIR$=DOSDRIVE$+":" : GOTO SCAN

ENDIF

IF MOUSEX()<407 AND MOUSEX()>345 AND MOUSEY()<417 AND MOUSEY()>355 AND MOUSECLICK()=1

PLAY SOUND 91

SPRITE 2,340,350,94 : SYNC

REPEAT : UNTIL MOUSECLICK()=0

SPRITE 2,340,350,93

IF MOUSEX()<407 AND MOUSEX()>345 AND MOUSEY()<417 AND MOUSEY()>355 THEN GOTO STEP1

ENDIF

SYNC : CLS

LOOP

TWO:

TEXT 1,1,"YOU HAVE SELECTED TO SCAN A CUSTOM DIRECTORY..."

TEXT 1,20,"YOU WILL HAVE TO ENTER A SPECIFIC DRIVE LOCATION FOR THIS TO WORK."

CENTER TEXT 320,60,"ARE YOU SURE YOU WANT TO DO THIS?"

SPRITE 1,240,350,91 : SPRITE 2,340,350,93

IF INKEY$()="y" OR INKEY$()="Y" THEN GOTO SETUPDIR

IF INKEY$()="n" OR INKEY$()="N" THEN GOTO STEP1

IF MOUSEX()<307 AND MOUSEX()>246 AND MOUSEY()<417 AND MOUSEY()>355 AND MOUSECLICK()=1

PLAY SOUND 91

SPRITE 1,240,350,92 : SYNC

REPEAT : UNTIL MOUSECLICK()=0

SPRITE 1,240,350,91

IF MOUSEX()<307 AND MOUSEX()>246 AND MOUSEY()<417 AND MOUSEY()>355 THEN GOTO SETUPDIR

ENDIF

IF MOUSEX()<407 AND MOUSEX()>345 AND MOUSEY()<417 AND MOUSEY()>355 AND MOUSECLICK()=1

PLAY SOUND 91

SPRITE 2,340,350,94 : SYNC

REPEAT : UNTIL MOUSECLICK()=0

SPRITE 2,340,350,93

IF MOUSEX()<407 AND MOUSEX()>345 AND MOUSEY()<417 AND MOUSEY()>355 THEN GOTO STEP1

ENDIF

SYNC : CLS

LOOP

SETUPDIR:

DELETE SPRITE 1 : DELETE SPRITE 2

BACKDROP OFF : SYNC OFF : CLS

TEXT 1,100,"PLEASE ENTER THE DIRECTORY LOCATION."

TEXT 1,120,"FORMAT = [drive letter]:[LOCATION1][LOCATION2] ...etc.)"

TEXT 1,140,"(example... C:Program FilesSomeFolderName"

SET CURSOR 1,180 : INPUT "--> ",SETDIR$

IF PATH EXIST(SETDIR$)=1

BACKDROP ON : SYNC ON : CLS

GOTO SCAN

ELSE

TEXT 1,220,"*** INVALID DIRECTORY ***"

WAIT 3000

BACKDROP ON : SYNC ON : CLS

GOTO TWO

ENDIF

THREE:

TEXT 1,1,"YOU HAVE SELECTED TO RUN THE ClockSaver WITH JUST A BLACK BACKGROUND."

CENTER TEXT 320,40,"ARE YOU SURE YOU WANT TO DO THIS? (Y/N)"

SPRITE 1,240,350,91 : SPRITE 2,340,350,93

IF INKEY$()="y" OR INKEY$()="Y" THEN GOTO NONE

IF INKEY$()="n" OR INKEY$()="N" THEN GOTO STEP1

IF MOUSEX()<307 AND MOUSEX()>246 AND MOUSEY()<417 AND MOUSEY()>355 AND MOUSECLICK()=1

PLAY SOUND 91

SPRITE 1,240,350,92 : SYNC

REPEAT : UNTIL MOUSECLICK()=0

SPRITE 1,240,350,91

IF MOUSEX()<307 AND MOUSEX()>246 AND MOUSEY()<417 AND MOUSEY()>355 THEN GOTO NONE

ENDIF

IF MOUSEX()<407 AND MOUSEX()>345 AND MOUSEY()<417 AND MOUSEY()>355 AND MOUSECLICK()=1

PLAY SOUND 91

SPRITE 2,340,350,94 : SYNC

REPEAT : UNTIL MOUSECLICK()=0

SPRITE 2,340,350,93

IF MOUSEX()<407 AND MOUSEX()>345 AND MOUSEY()<417 AND MOUSEY()>355 THEN GOTO STEP1

ENDIF

SYNC : CLS

LOOP

SCAN:

DELETE SPRITE 1 : DELETE SPRITE 2

HIDE MOUSE

A#=0 : B#=0 : C#=0

SET DIR SETDIR$

FIND FIRST

F#=GET FILE TYPE()

FN$=GET FILE NAME$()

IF RIGHT$(FN$,1)="." THEN GOTO SKIPPY2

IF F#=0

FMT$=RIGHT$(FN$,4)

IF FMT$=".bmp" OR FMT$=".BMP"

CLS

C#=C#+1

FTANK$(C#)=GET DIR$()+""+FN$

NOF=C#

BMP$=GET DIR$()+""+FN$

IF LEN(BMP$)>72

TEXT 1,1,LEFT$(BMP$,72)

TEXT 1,20,RIGHT$(BMP$,(LEN(BMP$)-72))

ELSE

TEXT 1,1,BMP$

ENDIF

NOF$=STR$(NOF)

TEXT 1,60,"BITMAPS FOUND - "+NOF$

PER#=(B#/(A#+1))*100 : PER$=STR$(INT(PER#))

IF PER#=0

TEXT 1,100,"WORKING..."

ELSE

TEXT 1,100,PER$+" %  COMPLETED"

ENDIF

SYNC

ENDIF

IF F#=1

A#=A#+1

DTANK$(A#)=GET DIR$()+""+FN$

ENDIF

SKIPPY2:

IF F#=-1

RETRY:

IF B#=A# THEN GOTO SHOW

B#=B#+1

IF DTANK$(B#)=DOSDRIVE$+":System Volume Information" THEN GOTO RETRY

SET DIR DTANK$(B#)

FIND FIRST

GOTO SKIPPY

ENDIF

FIND NEXT

SKIPPY:

LOOP

SHOW:

BACKDROP OFF : SYNC OFF : CLS

PLAY SOUND 1

TEXT 1,60,"BITMAPS FOUND - "+NOF$

TEXT 1,100,"100 %  COMPLETED"

SET DIR LOCALE$

IF NOF=0

TEXT 1,140,"SORRY, BUT NO BITMAP FILES COULD BE FOUND"

TEXT 1,160,"PERHAPS YOU NEED TO RETURN TO THE OPTION MENU"

TEXT 1,180,"AND MAKE A DIFFERENT SELECTION"

TEXT 1,220,"PRESS ANY KEY TO GO THERE."

REPEAT : UNTIL MOUSECLICK()>0 OR INKEY$()>""

PLAY SOUND 91 : REPEAT : UNTIL MOUSECLICK()=0

BACKDROP ON : SYNC ON : CLS

GOTO STEP1

ENDIF

TEXT 1,1,"...FINAL RESULTS SHOWING..."

TEXT 1,20,"...SAVING BITMAP ARRAY..."

IF FILE EXIST("bitmaps.txt")=1 THEN DELETE FILE "bitmaps.txt"

WAIT 3000

SAVE ARRAY "bitmaps.txt",FTANK$(100000)

SHOW MOUSE

TEXT 1,140,"PRESS ANY KEY TO CONTINUE..."

REPEAT : UNTIL MOUSECLICK()>0 OR INKEY$()>""

PLAY SOUND 91 : REPEAT : UNTIL MOUSECLICK()=0

FNS=1

BACKDROP ON : SYNC ON : CLS

GOTO INSTALL

NONE:

DELETE SPRITE 1 : DELETE SPRITE 2

CLS 0 : HIDE MOUSE

IF FILE EXIST("0.bmp")=1 THEN DELETE FILE "0.bmp"

WAIT 3000

SAVE BITMAP "0.bmp"

FTANK$(1)="0.bmp"

IF FILE EXIST("bitmaps.txt")=1 THEN DELETE FILE "bitmaps.txt"

SAVE ARRAY "bitmaps.txt", FTANK$(100000)

FNS=1 : NOF=1

INSTALL:

UNDIM DTANK$(100000)

SET DIR LOCALE$

IF RSFBM=1 THEN GOTO SAVE

SHOW MOUSE

TEXT 1,1,"I ALSO NEED TO CREATE THE FOLLOWING FILES..."

TEXT 1,20,"dbFlag.txt - INDICATES THE PROGRAM HAS BEEN INSTALLED PROPERLY."

TEXT 1,40,"settings.txt - CREATES STARTUP VALUE SETTINGS FOR THE PROGRAM TO READ FROM."

TEXT 1,60,"star.bmp - IS A CUSTOM BITMAP FOR THEATRICAL CREDITS"

TEXT 1,80,"CLOCKSAVER.bat - SHORTCUT WILL BE PLACED ON YOUR DESKTOP."

CENTER TEXT 320,160,"IS THIS OKAY?"

SPRITE 1,240,350,91 : SPRITE 2,340,350,93

IF INKEY$()="y" OR INKEY$()="Y" THEN GOTO CREATEFILES

IF INKEY$()="n" OR INKEY$()="N" THEN GOTO END

IF MOUSEX()<307 AND MOUSEX()>246 AND MOUSEY()<417 AND MOUSEY()>355 AND MOUSECLICK()=1

PLAY SOUND 91

SPRITE 1,240,350,92 : SYNC

REPEAT : UNTIL MOUSECLICK()=0

SPRITE 1,240,350,91

IF MOUSEX()<307 AND MOUSEX()>246 AND MOUSEY()<417 AND MOUSEY()>355 THEN GOTO CREATEFILES

ENDIF

IF MOUSEX()<407 AND MOUSEX()>345 AND MOUSEY()<417 AND MOUSEY()>355 AND MOUSECLICK()=1

PLAY SOUND 91

SPRITE 2,340,350,94 : SYNC

REPEAT : UNTIL MOUSECLICK()=0

SPRITE 2,340,350,93

IF MOUSEX()<407 AND MOUSEX()>345 AND MOUSEY()<417 AND MOUSEY()>355 THEN GOTO END

ENDIF

SYNC : CLS

LOOP

CREATEFILES:

DELETE SPRITE 1 : DELETE SPRITE 2

HIDE MOUSE

BACKDROP OFF : SYNC OFF : CLS

IF FILE EXIST("star.bmp")=1 THEN DELETE FILE "star.bmp"

FOR STAR=1 TO 100

DOT RND(640),RND(480)

NEXT STAR

SAVE BITMAP "star.bmp"

SYNC ON : BACKDROP ON : CLS

IF FILE EXIST("dbFlag.txt")=1 THEN DELETE FILE "dbFlag.txt"

OPEN TO WRITE 2,"dbFlag.txt"

WRITE STRING 2,"VERSION 2.5"

WRITE STRING 2,"THIS FILE INDICATES THAT YOU HAVE INSTALLED THE DARK BASIC"

WRITE STRING 2,"CLOCKSAVER PROGRAM ONTO YOUR SYSTEM..."

WRITE STRING 2,"DELETING THIS FILE CAUSES THE PROGRAM TO RESET."

CLOSE FILE 2

IF FILE EXIST("CLOCKSAVER.bat")=1 THEN DELETE FILE "CLOCKSAVER.bat"

OPEN TO WRITE 3,"CLOCKSAVER.bat"

WRITE STRING 3,"@ECHO OFF"

WRITE STRING 3,"CLS"

WRITE STRING 3,"REM *** THIS IS A BATCH BASED SHORTCUT ***"

WRITE STRING 3,"CD"+CHR$(34)+DOSCD$+CHR$(34)

WRITE STRING 3,"IF NOT EXIST DBCS.EXE GOTO OOPS"

WRITE STRING 3,"START DBCS.EXE /I /SEPARATE"

WRITE STRING 3,"EXIT"

WRITE STRING 3,":OOPS"

WRITE STRING 3,"ECHO ."

WRITE STRING 3,"ECHO PROGRAM CAN NOT BE FOUND"

WRITE STRING 3,"ECHO ."

WRITE STRING 3,"ECHO IF YOU HAVE DELETED OR MOVED THE PROGRAM,"

WRITE STRING 3,"ECHO THEN THIS SHORTCUT IS NO LONGER VALID AND"

WRITE STRING 3,"ECHO YOU MAY DELETE THIS FILE OR"

WRITE STRING 3,"ECHO EDIT LINE #4 TO CORRESPOND WITH A NEW LOCATION."

WRITE STRING 3,"ECHO ."

WRITE STRING 3,"PAUSE"

WRITE STRING 3,"EXIT"

CLOSE FILE 3

AOO$="0" : HH$="12" : MM$="0" : AP$="2" : BD$="1" : BDS$="1"

FNS$=STR$(FNS) : NOF$=STR$(NOF)

IF FILE EXIST("settings.txt")=1 THEN DELETE FILE "settings.txt"

OPEN TO WRITE 6,"settings.txt"

WRITE STRING 6,AOO$

WRITE STRING 6,HH$

WRITE STRING 6,MM$

WRITE STRING 6,AP$

WRITE STRING 6,BD$

WRITE STRING 6,BDS$

WRITE STRING 6,FNS$

WRITE STRING 6,NOF$

CLOSE FILE 6

IF PATH EXIST(DOSDRIVE$+":WINDOWSDESKTOP")=1

SET DIR DOSDRIVE$+":WINDOWSDESKTOP"

IF FILE EXIST("CLOCKSAVER.bat")=0 THEN COPY FILE LOCALE$+"CLOCKSAVER.bat",DOSDRIVE$+":WINDOWSDESKTOPCLOCKSAVER.bat"

ENDIF

IF PATH EXIST(DOSDRIVE$+":Documents and SettingsAll UsersDesktop")=1

SET DIR DOSDRIVE$+":Documents and SettingsAll UsersDesktop"

IF FILE EXIST("CLOCKSAVER.bat")=0 THEN COPY FILE LOCALE$+"CLOCKSAVER.bat",DOSDRIVE$+":Documents and SettingsAll UsersDesktopCLOCKSAVER.bat"

ENDIF

SHOW MOUSE

SET DIR LOCALE$

REPEAT

TEXT 1,1,"THANK YOU FOR INSTALLING THIS PROGRAM."

TEXT 1,20,"I HOPE YOU ENJOY IT VERY MUCH."

TEXT 1,40,"FEEL FREE TO SHARE THIS PROGRAM WITH OTHERS."

TEXT 1,80,"BE SURE TO PLAY WITH YOUR MOUSE BUTTONS AFTER THE CLOCK HAS STARTED."

TEXT 1,120,"PRESS ANY KEY TO CONTINUE..."

SYNC

UNTIL MOUSECLICK()>0 OR INKEY$()>""

PLAY SOUND 91 : REPEAT : UNTIL MOUSECLICK()=0

GOTO BEGIN

ENDIF

BEGIN:

REM SIGNATURE CODE START

WAIT 1000

HIDE MOUSE

BACKDROP OFF : SYNC OFF : CLS

LOAD SOUND "db.wav",1 : SET SOUND VOLUME 1,0

LOOP SOUND 1

SET CURRENT BITMAP 0

FOR G=1 TO 100 STEP 2

LOAD BITMAP "db.bmp",1

FADE BITMAP 1,G

COPY BITMAP 1,0

SET SOUND VOLUME 1,G

NEXT G

FOR G=100 TO 1 STEP -2

LOAD BITMAP "db.bmp",1

FADE BITMAP 1,G

COPY BITMAP 1,0

SET SOUND VOLUME 1,G

NEXT G

STOP SOUND 1

DELETE SOUND 1

DELETE BITMAP 1

SYNC

WAIT 1000

BACKDROP ON : COLOR BACKDROP 0 : SYNC ON : SYNC RATE 0

LOAD SOUND "Ecrackle.wav",1

LOAD SOUND "whip.wav",2

LOAD SOUND "TJstudios.wav",3

LOAD OBJECT "tj.x",1 : HIDE OBJECT 1

LOAD IMAGE "ion1h.bmp",1

LOAD IMAGE "ion2h.bmp",2

LOAD IMAGE "ion3h.bmp",3

LOAD IMAGE "ion4h.bmp",4

LOAD IMAGE "ion5h.bmp",5

LOAD IMAGE "ion6h.bmp",6

LOAD IMAGE "ion7h.bmp",7

LOAD IMAGE "ion8h.bmp",8

LOAD IMAGE "ion9h.bmp",9

LOAD IMAGE "ion10h.bmp",10

LOAD IMAGE "TJtexture.bmp",11

POSITION CAMERA 0,0,0

POSITION OBJECT 1,0,0,2

TEXTURE OBJECT 1,11

FOR LLL=1 TO 2

LOOP SOUND 1

FOR LL=1 TO 3

FOR L=1 TO 10

SPRITE 1,0,140,L

IF LLL=1 THEN WAIT 1

STRETCH SPRITE 1,471,100

SYNC

NEXT L

NEXT LL

STOP SOUND 1

DELETE SPRITE 1

IF LLL=2 THEN GOTO STOPTJS

WHIP=22050

SHOW OBJECT 1

FOR TJS=55 TO 5 STEP -10

FOR XYZ=0 TO 360 STEP TJS

ROTATE OBJECT 1,XYZ,XYZ,XYZ

IF SOUND PLAYING(2)=0

PLAY SOUND 2 : SET SOUND SPEED 2,WHIP

ENDIF

WHIP=WHIP-200

IF WHIP<3000 THEN WHIP=3000

SYNC

NEXT XYZ

NEXT TJS

ROTATE OBJECT 1,0,0,0 : SYNC

STOP SOUND 2

PLAY SOUND 3

FOR L=1 TO 200

SCROLL OBJECT TEXTURE 1,0.0001,0

TEXT 320,240,"PRESENTS"

SYNC

NEXT L

DELETE OBJECT 1

NEXT LLL

STOPTJS:

SYNC : CLS

DELETE SOUND 1 : DELETE SOUND 2 : DELETE SOUND 3

FOR L=1 TO 11

DELETE IMAGE L

NEXT L

FLUSH VIDEO MEMORY

REM SIGNATURE CODE END

NOW:

IF RSFBM=1 THEN HIDE MOUSE : RSFBM=0

DISABLE ESCAPEKEY

LOAD SOUND "gong.wav",1

LOAD ANIMATION "loading.mpg",1

PLACE ANIMATION 1,0,0,640,480

PLAY SOUND 1

PLAY ANIMATION 1

WAIT 3000

DELETE ANIMATION 1

INK MC,0

LOAD SOUND "credits.wav",2

LOAD SOUND "clock.wav",3

LOAD SOUND "alarm1.wav",4

LOAD SOUND "alarm2.wav",5

LOAD OBJECT "clockbody.x",1 : POSITION OBJECT 1,0.02,0,0

LOAD OBJECT "am.x",2 : POSITION OBJECT 2,0.02,0,0

LOAD OBJECT "pm.x",3 : POSITION OBJECT 3,0.02,0,0

LOAD OBJECT "seconds.x",14 : POSITION OBJECT 14,0,0,0

LOAD OBJECT "minutes.x",15 : POSITION OBJECT 15,0,0,0

LOAD OBJECT "hours.x",16 : POSITION OBJECT 16,0,0,0

ZROTATE OBJECT 14,57 : FIX OBJECT PIVOT 14

ZROTATE OBJECT 15,88 : FIX OBJECT PIVOT 15

ZROTATE OBJECT 16,180 : FIX OBJECT PIVOT 16

Z#=-1.3 : ZS#=-3

Y#=0 : YS#=-1

X#=0 : XS#=-1

TURN#=0 : STEP#=0

A#=150 : B#=150 : C#=150

CV#=100

CYCLE#=499

OPEN TO READ 6,"settings.txt"

READ STRING 6,AOO$

READ STRING 6,HH$

READ STRING 6,MM$

READ STRING 6,AP$

READ STRING 6,BD$

READ STRING 6,BDS$

READ STRING 6,FNS$

READ STRING 6,NOF$

CLOSE FILE 6

AOO=VAL(AOO$) : HH=VAL(HH$) : MM=VAL(MM$) : AP=VAL(AP$) : BD=VAL(BD$) : BDS=VAL(BDS$) : FNS=VAL(FNS$) : NOF=VAL(NOF$)

IF AP=1 THEN AP$="AM"

IF AP=2 THEN AP$="PM"

IF AOO=0 THEN AOO$="OFF"

IF AOO=1 THEN AOO$="ON"

TR=RGB(255,0,0) : TG=RGB(0,255,0) : TB=RGB(0,0,255) : POC=RGB(255,255,255)

LOAD ARRAY "bitmaps.txt", FTANK$(100000)

FNS=FNS-1

IF FNS<1 THEN FNS=NOF

LOAD IMAGE "minimize.bmp",95

SPRITE 3,540,0,95

HIDE SPRITE 3

IF MOUSEMOVEX()=0 AND MOUSEMOVEY()=0

MMXYS=-1

ELSE

IF MMXY>249

MMXY=250

ELSE

MMXY=249 : MMXYS=1

ENDIF

MMXY=MMXY+MMXYS

IF MMXY<-1 THEN MMXY=-1

IF MMXY=250 THEN SHOW MOUSE : SHOW SPRITE 3

IF MMXY=0 THEN HIDE MOUSE : HIDE SPRITE 3

IF SOUND PLAYING(3)=0 AND CV#>0

SET SOUND VOLUME 3,CV#

PLAY SOUND 3

CV#=CV#-10

ENDIF

T$=GET TIME$()

REM T$="00:00:00" : REM (testing line hh:mm:ss)

TS$=RIGHT$(T$,2) : TSN#=VAL(TS$) : SHA#=WRAPVALUE((TSN#*6)-((TSN#*6)*2))

TMA$=MID$(T$,4) : TMB$=MID$(T$,5) : TMN#=(VAL(TMA$)*10)+VAL(TMB$) : MHA#=WRAPVALUE((TMN#*6)-((TMN#*6)*2))

TH$=LEFT$(T$,2) : THN#=VAL(TH$)

IF AOO=1 AND THN#=HH AND TMN#=MM AND TSN#=0 AND SOUND LOOPING(4)=0 THEN AV#=1 :LOOP SOUND 4 : ALM=1 : ALMC=TIMER() : ALMCB=TIMER()

IF SOUND LOOPING(4)=1

SET SOUND VOLUME 4,AV# : AV#=AV#+0.1

IF AV#>100 THEN AV#=100

SNZ=0

INK TG,0 : CENTER TEXT 320,1,"ALARM ACTIVATED!!"

INK TB,0 : CENTER TEXT 320,20,"PRESS SPACEBAR TO SNOOZE FOR 5 MIN." : INK MC,0

ENDIF

IF SPACEKEY()=1 AND SOUND LOOPING(4)=1 THEN STOP SOUND 4 : STOP SOUND 5 : SNZ=1 : SNZC=TIMER()

MTRC=TIMER()

IF AOO=1 AND ALM=1 AND SNZ=1 AND MTRC>(SNZC+300000) THEN LOOP SOUND 4 : ALMCB=TIMER()

IF AOO=1 AND ALM=1 AND SNZ=0 AND MTRC>(ALMCB+60000) AND SOUND LOOPING(5)=0 THEN LOOP SOUND 5

IF AOO=1 AND ALM=1 AND MTRC>(ALMC+3600000) THEN ALM=0 : STOP SOUND 4 : STOP SOUND 5

IF THN#>11

HIDE OBJECT 2

SHOW OBJECT 3

ELSE

SHOW OBJECT 2

HIDE OBJECT 3

ENDIF

IF THN#>12 THEN THN#=THN#-12

HHA#=WRAPVALUE(((THN#*30)+(TMN#*0.5))-(((THN#*30)+(TMN#*0.5))*2))

ROTATE OBJECT 1,0,TURN#,0

ROTATE OBJECT 2,0,TURN#,0

ROTATE OBJECT 3,0,TURN#,0

ROTATE OBJECT 14,0,TURN#,SHA#

ROTATE OBJECT 15,0,TURN#,MHA#

ROTATE OBJECT 16,0,TURN#,HHA#

POSITION CAMERA X#,Y#,Z#

Z#=CURVEVALUE(ZS#,Z#,A#)

Y#=CURVEVALUE(YS#,Y#,B#)

X#=CURVEVALUE(XS#,X#,C#)

IF Z#<-2 THEN ZS#=0

IF Z#>-1.3 THEN ZS#=-3

IF Y#<-0.5 THEN YS#=1

IF Y#>0.5 THEN YS#=-1

IF X#<-0.6 THEN XS#=1

IF X#>0.6 THEN XS#=-1

IF TMN#=30 AND TSN#=0

IF SOUND PLAYING(1)=0 THEN PLAY SOUND 1

ENDIF

TURN#=TURN#+STEP#

IF TURN#=360

TURN#=0

STEP#=0

ENDIF

CYCLE#=CYCLE#+1

IF CYCLE#=500

CYCLE#=0

A#=RND(100)+75 : B#=RND(100)+75 : C#=RND(100)+75

STEP#=5

IF BD=0 THEN GOTO SKIP

BIT$=FTANK$(FNS)

IF FILE EXIST(BIT$)=0 THEN NOTE$=BIT$+" IS MISSING!!" : COLOR BACKDROP 0 : NOTE=1 : GOTO SKIP2

NOTE=0

LOAD IMAGE FTANK$(FNS),1

TEXTURE BACKDROP 1

NOTE$=" "

SKIP2:

FNS=FNS+1

IF FNS>NOF THEN FNS=1

SKIP:

ENDIF

IF TMN#=0 AND TSN#=0 AND SOUND PLAYING(1)=0

GL#=THN#

IF THN#=0 THEN GL#=12

ENDIF

IF GL#>0 AND SOUND PLAYING(1)=0

PLAY SOUND 1

GL#=GL#-1

ENDIF

MX=MOUSEX() : MY=MOUSEY()

IF MX>540 AND MY<21 AND MOUSECLICK()=1

PLAY SOUND 91 : OFFSET SPRITE 3,-5,-5

REPEAT : WAIT 1 : UNTIL MOUSECLICK()=0

OFFSET SPRITE 3,0,0 : SYNC

IF MX>540 AND MY<21

RSTRCLCK=1

HIDE OBJECT 1 : HIDE OBJECT 2 : HIDE OBJECT 3 :HIDE OBJECT 14 : HIDE OBJECT 15 : HIDE OBJECT 16

MINIMIZE WINDOW : SET WINDOW TITLE "CLOCKSAVER"

POSITION MOUSE 320,240

ENDIF

IF RSTRCLCK=1

CENTER TEXT 320,220,"GRAPHIC OBJECTS AND LAYERS ARE CORRUPT."

CENTER TEXT 320,240,"SYSTEM WILL RESTORE CONTROL IN A MOMENT."

CENTER TEXT 320,260,"PLEASE PRESS THE 'R' KEY TO RESTORE 3D GRAPHICS"

ENDIF

IF INKEY$()="R" OR INKEY$()="r"

BACKDROP ON : SYNC ON

IF BD=0 THEN COLOR BACKDROP 0

SCROLL BACKDROP BDX#,BDY# : SYNC

LOAD OBJECT "clockbody.x",1 : POSITION OBJECT 1,0.02,0,0

LOAD OBJECT "am.x",2 : POSITION OBJECT 2,0.02,0,0

LOAD OBJECT "pm.x",3 : POSITION OBJECT 3,0.02,0,0

LOAD OBJECT "seconds.x",14 : POSITION OBJECT 14,0,0,0

LOAD OBJECT "minutes.x",15 : POSITION OBJECT 15,0,0,0

LOAD OBJECT "hours.x",16 : POSITION OBJECT 16,0,0,0

ZROTATE OBJECT 14,57 : FIX OBJECT PIVOT 14

ZROTATE OBJECT 15,88 : FIX OBJECT PIVOT 15

ZROTATE OBJECT 16,180 : FIX OBJECT PIVOT 16

CV#=100 : RSTRCLCK=0

ENDIF

IF MOUSECLICK()=1

PLAY SOUND 91

REPEAT : UNTIL MOUSECLICK()=0 : HIDE SPRITE 3 : GOSUB MENU

SHOW SPRITE 3

ENDIF

IF MOUSECLICK()=2

PLAY SOUND 91

REPEAT : UNTIL MOUSECLICK()=0 : HIDE SPRITE 3 : GOSUB CREDITS

SHOW SPRITE 3

ENDIF

IF RIGHTKEY()=1 THEN CYCLE#=499 : REPEAT : UNTIL RIGHTKEY()=0

IF LEFTKEY()=1 THEN FNS=FNS-2 : CYCLE#=499 : REPEAT : UNTIL LEFTKEY()=0

IF FNS<1 THEN FNS=NOF-1

IF BDS=1 AND BD=1

SCROLL BACKDROP BDX#,BDY#

ENDIF

BDX#=BDX#-1 : BDY#=BDY#+1

IF NOTE=1

IF LEN(NOTE$)>72

TEXT 1,20,LEFT$(NOTE$,72)

TEXT 1,40,RIGHT$(NOTE$,(LEN(NOTE$)-72))

ELSE

TEXT 1,20,NOTE$

ENDIF

IF AOO=1 THEN INK TB,0 : TEXT 0,0,"ALARM ACTIVE" : INK MC,0

CENTER TEXT 320,460,T$

SYNC

LOOP

MENU:

HIDE OBJECT 1 : HIDE OBJECT 2 : HIDE OBJECT 3 : HIDE OBJECT 14 : HIDE OBJECT 15 : HIDE OBJECT 16

CV#=100

COLOR BACKDROP 0 : SHOW MOUSE

ADJUSTALARM$="..1.......TO ADJUST THE ALARM"

TOGGLEALARM$="..2.......TO TOGGLE THE ALARM"

TOGGLEBACKGROUND$="..3.......TO TOGGLE THE ENTIRE BACKGROUND"

TOGGLESCROLLING$="..4.......TO TOGGLE THE BACKGROUND SCROLLING"

RESCANBITMAPS$="..5.......TO RE-SCAN FOR BITMAPS"

UNINSTALL$="..6.......TO COMPLETELY REMOVE THE DARK BASIC CLOCKSAVER"

SHUTDOWN$="..7.......SHUTDOWN THE DARK BASIC CLOCKSAVER AND SAVE SETTINGS"

EXIT$="..8.......EXIT THIS MENU"

SET TEXT TO NORMAL

MX=MOUSEX() : MY=MOUSEY()

TEXT 1,1,"*** OPTIONS MENU ***"

TEXT 1,40,"- CLICK ONE OF THE FOLLOWING COMMANDS -"

IF MX<TEXT WIDTH(ADJUSTALARM$) AND MY<80+(TEXT HEIGHT(ADJUSTALARM$)) AND MY>79

SET TEXT TO NORMAL : TEXT 1,80,ADJUSTALARM$

IF MOUSECLICK()=1 THEN PLAY SOUND 91 : REPEAT : UNTIL MOUSECLICK()=0 : GOTO SET

ELSE

SET TEXT TO BOLD : TEXT 1,80,ADJUSTALARM$

ENDIF

IF MX<TEXT WIDTH(TOGGLEALARM$) AND MY<100+(TEXT HEIGHT(TOGGLEALARM$)) AND MY>99

SET TEXT TO NORMAL : TEXT 1,100,TOGGLEALARM$

IF MOUSECLICK()=1

PLAY SOUND 91 : REPEAT : UNTIL MOUSECLICK()=0

IF AOO=0 THEN AOO=1 : AOO$="ON" : GOTO MENU

IF AOO=1 THEN AOO=0 : AOO$="OFF" : GOTO MENU

ENDIF

ELSE

SET TEXT TO BOLD : TEXT 1,100,TOGGLEALARM$

ENDIF

IF AOO=1 THEN INK TG,0 : TEXT (TEXT WIDTH(TOGGLEALARM$)+10),100,"ON" : INK MC,0 : TEXT (TEXT WIDTH(TOGGLEALARM$)+40),100,"OFF"

IF AOO=0 THEN TEXT (TEXT WIDTH(TOGGLEALARM$)+10),100,"ON" : INK TR,0 : TEXT (TEXT WIDTH(TOGGLEALARM$)+40),100,"OFF" : INK MC,0

IF MX<TEXT WIDTH(TOGGLEBACKGROUND$) AND MY<120+(TEXT HEIGHT(TOGGLEBACKGROUND$)) AND MY>119

SET TEXT TO NORMAL : TEXT 1,120,TOGGLEBACKGROUND$

IF MOUSECLICK()=1

PLAY SOUND 91 : REPEAT : UNTIL MOUSECLICK()=0

IF BD=0 THEN BD=1 : CYCLE#=499 : GOTO MENU

IF BD=1 THEN BD=0 : COLOR BACKDROP 0 : CYCLE#=499 : GOTO MENU

ENDIF

ELSE

SET TEXT TO BOLD : TEXT 1,120,TOGGLEBACKGROUND$

ENDIF

IF BD=1 THEN INK TG,0 : TEXT (TEXT WIDTH(TOGGLEBACKGROUND$)+10),120,"ON" : INK MC,0 : TEXT (TEXT WIDTH(TOGGLEBACKGROUND$)+40),120,"OFF"

IF BD=0 THEN TEXT (TEXT WIDTH(TOGGLEBACKGROUND$)+10),120,"ON" : INK TR,0 : TEXT (TEXT WIDTH(TOGGLEBACKGROUND$)+40),120,"OFF" : INK MC,0

IF MX<TEXT WIDTH(TOGGLESCROLLING$) AND MY<140+(TEXT HEIGHT(TOGGLESCROLLING$)) AND MY>139

SET TEXT TO NORMAL : TEXT 1,140,TOGGLESCROLLING$

IF MOUSECLICK()=1

PLAY SOUND 91 : REPEAT : UNTIL MOUSECLICK()=0

IF BDS=0 THEN BDS=1 : GOTO MENU

IF BDS=1 THEN BDS=0 : GOTO MENU

ENDIF

ELSE

SET TEXT TO BOLD : TEXT 1,140,TOGGLESCROLLING$

ENDIF

IF BDS=1 THEN INK TG,0 : TEXT (TEXT WIDTH(TOGGLESCROLLING$)+10),140,"ON" : INK MC,0 : TEXT (TEXT WIDTH(TOGGLESCROLLING$)+40),140,"OFF"

IF BDS=0 THEN TEXT (TEXT WIDTH(TOGGLESCROLLING$)+10),140,"ON" : INK TR,0 : TEXT (TEXT WIDTH(TOGGLESCROLLING$)+40),140,"OFF" : INK MC,0

IF MX<TEXT WIDTH(RESCANBITMAPS$) AND MY<160+(TEXT HEIGHT(RESCANBITMAPS$)) AND MY>159

SET TEXT TO NORMAL : TEXT 1,160,RESCANBITMAPS$

IF MOUSECLICK()=1 THEN PLAY SOUND 91 : REPEAT : UNTIL MOUSECLICK()=0 : RSFBM=1 : GOTO STEP1

ELSE

SET TEXT TO BOLD : TEXT 1,160,RESCANBITMAPS$

ENDIF

IF MX<TEXT WIDTH(UNINSTALL$) AND MY<180+(TEXT HEIGHT(UNINSTALL$)) AND MY>179

SET TEXT TO NORMAL : TEXT 1,180,UNINSTALL$

IF MOUSECLICK()=1 THEN PLAY SOUND 91 : REPEAT : UNTIL MOUSECLICK()=0 : GOTO UNINSTALL

ELSE

SET TEXT TO BOLD : TEXT 1,180,UNINSTALL$

ENDIF

IF MX<TEXT WIDTH(SHUTDOWN$) AND MY<200+(TEXT HEIGHT(SHUTDOWN$)) AND MY>199

SET TEXT TO NORMAL : TEXT 1,200,SHUTDOWN$

IF MOUSECLICK()=1 THEN PLAY SOUND 91 : REPEAT : UNTIL MOUSECLICK()=0 : GOTO SAVE

ELSE

SET TEXT TO BOLD : TEXT 1,200,SHUTDOWN$

ENDIF

IF MX<TEXT WIDTH(EXIT$) AND MY<220+(TEXT HEIGHT(EXIT$)) AND MY>219

SET TEXT TO NORMAL : TEXT 1,220,EXIT$

IF MOUSECLICK()=1 THEN PLAY SOUND 91 : REPEAT : UNTIL MOUSECLICK()=0 : GOTO UNDO

ELSE

SET TEXT TO BOLD : TEXT 1,220,EXIT$

ENDIF

IF INKEY$()="8" THEN GOTO UNDO

IF INKEY$()="7" THEN GOTO SAVE

IF INKEY$()="6" THEN GOTO UNINSTALL

IF INKEY$()="5" THEN RSFBM=1 : GOTO STEP1

IF INKEY$()="4"

IF BDS=0 THEN BDS=1 : GOTO MENU

IF BDS=1 THEN BDS=0 : GOTO MENU

ENDIF

IF INKEY$()="3"

IF BD=0 THEN BD=1 : CYCLE#=499 : GOTO MENU

IF BD=1 THEN BD=0 : COLOR BACKDROP 0 : CYCLE#=499 : GOTO MENU

ENDIF

IF INKEY$()="2"

IF AOO=0 THEN AOO=1 : AOO$="ON" : GOTO MENU

IF AOO=1 THEN AOO=0 : AOO$="OFF" : GOTO MENU

ENDIF

IF INKEY$()="1" THEN GOTO SET

SET TEXT TO NORMAL

SYNC : CLS

LOOP

UNDO:

SHOW OBJECT 1 : SHOW OBJECT 14 : SHOW OBJECT 15 : SHOW OBJECT 16 : RETURN

SET:

TEXT 1,1,"YOUR CURRENT ALARM IS SET FOR :" : SET CURSOR 1,20

IF HH=0 THEN HH=12

IF HH<10 THEN PRINT "0";

IF HH>12

PRINT HH-12;

ELSE

PRINT HH;

ENDIF

PRINT " : ";

IF MM<10 THEN PRINT "0";

PRINT MM;" ";AP$

TEXT 1,40,"AND IT IS "+AOO$

TEXT 1,80,"WANT TO CHANGE IT? (Y/N)"

SPRITE 1,240,350,91 : SPRITE 2,340,350,93

IF INKEY$()="Y" OR INKEY$()="y" THEN GOTO SETB

IF INKEY$()="N" OR INKEY$()="n" THEN GOTO MENU

IF MOUSEX()<307 AND MOUSEX()>246 AND MOUSEY()<417 AND MOUSEY()>355 AND MOUSECLICK()=1

PLAY SOUND 91

SPRITE 1,240,350,92 : SYNC

REPEAT : UNTIL MOUSECLICK()=0

SPRITE 1,240,350,91

IF MOUSEX()<307 AND MOUSEX()>246 AND MOUSEY()<417 AND MOUSEY()>355 THEN GOTO SETB

ENDIF

IF MOUSEX()<407 AND MOUSEX()>345 AND MOUSEY()<417 AND MOUSEY()>355 AND MOUSECLICK()=1

PLAY SOUND 91

SPRITE 2,340,350,94 : SYNC

REPEAT : UNTIL MOUSECLICK()=0

SPRITE 2,340,350,93

IF MOUSEX()<407 AND MOUSEX()>345 AND MOUSEY()<417 AND MOUSEY()>355

DELETE SPRITE 1 : DELETE SPRITE 2 : GOTO MENU

ENDIF

SYNC : CLS

LOOP

SETB:

DELETE SPRITE 1 : DELETE SPRITE 2

BACKDROP OFF : SYNC OFF : CLS

TEXT 1,1,"*** SET YOUR ALARM ***" : SET CURSOR 1,40

INPUT "ENTER THE HOUR (1-12) ? ";HH

IF HH<1 OR HH>12

TEXT 1,80,"INVALID ENTRY, STARTING OVER..."

WAIT 3000 : HH=12 : BACKDROP ON : SYNC ON : CLS : GOTO SET

ENDIF

INPUT "ENTER THE MINUTE (0-59) ? ";MM

IF MM<0 OR MM>59

TEXT 1,100,"INVALID ENTRY, STARTING OVER..."

WAIT 3000 : MM=0 : BACKDROP ON : SYNC ON : CLS : GOTO SET

ENDIF

INPUT "SELECT <1 = AM> or <2 = PM> ? ";AP

IF AP=1 THEN AP$="AM"

IF AP=2 THEN AP$="PM"

IF AP<1 OR AP>2

TEXT 1,120,"INVALID ENTRY, STARTING OVER..."

WAIT 3000 : AP=1 : BACKDROP ON : SYNC ON : CLS : GOTO SET

ENDIF

IF AP>1 AND HH<>12 THEN HH=HH+12

IF AP=1 AND HH=12 THEN HH=0

BACKDROP ON : SYNC ON : CLS

GOTO MENU

UNINSTALL:

TEXT 1,1,"YOU HAVE SELECTED TO COMPLETELY REMOVE THE DARK BASIC CLOCKSAVER."

TEXT 1,20,"WHEN DELETION IS COMPLETE, ALL CLOCKSAVER FILES WILL BE LOST!"

TEXT 1,60,"ARE YOU SURE YOU WANT TO DO THIS? (Y/N)"

SPRITE 1,240,350,91 : SPRITE 2,340,350,93

IF MOUSEX()<307 AND MOUSEX()>246 AND MOUSEY()<417 AND MOUSEY()>355 AND MOUSECLICK()=1

PLAY SOUND 91

SPRITE 1,240,350,92 : SYNC

REPEAT : UNTIL MOUSECLICK()=0

SPRITE 1,240,350,91

IF MOUSEX()<307 AND MOUSEX()>246 AND MOUSEY()<417 AND MOUSEY()>355 THEN GOTO DEL

ENDIF

IF MOUSEX()<407 AND MOUSEX()>345 AND MOUSEY()<417 AND MOUSEY()>355 AND MOUSECLICK()=1

PLAY SOUND 91

SPRITE 2,340,350,94 : SYNC

REPEAT : UNTIL MOUSECLICK()=0

SPRITE 2,340,350,93

IF MOUSEX()<407 AND MOUSEX()>345 AND MOUSEY()<417 AND MOUSEY()>355

DELETE SPRITE 1 : DELETE SPRITE 2 : GOTO MENU

ENDIF

IF INKEY$()="Y" OR INKEY$()="y" THEN GOTO DEL

IF INKEY$()="N" OR INKEY$()="n" THEN GOTO MENU

SYNC : CLS

LOOP

DEL:

DELETE SPRITE 1 : DELETE SPRITE 2

HIDE MOUSE

BACKDROP OFF : SYNC OFF : CLS

TEXT 1,1,"THANK YOU FOR TEST DRIVING CLOCKSAVER." : WAIT 3000

TEXT 1,40,"HAVE A NICE DAY!!" : WAIT 3000

TEXT 1,80,"PREPARING TO REMOVE..."

SET DIR LOCALE$

IF FILE EXIST("dbERASE.bat")=1 THEN DELETE FILE "dbERASE.bat"

OPEN TO WRITE 5,"dbERASE.bat"

WRITE STRING 5,"@ECHO OFF"

WRITE STRING 5,"CLS"

WRITE STRING 5,"REM *** YOU CAN SAFELY REMOVE THIS FILE ***"

WRITE STRING 5,"ECHO."

WRITE STRING 5,"ECHO READY TO DELETE dbCLOCKSAVER FILES"

WRITE STRING 5,"ECHO."

WRITE STRING 5,"PAUSE"

WRITE STRING 5,"CD"+CHR$(34)+DOSCD$+CHR$(34)

WRITE STRING 5,"DEL DBCS.EXE"

WRITE STRING 5,"DEL 0.bmp"

WRITE STRING 5,"DEL star.bmp"

WRITE STRING 5,"DEL CLOCKSAVER.bat"

WRITE STRING 5,"DEL bitmaps.txt"

WRITE STRING 5,"DEL dbFlag.txt"

WRITE STRING 5,"DEL settings.txt"

WRITE STRING 5,"IF NOT EXIST "+DOSDRIVE$+":WINDOWSDESKTOP GOTO NEXTTRY"

WRITE STRING 5,"CDWINDOWSDESKTOP"

WRITE STRING 5,"DEL CLOCKSAVER.bat"

WRITE STRING 5,":NEXTTRY"

WRITE STRING 5,"IF NOT EXIST "+CHR$(34)+DOSDRIVE$+":Documents and SettingsAll UsersDesktop"+CHR$(34)+" GOTO FINISHED"

WRITE STRING 5,"CD"+CHR$(34)+"Documents and SettingsAll UsersDesktop"+CHR$(34)

WRITE STRING 5,"DEL CLOCKSAVER.bat"

WRITE STRING 5,":FINISHED"

WRITE STRING 5,"ECHO."

WRITE STRING 5,"ECHO *** JOB DETAILS ***"

WRITE STRING 5,"ECHO."

WRITE STRING 5,"ECHO UNABLE TO DELETE THE FOLLOWING..."

WRITE STRING 5,"ECHO "+LOCALE$+"dbERASE.bat"

WRITE STRING 5,"ECHO FILE IS IN USE"

WRITE STRING 5,"ECHO."

WRITE STRING 5,"PAUSE"

WRITE STRING 5,"EXIT"

CLOSE FILE 5

WAIT 3000

EXECUTE FILE "dbERASE.bat","","",0

END

CREDITS:

ALM=0 : DE=64 : STOP SOUND 4 : STOP SOUND 5

HIDE OBJECT 1 : HIDE OBJECT 2 : HIDE OBJECT 3 : HIDE OBJECT 14 : HIDE OBJECT 15 : HIDE OBJECT 16

SYNC

INK POC,0

DIM CA$(DE)

LOAD IMAGE "star.bmp",2 : TEXTURE BACKDROP 2

SET SOUND VOLUME 2,100 : LOOP SOUND 2

FOR TRIP=1 TO 2

FOR CY=480 TO -1500 STEP -1

FOR CZ=1 TO DE

READ CA$(CZ)

CYY=CYY+20

CENTER TEXT 320,CY+CYY,CA$(CZ)

NEXT CZ

CYY=0

RESTORE CREDIT

SYNC

IF TRIP=2 AND CY<-1401 THEN SET SOUND VOLUME 2,CY+1500

IF MOUSECLICK()=2

PLAY SOUND 91

REPEAT : UNTIL MOUSECLICK()=0 : GOTO CSTOP

ENDIF

NEXT CY

NEXT TRIP

CSTOP:

UNDIM CA$(DE)

CV#=100

INK MC,0

STOP SOUND 2

COLOR BACKDROP 0 : CYCLE#=499

IF FNS>1 THEN FNS=FNS-1

SHOW OBJECT 1 : SHOW OBJECT 14 : SHOW OBJECT 15 : SHOW OBJECT 16

RETURN

CREDIT:

REM 10

DATA "** CREDITS **"," "," ","- AUTHOR -","TIMOTHY J. SAUNDERS"," "," ","- PROJECT BUILD DATE -","10-29-2003"," "

REM 10

DATA " ","- TITLE -","ClockSaver"," "," ","- VERSION -","2.5"," "," ","- COMPILER -"

REM 10

DATA "DARK BASIC V1.13 ENHANCED"," "," ","- OBJECT BUILDING TOOL -","AMABILIS 3D CANVAS 6 PRO"," "," ","- SOUND EFFECTS -","'TICK'","'GONG'"

REM 10

DATA "'ALARM #1'","'ALARM #2'","(used from DB media browser, but modified)"," "," ","- MUSIC -","'TICK-TOCK ILLUSION'","(created with SDML)","BY:","TIMOTHY J. SAUNDERS"

REM 4

DATA " "," ","- SPECIAL THANKS TO -","J.V. FIELDS, THANKS FOR YOUR INPUT"

REM 5

DATA " "," ","- HOT TIPS -","Viewing the credits while the 1 hour alarm is active","will instantly reset the alarm for the next day."

REM 4

DATA " "," ","'ClockSaver' is an independent Dark Basic program and","it doesn't need a system registry setting."

REM 3

DATA "This means, after ClockSaver has been installed,","you can move it's entire folder to another location","of your choice and it will still work!"

REM 3

DATA "However, if you move it to a different drive,","then you will have to run the 're-scan for bitmaps' menu option."

REM 5

DATA " "," ","For those who don't like to wait...","Pressing the RIGHT and LEFT arrow keys","will advance and reverse the next bitmap instantly."

SAVE:

AOO$=STR$(AOO) : HH$=STR$(HH) : MM$=STR$(MM) : AP$=STR$(AP) : BD$=STR$(BD) : BDS$=STR$(BDS) : FNS$=STR$(FNS) : NOF$=STR$(NOF)

IF FILE EXIST("settings.txt")=1 THEN DELETE FILE "settings.txt"

OPEN TO WRITE 6,"settings.txt"

WRITE STRING 6,AOO$

WRITE STRING 6,HH$

WRITE STRING 6,MM$

WRITE STRING 6,AP$

WRITE STRING 6,BD$

WRITE STRING 6,BDS$

WRITE STRING 6,FNS$

WRITE STRING 6,NOF$

CLOSE FILE 6

IF RSFBM=1 THEN GOTO NOW

UNDIM FTANK$(100000)

EXIT PROMPT "Dark Basic ClockSaver", "Your Personal Settings Have Been Saved."

END

END:

DELETE SPRITE 1 : DELETE SPRITE 2

REPEAT

TEXT 1,1,"PROGRAM IS AT AN END."

TEXT 1,40,"PRESS ANY KEY TO EXIT"

SYNC

UNTIL MOUSECLICK()>0 OR INKEY$()>""

PLAY SOUND 91

END

Download

Please login to download

Comments

No comments yet.

CodeBase - ClockSaver (Alarm Clock / ScreenSaver) - Part 1 of 2

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Anonymous Coder
CodeBase Entries:	8