Else
Goto 杂货店
EndIf
EndIf
Return 检测
Sub 初始化
Rem 包裹
Delay 1000
VBSCall call FindPic(0,0,1280,1024,"Attachment:\wupinlan.bmp",0.9,Wx,Wy)
Delay 100
If Wx>=0 and Wy>=0
If wx<>600 and wy<>154
MoveTo Wx,Wy
Delay 300
LeftDown 1
Delay 300
MoveTo 600,154
Delay 500
LeftClick 1
Delay 100
KeyPress 66,1
Else
KeyPress 66,1
EndIf
Else
KeyPress 66,1
Goto 包裹
EndIf
Delay 1000
//Gosub 检测
//有无任务判断
KeyPress 86,1
Delay 300
IfColor 26,160,cef7ff,0
Delay 100
IfColor 207,161,cef7ff,1
Delay 100
Gosub 炼化师
Gosub 交任务
Gosub 接任务
EndIf
Else
Delay 100
Gosub 炼化师
Gosub 接任务
EndIf
KeyPress 86,1
Delay 100
Gosub 从北到阪
Return 初始化
Sub 死亡判断
Delay 500
IfColor 394,300,cef7ff,0
Delay 100
MoveTo 394,300
Delay 500
LeftClick 1
Delay 1500
Gosub 做任务
Goto 炼化任务
EndIf
Return 死亡判断
Sub 钱
Delay 500
KeyPress 66,1
Delay 300
Plugin Money=DBsoft.OCR(0,607,456,622,465,0,1,11,1,1,"FFFFFF",0,0,0)
Delay 500
Money=cint(Money)
KeyPress 66,1
Delay 300
If money<5
Delay 500
KeyPress 9,1
Delay 500
MoveTo 570,291
Delay 300
LeftClick 1
Delay 100
KeyPress 9,1
Delay 500
Gosub 当前坐标
inputx=214:inputy=226:t1=now:gamex1=cint(gamex1):gamey1=cint(gamey1)
//移动延时
Delay 10000
Gosub 移动
Rem 仓库
Delay 100
VBSCall call FindPic(0,0,1280,1024,"Attachment:\zg.bmp",0.9,zgx,zgy)
Delay 100
If zgx>=0 and zgy>=0
MoveTo zgx,zgy+60
Delay 1000
RightClick 1
Delay 500
MoveTo 564,230
Delay 500
LeftClick 1
Delay 100
MoveTo 123,471