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