📄 magic.pas
字号:
end;
BaseObjectList.Free;
end;
function TMagicManager.MagHbFireBall(PlayObject: TPlayObject;
UserMagic: pTUserMagic; nTargetX, nTargetY: Integer;
var TargetBaseObject: TBaseObject): Boolean;
var
nPower :Integer;
begin
Result:=False;
if not PlayObject.MagCanHitTarget(PlayObject.m_nCurrX, PlayObject.m_nCurrY, TargetBaseObject) then begin
TargeTBaseObject := nil;
exit;
end;
if not PlayObject.IsProperTarget (TargeTBaseObject) then begin
TargeTBaseObject := nil;
exit;
end;
if (TargeTBaseObject.m_nAntiMagic > Random(50)) or (abs(TargeTBaseObject.m_nCurrX-nTargetX) > 1) or (abs(TargeTBaseObject.m_nCurrY-nTargetY) > 1) then begin
TargeTBaseObject := nil;
exit;
end;
with PlayObject do begin
nPower:= GetAttackPower(GetPower(MPow(UserMagic),UserMagic) + LoWord(m_WAbil.MC),
SmallInt(HiWord(m_WAbil.MC)-LoWord(m_WAbil.MC)) + 1);
if TargeTBaseObject.m_btLifeAttrib = LA_UNDEAD then
nPower:= nPower div 2;
end;
PlayObject.SendDelayMsg (PlayObject, RM_DELAYMAGIC, nPower, MakeLong(nTargetX, nTargetY), 2, Integer(TargeTBaseObject), '', 600);
if (TargeTBaseObject.m_btRaceServer >= RC_ANIMAL) then Result:=True;
if (Random(15) <= UserMagic.btLevel) and (Random(TargeTBaseObject.m_btAntiPoison) = 0) then begin //10% chance of slowing down the mob
TargeTBaseObject.MakePosion(POISON_FREEZE,(UserMagic.btLevel * 3) + PlayObject.m_nFreezingIncrease,0);
end;
if (Random(40) <= UserMagic.btLevel) and (Random(TargeTBaseObject.m_btAntiPoison) = 0) then begin //10% chance of slowing down the mob
TargeTBaseObject.MakePosion(POISON_SLOWDOWN,((UserMagic.btLevel * 5) div 3),0);
TargeTBaseObject.MakePosion(POISON_STONE,((UserMagic.btLevel * 5) div 3),0);
end;
end;
//火墙
function TMagicManager.MagMakeFireCross(PlayObject: TPlayObject; nDamage,
nHTime, nX,nY: Integer): Integer; //00492C9C
var
FireBurnEvent:TFireBurnEvent;
ResourceString
sDisableInSafeZoneFireCross = '安全区不允许使用...';
begin
Result:=0;
if g_Config.boDisableInSafeZoneFireCross and PlayObject.InSafeZone(PlayObject.m_PEnvir,nX,nY) then begin
PlayObject.SysMsg(sDisableInSafeZoneFireCross,c_Red,t_Notice);
exit;
end;
if PlayObject.m_PEnvir.GetEvent(nX,nY-1) = nil then begin
FireBurnEvent:=TFireBurnEvent.Create(PlayObject,nX,nY-1,ET_FIRE,nHTime * 1000 ,nDamage);
g_EventManager.AddEvent(FireBurnEvent);
end; //0492CFC x
if PlayObject.m_PEnvir.GetEvent(nX-1,nY) = nil then begin
FireBurnEvent:=TFireBurnEvent.Create(PlayObject,nX-1,nY,ET_FIRE,nHTime * 1000 ,nDamage);
g_EventManager.AddEvent(FireBurnEvent);
end; //0492D4D
if PlayObject.m_PEnvir.GetEvent(nX,nY) = nil then begin
FireBurnEvent:=TFireBurnEvent.Create(PlayObject,nX,nY,ET_FIRE,nHTime * 1000 ,nDamage);
g_EventManager.AddEvent(FireBurnEvent);
end; //00492D9C
if PlayObject.m_PEnvir.GetEvent(nX+1,nY) = nil then begin
FireBurnEvent:=TFireBurnEvent.Create(PlayObject,nX+1,nY,ET_FIRE,nHTime * 1000 ,nDamage);
g_EventManager.AddEvent(FireBurnEvent);
end; //00492DED
if PlayObject.m_PEnvir.GetEvent(nX,nY+1) = nil then begin
FireBurnEvent:=TFireBurnEvent.Create(PlayObject,nX,nY+1,ET_FIRE,nHTime * 1000 ,nDamage);
g_EventManager.AddEvent(FireBurnEvent);
end; //00492E3E
Result:=1;
end;
function TMagicManager.MagBigExplosion(BaseObject: TBaseObject; nPower, nX,
nY: Integer; nRage: Integer): Boolean; //00492F4C
var
I :Integer;
BaseObjectList :TList;
TargeTBaseObject :TBaseObject;
begin
Result := False;
BaseObjectList := TList.Create;
BaseObject.GetMapBaseObjects(BaseObject.m_PEnvir,nX,nY,nRage,BaseObjectList);
for I := 0 to BaseObjectList.Count - 1 do begin
TargeTBaseObject:=TBaseObject(BaseObjectList.Items[i]);
if BaseObject.IsProperTarget(TargeTBaseObject) then begin
BaseObject.SetTargetCreat(TargeTBaseObject);
TargeTBaseObject.SendMsg(BaseObject,RM_MAGSTRUCK,0,nPower,0,0,'');
Result:=True;
end;
end;
BaseObjectList.Free;
end;
function TMagicManager.MagElecBlizzard(BaseObject: TBaseObject;
nPower: integer): Boolean; //00493010
var
I :Integer;
BaseObjectList :TList;
TargeTBaseObject :TBaseObject;
nPowerPoint :Integer;
begin
Result := False;
BaseObjectList := TList.Create;
BaseObject.GetMapBaseObjects(BaseObject.m_PEnvir,BaseObject.m_nCurrX,BaseObject.m_nCurrY,g_Config.nElecBlizzardRange{2},BaseObjectList);
for I := 0 to BaseObjectList.Count - 1 do begin
TargeTBaseObject:=TBaseObject(BaseObjectList.Items[I]);
if not (TargeTBaseObject.m_btLifeAttrib = LA_UNDEAD) then begin
nPowerPoint:=nPower div 10;
end else nPowerPoint:=nPower;
if BaseObject.IsProperTarget(TargeTBaseObject) then begin
//BaseObject.SetTargetCreat(TargeTBaseObject);
TargeTBaseObject.SendMsg(BaseObject,RM_MAGSTRUCK,0,nPowerPoint,0,0,'');
Result:=True;
end;
end;
BaseObjectList.Free;
end;
function TMagicManager.MagMakeHolyCurtain(BaseObject:TBaseObject;nPower:Integer;nX,nY:Integer): Integer; //004928C0
var
I :Integer;
BaseObjectList :TList;
TargeTBaseObject :TBaseObject;
MagicEvent :pTMagicEvent;
HolyCurtainEvent :THolyCurtainEvent;
begin
Result:=0;
if BaseObject.m_PEnvir.CanWalk(nX,nY,True) then begin
BaseObjectList:=TList.Create;
MagicEvent:=nil;
BaseObject.GetMapBaseObjects(BaseObject.m_PEnvir,nX,nY,1,BaseObjectList);
for I := 0 to BaseObjectList.Count - 1 do begin
TargeTBaseObject:=TBaseObject(BaseObjectList.Items[i]);
if (TargeTBaseObject.m_btRaceServer >= RC_ANIMAL) and
((Random(4) + (BaseObject.m_Abil.Level - 1)) > TargeTBaseObject.m_Abil.Level) and
{(TargeTBaseObject.m_Abil.Level < 50) and}
(TargeTBaseObject.m_Master = nil) then begin
TargeTBaseObject.OpenHolySeizeMode(nPower * 1000);
if MagicEvent = nil then begin
New(MagicEvent);
FillChar(MagicEvent^,SizeOf(TMagicEvent),#0);
MagicEvent.BaseObjectList:=TList.Create;
MagicEvent.dwStartTick:=GetTickCount();
MagicEvent.dwTime:=nPower * 1000;
end;
MagicEvent.BaseObjectList.Add(TargeTBaseObject);
Inc(Result);
end else begin //00492A02
Result:=0;
end;
end;
BaseObjectList.Free;
if (Result > 0) and (MagicEvent <> nil) then begin
HolyCurtainEvent:=THolyCurtainEvent.Create(BaseObject.m_PEnvir,nX - 1,nY - 2,ET_HOLYCURTAIN,nPower * 1000);
g_EventManager.AddEvent(HolyCurtainEvent);
MagicEvent.Events[0]:=HolyCurtainEvent;
HolyCurtainEvent:=THolyCurtainEvent.Create(BaseObject.m_PEnvir,nX + 1,nY - 2,ET_HOLYCURTAIN,nPower * 1000);
g_EventManager.AddEvent(HolyCurtainEvent);
MagicEvent.Events[1]:=HolyCurtainEvent;
HolyCurtainEvent:=THolyCurtainEvent.Create(BaseObject.m_PEnvir,nX - 2,nY - 1,ET_HOLYCURTAIN,nPower * 1000);
g_EventManager.AddEvent(HolyCurtainEvent);
MagicEvent.Events[2]:=HolyCurtainEvent;
HolyCurtainEvent:=THolyCurtainEvent.Create(BaseObject.m_PEnvir,nX + 2,nY - 1,ET_HOLYCURTAIN,nPower * 1000);
g_EventManager.AddEvent(HolyCurtainEvent);
MagicEvent.Events[3]:=HolyCurtainEvent;
HolyCurtainEvent:=THolyCurtainEvent.Create(BaseObject.m_PEnvir,nX - 2,nY + 1,ET_HOLYCURTAIN,nPower * 1000);
g_EventManager.AddEvent(HolyCurtainEvent);
MagicEvent.Events[4]:=HolyCurtainEvent;
HolyCurtainEvent:=THolyCurtainEvent.Create(BaseObject.m_PEnvir,nX + 2,nY + 1,ET_HOLYCURTAIN,nPower * 1000);
g_EventManager.AddEvent(HolyCurtainEvent);
MagicEvent.Events[5]:=HolyCurtainEvent;
HolyCurtainEvent:=THolyCurtainEvent.Create(BaseObject.m_PEnvir,nX - 1,nY + 2,ET_HOLYCURTAIN,nPower * 1000);
g_EventManager.AddEvent(HolyCurtainEvent);
MagicEvent.Events[6]:=HolyCurtainEvent;
HolyCurtainEvent:=THolyCurtainEvent.Create(BaseObject.m_PEnvir,nX + 1,nY + 2,ET_HOLYCURTAIN,nPower * 1000);
g_EventManager.AddEvent(HolyCurtainEvent);
MagicEvent.Events[7]:=HolyCurtainEvent;
UserEngine.m_MagicEventList.Add(MagicEvent);
end else begin
if MagicEvent <> nil then begin
MagicEvent.BaseObjectList.Free;
Dispose(MagicEvent);
end;
end;
end;
end;
function TMagicManager.MagMakeGroupTransparent(BaseObject: TBaseObject; nX, nY,
nHTime: Integer): Boolean; //0049320C
var
I: Integer;
BaseObjectList:TList;
TargeTBaseObject:TBaseObject;
begin
Result:=False;
BaseObjectList:=TList.Create;
BaseObject.GetMapBaseObjects(BaseObject.m_PEnvir,nX,nY,1,BaseObjectList);
for I := 0 to BaseObjectList.Count - 1 do begin
TargeTBaseObject:=TBaseObject(BaseObjectList.Items[i]);
if BaseObject.IsProperFriend(TargeTBaseObject) then begin
if TargeTBaseObject.m_wStatusTimeArr[STATE_TRANSPARENT{0x70}] = 0 then begin //00493287
TargeTBaseObject.SendDelayMsg(TargeTBaseObject,RM_TRANSPARENT,0,nHTime,0,0,'',800);
Result:=True;
end;
end
end;
BaseObjectList.Free;
end;
//=====================================================================================
//名称：
//功能：
//参数：
// BaseObject 魔法发起人
// TargeTBaseObject 受攻击角色
// nPower 魔法力大小
// nLevel 技能修炼等级
// nTargetX 目标座标X
// nTargetY 目标座标Y
//返回值：
//=====================================================================================
function TMagicManager.MabMabe(BaseObject, TargeTBaseObject: TBaseObject; nPower,nLevel,
nTargetX, nTargetY: Integer): Boolean;
var
nLv:Integer;
begin
Result:=False;
if BaseObject.MagCanHitTarget(BaseObject.m_nCurrX, BaseObject.m_nCurrY, TargeTBaseObject) then begin
if BaseObject.IsProperTarget (TargeTBaseObject) then begin
if (TargeTBaseObject.m_nAntiMagic <= Random(50)) and (abs(TargeTBaseObject.m_nCurrX-nTargetX) <= 1) and (abs(TargeTBaseObject.m_nCurrY-nTargetY) <= 1) then begin
BaseObject.SendDelayMsg (BaseObject, RM_DELAYMAGIC, nPower div 3, MakeLong(nTargetX, nTargetY), 2, integer(TargeTBaseObject), '', 600);
if (Random(2) + (BaseObject.m_Abil.Level - 1)) > TargeTBaseObject.m_Abil.Level then begin
nLv:=BaseObject.m_Abil.Level - TargeTBaseObject.m_Abil.Level;
if (Random(g_Config.nMabMabeHitRandRate{100}) < _MAX(g_Config.nMabMabeHitMinLvLimit,(nLevel * 8) - nLevel + 15 + nLv)) {or (Random(abs(nLv))} then begin
// if (Random(100) < ((nLevel shl 3) - nLevel + 15 + nLv)) {or (Random(abs(nLv))} then begin
if (Random(g_Config.nMabMabeHitSucessRate{21}) < nLevel * 2 + 4) then begin
if TargeTBaseObject.m_btRaceServer = RC_PLAYOBJECT then begin
BaseObject.SetPKFlag(BaseObject);
BaseObject.SetTargetCreat(TargeTBaseObject);
end;
TargeTBaseObject.SetLastHiter(BaseObject);
nPower:=TargeTBaseObject.GetMagStruckDamage(BaseObject,nPower);
BaseObject.SendDelayMsg (BaseObject, RM_DELAYMAGIC, nPower, MakeLong(nTargetX, nTargetY), 2, integer(TargeTBaseObject), '', 600);
if not TargeTBaseObject.m_boUnParalysis then
TargeTBaseObject.SendDelayMsg(BaseObject,RM_POISON,POISON_STONE{中毒类型 - 麻痹},nPower div g_Config.nMabMabeHitMabeTimeRate{20} + Random(nLevel),Integer(BaseObject),nLevel,'',650);
Result:=True;
end;
end;
end;
end;
end;
end;
end;
function TMagicManager.MagMakeSinSuSlave(PlayObject: TPlayObject;
UserMagic: pTUserMagic): Boolean;
var
I: Integer;
sMonName:String;
nMakelevel,nExpLevel:Integer;
dwRoyaltySec:LongWord;
begin
Result:=False;
if PlayObject.SlaveCount(g_Config.sDragon) > 0 then begin
PlayObject.RecallSlave(g_Config.sDragon);
exit;
end;
if PlayObject.SlaveCount(g_Config.sDragon1) > 0 then begin
PlayObject.RecallSlave(g_Config.sDragon1);
exit;
end;
if not PlayObject.sub_4DD704 then begin
sMonName:=g_Config.sDragon;
nMakelevel:=UserMagic.btLevel;
nExpLevel:=UserMagic.btLevel;
dwRoyaltySec:=10 * 24 * 60 * 60;
for I := Low(g_Config.DragonArray) to High(g_Config.DragonArray) do begin
if g_Config.DragonArray[I].nHumLevel = 0 then break;
if PlayObject.m_Abil.Level >= g_Co⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -