www.pudn.com > woool12.rar > Magic.pas
unit Magic;
interface
uses
Windows, Classes, Grobal2, ObjBase, SysUtils,math,edcode,mylist;
type
TMagicManager = class
private
function MagBigHealing(PlayObject: TBaseObject; nPower, nX, nY: Integer):
Boolean;
function MagPushArround(PlayObject: TBaseObject; nPushLevel: Integer):
Integer;
function MagTurnUndead(BaseObject, TargeTBaseObject: TBaseObject; nTargetX,
nTargetY: Integer; nLevel: Integer): Boolean;
function MagMakeHolyCurtain(BaseObject: TBaseObject; nPower: Integer; nX,
nY: Integer): Integer;
function MagMakeGroupTransparent(BaseObject: TBaseObject; nX, nY: Integer;
nHTime: Integer): Boolean;
function MagTamming(BaseObject, TargeTBaseObject: TBaseObject; nTargetX,
nTargetY: Integer; nMagicLevel: Integer): Boolean;
function MagSaceMove(BaseObject: TBaseObject; nLevel: Integer): Boolean;
function MagMakeFireCross(PlayObject: TPlayObject; nDamage, nHTime, nX, nY:
Integer): Integer;
function MagBigExplosion(BaseObject: TBaseObject; nPower, nX, nY: Integer;
nRage: Integer): Boolean;
function MagElecBlizzard(BaseObject: TBaseObject; nPower: Integer): Boolean;
function MabMabe(BaseObject, TargeTBaseObject: TBaseObject; nPower, nLevel,
nTargetX, nTargetY: Integer): Boolean;
function MagMakeSlave(PlayObject: TPlayObject; UserMagic: pTUserMagic):
Boolean;
function MagMakeSinSuSlave(PlayObject: TPlayObject; UserMagic: pTUserMagic):
Boolean;
function MagWindTebo(PlayObject: TPlayObject; UserMagic: pTUserMagic):
Boolean;
function MagGroupLightening(PlayObject: TPlayObject; UserMagic: pTUserMagic;
nTargetX, nTargetY: Integer; TargeTBaseObject: TBaseObject; var
boSpellFire:
Boolean): Boolean;
function MagGroupAmyounsul(PlayObject: TPlayObject; UserMagic: pTUserMagic;
nTargetX, nTargetY: Integer; TargeTBaseObject: TBaseObject): Boolean;
function MagGroupDeDing(PlayObject: TPlayObject; UserMagic: pTUserMagic;
nTargetX, nTargetY: Integer; TargeTBaseObject: TBaseObject): Boolean;
function MagGroupMb(PlayObject: TPlayObject; UserMagic: pTUserMagic;
nTargetX, nTargetY: Integer; TargeTBaseObject: TBaseObject): Boolean;
function MagHbFireBall(PlayObject: TPlayObject; UserMagic: pTUserMagic;
nTargetX, nTargetY: Integer; var TargeTBaseObject: TBaseObject): Boolean;
public
constructor Create();
destructor Destroy; override;
function MagMakePrivateTransparent(BaseObject: TBaseObject; nHTime:
Integer): Boolean;
function IsWarrSkill(wMagIdx: Integer): Boolean;
function DoSpell(PlayObject: TPlayObject; UserMagic: pTUserMagic; nTargetX,
nTargetY: Integer; TargeTBaseObject: TBaseObject): Boolean;
end;
function MPow(UserMagic: pTUserMagic): Integer;
function GetPower(nPower: Integer; UserMagic: pTUserMagic): Integer;
function GetPower13(nInt: Integer; UserMagic: pTUserMagic): Integer;
function GetRPow(wInt: Integer): Word;
function CheckAmulet(PlayObject: TPlayObject; nCount: Integer; nType: Integer;
var Idx: Integer): Boolean;
procedure UseAmulet(PlayObject: TPlayObject; nCount: Integer; nType: Integer; var
Idx: Integer);
implementation
uses HUtil32, M2Share, Event, Envir;
function MPow(UserMagic: pTUserMagic): Integer;
begin
Result := UserMagic.MagicInfo.wPower + Random(UserMagic.MagicInfo.wMaxPower -
UserMagic.MagicInfo.wPower);
end;
function GetPower(nPower: Integer; UserMagic: pTUserMagic): Integer;
begin
Result := ROUND(nPower / (UserMagic.MagicInfo.btTrainLv + 1) *
(UserMagic.btLevel + 1)) + (UserMagic.MagicInfo.btDefPower +
Random(UserMagic.MagicInfo.btDefMaxPower - UserMagic.MagicInfo.btDefPower));
end;
function GetPower13(nInt: Integer; UserMagic: pTUserMagic): Integer;
var
d10 : Double;
d18 : Double;
begin
d10 := nInt / 3.0;
d18 := nInt - d10;
Result := ROUND(d18 / (UserMagic.MagicInfo.btTrainLv + 1) * (UserMagic.btLevel
+ 1) + d10 + (UserMagic.MagicInfo.btDefPower +
Random(UserMagic.MagicInfo.btDefMaxPower -
UserMagic.MagicInfo.btDefPower)));
end;
function GetRPow(wInt: Integer): Word;
begin
if HiWord(wInt) > LoWord(wInt) then
begin
Result := Random(HiWord(wInt) - LoWord(wInt) + 1) + LoWord(wInt);
end
else
Result := LoWord(wInt);
end;
//nType 为指定类型 1 为护身符 2 为毒药
function CheckAmulet(PlayObject: TPlayObject; nCount: Integer; nType: Integer;
var Idx: Integer): Boolean;
var
AmuletStdItem : pTStdItem;
begin
Result := False;
Idx := 0;
if PlayObject.m_UseItems[U_ARMRINGL].wIndex > 0 then
begin
AmuletStdItem :=
UserEngine.GetStdItem(PlayObject.m_UseItems[U_ARMRINGL].wIndex);
if (AmuletStdItem <> nil) and (AmuletStdItem.StdMode in [25,34]) then
begin
case nType of
1:
begin
if (AmuletStdItem.Shape = 5) and
(ROUND(PlayObject.m_UseItems[U_ARMRINGL].Dura / 100) >= nCount)
then
begin
Idx := U_ARMRINGL;
Result := True;
exit;
end;
end;
2:
begin
if (AmuletStdItem.Shape <= 2) and
(ROUND(PlayObject.m_UseItems[U_ARMRINGL].Dura / 100) >= nCount)
then
begin
Idx := U_ARMRINGL;
Result := True;
exit;
end;
end;
end;
end;
end;
if PlayObject.m_UseItems[U_BUJUK].wIndex > 0 then
begin
AmuletStdItem :=
UserEngine.GetStdItem(PlayObject.m_UseItems[U_BUJUK].wIndex);
if (AmuletStdItem <> nil) and (AmuletStdItem.StdMode in [25,34]) then
begin
case nType of //
1:
begin
if (AmuletStdItem.Shape = 5) and
(ROUND(PlayObject.m_UseItems[U_BUJUK].Dura / 100) >= nCount) then
begin
Idx := U_BUJUK;
Result := True;
exit;
end;
end;
2:
begin
if (AmuletStdItem.Shape <= 2) and
(ROUND(PlayObject.m_UseItems[U_BUJUK].Dura / 100) >= nCount) then
begin
Idx := U_BUJUK;
Result := True;
exit;
end;
end;
end;
end;
end;
end;
//nType 为指定类型 1 为护身符 2 为毒药
procedure UseAmulet(PlayObject: TPlayObject; nCount: Integer; nType: Integer; var
Idx: Integer);
begin
if PlayObject.m_UseItems[Idx].Dura > nCount * 100 then
begin
Dec(PlayObject.m_UseItems[Idx].Dura, nCount * 100);
PlayObject.SendMsg(PlayObject, RM_DURACHANGE, Idx,
PlayObject.m_UseItems[Idx].Dura, PlayObject.m_UseItems[Idx].DuraMax, 0,
'');
end
else
begin
PlayObject.m_UseItems[Idx].Dura := 0;
PlayObject.SendDelItems(@PlayObject.m_UseItems[Idx]);
PlayObject.m_UseItems[Idx].wIndex := 0;
end;
end;
function TMagicManager.MagPushArround(PlayObject: TBaseObject; nPushLevel:
Integer): Integer; //00492204
var
i, nDir, levelgap, push: Integer;
BaseObject : TBaseObject;
begin
Result := 0;
for i := 0 to PlayObject.m_VisibleActors.Count - 1 do
begin
BaseObject :=
TBaseObject(pTVisibleBaseObject(PlayObject.m_VisibleActors[i]).BaseObject);
if (abs(PlayObject.m_nCurrX - BaseObject.m_nCurrX) <= 1) and
(abs(PlayObject.m_nCurrY - BaseObject.m_nCurrY) <= 1) then
begin
if (not BaseObject.m_boDeath) and (BaseObject <> PlayObject) then
begin
if (PlayObject.m_Abil.Level >= BaseObject.m_Abil.Level) and (not
BaseObject.m_boStickMode) then
begin
levelgap := PlayObject.m_Abil.Level - BaseObject.m_Abil.Level;
if (Random(20) < 6 + nPushLevel * 3 + levelgap) then
begin
if PlayObject.IsProperTarget(BaseObject) then
begin
push := 1 + _MAX(0, nPushLevel - 1) + Random(2);
nDir := GetNextDirection(PlayObject.m_nCurrX, PlayObject.m_nCurrY,
BaseObject.m_nCurrX, BaseObject.m_nCurrY);
BaseObject.CharPushed(nDir, push);
Inc(Result);
end;
end;
end;
end;
end;
end;
end;
function TMagicManager.MagBigHealing(PlayObject: TBaseObject; nPower, nX, nY:
Integer): Boolean; //00492E50
var
i : Integer;
BaseObjectList : TMyList;
BaseObject : TBaseObject;
begin
Result := False;
BaseObjectList := TMyList.Create;
PlayObject.GetMapBaseObjects(PlayObject.m_PEnvir, nX, nY, 1, BaseObjectList);
for i := 0 to BaseObjectList.Count - 1 do
begin
BaseObject := TBaseObject(BaseObjectList[i]);
if PlayObject.IsProperFriend(BaseObject) then
begin
if BaseObject.m_WAbil.HP < BaseObject.m_WAbil.MaxHP then
begin
BaseObject.SendDelayMsg(PlayObject, RM_MAGHEALING, 0, nPower, 0, 0, '',
800);
Result := True;
end;
if PlayObject.m_boAbilSeeHealGauge then
begin
PlayObject.SendMsg(BaseObject, RM_10414, 0, 0, 0, 0, '');
//?? RM_INSTANCEHEALGUAGE
end;
end;
end;
BaseObjectList.Free;
end;
constructor TMagicManager.Create; //0049214C
begin
end;
destructor TMagicManager.Destroy;
begin
inherited;
end;
function TMagicManager.IsWarrSkill(wMagIdx: Integer): Boolean; //492190
begin
Result := False;
if wMagIdx in [SKILL_ONESWORD {3}, SKILL_ILKWANG {4}, SKILL_YEDO {7},
SKILL_ERGUM {12}, SKILL_BANWOL {25}, SKILL_FIRESWORD {26}, SKILL_MOOTEBO {27}]
then
Result := True;
end;
function TMagicManager.DoSpell(PlayObject: TPlayObject;
UserMagic: pTUserMagic; nTargetX, nTargetY: Integer;
TargeTBaseObject: TBaseObject): Boolean; //0049350C
var
boTrain : Boolean;
boSpellFail : Boolean;
boSpellFire : Boolean;
n14 : Integer;
n18 : Integer;
n1C : Integer;
nPower : Integer;
StdItem : pTStdItem;
nAmuletIdx : Integer;
BianfuData : TBianfuData;
TmpChar : PChar;
sss : String;
nx,ny,nstep : Integer;
function MPow(UserMagic: pTUserMagic): Integer; //004921C8
begin
Result := UserMagic.MagicInfo.wPower + Random(UserMagic.MagicInfo.wMaxPower
- UserMagic.MagicInfo.wPower);
end;
function GetPower(nPower: Integer): Integer; //00493314
begin
Result := ROUND(nPower / (UserMagic.MagicInfo.btTrainLv + 1) *
(UserMagic.btLevel + 1)) + (UserMagic.MagicInfo.btDefPower +
Random(UserMagic.MagicInfo.btDefMaxPower -
UserMagic.MagicInfo.btDefPower));
end;
function GetPower13(nInt: Integer): Integer; //0049338C
var
d10 : Double;
d18 : Double;
begin
d10 := nInt / 3.0;
d18 := nInt - d10;
Result := ROUND(d18 / (UserMagic.MagicInfo.btTrainLv + 1) *
(UserMagic.btLevel + 1) + d10 + (UserMagic.MagicInfo.btDefPower +
Random(UserMagic.MagicInfo.btDefMaxPower -
UserMagic.MagicInfo.btDefPower)));
end;
function GetRPow(wInt: Integer): Word;
begin
if HiWord(wInt) > LoWord(wInt) then
begin
Result := Random(HiWord(wInt) - LoWord(wInt) + 1) + LoWord(wInt);
end
else
Result := LoWord(wInt);
end;
procedure sub_4934B4(PlayObject: TPlayObject);
begin
if PlayObject.m_UseItems[U_ARMRINGL].Dura < 100 then
begin
PlayObject.m_UseItems[U_ARMRINGL].Dura := 0;
PlayObject.SendDelItems(@PlayObject.m_UseItems[U_ARMRINGL]);
PlayObject.m_UseItems[U_ARMRINGL].wIndex := 0;
end;
end;
begin //0049350C
Result := False;
if IsWarrSkill(UserMagic.wMagIdx) then
exit;
if (abs(PlayObject.m_nCurrX - nTargetX) > g_Config.nMagicAttackRage) or
(abs(PlayObject.m_nCurrY - nTargetY) > g_Config.nMagicAttackRage) then
begin
exit;
end;
if (UserMagic.MagicInfo.wMagicId<>75)and(UserMagic.MagicInfo.wMagicId<>35)and(UserMagic.MagicInfo.wMagicId<>77) then
PlayObject.SendRefMsg(RM_SPELL, UserMagic.MagicInfo.btEffect, nTargetX,
nTargetY, UserMagic.MagicInfo.wMagicId, '');
if (TargeTBaseObject <> nil) and (TargeTBaseObject.m_boDeath) then
TargeTBaseObject := nil;
boTrain := False;
boSpellFail := False;
boSpellFire := True;
nPower := 0;
case UserMagic.MagicInfo.wMagicId of //
SKILL_FIREBALL {1},
SKILL_FIREBALL2 {5}:
begin //火球术 大火球
if PlayObject.MagCanHitTarget(PlayObject.m_nCurrX, PlayObject.m_nCurrY,
TargeTBaseObject) then
begin
if PlayObject.IsProperTarget(TargeTBaseObject) then
begin
if (TargeTBaseObject.m_nAntiMagic <= Random(10)) and
(abs(TargeTBaseObject.m_nCurrX - nTargetX) <= 1) and
(abs(TargeTBaseObject.m_nCurrY - nTargetY) <= 1) then
begin
with PlayObject do
begin
nPower := GetAttackPower(GetPower(MPow(UserMagic)) +
LoWord(m_WAbil.MC),
SmallInt(HiWord(m_WAbil.MC) - LoWord(m_WAbil.MC)) + 1);
end;
PlayObject.SendDelayMsg(PlayObject, RM_DELAYMAGIC, nPower,
MakeLong(nTargetX, nTargetY), 2, Integer(TargeTBaseObject), '',
600);
if (TargeTBaseObject.m_btRaceServer >= RC_ANIMAL) then
boTrain := True;
end
else
TargeTBaseObject := nil;
end
else
TargeTBaseObject := nil;
end
else
TargeTBaseObject := nil;
end;
SKILL_HEALLING {2}:
begin
if TargeTBaseObject = nil then
begin
TargeTBaseObject := PlayObject;
nTargetX := PlayObject.m_nCurrX;
nTargetY := PlayObject.m_nCurrY;
end;
if PlayObject.IsProperFriend {0FFF3}(TargeTBaseObject) then
begin
nPower := PlayObject.GetAttackPower(GetPower(MPow(UserMagic)) +
LoWord(PlayObject.m_WAbil.SC) * 2,
SmallInt(HiWord(PlayObject.m_WAbil.SC) -
LoWord(PlayObject.m_WAbil.SC)) * 2 + 1);
if TargeTBaseObject.m_WAbil.HP < TargeTBaseObject.m_WAbil.MaxHP then
begin
TargeTBaseObject.SendDelayMsg(PlayObject, RM_MAGHEALING, 0, nPower,
0, 0, '', 800);
boTrain := True;
end;
if PlayObject.m_boAbilSeeHealGauge then
PlayObject.SendMsg(TargeTBaseObject, RM_10414, 0, 0, 0, 0, '');
end;
end;
SKILL_AMYOUNSUL {6}:
begin //施毒术
boSpellFail := True;
if PlayObject.IsProperTarget(TargeTBaseObject) then
begin
if CheckAmulet(PlayObject, 1, 2, nAmuletIdx) then
begin
StdItem :=
UserEngine.GetStdItem(PlayObject.m_UseItems[nAmuletIdx].wIndex);
if StdItem <> nil then
begin
UseAmulet(PlayObject, 1, 2, nAmuletIdx);
if Random(TargeTBaseObject.m_btAntiPoison + 7) <= 6 then
begin
case StdItem.Shape of
1:
begin //0493F94
nPower := GetPower13(40) + GetRPow(PlayObject.m_WAbil.SC)
* 2;
TargeTBaseObject.SendDelayMsg(PlayObject, RM_POISON,
POISON_DECHEALTH {中毒类型 - 绿毒}, nPower,
Integer(PlayObject), ROUND(UserMagic.btLevel / 3 *
(nPower
/ g_Config.nAmyOunsulPoint)) {UserMagic.btLevel}, '',
1000);
end;
2:
begin //00493FE9
nPower := GetPower13(30) + GetRPow(PlayObject.m_WAbil.SC)
* 2;
TargeTBaseObject.SendDelayMsg(PlayObject, RM_POISON,
POISON_DAMAGEARMOR {中毒类型 - 红毒}, nPower,
Integer(PlayObject), ROUND(UserMagic.btLevel / 3 *
(nPower
/ g_Config.nAmyOunsulPoint)) {UserMagic.btLevel}, '',
1000);
end;
end; //0049403C
if (TargeTBaseObject.m_btRaceServer = RC_PLAYOBJECT) or
(TargeTBaseObject.m_btRaceServer >= RC_ANIMAL) then
boTrain := True;
end; //00494058
PlayObject.SetTargetCreat(TargeTBaseObject);
boSpellFail := False;
end;
end; //0049406B
end;
end;
SKILL_FIREWIND {8}:
begin //抗拒火环 00493754
if MagPushArround(PlayObject, UserMagic.btLevel) > 0 then
boTrain := True;
end;
SKILL_FIRE {9}:
begin //地狱火 00493778
n1C := GetNextDirection(PlayObject.m_nCurrX, PlayObject.m_nCurrY,
nTargetX, nTargetY);
if PlayObject.m_PEnvir.GetNextPosition(PlayObject.m_nCurrX,
PlayObject.m_nCurrY, n1C, 1, n14, n18) then
begin
PlayObject.m_PEnvir.GetNextPosition(PlayObject.m_nCurrX,
PlayObject.m_nCurrY, n1C, 5, nTargetX, nTargetY);
nPower := PlayObject.GetAttackPower(GetPower(MPow(UserMagic)) +
LoWord(PlayObject.m_WAbil.MC),
SmallInt(HiWord(PlayObject.m_WAbil.MC) -
LoWord(PlayObject.m_WAbil.MC)) + 1);
if PlayObject.MagPassThroughMagic(n14, n18, nTargetX, nTargetY, n1C,
nPower, False) > 0 then
boTrain := True;
end;
end;
SKILL_SHOOTLIGHTEN,SKILL_51{10}:
begin //疾光电影 冰龙破
n1C := GetNextDirection(PlayObject.m_nCurrX, PlayObject.m_nCurrY,
nTargetX, nTargetY);
if PlayObject.m_PEnvir.GetNextPosition(PlayObject.m_nCurrX,
PlayObject.m_nCurrY, n1C, 1, n14, n18) then
begin
PlayObject.m_PEnvir.GetNextPosition(PlayObject.m_nCurrX,
PlayObject.m_nCurrY, n1C, 8, nTargetX, nTargetY);
nPower := PlayObject.GetAttackPower(GetPower(MPow(UserMagic)) +
LoWord(PlayObject.m_WAbil.MC),
SmallInt(HiWord(PlayObject.m_WAbil.MC) -
LoWord(PlayObject.m_WAbil.MC)) + 1);
if PlayObject.MagPassThroughMagic(n14, n18, nTargetX, nTargetY, n1C,
nPower, True) > 0 then
boTrain := True;
end;
end;
SKILL_LIGHTENING,SKILL_49 {11}:
begin //雷电术 冰剑术
if PlayObject.IsProperTarget(TargeTBaseObject) then
begin
if (Random(10) >= TargeTBaseObject.m_nAntiMagic) then
begin
nPower := PlayObject.GetAttackPower(GetPower(MPow(UserMagic)) +
LoWord(PlayObject.m_WAbil.MC),
SmallInt(HiWord(PlayObject.m_WAbil.MC) -
LoWord(PlayObject.m_WAbil.MC)) + 1);
if TargeTBaseObject.m_btLifeAttrib = LA_UNDEAD then
nPower := ROUND(nPower * 1.5);
PlayObject.SendDelayMsg(PlayObject, RM_DELAYMAGIC, nPower,
MakeLong(nTargetX, nTargetY), 2, Integer(TargeTBaseObject), '',
600);
if TargeTBaseObject.m_btRaceServer >= RC_ANIMAL then
boTrain := True;
end
else
TargeTBaseObject := nil
end
else
TargeTBaseObject := nil;
end;
SKILL_FIRECHARM {13},
SKILL_HANGMAJINBUB {14},
SKILL_DEJIWONHO {15},
SKILL_HOLYSHIELD {16},
SKILL_SKELLETON {17},
SKILL_CLOAK {18},
SKILL_66,//强化骷髅术
SKILL_BIGCLOAK {19}:
begin //004940BC
boSpellFail := True;
if CheckAmulet(PlayObject, 1, 1, nAmuletIdx) then
begin
UseAmulet(PlayObject, 1, 1, nAmuletIdx);
{
if BaseObject.m_UseItems[U_ARMRINGL].Dura >= 100 then Dec(BaseObject.m_UseItems[U_ARMRINGL].Dura,100)
else BaseObject.m_UseItems[U_ARMRINGL].Dura:=0;
BaseObject.SendMsg(BaseObject,RM_DURACHANGE,U_ARMRINGL,BaseObject.m_UseItems[U_ARMRINGL].Dura,BaseObject.m_UseItems[U_ARMRINGL].DuraMax,0,'');
}
case UserMagic.MagicInfo.wMagicId of //
SKILL_FIRECHARM {13}:
begin //灵魂火符 0049415F
if
PlayObject.MagCanHitTarget(PlayObject.m_nCurrX,
PlayObject.m_nCurrY, TargeTBaseObject) then
begin
if PlayObject.IsProperTarget(TargeTBaseObject) then
begin
if Random(10) >= TargeTBaseObject.m_nAntiMagic then
begin
if (abs(TargeTBaseObject.m_nCurrX - nTargetX) <= 1) and
(abs(TargeTBaseObject.m_nCurrY - nTargetY) <= 1) then
begin
nPower :=
PlayObject.GetAttackPower(GetPower(MPow(UserMagic)) +
LoWord(PlayObject.m_WAbil.SC),
SmallInt(HiWord(PlayObject.m_WAbil.SC) -
LoWord(PlayObject.m_WAbil.SC)) + 1);
PlayObject.SendDelayMsg(PlayObject, RM_DELAYMAGIC,
nPower, MakeLong(nTargetX, nTargetY), 2,
Integer(TargeTBaseObject), '', 1200);
if TargeTBaseObject.m_btRaceServer >= RC_ANIMAL then
boTrain := True;
end; //00494463
end; //00494463
end; //00494463
end
else
TargeTBaseObject := nil; //0049426D
end;
SKILL_HANGMAJINBUB {14}:
begin //幽灵盾 00494277
nPower := PlayObject.GetAttackPower(GetPower13(60) +
LoWord(PlayObject.m_WAbil.SC) * 10,
SmallInt(HiWord(PlayObject.m_WAbil.SC) -
LoWord(PlayObject.m_WAbil.SC)) + 1);
if PlayObject.MagMakeDefenceArea(nTargetX, nTargetY, 3, nPower,
1) > 0 then
boTrain := True;
end;
SKILL_DEJIWONHO {15}:
begin //神圣战甲术 004942E5
nPower := PlayObject.GetAttackPower(GetPower13(60) +
LoWord(PlayObject.m_WAbil.SC) * 10,
SmallInt(HiWord(PlayObject.m_WAbil.SC) -
LoWord(PlayObject.m_WAbil.SC)) + 1);
if PlayObject.MagMakeDefenceArea(nTargetX, nTargetY, 3, nPower,
0) > 0 then
boTrain := True;
end;
SKILL_HOLYSHIELD {16}:
begin //捆魔咒 00494353
if MagMakeHolyCurtain(PlayObject, GetPower13(40) +
GetRPow(PlayObject.m_WAbil.SC) * 3, nTargetX, nTargetY) > 0
then
boTrain := True;
end;
SKILL_66:// 强化骷髅术
Begin
if PlayObject.MakeSlave('强化骷髅',UserMagic.btLevel,UserMagic.btLevel,2,10 * 24 * 60 * 60) <> nil then
if PlayObject.MakeSlave('强化骷髅',UserMagic.btLevel,UserMagic.btLevel,2,10 * 24 * 60 * 60) <> nil then
boTrain:=True;
End;
SKILL_SKELLETON {17}:
begin //召唤骷髅 004943A2
if MagMakeSlave(PlayObject, UserMagic) then
begin
boTrain := True;
end;
(*
if not PlayObject.sub_4DD704 then begin
if PlayObject.MakeSlave(g_Config.sBoneFamm,UserMagic.btLevel,g_Config.nBoneFammCount{1},10 * 24 * 60 * 60) <> nil then
boTrain:=True;
end;
*)
end;
SKILL_CLOAK {18}:
begin //隐身术 004943DF
if MagMakePrivateTransparent(PlayObject, GetPower13(30) +
GetRPow(PlayObject.m_WAbil.SC) * 3) then
boTrain := True;
end;
SKILL_BIGCLOAK {19}:
begin //集体隐身术
if MagMakeGroupTransparent(PlayObject, nTargetX, nTargetY,
GetPower13(30) + GetRPow(PlayObject.m_WAbil.SC) * 3) then
boTrain := True;
end;
end; // case
boSpellFail := False;
sub_4934B4(PlayObject);
end;
end;
SKILL_TAMMING {20}:
begin //诱惑之光 00493A51
if PlayObject.IsProperTarget(TargeTBaseObject) then
begin
if MagTamming(PlayObject, TargeTBaseObject, nTargetX, nTargetY,
UserMagic.btLevel) then
boTrain := True;
end;
end;
SKILL_SPACEMOVE {21}:
begin //瞬息移动 00493ADD
PlayObject.SendRefMsg(RM_MAGICFIRE, 0,
MakeWord(UserMagic.MagicInfo.btEffectType,
UserMagic.MagicInfo.btEffect), MakeLong(nTargetX, nTargetY),
Integer(TargeTBaseObject), '');
boSpellFire := False;
if MagSaceMove(PlayObject, UserMagic.btLevel) then
boTrain := True;
end;
SKILL_EARTHFIRE {22}:
begin //火墙 00493B40
if MagMakeFireCross(PlayObject,
PlayObject.GetAttackPower(GetPower(MPow(UserMagic)) +
LoWord(PlayObject.m_WAbil.MC),
SmallInt(HiWord(PlayObject.m_WAbil.MC) - LoWord(PlayObject.m_WAbil.MC))
+ 1),
GetPower(10) + (Word(GetRPow(PlayObject.m_WAbil.MC)) shr 1),
nTargetX,
nTargetY) > 0 then
boTrain := True;
end;
SKILL_FIREBOOM {23}:
begin //爆裂火焰 00493BD5
if MagBigExplosion(PlayObject,
PlayObject.GetAttackPower(GetPower(MPow(UserMagic)) +
LoWord(PlayObject.m_WAbil.MC), SmallInt(HiWord(PlayObject.m_WAbil.MC)
- LoWord(PlayObject.m_WAbil.MC)) + 1),
nTargetX,
nTargetY,
g_Config.nFireBoomRage {1}) then
boTrain := True;
end;
SKILL_LIGHTFLOWER,52 {24}:
begin //地狱雷光 玄冰刃
if MagElecBlizzard(PlayObject,
PlayObject.GetAttackPower(GetPower(MPow(UserMagic)) +
LoWord(PlayObject.m_WAbil.MC), SmallInt(HiWord(PlayObject.m_WAbil.MC)
-
LoWord(PlayObject.m_WAbil.MC)) + 1)) then
boTrain := True;
end;
SKILL_SHOWHP {28}:
begin
if (TargeTBaseObject <> nil) and not TargeTBaseObject.m_boShowHP then
begin
if Random(6) <= (UserMagic.btLevel + 3) then
begin
TargeTBaseObject.m_dwShowHPTick := GetTickCount();
TargeTBaseObject.m_dwShowHPInterval :=
GetPower13(GetRPow(PlayObject.m_WAbil.SC) * 2 + 30) * 1000;
TargeTBaseObject.SendDelayMsg(TargeTBaseObject, RM_DOOPENHEALTH, 0,
0, 0, 0, '', 1500);
boTrain := True;
end;
end;
end;
SKILL_BIGHEALLING {29}:
begin //群体治疗术 00493E42
nPower := PlayObject.GetAttackPower(GetPower(MPow(UserMagic)) +
LoWord(PlayObject.m_WAbil.SC) * 2,
SmallInt(HiWord(PlayObject.m_WAbil.SC) - LoWord(PlayObject.m_WAbil.SC))
* 2 + 1);
if MagBigHealing(PlayObject, nPower, nTargetX, nTargetY) then
boTrain := True;
end;
SKILL_SINSU {30}:
begin //00494476
boSpellFail := True;
if CheckAmulet(PlayObject, 5, 1, nAmuletIdx) then
begin
UseAmulet(PlayObject, 5, 1, nAmuletIdx);
{
if BaseObject.m_UseItems[U_ARMRINGL].Dura >= 500 then Dec(BaseObject.m_UseItems[U_ARMRINGL].Dura,500)
else BaseObject.m_UseItems[U_ARMRINGL].Dura:=0;
BaseObject.SendMsg(BaseObject,RM_DURACHANGE,5,BaseObject.m_UseItems[U_ARMRINGL].Dura,BaseObject.m_UseItems[U_ARMRINGL].DuraMax,0,'');
}
// if (UserMagic.MagicInfo.wMagicId = 30) and not PlayObject.sub_4DD704 then begin
if MagMakeSinSuSlave(PlayObject, UserMagic) then
begin
boTrain := True;
end;
// if PlayObject.MakeSlave(g_Config.sDogz,UserMagic.btLevel,1,10 * 24 * 60 * 60) <> nil then
// boTrain:=True;
// end;
boSpellFail := False;
end;
end;
SKILL_SHIELD {31}:
begin //魔法盾 00493D15
if PlayObject.MagBubbleDefenceUp(UserMagic.btLevel,
GetPower(GetRPow(PlayObject.m_WAbil.MC) + 15)) then
boTrain := True;
end;
SKILL_KILLUNDEAD {32}:
begin //00493A97 圣言术
if PlayObject.IsProperTarget(TargeTBaseObject) then
begin
if MagTurnUndead(PlayObject, TargeTBaseObject, nTargetX, nTargetY,
UserMagic.btLevel) then
boTrain := True;
end;
end;
SKILL_SNOWWIND,53 {33}:
begin //00493C43 冰咆哮 五雷轰
if MagBigExplosion(PlayObject,
PlayObject.GetAttackPower(GetPower(MPow(UserMagic)) +
LoWord(PlayObject.m_WAbil.MC), SmallInt(HiWord(PlayObject.m_WAbil.MC)
- LoWord(PlayObject.m_WAbil.MC)) + 1),
nTargetX,
nTargetY,
g_Config.nSnowWindRange {1}) then
boTrain := True;
end;
SKILL_UNAMYOUNSUL {34}:
begin //解毒术
if TargeTBaseObject = nil then
begin
TargeTBaseObject := PlayObject;
nTargetX := PlayObject.m_nCurrX;
nTargetY := PlayObject.m_nCurrY;
end;
if PlayObject.IsProperFriend {0FFF3}(TargeTBaseObject) then
begin
if Random(7) - (UserMagic.btLevel + 1) < 0 then
begin
if TargeTBaseObject.m_wStatusTimeArr[POISON_DECHEALTH] <> 0 then
begin
TargeTBaseObject.m_wStatusTimeArr[POISON_DECHEALTH] := 1;
boTrain := True;
end;
if TargeTBaseObject.m_wStatusTimeArr[POISON_DAMAGEARMOR] <> 0 then
begin
TargeTBaseObject.m_wStatusTimeArr[POISON_DAMAGEARMOR] := 1;
boTrain := True;
end;
if TargeTBaseObject.m_wStatusTimeArr[POISON_STONE] <> 0 then
begin
TargeTBaseObject.m_wStatusTimeArr[POISON_STONE] := 1;
boTrain := True;
end;
end;
end;
end;
SKILL_WINDTEBO {35}: //化身蝙蝠
Begin
// if MagWindTebo(PlayObject, UserMagic) then
if PlayObject.m_boOnHorse then exit;
nstep:=UserMagic.btLevel*2+Random(3);
PlayObject.CharMoveed(2359052,nTargetx,nTargety);
boTrain := True;
End;
//冰焰
SKILL_MABE {36}:
begin
with PlayObject do
begin
nPower := GetAttackPower(GetPower(MPow(UserMagic)) +
LoWord(m_WAbil.MC),
SmallInt(HiWord(m_WAbil.MC) - LoWord(m_WAbil.MC)) + 1);
end;
if MabMabe(PlayObject, TargeTBaseObject, nPower, UserMagic.btLevel,
nTargetX, nTargetY) then
boTrain := True;
end;
SKILL_GROUPLIGHTENING,SKILL_54 {37 群体雷电术 冰旋风}:
begin
if MagGroupLightening(PlayObject, UserMagic, nTargetX, nTargetY,
TargeTBaseObject, boSpellFire) then
boTrain := True;
end;
SKILL_GROUPAMYOUNSUL {38 群体施毒术}:
begin
if MagGroupAmyounsul(PlayObject, UserMagic, nTargetX, nTargetY,
TargeTBaseObject) then
boTrain := True;
end;
SKILL_GROUPDEDING {39 地钉}:
begin
if MagGroupDeDing(PlayObject, UserMagic, nTargetX, nTargetY,
TargeTBaseObject) then
boTrain := True;
end;
SKILL_40:
begin //双龙斩
end;
//2005-12-24
SKILL_37:
begin //狮子吼
if MagPushArround(PlayObject, UserMagic.btLevel) > 0 then
boTrain := True;
// if MagGroupMb(PlayObject, UserMagic, nTargetX, nTargetY,TargeTBaseObject) then
// boTrain := True;
end;
SKILL_42: //护身真气 2005-10-10
begin
nPower := PlayObject.GetAttackPower(GetPower(MPow(UserMagic)) +
LoWord(PlayObject.m_WAbil.DC),
SmallInt(HiWord(PlayObject.m_WAbil.DC) -
LoWord(PlayObject.m_WAbil.DC)) + 1);
npower:=nPower div 10;
if nPower=0 then nPower:=Random(3);
case UserMagic.btLevel of
0: nPower:=1+Random(2);
1: nPower:=Min(nPower,2)+3;
2: nPower:=Min(nPower,3)+5;
3: nPower:=Min(nPower,2)+8;
End;
PlayObject.m_wStatusTimeArr[STATE_DEFENCEUP ]:=GetTickCount +nPower*10000;
PlayObject.m_wStatusTimeArr[STATE_MAGDEFENCEUP ]:=GetTickCount +nPower*10000;
PlayObject.m_dwStatusArrTimeOutTick[4] :=GetTickCount +nPower*10000;
PlayObject.m_wStatusArrValue[4]:=PlayObject.m_Abil.MaxHP div 7 +2;
PlayObject.RecalcAbilitys;
Playobject.SendMsg(PlayObject, RM_ABILITY, 0, 0, 0, 0, '');
PlayObject.SendDefMessage(29,Integer(PLayObject),PlayObject.m_Abil.Level div 7 +2,PlayObject.m_Abil.Level div 7 +2,PlayObject.m_Abil.MaxHP div 7 +2,'');
PlayObject.m_nCharStatus:=MakeLong(0,2);
PlayObject.StatusChanged;
boTrain := True;
end;
SKILL_43:
begin //破空剑
end;
//法师
SKILL_44:
begin //结冰掌
if MagHbFireBall(PlayObject, UserMagic, nTargetX, nTargetY,
TargeTBaseObject) then
boTrain := True;
end;
SKILL_45:
begin //诅咒术
boSpellFail := True;
if PlayObject.IsProperTarget(TargeTBaseObject) then
begin
if CheckAmulet(PlayObject, 1, 2, nAmuletIdx) then
begin
StdItem :=
UserEngine.GetStdItem(PlayObject.m_UseItems[nAmuletIdx].wIndex);
if StdItem <> nil then
begin
UseAmulet(PlayObject, 1, 2, nAmuletIdx);
if Random(TargeTBaseObject.m_btAntiPoison + 7) <= 6 then
begin
case StdItem.Shape of
1:
begin //0493F94
nPower := GetPower13(40) + GetRPow(PlayObject.m_WAbil.SC)
* 2;
TargeTBaseObject.SendDelayMsg(PlayObject, RM_POISON,
POISON_DECHEALTH {中毒类型 - 绿毒}, nPower,
Integer(PlayObject), ROUND(UserMagic.btLevel / 3 *
(nPower
/ g_Config.nAmyOunsulPoint)) {UserMagic.btLevel}, '',
1000);
end;
2:
begin //00493FE9
nPower := GetPower13(30) + GetRPow(PlayObject.m_WAbil.SC)
* 2;
TargeTBaseObject.SendDelayMsg(PlayObject, RM_POISON,
POISON_DAMAGEARMOR {中毒类型 - 红毒}, nPower,
Integer(PlayObject), ROUND(UserMagic.btLevel / 3 *
(nPower
/ g_Config.nAmyOunsulPoint)) {UserMagic.btLevel}, '',
1000);
end;
end; //0049403C
if (TargeTBaseObject.m_btRaceServer = RC_PLAYOBJECT) or
(TargeTBaseObject.m_btRaceServer >= RC_ANIMAL) then
boTrain := True;
end; //00494058
PlayObject.SetTargetCreat(TargeTBaseObject);
boSpellFail := False;
end;
end; //0049406B
end;
end;
SKILL_46:
begin //分身术
boTrain := True;
end;
SKILL_47:
begin //火龙气焰
if MagBigExplosion(PlayObject,
PlayObject.GetAttackPower(GetPower(MPow(UserMagic)) +
LoWord(PlayObject.m_WAbil.MC), 4),
nTargetX,
nTargetY,
g_Config.nFireBoomRage {1}) then
boTrain := True;
end;
//道士
SKILL_48:
begin //气功波
if MagPushArround(PlayObject, UserMagic.btLevel) > 0 then
boTrain := True;
end;
SKILL_50:
begin
if PlayObject<>nil then
Begin
with PlayObject do
Begin
if m_wStatusArrValue[2]=0 then //道术如果在增加状态下则不起作用
Begin
m_wStatusArrValue[2] := HiWord(PlayObject.m_WAbil.SC)-2;
// nPower:=Random(HiWord(PlayObject.m_WAbil.SC)-LOWord(PlayObject.m_WAbil.SC))+LoWord(PlayObject.m_WAbil.SC);
nPower :=
PlayObject.GetAttackPower(GetPower(MPow(UserMagic)) +
LoWord(PlayObject.m_WAbil.SC),
SmallInt(HiWord(PlayObject.m_WAbil.SC) -
LoWord(PlayObject.m_WAbil.SC)) + 1);
npower:=nPower div 10;
if nPower=0 then nPower:=Random(3);
case UserMagic.btLevel of
0: nPower:=1+Random(2);
1: nPower:=Min(nPower,2)+3;
2: nPower:=Min(nPower,3)+5;
3: nPower:=Min(nPower,2)+8;
End;
m_dwStatusArrTimeOutTick[2] := GetTickCount +nPower*1000;
SysMsg('道术增加' + InttoStr(nPower)+'秒', c_Green, t_Hint);
RecalcAbilitys();
SendMsg(PlayObject, RM_ABILITY, 0, 0, 0, 0, '');
End;
// else
// SysMsg('道术增加' + InttoStr(nPower)+'秒', c_Green, t_Hint);
End;
End;
boTrain := True;
end;
SKILL_61: //金刚护体
Begin
PlayObject.SendRefMsg(rm_21292,1,0,0,0,'');
PlayObject.DefenceUp(61000);
PlayObject.MagDefenceUp(61000);
PlayObject.IsUse61Skill:=True;
boTrain:=True;
End;
SKILL_67: //幽冥火咒 2005-10-14
Begin
if PlayObject.MagCanHitTarget(PlayObject.m_nCurrX,PlayObject.m_nCurrY, TargeTBaseObject) then
begin
if PlayObject.IsProperTarget(TargeTBaseObject) then
begin
if Random(10) >= TargeTBaseObject.m_nAntiMagic then
begin
if (abs(TargeTBaseObject.m_nCurrX - nTargetX) <= 1) and
(abs(TargeTBaseObject.m_nCurrY - nTargetY) <= 1) then
begin
nPower :=
PlayObject.GetAttackPower(GetPower(MPow(UserMagic)) +
LoWord(PlayObject.m_WAbil.SC),
SmallInt(HiWord(PlayObject.m_WAbil.SC) -
LoWord(PlayObject.m_WAbil.SC)) + 1);
PlayObject.SendDelayMsg(PlayObject, RM_DELAYMAGIC,
nPower, MakeLong(nTargetX, nTargetY), 2,
Integer(TargeTBaseObject), '', 1200);
if TargeTBaseObject.m_btRaceServer >= RC_ANIMAL then
boTrain := True;
end; //00494463
end; //00494463
end; //00494463
end
else
TargeTBaseObject := nil; //0049426D
End;
SKILL_70://风影盾
Begin
boTrain:=True;
PlayObject.SendRefMsg(rm_21292,2,0,0,0,'');
End;
SKILL_71: //狂龙紫电
begin
if PlayObject.IsProperTarget(TargeTBaseObject) then
begin
if (Random(10) >= TargeTBaseObject.m_nAntiMagic) then
begin
nPower := PlayObject.GetAttackPower(GetPower(MPow(UserMagic)) +
LoWord(PlayObject.m_WAbil.MC),
SmallInt(HiWord(PlayObject.m_WAbil.MC) -
LoWord(PlayObject.m_WAbil.MC)) + 1);
if TargeTBaseObject.m_btLifeAttrib = LA_UNDEAD then
nPower := ROUND(nPower * 1.5);
PlayObject.SendDelayMsg(PlayObject, RM_DELAYMAGIC, nPower,
MakeLong(nTargetX, nTargetY), 2, Integer(TargeTBaseObject), '',
600);
if TargeTBaseObject.m_btRaceServer >= RC_ANIMAL then
boTrain := True;
end
else
TargeTBaseObject := nil
end
else
TargeTBaseObject := nil;
end;
SKILL_73: //流星火雨
Begin
if MagBigExplosion(PlayObject,
PlayObject.GetAttackPower(GetPower(MPow(UserMagic)) +
LoWord(PlayObject.m_WAbil.MC), SmallInt(HiWord(PlayObject.m_WAbil.MC)
- LoWord(PlayObject.m_WAbil.MC)) + 1),
nTargetX,
nTargetY,
g_Config.nSnowWindRange {1}) then
boTrain := True;
ENd;
SKILL_74://擒龙手
Begin
if PlayObject.IsProperTarget(TargeTBaseObject) then
Begin
PlayObject.GetFrontPosition(nx,ny);
TPlayObject(TargeTBaseObject).SpaceMove(TargeTBaseObject.m_PEnvir.sMapName,nx,ny,0);
TargeTBaseObject.SendRefMsg(RM_Drogon, 0, nx, nY, 0, '');
{
if TargeTBaseObject.m_PEnvir.MoveToMovingObject(TargeTBaseObject.m_nCurrX,TargeTBaseObject.m_nCurrY, TargeTBaseObject, nX, nY, False) > 0 then
begin
TargeTBaseObject.m_nCurrX := nX;
TargeTBaseObject.m_nCurrY := nY;
end;
}
boTrain := True;
End;
End;
75://遁地
Begin
if PlayObject.m_boOnHorse then exit;
boTrain:= True;
nstep:=UserMagic.btLevel*2+Random(3);
PlayObject.CharMoveed(4980492,nTargetx,nTargety);
ENd;
77://移行换影
Begin
if PlayObject.m_boOnHorse then exit;
boTrain:= True;
nstep:=UserMagic.btLevel*2+Random(3);
PlayObject.CharMoveed(5111564,nTargetx,nTargety);
End;
else
BoTrain:=True;
end;
if boSpellFail then
exit;
if boSpellFire then
begin
PlayObject.SendRefMsg(RM_MAGICFIRE, 0,
MakeWord(UserMagic.MagicInfo.btEffectType, UserMagic.MagicInfo.btEffect),
MakeLong(nTargetX, nTargetY),
Integer(TargeTBaseObject),
'');
end;
if (UserMagic.btLevel < 3) and (boTrain) then
begin
if UserMagic.MagicInfo.TrainLevel[UserMagic.btLevel] <=
PlayObject.m_Abil.Level then
begin
PlayObject.TrainSkill(UserMagic, Random(3) + 1);
if not PlayObject.CheckMagicLevelup(UserMagic) then
begin
PlayObject.SendDelayMsg(PlayObject, RM_MAGIC_LVEXP, 0,
UserMagic.MagicInfo.wMagicId, UserMagic.btLevel, UserMagic.nTranPoint,
'', 1000);
end;
end;
end;
Result := True;
end;
function TMagicManager.MagMakePrivateTransparent(BaseObject: TBaseObject;
nHTime: Integer): Boolean; //004930E8
var
i : Integer;
BaseObjectList : TMyList;
TargeTBaseObject : TBaseObject;
begin
Result := False;
if BaseObject.m_wStatusTimeArr[STATE_TRANSPARENT {0x70}] > 0 then
exit; //4930FE
BaseObjectList := TMyList.Create;
BaseObject.GetMapBaseObjects(BaseObject.m_PEnvir, BaseObject.m_nCurrX,
BaseObject.m_nCurrY, 9, BaseObjectList);
for i := 0 to BaseObjectList.Count - 1 do
begin
TargeTBaseObject := TBaseObject(BaseObjectList.Items[i]);
if (TargeTBaseObject.m_btRaceServer >= RC_ANIMAL) and
(TargeTBaseObject.m_TargetCret = BaseObject) then
begin
if (abs(TargeTBaseObject.m_nCurrX - BaseObject.m_nCurrX) > 1) or
(abs(TargeTBaseObject.m_nCurrY - BaseObject.m_nCurrY) > 1) or
(Random(2) = 0) then
begin
TargeTBaseObject.m_TargetCret := nil;
end;
end;
end;
BaseObjectList.Free;
BaseObject.m_wStatusTimeArr[STATE_TRANSPARENT {0x70}] := nHTime; //004931D2
BaseObject.m_nCharStatus := BaseObject.GetCharStatus();
BaseObject.StatusChanged();
BaseObject.m_boHideMode := True;
BaseObject.m_boTransparent := True;
Result := True;
end;
function TMagicManager.MagTamming(BaseObject, TargeTBaseObject: TBaseObject;
nTargetX, nTargetY, nMagicLevel: Integer): Boolean; //00492368
var
n14 : Integer;
begin
Result := False;
if (TargeTBaseObject.m_btRaceServer <> RC_PLAYOBJECT) and ((Random(4 -
nMagicLevel) = 0)) then
begin
TargeTBaseObject.m_TargetCret := nil;
if TargeTBaseObject.m_Master = BaseObject then
begin
TargeTBaseObject.OpenHolySeizeMode((nMagicLevel * 5 + 10) * 1000);
Result := True;
end
else
begin
if Random(2) = 0 then
begin
if TargeTBaseObject.m_Abil.Level <= BaseObject.m_Abil.Level + 2 then
begin
if Random(3) = 0 then
begin
if Random((BaseObject.m_Abil.Level + 20) + (nMagicLevel * 5)) >
(TargeTBaseObject.m_Abil.Level + g_Config.nMagTammingTargetLevel
{10}) then
begin
if not (TargeTBaseObject.bo2C1) and
(TargeTBaseObject.m_btLifeAttrib = 0) and
(TargeTBaseObject.m_Abil.Level < g_Config.nMagTammingLevel {50})
and
(BaseObject.m_SlaveList.Count < g_Config.nMagTammingCount
{(nMagicLevel + 2)}) then
begin
n14 := TargeTBaseObject.m_WAbil.MaxHP div
g_Config.nMagTammingHPRate {100};
if n14 <= 2 then
n14 := 2
else
Inc(n14, n14);
if (TargeTBaseObject.m_Master <> BaseObject) and (Random(n14) =
0) then
begin
TargeTBaseObject.BreakCrazyMode();
if TargeTBaseObject.m_Master <> nil then
begin
TargeTBaseObject.m_WAbil.HP := TargeTBaseObject.m_WAbil.HP
div 10;
end;
TargeTBaseObject.m_Master := BaseObject;
TargeTBaseObject.m_dwMasterRoyaltyTick :=
LongWord((Random(BaseObject.m_Abil.Level * 2) + (nMagicLevel
shl 2) * 5 + 20) * 60 * 1000) + GetTickCount;
TargeTBaseObject.m_btSlaveMakeLevel := nMagicLevel;
if TargeTBaseObject.m_dwMasterTick = 0 then
TargeTBaseObject.m_dwMasterTick := GetTickCount();
TargeTBaseObject.BreakHolySeizeMode();
if LongWord(1500 - nMagicLevel * 200) <
LongWord(TargeTBaseObject.m_nWalkSpeed) then
begin
TargeTBaseObject.m_nWalkSpeed := 1500 - nMagicLevel * 200;
end;
if LongWord(2000 - nMagicLevel * 200) <
LongWord(TargeTBaseObject.m_nNextHitTime) then
begin
TargeTBaseObject.m_nNextHitTime := 2000 - nMagicLevel * 200;
end;
TargeTBaseObject.RefShowName();
BaseObject.m_SlaveList.Add(TargeTBaseObject);
end
else
begin //004925F2
if Random(14) = 0 then
TargeTBaseObject.m_WAbil.HP := 0;
end;
end
else
begin //00492615
if (TargeTBaseObject.m_btLifeAttrib = LA_UNDEAD) and (Random(20)
= 0) then
TargeTBaseObject.m_WAbil.HP := 0;
end;
end
else
begin //00492641
if not (TargeTBaseObject.m_btLifeAttrib = LA_UNDEAD) and
(Random(20) = 0) then
TargeTBaseObject.OpenCrazyMode(Random(20) + 10);
end;
end
else
begin //00492674
if not (TargeTBaseObject.m_btLifeAttrib = LA_UNDEAD) then
TargeTBaseObject.OpenCrazyMode(Random(20) + 10); //变红
end;
end; //004926B0
end
else
begin //00492699
TargeTBaseObject.OpenHolySeizeMode((nMagicLevel * 5 + 10) * 1000);
end;
Result := True;
end;
end
else
begin
if Random(2) = 0 then
Result := True;
end;
end;
function TMagicManager.MagTurnUndead(BaseObject, TargeTBaseObject: TBaseObject;
nTargetX, nTargetY, nLevel: Integer): Boolean; //004926D4
var
n14 : Integer;
begin
Result := False;
if TargeTBaseObject.m_boSuperMan or not (TargeTBaseObject.m_btLifeAttrib =
LA_UNDEAD) then
exit;
TAnimalObject(TargeTBaseObject).Struck {FFEC}(BaseObject);
if TargeTBaseObject.m_TargetCret = nil then
begin
TAnimalObject(TargeTBaseObject).m_boRunAwayMode := True;
TAnimalObject(TargeTBaseObject).m_dwRunAwayStart := GetTickCount();
TAnimalObject(TargeTBaseObject).m_dwRunAwayTime := 10 * 1000;
end;
BaseObject.SetTargetCreat(TargeTBaseObject);
if (Random(2) + (BaseObject.m_Abil.Level - 1)) > TargeTBaseObject.m_Abil.Level
then
begin
if TargeTBaseObject.m_Abil.Level < g_Config.nMagTurnUndeadLevel then
begin
n14 := BaseObject.m_Abil.Level - TargeTBaseObject.m_Abil.Level;
if Random(100) < ((nLevel shl 3) - nLevel + 15 + n14) then
begin
TargeTBaseObject.SetLastHiter(BaseObject);
TargeTBaseObject.m_WAbil.HP := 0;
Result := True;
end
end;
end; //004927CB
end;
function TMagicManager.MagWindTebo(PlayObject: TPlayObject;
UserMagic: pTUserMagic): Boolean;
var
PoseBaseObject : TBaseObject;
begin
Result := False;
PoseBaseObject := PlayObject.GetPoseCreate;
if (PoseBaseObject <> nil) and
(PoseBaseObject <> PlayObject) and
(not PoseBaseObject.m_boDeath) and
(not PoseBaseObject.m_boGhost) and
(PlayObject.IsProperTarget(PoseBaseObject)) and
(not PoseBaseObject.m_boStickMode) then
begin
if (abs(PlayObject.m_nCurrX - PoseBaseObject.m_nCurrX) <= 1) and
(abs(PlayObject.m_nCurrY - PoseBaseObject.m_nCurrY) <= 1) and
(PlayObject.m_Abil.Level > PoseBaseObject.m_Abil.Level) then
begin
if Random(20) < UserMagic.btLevel * 6 + 6 + (PlayObject.m_Abil.Level -
PoseBaseObject.m_Abil.Level) then
begin
PoseBaseObject.CharPushed(GetNextDirection(PlayObject.m_nCurrX,
PlayObject.m_nCurrY, PoseBaseObject.m_nCurrX,
PoseBaseObject.m_nCurrY),
_MAX(0, UserMagic.btLevel - 1) + 1);
Result := True;
end;
end;
end;
end;
function TMagicManager.MagSaceMove(BaseObject: TBaseObject;
nLevel: Integer): Boolean; //04927D8
var
Envir : TEnvirnoment;
PlayObject : TPlayObject;
begin
Result := False;
if Random(11) < nLevel * 2 + 4 then
begin
BaseObject.SendRefMsg(RM_SPACEMOVE_FIRE2, 0, 0, 0, 0, '');
if BaseObject is TPlayObject then
begin
Envir := BaseObject.m_PEnvir;
BaseObject.MapRandomMove(BaseObject.m_sHomeMap, 1);
if (Envir <> BaseObject.m_PEnvir) and (BaseObject.m_btRaceServer =
RC_PLAYOBJECT) then
begin
PlayObject := TPlayObject(BaseObject);
PlayObject.m_boTimeRecall := False;
end;
end;
Result := True;
end; //00492899
end;
function TMagicManager.MagGroupAmyounsul(PlayObject: TPlayObject;
UserMagic: pTUserMagic; nTargetX, nTargetY: Integer;
TargeTBaseObject: TBaseObject): Boolean;
var
i : Integer;
BaseObjectList : TMyList;
BaseObject : TBaseObject;
nPower : Integer;
StdItem : pTStdItem;
nAmuletIdx : Integer;
begin
Result := False;
BaseObjectList := TMyList.Create;
PlayObject.GetMapBaseObjects(PlayObject.m_PEnvir, nTargetX, nTargetY, _MAX(1,
UserMagic.btLevel), BaseObjectList);
for i := 0 to BaseObjectList.Count - 1 do
begin
BaseObject := TBaseObject(BaseObjectList.Items[i]);
if BaseObject.m_boDeath or (BaseObject.m_boGhost) or (PlayObject =
BaseObject) then
Continue;
if PlayObject.IsProperTarget(BaseObject) then
begin
if CheckAmulet(PlayObject, 1, 2, nAmuletIdx) then
begin
StdItem :=
UserEngine.GetStdItem(PlayObject.m_UseItems[nAmuletIdx].wIndex);
if StdItem <> nil then
begin
UseAmulet(PlayObject, 1, 2, nAmuletIdx);
if Random(BaseObject.m_btAntiPoison + 7) <= 6 then
begin
case StdItem.Shape of
1:
begin
nPower := GetPower13(40, UserMagic) +
GetRPow(PlayObject.m_WAbil.SC) * 2;
BaseObject.SendDelayMsg(PlayObject, RM_POISON, POISON_DECHEALTH
{中毒类型 - 绿毒}, nPower, Integer(PlayObject),
ROUND(UserMagic.btLevel / 3 * (nPower /
g_Config.nAmyOunsulPoint)) {UserMagic.btLevel}, '', 1000);
end;
2:
begin
nPower := GetPower13(30, UserMagic) +
GetRPow(PlayObject.m_WAbil.SC) * 2;
BaseObject.SendDelayMsg(PlayObject, RM_POISON,
POISON_DAMAGEARMOR {中毒类型 - 红毒}, nPower,
Integer(PlayObject), ROUND(UserMagic.btLevel / 3 * (nPower /
g_Config.nAmyOunsulPoint)) {UserMagic.btLevel}, '', 1000);
end;
end;
if (BaseObject.m_btRaceServer = RC_PLAYOBJECT) or
(BaseObject.m_btRaceServer >= RC_ANIMAL) then
Result := True;
BaseObject.SetLastHiter(PlayObject);
PlayObject.SetTargetCreat(BaseObject);
end;
end;
end;
end;
end;
BaseObjectList.Free;
end;
function TMagicManager.MagGroupDeDing(PlayObject: TPlayObject;
UserMagic: pTUserMagic; nTargetX, nTargetY: Integer;
TargeTBaseObject: TBaseObject): Boolean;
var
i : Integer;
BaseObjectList : TMyList;
BaseObject : TBaseObject;
nPower : Integer;
begin
Result := False;
BaseObjectList := TMyList.Create;
PlayObject.GetMapBaseObjects(PlayObject.m_PEnvir, nTargetX, nTargetY, _MAX(1,
UserMagic.btLevel), BaseObjectList);
for i := 0 to BaseObjectList.Count - 1 do
begin
BaseObject := TBaseObject(BaseObjectList.Items[i]);
if BaseObject.m_boDeath or (BaseObject.m_boGhost) or (PlayObject =
BaseObject) then
Continue;
if PlayObject.IsProperTarget(BaseObject) then
begin
nPower := PlayObject.GetAttackPower(LoWord(PlayObject.m_WAbil.DC),
SmallInt((HiWord(PlayObject.m_WAbil.DC) -
LoWord(PlayObject.m_WAbil.DC))));
if (Random(BaseObject.m_btSpeedPoint) >= PlayObject.m_btHitPoint) then
begin
nPower := 0;
end;
if nPower > 0 then
begin
nPower := BaseObject.GetHitStruckDamage(PlayObject, nPower);
end;
if nPower > 0 then
begin //004C21FC
BaseObject.StruckDamage(nPower);
PlayObject.SendDelayMsg(PlayObject, RM_DELAYMAGIC, nPower,
MakeLong(BaseObject.m_nCurrX, BaseObject.m_nCurrY), 1,
Integer(BaseObject), '', 200);
end;
if BaseObject.m_btRaceServer >= RC_ANIMAL then
Result := True;
end;
PlayObject.SendRefMsg(RM_10205, 0, BaseObject.m_nCurrX, BaseObject.m_nCurrY,
1, '');
end;
BaseObjectList.Free;
end;
function TMagicManager.MagGroupLightening(PlayObject: TPlayObject;
UserMagic: pTUserMagic; nTargetX, nTargetY: Integer;
TargeTBaseObject: TBaseObject; var boSpellFire: Boolean): Boolean;
var
i : Integer;
BaseObjectList : TMyList;
BaseObject : TBaseObject;
nPower : Integer;
begin
Result := False;
boSpellFire := False;
BaseObjectList := TMyList.Create;
PlayObject.GetMapBaseObjects(PlayObject.m_PEnvir, nTargetX, nTargetY, _MAX(1,
UserMagic.btLevel), BaseObjectList);
PlayObject.SendRefMsg(RM_MAGICFIRE, 0,
MakeWord(UserMagic.MagicInfo.btEffectType, UserMagic.MagicInfo.btEffect),
MakeLong(nTargetX, nTargetY),
Integer(TargeTBaseObject),
'');
for i := 0 to BaseObjectList.Count - 1 do
begin
BaseObject := TBaseObject(BaseObjectList.Items[i]);
if BaseObject.m_boDeath or (BaseObject.m_boGhost) or (PlayObject =
BaseObject) then
Continue;
if PlayObject.IsProperTarget(BaseObject) then
begin
if (Random(10) >= BaseObject.m_nAntiMagic) then
begin
nPower := PlayObject.GetAttackPower(GetPower(MPow(UserMagic), UserMagic)
+ LoWord(PlayObject.m_WAbil.MC),
SmallInt(HiWord(PlayObject.m_WAbil.MC) - LoWord(PlayObject.m_WAbil.MC))
+ 1);
if BaseObject.m_btLifeAttrib = LA_UNDEAD then
nPower := ROUND(nPower * 1.5);
PlayObject.SendDelayMsg(PlayObject, RM_DELAYMAGIC, nPower,
MakeLong(BaseObject.m_nCurrX, BaseObject.m_nCurrY), 2,
Integer(BaseObject), '', 600);
if BaseObject.m_btRaceServer >= RC_ANIMAL then
Result := True;
end;
if (BaseObject.m_nCurrX <> nTargetX) or (BaseObject.m_nCurrY <> nTargetY)
then
PlayObject.SendRefMsg(RM_10205, 0, BaseObject.m_nCurrX,
BaseObject.m_nCurrY, 4 {type}, '');
end;
end;
BaseObjectList.Free;
end;
function TMagicManager.MagHbFireBall(PlayObject: TPlayObject;
UserMagic: pTUserMagic; nTargetX, nTargetY: Integer;
var TargeTBaseObject: TBaseObject): Boolean;
var
nPower : Integer;
nDir : Integer;
levelgap : Integer;
push : 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(10)) 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);
end;
PlayObject.SendDelayMsg(PlayObject, RM_DELAYMAGIC, nPower, MakeLong(nTargetX,
nTargetY), 2, Integer(TargeTBaseObject), '', 600);
if (TargeTBaseObject.m_btRaceServer >= RC_ANIMAL) then
Result := True;
if (PlayObject.m_Abil.Level > TargeTBaseObject.m_Abil.Level) and (not
TargeTBaseObject.m_boStickMode) then
begin
levelgap := PlayObject.m_Abil.Level - TargeTBaseObject.m_Abil.Level;
if (Random(20) < 6 + UserMagic.btLevel * 3 + levelgap) then
begin
push := Random(UserMagic.btLevel) - 1;
if push > 0 then
begin
nDir := GetNextDirection(PlayObject.m_nCurrX, PlayObject.m_nCurrY,
TargeTBaseObject.m_nCurrX, TargeTBaseObject.m_nCurrY);
PlayObject.SendDelayMsg(PlayObject, RM_DELAYPUSHED, nDir,
MakeLong(nTargetX, nTargetY), push, Integer(TargeTBaseObject), '',
600);
end;
end;
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 : TMyList;
TargeTBaseObject : TBaseObject;
begin
Result := False;
BaseObjectList := TMyList.Create;
nRage:=Max(2,nRage);
nRage:=Min(4,nRage);
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 : TMyList;
TargeTBaseObject : TBaseObject;
nPowerPoint : Integer;
begin
Result := False;
BaseObjectList := TMyList.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 (TargeTBaseObject.m_btLifeAttrib = 0) 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 : TMyList;
TargeTBaseObject : TBaseObject;
MagicEvent : pTMagicEvent;
HolyCurtainEvent : THolyCurtainEvent;
begin
Result := 0;
if BaseObject.m_PEnvir.CanWalk(nX, nY, True) then
begin
BaseObjectList := TMyList.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 := TMyList.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 : TMyList;
TargeTBaseObject : TBaseObject;
begin
Result := False;
BaseObjectList := TMyList.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(10)) 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;
nCount : Integer;
dwRoyaltySec : LongWord;
begin
Result := False;
if not PlayObject.sub_4DD704 then
begin
sMonName := g_Config.sDogz;
nMakeLevel := UserMagic.btLevel;
nExpLevel := UserMagic.btLevel;
nCount := g_Config.nDogzCount;
dwRoyaltySec := 10 * 24 * 60 * 60;
for i := Low(g_Config.DogzArray) to High(g_Config.DogzArray) do
begin
if g_Config.DogzArray[i].nHumLevel = 0 then
break;
if PlayObject.m_Abil.Level >= g_Config.DogzArray[i].nHumLevel then
begin
sMonName := g_Config.DogzArray[i].sMonName;
nExpLevel := g_Config.DogzArray[i].nLevel;
nCount := g_Config.DogzArray[i].nCount;
end;
end;
if PlayObject.MakeSlave(sMonName, nMakeLevel, nExpLevel, nCount,
dwRoyaltySec) <> nil then
Result := True;
end;
// if PlayObject.MakeSlave(g_Config.sDogz,UserMagic.btLevel,1,10 * 24 * 60 * 60) <> nil then
// boTrain:=True;
end;
function TMagicManager.MagMakeSlave(PlayObject: TPlayObject; UserMagic:
pTUserMagic): Boolean;
var
i : Integer;
sMonName : string;
nMakeLevel, nExpLevel: Integer;
nCount : Integer;
dwRoyaltySec : LongWord;
begin
Result := False;
if not PlayObject.sub_4DD704 then
begin
sMonName := g_Config.sBoneFamm;
nMakeLevel := UserMagic.btLevel;
nExpLevel := UserMagic.btLevel;
nCount := g_Config.nBoneFammCount;
dwRoyaltySec := 10 * 24 * 60 * 60;
for i := Low(g_Config.BoneFammArray) to High(g_Config.BoneFammArray) do
begin
if g_Config.BoneFammArray[i].nHumLevel = 0 then
break;
if PlayObject.m_Abil.Level >= g_Config.BoneFammArray[i].nHumLevel then
begin
sMonName := g_Config.BoneFammArray[i].sMonName;
nExpLevel := g_Config.BoneFammArray[i].nLevel;
nCount := g_Config.BoneFammArray[i].nCount;
end;
end;
if PlayObject.MakeSlave(sMonName, nMakeLevel, nExpLevel, nCount,
dwRoyaltySec) <> nil then
Result := True;
end;
end;
function TMagicManager.MagGroupMb(PlayObject: TPlayObject;
UserMagic: pTUserMagic; nTargetX, nTargetY: Integer;
TargeTBaseObject: TBaseObject): Boolean;
var
i : Integer;
BaseObjectList : TMyList;
BaseObject : TBaseObject;
nPower : Integer;
StdItem : pTStdItem;
nTime : Integer;
begin
Result := False;
BaseObjectList := TMyList.Create;
nTime := 2 * UserMagic.btLevel + Random(2)+1;
PlayObject.GetMapBaseObjects(PlayObject.m_PEnvir, PlayObject.m_nCurrX,
PlayObject.m_nCurrY, UserMagic.btLevel + 2, BaseObjectList);
for i := 0 to BaseObjectList.Count - 1 do
begin
BaseObject := TBaseObject(BaseObjectList.Items[i]);
//判断是否允许麻痹人
if (BaseObject.m_btRaceServer = RC_PLAYOBJECT) and (not g_Config.boGroupMbAttackPlayObject) then
Continue;
//判断是否允许麻痹宝宝
if (BaseObject.m_Master<>nil) and (not g_Config.boGroupMbAttackBaoBao) then
Continue;
if BaseObject.m_boDeath or (BaseObject.m_boGhost) or (PlayObject = BaseObject) then
Continue;
if PlayObject.IsProperTarget(BaseObject) then
begin
//有几率的
if (not BaseObject.m_boUnParalysis)and (not BaseObject.m_boFastParalysis) then
begin
if (BaseObject.m_Abil.Level < PlayObject.m_Abil.Level) or
(Random(PlayObject.m_Abil.Level - BaseObject.m_Abil.Level) = 0) then
begin
BaseObject.MakePosion(POISON_STONE, nTime, 0);
BaseObject.m_boFastParalysis := True;
end;
end;
end;
if (BaseObject.m_btRaceServer >= RC_ANIMAL) then
Result := True;
end;
BaseObjectList.Free;
end;
end.