Delay yc+ 200
        call 修正偏移(366,247)
        Delay yc+ 3100
    Else//点进入游戏
        If DateDiff("s",T进入游戏2,now)>37
            Delay yc+ 500
            Call 关闭游戏
            goto yxsh
        End if   
        Delay yc+ 500
        goto 进入游戏2
    End If//点进入游戏
    T游戏运行=now
    Rem 游戏运行
    FindPic 0,0,804,623,"C:\XYW\游戏运行.bmp",0.8,intX,intY
    If intX > 0 And intY > 0 Then//游戏运行了
        Delay yc+ 500
    Else //游戏运行了
        If DateDiff("s",T游戏运行,now)>17
            Delay yc+ 500
            goto 进入游戏2
        End if
        Delay yc+ 200
        goto 游戏运行        
    End If  //游戏运行了
End Sub

Sub 答题()

FindPic 0,0,1024,768,"C:\XYW\修罗.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Plugin.Media.Beep 2000,2000

MessageBox "出现答题。请答题完在点击确定按钮"

End If



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
    LeftClick 1
    Delay 90