天龙自动打怪脚本

1、天龙自动打怪脚本普通视图源码视图1 调用插件命令hwnd=WindowForeground（）2. 导入程序文件window.dll3开始VBScript块4 win=Windov/ Foregrou nd （）5. client=Window.GetClientRect（win）6. s=split（client/,|H）7. dx=s（0）8. dy=s（l）9. zx=s（2）10. zy=s（3）11. 结束 VBScript 块12. Dimredbluebbredredwaitbluewaitmonwaitfqg jbabckqsl s2»s3» s4 s5 丿

2、 s6,s7，"八2八3»t4八5八6»t7八8八9八13. tl=now:t2=now:t3=now:t4=now:t5=now:t6=now:t7=now:a=0:b=0:c=0:q=014. 用户定义变址fqg=DropList防抢怪:引不防抢怪:1=0防抢怪设置15. 用户定义变虽jb=DropList不捡包:0|自动捡包:1=0是否捡物16. 用户定义变虽sl=2门派普玫Fl间隔（秒）17. 用户定义变§ s2=20 体攻击F2间隔（秒）18. 用户定义变址s3=20单体攻击F3何隔（秒）19. 用户定义变fi s4=25怒气攻击F4间隔（秒）

3、20. 用户定义变址s5=80自定技能F5间隔（秒）21. 用户定义变fi： S6=60 BB技能F6间隔（秒）22. 用户定义变址s7=10状态技能F7间隔（分）23. 用户定义变址 red=DropList30%: 30150%: 50170%:70=1 血少于%加血 F824. 用户定义变虽 blue=DropList30%:30150%:50170%:70=0 蓝少干加蓝 F925. 用户定义变量 bbred=DropList没有出战:0120%:20130%:30150%:50=2 宠少 F%加血 F1026. 用户定义变址redwait“红药冷却时间（秒）27. 用户定义变址blu

4、ewait“蓝药冷却时间（秒）28. 用户定义变址monwait=100寻怪延时（毫秒）29. 展开附件plugin *.dll30. 标记开始31延时monwait毫秒32. 调用子程序验证码33. 调用子程序找怪34. 如果表达式（fqgP）为真'则35. 如果（dx+369,dy+31）的颜色大约等于# 1E252A则36. 跳转到标记开始37. 条件结束38. 条件结束50.54.56.70.39.标记继续杀怪40.涮用子程序判断血蓝状态41.调用子程序BBlfll状态42.调用子程序杀怪43.标记End44脚木停止运行45.子程序验证码46. 标记再次报警调用外部VBScri

5、pt子程序在屏幕区域里查找图形(6 50,600 550丿"Attachment:yzl bmp"卫 9丿 x»y) 如果表达式(x>0 and y>0)为真，则 调用插件命令SimPlayer. ring(19)使用了声音插件，需要自己去官网下载延时2000峑秒52.条件结東如果表达式(x>0)为真，则循环执行 涮用外部VBScript子程序在屏幕区域里查找图形(650,600,550, MAttachment: yzl.bmp'* J0.9Jx,y)如果表达式(x>=0 and y>=9)为真，则如果(x+17,y+9-k

6、)的颜色等于ffFFFFFF则按 ti!<Esc>延时1000临秒亂标移到 dx+446 dy+315延时1000毫秒左键单击跳转到标记End条件结束否则跳转到标记再次报警条件结束循环结束48.51.53.55.59.如果57.58.60.61.62.65.63.64.66.67.68.子程序结束，回到调用处69.子程序判断血蓝状态(red/100*l20+66+dxdy+31)的颜色大约等于 #222222 则 71a=a+l否则条件结束如果(blue/100#120+66+dx,dy+37)的颜色大约等干 #222222 则b=b+l72.否则条件结束78.子程序结束，回到调用

7、处79.子程序BB血状态80如果表达式(bbred>0)为真，则81.如果(bbred+91+dx,dy+69)的颜色大约等于#111111则82.c=c+l83条件结束84条件结束85子程序结來，回到调用处86子程序找怪87.按住88延时亳秒89按键<Tab>90延时10亳秒91.弹起92延时20毫秒93. 子程序结來亠回到调用处94. 子程序杀怪95. 如果(dx+247,dy+31)的颜色大约等于#0019FF则96如果(dx+261,dy+31)的颜色大约等于#0011ff则97. 调用子程序技能98. 否则99. 按惟100. 延时 1000 秒普通视图源码视图10

8、1. 条件结束102. 跳转到标记继续杀怪23否则104如果表达式(jb=l)为真，则105. 调用子程序捡包106. 否则107. 跳转到标记开始208条件结束109.条件结束子程序结束，回到调用处111. 子程序怒气判断112. 如果(qx+126,qy+43)的颜色大约等于#00ffff则113. q=l114. 条件结束115. 如果(qx+188,qy+43)的颜色大约等于则116. q=2117. 条件结束"8 子程序结束回到调用处119. 子程序技能120. 跳转到标记开始121. 如果表达式(DateDiff(MsM,tl,now)>=sl)为真，则122. 按

9、键123. tl=now124. 延时200奄秒125 条件结束226 如果(dx+261,dy+31)的颜色大约等于#0Ollff则127. 如果表达式(DateDiff(Ms't2,now)>=s2)为真'则128. 延时500秒129. 按 ti!<F2>130. t2=now131. 延时500秒132. 条件结束133. 否则134. 条件结束235 如果(dx+261,dy+31)的颜色大约等于#0011ff贝ij136. 如果表达式(DateDi仔(”sjt30讨)>*3)为直'则137. 延时500秒138. 按 <F3&g

10、t;139. t3=now140. 延时500秒141条件结束142. 否则143. 条件结束144 涮用子程序怒气判断245 如果(dx+261,dy+31)的颜色大约等于#0011ff则146. 如果表达式(DateDiff("st4,now)>=s4 and q>=l)为真，则147. 延时500亳秒148. 按 tit<F4>149. t4=now:q=q-l150. 延时500秒151. 条件结束152. 否则253 条件结束154. 如果(dx+261,dy+31)的颜色大约等于#0011ff则255.如果表达式(DateDi仟(Ut5jOW)&g

11、t;=s5)为真'则156.延时500奄秒257按 <F5>1S8.t5=nov/159. 延时500秒160. 条件结束262 否则162. 条件结束263 如果(dx+261,dy+31)的颜色大约等于#0011ff则264.如果表达式(DateDiff(MsM,t6,now)>=s6)为真'则165. 按 fihF6>166. t6=nov/167. 延时100秒168. 条件结束269 条件结束170. 如果表达式(DateDiff(,nt7,now)>=s7)为真侧鼠标移到dx+36 » dy+35172左键单击173延时100

12、亳秒174按键<F7>175t7=now276.延时100毫秒177按住<Ctrl>178延时1.0亳秒179按键<Tab>180延时20亳秒281弹起<Ctrl>182.延时10亳秒183.条件结束184. 如果表达式(DateDiff(Ms18,now)>=redwait and a>=l)为真'则185. 按键 <F8>186. t8=now:a=0187. 延时500亳秒188. 条件结束189. 如果表达式(DateDiff("s'*,t9,now)>»bluewait

13、and b>«l)为真，则190. 按键 <F9>191. t9=now:b=0192. 延时500秒193. 条件结束194. 如果表达式(DateDiff(Ms",tl0,now)>=1 and c>=l)为真丿则195. 按键 <F10>196. tl0=now197. c=0198. 延时500秒299条件结束200. 子程序结束，回到调用处普通视图源码视图201. 子程序捡包202. Dim v,川Jal,blJa2>b2JshapeJx0>y0JklJk2/xlJyl203.1=20:m=2:al=dx+28

14、6:bl=dy+200:a2=dx+486:b2=dy+400:x0=dx+366:y0=dy+300:d=954439560204.如果表达式(x0-al>=a2-x0)为真"则205n=al206. 否则207. n=xO-(a2-x0)208. 条件结束209. 标记开始搜索i=m210.211.218.213.217.212.如果表达式214.215.216.如果表达式(xl>=al229220.xl=x0:yl=y0-v(xl>=n)为真，则循环执行kl=0:k2=v循环2遍循环i遍xl=xl+kl:yl=yl+k2and xl<=a2 and yl>=bl and yl<=b2)为真，则 亂标移到xl , yl延时2亳秒221.222