/*********************************************************
Name : procedure playorder
By : Daniel Sullivan
This will determine the order players will go in.
********************************************************/
procedure playorder;
var t : array 1 .. playernum of int;
for x : 1 .. playernum
t (x) := rolldice; % Rolldice returns a random value between 1 and 6
put "t(", x, ") = ", t (x)
end for
% Need a sorting function to sort the array from largest to smallest and to make sure no two values are equal.
end playorder;