LeftClick 1
Delay 100
KeyUp 17,1
Delay 10000
esle
EndIf
Return
Sub gohome2
VBSCall FindColorEx(744,204,784,228,pathtree,1,0.9,x,y)
If x>0 and y>0
Delay 500
MoveTo x,y
Delay 500
KeyDown 17,1
Delay 100
LeftClick 1
Delay 100
KeyUp 17,1
Delay 10000
EndIf
Return
Sub gohome3
VBSCall FindColorEx(760,177,801,206,"102c42",1,0.6,x,y)
If x>0 and y>0
Delay 500
MoveTo x,y
Delay 500
KeyDown 17,1
Delay 100
LeftClick 1
Delay 100
KeyUp 17,1
Delay 6000
EndIf
Return
Sub gohome4
VBSCall FindColorEx(730,188,755,211,"218a84",1,0.9,x,y)
If x>0 and y>0
Delay 500
MoveTo x,y
Delay 500
KeyDown 17,1
Delay 100
LeftClick 1
Delay 100
KeyUp 17,1
Delay 15000
EndIf
Return
Sub gohome5
VBSCall FindColorEx(761,204,821,232,"102c42",1,0.9,x,y)
If x>0 and y>0
Delay 500
MoveTo x,y
Delay 500
KeyDown 17,1
Delay 100
LeftClick 1
Delay 100
KeyUp 17,1
Delay 30000
EndIf
Return
Sub gohome6
VBSCall FindColorEx(811,231,854,289,"102042",1,0.9,x,y)
If x>0 and y>0
Delay 500
MoveTo x,y
Delay 500
KeyDown 17,1
Delay 100
LeftClick 1
Delay 100
KeyUp 17,1
Delay 20000
EndIf
Return
// *********************找NPC******************
Sub findnpc
Rem npc
VBSCall c1=getpixelcolor(777,347)
Delay 100
VBSCall FindColorex(251,220,397,464,"6b96c6",1,0.9,x,y)
If x >0 and y>0
Delay 100
Goto jump
EndIf
VBSCall FindColorex(251,220,397,464,"e7e3e7",1,0.9,x,y)
If x >0 and y>0
Delay 100
Rem jump
MoveTo x,y
Delay 500
RightClick 1
Delay 500
MoveTo x,y+37
Delay 500
LeftClick 1
Delay 1000
VBSCall c2=getpixelcolor(777,347)