MoveTo 194,590
    //call 修正偏移(194,590)
End Sub
Sub 对话和2()
    Rem 等会
    
    dm_ret = dm.FindStr(0,0,807,621,"等会","08f448-000000",1.0,intX,intY)
    If intX>0 and intY>0 then
        call 修正偏移(intX + 20,intY +9)
        Delay yc+ 200
        Goto 离开
    End if
    Rem 离开
    
    dm_ret = dm.FindStr(0,0,807,621,"离开","08f448-000000",1.0,intX,intY)
    If intX>0 and intY>0 then
        call 修正偏移(intX + 20,intY +9)
        Delay yc+ 200
        Goto 等会
    End if
    
    Rem 对话
    FindPic 0,0,807,621,"C:\XYW\对话.bmp",0.9,intX,intY
    If intX>0 and intY>0 then
        call 修正偏移(intX + 120,intY +29)
        Delay yc+ 200
        Goto 等会
    End if
    
    Call 小猴子
End Sub
Sub 识别门派()
    Call 打开人物
    dm_ret = dm.FindStr(0,0,807,621,"瑶池","e8e8b0-000000",1.0,intX,intY)
    If intX > 0 And intY > 0 Then//进入游戏
        zhiye="瑶池"
 
    End if
    Call 关闭人物
    //    MessageBox zhiye

End Sub
Sub 打开道具1()
    Rem 打开道具1

    FindPic 6,374,185,587,"C:\XYW\物品栏.bmp",1.0,intX,intY
    If intX > 0 And intY > 0 Then//进入游戏
        Call 修正偏移(intX,intY-221)
    Else 
        KeyDown 18, 1
        KeyPress 69, 1
        KeyUp 18, 1
        Delay yc+ 200
        Goto 打开道具1
    end if 

End Sub
Sub 打开道具2()

    Rem 打开道具2

    FindPic 6,374,185,587,"C:\XYW\物品栏.bmp",1.0,intX,intY
    If intX > 0 And intY > 0 Then//进入游戏
        Call 修正偏移(intX+71,intY-219)
    Else 
        KeyDown 18, 1
        KeyPress 69, 1
        KeyUp 18, 1
        Delay yc+ 200
        Goto 打开道具2
    end if 


End Sub
Sub 关闭道具()
    Rem 关闭道具

    FindPic 0,0,807,621,"C:\XYW\物品栏.bmp",1.0,intX,intY
    If intX > 0 And intY > 0 Then//进入游戏
        KeyDown 18, 1
        KeyPress 69, 1
        KeyUp 18, 1
        Delay yc+ 200
        Goto 关闭道具
    Else 

    end if 

End Sub
Sub 打开任务()
    Rem 打开任务1
    Call 对话和2
    FindPic 0,0,807,621,"C:\XYW\任务栏.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then//进入游戏
    Else 
        KeyDown 18, 1
        KeyPress 81, 1
        KeyUp 18, 1
        Delay yc+ 400
        Goto 打开任务1