Cs2=DropList{"地1":"0"|"地2":"1"|"地3":"2"|"地":"3"}=0 "去第几个" UserVar xuanguai=DropList{"不":"0"|"选":"1"}=1 "选怪吗" UserVar Fh1=5 "第一地返回数" UserVar Fh2=5 "第二地返回数" UserVar Fh3=5 "第三地返回数" UserVar Fh4=5 "第四地返回数" UserVar Renwu=DropList{"刷怪":"0"|"捉妖":"1"|"采集":"2"}=0 "任务" UserVar hong=40 "加血" Dim a(3),b(3),k,h Hwnd = Plugin.Window.MousePoint() sRect = Plugin.Window.GetClientRect(Hwnd) Dim Myarray Myarray=Split(sRect,"|") Ux=CLng(Myarray(0)) Uy=CLng(Myarray(1)) If Renwu=0 Then Goto 刷怪 ElseIf Renwu=1 Then ElseIf Renwu=2 Then End If Delay 200 Rem 刷怪 h=0 If Cs2=0 Then k=0 Elseif Cs2=1Then k=Fh1 Elseif Cs2=2 Then k=Fh1+Fh2 Elseif Cs2=3 Then k=Fh1+Fh2+Fh3 End If GetCursorPos a(0), b(0) WaitKey GetCursorPos a(1), b(1) WaitKey GetCursorPos a(2), b(2) WaitKey GetCursorPos a(3), b(3) WaitKey Delay 500 KeyPress "M", 1 Delay 200 Rem 使用地图 KeyPress "M", 1 Delay 200 If k<Fh1 Then h=0 Elseif k>=Fh1 and k<Fh1+Fh2 Then h=1 Elseif k>=Fh1+Fh2 and k<Fh1+Fh2+Fh3 Then h=2 Elseif k>=Fh1+Fh2+Fh3 and k<Fh1+Fh2+Fh3+Fh4 Then h=3 Else k=0 End If Delay 200 MoveTo a(h), b(h) Delay 1000 LeftClick 1 Delay 200 KeyPress "O", 1 Delay 200 KeyPress "M", 1 Rem 到目的地 FindPic Ux+457,Uy+138,Ux+481,Uy+159,"Attachment:\了.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then Goto 选怪 Else FindPic Ux,Uy+53,Ux+26,Uy+79,"Attachment:\战斗状态.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo 411+Ux, 358+Uy Delay 200 LeftClick 1 Delay 200 Call 战斗中打我的() Else Delay 3000 KeyPress "O", 1 End If End If Delay 15 Goto 到目的地 Rem 选怪 If datediff("s",thistime3,now)>300 KeyPress "'", 1 Delay 200 VBS thistime3=now If datediff("s",thistime2,now)>240 KeyPress "8", 1 Delay 200 KeyPress "9", 1 Delay 200