procedure TBaseObject.DamageSpell(nSpellPoint: Integer); //004BE50C
begin
if nSpellPoint > 0 then begin
if (m_WAbil.MP - nSpellPoint) > 0 then
Dec(m_WAbil.MP,nSpellPoint)
else m_WAbil.MP:=0;
end else begin
if (m_WAbil.MP - nSpellPoint) < m_WAbil.MaxMP then
Dec(m_WAbil.MP,nSpellPoint)
else m_WAbil.MP:=m_WAbil.MaxMP;
end;
end;
if (nSpellPoint > 0) and (m_Master<>nil) then begin
if m_Master.m_WAbil.MP >0 then begin
m_Master.DamageSpell(nSpellPoint); //减少蓝血
&nb
