View.Set ("graphics:max,max")
var rollcount : array 1 .. 6 of int := init (0, 0, 0, 0, 0, 0)
var die : int

proc loadcar (var carpic : array 1 .. 6 of int)
    for i : 1 .. 6
        carpic (i) := Pic.FileNew ("car" + intstr (i) + ".jpg")
    end for
end loadcar

proc race (var rollcount : array 1 .. 6 of int, var die : int, var carpic : array 1 .. 6 of int)
    loop
        randint (die, 1, 6)
        rollcount (die) := rollcount (die) + 1
        drawfillbox (0, die * 50, rollcount (die) - 1, die * 50 + 50, 0)
        drawline (maxx - 100, maxy, maxx - 100, 0, red)
        Pic.Draw (carpic (die), rollcount (die), die * 50, picMerge)
        exit when rollcount (die) = maxx - 100
    end loop
end race

process DoMusic
    loop
        Music.PlayFile ("SFA2 Gold Charlie.wav")
    end loop
end DoMusic

proc user (var names : array 1 .. 6 of string, var name : string)
    for i : 1 .. 6
        get name
    end for
end user

proc balance (var money : array 1 .. 6 of int, var amount : int)
    for i : 1 .. 6
        locate (1 + i, 20)
        get amount
    end for
end balance

proc selection (var choice : array 1 .. 6 of int, var runners : int)
    for i : 1 .. 6
        locate (1 + i, 50)
        get choice (i)
    end for
end selection

proc bets (var bet : array 1 .. 6 of int)
    for i : 1 .. 6
        locate (1 + i, 80)
        get bet (i)
    end for
end bets

proc results (var rollcount : array 1 .. 6 of int, var die : int, var money : array 1 .. 6 of int, var names : array 1 .. 6 of string, var choice : array 1 .. 6 of int)


    var name : string
    var names : array 1 .. 6 of string
    var money : array 1 .. 6 of int
    var amount : int
    var choice : array 1 .. 6 of int
    var runners : int
    var bet : array 1 .. 6 of int
    var carpic : array 1 .. 6 of int
    loadcar (carpic)
    fork DoMusic
    %var rollcount : array 1 .. 6 of int
    %var die : int