Dim mhy
Dim mqx
Dim mmx
mhy=94
mqx=446
mmx=526
Plugin jb=Window.Find(0,"XYDClient")
If jb>0
    Plugin Window.Active(jb)
Else 
    VBSCall MessageBox("没有起动游戏！")
EndScript 
EndIf 
IfColor 11,631,82d6,2
    MoveTo 11,631
    Delay 1000
    LeftClick 1
EndIf 
IfColor 233,631,82d6,2
    MoveTo 233,631
    Delay 1000
    LeftClick 1
EndIf 
MoveTo 513,391
Delay 500
LeftClick 1
Delay 2000
KeyPress 49,1
Delay 1000
MoveTo 343,627
Delay 1000
LeftClick 1
Delay 3000
LeftClick 1
Rem 切换窗口
Plugin jb1=Window.Foreground()
If jb<>jb1
    Plugin Window.Active(jb)
EndIf 
IfColor mqx,mhy,212421,2
    MoveTo 343,627
    Delay 1000
    LeftClick 1
    Delay 3000
    LeftClick 1
    Delay 3000
    LeftClick 1
    Delay 1000
EndIf 
IfColor mmx,mhy,9c7500,2
    KeyPress 50,1
    Delay 500
    Rem 找木桩
    VBSCall FindColorEx(200,100,750,650,"9CE7FF",1,1,gx,gy)
    If gx>0
        gx=gx-2
        gy=gy-40
        MoveTo gx,gy
        Delay 2000
        RightClick 1
        Delay 2000
        RightClick 1
        Delay 2000
        RightClick 1
        Delay 2000
        RightClick 1
    EndIf 
EndIf 
Delay 30
Goto 切换窗口