Delay 500
SayString "123"
Delay 500
KeyPress "Enter", 1
Delay 500
KeyPress "Esc", 1
Delay 500
End If
    IfColor ddX-272,ddY-162,"AD4000",0 Then
    MoveTo ddX-272, ddY-162
        Delay 500
LeftDoubleClick 1
Delay 500
SayString "123"
Delay 500
KeyPress "Enter", 1
Delay 500
KeyPress "Esc", 1
Delay 500
End If
    IfColor ddX-272,ddY-133,"AD4000",0 Then
    MoveTo ddX-272, ddY-133
        Delay 500
LeftDoubleClick 1
Delay 500
SayString "123"
Delay 500
KeyPress "Enter", 1
Delay 500
KeyPress "Esc", 1
Delay 500
End If
    IfColor ddX-272,ddY-104,"AD4000",0 Then
    MoveTo ddX-272, ddY-104
        Delay 500
LeftDoubleClick 1
Delay 500
SayString "123"
Delay 500
KeyPress "Enter", 1
Delay 500
KeyPress "Esc", 1
Delay 500
End If
    IfColor ddX-272,ddY-75,"AD4000",0 Then
    MoveTo ddX-272, ddY-75
        Delay 500
LeftDoubleClick 1
Delay 500
SayString "123"
Delay 500
KeyPress "Enter", 1
Delay 500
KeyPress "Esc", 1
Delay 500
End If
    IfColor ddX-272,ddY-46,"AD4000",0 Then
    MoveTo ddX-272, ddY-46
        Delay 500
LeftDoubleClick 1
Delay 500
SayString "123"
Delay 500
KeyPress "Enter", 1
Delay 500
KeyPress "Esc", 1
Delay 500
End If
End If
    Next
FindPic 0,0,1440,900,"Attachment:\创造房间.bmp",0.9,czX,czY
If czX > 0 And czY > 0 Then
MoveTo czX, czY
    Delay 500
    LeftClick 1
    Delay 500
    FindPic 0,0,1440,900,"Attachment:\创造房间1.bmp",0.9,czyX,czyY
If czyX > 0 And czyY > 0 Then
    MoveTo czyX+118, czyY+110
        For 50
        FindPic 0,0,1440,900,"Attachment:\沙漠.bmp",0.9,smX,smY
If smX > 0 And smY > 0 Then
            Goto 沙漠
Else
        LeftClick 1
                    Delay 200
End If
            Next
        Rem 沙漠
        MoveTo czyX+307, czyY+55
        Delay 300
        LeftClick 1
        Delay 300
        KeyPress "BackSpace", 25
        Delay 300
        SayString "BD 123"
        Delay 300
        MoveTo czyX+307, czyY+82
        Delay 300
        LeftClick 1