setscreen ("graphics:v16,nocursor")
randomize
var wager, bank : int
var x1, x2, y1, y2, a1, a2, b1, b2, c1, c2, d1, d2, cc1, cc2, cc3, rad :
    int
var ball, choice : int
randint (rad, 20, 30)

x1 := 75
x2 := 100
y1 := maxy div 2 - 50
y2 := maxy div 2 + 50
a1 := 250
a2 := 275
b1 := maxy div 2 - 50
b2 := maxy div 2 + 50
c1 := 425
c2 := 450
d1 := maxy div 2 - 50
d2 := maxy div 2 + 50
cc1 := 4
cc2 := 9
cc3 := 14
bank := 10
colourback (255)
procedure drawcup1
    drawline (x1, y1, x2, y2, black)
    drawline (x2, y2, x2 + 60, y2, black)
    drawline (x2 + 60, y2, x2 + 85, y1, black)
    drawline (x1, y1, x2 + 85, y1, black)
    drawfill (x1 + 10, y1 + 1, cc1, black)
end drawcup1
procedure drawcup11
    drawline (x1, y1, x2, y2, 0)
    drawline (x2, y2, x2 + 60, y2, 0)
    drawline (x2 + 60, y2, x2 + 85, y1, 0)
    drawline (x1, y1, x2 + 85, y1, 0)
    drawfill (x1 + 10, y1 + 1, 0, 0)
end drawcup11

procedure drawcup2
    drawline (a1, b1, a2, b2, black)
    drawline (a2, b2, a2 + 60, b2, black)
    drawline (a2 + 60, b2, a2 + 85, b1, black)
    drawline (a1, b1, a2 + 85, b1, black)
    drawfill (a1 + 10, b1 + 1, cc2, black)
end drawcup2
procedure drawcup22
    drawline (a1, b1, a2, b2, 0)
    drawline (a2, b2, a2 + 60, b2, 0)
    drawline (a2 + 60, b2, a2 + 85, b1, 0)
    drawline (a1, b1, a2 + 85, b1, 0)
    drawfill (a1 + 10, b1 + 1, 0, 0)
end drawcup22

procedure drawcup3
    drawline (c1, d1, c2, d2, black)
    drawline (c2, d2, c2 + 60, d2, black)
    drawline (c2 + 60, d2, c2 + 85, d1, black)
    drawline (c1, d1, c2 + 85, d1, black)
    drawfill (c1 + 10, d1 + 1, cc3, black)
end drawcup3
procedure drawcup33
    drawline (c1, d1, c2, d2, 0)
    drawline (c2, d2, c2 + 60, d2, 0)
    drawline (c2 + 60, d2, c2 + 85, d1, 0)
    drawline (c1, d1, c2 + 85, d1, 0)
    drawfill (c1 + 10, d1 + 1, 0, 0)
end drawcup33

loop
    loop
        colour (white)
        locate (1, 1)
        put " You have $ ", bank, " in the bank."
        put " How much would you like to bet?: " ..
        get wager

        locate (1, 1)
        colour (white)
        put ""
        put ""
        exit when wager <= bank
    end loop
    colourback (white)
    drawcup1
    drawcup3
    locate (21, 17)
    colour (black)
    put "1"
    locate (21, 39)
    put "2"
    locate (21, 60)
    put "3"
    for i : 1 .. 10
        drawcup22
        b1 += 5
        b2 += 5
        drawcup2
    end for
    drawfilloval ((a2 + 85 + a1) div 2, maxy div 2 - 50 + 15, 15, 15, 13)
    delay (5000)
    for i : 1 .. 10
        drawcup22
        b1 -= 5
        b2 -= 5
        drawcup2
    end for
    var temp, temp2 : int
    for i : 1 .. rad
        temp := cc1
        cc1 := cc2
        temp2 := cc3
        cc2 := temp2
        cc3 := temp
        drawcup1
        drawcup2
        drawcup3
        delay (1)
        randint (ball, 1, 3)
        if ball = 1 then
            drawfilloval ((x1 + x2 + 85) div 2 - 5, y2 + 10, 3, 3, green)
            delay (200)
            drawfilloval ((x1 + x2 + 85) div 2 - 5, y2 + 10, 3, 3, 0)
        elsif ball = 2 then
            drawfilloval ((a1 + a2 + 85) div 2 - 5, b2 + 10, 3, 3, green)
            delay (200)
            drawfilloval ((a1 + a2 + 85) div 2 - 5, b2 + 10, 3, 3, 0)
        elsif ball = 3 then
            drawfilloval ((c1 + c2 + 85) div 2 - 5, d2 + 10, 3, 3, green)
            delay (200)
            drawfilloval ((c1 + c2 + 85) div 2 - 5, d2 + 10, 3, 3, 0)
        end if
    end for
    put " Which cup is the ball under: " ..
    get choice
    var reply : string (1)
    if choice = 1 then
        for i : 1 .. 10
            drawcup11
            y1 += 5
            y2 += 5
            drawcup1
        end for
        if ball = 1 then
            drawfilloval ((x2 + 85 + x1) div 2, maxy div 2 - 50 + 15, 15, 15, 13)
            delay (100)
        end if
        for i : 1 .. 10
            drawcup11
            y1 -= 5
            y2 -= 5
            drawcup1
        end for
    end if
    if choice = 2 then
        for i : 1 .. 10
            drawcup22
            b1 += 5
            b2 += 5
            drawcup2
        end for
        if ball = 2 then
            drawfilloval ((a2 + 85 + a1) div 2, maxy div 2 - 50 + 15, 15, 15, 13)
            delay (100)
        end if
        for i : 1 .. 10
            drawcup22
            b1 -= 5
            b2 -= 5
            drawcup2
        end for
    end if
    if choice = 3 then
        for i : 1 .. 10
            drawcup33
            d1 += 5
            d2 += 5
            drawcup3
        end for
        if ball = 3 then
            drawfilloval ((c2 + 85 + c1) div 2, maxy div 2 - 50 + 15, 15, 15, 13)
            delay (100)
        end if
        for i : 1 .. 10
            drawcup33
            d1 -= 5
            d2 -= 5
            drawcup3
        end for
    end if
    colourback (black)
    colour (white)
    if choice = ball then
        bank += wager
        put "Congratulations you win $ ", wager
        put " Would you like to play again? (y or n)" ..
        get reply
        if reply = "n" then
            exit
        else
            locate (22, 1)
            colour (white)
            put ""
            put ""
            put ""
        end if
    else
        put " HAHA you lose $ ", wager
        bank -= wager
        if bank < 1 then
            put " You is BANKRUPT! "
            exit
        else
            put " Would you like to play again? (y or n)" ..
            get reply
            if reply = "n" then
                exit
            else
                locate (22, 1)
                colour (white)
                put ""
                put ""
                put ""

            end if
        end if
    end if
end loop