Sub 选择 t = 0 While t = 0 Delay 1000 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 MoveTo LX, LY End Sub Sub 接受 t = 0 While t = 0 Delay 1000 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 MoveTo LX, LY End Sub Sub 人物 t = 0 While t=0 Delay 1000 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 Else FindPic LX,LY,RX,RY,"Attachment:\人物.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY LeftClick 1 Delay 1000 End If End If Wend MoveTo LX, LY End Sub Sub 返回 Delay 1000 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 MoveTo LX, LY End Sub Sub 狮 t = 0 While t = 0 Delay 1000 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 MoveTo LX, LY End Sub Sub 蛇 t = 0 While t = 0 Delay 1000 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 MoveTo LX, LY End Sub Sub 猴 t = 0 While t = 0 Delay 1000 FindPic LX,LY,RX,RY,"Attachment:\猴.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY LeftClick 1