按键精灵刷火女一图脚本源码

运行环境：分辨率：1366x768 色深：32位 操作系统：Windows 7 Ultimate 按键精灵版本：9.51.11790

@dichanger 2013/4/19

PutAttachment ".\plugin" ,"*.dll"  
Hwnd = Plugin.Window.Find(0, "地下城与勇士")  
Call Plugin.Window.Move(Hwnd, 0, 0)  
Rem 主程序  
Call 判断pl()  
Rem 判断  
Call 进图()  
Delay 4000  
Call 选择打左右()  
Call 捡物()  
Call 回城()  
For 2  
Call 进图1()  
Delay 4000  
Call 选择打左右()  
Call 捡物()  
Call 回城()  
Next  
Call 卖店()  
Call 判断pl()  
Call 结束()  
Rem 停止  
  
Sub 判断pl()  
IfColor 317, 554, "070709", 0 Then  
Call 结束()  
Else   
Goto 判断  
End If  
  
End Sub  
Sub 选择打左右()  
KeyDown "A", 1  
Delay 200  
KeyUp "A", 1  
 IfColor 3, 25, "1884EF", 0 Then  
Call 打怪右()  
Else   
Call 打怪左()  
End If  
End Sub  
Sub 进图()  
MoveTo 10, 450  
Delay 500  
RightClick 1  
Delay 2000  
MoveTo 10, 450  
Delay 500  
RightClick 1  
Delay 2000  
MoveTo 236, 101  
Delay 3000  
LeftDoubleClick 1  
Delay 3000  
End Sub  
Sub 卖店()  
MoveTo 780, 400  
RightClick 1  
Delay 3000  
RightClick 1  
Delay 3000  
MoveTo 236, 130  
LeftClick 1  
Delay 600  
MoveTo 280, 173  
LeftClick 1  
Delay 1000  
MoveTo 302, 455  
Delay 500  
LeftClick 1  
Delay 500  
MoveTo 487, 324  
Delay 500  
LeftClick 1  
Delay 500  
LeftClick 1  
Delay 500  
LeftClick 1  
Delay 500  
KeyPress "Esc", 1  
Delay 500  
MoveTo 160, 403  
RightClick 1  
Delay 500  
MoveTo 7, 403  
RightClick 1  
Delay 1000  
//KeyPress "F", 1  
//MoveTo 486, 321  
//IfColor 486, 321, "110C06", 0 Then  
//KeyPress "Esc", 1  
//Else   
//Call 卖店()  
//End If  
End Sub  
Sub 回城()  
Delay 1000  
KeyPress "Esc", 1  
Delay 1000  
MoveTo 513, 429  
Delay 1000  
LeftClick 1  
Delay 2000  
End Sub  
Sub 进图1()  
MoveTo 111, 450  
RightClick 1  
Delay 1000  
MoveTo 10, 450  
Delay 500  
RightClick 1  
Delay 2000  
MoveTo 236, 101  
Delay 4000  
LeftDoubleClick 1  
Delay 200  
LeftDoubleClick 1  
Delay 4000  
End Sub  
Sub 打怪左()  
Delay 2000  
For 3  
Call 左()  
Next  
Rem 向上打怪  
For 3  
For 3  
Call 攻击()  
KeyPress "A", 1  
Next  
Call 上()  
Next  
Rem 向下打怪  
For 3  
For 3  
Call 攻击()  
KeyPress "A", 1  
Next  
Call 下()  
Next  
End Sub  
Sub 打怪右()  
Delay 2000  
For 3  
Call 右()  
Next  
Rem 向上打怪  
For 3  
For 3  
Call 攻击()  
KeyPress "D", 1  
Next  
Call 上()  
Call 上()  
Next  
Rem 向下打怪  
For 3  
For 3  
Call 攻击()  
KeyPress "D", 1  
Next  
Call 下()  
Call 下()  
Call 上()  
Next  
End Sub  
Sub 攻击()  
KeyPress "Y", 1  
Delay 600  
KeyUp "Y", 1  
Delay 200  
End Sub  
Sub 上()  
KeyDown "W", 1  
Delay 300  
KeyUp "W", 1  
  
End Sub  
Sub 下()  
KeyDown "S", 1  
Delay 300  
KeyUp "S", 1  
  
End Sub  
Sub 左()  
KeyDown "A", 1  
Delay 500  
KeyUp "A", 1  
  
End Sub  
Sub 右()  
KeyDown "D", 1  
Delay 500  
KeyUp "D", 1  
End Sub  
Sub 捡物()  
Delay 200  
KeyDown "B", 1  
Delay 200  
KeyUp "B", 1  
Delay 2000  
KeyDown "N", 1  
Delay 200  
KeyUp "N", 1  
KeyPress "J", 1  
Delay 200  
KeyPress "J", 1  
Delay 200  
KeyPress "J", 1  
Delay 200  
KeyPress "J", 1  
Delay 200  
KeyPress "J", 1  
Delay 200  
End Sub  
Sub 结束()  
Goto 停止  
End Sub  
Sub 检查()  
KeyPress "F", 1  
MoveTo 486, 321  
IfColor 486, 321, "110C06", 0 Then  
KeyPress "Esc", 1  
Else   
Call 卖店()  
End If  
  
End Sub