//已改
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