i=i+1
        Delay 500
        Goto A
    End If
    Call Plugin.Bkgnd.LeftClick(hwnd, 702, 429)
    Delay 100
    Call Plugin.Bkgnd.KeyPress(hwnd, 123)
End Sub

Sub 医生治疗
    Call 小地图走路(531,300,14090388)
    Call Plugin.Bkgnd.LeftClick(hwnd, 715, 264)
    Delay 1000
    Call Plugin.Bkgnd.LeftDoubleClick(hwnd, 715, 264)
    Delay 1000
    Call Plugin.Bkgnd.LeftClick(hwnd, 453, 198)
    Delay 100
    Call Plugin.Bkgnd.KeyPress(hwnd, 123)
End Sub

Sub 初始化
    cyzsw = 0 //程远志是否死亡 0：死亡；1：还在
    ditu = "天龙阵入口" //地图标示
    siwangdian = qidian //记录死亡点
    jrfbcs = 0//今天的天龙副本的次数
    Call Plugin.Bkgnd.LeftClick(hwnd, 992, 203)
    Delay 300
    Call Plugin.Bkgnd.LeftClick(hwnd, 253, 468)
    Delay 300
    Call Plugin.Bkgnd.LeftClick(hwnd, 102, 463)
    Delay 300
    If zhiye = 0 Then 
        Call 武将初始化技能坐标()
    ElseIf zhiye = 1 Then
        Call 刺客初始化技能坐标()
    ElseIf zhiye = 2 Then
        Call 谋士初始化技能坐标()
    ElseIf zhiye = 3 Then
        Call 方士初始化技能坐标()
    End If
    Call 查找技能所在坐标("Bj1", bzBjKey1)
    TracePrint "包子_所在坐标：" & intXBj1 & "," & intYBj1
End Sub

Sub 平衡吃包子
    If phbj = 1 Then 
        //血
        Color1 = Plugin.Bkgnd.GetPixelColor(hwnd, 193, 44)
        //蓝
        Color2 = Plugin.BkgndColor.GetPixelColor(hwnd, 196, 55)
        If Color1 = "190073" Or Color2 = 14658104 Then 
            Call Plugin.Bkgnd.LeftDoubleClick(hwnd, intXBj1, intYBj1)
            Delay 200
        End If
    End If
End Sub

Sub 脱离卡死
    Rem AAA
    Call 脱离卡死离开天龙()
    If zhiye =2 Then 
        Call 释放技能(intXJn1, intYJn1, time1, 10,200)
    ElseIf zhiye = 3 Then
        Call 释放技能(intXJn1, intYJn1, time1, 120,500)
    End If
    Call 判断当前地图()
    If ditu = "五行天龙阵" Then 
        Goto AAA
    End If
End Sub