无名转火乾坤剑意
/script y0n=y0n or false
if not y0n then
OutputMessage("MSG_SYS","自动选<乾坤剑意>开启。\n")
y0n=true
else
OutputMessage("MSG_SYS","自动选<乾坤剑意>关闭。\n")
y0n=false
end
rOnce=rOnce
if not rOnce then
J_NpcList = {}
RegisterEvent("NPC_ENTER_SCENE",function()
local tar=GetNpc(arg0)
if tar.szName=="乾坤剑意" then
J_NpcList[arg0] = tar
end
end)
RegisterEvent("NPC_LEAVE_SCENE",function()
J_NpcList[arg0] = nil
end)
RegisterEvent("RENDER_FRAME_UPDATE",function()
if not y0n then return end
local player = GetClientPlayer()
local tar = GetTargetHandle(player.GetTarget())
for tid,ttar in pairs(J_NpcList) do
if ttar and ttar.nCurrentLife > 0 and (not tar or tar.nCurrentLife < 1 or tar.szName ~= ttar.szName) then
SetTarget(TARGET.NPC,tid)
break
end
end
end)
end

维提吠达特天罚剑
/script y0n = y0n or false
if y0n then
y0n=false;OutputMessage("MSG_SYS","关\n")
else
y0n=true;OutputMessage("MSG_SYS","开\n")
end
RegisterEvent("NPC_ENTER_SCENE",function()
if not y0n then return end
local n=GetNpc(arg0)
if n and n.szName=="维提吠达特天罚剑" or n.szName=="血玉" or n.szName=="阴性血玉" or n.szName=="诡异的物体" then
SetTarget(TARGET.NPC,arg0)
end
end)

蛋总开锁宏
/script bUnLock = bUnLock or false
if not bUnLock then
OutputMessage("MSG_SYS","自动<开锁>已开启。弹出<开锁>界面，请点击<开锁>完成解锁。\n")
bUnLock = true
else
OutputMessage("MSG_SYS","自动<开锁>已关闭。\n")
bUnLock = false
end
RegisterOnce=RegisterOnce
if not RegisterOnce then
RegisterEvent("RENDER_FRAME_UPDATE",function()
if not bUnLock then return end
local frame = Station.Lookup("Normal/LockPanel")
if frame and frame:IsVisible() then
local scrollbar = frame:Lookup("ScrollBar_Lock")
local imgPercent = frame:Lookup("", "Handle_Lock"):Lookup("Image_Percent")
if scrollbar then
if not imgPercent:IsVisible() then
scrollbar:SetScrollPos(100)
else
local nValue = math.floor(imgPercent:GetPercentage() * 100)
scrollbar:SetScrollPos(nValue)
end
end
end
end)
RegisterEvent("OPEN_WINDOW",function()
if not bUnLock then return end
if string.find(arg1, "LOCK_PANEL") then
GetClientPlayer().WindowSelect(arg0,0)
end
end)
end

马克