【RK】战士后台挂多坑打钱的按键脚本

solaryffx

//下面参数自己设
//要打几坑
Dim tk
tk=2
//x y 是标准24人坑中心坐标 可以设6个
Dim x(6)
x(1) = 17
x(2) = 17
Dim y(6)
y(1) = 48
y(2) = 84

//杀死一个怪的时间
Dim time
time = 10
//商店的地址码，SD(1)对应 X1，Y1
Dim sd(6)
sd(1) = 917551
sd(2) = 983126

//负重， 设6就是杀6个卖一次
Dim fz
fz = 6

//下面参数不要自己设
Dim tfz
tfz = 0

Dim j
Dim Hwnd

//调整MOB地址码用的
Dim n
n = - 196615

Dim a(24)
//以下是代码

//自动设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
//清屏
Sub cls
Delay 200
Call Plugin.Bkgnd.SendString(Hwnd, "clear")
Delay 200
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 200
End Sub

//卖东西
Sub sell
Call star
Delay 3000
Delay 200
Call Plugin.Bkgnd.SendString(Hwnd, "look 1@"&sd(j))
Delay 200
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 300

For t = 1 To fz * 4
Delay 200
Call Plugin.Bkgnd.SendString(Hwnd, "sell 1")
Delay 200
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 300
Next

End Sub

//砍杀
Sub kill
Dim i
For i = 1 To 24
Delay 1000

Call Plugin.Bkgnd.SendString(Hwnd, "run " & a(i))
Delay 200
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 200
Delay 1500
Call Plugin.Bkgnd.SendString(Hwnd, "kill "&a(i))
Delay 200
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 200

Delay time * 1000

Delay 200
Call Plugin.Bkgnd.SendString(Hwnd, "get ALL_ITEM_IN "&a(i))
Delay 200
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 500
tfz=tfz+1

If tfz = fz Then
    tfz = 0
        Call sell
       
End If

If i = 6 Then
        Call star
End If
If i = 12 Then
        Call star
End If
If i = 18 Then
        Call star
End If
If i = 24 Then
        Call star
End If

Next


End Sub


Rem getwindows
If Hwnd = 0 Then
        Call getjb
        Else
        Goto start
       
End If

Rem start


For j = 1 To TK

Call star
Delay 10000
Call mob
Delay 1000

Call kill
Delay 1000

Next

solaryffx

说明：复制到按键里就可以了，设好前面几个参数，就可以跑多坑打怪卖钱了。有啥问题可以留言。

solaryffx

跑坑 写的10秒。也可以自己改

梦想家

我这懒人表示坚决支持

zengzming

这个代码看起来挺复杂的，顶一下

dumingzhan

Call Plugin.Bkgnd.SendString(Hwnd, "kill "&a(i))
Delay 200
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 200
如果法师想镖24个该怎么改代码呢

lichronghc

多谢大佬，很有用处