View.Set ("offscreenonly")
procedure DrawDice (number : int)
case number of
label 1 :
Draw.Box (50, 350, 150, 250, black) %the box
Draw.FillOval (100, 300, 10, 10, black) % centre point
label 2 :
Draw.Box (50, 350, 150, 250, black) %the box
Draw.FillOval (75, 275, 10, 10, black) % bottom left
Draw.FillOval (125, 325, 10, 10, black) % top right
label 3 :
Draw.Box (50, 350, 150, 250, black) %the box
Draw.FillOval (100, 300, 10, 10, black) % centre point
Draw.FillOval (75, 275, 10, 10, black) % bottom left
Draw.FillOval (125, 325, 10, 10, black) % top right
label 4 :
Draw.Box (50, 350, 150, 250, black) %the box
Draw.FillOval (75, 325, 10, 10, black) % top left
Draw.FillOval (75, 275, 10, 10, black) % bottom left
Draw.FillOval (125, 325, 10, 10, black) % top right
Draw.FillOval (125, 275, 10, 10, black) % bottom right
label 5 :
Draw.Box (50, 350, 150, 250, black) %the box
Draw.FillOval (100, 300, 10, 10, black) % centre point
Draw.FillOval (75, 325, 10, 10, black) % top left
Draw.FillOval (75, 275, 10, 10, black) % bottom left
Draw.FillOval (125, 325, 10, 10, black) % top right
Draw.FillOval (125, 275, 10, 10, black) % bottom right
label 6 :
Draw.Box (50, 350, 150, 250, black) %the box
Draw.FillOval (75, 300, 10, 10, black) % middle left
Draw.FillOval (75, 325, 10, 10, black) % top left
Draw.FillOval (75, 275, 10, 10, black) % bottom left
Draw.FillOval (125, 300, 10, 10, black) % middle right
Draw.FillOval (125, 325, 10, 10, black) % top right
Draw.FillOval (125, 275, 10, 10, black) % bottom right
end case
end DrawDice
for i : 1 .. 10
DrawDice (Rand.Int (1, 6))
View.Update
delay (100)
cls
end for
DrawDice (Rand.Int (1, 6))
|