万王之王 KOK King of Kings

 找回密码
 加入我们
查看: 1002|回复: 0

【RK】自动铺MOB 设LV 设名字 可以自己改多屏设置

[复制链接]
发表于 2017-11-29 09:42 | 显示全部楼层 |阅读模式
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
您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

小黑屋|手机版|万王之王 king of kings

GMT+8, 2024-3-29 21:15

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表