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