|
发表于 2012-11-21 14:08:38
|
显示全部楼层
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
有点麻烦,捡东西后不能返坐标。 |
|