Sub 选择
    t = 0
    While t = 0
        Delay 600
        FindPic LX,LY,RX,RY,"Attachment:\选择.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
            MoveTo intX, intY
            LeftClick 1
            t = 1
        End If
    Wend
End Sub

Sub 接受
    t = 0
    While t = 0
        Delay 600
        FindPic LX,LY,RX,RY,"Attachment:\接受.bmp",1,intX,intY
        If intX> 0 And intY> 0 Then
            MoveTo intX, intY
            LeftClick 1
            t=1
        End If
    Wend
End Sub

Sub 人物
    t = 0
    While t=0
        Delay 600
        FindPic LX,LY,RX,RY,"Attachment:\人物.bmp",1.0,intX,intY
        If intX > 0 And intY > 0 Then 
            MoveTo intX, intY
            LeftClick 1
            t=1
        End If
    Wend
    Call npc
End Sub

Sub npc
    t=0
    While t = 0
        Delay 600
        FindPic LX,LY,RX,RY,"Attachment:\npc.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
            MoveTo intX, intY
            LeftClick 1
            t = 1
        End If
    Wend
End Sub

Sub 返回
    Delay 600
    t=0
    While t = 0	
        Delay 600
        FindPic LX,LY,RX,RY,"Attachment:\返回.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
            MoveTo intX, intY
            LeftClick 1
            t = 1
        End If
    Wend
End Sub

Sub 狮
    t = 0
    While t = 0
        Delay 600
        FindPic LX,LY,RX,RY,"Attachment:\狮.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
            MoveTo intX, intY
            LeftClick 1
            t=1
        End If
    Wend
End Sub

Sub 蛇
    t = 0
    While t = 0
        Delay 600
        FindPic LX,LY,RX,RY,"Attachment:\蛇.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
            MoveTo intX, intY
            LeftClick 1
            t=1
        End If
    Wend
End Sub

Sub 猴
    t = 0
    While t = 0
        Delay 600
        FindPic LX,LY,RX,RY,"Attachment:\猴.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
            MoveTo intX, intY