[心得分享] 【冲层福音】黑洞宏（支持散件） 2019.03.28

[复制链接]

领主

絕對水餃

帖子：3764

符文：396

电梯直达

1^#

发表于 2018-9-15 18:40:45 |只看该作者 |倒序浏览来自：北京

本帖最后由絕對水餃于 2019-3-28 18:33 编辑

默认按键：传送/电甲、原力波、陨石、黑洞、电刑、引导

黑洞宏.rar (11.46 KB, 下载次数: 7164)
支持陨石自动传送
支持原力波和陨石手动传送
支持散件踩神目
必须战网启动游戏！
部分玩家不支持自动传送

若伤害不稳定、放不出技能，可更新罗技软件，或更换鼠标左右键技能（感谢：无缺点总司令）
屏幕快照 2019-03-17 上午12.10.45.png

更新：
2019.03.28
1.修改穿怪黑洞启动循环，解决需要0层灵光启动问题
2.修改ALT标记设定，解决只有火陨石循环按下有效问题
3.新增一键拾取、一键赌博、一键分解
2019.03.16
1.修改启动按键设置，解决部分玩家无法启动问题
2.新增指示灯、强制站立修改设置
2019.02.22
1.新增结束电刑设定，能够有效暂停电刑
2.新增SHITF判定，防止误按导致强制站立失效
2019.02.20
1.增加CTRL标记判定条件，解决暂停宏误按BUG
2.修改传送黑洞循环延迟，提高伤害稳定性
3.修改强制站立设定，解决直接关宏重启后无强制站立BUG
4.增加小键盘修改介绍
2019.02.18
1.修改黑洞按键释放延迟，避免无法释放原力波
2.修改电刑强制站立设置，避免无法打出伤害
3.修改YanChi()设置，避免低性能CPU产生BUG
2019.02.16
1.修改传送鼠标移动延迟，避免陨石砸到神目
2.修改黑洞延迟，避免出现0层原力波
3.添加支持win7模式
2019.01.23
1.放弃rshift设定，全使用G键启动
2.修改玩家设置选项，简化个人修改
2019.01.22
删除G4键识别，重新加入rshift设定
2019.01.22
1.新增自动传送
2.修改传送黑洞延迟，提高伤害稳定性
3.传送黑洞与电甲黑洞共享一个延迟设定
2019.01.21
删除rshift设定，方便启动
2019.01.20
修改rshift设定为多键，解决部分玩家无法启动问题
2019.01.20
1.修改电甲黑洞延迟设定，保证每发满能
2.修改穿怪黑洞陨石序列
3.修改所有引导延迟设定，支持加速塔
~~4.修改rshift设定，解决部分玩家无法启动问题~~
5.新增电元素引导默认设置，可选择手动控制
2019.01.18
1.修改循环总延迟错误，避免默认设置对不上元素
2.新增散件黑洞模式
3.新增自动对元素可随时开启
2018.11.13
修正上传错误
2018.11.12
修正延迟修改，上传稳定4发宏
2018.11.07
修改第五发引导计算，简化切巅峰修改，增加延迟修改设置
2018.11.2
1.修正第五发引导问题
2.修改且巅峰计算
2018.10.31
1.去除五发宏，增加新4发5发转换宏增强稳定性
2.添加宏图标，修改延迟计算方式，添加新巅峰计算方式

前言
从一个小白到会自己写宏花费了大量的时间，感谢凯恩所有分享宏的前辈们

特别感谢仙林大大，在学习的过程中经常请教大大

一、0层黑洞的原理
引导黑洞之后接手动黑洞，场面上会同时存在两个黑洞
1.当场面上同时存在两个黑洞时，两个黑洞都打中怪物，必定产生个位数或0层黑洞，使奥元素无黑洞增伤
2.当场面上同时存在两个黑洞时，有一个黑洞未打中怪物，则保持打中怪物的黑洞层数，不影响黑洞增伤

结论：需要避免手动黑洞之前出现引导黑洞，或保证有一个黑洞不打到怪

正常解决方法：手动黑洞之前2秒不释放引导（4发宏）
特殊解决方法：手动控制第五发是否引导（5发宏）

宏编辑需要满足以下条件：
1.每轮奥元素覆盖两发陨石
2.黑洞从释放到下一发陨石释放总时间不能大于5秒，即可满足不续黑洞
3.神目7秒需要覆盖到第二发陨石落地

二、操作指南
G4——鼠标返回键
G5——鼠标前进键
G5启动对元素
G4启动/暂停宏，点击G4键或关闭大小写键即可关闭
传送：鼠标移动到神目圈内按下左CTRL键标记传送坐标
重新标记：标记传送坐标后，在未传送之前再次按下左CTRL键则重新标记
j=0时，按下左ALT，本轮电陨石将会引导，不按则不会引导
CTRL+G4一件分解，CTRL+鼠标右键一键赌博，CTRL+鼠标左键一键拾取
Tips：
1.电进入奥瞬间对元素，穿怪黑洞需要保持0层启动
2.若人物死亡，直接使用G5点击复活键则自动对元素
3.对好元素不可以切出游戏，否则需要重新对元素
4.两发奥之后出现引导黑洞则可以标记ALT，否则无需标记
5.不死、不换房间、不切出游戏无需重新对元素

默认键位

三、按键修改
鼠标设置请参考：

【新手福音】罗技设置（附一键赌博分解宏）
http://bbs.d.163.com/forum.php?m ... 5879&fromuid=886696
(出处: http://bbs.d.163.com/)

右键宏图标，选择编辑脚本修改玩家设置

i=1——运行模式修改1或2
1.散件传送黑洞/套装电甲黑洞，2.散件穿怪黑洞

j=1——引导控制修改0或1
0.手动控制电元素引导，1.默认电元素引导

DuiYuanSu=5——G5对元素
替换为相应G键位数字即可

Start=4 ——G4启动键
替换为相应G键位数字即可，并将相应按键设置为大小写键

LED="capslock"——指示灯按键
可改为"scrolllock"或"numlock"

ZhanLi="Lshift"——强制站立键
自行替换Lshift

暗黑破坏神III 2019_1_23 14_55_24.png

AnJian={"1","2","3","4","Left","Right"}——技能栏按键设置
以下技能从左往右顺序
cs=AnJian[1]——传送技能栏位置
ylb=AnJian[2]——原力波技能栏位置
ys=AnJian[3]——陨石技能栏位置
hd=AnJian[4]——黑洞技能栏位置
dx=AnJian[5]——电刑技能栏位置
yd=AnJian[6]——引导技能栏位置
暗黑破坏神III 2019_1_23 14_56_22.png

如图所示，以上按键改为：
AnJian={"a","s","d","x","Left","Right"}——不分大小写
cs=AnJian[6]
ylb=AnJian[4]
ys=AnJian[3]
hd=AnJian[5]
dx=AnJian[1]
yd=AnJian[2]

四、实战应用
由于黑洞CD为12秒，加上巅峰10%CDR，则实际CD为10.8秒，引导黑洞CD与技能CD相同
当非奥陨石任意一发引导出黑洞，则按下ALT标记电陨石释放引导
1.传送黑洞：可以在原力波或者陨石之后进行传送，若延迟高于100ms建议原力波传送避免无引导增伤
2.穿怪黑洞：只打4发陨石奥两发和奥前后各一发，可选择手动控制电引导，每发原力波后有近1秒时间踩神木
3.套装黑洞：无任何额外变化，需要将j改为0

五、宏代码
若无法启动，打开编写脚本，复制以下代码全部覆盖即可

--CTRL+G4一件分解，CTRL+鼠标右键一键赌博，CTRL+鼠标左键一键拾取
---------------------------------------------------玩家设置-----------------------------------------------
i=1 --自行修改1或2（1.散件传送黑洞/套装电甲黑洞，2.散件穿怪黑洞）
j=1 --自行修改0或1（0.手动控制电元素引导，1.默认电元素引导）
DuiYuanSu=5 --自行修改对元素（替换为G键位数字即可）
Start=4 --自行修改启动键（替换为G键位数字即可）
LED="capslock" --自行修改指示灯按键（可改为"scrolllock"或"numlock"）
ZhanLi="Lshift" --自行修改强制站立键
AnJian={"1","2","3","4","Left","Right"}--技能栏按键设置
--技能从左往右顺序
cs=AnJian[1]--传送技能栏位置
ylb=AnJian[2]--原力波技能栏位置
ys=AnJian[3]--陨石技能栏位置
hd=AnJian[4]--黑洞技能栏位置
dx=AnJian[5]--电刑技能栏位置
yd=AnJian[6]--引导技能栏位置
---------------------------------------------------全局设置-----------------------------------------------
H=96235
Xo=32767--人物中心X坐标
Yo=30700--人物中心Y坐标
EnablePrimaryMouseButtonEvents (true)
function JiNeng_Down(JiNeng)
if JiNeng=="Left" then
PressMouseButton(1)--点击左键
elseif JiNeng=="Right" then
PressMouseButton(3)--点击右键
else
PressKey(JiNeng)
end
end
function JiNeng_Up(JiNeng)
if JiNeng=="Left" then
ReleaseMouseButton(1)--释放左键
elseif JiNeng=="Right" then
ReleaseMouseButton(3)--释放右键
else
ReleaseKey(JiNeng)
end
end
--分解
function FenJie()
MoveMouseTo(6000,17000)
Sleep(100)
PressAndReleaseMouseButton(1)
Sleep(50)
k=0
while k<60
do
X=k%10-- 分解列
Y=math.floor(k/10)--分解行
MoveMouseTo(49000+1700*X,36000+3000*Y)
Sleep(1)
PressAndReleaseMouseButton(1)
Sleep(1)
PressAndReleaseKey("Enter")
Sleep(1)
PressAndReleaseMouseButton(1)
Sleep(1)
PressAndReleaseKey("Enter")
Sleep(1)
k=k+1
end
end
---------------------------------------------------技能设置-----------------------------------------------
--电刑
function DianXing_Down()
if IsKeyLockOn(LED) then
JiNeng_Down(dx)
end
end
function DianXing_Up()
JiNeng_Up(dx)
end
function DianXing(CiShu,XiuZheng)
if IsKeyLockOn(LED) and CiShu>0 then
DianXing_Down()
while CiShu>1
do
YanChi(12)
CiShu=CiShu-1
end
YanChi(12+XiuZheng)
DianXing_Up()
end
end
--引导
function YinDao_Down()
if IsKeyLockOn(LED) then
JiNeng_Down(yd)
end
end
function YinDao_Up()
JiNeng_Up(yd)
end
function YinDao(CiShu,XiuZheng)
if IsKeyLockOn(LED) and CiShu>0 then
YinDao_Down()
while CiShu>1
do
YanChi(12)
CiShu=CiShu-1
end
YanChi(12+XiuZheng)
YinDao_Up()
end
end
--原力波
function YuanLiBo_Down()
if IsKeyLockOn(LED) then
JiNeng_Down(ylb)
end
end
function YuanLiBo_Up()
JiNeng_Up(ylb)
end
function YuanLiBo(CiShu,XiuZheng)
if IsKeyLockOn(LED) and CiShu>0 then
YuanLiBo_Down()
YuanLiBo_Up()
YanChi(38+XiuZheng)
end
end
--陨石
function YunShi_Down()
if IsKeyLockOn(LED) then
JiNeng_Down(ys)
X,Y=GetMousePosition()--记录陨石位置
end
end
function YunShi_Up()
JiNeng_Up(ys)
end
function YunShi(CiShu,XiuZheng)
if IsKeyLockOn(LED) and CiShu>0 then
YunShi_Down()
YunShi_Up()
if BiaoJi==1 then
YunShi_X()
YunShi_Y()
YanChi(38+XiuZheng)
MoveMouseTo(ShenMuX,ShenMuY)--鼠标移动到神目位置
else
YanChi(38+XiuZheng)
end
end
end
--黑洞
function HeiDong_Down()
if IsKeyLockOn(LED) then
JiNeng_Down(hd)
end
end
function HeiDong_Up()
JiNeng_Up(hd)
end
function HeiDong(CiShu,XiuZheng)
if IsKeyLockOn(LED) and CiShu>0 then
HeiDong_Down()
HeiDong_Up()
YanChi(38+XiuZheng)
end
end
--传送
function ChuanSong_Down()
if IsKeyLockOn(LED) then--判断传送是否标记,标记后才会执行下面的步骤
if YunShiY>0 and YunShiY<60000 and YunShiX>0 and YunShiX<65535 then
JiNeng_Down(cs)
else
MoveMouseTo(X,Y)--鼠标移动到陨石位置
end
end
end
function ChuanSong_Up()
if IsKeyLockOn(LED) then
if YunShiY>0 and YunShiY<60000 and YunShiX>0 and YunShiX<65535 then
JiNeng_Up(cs)
MoveMouseTo(YunShiX,YunShiY)--鼠标移动到传送后陨石位置
end
BiaoJi=0
end
end
function ChuanSong(CiShu,XiuZheng)
if IsKeyLockOn(LED) and CiShu>0 then
ChuanSong_Down()
YanChi(29+XiuZheng)
ChuanSong_Up()
end
end
function YunShi_X()
YunShiX=math.floor(Xo+(H+Y-Yo)*((Xo-ShenMuX)*H^2/(H+ShenMuY-Yo)^2)/H+H*(X-Xo)/(H+ShenMuY-Yo))--传送后相对陨石X坐标
end
function YunShi_Y()
YunShiY=math.floor(Yo+(Yo-ShenMuY)*H/(H+ShenMuY-Yo)-(Yo-Y)*H/(H+ShenMuY-Yo))--传送后相对陨石Y坐标
end
--延迟
function YanChi(ZhenShu)
if IsKeyLockOn(LED)then--判断是否灯亮
XianZai=GetRunningTime()--得到延迟脚本开始时间
while XianZai-KaiShi-600<(XianZai_ZhenShu+ZhenShu)/60*1000 and IsKeyLockOn(LED)
do
--散件传送
if (XianZai-KaiShi-600)%16000<5 and QiDong==0 and i==1 then
QiDong=1
ReleaseKey(ZhanLi)--释放强制站立
PressKey(ZhanLi)--按下强制站立
elseif (XianZai-KaiShi-600+3667)%16000<5 and QiDong==0 and i==1 then
QiDong=5
ReleaseKey(ZhanLi)--释放强制站立
PressKey(ZhanLi)--按下强制站立
elseif (XianZai-KaiShi-600+3667+3083)%16000<5 and QiDong==0 and i==1 then
QiDong=4
ReleaseKey(ZhanLi)--释放强制站立
PressKey(ZhanLi)--按下强制站立
elseif (XianZai-KaiShi-600+3667+3083+3083)%16000<5 and QiDong==0 and i==1 then
QiDong=3
ReleaseKey(ZhanLi)--释放强制站立
PressKey(ZhanLi)--按下强制站立
elseif (XianZai-KaiShi-600+3667+3083+3083+3083)%16000<5 and QiDong==0 and i==1 then
QiDong=2
ReleaseKey(ZhanLi)--释放强制站立
PressKey(ZhanLi)--按下强制站立
--散件穿怪
elseif (XianZai-KaiShi-600+1517)%16000<5 and QiDong==0 and i==2 then
QiDong=4
ReleaseKey(ZhanLi)--释放强制站立
PressKey(ZhanLi)--按下强制站立
elseif (XianZai-KaiShi-600+1517+3683)%16000<5 and QiDong==0 and i==2 then
QiDong=3
ReleaseKey(ZhanLi)--释放强制站立
PressKey(ZhanLi)--按下强制站立
elseif (XianZai-KaiShi-600+1517+3683+5717)%16000<5 and QiDong==0 and i==2 then
QiDong=2
ReleaseKey(ZhanLi)--释放强制站立
PressKey(ZhanLi)--按下强制站立
elseif (XianZai-KaiShi-600+1517+3683+5717+3383)%16000<5 and QiDong==0 and i==2 then
QiDong=1
ReleaseKey(ZhanLi)--释放强制站立
PressKey(ZhanLi)--按下强制站立
elseif IsModifierPressed("lalt") and DYinDao==0 then--判断ALT是否按下，标记引导
DYinDao=1
elseif IsModifierPressed("lctrl") and BiaoJi_ZhuangTai==0 then--判断CTRL是否按下
ShenMuX,ShenMuY=GetMousePosition()--标记神目位置
BiaoJi=1
BiaoJi_ZhuangTai=1
elseif not IsModifierPressed("lctrl") and BiaoJi_ZhuangTai==1 then--判断CTRL按下状态
BiaoJi_ZhuangTai=0
end
Sleep(1)
XianZai=GetRunningTime()--得到延迟脚本过程的绝对时间
end
XianZai_ZhenShu=XianZai_ZhenShu+ZhenShu
end
end
----------------------------------------------------Build-------------------------------------------------
--散件传送
function SanJianChuanSong()
if QiDong==1 then
YuanLiBo(1,0)
DianXing(5,-7)
YunShi(1,-37)
if BiaoJi==1 then
ChuanSong(1,0)
else
YanChi(29)
end
DianXing(3,0)
YinDao(2,-2)
QiDong=2
YanChi(6)
elseif QiDong==2 then
YuanLiBo(1,0)
DianXing(5,-7)
YunShi(1,-37)
if BiaoJi==1 then
ChuanSong(1,0)
else
YanChi(29)
end
DianXing(3,0)
YinDao(2,-2)
QiDong=3
YanChi(6)
elseif QiDong==3 then
YuanLiBo(1,0)
DianXing(5,-7)
YunShi(1,-37)
if BiaoJi==1 then
ChuanSong(1,0)
else
YanChi(29)
end
DianXing(3,0)
YinDao(2,-2)
QiDong=4
YanChi(6)
elseif QiDong==4 then--185
YuanLiBo(1,0)
DianXing(5,-7)
YunShi(1,-37)
if BiaoJi==1 then
ChuanSong(1,0)
else
YanChi(29)
end
DianXing(3,0)
if DYinDao==1 then
YinDao(2,-2)
DYinDao=j
else
YanChi(22)
end
QiDong=5
YanChi(6)
elseif QiDong==5 then--220
HeiDong(1,0)--黑洞
YuanLiBo(1,0)
DianXing(5,-7)
YunShi(1,-37)
if BiaoJi==1 then
ChuanSong(1,0)
else
YanChi(29)
end
DianXing(3,0)
YinDao(2,-2)
QiDong=1
YanChi(3)
elseif QiDong==0 then
YanChi(1)
end
end
--散件穿怪
function SanJianChuanGuai()
if QiDong==5 then
YuanLiBo(1,35)
DianXing(3,-7)
QiDong=1
elseif QiDong==1 then--203
YunShi(1,0)
DianXing(3,-7)
YinDao(2,-2)
YanChi(2)
YuanLiBo(1,45)
DianXing(3,-7)
QiDong=2
elseif QiDong==2 then--343
YunShi(1,0)
DianXing(3,-7)
YinDao(2,-2)
YanChi(2)
YanChi(140)
YuanLiBo(1,45)
DianXing(3,-7)
QiDong=3
elseif QiDong==3 then--221
YunShi(1,0)
DianXing(3,-7)
if DYinDao==1 then
YinDao(2,-2)
YanChi(2)
DYinDao=j
else
YanChi(24)
end
HeiDong(1,0)--黑洞
YuanLiBo(1,25)
DianXing(3,-7)
QiDong=4
elseif QiDong==4 then--91
YunShi(1,0)
DianXing(3,-7)
YinDao(2,-2)
YanChi(2)
QiDong=5
elseif QiDong==0 then
YanChi(1)
end
end
----------------------------------------------------主程序------------------------------------------------
function OnEvent(event,arg)
if(event=="MOUSE_BUTTON_PRESSED"and arg==DuiYuanSu)then--对元素
PressAndReleaseMouseButton(1)
KaiShi=GetRunningTime()--得到宏开始时间
end
if(event=="MOUSE_BUTTON_PRESSED"and arg==Start and not IsModifierPressed("lctrl"))then--启动宏
BiaoJi=0--CTRL是否被按下
BiaoJi_ZhuangTai=0--CTRL按下状态
QiDong=0--宏是否启动
X=0--陨石位置X坐标
Y=0--陨石位置Y坐标
ShenMuX=0--神目位置X坐标
ShenMuY=0--神目位置Y坐标
YunShiX=0--陨石相对位置X坐标
YunShiY=0--陨石相对位置Y坐标
Sleep(200)
XianZai_ZhenShu=0--宏开始帧数
XunHuan=0
DYinDao=j
while IsKeyLockOn(LED)
do
if i==1 then
SanJianChuanSong()
else
if XunHuan==0 then
PressKey(ZhanLi)--按下强制站立
YuanLiBo_Down()
YuanLiBo_Up()
Sleep(634)
DianXing_Down()
Sleep(883)
DianXing_Up()
ReleaseKey(ZhanLi)--释放强制站立
XunHuan=1
else
SanJianChuanGuai()
end
end
end
ReleaseKey(ZhanLi)--释放强制站立
end
if(event=="MOUSE_BUTTON_PRESSED"and arg==2 and IsModifierPressed("lctrl"))then--CTRL+右键赌博
k=50
while k>0
do
PressAndReleaseMouseButton(3)
Sleep(5)
k=k-1
end
end
if(event=="MOUSE_BUTTON_PRESSED"and arg==4 and IsModifierPressed("lctrl"))then----CTRL+G4键分解
FenJie()
if IsKeyLockOn(LED ) then
ReleaseKey(LED)
PressAndReleaseKey(LED)
end
end
if(event=="MOUSE_BUTTON_PRESSED"and arg==1 and IsModifierPressed("lctrl"))then--CTRL+左键拾取
k=25
while k>0
do
PressAndReleaseMouseButton(1)
Sleep(15)
k=k-1
end
end
end