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