机战脚本怎么用?

机战脚本怎么用?

机战绿B完美脚本下面是我的脚本UserVar zidongjianwu=1 0不自动捡物 1自动捡物Delay 250Gosub 打怪Gosub 捡水晶Delay 150Gosub 捡流星Delay 150Gosub 1捡钱Delay 50Sub 打怪 Rem 打怪 VBSCall FindColorEx(0,0,1024,768,"303b8",1,0.8,x,y) If x>=0 and y>=0 MoveTo x+10 y+10 RightClick 1 Delay 800 MoveTo 586,427 ----------------这里是防止鼠标卡死 回一下鼠标位置的 RightClick 1 Delay 500 Else Goto 捡水晶 EndIf Return Sub 捡水晶 Rem 捡水晶 If zidongjianwu=1 VBSCall FindPic(0,0,1024,768,"水晶.bmp",0.9,x,y) If x>=0 and y>=0 MoveTo x+10 y+10 LeftClick 1 Delay 300 LeftClick 1 Else Delay 500 Goto 捡钱 EndIf EndIf EndIf Return Sub 捡流星 If zidongjianwu=1 VBSCall FindPic(0,0,1024,768,"流星.bmp",0.9,x,y) If x>=0 and y>=0 MoveTo x+10 y+10 LeftClick 1 Delay 5000 LeftClick 1 EndIf EndIf EndIf Return Sub 捡钱 Rem 捡钱 If zidongjianwu=1 VBSCall FindPic(0,0,1024,768,"钱.bmp",0.9,x,y) If x>=0 and y>=0 MoveTo x+00 y+30 LeftClick 1 Delay 900 LeftClick 1 Else Delay 500 Goto 定位 EndIf EndIf EndIf Return Sub 定位 Rem 定位 MoveTo 898,130 LeftClick 1 Delay 600EndIf MoveTo 952,356LeftClick 1Delay 600EndIf MoveTo 456,310Delay 1500LeftClick 1MoveTo 225,408LeftClick 1Delay 600EndIf MoveTo 140,230LeftClick 1VBSCall FindColorEx(0,0,1024,768,"303b8",1,0.8,x,y)If x>=0 and y>=0 MoveTo x+10 y+10 RightClick 1 Delay 800Else Delay 500 Goto 定位2Return 定位Sub 定位2 Delay 1000EndIf MoveTo 190,547LeftClick 1Delay 1000EndIf Goto 打怪Return 定位