View.Set ("graphics;offscreenonly")
Mouse.ButtonChoose ("multibutton")

var driveArray : string := ""
for i : 'C' .. 'Z'
    if Dir.Exists (i + ':') then
        driveArray += i
    end if
end for

var N : int := length (driveArray)
var SELECTED : array 1 .. N of boolean

for i : 1 .. N
    SELECTED (i) := false
end for

var folderX := 10
var folderY := maxy - 60
var folderWidth := 50
var folderHeight := 50
var selectionRadius : int := -3

var clickTimer : boolean := false
var clickTimerCounter : int := 0

var mouseX, mouseY, button, left, middle, right : int
Mouse.Where (mouseX, mouseY, button)


var font := Font.New ("Serif:40")
loop

    Mouse.Where (mouseX, mouseY, button)

    for i : 0 .. N - 1
        Draw.Box (folderX + (i * folderWidth), folderY, folderX + folderWidth + (i * folderWidth), folderY + folderHeight, black)
        if mouseX >= folderX + (i * folderWidth) and mouseX <= folderX + folderWidth + (i * folderWidth) and mouseY >= folderY and mouseY <= folderY + folderHeight then
            Draw.Box (folderX + (i * folderWidth), folderY, folderX + folderWidth + (i * folderWidth), folderY + folderHeight, brightred)
            if button = 1 then
                for s : 1 .. N
                    SELECTED (s) := false
                end for
                SELECTED (i + 1) := true
            end if
        end if
        if SELECTED (i + 1) then
            Draw.Box (folderX + (i * folderWidth) + selectionRadius, folderY + selectionRadius, folderX + folderWidth + (i * folderWidth) - selectionRadius, folderY + folderHeight - selectionRadius,
                black)
        end if
        Font.Draw (driveArray (i + 1), 5 + folderX + (i * folderWidth), maxy - 53, font, black)
        folderX += 20
    end for

    if button = 1 then
        clickTimerCounter += 1
    end if

    put clickTimerCounter



    folderX := 10
    View.Update
    cls
end loop

if clicked then
     startcounter
elsif startcounter = true and clicked and counter < (somenumber) then
     doubleclicked
elsif start counter = true then
     add to counter
end if

    if button = 1 then
        oneClick := true
    end if

    if oneClick then
        cnt += 1
    end if

    if cnt = 1000 then
        cnt := 0
        oneClick := false
        button := 0
    end if
   
    put cnt

    if oneClick = true and cnt > 250 and cnt < 1000 then
        if button = 1 then
            quit
        end if
    end if

var fpsDelay : int
var charsLastUp : array char of int
var chars, charsLast : array char of boolean

proc initialize
    Input.KeyDown (chars)
    for c : char
        charsLastUp (c) := minint div 2
    end for
end initialize

fcn doubleType (s : char, maxDelay : int) : boolean
    result Time.Elapsed - charsLastUp (s) <= maxDelay
end doubleType

proc updateCharsLastUp (s : char)
    charsLastUp (s) := Time.Elapsed
end updateCharsLastUp

fcn keyUp (s : char) : boolean
    result ~chars (s) and charsLast (s)
end keyUp

fcn keyDown (s : char) : boolean
    result chars (s) and ~charsLast (s)
end keyDown

proc input
    for c : char
        if keyDown (c) then
            put "KeyDown (", c, ")"
        end if
        if keyUp (c) then
            put "KeyUp (", c, ") (", Time.Elapsed - charsLastUp (c), ")" ..
            if doubleType (c, 1000) then
                put " DOUBLE TYPE "
            else
                put ""
            end if

            updateCharsLastUp (c)
        end if
    end for

end input

proc setFPS (n : int)
    fpsDelay := 1000 div n
end setFPS

proc run
    initialize
    loop
        charsLast := chars
        Input.KeyDown (chars)
        exit when chars (KEY_ESC)

        input

        View.Update
        delay (fpsDelay)
    end loop
end run


setFPS (60)
run