TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Sound

Version: 1.1

Information

Uploaded: 27th Nov 2007 20:47

Modified: 1st Jan 1970 01:00

Author: Flyin Mushroom

Summary

A code that says the current time, or tells the time at the top of hour. (sounds included in ZIP)

Full Description

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

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

sync on : sync rate 60

gosub sound

switch=0

set text font "arial" : set text to bold : set text size 170

center text 320,160,get time$()

if spacekey()=1 then wait 50 : gosub saytime

abc$=get time$()

minute$=mid$(abc$,4)+mid$(abc$,5)

rem ---------------- SAYS TIME AT EVERY TOP OF THE HOUR

clock=clock+1

if clock>2000 then clock=0

if switch=0 and minute$="00" then gosub saytime : switch=1 : clock=0

if switch=1 and clock>1950 then switch=0

sync : loop

rem --------------------- GOSUB -----------------------------

saytime:

play sound 28

repeat

until sound playing(28)=0

abc$=get time$()

rem -------- hours

hour$=left$(abc$,2)

if hour$="01" then play sound 1

if hour$="13" then play sound 1

if hour$="02" then play sound 2

if hour$="14" then play sound 2

if hour$="03" then play sound 3

if hour$="15" then play sound 3

if hour$="04" then play sound 4

if hour$="16" then play sound 4

if hour$="05" then play sound 5

if hour$="17" then play sound 5

if hour$="06" then play sound 6

if hour$="18" then play sound 6

if hour$="07" then play sound 7

if hour$="19" then play sound 7

if hour$="08" then play sound 8

if hour$="20" then play sound 8

if hour$="09" then play sound 9

if hour$="21" then play sound 9

if hour$="10" then play sound 10

if hour$="22" then play sound 10

if hour$="11" then play sound 11

if hour$="23" then play sound 11

if hour$="12" then play sound 12

if hour$="24" then play sound 12

wait 500

rem -------- minutes

minute$=mid$(abc$,4)+mid$(abc$,5)

if minute$="00" then play sound 25

if minute$="01" then play sound 24 : wait 350 : play sound 1

if minute$="02" then play sound 24 : wait 350 : play sound 2

if minute$="03" then play sound 24 : wait 350 : play sound 3

if minute$="04" then play sound 24 : wait 350 : play sound 4

if minute$="05" then play sound 24 : wait 350 : play sound 5

if minute$="06" then play sound 24 : wait 350 : play sound 6

if minute$="07" then play sound 24 : wait 350 : play sound 7

if minute$="08" then play sound 24 : wait 350 : play sound 8

if minute$="09" then play sound 24 : wait 350 : play sound 9

if minute$="10" then play sound 10

if minute$="11" then play sound 11

if minute$="12" then play sound 12

if minute$="13" then play sound 13

if minute$="14" then play sound 14

if minute$="15" then play sound 15

if minute$="16" then play sound 16

if minute$="17" then play sound 17

if minute$="18" then play sound 18

if minute$="19" then play sound 19

if minute$="20" then play sound 20

if minute$="21" then play sound 20 : wait 350 : play sound 1

if minute$="22" then play sound 20 : wait 350 : play sound 2

if minute$="23" then play sound 20 : wait 350 : play sound 3

if minute$="24" then play sound 20 : wait 350 : play sound 4

if minute$="25" then play sound 20 : wait 350 : play sound 5

if minute$="26" then play sound 20 : wait 350 : play sound 6

if minute$="27" then play sound 20 : wait 350 : play sound 7

if minute$="28" then play sound 20 : wait 350 : play sound 8

if minute$="29" then play sound 20 : wait 350 : play sound 9

if minute$="30" then play sound 21

if minute$="31" then play sound 21 : wait 350 : play sound 1

if minute$="32" then play sound 21 : wait 350 : play sound 2

if minute$="33" then play sound 21 : wait 350 : play sound 3

if minute$="34" then play sound 21 : wait 350 : play sound 4

if minute$="35" then play sound 21 : wait 350 : play sound 5

if minute$="36" then play sound 21 : wait 350 : play sound 6

if minute$="37" then play sound 21 : wait 350 : play sound 7

if minute$="38" then play sound 21 : wait 350 : play sound 8

if minute$="39" then play sound 21 : wait 350 : play sound 9

if minute$="40" then play sound 22

if minute$="41" then play sound 22 : wait 350 : play sound 1

if minute$="42" then play sound 22 : wait 350 : play sound 2

if minute$="43" then play sound 22 : wait 350 : play sound 3

if minute$="44" then play sound 22 : wait 350 : play sound 4

if minute$="45" then play sound 22 : wait 350 : play sound 5

if minute$="46" then play sound 22 : wait 350 : play sound 6

if minute$="47" then play sound 22 : wait 350 : play sound 7

if minute$="48" then play sound 22 : wait 350 : play sound 8

if minute$="49" then play sound 22 : wait 350 : play sound 9

if minute$="50" then play sound 23

if minute$="51" then play sound 23 : wait 350 : play sound 1

if minute$="52" then play sound 23 : wait 350 : play sound 2

if minute$="53" then play sound 23 : wait 350 : play sound 3

if minute$="54" then play sound 23 : wait 350 : play sound 4

if minute$="55" then play sound 23 : wait 350 : play sound 5

if minute$="56" then play sound 23 : wait 350 : play sound 6

if minute$="57" then play sound 23 : wait 350 : play sound 7

if minute$="58" then play sound 23 : wait 350 : play sound 8

if minute$="59" then play sound 23 : wait 350 : play sound 9

rem --------------- A.M  or   P.M. -----------------

wait 1000

if val(hour$)<13 then play sound 26

if val(hour$)>13 then play sound 27

return

rem --------------------- LOADING SOUND ----------------------------

sound:

for a=1 to 20

load sound "sound/"+str$(a)+"f.wav",a

next a

load sound "sound/30f.wav",21

load sound "sound/40f.wav",22

load sound "sound/50f.wav",23

load sound "sound/0f.wav",24

load sound "sound/oclock.wav",25

load sound "sound/am.wav",26

load sound "sound/pm.wav",27

load sound "sound/time.wav",28

rem ------------------ PITCH OF VOICE

for a=1 to 28

set sound speed a,9000

next a

return

Download

Please login to download

Comments

No comments yet.

CodeBase - Talking Time