% The Visual Dice Program with Random seed
% declaration of variables
var dicePics : array 1 .. 6 of int
dicePics(1) := Pic.FileNew ("1dice.bmp")
dicePics(2) := Pic.FileNew ("2dice.bmp")
dicePics(3) := Pic.FileNew ("3dice.bmp")
dicePics(4) := Pic.FileNew ("4dice.bmp")
dicePics(5) := Pic.FileNew ("5dice.bmp")
dicePics(6) := Pic.FileNew ("6dice.bmp")
var die1,die2:int
% generate random seed for each die
die1 := Rand.Int(1, 6)
die2 := Rand.Int(1, 6)
% Pic.SetTransparentColor (pic, brightred)
setscreen ("graphics:768;512")
setscreen ("offscreenonly")
% this loop displays the random dice using the dicePics 1-D array
for x : 100 .. 500
cls
Pic.Draw(dicePics(die1), x, 100, picMerge)
Pic.Draw(dicePics(die2), x, 250, picMerge)
put die1,die2
View.Update
delay (1)
end for
|
Register
Wiki
Blog
Search
Turing
Chat Room
Members
