PutAttachment .\plugin *.dll

UserVar caijileibie=DropList{其他采集:0|挖奎宿:1}=0 采集类别

UserVar caijifangshi=DropList{受伤上宠:0|免伤工具采集:1}=0 采集方式

Plugin hwnd=WindowEx.EnumWindowA(0,"寻仙",0,65536)

UserVar jx=4 窗口间切换间隔(秒)

Gosub 初始化

VBS i=0

While 1=1

    For Gnum

        Gosub 采集

        VBS i=((i+1)mod Gnum)

        Delay jx*1000

    EndFor 

EndWhile 

Rem 结束标记

EndScript 

Sub 采集

    Plugin WindowEx.SetWindowState(hwnd(i),1)

    Plugin WindowEx.SetWindowState(hwnd(i),7)

    Delay 2222

    Plugin WindowEx.MoveWindow(hwnd(i),dx,dy)

    Delay 2222

    x=1:y=1

    While x>=0 and y>=0

        VBSCall Call FindPic(400,330,500,400,"Attachment:\取消.bmp",0.8,x,y)

        If x>=0 and y>=0

            MoveTo x+6 y+6

            Delay 20

            LeftClick 1

            Delay 20

            MoveR 20,20

            Delay 222

        EndIf 

    EndWhile 

    VBSCall Call FindPic(250,150,300,220,"Attachment:\装备栏.bmp",0.8,x,y)

    If x<0 and y<0

        KeyPress 67,1

    EndIf 

    Delay 111

    If caijileibie=1

        VBSCall FindPic(660,180,720,280,"Attachment:\物品栏.bmp",0.8,x,y)

        If x>=0 and y>=0

        Else 

            KeyPress 66,1

        EndIf 

    EndIf 

    Delay 111

    If caijifangshi=0

        IfColor 56,455,fefefe,0

            KeyPress 55 1