【罗技】法师宏合集添加一键附魔自动升级稀有转换材料 - 凯恩之角_暗黑破坏神3论坛_夺魂之镰

------------------------------------------------------------------

附加功能代码段

赌博

复制代码

分解

复制代码

自动升级装换材料

--升级稀有转换材料
function ShengJiZhuanHuan(mode)
Thx,Thy=GetMousePosition()
if (Thx<48151 or Thx>65149 or Thy<34501 or Thy>52499) then
k=1
elseif mode==2 then
k=math.floor((Thx-48150)/1700)+1+10*math.floor((Thy-34500)/6000)
else
k=math.floor((Thx-48150)/1700)*6+math.floor((Thy-34500)/3000)+1
end
local Pos={
{Posx=20000,Posy=51000,KeyNum=1,SleepTime=StepTime},
{Posx=29000,Posy=51000,KeyNum=1,SleepTime=StepTime},
{Posx=24500,Posy=51000,KeyNum=1,SleepTime=StepTime},
{Posx=8100,Posy=50000,KeyNum=1,SleepTime=StepTime}
}
while k<(60/mode+1)
do
if mode==2 then
ThingX=(k-1)%10-- 升级列
ThingY=math.floor((k-1)/10)--升级行
else
ThingX=math.floor((k-1)/6)-- 升级列
ThingY=(k-1)%6--升级行
end
Sleep(StepTime)
if not MoveAndPress(Pos[1]) then break end
if not MoveAndPress(Pos[2]) then break end
LoopPos={Posx=49000+1700*ThingX,Posy=36000+3000*mode*ThingY,KeyNum=3,SleepTime=StepTime}
if not MoveAndPress(LoopPos) then break end
if not MoveAndPress(Pos[3]) then break end
if not MoveAndPress(Pos[4]) then break end
Sleep(StepTime)
k=k+1
end
end

复制代码

自动附魔

复制代码

按键退出判定

复制代码

触发段代码

<font face="微软雅黑">if(event=="MOUSE_BUTTON_PRESSED"and arg==KeyGroup[1].PKey and IsModifierPressed(KeyGroup[1].MKey))then--赌博
DuBo()--赌博物品：页、行、列
GuanBi()
end
if(event=="MOUSE_BUTTON_PRESSED"and arg==KeyGroup[3].PKey and IsModifierPressed(KeyGroup[3].MKey))then----分解
FenJie()
GuanBi()
end
if(event=="MOUSE_BUTTON_PRESSED"and arg==KeyGroup[4].PKey and IsModifierPressed(KeyGroup[4].MKey))then----S升级稀有或转换材料
ShengJiZhuanHuan(2)
GuanBi()
end
if(event=="MOUSE_BUTTON_PRESSED"and arg==KeyGroup[5].PKey and IsModifierPressed(KeyGroup[5].MKey))then----升级小件稀有
ShengJiZhuanHuan(1)
GuanBi()
end
if(event=="MOUSE_BUTTON_PRESSED"and arg==FM and not IsModifierPressed("shift") and not IsModifierPressed("ctrl"))then----自动附魔
FuMo()
GuanBi()
end
if(event=="MOUSE_BUTTON_PRESSED"and arg==KeyGroup[2].PKey and IsModifierPressed(KeyGroup[2].MKey)) then----拾取
k=25
while k>0
do
PressAndReleaseMouseButton(1)
Sleep(15)
k=k-1
end
GuanBi()
end</font>

复制代码