//已改 For 15 MoveTo 5,31 Delay 100 VBSCall FindPic(0,0,646,447,"Attachment:\卖完.bmp",0.9,x,y) If x>0 and y>0 Str="矿已卖完!!!!补充物资" Gosub 日志记录 Delay 100 Goto 下面 EndIf Delay 100 Rem 1 MoveTo x2 y2 Delay 100 LeftClick 1 Delay 100 MoveTo 502,480 Delay 100 LeftClick 1 Delay 600 VBSCall FindPic(0,0,646,447,"Attachment:\不能出售.bmp",0.9,x,y) If x>0 and y>0 MoveTo x y Delay 100 LeftClick 1 Goto 1 EndIf Delay 500 EndFor Delay 100 Rem 下面 KeyPress 27,1 Delay 100 KeyDown 18,1 Delay 100 KeyPress 69,1 Delay 100 KeyUp 18,1 Delay 100 VBSCall FindPic(0,0,643,510,"Attachment:\【包裹】.bmp",0.9,bbbbx,bbbby) If bbbbx>0 and bbbby>0 MoveTo x10,y10 Delay 1000 LeftDoubleClick 1 Delay 100 EndIf VBSCall FindPic(0,0,1024,768,"Attachment:\【FF】.bmp",0.9,x,y) If x>0 and y>0 and Sf=0 Str="尚有回城符,无需购买" Gosub 日志记录 ElseIf x=-1 and y=-1 and Sf=0 Str="尚有回城符,尝试购买" Gosub 日志记录 Mai=1 ElseIf x=-1 and y=-1 and Sf=1 Str="选择不买回城符,将不购买回城符" Gosub 日志记录 Mai=0 EndIf KeyPress 27,1 Delay 100 Rem 杂货摊1 VBSCall FindColorEx(342,222,374,302,"c8a470",1,0.8,x,y) //已改 If x>0 and y>0 MoveTo x y Delay 100 LeftClick 1 Else Gosub 等待 Goto 杂货摊1 EndIf Delay 2000 Rem 看看都 VBSCall FindPic(26,176,646,447,"Attachment:\看看都.bmp",0.9,x,y) If x>0 and y>0 MoveTo x y Delay 100 LeftClick 1 Else Gosub 等待 Goto 看看都 EndIf Delay 1000 Str="购买"&MaiShu&"个宠物药" Gosub 日志记录 MoveTo 490,255 //已改 Delay 100 LeftClick 1 Delay 100 SayString MaiShu MoveTo 502,480 //已改 Delay 100 LeftClick 1 Delay 1000 If Sf=0 and Mai=1 MoveTo 356,293