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