标题: 求个奇迹MU自动拾取脚本 [打印本页] 作者: kyorion 时间: 2012-1-1 23:33 标题: 求个奇迹MU自动拾取脚本 求个奇迹MU自动拾取脚本，如1.03H版本自动拾取如何编程，小弟新手，望指教！作者: a466530667 时间: 2012-11-21 14:08
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 时间: 2013-11-24 20:05
有贴必回，最喜欢楼主这样的有为青年了~