TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 2nd Dec 2007 15:53

Modified: 1st Jan 1970 01:00

Author: ozmoz

Summary

Clock for wall ,from Turk's arts

Full Description

Clock for wall ,from Turk's arts in KÃ¼tahya seramics

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Set window on:Set Window Size 800,600:Set window Layout 1,1,0:Set Window title "SESLÄ° SAAT"

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

sync on : sync rate 60

load object "saat.3DS",1

position object 1,0,10,-80

gosub sound

switch=0

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

durum=2

if durum=2 then wait 50 :durum=0: gosub saytime

set text size 50

center text 120,100,get time$()

if durum=0 then center text 120,20,"<":center text 117,20,"XI"

if durum=1 then center text 120,20,"<":center text 127,20," I"

if don>359 then dons=0

if saniye$="00" then dur=1

if dur=1 then dons=dons+1:wait 80

ROTATE LIMB 1, 2, 0, dons, 0

ROTATE LIMB 1, 3, 0, durd, 0

ROTATE LIMB 1, 5, 0, durs, 0

if spacekey()=1 then durum=1

if controlkey()=1 then durum=0

if durum=1 and saniye$="00" then wait 50 : gosub saytime

abc$=get time$()

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

saniye$=mid$(abc$,7)+mid$(abc$,8)

if yer>900 then yer=0

yer=yer+3

set text size 50

center text yer,360,"YAPAN:OZAN EKiNCi"

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

saytime:

play sound 29

repeat

until sound playing(29)=0

abc$=get time$()

rem -------- hours

hour$=left$(abc$,2)

if hour$="01" then play sound 1:durs=210

if hour$="13" then play sound 13:durs=210

if hour$="02" then play sound 2:durs=240

if hour$="14" then play sound 14:durs=240

if hour$="03" then play sound 3:durs=270

if hour$="15" then play sound 15:durs=270

if hour$="04" then play sound 4:durs=300

if hour$="16" then play sound 16:durs=300

if hour$="05" then play sound 5:durs=330

if hour$="17" then play sound 17:durs=330

if hour$="06" then play sound 6:durs=0

if hour$="18" then play sound 18:durs=0

if hour$="07" then play sound 7:durs=30

if hour$="19" then play sound 19:durs=30

if hour$="08" then play sound 8:durs=60

if hour$="20" then play sound 20:durs=60

if hour$="09" then play sound 9:durs=90

if hour$="21" then play sound 21:durs=90

if hour$="10" then play sound 10:durs=120

if hour$="22" then play sound 22:durs=120

if hour$="11" then play sound 11:durs=150

if hour$="23" then play sound 23:durs=150

if hour$="12" then play sound 12:durs=180

if hour$="00" then play sound 24:durs=180

wait 1000

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

if minute$="00" then play sound 28:durd=316

if minute$="01" then play sound 28 : wait 350 : play sound 1 :durd=322

if minute$="02" then play sound 28 : wait 350 : play sound 2 :durd=342

if minute$="03" then play sound 28 : wait 350 : play sound 3 :durd=348

if minute$="04" then play sound 28 : wait 350 : play sound 4 :durd=354

if minute$="05" then play sound 28 : wait 350 : play sound 5 :durd=360

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

if minute$="07" then play sound 28 : wait 350 : play sound 7 :durd=12

if minute$="08" then play sound 28 : wait 350 : play sound 8 :durd=18

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

if minute$="10" then play sound 10 :durd=30

if minute$="11" then play sound 11 :durd=36

if minute$="12" then play sound 12 :durd=42

if minute$="13" then play sound 13 :durd=48

if minute$="14" then play sound 14 :durd=54

if minute$="15" then play sound 15 :durd=60

if minute$="16" then play sound 16 :durd=66

if minute$="17" then play sound 17 :durd=72

if minute$="18" then play sound 18 :durd=78

if minute$="19" then play sound 19 :durd=84

if minute$="20" then play sound 20 :durd=90

if minute$="21" then play sound 21 :durd=96

if minute$="22" then play sound 22 :durd=102

if minute$="23" then play sound 23 :durd=108

if minute$="24" then play sound 24 :durd=114

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

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

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

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

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

if minute$="30" then play sound 25 :durd=130

if minute$="31" then play sound 25 : wait 350 : play sound 1 :durd=136

if minute$="32" then play sound 25 : wait 350 : play sound 2 :durd=142

if minute$="33" then play sound 25 : wait 350 : play sound 3 :durd=148

if minute$="34" then play sound 25 : wait 350 : play sound 4 :durd=154

if minute$="35" then play sound 25 : wait 350 : play sound 5 :durd=160

if minute$="36" then play sound 25 : wait 350 : play sound 6 :durd=166

if minute$="37" then play sound 25 : wait 350 : play sound 7 :durd=172

if minute$="38" then play sound 25 : wait 350 : play sound 8 :durd=178

if minute$="39" then play sound 25 : wait 350 : play sound 9 :durd=184

if minute$="40" then play sound 26 :durd=190

if minute$="41" then play sound 26 : wait 350 : play sound 1 :durd=196

if minute$="42" then play sound 26 : wait 350 : play sound 2 :durd=202

if minute$="43" then play sound 26 : wait 350 : play sound 3 :durd=208

if minute$="44" then play sound 26 : wait 350 : play sound 4 :durd=214

if minute$="45" then play sound 26 : wait 350 : play sound 5 :durd=220

if minute$="46" then play sound 26 : wait 350 : play sound 6 :durd=226

if minute$="47" then play sound 26 : wait 350 : play sound 7 :durd=232

if minute$="48" then play sound 26 : wait 350 : play sound 8 :durd=238

if minute$="49" then play sound 26 : wait 350 : play sound 9 :durd=244

if minute$="50" then play sound 27 :durd=250

if minute$="51" then play sound 27 : wait 350 : play sound 1 :durd=256

if minute$="52" then play sound 27 : wait 350 : play sound 2 :durd=262

if minute$="53" then play sound 27 : wait 350 : play sound 3 :durd=268

if minute$="54" then play sound 27 : wait 350 : play sound 4 :durd=274

if minute$="55" then play sound 27 : wait 350 : play sound 5 :durd=280

if minute$="56" then play sound 27 : wait 350 : play sound 6 :durd=286

if minute$="57" then play sound 27 : wait 350 : play sound 7 :durd=292

if minute$="58" then play sound 27 : wait 350 : play sound 8 :durd=298

if minute$="59" then play sound 27 : wait 350 : play sound 9 :durd=304

wait 1000

return

sound:

for a=1 to 24

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

next a

load sound "ses/30f.wav",25

load sound "ses/40f.wav",26

load sound "ses/50f.wav",27

load sound "ses/0f.wav",28

load sound "ses/saat.wav",29

load sound "ses/bos.wav",30

set sound speed 30,9000

return

Download

Please login to download

Comments

No comments yet.

CodeBase - clock