KeyPress "Up", 1
Delay 500
KeyPress "Enter", 1
Delay 500
KeyPress "Num 9", 1
Delay 500
End If

GetColor=GetPixelColor(500,130)
If GetColor="4BCEFF" Then
    KeyPress "F2", 1
    Delay 500
            End If
GetColor=GetPixelColor(65,133)
    If GetColor="000000" Then
KeyPress "F2", 1
Delay 500
    KeyPress "Num 7", 1
Delay 500
        End If
        //以上不能改为点到聊天自动凡回
Goto 打
Sub 移动()
FindPic 0,0,1024,768,"Attachment:\帝国.bmp",0.5,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intx+30,inty+10
Delay 50
    LeftClick 1
    Delay 500
LeftDown 1
Delay 500
    MoveTo 50,40
Delay 500
LeftUp 1
Delay 500
End If
End Sub
//子程我没加上去你自己加吧加到标记（打）下一行就得了用完一次册了它。
//记得多带点饲料要放背包第一位多放点