View.Set ("graphics:max,max")
var rollcount : array 1 .. 6 of int := init (0, 0, 0, 0, 0, 0)
var font : int := Font.New ("sans serif:18:bold")
var die : int
var mx, my, mb : int
var spot : int := 0
var name : array 1 .. 6 of string
var bets : array 1 .. 6 of int
var spends : array 1 .. 6 of int
var amounts : array 1 .. 6 of int := init (1000, 1000, 1000, 1000, 1000, 1000)

process playmusic
    Music.PlayFile ("360.mp3")
end playmusic

fork playmusic



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



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


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

proc amount (var amounts : array 1 .. 6 of int)
    for i : 1 .. upper (amounts)
        amounts (i) := 1000
    end for
end amount

proc spend (var spends : array 1 .. 6 of int)
    for i : 1 .. upper (spends)
        locate (1 + i, 37)
        get spends (i)
    end for
end spend


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%main line

var horses : array 1 .. 6 of int
put "name", "           ", "cash amount", "           ", "bet amount", "           ", "horse beting on"
names (name)
amount (amounts)
spend (spends)
bet (bets)
randomize

loadhorses (horses)
loop
    drawfillbox (0, 0, maxx, maxy, green)
    drawline (900, 0, 900, 620, black)
    drawline (899, 0, 899, 620, black)
    drawline (898, 0, 898, 620, black)
    drawline (700, 0, 700, 0, brown)
     for i : 1 .. 6
    rollcount (i) := 0
    end for
    loop
        mousewhere (mx, my, mb)
        if mb = 1 then
            spot := my div 80
        end if
        if mb = 1 and spot <= 6 and my < 500 then
            rollcount (spot) += 10
        end if
        delay (4)
        randint (die, 1, 6)
        rollcount (die) := rollcount (die) + 1
        Pic.Draw (horses (die), rollcount (die), die * 80, picCopy)
        drawfillbox (0, die * 80, rollcount (die), die * 80 + 50, green)
        Font.Draw ("finish", 870, 625, font, black)
        Font.Draw (intstr (die), 10, die * 80, font, black)
        exit when rollcount (die) >= 850
    end loop

    Font.Draw ("Fatty " + intstr (die) + " is the winner!", 400, 350, font, black)
    delay (800)
    cls
    for i : 1 .. 6
        amounts (i) := amounts (i) - spends (i)
        if bets (i) = die then
            amounts (i) := amounts (i) + spends (i) * 2
        end if
    end for

    put "name", "           ", "cash amount", "           ", "bet amount", "           ", "horse beting on"
    for i : 1 .. 6
        locate (1 + i, 1)
        put name (i)
        locate (1 + i, 16)
        put amounts (i)
    end for
    for i : 1 .. 6
        locate (1 + i, 37)
        get spends (i)
        locate (1 + i, 59)
        get bets (i)
    end for
end loop