flood.ahk

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

delay := 75
SetMouseDelay, -1

drawLine(x, y, span=760, rept=136, drop=2)
{
    global delay
    MouseMove, x, y, 0,
    Sleep delay
    MouseClick, left, , , , , D
    Loop %rept% {
        MouseMove, span, 0, 0, R
        Sleep delay
        MouseMove, 0, drop, 0, R
        Sleep delay
        span := -span
    }
    MouseMove, span, 0, 0, R
    Sleep delay
    MouseClick, left, , , , , U
    Return
}

PickColor(x, y) {
    MouseClick, left, 922, 141
    Sleep delay
    MouseClick, left, x, y
    return
}

^=::
    delay := 75
    return

^-::
    delay := 1
    return

MButton::
    MouseGetPos, startX, startY
    KeyWait, MButton
    MouseGetPos, endX, endY
    if(startX > endX) {
        tempX := startX
        startX := endX
        endX := tempX
    }
    if(startY > endY) {
        tempY := startY
        startY := endY
        endY := tempY

    }
    drawLine(startX, startY, endX-startX, (endY-startY)/2)
    Return


F12::
    Pause, Toggle
    Return

^R::
    Reload
    Sleep, 1000
    MsgBox, 4,, The script could not be reloaded. Would you like to open it for editing?
    IfMsgBox, Yes, Edit
    return

^!F11::
    i := 0
    Loop, {
        if (i=2) {
            i := 0
        } else {
            i := 2
        }
        Random, xCol, -9, 8
        Random, yCol, -6, 5
        xCol += xCol*11 + 840
        yCol += yCol*11 + 250
        PickColor(xCol, yCol)
        drawLine(191, 160+i, 760, 67, 4)
        drawLine(191, 432+i, 760, 67, 4)
    }
    Return


^F12::
    drawLine(191, 160)
    Return


!F12::
    drawLine(191, 431)
    Return


^!F12::
    drawLine(191, 160)
    drawLine(191, 431)
    Return