fbl=0 "分辨率"
UserVar zdjh=0 "自动加红"
UserVar zdjl=0 "自动加蓝"
UserVar sgdd=2000 "打怪后等待时间,1秒=1000毫秒"
UserVar djpl=200 "点击频率,1秒=1000毫秒"
UserVar sjsy=0 "随机使用"

If fbl = 0 Then
Call zddg()
ElseIf fbl = 1 then
Call zddgck()
End If




Sub zddg()    //--------------------------------------------------------------1280*768，执行下面的脚本  
Rem dz 
Delay sgdd
Rem tz
Delay 15
FindPic 0,0,1270,550,"Attachment:\lj.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX + 30, intY + 80
Delay djpl
LeftClick 1
Goto dz
ElseIf sjsy = 1 Then
KeyPress 51, 1
Delay 500
Goto tz
End If
Goto tz
End Sub

Sub zddgck()  //----------------------------------------------------------------窗口模式时,执行一下脚本
Hwnd = Plugin.Window.Find(0, "【魔域】")
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim myck
myck = Split(sRect, "|")
Cx = CLng(myck(0))
Cy = Clng(myck(1)) //-----窗口坐标赋值完成-----
Rem dz1
Delay sgdd
Rem tz1
Delay 15
FindPic 0 + Cx, 0 + Cy, 1011 + Cx, 550 + Cy, "Attachment:\lj.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
MoveTo intX + 30, intY + 80
Delay djpl
LeftClick 1
Goto dz1
ElseIf sjsy = 1 Then
KeyPress 51, 1
Delay 500
Goto tz1
End If
Goto tz1
End Sub