call 移动角落      
End Sub
Sub 修正偏移右键(x,y)
Call 答题
   
   Call ReadMemory(&h005BDB94,2,ncx)
    Delay 2
    Call ReadMemory(&h005BDB98,2,ncy)
    Delay 2 
    If ncx=0 and ncy=0 then



        mx=x-2
        //2是左边框的宽度
        my=y-30
        //30是标题框的宽度
        MoveTo x,y
        SaveMousePos 
        
        Rem second
        Call ReadMemory(&H005bdb68,2,bitx)
        Delay 4
        Call ReadMemory(&h005bdb6c,2,bity)
        Delay 4  
        GetCursorPos cx,cy 
        If cy<=29 or cx<=2 or cx>800 or cy>600 then
            RestoreMousePos 
        End If 
        
        If abs(bitx-mx)<4 and abs(bity-my)<4 then
            Goto complete
        End If 
        If bitx-mx>1 and bity-my>1 then
            MoveR -1,-1
        ElseIf bitx-mx<1 and bity-my<1 then
            MoveR 1,1
        Else 
            If bitx-mx>1 then
                MoveR -1,0
            ElseIf bitx-mx<1 then
                MoveR 1,0
            ElseIf bity-my>1 then
                MoveR 0,-1
            ElseIf bity-my<1 then
                MoveR 0,1
            Else 
                Goto complete
            End If 
        End If 
        Goto second
        Rem complete    
          
    Else
    
      MoveTo x,y
    End if
    Delay 90
    RightClick 1
    Delay 100
    call 移动角落      
End Sub

Sub 小猴子()
    Rem 小猴子1
    FindPic 0,0,807,621,"c:\XYW\小猴子.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        Call 修正偏移右键(intX+50,intY-25)
        Delay yc+ 200
        Goto 小猴子1
    Else 
    End If
End Sub




//去傲来抓怪++
Sub 去傲来抓怪()
    //////////////////////全部通傲来
    Rem 接任务1
    Delay yc+ 500
    Call 识别地图
    If DITU="瑶池" Then //识别地图瑶池111111111111111111111111111111111
 
        call 瑶池去长安 
    ElseIf DITU="长安" Then //识别地图长安22222222222222222222222222222222222222
        
        call  长安去傲来 
    ElseIf DITU="傲来" Then //识别地图傲来33333333333333333333333333333333333333
        rem 抓怪1
        Call 识别地图
        If x=151 and y=146 then
            Call 写坐标(230,136)
            T写坐标1=now
            Goto 抓怪2
        ElseIf x=230 and y=136 then
            Call 写坐标(151,146)
            T写坐标1=now
            Goto 抓怪3