var x : int := 10 %x position of fruits
var cnt : int := 0 %Counter
var slots : int %used as a junk variable to keep a random number
var stops : array 1 .. 3 of int %Three variables to keep track of what you landed on
var key : array char of boolean

loop
    Input.KeyDown (key)
    randint (slots, 1, 3) %makes slots a random number from 1 to 3
    if key (KEY_ENTER) then
        if slots = 1 then
            Draw.FillOval (x, 10, 10, 10, yellow) %represents a lemon
        elsif slots = 2 then
            Draw.FillOval (x, 10, 10, 10, red) %cherry
        elsif slots = 3 then
            Draw.FillOval (x, 10, 10, 10, blue) %blueberry
        end if
        x += 20 %pushes the oval over
        cnt += 1
        stops (cnt) := slots %stores the random number into a variable
        delay (250)
        put "Random Number: ", slots
    end if
    if cnt = 3 then
        Input.Pause
        if stops (1) = 1 and stops (2) = 1 and stops (3) = 1 then %checks if all 3 random numbers are 1
            put "LEMONS WON!!!!"
        elsif stops (1) = 2 and stops (2) = 2 and stops (3) = 2 then %checks if all 3 random numbers are 2
            put "CHERRY WON!!!"
        elsif stops (1) = 1 and stops (2) = 3 and stops (3) = 3 then %checks if all 3 random numbers are 3
            put "BLUEBERRY WON!!!"
        end if
        Input.Pause
        x := 10 %resets the x position
        cnt := 0 %resets the counter
        cls
    end if
end loop

randint (var, 1, 10)

if var = 1 then

      DrawPic ( "lucky_7.jpg" , 100, 100, 2)

elsif var = 2 then

      DrawPic ( "cherries.jpg", 100, 100, 2)

% Add more if statements pertaining to displaying pics depending on roll.

end if

var num := Rand.Int (1, 10)

put Rand.Int (1, 10)