Sorry your browser is not supported!

break ";"+time$+";"+alarmtime$+";"

`specify the time wanted (must be in 24 hour time and in hrs:mins:secs)
Input "What time would you like me to go off at?>",alarmtime$

alarmtime$=right$(alarmtime$,len(alarmtime$)-1)

REM The Line Clock

set display mode 1024,768,32

`clock position
cx=screen width()/2 : cy=screen height()/2

`colours
DIM clr(5)
clr(0)=rgb(20,20,20)
clr(1)=20*65536
clr(2)=64*65536
clr(3)=128*65536
clr(4)=191*65536
clr(5)=255*65536

white = rgb(255,255,255)

`12 dots
dim dt(12,2) : `0=seconds 1=minutes 2=hours

hide mouse
sync on : sync rate 0

DO
   time$=get time$()
   s=val(right$(time$,2))
   m=val(right$(left$(time$,5),2))
   h=val(left$(time$,2))

remstart
   inc s,30
   if s=60 then s=0 : inc m,1
   if m=60 then m=0 : inc h,1
remend

   ink white,0
   print h;":";m;":";s

   `12 dot colours
   for d = 1 to 12
      `seconds
      if s>=d then dt(d)=clr(1) else dt(d)=clr(0)
      if s>=d+12 then dt(d)=clr(2)
      if s>=d+24 then dt(d)=clr(3)
      if s>=d+36 then dt(d)=clr(4)
      if s>=d+48 then dt(d)=clr(5)
      `minutes
      if m>=d then dt(d,1)=clr(1) else dt(d,1)=clr(0)
      if m>=d+12 then dt(d,1)=clr(2)
      if m>=d+24 then dt(d,1)=clr(3)
      if m>=d+36 then dt(d,1)=clr(4)
      if m>=d+48 then dt(d,1)=clr(5)
      `hours
      if h>=d then dt(d,2)=clr(2) else dt(d,2)=clr(0)
      if h>=d+12 then dt(d,2)=clr(5)

      `draw seconds dots
      ink dt(d),0
      for cir = 0 to 4
         circle 70+d*70,cy,cir
      next cir
      `draw minute dots
      ink dt(d,1),0
      for cir = 12 to 16
         circle 70+d*70,cy,cir
      next cir
      `draw hour dots
      ink dt(d,2),0
      for cir = 24 to 28
         circle 70+d*70,cy,cir
      next cir
   next d

   sync
   cls
LOOP

sync on

repeat
Print "The current time is ",get time$()
Print "Press the spacebar to continue "
sync
cls
until spacekey()=1

cls

`specify the time wanted (must be in 24 hour time and in hrs:mins:secs)
Input "What time would you like me to go off at?>",alarmtime$

`disgard space before time
alarmtime$=right$(alarmtime$,len(alarmtime$)-1)


`Alarm Backing
create bitmap 4,80,80
cls rgb(255,255,0)
ink rgb(255,0,0),0

for a=1 to 100
dot rnd(80),rnd(80)
next a

flip bitmap 4
mirror bitmap 4


get image 4,0,0,40,45

set current bitmap 0

`Alarm Object texture
create bitmap 5,55,15
cls rgb(255,255,0)
ink rgb(255,0,0),0
set Text size 3
Print "*BEEP*"

get image 5,0,0,50,15

set current bitmap 0

ink rgb(255,255,255),0

`hour block
make object cube 1,5

`minutes block
make object cube 2,5

`seconds block
make object cube 3,5

`alarm object
make object plain 4,20,5

color object 4,rgb(10,10,215)


`move blocks into a readable order
position object 1,-10,0,0

position object 3,10,0,0

position camera 0,5,-20

position object 4,0,-10,0

do

   ` get time
   time$ = get Time$()
   hours$ = left$(time$, 2)
   minutes$ = left$(right$(time$, 5), 2)
   seconds$ = right$(time$, 2)

`Alarm System
   if time$=alarmtime$
     texture backdrop 4
     texture object 4,5
   endif


`prepare texture for the hours block
  Gosub Hours

rem Suggestion by Latch - get rid of these extra gosubs and only Gosub Hours
`prepare texture for the minutes block
`  Gosub Minutes

`prepare texture for the seconds block
`  Gosub Seconds




turn object left 1,3
turn object left 2,7
turn object left 3,10

sync
loop


`Make hrs texture
Hours:

create bitmap 1,25,25
cls rgb(255,10,50)
set text size 10
text 5,5,hours$
flip bitmap 1
mirror bitmap 1

get image 1,0,0,20,25

Texture object 1,1
`Return


Minutes:


cls rgb(10,255,50)
set text size 10
text 5,5,minutes$

flip bitmap 1
mirror bitmap 1

get image 2,0,0,20,25



Texture object 2,2
`Return

Seconds:

cls rgb(50,30,10)
set text size 10
text 5,5,seconds$

flip bitmap 1
mirror bitmap 1

get image 3,0,0,20,25

set current bitmap 0

Texture object 3,3

rem just one retrun at the end of the Hours ,minutes seconds should suffice
rem because they all update at once so you don't have to keep
rem jumping back and forth

Return

`%%%%%%%%%%%%%%%%%%%%
`   Analogue Clock
`     By OBese87
`%%%%%%%%%%%%%%%%%%%%

`set colours
white=rgb(255,255,255)
red=255*65536
yellow=red+255*256

`screen setup
hide mouse
sync on

`-------------------
` MAIN LOOP
`-------------------
DO
   `%% Control %%
   `adjust alarm
   l=leftkey() : r=rightkey()
   am=am+r-l

   `%% Calculate %%
   `bind alarm time
   if am>=60 then am=0 : ah=ah+1
   if am<0 then am=60 : ah=ah-1
   if ah<0 then ah=23
   if ah>=24 then ah=0
   `separate time into hours, minutes & seconds
   h=val(left$(get time$(),2))
   m=val(mid$(get time$(),4)+mid$(get time$(),5))
   s=val(right$(get time$(),2))
   if h*60+m = ah*60+am or h*60+m = ah*30+am then bgcol=red else bgcol=0

   `%% Display %%
   `draw frame
   ink white,0
   circle 320,240,200
   center text 320,240+@round(cos(0*30)*-220),"12"
   center text 320+@round(sin(3*30)*210),240,"3"
   center text 320,240+@round(cos(6*30)*-210),"6"
   center text 320+@round(sin(9*30)*210),240,"9"
   `draw time
   @dline( 320,240,320+@round(sin(h*30)*100),240+@round(cos(h*30)*-100) ) : `hours
   @dline( 320,240,320+@round(sin(m*6)*150),240+@round(cos(m*6)*-150) ) : `minutes
   ink red,0
   @dline( 320,240,320+@round(sin(s*6)*180),240+@round(cos(s*6)*-180) ) : `seconds
   ink yellow,0
   @dline( 320,240,320+@round(sin(ah*30+am*.5)*80),240+@round(cos(ah*30+am*.5)*-80) ) : `seconds
   sync
   cls bgcol
   print get time$()
   print ah ; ":" ; am
LOOP

`------------------
` FUNCTIONS
`------------------
`Round Float to Integer
FUNCTION @Round(n#)
   dec# = n# - int(n#)
   n = n# + dec#
ENDFUNCTION n

`DLine Function by OBese87
FUNCTION @dline(l,t,r,b)
   w = r-l : h = b-t
   if w >= 0 then xstep = 1 else xstep = -1
   if h >= 0 then ystep = 1 else ystep = -1
   w# = ABS(w) : h# = ABS(h)
   if w#=0 then w#=0.1
   if h#=0 then h#=0.1
   xfact# = w#/h#
   yfact# = h#/w#

   x = 0 : y = 0
   repeat
      `don't overshoot
      if abs(x+xstep) > abs(w) then xstep = 0
      if abs(y+ystep) > abs(h) then ystep = 0

      dot x+l,y+t
      if yfact# > xfact#
         inc y,ystep
         if ABS(x) < ABS(y*xfact#) then inc x,xstep
      else
         inc x,xstep
         if ABS(y) < ABS(x*yfact#) then inc y,ystep
      endif
   until xstep = 0 and ystep = 0
ENDFUNCTION

Hour:     O O O O
        -----------
Minute:   O O O O
          O O O O
          O O O O
          O O O O
        -----------
Second:   O O O O
          O O O O
          O O O O
          O O O O
        -----------
AM:          O
        -----------
FM:          O

(Os representing "LEDs" and the 4 lines of the Minute and second are separate then added together to read out the number, Real time will be displayed in corner)

Rem TDK_Man's Wacky Alarm Clock
Rem DBC Challenge Entry

Gosub Setup
Do
  Gosub DecodeTime
  Gosub PositionHands
  If AlarmGoingOff = True Then Gosub Rotation
  If Scancode() = 57
    Repeat
    Until Scancode()=0
    If SettingAlarm = False
      Rem Not In Process Of Setting Alarm
      If AlarmSet = True
        Gosub CancelAlarm
      Else
        SettingAlarm = True
      Endif
      If AlarmGoingOff = True
        Rem Alarm Currently Going Off
        Gosub CancelAlarm
        Ghost Object Off 1
        Position Camera 0,0,-15
        Point Camera 0,0,0
      Endif
    Else
      Rem Cancel Setting Alarm
      Gosub CancelAlarm
    Endif
  Endif
  If SettingAlarm = True Then Gosub AlarmInput
  Sync
  Text 0,0,"Alarm Set: "+TripTime$
  Text 0,580,"Time: "+Get Time$()
  Center Text 400,0,Message$
Loop
End

Rem ******************************************************************
Rem ***                      Procedures                            ***
Rem ******************************************************************

CancelAlarm:
  SettingAlarm = False: AlarmGoingOff = False
  SetHour = False: SetAlarm = False
  TripTime$ = "": AHour$ = "": AMin$ = ""
  Message$="Press Space To Set Alarm"
Return

AlarmInput:
  Message$="Entering Alarm Time (Space Again To Cancel)"
  If SetAlarm = False
    If SetHour = False
      Center Text 400,580,"Enter Hour (0-23): "+AHour$
      K = Scancode()
      If K=11
        AHour$ = AHour$ + "0"
        Repeat
        Until Scancode()=0
      Endif
      If K>1 and K<11
        If Len(AHour$)<2 Then AHour$ = AHour$ + Chr$(K+47)
        Repeat
        Until Scancode()=0
      Endif
      If K=14
        Repeat
        Until Scancode()=0
        If Len(AHour$)=1 Then AHour$ = ""
        If Len(AHour$)>1 Then AHour$ = Left$(AHour$,Len(AHour$)-1)
      Endif
      If K=28
        Repeat
        Until Scancode()=0
        If Len(AHour$)<2 Then AHour$ = "0"+AHour$
        SetHour = True
      Endif
    Else
      Center Text 400,580,"Enter Minutes (0-59): "+AMin$
      K = Scancode()
      If K=11
        AMin$ = AMin$ + "0"
        Repeat
        Until Scancode()=0
      Endif
      If K>1 and K<11
        If Len(AMin$)<2 Then AMin$ = AMin$ + Chr$(K+47)
        Repeat
        Until Scancode()=0
      Endif
      If K=14
        Repeat
        Until Scancode()=0
        If Len(AMin$)=1 Then AMin$ = ""
        If Len(AMin$)>1 Then AMin$ = Left$(AMin$,Len(AMin$)-1)
      Endif
      If K=28
        Repeat
        Until Scancode()=0
        SetAlarm = True
        SettingAlarm = False
        If Len(AMin$)<2 Then AMin$ = "0"+AMin$
        TripTime$ = AHour$+":"+AMin$+":"+"00"
        Message$ = "Press Space To Cancel Alarm"
      Endif
    Endif
  Endif
Return

DecodeTime:
  T$ = Get Time$()
  Sec = Val(Right$(T$,2))
  Hr = Val(Left$(T$,2))
  If Hr > 12 Then Dec Hr,12
  Min = Val(Left$(Right$(T$,5),2))
  HourCreep# = 30.0/(60.0/(Min+1))
  If SetAlarm = True
    If Get Time$() = TripTime$
      T = Timer()
      AlarmGoingOff = True
      Message$="Press Space Bar To Stop Alarm"
    Endif
  Endif
Return

Rotation:
  Elapsed = (Timer()-T)/1000
  If Elapsed = 10 Then Ghost Object On 1
  X# = WrapValue(X# + .1): Y# = WrapValue(Y# + .1): Z# = WrapValue(Z# + .1)
  Inc YDist#,YDVal#
  If YDist# <= -30.0 or YDist# >= 30.0 Then YDVal# = 0-YDVal#
  NewX# = NewXValue(Object Position X(1),X#,XDist#)
  NewY# = NewYValue(Object Position Y(1),Y#,YDist#)
  NewZ# = NewZValue(Object Position Z(1),Z#,ZDist#)
  YRotate Object 100,WrapValue(Object Angle Y(100)+.2)
  YRotate Object 101,WrapValue(Object Angle Y(101)-.2)
  XRotate Object 102,WrapValue(Object Angle X(102)+.2)
  XRotate Object 103,WrapValue(Object Angle X(103)-.2)
  YRotate Object 104,WrapValue(Object Angle Y(104)+.2)
  YRotate Object 105,WrapValue(Object Angle Y(105)-.2)
  Position Camera NewX#,NewY#,NewZ#
  Point Camera 0,0,0
Return

PositionHands:
  Rem Seconds
  YRotate Object 2,WrapValue(Sec*6): Rem Top
  YRotate Object 3,WrapValue((Sec+30)*-6): Rem Bottom
  XRotate Object 4,WrapValue((Sec+15)*-6): Rem Left
  XRotate Object 5,WrapValue((Sec-15)*6): Rem Right
  YRotate Object 6,WrapValue((Sec+30)*-6): Rem Front
  YRotate Object 7,WrapValue((Sec+30)*6): Rem Back
  Rem Minutes
  YRotate Object 8,WrapValue(Min*6): Rem Top
  YRotate Object 9,WrapValue((Min+30)*-6): Rem Bottom
  XRotate Object 10,WrapValue((Min+15)*-6): Rem Left
  XRotate Object 11,WrapValue((Min-15)*6): Rem Right
  YRotate Object 12,WrapValue((Min+30)*-6): Rem Front
  YRotate Object 13,WrapValue((Min+30)*6): Rem Back
  Rem Hours
  YRotate Object 14,WrapValue(Hr*30+HourCreep#): Rem Top
  YRotate Object 15,WrapValue(((Hr+6)*-30)-HourCreep#): Rem Bottom
  XRotate Object 16,WrapValue(((Hr+3)*-30)-HourCreep#): Rem Left
  XRotate Object 17,WrapValue(((Hr-3)*30)+HourCreep#): Rem Right
  YRotate Object 18,WrapValue(((Hr+6)*-30)-HourCreep#): Rem Front
  YRotate Object 19,WrapValue(((Hr+6)*30)+HourCreep#): Rem Back
Return

Setup:
  Set Display Mode 800,600,32
  AutoCam Off
  Hide Mouse
  Sync On
  Sync Rate 0
  Backdrop On
  Color Backdrop 0
  CLS
  Gosub Clock
  MakeCog(100,5): Position Object 100,0,3,0: Rem Top
  MakeCog(101,5): Position Object 101,0,-3,0: Rem Bottom
  MakeCog(102,5): ZRotate Object 102,90: Position Object 102,-3,0,0: Rem Left
  MakeCog(103,5): ZRotate Object 103,90: Position Object 103,3,0,0: Rem Right
  MakeCog(104,5): XRotate Object 104,90: Position Object 104,0,0,-3: Rem Front
  MakeCog(105,5): XRotate Object 105,90: Position Object 105,0,0,3: Rem Back
  Position Camera 0,0,-15
  Point Camera 0,0,0
  XDist#=25.0: YDist#=0.0: ZDist#=15.0: YDVal#=.1
  True=1: False=0: SetHour = False: SetAlarm = False
  AHour$="": AMin$=""
  Message$="Press Space To Set Alarm"
Return

Clock:
  Rem Texture
  Create Bitmap 1, 1024,768
  For N=1 To 128
    Ink RGB(N,0,255-N),0
    Circle 128,128,N
    Circle 128,129,N
  Next N
  Ink RGB(255,255,255),0
  Circle 128,128,126
  Circle 128,128,122
  Set Text Font "Tahoma"
  Text 121,9,"XII"
  Text 185,27,"I"
  Text 222,67,"II"
  Text 235,121,"III"
  Text 221,178,"IV"
  Text 180,218,"V"
  Text 121,232,"VI"
  Text 66,218,"VII"
  Text 25,178,"VIII"
  Text 10,121,"IX"
  Text 27,67,"X"
  Text 65,27,"XI"
  Get Image 1,0,0,256,256
  Set Current Bitmap 0
  Delete Bitmap 1
  Ink RGB(255,255,255),0
  Rem Face
  MakeLimbCube(1,10.0)
  Texture LIMB 1,1,1: Texture LIMB 1,2,1
  Texture LIMB 1,3,1: Texture LIMB 1,4,1
  Texture LIMB 1,5,1: Texture LIMB 1,6,1
  Rem Create Spindles
  For N=2 To 19
    Make Object Cylinder N,.2
    Color Object N,RGB(100,0,0)
  Next N
  Position Object 2,0,5.1,0
  Position Object 8,0,5.1,0
  Position Object 14,0,5.1,0
  Position Object 3,0,-5.1,0
  Position Object 9,0,-5.1,0
  Position Object 15,0,-5.1,0
  ZRotate Object 4,90
  Position Object 4,-5.1,0,0
  ZRotate Object 10,90
  Position Object 10,-5.1,0,0
  ZRotate Object 16,90
  Position Object 16,-5.1,0,0
  ZRotate Object 5,90
  Position Object 5,5.1,0,0
  ZRotate Object 11,90
  Position Object 11,5.1,0,0
  ZRotate Object 17,90
  Position Object 17,5.1,0,0
  XRotate Object 6,90
  Position Object 6,0,0,-5.1
  XRotate Object 12,90
  Position Object 12,0,0,-5.1
  XRotate Object 18,90
  Position Object 18,0,0,-5.1
  XRotate Object 7,90
  Position Object 7,0,0,5.1
  XRotate Object 13,90
  Position Object 13,0,0,5.1
  XRotate Object 19,90
  Position Object 19,0,0,5.1
  Rem Create Second Hands
  For N=20 To 25
    Make Object Box N,.02,.005,4.4
    Color Object N,RGB(255,0,0)
    Glue Object To Limb N,N-18,0
    Offset Limb N,0,0,0,2.2
  Next N
  Rem Create Minute Hands
  For N=26 To 31
    Make Object Box N,.08,.005,4.0
    Color Object N,RGB(255,255,255)
    Glue Object To Limb N,N-18,0
    Offset Limb N,0,0,.02,2.0
  Next N
  Rem Create Hour Hands
  For N=32 To 37
    Make Object Box N,.08,.005,3.0
    Color Object N,RGB(255,255,255)
    Glue Object To Limb N,N-18,0
    Offset Limb N,0,0,.04,1.5
  Next N
  Set Object 1,1,0,0
Return

Rem ******************************************************************
Rem ***                       Functions                            ***
Rem ******************************************************************

Function MakeCog(ObjNum,Size)
  RootObjNum = ObjNum*100
  Make Object Cylinder ObjNum,Size
  Scale Object ObjNum,100,11,100
  Color Object ObjNum,RGB(192,192,192)
  For N=0 To 59
    Make Object Box RootObjNum+N,Size+.3,3,.15
    Color Object RootObjNum+N,RGB(162,162,162)
    YRotate Object RootObjNum+N,N*6
    Glue Object To Limb RootObjNum+N,ObjNum,0
  Next N
EndFunction

Function MakeLimbCube(ObjNum,Size#)
  Offset#=Size#/2.0: MeshNum=2000: PlainNum=2000
  Make Object Cube ObjNum,Size#
  Make Object Plain PlainNum,Size#,Size#
  Make Mesh From Object MeshNum,PlainNum
  ADD LIMB ObjNum,1,2000: Offset Limb ObjNum,1,0,0,0.0-Offset#: Rem Cube Side 1 (Front)
  ADD LIMB ObjNum,2,2000: Rotate Limb ObjNum,2,0,90,0: Offset Limb ObjNum,2,0.0-Offset#,0,0: Rem Cube Side 2 (Left)
  ADD LIMB ObjNum,3,2000: Rotate Limb ObjNum,3,0,180,0: Offset Limb ObjNum,3,0,0,Offset#:  Rem Cube Side 3 (Back)
  ADD LIMB ObjNum,4,2000: Rotate Limb ObjNum,4,0,270,0: Offset Limb ObjNum,4,Offset#,0,0:  Rem Cube Side 4 (Right)
  ADD LIMB ObjNum,5,2000: Rotate Limb ObjNum,5,270,0,0: Offset Limb ObjNum,5,0,0.0-Offset#,0: Rem Cube Side 5 (Bottom)
  ADD LIMB ObjNum,6,2000: Rotate Limb ObjNum,6,90,0,0: Offset Limb ObjNum,6,0,Offset#,0: Rem Cube Side 6 (Top)
  Delete Mesh MeshNum
  Delete Object PlainNum
  Hide Limb ObjNum,0
EndFunction

Binary Coder [untitled] :
+Unique way of displaying time
+Easiest/fastest to set
+Only one that
-Alarm time could not be adjusted without restarting the programme
-Less aesthetically pleasing (some of the other guys had better looking programmes)
-Any value could be input - the programme did not differentiate between "cabbage" and "07:19:32" therefore should I have accidentally typed Cabbage instead of the time, I would have ended up hours late for school


OBese87 [Analogue Clock] :
+Really cool way of setting the alarm
+Looked good - Basic & Easy to use
-As it was in 24 hour, setting the alarm for 11:50 AM would take a long time as you'd have to go all the way round the circle - possibly 12 hour would have been better
-The alarm itself could have looked better
-Not hugely wacky, to be honest.

OBese87 [Line Clock] :
+ Looked really good - totally unique time display
- Harder to read the time
- No alarm function

OK this was really close. The originality of the alarm on this design just won it for TDK though, even though I found the clock overall slightly harder to use than Binary Coders.


TDK [untitled]  : 
+Awesome alarm effect... the best one I've seen... looked so cool with all the cogs
+Looked good in 3D
-Quite slow and jerky
-Seemed to have a little difficulty accepting input - I had to press the keys several times to get them to work
-Several hours after the deadline

Function MakeDice(NumDice,StartObjNumber,DiceSize#)
  Create Bitmap 1,800,600
  CLS RGB(85,0,0)
  Rem Number One
  Ink RGB(255,0,0),0: Box 2,2,254,254
  Ink RGB(255,255,255),0
  For N=1 To 24
    Circle 128,128,N: Circle 128,129,N
  Next N
  Get Image 1001,0,0,256,256
  Rem Number Two
  Ink RGB(255,0,0),0: Box 2,2,254,254
  Ink RGB(255,255,255),0
  For N=1 To 24
    Circle 46,46,N: Circle 46,47,N
    Circle 208,208,N: Circle 208,209,N
  Next N
  Get Image 1002,0,0,256,256
  Rem Number Three
  Ink RGB(255,0,0),0: Box 2,2,254,254
  Ink RGB(255,255,255),0
  For N=1 To 24
    Circle 46,46,N: Circle 46,47,N
    Circle 128,128,N: Circle 128,129,N
    Circle 208,208,N: Circle 208,209,N
  Next N
  Get Image 1003,0,0,256,256
  Rem Number Four
  Ink RGB(255,0,0),0: Box 2,2,254,254
  Ink RGB(255,255,255),0
  For N=1 To 24
    Circle 46,46,N: Circle 46,47,N
    Circle 208,46,N: Circle 208,47,N
    Circle 46,208,N: Circle 46,209,N
    Circle 208,208,N: Circle 208,209,N
  Next N
  Get Image 1004,0,0,256,256
  Rem Number Five
  Ink RGB(255,0,0),0: Box 2,2,254,254
  Ink RGB(255,255,255),0
  For N=1 To 24
    Circle 46,46,N: Circle 46,47,N
    Circle 208,46,N: Circle 208,47,N
    Circle 128,128,N: Circle 128,129,N
    Circle 46,208,N: Circle 46,209,N
    Circle 208,208,N: Circle 208,209,N
  Next N
  Get Image 1005,0,0,256,256
  Rem Number Six
  Ink RGB(255,0,0),0: Box 2,2,254,254
  Ink RGB(255,255,255),0
  For N=1 To 24
    Circle 46,46,N: Circle 46,47,N
    Circle 208,46,N: Circle 208,47,N
    Circle 46,128,N: Circle 46,129,N
    Circle 208,128,N: Circle 208,129,N
    Circle 46,208,N: Circle 46,209,N
    Circle 208,208,N: Circle 208,209,N
  Next N
  Get Image 1006,0,0,256,256
  Set Current Bitmap 0
  Delete Bitmap 1
  For ObjNum = StartObjNumber To StartObjNumber+(NumDice-1)
    Offset#=DiceSize#/2.0: MeshNum=2000: PlainNum=2000
    Make Object Cube ObjNum,DiceSize#
    Make Object Plain PlainNum,DiceSize#,DiceSize#
    Make Mesh From Object MeshNum,PlainNum
    ADD LIMB ObjNum,1,2000: Offset Limb ObjNum,1,0,0,0.0-Offset#: Rem Cube Side 1 (Front)
    ADD LIMB ObjNum,2,2000: Rotate Limb ObjNum,2,0,90,0: Offset Limb ObjNum,2,0.0-Offset#,0,0: Rem Cube Side 2 (Left)
    ADD LIMB ObjNum,3,2000: Rotate Limb ObjNum,3,0,180,0: Offset Limb ObjNum,3,0,0,Offset#:  Rem Cube Side 3 (Back)
    ADD LIMB ObjNum,4,2000: Rotate Limb ObjNum,4,0,270,0: Offset Limb ObjNum,4,Offset#,0,0:  Rem Cube Side 4 (Right)
    ADD LIMB ObjNum,5,2000: Rotate Limb ObjNum,5,270,0,0: Offset Limb ObjNum,5,0,0.0-Offset#,0: Rem Cube Side 5 (Bottom)
    ADD LIMB ObjNum,6,2000: Rotate Limb ObjNum,6,90,0,0: Offset Limb ObjNum,6,0,Offset#,0: Rem Cube Side 6 (Top)
    Delete Mesh MeshNum
    Delete Object PlainNum
    Hide Limb ObjNum,0
    Texture LIMB ObjNum,1,1005: Texture LIMB ObjNum,2,1006
    Texture LIMB ObjNum,3,1002: Texture LIMB ObjNum,4,1001
    Texture LIMB ObjNum,5,1003: Texture LIMB ObjNum,6,1004
  Next ObjNum
EndFunction

Rem DBC Programming Challenges
Rem Dice Challenge
Rem By:

Gosub Setup

Do
  Rem Main Program Loop
  Gosub TestDice
  Sync
Loop
End

Rem ****************************************************************************************************
Rem ***                                        Procedures                                            ***
Rem ****************************************************************************************************

Setup:
  Set Display Mode 800,600,32
  AutoCam Off
  Sync On
  Sync Rate 0
  CLS 0
  Randomize Timer()
  True = 1: False = 0
  Dim DScore(6)
  Rem ********************************************************************************
  Rem Alter/delete this section as required...
  MakeDice(6,1,1.0): Rem Make 6 dice - the first one being object 1 - with the size 1.0
  Position Object 1,-3.75,0,0
  Position Object 2,-2.25,0,0

  Position Object 3,-0.75,0,0
  Position Object 4,0.75,0,0

  Position Object 5,2.25,0,0
  Position Object 6,3.75,0,0
  Rem ********************************************************************************
  Position Camera 0,0,-10
Return

TestDice:
  Rem Remove for your own program
  Center Text 400,0,"Press Space To Stop/Start Dice Rolling"
  If Trigger=False
    For N=1 To 6
      R = Rnd(3)*10
      XRotate Object N,WrapValue(Object Angle X(N)+R)
      YRotate Object N,WrapValue(Object Angle Y(N)+R)
    Next N
  Else
    If DiceStopped = False
      For N=1 To 6
        DScore(N)=Rnd(5)+1: Rem Random dice face chosen
        Select DScore(N)
          Case 1: Rotate Object N,0,90,0: EndCase
          Case 2: Rotate Object N,0,180,0: EndCase
          Case 3: Rotate Object N,90,0,0: EndCase
          Case 4: Rotate Object N,270,0,0: EndCase
          Case 5: Rotate Object N,0,0,0: EndCase
          Case 6: Rotate Object N,0,270,0: EndCase
        EndSelect
      Next N
      DiceStopped = True
    Endif
  Endif
  Rem Reak Space bar
  If Inkey$()=" "
    If Trigger=False
      Trigger=True
    Else
      Trigger=False
      DiceStopped = False
    Endif
    Repeat
    Until Inkey$()=""
  Endif
Return


Rem ****************************************************************************************************
Rem ***                                        Functions                                             ***
Rem ****************************************************************************************************

Function MakeDice(NumDice,StartObjNumber,DiceSize#)
  Create Bitmap 1,800,600
  CLS RGB(85,0,0)
  Rem Number One
  Ink RGB(255,0,0),0: Box 2,2,254,254
  Ink RGB(255,255,255),0
  For N=1 To 24
    Circle 128,128,N: Circle 128,129,N
  Next N
  Get Image 1001,0,0,256,256
  Rem Number Two
  Ink RGB(255,0,0),0: Box 2,2,254,254
  Ink RGB(255,255,255),0
  For N=1 To 24
    Circle 46,46,N: Circle 46,47,N
    Circle 208,208,N: Circle 208,209,N
  Next N
  Get Image 1002,0,0,256,256
  Rem Number Three
  Ink RGB(255,0,0),0: Box 2,2,254,254
  Ink RGB(255,255,255),0
  For N=1 To 24
    Circle 46,46,N: Circle 46,47,N
    Circle 128,128,N: Circle 128,129,N
    Circle 208,208,N: Circle 208,209,N
  Next N
  Get Image 1003,0,0,256,256
  Rem Number Four
  Ink RGB(255,0,0),0: Box 2,2,254,254
  Ink RGB(255,255,255),0
  For N=1 To 24
    Circle 46,46,N: Circle 46,47,N
    Circle 208,46,N: Circle 208,47,N
    Circle 46,208,N: Circle 46,209,N
    Circle 208,208,N: Circle 208,209,N
  Next N
  Get Image 1004,0,0,256,256
  Rem Number Five
  Ink RGB(255,0,0),0: Box 2,2,254,254
  Ink RGB(255,255,255),0
  For N=1 To 24
    Circle 46,46,N: Circle 46,47,N
    Circle 208,46,N: Circle 208,47,N
    Circle 128,128,N: Circle 128,129,N
    Circle 46,208,N: Circle 46,209,N
    Circle 208,208,N: Circle 208,209,N
  Next N
  Get Image 1005,0,0,256,256
  Rem Number Six
  Ink RGB(255,0,0),0: Box 2,2,254,254
  Ink RGB(255,255,255),0
  For N=1 To 24
    Circle 46,46,N: Circle 46,47,N
    Circle 208,46,N: Circle 208,47,N
    Circle 46,128,N: Circle 46,129,N
    Circle 208,128,N: Circle 208,129,N
    Circle 46,208,N: Circle 46,209,N
    Circle 208,208,N: Circle 208,209,N
  Next N
  Get Image 1006,0,0,256,256
  Set Current Bitmap 0
  Delete Bitmap 1
  For ObjNum = StartObjNumber To StartObjNumber+(NumDice-1)
    Offset#=DiceSize#/2.0: MeshNum=2000: PlainNum=2000
    Make Object Cube ObjNum,DiceSize#
    Make Object Plain PlainNum,DiceSize#,DiceSize#
    Make Mesh From Object MeshNum,PlainNum
    ADD LIMB ObjNum,1,2000: Offset Limb ObjNum,1,0,0,0.0-Offset#: Rem Cube Side 1 (Front)
    ADD LIMB ObjNum,2,2000: Rotate Limb ObjNum,2,0,90,0: Offset Limb ObjNum,2,0.0-Offset#,0,0: Rem Cube Side 2 (Left)
    ADD LIMB ObjNum,3,2000: Rotate Limb ObjNum,3,0,180,0: Offset Limb ObjNum,3,0,0,Offset#:  Rem Cube Side 3 (Back)
    ADD LIMB ObjNum,4,2000: Rotate Limb ObjNum,4,0,270,0: Offset Limb ObjNum,4,Offset#,0,0:  Rem Cube Side 4 (Right)
    ADD LIMB ObjNum,5,2000: Rotate Limb ObjNum,5,270,0,0: Offset Limb ObjNum,5,0,0.0-Offset#,0: Rem Cube Side 5 (Bottom)
    ADD LIMB ObjNum,6,2000: Rotate Limb ObjNum,6,90,0,0: Offset Limb ObjNum,6,0,Offset#,0: Rem Cube Side 6 (Top)
    Delete Mesh MeshNum
    Delete Object PlainNum
    Hide Limb ObjNum,0
    Texture LIMB ObjNum,1,1005: Texture LIMB ObjNum,2,1006
    Texture LIMB ObjNum,3,1002: Texture LIMB ObjNum,4,1001
    Texture LIMB ObjNum,5,1003: Texture LIMB ObjNum,6,1004
  Next ObjNum
EndFunction

For N=1 To 6
        DScore(N)=Rnd(5)+1: Rem Random dice face chosen
        Select DScore(N)
          Case 1: Rotate Object N,0,90,0: EndCase
          Case 2: Rotate Object N,0,180,0: EndCase
          Case 3: Rotate Object N,90,0,0: EndCase
          Case 4: Rotate Object N,270,0,0: EndCase
          Case 5: Rotate Object N,0,0,0: EndCase
          Case 6: Rotate Object N,0,270,0: EndCase
        EndSelect
      Next N

  AutoCam Off
  Sync On
  Sync Rate 30
  CLS 0
  Dim DScore(2)
  Randomize Timer()
  True = 1: False = 0
gosub images
Gosub Setup

f#=50


repeat
  xrotate object 1,wrapvalue(object angle x(1)-11)
  xrotate object 2,wrapvalue(object angle x(2)+12)
  Position Object 1,0.6,f#,0
  Position Object 2,-0.6,f#,0
  point camera 0,f#,0
  f#=f#-0.4
  Sync
until f#<0
wait 500
for t=0 to 4
position object 1,t,0,0
position object 2,t,0,0
position object 3,t,0,0
sync
next t
for t=4 to -4 step -1
position object 1,t,0,0
position object 2,t,0,0
position object 3,t,0,0
sync
next t
for t=-4 to 0 
position object 1,t,0,0
position object 2,t,0,0
position object 3,t,0,0
sync
next t
wait 500

for t=0 to 120
zrotate object 3,t
position object 1,tp#,0,0
position object 2,tp#,0,0
position object 3,tp#,0,0
inc tp#,0.02
sync
next t
gggg:

For N=1 To 2
        DScore(N)=Rnd(5)+1: Rem Random dice face chosen
        Select DScore(N)
          Case 1: Rotate Object N,0,90,0: EndCase
          Case 2: Rotate Object N,0,180,0: EndCase
          Case 3: Rotate Object N,90,0,0: EndCase
          Case 4: Rotate Object N,270,0,0: EndCase
          Case 5: Rotate Object N,0,0,0: EndCase
          Case 6: Rotate Object N,0,270,0: EndCase
        EndSelect
      Next N
        DScore1=DScore(1)
        DScore2=DScore(2)


position object 1,-4,0,0
position object 2,-3,0,0
position camera 0,5,0
point camera -3,0,0

repeat
set cursor 0,0
print "You got ",DScore1, " and ",DScore2
if spacekey()=1 then goto gggg
sync
until mouseclick()=1


End





images:
ink rgb(255,0,0),0
box 0,0,300,300
ink rgb(190,0,0),0
for t=0 to 9000
a=rnd(300)
b=rnd(300)
box a,b,a,b
next t
get image 1,0,0,300,300
cls
ink rgb(0,120,0),0
box 0,0,300,300
ink rgb(0,150,20),0
for t=0 to 6000
a=rnd(300)
b=rnd(300)
box a,b,a,b
next t
get image 2,0,0,300,300
cls
ink rgb(255,255,255),0
for t=0 to 2000
a=rnd(500)
b=rnd(400)
box a,b,a,b
next t
get image 3,0,0,500,400
return




Setup:

  MakeDice(2,1,1.0)
  Position Object 1,0.6,3,0
  Position Object 2,-0.6,3,0
  Position Camera 0,0,-10
  make object cylinder 3,5
  texture object 3,1
  make object box 4,500,4,500
  position object 4,0,-6.5,0
  texture object 4,2
  make object sphere 5,5000
  texture object 5,3 
  set object 5,1,1,0
Return





Function MakeDice(NumDice,StartObjNumber,DiceSize#)
  Create Bitmap 1,800,600
  CLS RGB(85,0,0)
  Rem Number One
  Ink RGB(255,255,255),0: Box 2,2,254,254
  Ink RGB(0,0,0),0
  For N=1 To 24
    Circle 128,128,N: Circle 128,129,N
  Next N
  Get Image 1001,0,0,256,256
  Rem Number Two
  Ink RGB(255,255,255),0: Box 2,2,254,254
  Ink RGB(0,0,0),0
  For N=1 To 24
    Circle 46,46,N: Circle 46,47,N
    Circle 208,208,N: Circle 208,209,N
  Next N
  Get Image 1002,0,0,256,256
  Rem Number Three
  Ink RGB(255,255,255),0: Box 2,2,254,254
  Ink RGB(0,0,0),0
  For N=1 To 24
    Circle 46,46,N: Circle 46,47,N
    Circle 128,128,N: Circle 128,129,N
    Circle 208,208,N: Circle 208,209,N
  Next N
  Get Image 1003,0,0,256,256
  Rem Number Four
  Ink RGB(255,255,255),0: Box 2,2,254,254
  Ink RGB(0,0,0),0
  For N=1 To 24
    Circle 46,46,N: Circle 46,47,N
    Circle 208,46,N: Circle 208,47,N
    Circle 46,208,N: Circle 46,209,N
    Circle 208,208,N: Circle 208,209,N
  Next N
  Get Image 1004,0,0,256,256
  Rem Number Five
  Ink RGB(255,255,255),0: Box 2,2,254,254
  Ink RGB(0,0,0),0
  For N=1 To 24
    Circle 46,46,N: Circle 46,47,N
    Circle 208,46,N: Circle 208,47,N
    Circle 128,128,N: Circle 128,129,N
    Circle 46,208,N: Circle 46,209,N
    Circle 208,208,N: Circle 208,209,N
  Next N
  Get Image 1005,0,0,256,256
  Rem Number Six
  Ink RGB(200,200,255),0: Box 2,2,254,254
  Ink RGB(0,0,0),0
  For N=1 To 24
    Circle 46,46,N: Circle 46,47,N
    Circle 208,46,N: Circle 208,47,N
    Circle 46,128,N: Circle 46,129,N
    Circle 208,128,N: Circle 208,129,N
    Circle 46,208,N: Circle 46,209,N
    Circle 208,208,N: Circle 208,209,N
  Next N
  Get Image 1006,0,0,256,256
  Set Current Bitmap 0
  Delete Bitmap 1
  For ObjNum = StartObjNumber To StartObjNumber+(NumDice-1)
    Offset#=DiceSize#/2.0: MeshNum=2000: PlainNum=2000
    Make Object Cube ObjNum,DiceSize#
    Make Object Plain PlainNum,DiceSize#,DiceSize#
    Make Mesh From Object MeshNum,PlainNum
    ADD LIMB ObjNum,1,2000: Offset Limb ObjNum,1,0,0,0.0-Offset#: Rem Cube Side 1 (Front)
    ADD LIMB ObjNum,2,2000: Rotate Limb ObjNum,2,0,90,0: Offset Limb ObjNum,2,0.0-Offset#,0,0: Rem Cube Side 2 (Left)
    ADD LIMB ObjNum,3,2000: Rotate Limb ObjNum,3,0,180,0: Offset Limb ObjNum,3,0,0,Offset#:  Rem Cube Side 3 (Back)
    ADD LIMB ObjNum,4,2000: Rotate Limb ObjNum,4,0,270,0: Offset Limb ObjNum,4,Offset#,0,0:  Rem Cube Side 4 (Right)
    ADD LIMB ObjNum,5,2000: Rotate Limb ObjNum,5,270,0,0: Offset Limb ObjNum,5,0,0.0-Offset#,0: Rem Cube Side 5 (Bottom)
    ADD LIMB ObjNum,6,2000: Rotate Limb ObjNum,6,90,0,0: Offset Limb ObjNum,6,0,Offset#,0: Rem Cube Side 6 (Top)
    Delete Mesh MeshNum
    Delete Object PlainNum
    Hide Limb ObjNum,0
    Texture LIMB ObjNum,1,1005: Texture LIMB ObjNum,2,1006
    Texture LIMB ObjNum,3,1002: Texture LIMB ObjNum,4,1001
    Texture LIMB ObjNum,5,1003: Texture LIMB ObjNum,6,1004
  Next ObjNum
EndFunction