传奇3加速外挂源代码EI3.0超级蓝海挂机Delphi源码

夜游神 · 发表于 2023-1-26 11:18:15

传奇3加速外挂源代码过地狱星登陆器,冷雨夜登陆器

EI3.0超级蓝海移动挂机加速源码,体验不一样的乐趣

EI3.0蓝海外挂.png

procedure SetMotionState(bMtn, bDir, nMouseTargetID: Integer; bIsDead: BOOL; pptPos: PPoint; shSkill: Integer); stdcall;
var
pFnSMS: Pointer;
begin
pFnSMS := Pointer($410840);
asm
push shSkill
push pptPos
push bIsDead
push nMouseTargetID
push bDir
push bMtn
mov ecx,777698h
Call pFnSMS
end;
end;
function DelAllMapItems: BOOL;
var
CurNode: LPNODE;
lp: LPGROUNDITEM;
i, fnDelNode, fnDelItem: Integer;
begin
{$I VMProtectBegin.inc}
Result := False;
fnDelNode := $423450;
fnDelItem := $4680F8;
if (pItemCnt^ = 0) then Exit;
for i := 0 to pItemCnt^ - 1 do
begin
CurNode := ppItemNode^;
if CurNode <> nil then
begin
lp := CurNode.ptypeData;
asm
push CurNode
mov ecx,$5600cc
call fnDelNode
end;
if lp <> nil then
begin
asm
push lp
call fnDelItem
add esp,4
end;
end else Exit;
end;
end;
{$I VMProtectEnd.inc}
end;
procedure AutoEat;
begin
{$I VMProtectBegin.inc}
with pMy.m_stAbility do
begin
if Assigned(m_tItemHP1) and m_tItemHP1.m_BoEat and (wHP < m_tItemHP1.m_LowHp) then
m_tItemHP1.Eat;
if Assigned(m_tItemHP2) and m_tItemHP2.m_BoEat and (wHP < m_tItemHP2.m_LowHp) then
m_tItemHP2.Eat;
if Assigned(m_tItemMP1) and m_tItemMP1.m_BoEat and (wMP < m_tItemMP1.m_LowMp) then
m_tItemMP1.Eat;
if Assigned(m_tItemMP2) and m_tItemMP2.m_BoEat and (wMP < m_tItemMP2.m_LowMp) then
m_tItemMP2.Eat;
end;
{$I VMProtectEnd.inc}
end;
procedure RushBag;
begin
if GetTickCount - LastRushTick < RushDelayTick then Exit;
LastRushTick := GetTickCount;
if bRushBag then SendSocket(CM_QUERYBAGITEMS);
end;
procedure SetUserState;
begin
if bNotMove then
begin
if PByte($7D9303)^ > 0 then
PByte($7D9303)^ := 0;
end;
if bNotDelay then
begin
if PDWORD($777788)^ > 0 then
PDWORD($777788)^ := 0;
end;
end;
procedure AutoMagicSheild;
var
dwTick: DWORD;
begin
{$I VMProtectBegin.inc}
if m_bAutoMagicSheild then
begin
dwTick := GetTickCount;
if ((pMy.m_Myhero.m_hero.m_nState and $4100000) = 0) and (pMy.m_Myhero.m_stFeatureEx.bHorse = 0)
and (dwTick - pmy.m_dwLastSpellTime > 4300) then
begin
SendSpellMsg($1F, pmy.m_Myhero.m_hero.m_lPosX, pmy.m_Myhero.m_hero.m_lPosY, pmy.m_Myhero.m_hero.m_dwIdentity);
pmy.m_dwLastSpellTime := dwTick;
end;
end;
{$I VMProtectEnd.inc}
end;
procedure AutoWarriorSkill;
var
nTickCnt: DWORD;
begin
{$I VMProtectBegin.inc}
if (not m_bZidongjuqi) or (pMy.m_Myhero.m_stFeatureEx.bHorse <> 0) or ((pByte($7D9303)^ and 04) <> 0) then Exit;
nTickCnt := GetTickCount;
if ((nTickCnt - pMy.m_dwLastFireHitTime) > 10200) and ((nTickCnt - pMy.m_dwLastRandWind) > 10200) then
begin
if ((nTickCnt - pMy.m_dwLastFireHitTime) > 19000) and ((nTickCnt - pMy.m_dwLastRandWind) > 19000) then
begin
if (pMy.m_Myhero.m_bUseLiehuo <> 1) and (m_bLianZhaoType <> 0) then
begin
SendSpellMsg(_SKILL_FIRESWORD, 0, 0, 0);
pMy.m_dwLastFireHitTime := nTickCnt;
end
else
begin
SendSpellMsg(_SKILL_RANDSWING, 0, 0, 0);
pMy.m_dwLastRandWind := nTickCnt;
end;
m_bWarriorSkillReady := False;
Exit;
end;
if m_bWarriorSkillReady then Exit;
if (pMy.m_Myhero.m_bUseLiehuo <> 1) and (m_bLianZhaoType <> 0) then
begin
SendSpellMsg(_SKILL_FIRESWORD, 0, 0, 0);
pMy.m_dwLastFireHitTime := nTickCnt;
end
else if pMy.m_Myhero.m_bUseLianyue <> 1 then
begin
SendSpellMsg(_SKILL_RANDSWING, 0, 0, 0);
pMy.m_dwLastRandWind := nTickCnt;
end
else if (nTickCnt - m_dwLastDisplay) > 10000 then
begin
m_bWarriorSkillReady := True;
DisplayInChat('聚气完毕');
m_dwLastDisplay := nTickCnt;
end
end;
{$I VMProtectEnd.inc}
end;

复制代码

8347157 · 发表于 2024-3-4 14:42:57

买挂联系我

[传奇3源码] 传奇3加速外挂源代码EI3.0超级蓝海挂机Delphi源码

相关帖子