求个奇迹MU自动拾取脚本

kyorion

求个奇迹MU自动拾取脚本，如1.03H版本自动拾取如何编程，小弟新手，望指教！

a466530667

Delay 100
Hwnd = Plugin.Window.MousePoint()//得到鼠标指向窗口
Delay 100
Call Plugin.Window.Move(Hwnd, 0, 0)//移动窗口
Delay 100
Call Plugin.Window.Active(Hwnd)//激活窗口
Delay 100
Rem 开始
MoveTo 405, 295//鼠标移动到奇迹窗口的中间，为了右键技能可以100%发出
Delay 500
RightDown 1
Delay 100
FindPic 0,0,800,600,"Attachment:\玛雅之石.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
    Call 检起(30,20)
End If
FindPic 0,0,800,600,"Attachment:\创造宝石.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
    Call 检起(30,20)
End If
FindPic 0,0,800,600,"Attachment:\灵魂.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
    Call 检起(30,20)
End If
FindPic 0,0,800,600,"Attachment:\幸运.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
    Call 检起(-80,20)
End If
FindPic 0,0,800,600,"Attachment:\幸运.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
    Call 检起(-55,20)
End If
FindPic 0,0,800,600,"Attachment:\组队.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
    Delay 100
    //要接受就把下面注释改下
    //MoveTo intX - 65, intY + 40//这个是接受组队要点的地方
    MoveTo intX + 95, intY + 40//这个是拒绝组队要点的地方
    Delay 500
    LeftClick 1
End If
FindPic 0,0,800,600,"Attachment:\死亡.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
    Call 死亡以后
    EndScript //结束脚本
End If
Goto 开始
Sub 检起(X,Y)
    Delay 100
    RightUp 1
    Delay 100
    MoveTo intX + X, intY + Y
    Delay 500
    LeftClick 1
    Delay 2000
    RightDown 1
    Delay 100
End Sub
Sub 死亡以后
    For 3//这里是循环报警次数
        Call Plugin.Media.Play("C:\报警.wav")//死亡以后播放C盘音频文件报警
        Delay 1300
    Next
    //当然这里也可以是其他的，例如关机
    //Call Plugin.Sys.ExitOS(1)
End Sub
//脚本载入子程序，打开脚本后自动完成的动作
Sub OnScriptLoad()
    PutAttachment "C:\","*.wav"//释放后缀为WAV格式的文件，到C盘
End Sub
有点麻烦，捡东西后不能返坐标。

yangfusheng

有贴必回，最喜欢楼主这样的有为青年了~