IfColor 539,354,219a9c,2 LeftClick 1 Delay 3000 Goto 回城 EndIf EndIf EndIf Goto 范围 EndIf Goto 找怪 Else Goto 打怪 EndIf //此段通过鼠标位置和找到怪时保存的鼠标位置进行对比,防止找到的是打不到的怪,而被其他怪打死,如果鼠标位置相同说明找到的怪为打不到的怪,然后回挂机点,途中进行角色死亡检测,回挂机点后继续找怪,如果鼠标位置不相同,则继续打怪 Else Rem 补杀 IfColor 293,66,101873,2 KeyPress 49,1 Delay 100 Gosub 红蓝 Goto 补杀 EndIf KeyPress 49,1 Delay 100 KeyPress 50,1 Delay 100 KeyPress 53,1 Delay 500 EndIf //此段为循环打怪后的补杀和拣物 EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf EndIf Goto 找怪 //打完怪后继续找怪 Rem 卷轴 Delay 50 IfColor 334,754,aee7,2 Delay 50 KeyPress 121,1 Delay 3000 Goto 回城 EndIf Goto 找怪 //无红药时进行回城卷轴判断,有则回城,无则继续挂机,直到死亡回城 Rem 回城 Delay 5000 KeyPress 9,1 //TAB键调出大地图 Delay 2000 Rem 药商 MoveTo 634,426 //鼠标移动到大地图上代表药品商人NPC的红点 Delay 1000 LeftClick 1 Delay 5000 //前往药品商人 MoveTo 291,154 Delay 5000 VBSCall FindColorEx(625,416,644,436,"00ebef",1,0.8,xa,ya) If xa>0 and ya>0 Gosub 修理 Gosub 卖物 Gosub 买药 Else Goto 药商 EndIf //通过颜色查找判定角色是否到达药品商人处,如果到达调用修理、卖物、买药子程序 Delay 2000 Gosub 天鹰 Delay 100 Goto 找怪 //调用回挂机地图子程序,随挂机地图不同而改变,自己可以用按键录制,回到挂机点后继续挂机 Sub 红蓝 Delay 50 IfColor 145,67,0010d6,1 KeyPress 113,1 Delay 50 EndIf IfColor 78,77,944d31,1 KeyPress 114,1 Delay 100 KeyPress 116,1 Delay 50 EndIf Return 红蓝 //+红+蓝子程序 Sub 快红 Delay 50 IfColor 111,67,0010d6,1 KeyPress 115,1 Delay 50 EndIf