/*
天堂2挂机通用说明
=========================================================
主机分辨率2560*1440
=========================================================
窗口大小统一 1280 * 800
窗口1位置
Call Plugin.Window.Move(Hwnd, -9,-9)
窗口2位置
Call Plugin.Window.Move(Hwnd, 172 , 132 )
窗口3位置
Call Plugin.Window.Move(Hwnd, 353 , 273 )
窗口4位置
Call Plugin.Window.Move(Hwnd, 534 , 414 )
窗口5位置
Call Plugin.Window.Move(Hwnd, 715, 555)
窗口6位置
Call Plugin.Window.Move(Hwnd, 1275, 555)
窗口7位置
Call Plugin.Window.Move(Hwnd, 1275,-9)
=========================================================
主机分辨率2560*1600，其他不变
=========================================================
窗口5位置
Call Plugin.Window.Move(Hwnd, 715 , 695 )
窗口6位置
Call Plugin.Window.Move(Hwnd, 1270,695)
窗口7位置
Call Plugin.Window.Move(Hwnd,1270,-15)
*/
//=========================================================
Hwnd = Plugin.Window.MousePoint()
Call Plugin.Window.SetClientSize(Hwnd, 1280, 800)
MessageBox "召唤1脚本已开始执行"
//移动窗口座标1
Call Plugin.Window.Move(Hwnd,-15,-15)
/*
F1 代码：112备注：选择目标功能，放“下个目标”，需要100-300毫秒切换成功；
F2 代码：113备注：选择目标功能，放“选择星标”，需要100-300毫秒切换成功；
choice_code：放F1或F2的按键代码
F3 代码：114备注：BB攻击+4个印记+单体法术攻击，单体技能，一套3秒
F4 代码：115备注：任意技能，4秒一次
F5 代码：116备注：跟随
F6 代码：117备注：印记1，用于效率挂机脚本
F7 代码：118备注：印记2，用于效率挂机脚本
F8 代码：119备注：印记3，用于效率挂机脚本
F9 代码：120备注：印记4，用于效率挂机脚本
F10 代码：121备注：召BB，每20秒进行一次，需延迟2秒加BB的BF，需调用时间变量tim1进行计算；
F11 代码：122备注：持续技能，痛苦转移，次元光环，脚本开始执行时运行一次。
F12 代码：123备注：BF，每10分钟进行一次，施法7秒，需调用时间变量tim2进行计算
*/
//F12 初始BF
Call Plugin.Bkgnd.KeyPress(Hwnd, 123)
Delay 4000
//F11 持续BF
Call Plugin.Bkgnd.KeyPress(Hwnd, 122)
Delay 2000
Dim tim1, tim2, tim3,tim4，tim5,choice_code,diecode,buffcode,F8code,F9code,count
tim1 = now//重复进行召唤BB操作，被打死后自动召BB并加BF
tim2 = now//固定时间，加一次自行BF
tim3 = now//固定时间，切换目标，防止锁定无价值目标
tim4 = now//F3技能组冷却时间
tim5 = now//F4技能组冷却时间
count = "Count1"
delaytime = Plugin.File.ReadINI(count, "delaytime", "D:/choice_code.txt")//取延迟时间
For i = 0 To 99999999999
Delay delaytime
choice_code = Plugin.File.ReadINI("Command", "Val", "D:/choice_code.txt")//选择按键码
//死亡状态码，如果为0（活），则检查是否死了，如果1（死了），则检查是否活，如果活了补全套BF
diecode = Plugin.File.ReadINI(count, "diecode", "D:/choice_code.txt")
If diecode = 0 Then
TracePrint "进入IsDied检测"
IsDied
End If
If diecode = 1 Then
TracePrint "进入Isalive检测"
Isalive
End If
//立即补BF
buffcode = Plugin.File.ReadINI(count, "buffcode", "D:/choice_code.txt")//状态码 ,补状态
If buffcode = 1 Then
Call Plugin.Bkgnd.KeyPress(Hwnd, 123)//F12 BF
Delay 4000
Call Plugin.File.WriteINI(count, "buffcode", 0, "D:/choice_code.txt")//变更状态码
End If
// 立即执行F8
F8code = Plugin.File.ReadINI(count, "F8code", "D:/choice_code.txt")//F8状态码
If F8code = 1 Then
Call Plugin.Bkgnd.KeyPress(Hwnd, 119)
Delay 1000
Call Plugin.File.WriteINI(count, "F8code", 0, "D:/choice_code.txt")//变更状态码
End If
// 立即执行F9
F9code = Plugin.File.ReadINI(count, "F9code", "D:/choice_code.txt")//F9状态码
If F9code = 1 Then
Call Plugin.Bkgnd.KeyPress(Hwnd, 120)
Delay 1000
Call Plugin.File.WriteINI(count, "F9code", 0, "D:/choice_code.txt")//变更状态码
End If
血条检测点 = Plugin.Bkgnd.GetPixelColor(Hwnd, 575, 28)
蓝条检测点 = Plugin.Bkgnd.GetPixelColor(Hwnd, 575, 37)
标星检测点 = Plugin.Bkgnd.GetPixelColor(Hwnd, 584, 13)
// 有血颜色值 = "13176F"
// 有血颜色值 = "14176F"
// 空血颜色值 = "1A1C30"
// 空血颜色值 = "1A1C31"
//如果有血条
If (血条检测点 = "13176F" or 血条检测点 = "14176F" or 血条检测点 = "1A1C30"or 血条检测点 = "1A1C31") Then
//如果有血有蓝条，是自己或BB，则按选择键
If (蓝条检测点 = "823F05" or 蓝条检测点 = "824006") Then
Call Plugin.Bkgnd.KeyPress(Hwnd, choice_code)
End If
//如果没有蓝条，则是怪
If (蓝条检测点 <> "823F05" and 蓝条检测点 <> "824006") Then
//如果有血，F3攻击后，不切换目标
If (血条检测点 = "13176F" or 血条检测点 = "14176F") Then
Call Plugin.Bkgnd.KeyPress(Hwnd, 113)// F2
Delay 3000
Call Plugin.Bkgnd.KeyPress(Hwnd, 114)// F3
Call Plugin.Bkgnd.KeyPress(Hwnd, 115)// F4
End If
//如果空血，F3攻击后，切换目标
If (血条检测点 = "1A1C30" or 血条检测点 = "1A1C31") Then
Call Plugin.Bkgnd.KeyPress(Hwnd, 113)// F2
Delay 100
Call Plugin.Bkgnd.KeyPress(Hwnd, choice_code)
End If
//每隔几十秒切换一次目标，解决BOSS时不打小怪问题
If DateDiff("s",tim3,now) >= 20 Then
tim3=now
Call Plugin.Bkgnd.KeyPress(Hwnd, choice_code)
End If
End If
//没有上边任何情况，则执行选择目标
Else
Call Plugin.Bkgnd.KeyPress(Hwnd, choice_code)
End If
//如果有标星，则跟随
If (标星检测点 = "A0FCFF") Then
Call Plugin.Bkgnd.KeyPress(Hwnd, 117)// F6
End If
//F9 每20s 按一次 召唤兽
If DateDiff("s",tim1,now) >= 20 Then
tim1=now
Call Plugin.Bkgnd.KeyPress(Hwnd, 121)//F10
Delay 2000
End If
//F10 每25分钟，加一次BF
If DateDiff("s",tim2,now) >= 1500 Then
tim2=now
Call Plugin.Bkgnd.KeyPress(Hwnd, 123)
Delay 3000
End If
Next
Function IsDied
Dim 血条最后一格
血条最后一格 = Plugin.Bkgnd.GetPixelColor(Hwnd, 61, 24)
TracePrint 血条最后一格
If (血条最后一格 = "101863" ) Then
TracePrint "还有血"
Else
TracePrint "空血，已经死啦"
Call Plugin.File.WriteINI(count, "diecode", 1, "D:/choice_code.txt")
End If
End Function
Function Isalive
Dim 生命条最后一格
生命条最后一格 = Plugin.Bkgnd.GetPixelColor(Hwnd, 61, 24)
If (生命条最后一格 = "101863" and diecode = 1) Then
TracePrint "我死而复活啦,补BF"
Call Plugin.File.WriteINI(count, "diecode", 0, "D:/choice_code.txt")
Delay 2000
//F12 初始BF
Call Plugin.Bkgnd.KeyPress(Hwnd, 123)
Delay 4000
//F11 持续BF
Call Plugin.Bkgnd.KeyPress(Hwnd, 122)
Delay 2000
End If
End Function
才与文和
