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)