v=DropList{"随机选择":1|"提示":2}=0 "出现验证" UserVar rh=DropList{"40%":1|"60%":2|"80%":3|"90%":4}=0 "角色红少于%时打坐" UserVar rl=DropList{"40%":1|"60%":2|"80%":3|"90%":4}=0 "角色蓝少于%时打坐" UserVar jehl=DropList{"是":1|"否":2}=0 "每次打坐是否等待恢复满红蓝" UserVar ks=DropList{"快捷键7":1|"快捷键8":2|"快捷键9":3|"不按键":4}=0 "角色快死时按键" UserVar zduei=DropList{"进队":1|"不进":2}=0 "组队邀请" UserVar s=DropList{"快捷键1":1|"快捷键2":2|"快捷键3":3|"快捷键4":4|"快捷键5":5|"快捷键6":6}=0 "技能快捷键" UserVar dz=30 "打坐休息时间秒" If rh="1" Then rh=40 ElseIf rh="2" Then rh=60 ElseIf rh="3" Then rh=80 ElseIf rh="4" Then rh=90 End if If rl="1" Then rl=40 see="db8100" ElseIf rl="2" Then rl=60 see="db8100" ElseIf rl="3" Then rl=80 see="dc8201" ElseIf rl="4" Then rl=90 see="dc8300" End if //下面这句是得到当前最前面的窗口句柄 Hwnd = Plugin.Window.Foreground() //下面这句是移动窗口到(0, 0)位置 Call Plugin.Window.Move(Hwnd, 0, 0) Call 组队邀请() Delay 1000 se="7BA72D" zf="1|0|84BE3C,2|0|7CAF3E,3|0|7EB13F,4|0|84B942,-6|1|CA9200,-5|1|C28B00,-4|1|BC8500,-1|1|7BA82D,0|1|7EAF2F,4|1|75A43A,9|1|CC9500,10|1|BE8900,-7|2|CA9300,-6|2|BB8500,-1|2|88C536,2|2|80400,10|2|C58F00,11|2|BE8900,-8|3|C79100,-1|3|7AA22F,2|3|40200,11|3|C39000,12|3|BF8A00,-1|4|8CB539,2|4|0,5|4|749529,12|4|CD9500,13|4|C08900,-1|5|84A834,2|5|0,5|5|7DAC32,13|5|C99100,-2|6|A3D845,-1|6|A0D444,2|6|0,5|6|84BD39,6|6|79A12E,-3|7|8FC627,-2|7|6D9742,2|7|102,6|7|7DB046,7|7|68933A,-10|8|986900,-4|8|7FAF22,-3|8|5D7A17,2|8|0,7|8|709D3E,8|8|729735,-10|9|875B00,-5|9|729A1E,2|9|1,8|9|659C35,9|9|75A130,-10|10|825300,-5|10|829E20,2|10|201,9|10|86BB33,-10|11|7D4B00,2|11|400,9|11|83AA27,-10|12|7D4B00,2|12|400,10|12|9ED633,-10|13|7D4B00,2|13|400,-10|14|7D4B00,2|14|103,-10|15|7D4B00,2|15|102,-10|16|865300,2|16|103,-10|17|8F5D00,2|17|204,-10|18|956400,2|18|305,-10|19|AD7800,2|19|305,-10|20|C58D00,-10|21|C68E00,13|21|C69200,12|22|C69200,13|22|C08C00,12|23|C59100" XY = Plugin.Color.FindMutiColor(0, 0, 1024, 768, se, zf, 1) //下面这句用于分割字符串 MyArray = Split(XY, "|") //下面这句将字符串转换成数值 dzx = CInt(MyArray(0)): dzy = CInt(MyArray(1)) If dzx=>0 and dzy=>0 Then Else MessageBox "没找到打坐图标,按[确定]后把鼠标放到打坐图标上按任意键" WaitKey Call GetCursorPos(dzx,dzy) End if //下面这句是窗口属性设置为(窗口置前) Call Plugin.Window.Top(Hwnd, 0) //下面这句是窗口属性设置为(取消窗口置前) Call Plugin.Window.Top(Hwnd, 1) Delay 200 Call 检查() Call 组队邀请() Delay 200 //===============找怪 Rem 开始杀怪 Call 组队邀请() Delay 200 KeyPress 9,1 //按TAB Rem 杀怪 Delay 200 Call 组队邀请() Call 快死() Call 技能() Call 组队邀请() Delay 200 Call FindColorEx(362,66,542,103,"0000DC",1,0.8,x,y) If x>=0 and y>=0 Then Call 组队邀请() Delay 1000 Call yz() Goto 杀怪 Else Call 组队邀请() Call yz() Call 组队邀请() Call 检查() Delay 200 Call 组队邀请() Goto 开始杀怪 End if Goto 开始杀怪 EndScript Sub 检查() Rem JCH IfColor rh/100*(250-94)+94,76,"0300DF",2 Then Else IfColor rh/100*(250-94)+94,76,"EAEAEA",2 Then Else Delay 800 MoveTo dzx,dzy Delay 500 LeftClickS 1 Delay dz*1000 End if End if