Hwnd = Plugin.Window.Find(0, "地下城与勇士")
Delay 10
Call Plugin.Window.Move(Hwnd, 0, 0)
Delay 10
sRect = Plugin.Window.GetWindowRect(Hwnd)
Delay 10
dim MyArray   
MyArray = Split(sRect, "|")   
x1 = Clng(MyArray(0)): y1 = Clng(MyArray(1))   
x2 = Clng(MyArray(2)) : y2 = Clng(MyArray(3))
SetSimMode 2
Delay 100
Call 开启分解()

Sub 开启分解()
	

For 5
Call 购买腰带()
Delay 100
Call 赛利亚出门()
Delay 100
Call 开启分解机()
Delay 100
MoveToS x1 + 281, y1 + 353
Delay 500
LeftDoubleClickS 1
Call 分解装备()
Delay 1000
MoveToS x1 + 452, y1 + 572
Delay 100
LeftClickS 1
Delay 1000
MoveToS x1 + 392, y1 + 458
Delay 300
LeftClickS 1
Delay 3000
MoveToS x1 + 399, y1 + 547
Delay 300
LeftDoubleClickS 2
Delay 9000
Next
Delay 3000

Call 修理分解机()
Delay 2000
Call 开启分解()
Delay 1000

End Sub
Sub 购买腰带()
    SetSimMode 2
    //点赛利亚
    MoveToS x1+420,y1+295
    Delay 10
    LeftClickS 1
    Delay 10
    //点开物品店
    MoveToS x1+468,y1+346
    Delay 10
    LeftClickS 1
    Delay 10
    //移动到蓝色1500腰带
    MoveToS x1+354,y1+420
    Delay 100
    //购买32次
    For 32
        LeftDoubleClickS 2
        Delay 10
    Next
    Delay 1000
    KeyPressS 27, 1
    Delay 100
End Sub
Sub 赛利亚出门()
    Delay 1000
    SetSimMode 2
    KeyDownS 40, 1
    Delay 7000
    KeyUpS 40, 1
    Delay 1000
End Sub
Sub 开启分解机()
    KeyPressS 187, 1
    Delay 100
    KeyPressS 53, 4	
    Delay 100
    KeyPressS 13, 1
    Delay 100
    MoveToS x1 + 19, y1 + 435
    Delay 888
    LeftClickS 1
    Delay 5000
    MoveToS x1+350,y1+273
    Delay 1000
    LeftDoubleClickS 1
    Delay 100
End Sub
Sub 分解装备()
    Delay 1000