按鍵遊俠-腳本(閃人加強)

9/12保留快速躲商場資料.
增加紅點檢測點.請配合停止呼吸使用
其它我覺的有必要增加的功能.請自行瞭解與修改

1. Dim Box_X1:     Dim Box_X2:     Dim Box_Y1:     Dim Box_Y2
   
2. Dim HP_X:       Dim MP_X:       Dim HP_Y:       Dim MP_Y
   
3. Dim HP_sx:      Dim MP_sx
   
4. Dim Color_HP:   Dim Color_MP:   Dim Color_sHP:  Dim Color_sMP
   
5. Dim KEY_HP:     Dim KEY_MP:     Dim KEY_SHP:    Dim KEY_SMP:
   
6. Dim KEY_FIGHT:  Dim KEY_PICK
   
7. Dim KEY_SK1:    Dim KEY_SK2:    Dim KEY_SK3:    Dim KEY_SK4:    Dim KEY_SK5
   
8. Dim TMR_SK1:    Dim TMR_SK2:    Dim TMR_SK3:    Dim TMR_SK4:    Dim TMR_SK5
   
9. Dim T_SK1:      Dim T_SK2:      Dim T_SK3:      Dim T_SK4:      Dim T_SK5
   
10. Dim Sk1_Dle:    Dim Sk2_Dle:    Dim Sk3_Dle:    Dim Sk4_Dle:    Dim Sk5_Dle
    
11. Dim Fi_Temp:    Dim Go2LR:      Dim Fi_Mode:    Dim WalkCounter
    
12. Dim KeepRun:    Dim AutoChng
    
13. Dim Yelo_x:     Dim Yelo_y
    
14. Dim maple_wnd:  Dim key_wnd
    
15. Dim halt_x:     Dim halt_y:     Dim halt_color
    
16. Dim Yelo_temp:  Dim Ch_temp:    Dim temp
    
17. Dim temp_x:     Dim temp_y:     Dim usercounter:
    
18. Sub Main()
    
19.     key_Wnd = HWindow.GetForeground
    
20.     HWindow.SetSize key_Wnd,620,300
    
21.    
    
22.     '==============基本數據設定區==============
    
23.     KEY_HP="PageDown":  KEY_MP="Insert"             '大瓶hp/mp藥水
    
24.     KEY_SHP="0":        KEY_SMP="9"                 '小瓶hp/mp藥水
    
25.     KEY_FIGHT="PageUp": KEY_PICK="Z"
    
26.     TMR_SK1=190:    Sk1_Dle=800:    KEY_SK1="End"   '快劍
    
27.     TMR_SK2=190:    Sk2_Dle=800:    KEY_SK2="Shift" '速度激發
    
28.     TMR_SK3=170:    Sk3_Dle=800:    KEY_SK3="Delete"   '掠奪
    
29.     TMR_SK4=9999:   Sk4_Dle=1000:   KEY_SK4="Home"
    
30.     TMR_SK5=9999:   Sk5_Dle=1:      KEY_SK5="Ctrl"  '金炸
    
31.     Fi_mode=5 :     fi_temp=30:     Go2LR=1
    
32.     '1 定點往右打        Fi_temp:攻擊次數
    
33.     '2 定點往左打        Go2LR:一次循環走動次數
    
34.     '3 定點左右打
    
35.     '4 打中間
    
36.     '5 定製品            "Delete" "End" "PageDown" "Insert" "Home"
    
37.     '6 左右走動          "PageUp" "Ctrl" "Shift" "Alt"
    
38.     '==========================================
    
39.     T_SK1=1:    T_SK2=1:    T_SK3=1: T_SK4=1:    T_SK5=1
    
40.     KeepRun=1
    
41.     Go2LR=1
    
42.     walkcounter=1
    
43.     Delay 500
    
44.     Call setting()
    
45.    
    
46.     Delay 500
    
47.     halt_x=21:   halt_y=605                  '暫停功能用
    
48.     halt_color=GetPixelColor(halt_x,halt_y)
    
49.     Color_HP=GetPixelColor(HP_X,HP_Y)       '大瓶藥水取色
    
50.     Color_MP=GetPixelColor(MP_X,MP_Y)
    
51.     Color_sHP=GetPixelColor(HP_SX,HP_Y)     '小瓶藥水取色
    
52.     Color_sMP=GetPixelColor(MP_SX,MP_Y)
    
53.     maple_Wnd = HWindow.GetForeground
    
54.     '主程式運作區
    
55.     Do While KeepRun=1
    
56.         Call chk_halt()                                 '撿查是否暫停
    
57.         If autochng=1 Then                              '紅點自動換平
    
58.             Call chchnl(Box_X1,Box_Y1,Box_X2,Box_Y2)
    
59.         End If
    
60.         Call FixYelo()
    
61.         Call ChkSkill()                                 '檢查技能
    
62.         Call ChkHpMp()                                  '自動補紅補藍
    
63.         Call WalkFight(Go2LR)                           '自動攻擊
    
64.         If walkcounter >= Go2LR *2 Then
    
65.             walkcounter=1
    
66.         Else
    
67.             walkcounter=walkcounter+1
    
68.         End If
    
69.     Loop
    
70. End Sub
    
71. Sub ChkSkill()
    
72.     If TIMER <30 Then
    
73.         T_SK1=1
    
74.         T_SK2=1
    
75.         T_SK3=1
    
76.         T_SK4=1
    
77.         T_SK5=1
    
78.     End If
    
79.     If TIMER > T_SK1+TMR_SK1 And tmr_sk1 < 9000  Then
    
80.         Delay Sk1_Dle
    
81.         KeyPressH KEY_SK1,1
    
82.         T_SK1=TIMER
    
83.     End If
    
84.     If TIMER > T_SK2+TMR_SK2 And tmr_sk2 < 9000  Then
    
85.         Delay Sk2_Dle
    
86.         KeyPressH KEY_SK2,1
    
87.         T_SK2=TIMER
    
88.     End If
    
89.     If TIMER > T_SK3+TMR_SK3 And tmr_sk3 < 9000  Then
    
90.         Delay Sk3_Dle
    
91.         KeyPressH KEY_SK3,1
    
92.         T_SK3=TIMER
    
93.     End If
    
94.     If TIMER > T_SK4+TMR_SK4 And tmr_sk4 < 9000  Then
    
95.         Delay Sk4_Dle
    
96.         KeyPressH KEY_SK4,1
    
97.         T_SK4=TIMER
    
98.     End If
    
99.     If TIMER > T_SK5+TMR_SK5 And tmr_sk5 < 9000  Then
    
100.         Delay Sk5_Dle
     
101.         KeyPressH KEY_SK5,1
     
102.         T_SK5=TIMER
     
103.     End If
     
104. End Sub
     
105. Sub ChkHpMp()
     
106.     If IsColor(HP_X,HP_Y,Color_HP,0) <> 1 Then      '大藥水
     
107.         Delay 300
     
108.         KeyPressH KEY_HP,1
     
109.     End If
     
110.     If IsColor(MP_X,MP_Y,Color_MP,0) <> 1 Then
     
111.         Delay 300
     
112.         KeyPressH key_mp,1
     
113.     End If
     
114.     If IsColor(HP_SX,HP_Y,Color_sHP,0) <> 1 Then    '小藥水
     
115.         Delay 300
     
116.         KeyPressH KEY_sHP,1
     
117.     End If
     
118.     If IsColor(MP_sx,MP_Y,Color_sMP,0) <> 1 Then
     
119.         Delay 300
     
120.         KeyPressH key_smp,1
     
121.     End If
     
122. End Sub
     
123. 
     
124. Sub WalkFight(Go2LR)
     
125.     Select Case True
     
126.         Case Fi_mode=1
     
127.         Call fight_a
     
128.         Case Fi_mode=2
     
129.         Call fight_b
     
130.         Case Fi_mode=3
     
131.         Call fight_c
     
132.         Case Fi_mode=4
     
133.         Call fight_d
     
134.         Case Fi_mode=5
     
135.         Call fight_e
     
136.         Case Fi_mode=6
     
137.         Call fight_f
     
138.     End Select
     
139. End Sub
     
140. Sub fight_a()
     
141.     Delay 800
     
142.     KeyPressH "RArrow",2
     
143.     Call fi_loop()
     
144.     Delay 500
     
145.     KeyPressH "RArrow",2
     
146.     Call fi_loop()
     
147.     Delay 500
     
148.     KeyPressH "RArrow",2
     
149.     Call fi_loop()
     
150.    
     
151.     KeyDownH "RArrow"
     
152.     Delay 3000
     
153.     KeyUpH "RArrow"    '後續由FIXYELO走回定點
     
154. End Sub
     
155. Sub fight_b()
     
156.     Delay 800
     
157.     KeyPressH "LArrow",2
     
158.     Call fi_loop()
     
159.     Delay 500
     
160.     KeyPressH "LArrow",2
     
161.     Call fi_loop()
     
162.     Delay 500
     
163.     KeyPressH "LArrow",2
     
164.     Call fi_loop()
     
165.    
     
166.     KeyDownH "LArrow"
     
167.     Delay 3000
     
168.     KeyUpH "LArrow"    '後續由FIXYELO走回定點
     
169. End Sub
     
170. Sub fight_c()
     
171.     If walkcounter mod 2 =1 Then
     
172.         Delay 800
     
173.         KeyPressH "RArrow",2
     
174.     Else
     
175.         Delay 800
     
176.         KeyPressH "LArrow",2
     
177.     End If
     
178.     Call fi_loop()
     
179. End Sub
     
180. Sub fight_d()
     
181.     If walkcounter mod 2 =1 Then
     
182.         Delay 500
     
183.         KeyDownH "RArrow"
     
184.         Delay 1000
     
185.         KeyUpH "RArrow"
     
186.         Delay 800
     
187.         KeyPressH "LArrow",2
     
188.     Else
     
189.         Delay 500
     
190.         KeyDownH "LArrow"
     
191.         Delay 1000
     
192.         KeyUpH "LArrow"
     
193.         Delay 800
     
194.         KeyPressH "RArrow",2
     
195.     End If
     
196.     Call fi_loop()      '後續由FIXYELO走回中心點
     
197. End Sub
     
198. Sub fight_e() '刀賊+bomb
     
199.     Delay 800
     
200.     KeyPressH "LArrow",2
     
201.     For usercounter=1 To 4  '奪取
     
202.         Call fi_loop()
     
203.         Delay 500
     
204.         KeyPressH "LArrow",1
     
205.     Next
     
206.     KeyDownH "RArrow"       '炸
     
207.     Delay 500
     
208.     KeyUpH "RArrow"
     
209.     Delay 800               
     
210.     KeyPressH "LArrow",2
     
211.     For USERCOUNT=1 To FI_TEMP / 4
     
212.         Delay 1000
     
213.         KeyPressH KEY_SK5,1
     
214.     Next
     
215.     KeyDownH "LArrow"       '檢
     
216.     Delay 1000
     
217.     KeyUpH "LArrow"
     
218. End Sub
     
219. Sub fight_f()
     
220.     KeyDownH "RArrow"
     
221.     Delay 8000
     
222.     KeyUpH "RArrow"
     
223.     Delay 300
     
224.     KeyDownH "LArrow"
     
225.     Delay 8000
     
226.     KeyUpH "LArrow"
     
227.     Delay 300
     
228. End Sub

複製代碼

接2樓

[ 本文章最後由 SAYHIGH 於 2007-9-13 14:51 編輯 ]

好久以前的東西被拉出來了唷0.0  這現在還可以用嘛~~~~

來研究看看
沒用過這種東西~
感謝大大分享唷~

謝謝這位大大的分享，真的是受用無窮！

謝謝大大的分享^^  很有用!!YCT56B

thanks for your sharing ~~~
謝謝你的分享 !!!

這是什麼?要複製到筆記本嗎還是說?

謝謝大大                             謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝

3qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

剛剛接觸 慢慢學習中  努力多存錢
感謝分享