《天龙自动打怪脚本.docVIP

天龙自动打怪脚本普通视图 源码视图 调用插件命令 hwnd=Window.Foreground() 导入程序文件 window.dll 开始VBScript块 ????win=Window.Foreground() ????client=Window.GetClientRect(win) ????s=split(client,|) ????dx=s(0) ????dy=s(1) ????zx=s(2) ????zy=s(3) 结束VBScript块 Dim red,blue,bbred,redwait,bluewait,monwait,fqg,jb,a,b,c,k,q,s1,s2,s3,s4,s5,s6,s7,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10 t1=now:t2=now:t3=now:t4=now:t5=now:t6=now:t7=now:a=0:b=0:c=0:q=0 用户定义变量 fqg=DropList{防抢怪:0|不防抢怪:1}=0 防抢怪设置 用户定义变量 jb=DropList{不捡包:0|自动捡包:1}=0 是否捡物 用户定义变量 s1=2 门派普攻F1间隔(秒) 用户定义变量 s2=20 单体攻击F2间隔(秒) 用户定义变量 s3=20 单体攻击F3间隔(秒) 用户定义变量 s4=25 怒气攻击F4间隔(秒) 用户定义变量 s5=80 自定技能F5间隔(秒) 用户定义变量 s6=60 BB技能F6间隔(秒) 用户定义变量 s7=10 状态技能F7间隔(分) 用户定义变量 red=DropList{30%:30|50%:50|70%:70}=1 血少于%加血F8 用户定义变量 blue=DropList{30%:30|50%:50|70%:70}=0 蓝少于%加蓝F9 用户定义变量 bbred=DropList{没有出战:0|20%:20|30%:30|50%:50}=2 宠少于%加血F10 用户定义变量 redwait=1 红药冷却时间(秒) 用户定义变量 bluewait=1 蓝药冷却时间(秒) 用户定义变量 monwait=100 寻怪延时(毫秒) 展开附件 .\plugin *.dll 标记 开始 延时monwait毫秒 调用子程序 验证码 调用子程序 找怪 如果表达式 (fqg=0) 为真,则 ????如果 (dx+369,dy+31) 的颜色大约等于 #1E252A 则 ????????跳转到标记 开始 ????条件结束 条件结束 标记 继续杀怪 调用子程序 判断血蓝状态 调用子程序 BB血状态 调用子程序 杀怪 标记 End 脚本停止运行 子程序 验证码 ????标记 再次报警 ????调用外部VBScript子程序 在屏幕区域里查找图形(0,50,600,550,Attachment:\yz1.bmp,0.9,x,y) ????如果表达式 (x0 and y0) 为真,则 ????????调用插件命令 SimPlayer.ring(19) ????????//使用了声音插件，需要自己去官网下载 ????????延时2000毫秒 ????条件结束 ????如果表达式 (x0) 为真,则循环执行 ????????调用外部VBScript子程序 在屏幕区域里查找图形(0,50,600,550,Attachment:\yz1.bmp,0.9,x,y) ????????如果表达式 (x=0 and y=0) 为真,则 ????????????如果 (x+17,y+9-k) 的颜色等于 #FFFFFF 则 ????????????????按键Esc ????????????????延时1000毫秒 ????????????????鼠标移到 dx+446 , dy+315 ????????????????延时1000毫秒 ????????????????左键单击 ????????????????跳转到标记 End ????????????条件结束 ????????否则 ????????????跳转到标记 再次报警 ????????条件结束 ????循环结束 子程序结束,回到调用处 子程序 判断血蓝状态 ????如果 (red/100*120+66+dx,dy+31) 的颜色大约等于 #222222 则 ????????a=a+1 ????否则 ????条件结束 ????如果 (blue/100*120+66+dx,dy+37) 的颜色大约等于 #222222 则 ????????b=b+1 ????否则 ????条件结束 子程序结束,回到调用处 子程序 BB血状态 ????如果表达式 (bbred0) 为真,则 ????????如果 (bbred+91+dx,dy+69) 的颜色大约