//请看脚本注释查看详细设置,以保证脚本稳定运行
VBS dim time
VBSCall GetScreenResolution(X,Y)
VBS ScreenWidth=X
VBS ScreenHeight=Y
//玩家设置区域
VBS X0=10
VBS Y0=80
VBS X1=300
VBS Y1=420
VBS time=200
VBS DoubleP=0
VBS n=15
Rem 丢弃
VBS dim color(22)
//紫砂石
VBS color(0)="E766A1"
//黄砂石
VBS color(1)="48AED3"
//褐砂石
VBS color(2)="0000B1"
//赤砂石
VBS color(3)="5F80FA"
//蓝砂石
VBS color(4)="FF9C39"
//白砂石
VBS color(5)="E1E1E1"
//晶石
VBS color(6)="6053B2"
//菱石
VBS color(7)="7564A5"
//矩石
VBS color(8)="7F71BB"
//御石
VBS color(9)="849187"
//跃石
VBS color(10)="70697D"
//锭石
VBS color(11)="977068"
//鳞石
VBS color(12)="738D9C"
//铁石
VBS color(13)="3288B1"
//土石
VBS color(14)="6594AC"
//田石
VBS color(15)="A0B0BA"
//滑石
VBS color(16)="98A2A8"
//碎石
VBS color(17)="989D9D"
//石英
VBS color(18)="B5BABF"
//山石
VBS color(19)="5E5C54"
//铂金石
VBS color(20)="D9F6FA"
//金石
VBS color(21)="00E1F9"
//银石
VBS color(22)="AFAFAF"
VBS i=0
For n
    VBS m=0
    Rem peck
    If m<4
        VBSCall FindCenterColor(X0,Y0,X1,Y1,color(i),x,y)
        If x>0 and y>0
            MoveTo x,y
            Delay time
            LeftClick 1
            Delay 4*time
            MoveTo ScreenWidth/2,ScreenHeight/2
            Delay 2*time
            LeftClick 1
            Delay 4*time
            VBS m=m+1
            Goto peck
        EndIf 
    EndIf 
    VBS i=i+1
EndFor 
//换角色
If DoubleP=1
    KeyDown 18,1
    KeyPress 9,1
    KeyUp 18,1
    Delay 25*time
EndIf 
Goto 丢弃
EndScript