SetSimMode 2 Redim zb(11, 2)//12件装备的坐标,及是否砸星的当zb(i,2)=7 不砸 Dim xxdj,pyX, pyY, pmK, pmG // xxdj 星星等级,pyX,pyY,窗口起始坐标,pmK,pmG窗口宽度,高度 Hwnd = Plugin.Window.MousePoint() sRect = Plugin.Window.GetWindowRect(Hwnd) pmzb1=Split(sRect,"|") pyX = pmzb1(0) pyY = pmzb1(1) pmK = 932 pmG = 802 If chushihua(pyX,pyY,pmK,pmG) = 1 Then For i = 0 To 5 zb(i, 0) = pyX+39 zb(i, 1) = pyY+319 + (i * 44) Next For i = 6 To 11 zb(i, 0) = pyX+322 zb(i, 1) = pyY+319 + ((i - 6) * 44) Next For izb = 0 To 11 If zb(izb, 2) = 7 Then Goto tiaoguo End If If nazb(izb,pyX,pyY) = 0 Then MsgBox "拿装备失败,请重新开始" EndScript End If Call zaxing(pyX,pyY,pmK,pmG) //Delay 2000 call fangzb(izb,pyX,pyY) Rem tiaoguo Next MsgBox "完成" Else MsgBox"没有找到" & chushihua(pyX,pyY,pmK,pmG) End If EndScript Sub yanshi()//延时 Delay 200 End Sub Function chushihua(pyX,pyY,pmK,pmG)//准备工作 chushihua=1 KeyPress "C", 1 Delay 500 FindPic pyX,pyY,pyX+pmK,pyY+pmG,"Attachment:\云.bmp",0.6,intX,intY If intX > 0 And intY > 0 Then //MsgBox intX & "," & intY MoveTo intX, intY //EndScript Call yanshi() LeftDown 1 Call yanshi() MoveTo pyX+28, pyY+216 Call yanshi() LeftUp 1 Call yanshi() MoveTo pyX+44, pyY+652 Call yanshi() LeftClick 1 Call yanshi() Else chushihua = "人物界面" Exit Function End If //------------------------------------- MoveTo pyX + 936, pyY + 764 Call yanshi() LeftClick 1 Delay 1000 FindPic pyX,pyY,pyX+pmK,pyY+pmG,"Attachment:\新月瓶.bmp",0.6,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY Call yanshi() LeftDown 1 Call yanshi() MoveTo pyX+482, pyY+221 Call yanshi() LeftUp 1 Call yanshi() MoveTo pyX+494, pyY+652 Call yanshi() LeftClick 1 call yanshi() Else chushihua = "新月瓶" Exit Function End If //------------------------------------- KeyPress "B", 1 Delay 1000 FindPic pyX,pyY,pyX+pmK,pyY+pmG,"Attachment:\包裹.bmp",0.6,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY Call yanshi() LeftDown 1 Call yanshi() MoveTo pyX+824, pyY+219 Call yanshi() LeftUp 1