天龍自動打怪腳本.doc

天龍自動打怪腳本 普通視圖 源碼視圖1. 調(diào)用插件命令 hwnd=Window.Foreground()2. 導(dǎo)入程序文件 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. 結(jié)束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 防搶怪設(shè)置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 狀態(tài)技能F7間隔(分)23. 用戶定義變量 red=DropList30%:30|50%:50|70%:70=1 血少于%加血F824. 用戶定義變量 blue=DropList30%:30|50%:50|70%:70=0 藍(lán)少于%加藍(lán)F925. 用戶定義變量 bbred=DropList沒有出戰(zhàn):0|20%:20|30%:30|50%:50=2 寵少于%加血F1026. 用戶定義變量 redwait=1 紅藥冷卻時間(秒)27. 用戶定義變量 bluewait=1 藍(lán)藥冷卻時間(秒)28. 用戶定義變量 monwait=100 尋怪延時(毫秒)29. 展開附件 .plugin *.dll30. 標(biāo)記 開始31. 延時monwait毫秒32. 調(diào)用子程序 驗證碼33. 調(diào)用子程序 找怪34. 如果表達(dá)式 (fqg=0) 為真,則35. 如果 (dx+369,dy+31) 的顏色大約等于 #1E252A 則36. 跳轉(zhuǎn)到標(biāo)記 開始37. 條件結(jié)束38. 條件結(jié)束39. 標(biāo)記 繼續(xù)殺怪40. 調(diào)用子程序 判斷血藍(lán)狀態(tài)41. 調(diào)用子程序 BB血狀態(tài)42. 調(diào)用子程序 殺怪43. 標(biāo)記 End44. 腳本停止運(yùn)行45. 子程序 驗證碼46. 標(biāo)記 再次報警47. 調(diào)用外部VBScript子程序 在屏幕區(qū)域里查找圖形(0,50,600,550,Attachment:yz1.bmp,0.9,x,y)48. 如果表達(dá)式 (x0 and y0) 為真,則49. 調(diào)用插件命令 SimPlayer.ring(19)50. /使用了聲音插件，需要自己去官網(wǎng)下載51. 延時2000毫秒52. 條件結(jié)束53. 如果表達(dá)式 (x0) 為真,則循環(huán)執(zhí)行54. 調(diào)用外部VBScript子程序 在屏幕區(qū)域里查找圖形(0,50,600,550,Attachment:yz1.bmp,0.9,x,y)55. 如果表達(dá)式 (x=0 and y=0) 為真,則56. 如果 (x+17,y+9-k) 的顏色等于 #FFFFFF 則57. 按鍵58. 延時1000毫秒59. 鼠標(biāo)移到 dx+446 , dy+31560. 延時1000毫秒61. 左鍵單擊62. 跳轉(zhuǎn)到標(biāo)記 End63. 條件結(jié)束64. 否則65. 跳轉(zhuǎn)到標(biāo)記 再次報警66. 條件結(jié)束67. 循環(huán)結(jié)束68. 子程序結(jié)束,回到調(diào)用處69. 子程序 判斷血藍(lán)狀態(tài)70. 如果 (red/100*120+66+dx,dy+31) 的顏色大約等于 #222222 則71. a=a+172. 否則73. 條件結(jié)束74. 如果 (blue/100*120+66+dx,dy+37) 的顏色大約等于 #222222 則75. b=b+176. 否則77. 條件結(jié)束78. 子程序結(jié)束,回到調(diào)用處79. 子程序 BB血狀態(tài)80. 如果表達(dá)式 (bbred0) 為真,則81. 如果 (bbred+91+dx,dy+69) 的顏色大約等于 #111111 則82. c=c+183. 條件結(jié)束84. 條件結(jié)束85. 子程序結(jié)束,回到調(diào)用處86. 子程序 找怪87. 按住88. 延時10毫秒89. 按鍵90. 延時10毫秒91. 彈起92. 延時10毫秒93. 子程序結(jié)束,回到調(diào)用處94. 子程序 殺怪95. 如果 (dx+247,dy+31) 的顏色大約等于 #0019FF 則96. 如果 (dx+261,dy+31) 的顏色大約等于 #0011ff 則97. 調(diào)用子程序 技能98. 否則99. 按鍵100. 延時1000毫秒 普通視圖 源碼視圖101. 條件結(jié)束102. 跳轉(zhuǎn)到標(biāo)記 繼續(xù)殺怪103. 否則104. 如果表達(dá)式 (jb=1) 為真,則105. 調(diào)用子程序 撿包106. 否則107. 跳轉(zhuǎn)到標(biāo)記 開始108. 條件結(jié)束109. 條件結(jié)束110. 子程序結(jié)束,回到調(diào)用處111. 子程序 怒氣判斷112. 如果 (qx+126,qy+43) 的顏色大約等于 #00ffff 則113. q=1114. 條件結(jié)束115. 如果 (qx+188,qy+43) 的顏色大約等于 #00ffff 則116. q=2117. 條件結(jié)束118. 子程序結(jié)束,回到調(diào)用處119. 子程序 技能120. 跳轉(zhuǎn)到標(biāo)記 開始121. 如果表達(dá)式 (DateDiff(s,t1,now)=s1) 為真,則122. 按鍵123. t1=now124. 延時100毫秒125. 條件結(jié)束126. 如果 (dx+261,dy+31) 的顏色大約等于 #0011ff 則127. 如果表達(dá)式 (DateDiff(s,t2,now)=s2) 為真,則128. 延時500毫秒129. 按鍵130. t2=now131. 延時500毫秒132. 條件結(jié)束133. 否則134. 條件結(jié)束135. 如果 (dx+261,dy+31) 的顏色大約等于 #0011ff 則136. 如果表達(dá)式 (DateDiff(s,t3,now)=s3) 為真,則137. 延時500毫秒138. 按鍵139. t3=now140. 延時500毫秒141. 條件結(jié)束142. 否則143. 條件結(jié)束144. 調(diào)用子程序 怒氣判斷145. 如果 (dx+261,dy+31) 的顏色大約等于 #0011ff 則146. 如果表達(dá)式 (DateDiff(s,t4,now)=s4 and q=1) 為真,則147. 延時500毫秒148. 按鍵149. t4=now:q=q-1150. 延時500毫秒151. 條件結(jié)束152. 否則153. 條件結(jié)束154. 如果 (dx+261,dy+31) 的顏色大約等于 #0011ff 則155. 如果表達(dá)式 (DateDiff(s,t5,now)=s5) 為真,則156. 延時500毫秒157. 按鍵158. t5=now159. 延時500毫秒160. 條件結(jié)束161. 否則162. 條件結(jié)束163. 如果 (dx+261,dy+31) 的顏色大約等于 #0011ff 則164. 如果表達(dá)式 (DateDiff(s,t6,now)=s6) 為真,則165. 按鍵166. t6=now167. 延時100毫秒168. 條件結(jié)束169. 條件結(jié)束170. 如果表達(dá)式 (DateDiff(n,t7,now)=s7) 為真,則171. 鼠標(biāo)移到 dx+36 , dy+35172. 左鍵單擊173. 延時100毫秒174. 按鍵175. t7=now176. 延時100毫秒177. 按住178. 延時10毫秒179. 按鍵180. 延時10毫秒181. 彈起182. 延時10毫秒183. 條件結(jié)束184. 如果表達(dá)式 (DateDiff(s,t8,now)=redwait and a=1) 為真,則185. 按鍵186. t8=now:a=0187. 延時500毫秒188. 條件結(jié)束189. 如果表達(dá)式 (DateDiff(s,t9,now)=bluewait and b=1) 為真,則190. 按鍵191. t9=now:b=0192. 延時500毫秒193. 條件結(jié)束194. 如果表達(dá)式 (DateDiff(s,t10,now)=1 and c=1) 為真,則195. 按鍵196. t10=now197. c=0198. 延時500毫秒199. 條件結(jié)束200. 子程序結(jié)束,回到調(diào)用處 普通視圖 源碼視圖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. 如果表達(dá)式 (x0-a1=a2-x0) 為真,則205. n=a1206. 否則207. n=x0-(a2-x0)208. 條件結(jié)束209. 標(biāo)記 開始搜索210. v=l211. i=m212. x1=x0:y1=y0-v213. 如果表達(dá)式 (x1=n) 為真,則循環(huán)執(zhí)行214. k1=0:k2=v215. 循環(huán) 2 遍216. 循環(huán) i 遍217. x1=x1+k1:y1=y1+k2218. 如果表達(dá)式 (x1=a1 and x1=b1 and y1=b2) 為真,則219. 鼠標(biāo)移到 x1 , y1220. 延時2毫秒221. 調(diào)用外部VBScript子程序 在屏幕區(qū)域里查