Delay 500
                        End If
            End If
            FindPic 0,0,1440,900,"Attachment:\熟练度.bmp",0.9,sxdX,sxdY
If sxdX > 0 And sxdY > 0 Then
            Goto 房间
                        End If
        End If
Rem 移动
FindPic 0,0,1440,900,"Attachment:\格子.bmp",0.5,gzX,gzY
If gzX > 0 And gzY > 0 Then
    KeyPress "W", 1
    Delay 100
    KeyDown "W", 1
    Delay 5500
End If
        FindPic 0,0,1440,900,"Attachment:\4.bmp",0.7,hpX,hpY
If hpX > 0 And hpY > 0 Then
                                                                            MoveTo 507, 444
    Delay 100
                                                                            MoveTo 507, 417
    Delay 100
                                                                            MoveTo 507, 420
    KeyPress "W", 1
    Delay 100
    KeyDown "W", 1
    RightDown 1
    KeyPress "2", 1
    Delay 1000
                                                                                MoveTo 507, 420
    KeyUp "W", 1
            Call AT()
    Delay 100
    KeyUp "3", 1
    Delay 350
                    Call AT()
    RightUp 1
    Delay 100
    End If
        FindPic 0,0,1440,900,"Attachment:\4.bmp",0.7,hpX,hpY
If hpX > 0 And hpY > 0 Then
                                                                            MoveTo 507, 444
    Delay 100
                                                                            MoveTo 507, 417
    Delay 100
                                                                            MoveTo 507, 420
    KeyPress "W", 1
    Delay 100
    KeyDown "W", 1
    RightDown 1
    KeyPress "2", 1
    Delay 1000
                                                                                MoveTo 507, 420
    KeyUp "W", 1
            Call AT()
    Delay 100
    KeyUp "3", 1
    Delay 350
                    Call AT()
    Delay 100
    KeyDown "1", 1
    Delay 350
    LeftClick 1
                        Call AT()
    Delay 100
    RightUp 1
    End If
        FindPic 0,0,1440,900,"Attachment:\4.bmp",0.7,hpX,hpY
If hpX > 0 And hpY > 0 Then
    KeyPress "R", 1
    Delay 500
                                                                            MoveTo 507, 444
    Delay 100
                                                                            MoveTo 507, 417
    Delay 100
                                                                            MoveTo 520, 420
        Delay 100
    RightDown 1
    KeyPress "2", 1
    Delay 1000
                                                                                MoveTo 507, 420
    KeyUp "W", 1
            Call AT()
    Delay 100
    KeyUp "3", 1
    Delay 350
                    Call AT()
    Delay 100
    KeyDown "1", 1
    Delay 350
    LeftClick 1
                        Call AT()
    Delay 100
    RightUp 1
    Goto 移动
    End If
    Sub AT()
        FindPic 0,0,1440,900,"Attachment:\4.bmp",0.7,hpX,hpY
If hpX > 0 And hpY > 0 Then
    FindColorEx hpX-207,hpY-390,hpX-195,hpY-384,"9BF4CF",1,0.5,itX,itY