【冲层福音】黑洞宏（支持散件） 2019.03.28 - 凯恩之角_暗黑破坏神3论坛_夺魂之镰

--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

复制代码