Scroll wheel support in inventory (OXC)

#InstallMouseHook

#SingleInstance Force
#Persistent

SendMode, Play

checkImage := "scrollbutton.png"
inventoryScrollButtonX := 0
inventoryScrollButtonY := 0

global checkImage, inventoryScrollButtonX, inventoryScrollButtonY

CheckInv()
{
    WinGetPos, X, Y, width, height, A
    ImageSearch, inventoryScrollButtonX, inventoryScrollButtonY, % width //2, % height //2, % width, % height, % checkImage
    return ErrorLevel = 0
}

ClickInv(back)
{
    MouseGetPos, msX, msY
    button := back ? "+left" : "left"
    Click, %inventoryScrollButtonX%, %inventoryScrollButtonY%, %button%
    MouseMove, % msX, % msY, 0
}

#ifWinActive, ahk_exe OpenXcomEx.exe
{
    WheelUp::
    {
        if (CheckInv()) {
            ClickInv(true)
        }
        return
    }

    WheelDown::
    {
        if (CheckInv()) {
            ClickInv(false)
        }
        return
    }

    +WheelDown::
    {
        Send {TAB}
        return
    }

    +WheelUp::
    {
        Send {q}
        return
    }
}