Sorry your browser is not supported!

a# as float = 0
sync on : sync rate 100
` I'm using a# just to increase the number, I know how to create a timer
do
    line 100,240,60*cos((a#*0.6)-90)+100,60*sin((a#*0.6)-90)+240
    line 250,240,60*cos((a#*0.2)-90)+250,60*sin((a#*0.2)-90)+240
    line 400,240,60*cos((a#*0.16)-90)+400,60*sin((a#*0.16)-90)+240
    if a# < 2300 then a#=a#+1 else end
    sync
loop

sync on : sync rate 30
load image "Blockh.png",1
sprite 1,320,240,1
a = 0
do  
    paste sprite 1,320,240
    rotate sprite 1,a
    inc a
    sync 
LOOP

sync on : sync rate 60

rem the clock body
make object sphere 1,0.5
color object 1,rgb(255,0,0)
position object 1,0,0,0

rem a secondhand limb handler
make object cube 100,0.2
make mesh from object 1,100
delete object 100
add limb 1,1,1

rem the seconhand
make object cube 2,3
color object 2,rgb(0,255,0)
scale object 2,5,80,5
position object 2,0,1.5,0
glue object to limb 2,1,1

rem hour limb handler
make object cube 100,0.2
make mesh from object 2,100
delete object 100
add limb 1,2,2

rem the hourhand
make object cube 3,2
color object 3,rgb(255,255,0)
scale object 3,10,50,10
position object 3,0,1,0
glue object to limb 3,1,2

rem minute limb handler
make object cube 100,0.2
make mesh from object 3,100
delete object 100
add limb 1,3,3

rem the minutehand
make object cube 4,2
color object 4,rgb(0,0,255)
scale object 4,10,50,10
position object 4,0,1,0
glue object to limb 4,1,3

position camera 0,3,-5
point camera 0,0,0

disable escapekey
while escapekey()=0

rem some gooey maths stuff

Gtime$ = get time$()

H1 = VAL(left$(Gtime$,1))
H2 = VAL(mid$(Gtime$,2))

M1 = VAL(mid$(Gtime$,4))
M2 = VAL(mid$(Gtime$,5))

S1 = VAL(mid$(Gtime$,7))
S2 = VAL(mid$(Gtime$,8))

Hour = (H2 + (H1*10))-12

Minute = (M2 + (M1*10))
Minute = Minute -(Minute*6)

Second = 6 * (S2 + (S1*10))
Second = Second - (Second*2)

rotate limb 1,1,0,0,wrapvalue(Second)
rotate limb 1,2,0,0,wrapvalue(Hour)
rotate limb 1,3,0,0,wrapvalue(Minute)


text 15,15,Gtime$

text 15,30,"hr 1 num :"+STR$(H1)
text 15,45,"hr 2 num :"+STR$(H2)

text 15,60,"mn 1 num :"+STR$(M1)
text 15,75,"mn 2 num :"+STR$(M2)

text 15,90,"sc 1 num :"+STR$(S1)
text 15,105,"sc 2 num :"+STR$(S2)

text 15,120,"Seconds Angle :"+STR$(Second)
text 15,140,"Hour Angle :"+STR$(Hour)
text 15,160,"Minute Angle :"+STR$(Minute)

sync
endwhile
for i = 1 to 4
delete object i
next i
end

a# AS FLOAT = 0
c# AS FLOAT = 0
SYNC ON : SYNC RATE 100

//Temporary variables for sprite bouncing
LeftRight = 2
UpDown = 2
xPos = 5
yPos = 5

DO
    LINE 250,240,50*COS((0*0.2)-90)+250,50*SIN((0*0.2)-90)+240
    c# = 0
    FOR b = 0 TO INT(a#)
    	c#=c#+1
    	DOT 50*COS((c#*0.2)-90)+250,50*SIN((c#*0.2)-90)+240
    NEXT b#
    LINE 250,240,50*COS((a#*0.2)-90)+250,50*SIN((a#*0.2)-90)+240
    GET IMAGE 1, 190, 180, 311, 301
    CLS
    SPRITE 1, xPos, yPos, 1
    
    a#=a#+1
    IF a# = 1800 THEN a# = 0
    
    //Bounce sprite around
    IF LeftRight = 1 THEN DEC xPos
    IF LeftRight = 2 THEN INC xPos
    IF UpDown = 1 THEN DEC yPos
    IF UpDown = 2 THEN INC yPos    
    IF yPos < 0 THEN UpDown = 2
    IF yPos > SCREEN HEIGHT() - 120 THEN UpDown = 1
    IF xPos < 0 THEN LeftRight = 2
    IF xPos > SCREEN WIDTH() - 120 THEN LeftRight = 1
    
    SYNC
LOOP

a# as float = 0.0
sync on : sync rate 100:sync
` I'm using a# just to increase the number, I know how to create a timer

do    
    
    fill circle 100,240,60,0xFFFFFFFF
    fill circle 250,240,60,0xFFFFFFFF
    fill circle 400,240,60,0xFFFFFFFF
    
    line 100,240,100,180,0xFFFF0000
    line 100,240,60*cos((a#*0.6)-90)+100,60*sin((a#*0.6)-90)+240,0xFFFF0000
    fill 101,220,0xFFFF0000
    
    line 250,240,250,180,0xFFFF0000
    line 250,240,60*cos((a#*0.2)-90)+250,60*sin((a#*0.2)-90)+240,0xFFFF0000
    fill 251,220,0xFFFF0000
        
    line 400,240,400,180,0xFFFF0000
    line 400,240,60*cos((a#*0.16)-90)+400,60*sin((a#*0.16)-90)+240,0xFFFF0000
    fill 401,220,0xFFFF0000
    
    if a# < 2300 then a#=a#+1 else end
    sync
loop

set display mode 800,600,32
sync rate 0
sync on

` Load the images
load image "ClockBlank.png",1,1
load image "ClockHand.png",2,1

` Create the clock hand sprite
sprite 1,0,0,2
` Offset the sprite to rotate around the end of the clock hand
offset sprite 1,16,186

` Create a timer
tim=timer()

do

 ` Show the clock face
 paste image 1,(screen width()-image width(1))/2,(screen height()-image height(1))/2,1
 ` Show the clock hand
 sprite 1,screen width()/2,screen height()/2,2  
 
 ` Check if it's time to rotate the sprite
 if timer()>tim+100
  ` Rotate the sprite
  rotate sprite 1,wrapvalue(Angle)
  ` Increase the angle
  inc Angle
  ` Reset timer
  tim=timer()
 endif
  
 sync

loop

set display mode 800,600,32
sync rate 0
sync on
color backdrop rgb(0,0,0)
ink  0xFFFF0000,0

` Load the images
load image "ClockBlank.png",1,1
load image "ClockHand.png",2,1

` Create the clock hand sprite
sprite 1,0,0,2
` Offset the sprite to rotate around the end of the clock hand
offset sprite 1,16,186

` Create a timer
tim=timer()

do

 ` Show the clock face
 paste image 1,(screen width()-image width(1))/2,(screen height()-image height(1))/2

 ` Show the clock hand
 sprite 1,screen width()/2,screen height()/2,2  
 
 ` Color the clock face
 circle 400,300,250
 line 400,300,400,50,0xFFFF0000
 line 400,300,250*cos(Angle-90)+400,250*sin(Angle-90)+300,0xFFFF0000
 fill 401,220,0x77FF0000,0xFFFF0000
 
 ` Check if it's time to rotate the sprite
 if timer()>tim+100
  ` Rotate the sprite
  rotate sprite 1,wrapvalue(Angle)    
    
  ` Increase the angle
  inc Angle
  ` Reset timer
  tim=timer()
 endif
  
 sync

loop

randomize timer()

cls rgb(192,192,192)
get image 1,0,0,3,32,1

sprite 1,200,100,1
offset sprite 1,1,32
set sprite 1,0,1

cls rgb(0,0,0)
lasttick = timer()

do

   if (lasttick + 1000) <= timer()
      r = rnd(127)+128 : g = rnd(127)+128 : b = rnd(127)+128
      set sprite diffuse 1,r,g,b
      rotate sprite 1, wrapvalue(sprite angle(1)+6)
      lasttick = lasttick + 1000
   endif

loop

set display mode 800,600,32
sync rate 0
sync on

` Make an animated sprite
create animated sprite 1,"ClockFill.png",5,1,1

do

 ` Show the sprite
 sprite 1,(screen width()-sprite width(1))/2,(screen height()-sprite height(1))/2,1
 
 ` Play the sprite (change frames once every second)
 play sprite 1,1,5,1000
 
 sync

loop

Rem Project: Dark Basic Pro Project
Rem Created: Sunday, February 13, 2011

Rem ***** Main Source File *****
sync on : sync rate 60

load image "red_half.png",1
load image "gray_half.png",2

sprite 1,320,240,1      ` sprite red static
sprite 2,320,240,1      ` sprite red moving
sprite 3,320,240,2      ` sprite gray static
sprite 4,320,240,2      ` sprite gray moving
set sprite priority 3,0 ` the lowest
set sprite priority 1,0 ` same
set sprite priority 2,0 ` temp while gray is above
set sprite priority 4,1 ` the one who we see
for i = 1 to 4
    offset sprite i,0,32
next i
rotate sprite 3,180 
a = 0
b = 0
do
    if a < 180
        inc a
        rotate sprite 4,a
    else
        if b < 180
            if b > 150
                sprite 2,320,240,1
            else
                sprite 2,320,241,1
            endif
            set sprite priority 2,2
            inc b
            rotate sprite 2,b
        endif
    endif
    sync
LOOP