/*娱乐游戏-享受生活-大家好-我是《子俊》-------------*/
//作者Q：1285010520               //      承接DNF脚本
Sub Hu_js()
    Dim ThreadIDh   
    ThreadIDh = GetThreadID()
    Select Case ThreadIDh
    Case ID1
        PauseThread ID2
        dm_ret = dm.SetWindowState(hwd, 8)
        dm.EnableBind 0
    End Select
    Delay 200
    i = 0
    Do While i <= 50
        dm.keypress 27
        Delay 500
        if dm.FindStrFast(234,214,523,565,"选择|角色","fff6c9-8f603b|feea88-3d3128|d7a65a-3d3128",0.9,xzX,xzY)=0 Then  Exit Do	 
        Delay 50
        i=i+1
    Loop
    Call Zj_dj(xzX+10, xzY+6, 0, 1, 160, 50, 520)
    Delay 3500
    i = 0
    Do While i<=100 
        If dm.FindStrFast(14, 62, 768, 289, "亮框", "20ffff-08548d|2cffff-144060", 0.9, lkX, lkY) = 0 Then 
            Delay 50
            Exit Do
        ElseIf i > 3 Then
            Call Zj_dj(xzX+10, xzY+6, 0, 1, 220, 50, 520)	
        End If
        i=i+1
    Loop
    nb_n = ("123,246,370,490,618,736")
    ss = split(nb_n, ",")
    n = (jgj_sea - 2)
    If lkX < abs(ss(n)) Then 
        Call Zj_dj(lkX + 138, lkY + 140, 0, 6, 180, 50, 50)
        Delay 2000
    ElseIf lkX > abs(ss(n)) Then
        Call Zj_dj(82, 222, 1, 2, 260, 50, 50)
        dm.KeyPress 13
        Delay 2000    
    End If
    i = 0
    Do While i <= 60
        If dm.FindStrFast(97, 78, 687, 482, "赛", "e6c89b-050505", 0.9, intX, intY) = 0 Then 
            Delay 50
            Exit Do
        Else 
            dm.KeyPress 27
            Delay 1000  
        End If
        i=i+1
    Loop
    Select Case ThreadIDh
    Case ID1
        dm_ret = dm.SetWindowState(hwd, 9)
        dm.EnableBind 1
        dm_ret = dm.SetWindowState(hwnd, 12)
        ContinueThread ID2
    End Select
End Sub
Sub Zj_dj(h_zb, z_zb, mn_fs, zj_cs, mo_de, do_de, up_de)
    If mn_fs1 = 0 Then 
        Delay 50
        dm.MoveTo h_zb, z_zb   
        Delay mo_de
        If zj_cs <> 0 Then    
            For zj_cs   
                dm.LeftDown    
                Delay do_de  
                dm.LeftUp    
                Delay up_de   
            Next    
        End If
    End If
End Sub