百科知识

游戏

我想用按键精灵写一个自动打怪和NPC对话的脚本，但是提示我错误请?

2011-01-19 23:52:381***
我想用按键精灵写一个自动打怪和NPC对话的脚本，但是提示我错误 请老鸟帮我看看 那里出错了帮我改下Sub 自动战斗() Rem 选怪 KeyPress "Tab", 1 IfColor 1047,250,"FF1E",0 Then Goto 打完收工 Rem 开打 KeyPress "1", 1 Delay 100 KeyPress "2", 1 IfColor 305,978,"361F9C",0 Then Else KeyPress "F1", 1 End If IfColor 936,986,"908A1E",0 Then Else KeyPress "F2", 1 End If Delay 800 KeyPress "3", 1 Delay 800 KeyPress "4", 1 Delay 800 KeyPress "5", 1 Delay 800 KeyPress "6", 1 Delay 800 IfColor 584,57,"7FB8C1",0 Then Goto 开打 Goto 选怪 Rem 打完收工 End Sub Rem 交接任务 Sub 交接任务() MoveTo 213, 451 LeftClick 1 MoveTo 590, 721 Delay 1000 LeftClick 1 End Sub Sub 交接任务2() MoveTo 213, 451 Delay 100 LeftClick 1 MoveTo 590, 721 Delay 1000 LeftClick 1 Delay 1000 LeftClick 1 End Sub我想用按键精灵写一个自动打怪和NPC对话的脚本，但是提示我错误请老鸟帮我看看那里出错了帮我改下Sub自动战斗()Rem选怪KeyPress"Tab",1IfCo?

最佳回答

  •   给你一段仙域游戏的找怪子程序作为参考，可后台使用 Sub 找怪(a,b,c,d,e) Delay 200 Call Plugin。Bkgnd。KeyPress(hwnd,77) Delay 1000 XY = Plugin。
      Bkgnd。FindColorEx(Hwnd, x1+A, y1+B, x1+C,y1+D, "0B17DF", e,0。9) Delay 50 MArray = Split(XY, "|") X = Clng(MArray(0)): Y = Clng(MArray(1)) If X=-1 Then m=0 Call Plugin。
      Bkgnd。KeyPress(hwnd,27) Else Delay 100 Call Plugin。Bkgnd。MoveTo(Hwnd, X, Y) Call Plugin。Bkgnd。
      LeftClick(hwnd,X,Y) Delay 200 Call Plugin。Bkgnd。KeyPress(hwnd,27) Delay 500 m=1 End if End Sub。
      
    2011-01-21 16:22:04
    • 很赞哦！ (279)

    相关文章