天龙自动打怪脚本.doc

天龙自动打怪脚本 普通视图 源码视图1. 调用插件命令 hwnd=Window.Foreground()2. 导入程序文件 window.dll3. 开始VBScript块4. win=Window.Foreground()5. client=Window.GetClientRect(win)6. s=split(client,|)7. dx=s(0)8. dy=s(1)9. zx=s(2)10. zy=s(3)11. 结束VBScript块12. 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,t1013. t1=now:t2=now:t3=now:t4=now:t5=now:t6=now:t7=now:a=0:b=0:c=0:q=014. 用户定义变量 fqg=DropList防抢怪:0|不防抢怪:1=0 防抢怪设置15. 用户定义变量 jb=DropList不捡包:0|自动捡包:1=0 是否捡物16. 用户定义变量 s1=2 门派普攻F1间隔(秒)17. 用户定义变量 s2=20 单体攻击F2间隔(秒)18. 用户定义变量 s3=20 单体攻击F3间隔(秒)19. 用户定义变量 s4=25 怒气攻击F4间隔(秒)20. 用户定义变量 s5=80 自定技能F5间隔(秒)21. 用户定义变量 s6=60 BB技能F6间隔(秒)22. 用户定义变量 s7=10 状态技能F7间隔(分)23. 用户定义变量 red=DropList30%:30|50%:50|70%:70=1 血少于%加血F824. 用户定义变量 blue=DropList30%:30|50%:50|70%:70=0 蓝少于%加蓝F925. 用户定义变量 bbred=DropList没有出战:0|20%:20|30%:30|50%:50=2 宠少于%加血F1026. 用户定义变量 redwait=1 红药冷却时间(秒)27. 用户定义变量 bluewait=1 蓝药冷却时间(秒)28. 用户定义变量 monwait=100 寻怪延时(毫秒)29. 展开附件 .plugin *.dll30. 标记 开始31. 延时monwait毫秒32. 调用子程序 验证码33. 调用子程序 找怪34. 如果表达式 (fqg=0) 为真,则35. 如果 (dx+369,dy+31) 的颜色大约等于 #1E252A 则36. 跳转到标记 开始37. 条件结束38. 条件结束39. 标记 继续杀怪40. 调用子程序 判断血蓝状态41. 调用子程序 BB血状态42. 调用子程序 杀怪43. 标记 End44. 脚本停止运行45. 子程序 验证码46. 标记 再次报警47. 调用外部VBScript子程序 在屏幕区域里查找图形(0,50,600,550,Attachment:yz1.bmp,0.9,x,y)48. 如果表达式 (x0 and y0) 为真,则49. 调用插件命令 SimPlayer.ring(19)50. /使用了声音插件，需要自己去官网下载51. 延时2000毫秒52. 条件结束53. 如果表达式 (x0) 为真,则循环执行54. 调用外部VBScript子程序 在屏幕区域里查找图形(0,50,600,550,Attachment:yz1.bmp,0.9,x,y)55. 如果表达式 (x=0 and y=0) 为真,则56. 如果 (x+17,y+9-k) 的颜色等于 #FFFFFF 则57. 按键58. 延时1000毫秒59. 鼠标移到 dx+446 , dy+31560. 延时1000毫秒61. 左键单击62. 跳转到标记 End63. 条件结束64. 否则65. 跳转到标记 再次报警66. 条件结束67. 循环结束68. 子程序结束,回到调用处69. 子程序 判断血蓝状态70. 如果 (red/100*120+66+dx,dy+31) 的颜色大约等于 #222222 则71. a=a+172. 否则73. 条件结束74. 如果 (blue/100*120+66+dx,dy+37) 的颜色大约等于 #222222 则75. b=b+176. 否则77. 条件结束78. 子程序结束,回到调用处79. 子程序 BB血状态80. 如果表达式 (bbred0) 为真,则81. 如果 (bbred+91+dx,dy+69) 的颜色大约等于 #111111 则82. c=c+183. 条件结束84. 条件结束85. 子程序结束,回到调用处86. 子程序 找怪87. 按住88. 延时10毫秒89. 按键90. 延时10毫秒91. 弹起92. 延时10毫秒93. 子程序结束,回到调用处94. 子程序 杀怪95. 如果 (dx+247,dy+31) 的颜色大约等于 #0019FF 则96. 如果 (dx+261,dy+31) 的颜色大约等于 #0011ff 则97. 调用子程序 技能98. 否则99. 按键100. 延时1000毫秒 普通视图 源码视图101. 条件结束102. 跳转到标记 继续杀怪103. 否则104. 如果表达式 (jb=1) 为真,则105. 调用子程序 捡包106. 否则107. 跳转到标记 开始108. 条件结束109. 条件结束110. 子程序结束,回到调用处111. 子程序 怒气判断112. 如果 (qx+126,qy+43) 的颜色大约等于 #00ffff 则113. q=1114. 条件结束115. 如果 (qx+188,qy+43) 的颜色大约等于 #00ffff 则116. q=2117. 条件结束118. 子程序结束,回到调用处119. 子程序 技能120. 跳转到标记 开始121. 如果表达式 (DateDiff(s,t1,now)=s1) 为真,则122. 按键123. t1=now124. 延时100毫秒125. 条件结束126. 如果 (dx+261,dy+31) 的颜色大约等于 #0011ff 则127. 如果表达式 (DateDiff(s,t2,now)=s2) 为真,则128. 延时500毫秒129. 按键130. t2=now131. 延时500毫秒132. 条件结束133. 否则134. 条件结束135. 如果 (dx+261,dy+31) 的颜色大约等于 #0011ff 则136. 如果表达式 (DateDiff(s,t3,now)=s3) 为真,则137. 延时500毫秒138. 按键139. t3=now140. 延时500毫秒141. 条件结束142. 否则143. 条件结束144. 调用子程序 怒气判断145. 如果 (dx+261,dy+31) 的颜色大约等于 #0011ff 则146. 如果表达式 (DateDiff(s,t4,now)=s4 and q=1) 为真,则147. 延时500毫秒148. 按键149. t4=now:q=q-1150. 延时500毫秒151. 条件结束152. 否则153. 条件结束154. 如果 (dx+261,dy+31) 的颜色大约等于 #0011ff 则155. 如果表达式 (DateDiff(s,t5,now)=s5) 为真,则156. 延时500毫秒157. 按键158. t5=now159. 延时500毫秒160. 条件结束161. 否则162. 条件结束163. 如果 (dx+261,dy+31) 的颜色大约等于 #0011ff 则164. 如果表达式 (DateDiff(s,t6,now)=s6) 为真,则165. 按键166. t6=now167. 延时100毫秒168. 条件结束169. 条件结束170. 如果表达式 (DateDiff(n,t7,now)=s7) 为真,则171. 鼠标移到 dx+36 , dy+35172. 左键单击173. 延时100毫秒174. 按键175. t7=now176. 延时100毫秒177. 按住178. 延时10毫秒179. 按键180. 延时10毫秒181. 弹起182. 延时10毫秒183. 条件结束184. 如果表达式 (DateDiff(s,t8,now)=redwait and a=1) 为真,则185. 按键186. t8=now:a=0187. 延时500毫秒188. 条件结束189. 如果表达式 (DateDiff(s,t9,now)=bluewait and b=1) 为真,则190. 按键191. t9=now:b=0192. 延时500毫秒193. 条件结束194. 如果表达式 (DateDiff(s,t10,now)=1 and c=1) 为真,则195. 按键196. t10=now197. c=0198. 延时500毫秒199. 条件结束200. 子程序结束,回到调用处 普通视图 源码视图201. 子程序 捡包202. Dim v,i,n,d,l,m,a1,b1,a2,b2,shape,x0,y0,k1,k2,x1,y1203. l=20:m=2:a1=dx+286:b1=dy+200:a2=dx+486:b2=dy+400:x0=dx+366:y0=dy+300:d=954439560204. 如果表达式 (x0-a1=a2-x0) 为真,则205. n=a1206. 否则207. n=x0-(a2-x0)208. 条件结束209. 标记 开始搜索210. v=l211. i=m212. x1=x0:y1=y0-v213. 如果表达式 (x1=n) 为真,则循环执行214. k1=0:k2=v215. 循环 2 遍216. 循环 i 遍217. x1=x1+k1:y1=y1+k2218. 如果表达式 (x1=a1 and x1=b1 and y1=b2) 为真,则219. 鼠标移到 x1 , y1220. 延时2毫秒221. 调用外部VBScript子程序 在屏幕区域里查