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