//移动延时
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
//读取红药数量