#1台版仙魔道 按鍵精靈 腳本分享 陽春版0319再次修訂

1. //********************
   
2. //環境 1024*768
   
3. //全螢幕
   
4. //遊戲預設按鍵1  攻擊
   
5. //遊戲預設按鍵2  技能
   
6. //F1 補紅
   
7. //F2 補藍
   
8. //遊戲預設F9 休息
   
9. //遊戲預設TAB 尋怪
   
10. //********************
    
11. //防呆部份有待改進，請大家幫忙改一改
    
12. //裡面有相當多不必要的東西，不影響執行，可隨意刪除"//"之後都可刪
    
13. 
    
14. //********************
    
15. 
    
16. 
    
17. VBS Dim addhp,addnmp,addhpT,addnpT
    
18. UserVar addhp=30 血量<addhp%時，自動吃紅。
    
19. UserVar addmp=15 藍量<amdhp%時，自動吃藍。
    
20. UserVar addhpT=1000 補血延時時間（毫秒）
    
21. UserVar addmpT=1000 補藍延時時間（毫秒）
    
22. VBS Dim charRed,charBlue,monRed,redLeft.redMiddle,redRight,monLeft.monMiddle,monRight
    
23. VBS Dim ztjnt,ztjn,aniSki3,keyF2,bour,rota,monX,sk1,sk2
    
24. ztjnt=30
    
25. Delay 1000
    
26. rota=now
    
27. monX=666
    
28. //KeyPress 115,1
    
29. ztjn=now
    
30. //Delay 2200
    
31. //****************************************************************
    
32. //****************************************************************
    
33. Rem 開始掛機
    
34. Rem 0
    
35. Gosub 打坐
    
36. Rem 滿血
    
37. Gosub 狀態技能
    
38. Rem 1
    
39. //Gosub rotate
    
40. Gosub 尋怪
    
41. Rem 2
    
42. Gosub 判斷攻擊方式
    
43. Rem 3
    
44. //Delay 100
    
45. Gosub 確認無他怪
    
46. Rem 4
    
47. //Gosub 揀物
    
48. Goto 開始掛機
    
49. Sub 確認無他怪
    
50.     IfColor 397,41,07008C,0
    
51.         KeyPress 49,1
    
52.         Delay 800
    
53.         KeyPress 50,1
    
54.         Delay 800
    
55.         Goto 小護士
    
56.         Goto 3
    
57.     Else
    
58.         Goto 4
    
59.     EndIf
    
60. Return
    
61. //****************************************************************
    
62. Sub 防呆裝置
    
63.     If DateDiff("s",bour,Now) >=10
    
64.         Delay 100
    
65.         IfColor 625,41,07008C,0
    
66.             //IfColor 950,26,2929D4,0
    
67.             KeyDown 83,1
    
68.             Delay 200
    
69.             KeyUp 83,1
    
70.             KeyPress 9,1
    
71.             Delay 200
    
72.             // Gosub 打坐
    
73.             Goto 2
    
74.         EndIf
    
75.     EndIf
    
76. Return
    
77. //****************************************************************
    
78. Rem 攻擊
    
79. KeyPressH 49,1
    
80. Delay 800
    
81. KeyPressH 50,1
    
82. Delay 1000
    
83. //Gosub 攻擊技能sk1
    
84. //Gosub 攻擊技能sk1
    
85. //Gosub 攻擊技能sk2
    
86. Goto 小護士
    
87. Rem 檢測攻擊目標是否死亡
    
88. Gosub 防呆裝置
    
89. IfColor 397,41,07008C,0
    
90.     //IfColor 839,26,2929D4,0
    
91.     Delay 450
    
92.     Goto 攻擊
    
93. Else
    
94.     Delay 600
    
95.     Goto 3
    
96.     //3 揀物
    
97. EndIf
    
98. //****************************************************************
    
99. Sub 揀物
    
100.     KeyPress 50,2
     
101.     Delay 500
     
102.     KeyPress 50,2
     
103.     Delay 500
     
104.     KeyPress 50,2
     
105.     Delay 500
     
106. Return
     
107. //****************************************************************
     
108. //數字3  紅，數字4  藍
     
109. //在遊戲中利用按鍵抓點抓色工具找到hplx,hprx,hpy,color所對應的值並替換。
     
110. Rem 小護士
     
111. Delay 250
     
112. //循環小延時，防止出現CPU使用率過高，腳本卡
     
113. Rem 補紅
     
114. IfColor addhp/100*(148-11)+11,34,2610E0,1
     
115.     //hprx=血條在屏幕最右端x坐標104，hplx=血條在屏幕最左端y坐標393，
     
116.     //hpy=hplx,hprx在血條中的同一縱坐標。
     
117.     //addhp/100*(hprx216-hplx104)+hplx104,hpy38,color
     
118.     KeyPress 112,1
     
119.     //按下補血快捷?
     
120.     Delay addhpT
     
121.     //補血延時
     
122. Else
     
123.     Goto 檢測攻擊目標是否死亡
     
124.     //Delay 100
     
125.     //Goto 補藍
     
126. EndIf
     
127. Rem 補藍
     
128. IfColor addmp/100*(148-11)+11,50,EB8400,1
     
129.     //mprx=藍條在屏幕最右端坐標，mplx=藍條在屏幕最左端坐標，
     
130.     //mpy=mplx,mprx在藍條中的同一縱坐標。
     
131.     //addmp/100*(mprx-mplx)+mplx,mpy,color
     
132.     KeyPress 113,1
     
133.     //按下補藍快捷鍵4
     
134.     Delay addmpT
     
135.     //補藍延時
     
136. Else
     
137.     Goto 檢測攻擊目標是否死亡
     
138. EndIf
     
139. //////////////////////////////////
     
140. Sub 尋怪
     
141.     //Rem 開始掛機
     
142.     IfColor 397,41,07008C,0
     
143.         // monLeft,monY monRed
     
144.         Delay 32
     
145.         IfColor 625,41,07008C,1
     
146.             KeyPress 9,1
     
147.         EndIf
     
148.         Goto 2
     
149.     Else
     
150.         KeyPress 9,1
     
151.         Delay 200
     
152.     EndIf
     
153. Return
     
154. ////////////////////////////////////
     
155. Sub 判斷攻擊方式
     
156.     //0相等1不等
     
157.     IfColor 625,41,07008C,0
     
158.         //   IfColor monX,19,2020DA,0
     
159.         // IfColor 900,26,2929D4,0
     
160.         Delay 450
     
161.         // IfColor 1040,26,2929D4,0
     
162.         bour=now
     
163.         Goto 攻擊
     
164.         // Else
     
165.         //   Goto 1
     
166.         // EndIf
     
167.     Else
     
168.         Delay 450
     
169.         //Goto 攻擊
     
170.         Goto 1
     
171.         //尋怪
     
172.         //Goto 開始掛機
     
173.     EndIf
     
174. Return
     
175. //===============================================================
     
176. Sub 狀態技能
     
177.     If DateDiff("s",ztjn,Now) >= ztjnt
     
178.         Delay 500
     
179.         KeyPress 84,1
     
180.         Delay 1000
     
181.         VBS ztjn=now
     
182.     Else
     
183.         Delay 32
     
184.     EndIf
     
185. Return
     
186. //================
     
187. Sub 打坐
     
188.     Gosub 打坐遇怪反擊
     
189.     // IfColor 95/100*(175-20)+20,30 1000F7,0
     
190.     //       Goto 滿血
     
191.     //   EndIf
     
192.     IfColor 76,34,2610E0,1
     
193.         //黑血
     
194.         //IfColor 78/100*(175-20)+20,30 1000F7,1
     
195.         //KeyPress 123,1
     
196.         Delay 100
     
197.         KeyPress 120,1
     
198.         Delay 1000
     
199.         Rem sitre
     
200.         Delay 500
     
201.         //  Delay 50
     
202.         // IfColor 397,41,07008C,0
     
203.         Gosub 打坐遇怪反擊
     
204.         IfColor 148,34,2610E0,0
     
205.             Delay 32
     
206.             KeyPress 120,1
     
207.             Delay 1000
     
208.             Goto 滿血
     
209.         EndIf
     
210.         Delay 1000
     
211.         Goto sitre
     
212.     Else
     
213.         Delay 32
     
214.     EndIf
     
215. Return
     
216. //=========================================================
     
217. //=========================================================
     
218. Sub 打坐遇怪反擊
     
219.     IfColor 397,41,07008C,0
     
220.         //  IfColor monX,19,2020DA,0
     
221.         //    IfColor 839,26,2929D4,0
     
222.         //    IfColor 640,27,1000F7,0
     
223.         KeyPress 120,1
     
224.         Delay 350
     
225.         Goto 攻擊
     
226.     EndIf
     
227. Return
     
228. ////////////////////////////////////
     
229. //
     
230. Sub rotate
     
231.     If DateDiff("s",rota,Now) >= 120
     
232.         RightDown 1                                    
     
233.         Delay 500
     
234.         MoveR -200,0                                 
     
235.         Delay 500
     
236.         RightUp 1
     
237.         rota=now
     
238.     EndIf
     
239. Return
     
240. Sub 攻擊技能sk1
     
241.     //IfColor 76,50,EB8400,0
     
242.     If DateDiff("s",sk1,Now) >= 4
     
243.         Delay 200
     
244.         KeyPress 50,1
     
245.         Delay 1000
     
246.         VBS sk1=now
     
247.     EndIf
     
248.     // EndIf
     
249. Return
     
250. Sub 攻擊技能sk2
     
251.     If DateDiff("s",sk2,Now) >= 7
     
252.         Delay 200
     
253.         KeyPress 51,1
     
254.         Delay 500
     
255.         VBS sk2=now
     
256.     Else
     
257.         Delay 32
     
258.     EndIf
     
259. Return

複製代碼

☆此訊息由版主加入，請發帖會員勿編輯去除☆

回帖是給發帖會員的鼓勵！會員請勿在此回覆惡意灌水、複製他人回覆、注音火星文、簡體字等等。

[ 本帖最後由 ranowu 於 2008-3-19 13:16 編輯 ]

大大 不行用耶
感謝你的分享

大哥.你的腳本不會動作說.我要掛啦yociexp199.gif 我要掛啦yociexp169.gif 我要掛啦yociexp112.gif