code for hor race

View.Set ("graphics:max,max")


proc loadhorses (var horses : array 1 .. 6 of int)
    for i : 1 .. upper (horses)
        horses (i) := Pic.FileNew ("h" + intstr (i) + ".jpg")
    end for
end loadhorses



%%%%%%%%%%%%%%%Mainline %%%%%%%%%%%%%%%%%%%55
var rollcount : array 1 .. 6 of int := init (0, 0, 0, 0, 0, 0)
var die : int
var fin : int := Pic.FileNew ("finish.jpg")
var horses : array 1 .. 6 of int
drawfillbox (0, 0, maxx, maxy, green)
Pic.Draw (fin, maxx - 200, 0, picCopy)

loadhorses (horses)

loop
    randint (die, 1, 6)
    rollcount (die) := rollcount (die) + 2
    Pic.Draw (horses (die), rollcount (die), die * 100 - 100, picCopy)
    drawfillbox (0, die * 100 - 100, rollcount (die), die * 100, green)
    delay (5)
    exit when rollcount (die) >= maxx - 200
end loop