//请看脚本注释查看详细设置,以保证脚本稳定运行 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