Call 释放技能(intXJn1, intYJn1, time1, 120,500)
    End If
    Call Plugin.Bkgnd.KeyPress(hwnd, 123)
    Delay 50
    Call Plugin.Bkgnd.KeyPress(hwnd, 77)
    Delay 500
    Call Plugin.Bkgnd.LeftClick(hwnd, X0, Y0)
    Delay 50
    i=0
    Rem A
    Color1 = Plugin.BkgndColor.GetPixelColor(hwnd, X0, Y0)
    If Color1 = Color0 And i < 100 Then 
        i = i + 1
        If i = 15 or i = 30 or i = 45 or i = 60 or i = 75 or i = 90 Then 
            Call Plugin.Bkgnd.LeftClick(hwnd, X0, Y0)
            Delay 50
        End If
        Delay 500
        Goto A
    End If
    Call Plugin.Bkgnd.KeyPress(hwnd, 123)
    Call 异常判断()
End Sub

Sub 走进天龙
    Call 小地图走路(590,191,16777215)
    Delay 5000
End Sub


Sub 走出天龙
    Call 小地图走路(233,412,16777215)
    Delay 5000
End Sub

Sub 脱离卡死离开天龙
    Call 小地图走路(475,371,3089185)
    Call Plugin.Bkgnd.KeyPress(hwnd, 123)
    Delay 1500
    Call Plugin.Bkgnd.KeyPress(hwnd, 85)
    Delay 1500
    Call Plugin.Bkgnd.LeftClick(hwnd, 498, 280)
    Delay 5000
End Sub

Sub 打程远志()
    Call 异常判断()
    If laczy = "0" Then 
        If zhiye =2 Then 
            Call 释放技能(intXJn1, intYJn1, time1, 10,200)
        ElseIf zhiye = 3 Then
            Call 释放技能(intXJn1, intYJn1, time1, 120,500)
        End If
        Call Plugin.Bkgnd.KeyPress(hwnd, 123)
        Delay 100
        Call Plugin.Bkgnd.KeyPress(hwnd, 90)
        Delay 6000
        Call Plugin.Bkgnd.KeyPress(hwnd, 90)
        If zhiye =2 Then 
            Call 释放技能(intXJn1, intYJn1, time1, 10,200)
        ElseIf zhiye = 3 Then
            Call 释放技能(intXJn1, intYJn1, time1, 120,500)
        End If
        For 5
            Call Plugin.Bkgnd.LeftClick(hwnd, 372,387)
            Delay 5000
        Next
    End If
    Call 打程远志判断()
    If bossbj = 1 Then 
        Call 补给()
    End If
    Call 小地图走路(349, 486, 2107534)
    If laczy = "1" Then 
        Delay 5000
    End If
    Call 异常判断()
End Sub

Sub 打普通怪
    Call Plugin.Bkgnd.KeyPress(hwnd, 123)
    Delay 200
    Call Plugin.Bkgnd.KeyPress(hwnd, 90)
    Rem AA
    Color0 = Plugin.Bkgnd.GetPixelColor(hwnd, 526, 14)
    If siwangdian = 3 Then 
        If Color0 = "0000FF" Then 
            Call 打怪()
            Goto AA
        End If
    Else
        Color1 = Plugin.Bkgnd.GetPixelColor(hwnd, 436, 61)
        If Color0 = "0000FF" Or Color1 = "D6D6D6" Then 
            Call 打怪()
            Goto AA
        End If
    End If
    Call Plugin.Bkgnd.KeyPress(hwnd, 123)
    Call 异常判断()
End Sub