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