intX1 = - 1 intY1 = - 1 If intX1 >= 0 and intY1 >= 0 Then Call Plugin.Bkgnd.LeftClick(hwnd, 383, 328) Delay 1000 Call Plugin.Bkgnd.KeyPress(hwnd, 123) Delay 1000 Call Plugin.Bkgnd.LeftClick(hwnd, 25, 207) Delay 1000 Call Plugin.Bkgnd.LeftClick(hwnd,70,368) Delay 1000 Call Plugin.Bkgnd.LeftClick(hwnd, 25, 207) Delay 1000 Call Plugin.Bkgnd.LeftClick(hwnd,72,250) Delay 10000 Call Plugin.Bkgnd.KeyPress(hwnd, 123) End If End Sub Sub 是否死亡 intX0 = - 1 intY0 = - 1 If intX0 > 0 And intY0 > 0 Then Call Plugin.Bkgnd.LeftClick(hwnd, intX0 + 10, intY0 + 8) Delay 5000 Call 修理() Call 选择起点() End If End Sub Sub 修理 Call Plugin.Bkgnd.KeyPress(hwnd, 123) Delay 100 Call Plugin.Bkgnd.KeyPress(hwnd, 77) Call Plugin.Bkgnd.LeftClick(hwnd, 442, 226) Delay 2000 Rem PD1 Color = Plugin.BkgndColor.GetPixelColor(hwnd, 442, 226) If Color = "14090388" Then Delay 500 Goto PD1 End If Call Plugin.Bkgnd.KeyPress(hwnd, 123) Call Plugin.Bkgnd.LeftClick(hwnd, 476, 275) Delay 500 Call Plugin.Bkgnd.LeftDoubleClick(hwnd, 476,275) Delay 2000 Call Plugin.Bkgnd.LeftClick(hwnd, 439, 197) Delay 2000 Call Plugin.Bkgnd.LeftClick(hwnd, 491,311) Delay 2000 Call Plugin.Bkgnd.LeftClick(hwnd, 444, 221) End Sub Sub 选择起点 Call 判断当前地图() //TracePrint "siwangdian:" & siwangdian //TracePrint "ditu:" & ditu //TracePrint "cyzsw:" & cyzsw If siwangdian = 0 Then If ditu = "五行天龙阵" Then If cyzsw = 0 Then Call 脱离卡死离开天龙() Else Call 走出天龙() End If End If Goto 天龙阵入口 ElseIf siwangdian = 1 Then If ditu = "天龙阵入口" Then Call 走进天龙() End If Goto BOSS宁仲德 ElseIf siwangdian = 2 Then If ditu = "天龙阵入口" Then Call 走进天龙() End If Goto BOSS司马伯道 ElseIf siwangdian = 3 Then If ditu = "天龙阵入口" Then Call 走进天龙() End If Goto BOSS垄都 ElseIf siwangdian = 4 Then If ditu = "天龙阵入口" Then Call 走进天龙() End If Goto BOSS夏侯云冲 ElseIf siwangdian = 5 Then If ditu = "天龙阵入口" Then Call 走进天龙() End If Goto BOSS程志远 End If End Sub Sub 小地图走路(X0, Y0, Color0) If zhiye =2 Then Call 释放技能(intXJn1, intYJn1, time1, 10,200) ElseIf zhiye = 3 Then