Hello. This is my first code that I have made completely from scratch that I have learned everything on my own, without tutorials (neat huh) Neways, it was made so I can wake up before my girlfriend, and, my alarm clock was upstairs, LOL. Neways, here it is
time$ = get time$()
Set Window Size 550,250
Set Text Size 40
Set Text Font "SF Gothican"
Load Sound "C:\Textures\SFX\Air Raid Siren.wav",1
Set Cursor 0,20
Print "Current Time ",time$
Input "What time do you wish for alarm to be set to? ",alarm$
a# = 0
Do
If spacekey()=1 and a# > 1
stop sound 1
Else
Endif
time$ = get time$()
CLS
Set Cursor 0,0
Print "Wake up time ",alarm$
Set Cursor 0,35
Print "Current Time ",time$
If time$ = alarm$
Play Sound 1
Loop Sound 1
inc a#
Else
Endif
Loop
Your going to have to get your own sound for it. You can download the sound at http://www.3dstudio.com
Just change the Load Sound and you will be fine. Hope you like
*note* You have to enter time like this. Say you want 7am
You would enter it like this
07:00:00
Hours Minutes Seconds
Your suffering cause of me its divine
-Korn-
