If c1=c2 Delay 500 Goto npc EndIf MoveTo 836,609 Delay 800 RightClick 1 Delay 500 MoveTo 836,575 Delay 300 LeftClick 1 Delay 4000 MoveTo 581,206 Delay 1500 LeftClick 1 Delay 4000 Gosub goout Else // VBSCall call messagebox("") EndIf Return //************************出城主程********************** Sub goout Gosub goto1 Gosub goto2 Gosub goto3 Gosub goto4 Gosub goto5 Gosub goto6 Gosub goto7 Gosub goto8 Return //************************出城子程,共有8个********************** Sub goto1 VBSCall FindColorEx(690,235,744,265,"102c42",1,0.9,x,y) If x >0 and y>0 Delay 100 MoveTo x,y Delay 500 LeftDoubleClick 1 Delay 30000 Else EndIf Return Sub goto2 VBSCall FindColorEx(726,270,755,298,"217584",1,0.8,x,y) If x >0 and y>0 Delay 100 MoveTo x,y Delay 500 LeftDoubleClick 1 Delay 20000 EndIf Return Sub goto3 VBSCall FindColorEx(799,284,828,298,roadcolor,1,0.9,x,y) If x >0 and y>0 Delay 100 MoveTo x,y Delay 500 LeftDoubleClick 1 Delay 20000 EndIf Return Sub goto4 VBSCall FindColorEx(766,296,792,320,roadcolor,1,0.6,x,y) If x >0 and y>0 Delay 100 MoveTo x,y Delay 500 LeftDoubleClick 1 Delay 20000 EndIf Return Sub goto5 VBSCall FindColorEx(755,301,795,322,pathtree,1,0.6,x,y) If x >0 and y>0 Delay 100 MoveTo x,y Delay 500 LeftDoubleClick 1 Delay 30000 EndIf Return Sub goto6 VBSCall FindColorEx(750,263,784,292,pathtree,1,0.6,x,y) If x >0 and y>0 Delay 100 MoveTo x,y Delay 500 LeftDoubleClick 1 Delay 10000 EndIf Return Sub goto7 VBSCall FindColorEx(750,263,784,292,pathtree,1,0.6,x,y) If x >0 and y>0 Delay 100 MoveTo x,y Delay 500