F9::trade_inventory("F9")

trade_inventory(fkey) {
    slot_dim := 53
    x_base := 1297
    y_base := 615
    x := x_base
    y := y_base
    SendInput, {Ctrl down}
    MouseGetPos, x_old, y_old
    Sleep, 10
    while (GetKeyState(fkey, "P")) {
        if (y >= y_base + 5 * slot_dim) { ;have we been over all 5 rows?
            x += slot_dim  ;next column
            if (x >= x_base + 12 * slot_dim)
                break
            y := y_base    ;reset to top row
            MouseMove, %x%, %y%
            Sleep, 50
        }
        MouseMove, %x%, %y%
        Sleep, 30
        Click, %x%, %y%
        Sleep, 10
        Click, %x%, %y%
        Sleep, 10
        ;Click, %x%, %y%
        ;Sleep, 10
        y += slot_dim
    }
    Sleep, 100
    SendInput, {Ctrl up}
    Sleep, 10
    MouseMove, x_old, y_old
    Sleep, 1000
    Return
}