//移动延时 Delay 8000 //。。。。 Gosub 移动 Rem 阪车夫 Delay 500 VBSCall call FindPic(0,0,1280,1024,"Attachment:\chefu.bmp",0.9,x1,y1) If x1>=0 and y1>=0 MoveTo x1-15,y1+73 Delay 500 RightClick 1 Delay 1000 Rem 阪车夫1 //是否出现对话框 Delay 100 IfColor 540,276,ffff,0 Delay 32 MoveTo 595,279 Delay 1000 LeftClick 1 Delay 500 MoveTo 610,327 Delay 1000 LeftClick 1 Delay 4000 Else Goto 阪车夫1 EndIf Else Goto 阪车夫 EndIf Rem 北 Delay 100 //过地图颜色判断 IfColor 670,7,94ffff,1 Delay 32 Goto 北 EndIf Return 从阪到北 Sub 移动 Delay 3000 Plugin gamex=DBsoft.OCR(0,739,5,757,14,0,1,11,1,1,"94FFFF",0,0,0) Delay 100 Plugin gamey=DBsoft.OCR(0,777,5,795,14,0,1,11,1,1,"94FFFF",0,0,0) Delay 300 gamex=cint(gamex):gamey=cint(gamey) If gamex=gamex1 and gamey=gamey1 If abs(InputX-gamex1)>=3 and abs(Inputy-gamey1)>=3 Gosub 移动 EndIf Else gamex1=gamex:gamey1=gamey Gosub 死亡判断 Delay 500 Gosub 移动 EndIf Return 移动 Sub 打怪 //AW打怪技能1,其他职业HOME打怪 If zhiye=2 t1=now Delay 100 Rem 打 Delay 32 //死亡判断 IfColor 213,160,cef7ff,0 Gosub 做任务 Goto 打 EndIf Gosub 死亡判断 //任务完成颜色判断 IfColor 373,347,63ffff,0 Delay 32 KeyPress 48,1 Delay 32 Goto 打怪结束 EndIf //怪物血条判断,是否还继续攻击或换怪打 IfColor 300,42,9aff,0 Delay 32 KeyPress 49,1 Delay 32 Goto 打 Else KeyPress 192,1 Delay 32 Goto 打 EndIf Else KeyPress 36,1 EndIf Rem 打怪结束 Return 打怪 Sub 检测 //0回城9配方8红药7蓝药 Delay 500 //读取回城数量 Plugin Hu0=DBsoft.OCR(0,411,584,433,593,0,1,11,1,1,"FFFF00",0,0,0) Delay 300 //读取红药数量