Rem 第二次44
Delay 1000
VBSCall Shape=GetCursorShape(0)
If shape = shape1
    Goto 采集114
Else 
    Delay 500
    MoveTo 845,635
    Goto 第二次34
EndIf 
//--------------------------------------------------------
Rem 第二次34
Delay 1000
VBSCall Shape=GetCursorShape(0)
If shape = shape1
    Goto 采集114
Else 
    Delay 500
    MoveTo 227,650
    Goto 第二次334
EndIf 
//----------------------------------
Rem 第二次334
Delay 1000
VBSCall Shape=GetCursorShape(0)
If shape = shape1
    Goto 采集114
Else 
    VBSCall GetScreenResolution(fx,fy)
    VBS x0=fx/2:n=1:y0=fy/2
    While n<77
        VBS x=x0+4*(cos(n)+n*sin(n))
        VBS y=y0+3*(sin(n)-n*cos(n))
        MoveTo x,y
        Delay 100
        VBS n=n+0.8
        VBSCall Shape=GetCursorShape(0)
        Shape1 = 507365973
        If shape = shape1
            Delay 1
            Goto 采集114
        EndIf 
        KeyPress 65,1
    EndFor 
    VBS x1=fx/2:n=77:y1=fy/2
    While n>1
        VBS x=x1+4*(cos(n)+n*sin(n))
        VBS y=y1+3*(sin(n)-n*cos(n))
        MoveTo x,y
        Delay 100
        VBS n=n-0.8
        Shape1 = 507365973
        If shape = shape1
            Delay 1
            Goto 采集114
        EndIf 
        KeyPress 65,1
    EndFor 
EndIf 
//--------------------
Rem 采集114
Delay 500
LeftClick 1
Delay 20000
//判断采集第一次
Rem 点一次44
IfColor 428,669,a0de,2
    Delay 1000
    Goto 点一次44
Else 
    Goto 到NPC面前
EndIf 
//-----------------------