|
Dim Hwnd
//自己设 XY坐标 中心点位置 增加x 以及最后的j=1to X 可以多屏设置
Dim x(6)
Dim j
x(1) = 38
Dim y(6)
y(1) = 48
//自己设 mob的类型 默认是男人
Dim mobtype
mobtype = 327681
//自己设 mob的等级 默认是15级
Dim moblv
moblv = 15
//自己设 mob的nick name 默认是LV15
Dim mobnick
mobnick = lv15
Dim n
n = - 196615
Dim a(24)
//以下是代码
Sub mob
//左上
a(1) = n + x(j) * 65536 + y(j)
a(2) = a(1)-1
a(3) = a(1) - 65536
a(4) = a(2) - 65536
a(5) = a(3) - 65536
a(6) = a(4) - 65536
//左下
a(7) = a(1)+16
a(8) = a(7)+1
a(9) = a(7) - 65536
a(10) = a(8) - 65536
a(11) = a(9) - 65536
a(12) = a(10) - 65536
//右上
a(13) = a(1) + 5 * 65536
a(14) = a(13) + 65535
a(15) = a(13) + 65536
a(16) = a(14) + 65536
a(17) = a(15) + 65536
a(18) = a(16) + 65536
//右下
a(19) = a(1) + 5 * 65536 + 16
a(20) = a(19) + 65537
a(21) = a(19) + 65536
a(22) = a(20) + 65536
a(23) = a(21) + 65536
a(24) = a(22) + 65536
End Sub
Sub getjb
Hwnd = Plugin.Window.Foreground()
End Sub
//回到坐标
Sub star
Delay 200
Call Plugin.Bkgnd.SendString(Hwnd, "run "&x(j)&","&y(j))
Delay 200
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 200
Delay 3000
End Sub
//设置MOB
Sub setmob
Dim i
For i = 1 To 24
Call Plugin.Bkgnd.SendString(Hwnd, "build " & mobtype &" "&a(i))
Delay 200
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 200
Call Plugin.Bkgnd.SendString(Hwnd, "set_mob " & a(i) & " prop level " & moblv)
Delay 200
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 200
Call Plugin.Bkgnd.SendString(Hwnd, "set_mob " & a(i) & " prop nick " & mobnick)
Delay 200
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 200
Next
End Sub
Rem getwindows
If Hwnd = 0 Then
Call getjb
Else
Goto start
End If
Rem start
For j = 1 To 1
Call star
Delay 1000
Call mob
Delay 1000
Call setmob
Delay 1000
Next
|
|