Enchanting macro for Darkfall: New Dawn

Class Position {
    X := 0
    Y := 0
    __New(x, y) {
        this.X := x
        this.Y := y
    }
}

ItemTarget := new Position(765, 123)
MatTarget1 := new Position(420, 244)
MatTarget2 := new Position(495, 244)
MatTarget3 := new Position(564, 244)
CatalystTarget := new Position(650, 244)
ItemBackTarget := new Position(420, 620)
EnchantClick := new Position(760, 480)

Mat1 := new Position(413, 564)
Mat2 := new Position(484, 560)
Mat3 := new Position(549, 567)
Catalyst := new Position(604, 568)
Item1 := new Position(667, 565)


;Show positions
^!q::
{
    showPosition(ItemTarget)
    if GetKeyState("F11", "P") {
        return
    }
    showPosition(MatTarget1)
    if GetKeyState("F11", "P")
        return
    showPosition(MatTarget2)
    if GetKeyState("F11", "P")
        return
    showPosition(MatTarget3)
    if GetKeyState("F11", "P")
        return
    showPosition(CatalystTarget)
    if GetKeyState("F11", "P")
        return
    showPosition(EnchantClick)
    if GetKeyState("F11", "P")
        return
    showPosition(Mat1)
    if GetKeyState("F11", "P")
        return
    showPosition(Mat2)
    if GetKeyState("F11", "P")
        return
    showPosition(Mat3)
    if GetKeyState("F11", "P")
        return
    showPosition(Catalyst)
    if GetKeyState("F11", "P")
        return
    showPosition(Item1)
    if GetKeyState("F11", "P")
        return
    showPosition(ItemBackTarget)
}
return

^!w::
{
    MouseGetPos, mouseX, mouseY
    MsgBox First co-ordinate is  %mouseX%, %mouseY%
}
return


showPosition(obj1) {
    MouseMove, obj1.X, obj1.Y, 10
    Sleep, 500
}

;Enchant 1st row
^!a::
Loop 180
{
    if GetKeyState("F11", "P") {
        Break
    }

    grabObject(Item1, ItemTarget)
    shiftGrabObject(Catalyst, CatalystTarget, 1)
    shiftGrabObject(Mat1, MatTarget1, 5)
    shiftGrabObject(Mat2, MatTarget2, 5)
    shiftGrabobject(Mat3, MatTarget3, 5)

    Sleep, 300
    enchant(EnchantClick)
    Loop 152 {
        if GetKeyState("F11", "P") {
            Break
        }
        Sleep, 100
    }
    grabObject(ItemTarget, ItemBackTarget)

}
return

grabObject(obj1, obj2) {
    MouseClickDrag, L, obj1.X, obj1.Y, obj2.X, obj2.Y, 5
    Sleep, 10
}

shiftGrabObject(obj1, obj2, key)
{
    Send, {shift down}
    Sleep, 10
    MouseClickDrag, L, obj1.X, obj1.Y, obj2.X, obj2.Y, 5
    Sleep, 10
    Send, {shift up}
    Sleep, 10
    Send, {%key%}
    Sleep, 10
    Send, {ENTER}
    Sleep, 10
}

enchant(obj) {
    x := obj.X
    y := obj.Y
    Click %x%, %y%
}