Delay 56
Call Plugin.Bkgnd.LeftClick(Hwnd,910,246)
End if
If wz=3 Then
Delay 56
Call Plugin.Bkgnd.LeftClick(Hwnd,908,302)
Delay 56
Call Plugin.Bkgnd.LeftClick(Hwnd,908,302)
//满足条件,执行下面的脚本
ElseIf wz=4 Then
Delay 56
Call Plugin.Bkgnd.LeftClick(Hwnd,907,353)
Delay 56
Call Plugin.Bkgnd.LeftClick(Hwnd,907,353)
End if
If wz=5 Then
Delay 56
Call Plugin.Bkgnd.LeftClick(Hwnd,910,411)
Delay 56
Call Plugin.Bkgnd.LeftClick(Hwnd,910,411)
End if
timedg=now
//--------------------------------------------------------------------------以下测试部分
// Rem 判断弹出打怪确认窗体
//弹出窗体判断
// Delay 300
// Plugin op = Bkgnd.FindColorEx(Hwnd, 635,383,636,384,"060C0C", 0, 0.96)
// Delay 32
// MyArray1 = Split(op, "|")
// x2 = Clng(MyArray1(0)): y2 = Clng(MyArray1(1))
// If x2>0 and y2>0
// Delay 56
// Rem 重新点击打怪确认
// Plugin Window.SendKeyPress(Hwnd,32)
// Plugin Bkgnd.LeftClick(Hwnd,488,401)
//防止延时未点到
// Delay 256
// Plugin Window.SendKeyPress(Hwnd,32)
// Plugin Bkgnd.LeftClick(Hwnd,488,401)
//判断打怪确认窗口是不是没点到还在
// Else
// Plugin Window.SendKeyPress(Hwnd,32)
// Plugin Bkgnd.LeftClick(Hwnd,488,401)
//防止延时未点到
// Delay 256
// Plugin Window.SendKeyPress(Hwnd,32)
// Delay 256
// Goto 打怪开始2
// EndIf
//----------------------------------------------------------------------------以上测试部分
Delay 500
Call Plugin.Window.SendKeyPress(Hwnd,32)
Delay 56
Call Plugin.Window.SendKeyPress(Hwnd,32)
If yys=1 Then
Delay 56
Call 关闭打怪界面()
Else
Goto d
End if
Rem d
//下面这句按(从左到右从上到下的顺序找色)模糊查找窗口句柄(变量:Hwnd)窗口的指定矩形区域内指定颜色
Call 复活()
Delay 256
XY = Plugin.Bkgnd.FindColorEx(Hwnd, 509,436, 512,438, "020149", 0, 0.96)
//下面这句用于分割字符串0
Delay 32
MyArray = Split(XY, "|")
//下面这句将字符串转换成数值
x = Clng(MyArray(0)): y = Clng(MyArray(1))
Delay 23
If x>0 and y>0 Then
//颜色一样
Call Plugin.Bkgnd.LeftClick(Hwnd,541,437)
Delay 256
Call Plugin.Bkgnd.LeftClick(Hwnd,541,437)
Delay 256
Else
Delay 500
Call 时间判断()
Goto d
//颜色不一样
End if
End Sub
//通过判断表达式的取值,来执行后面的动作或控制
//循环小延时,防止出现CPU使用率过高,脚本卡x
//补血延时
//---------------------------------------加血
Sub 加血()
Delay 300
//---------------------------------判断是否为空血
mn = Plugin.Bkgnd.FindColorEx(Hwnd, inx,iny, inx+1,iny+1,inz, 0, 0.95)
Delay 32
MyArray = Split(mn, "|")
x = Clng(MyArray(0)): y = Clng(MyArray(1))
Delay 256
If x>0 and y>0 Then
//-------------------------------点击人物打开人物属性
Call Plugin.Bkgnd.LeftClick(Hwnd,581,406)
Delay 256