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