POE_AutoItem

Hwnd = Plugin.WINDOW.MousePoint()
CALL Plugin.WINDOW.Move(Hwnd, 0, 0)
CALL Plugin.WINDOW.Top(Hwnd, 0)
DIM X
DIM Y
DIM number
number = Array("0", "0","0", "0", "0", "0", "0", "0","0","0")
DIM pos_X
pos_X = Array(44, 75, 110, 142, 176, 208, 240, 272, 304, 334)
DIM pos_Y
pos_Y = Array(110,111,112,107,110,110,110,110,110,110)
///////////////////////////主程式////////////////////////////////////////
DO
    FOR 10
        IF Form1.CheckBox1.Value = 1 AND number(0) = 0 THEN
            X=0
            EXIT FOR
        ELSEIF Form1.CheckBox2.Value = 1 AND number(1) = 0 THEN
            X=1
            EXIT FOR
        ELSEIF Form1.CheckBox3.Value = 1 AND number(2) = 0 THEN
            X=2
            EXIT FOR
        ELSEIF Form1.CheckBox4.Value = 1 AND number(3) = 0 THEN
            X=3
            EXIT FOR
        ELSEIF Form1.CheckBox5.Value = 1 AND number(4) = 0 THEN
            X=4
            EXIT FOR
        ELSEIF Form1.CheckBox6.Value = 1 AND number(5) = 0 THEN
            X=5
            EXIT FOR
        ELSEIF Form1.CheckBox7.Value = 1 AND number(6) = 0 THEN
            X=6
            EXIT FOR
        ELSEIF Form1.CheckBox8.Value = 1 AND number(7) = 0 THEN
            X=7
            EXIT FOR
        ELSEIF Form1.CheckBox9.Value = 1 AND number(8) = 0 THEN
            X=8
            EXIT FOR
        ELSEIF Form1.CheckBox10.Value = 1 AND number(9) = 0 THEN
            X=9
            EXIT FOR
        END IF
    NEXT
    MoveTo pos_X(X),pos_Y(X)
    LeftClick 1
    number(X) = 1


    IF Form1.OptionBox1.Value = 1 THEN
        CALL 知識卷軸
    ELSEIF Form1.OptionBox2.Value = 1 THEN
        CALL 傳送卷軸
    ELSEIF Form1.OptionBox3.Value = 1 THEN
        CALL 幻色石
    ELSEIF Form1.OptionBox4.Value = 1 THEN
        CALL 工匠石
    ELSEIF Form1.OptionBox5.Value = 1 THEN
        CALL 改造石
    END IF


    Y = Y + 1
    WHILE Y = 10
        EXIT DO
    WEND
    Delay 500
LOOP
CALL Plugin.WINDOW.Top(Hwnd, 1)
MessageBox "領取完畢"
////////////////////////////副程式////////////////////////////////////////
SUB 知識卷軸
    DO
        FindPic 18, 119, 370,472, "Attachment:\smart.bmp", 0.5, intX, intY
        TracePrint intx
        TracePrint intY
        IF intX > 0 AND intY > 0 THEN
            MoveTo intX, intY
            KeyDown "Ctrl", 1
            LeftClick 1
            Delay 100
        ELSE
            EXIT DO
        END IF
            Delay 100
        KeyUp "Ctrl", 1
    LOOP
END SUB
SUB 傳送卷軸
    DO
        FindPic 18, 119, 370,472, "Attachment:\to.bmp", 0.5, intX, intY
        TracePrint intx
        TracePrint intY
        IF intX > 0 AND intY > 0 THEN
            MoveTo intX, intY
            KeyDown "Ctrl", 1
            LeftClick 1
            Delay 100
        ELSE
            EXIT DO
        END IF
    LOOP
    KeyUp "Ctrl", 1
END SUB
SUB 幻色石
    DO
        FindPic 18, 119, 370,472, "Attachment:\Color.bmp", 0.4, intX, intY
        TracePrint intx
        TracePrint intY
        IF intX > 0 AND intY > 0 THEN
            MoveTo intX, intY
            KeyDown "Ctrl", 1
            LeftClick 1
            Delay 100
        ELSE
            EXIT DO
        END IF
    LOOP
    KeyUp "Ctrl", 1
END SUB
SUB 工匠石
    DO
        FindPic 18, 119, 370,472, "Attachment:\make.bmp", 0.8, intX, intY
        TracePrint intx
        TracePrint intY
        IF intX > 0 AND intY > 0 THEN
            MoveTo intX, intY
            KeyDown "Ctrl", 1
            LeftClick 1
            Delay 100
        ELSE
            EXIT DO
        END IF
    LOOP
    KeyUp "Ctrl", 1
END SUB
SUB 改造石
    DO
        FindPic 18, 119, 370,472, "Attachment:\alter.bmp", 0.4, intX, intY
        TracePrint intx
        TracePrint intY
        IF intX > 0 AND intY > 0 THEN
            MoveTo intX, intY
            KeyDown "Ctrl", 1
            LeftClick 1
            Delay 100
        ELSE
            EXIT DO
        END IF
    LOOP
    KeyUp "Ctrl", 1
END SUB