plugofengine.pas

飞尔传奇世界的引擎代码可直接编译M2Engine 请使用Delphi编译

  Result := @BaseObject.m_nCurrY;
end;
function TBaseObject_btDirection(BaseObject: TBaseObject): PByte;
begin
  Result := @BaseObject.m_btDirection;
end;
function TBaseObject_btGender(BaseObject: TBaseObject): PByte;
begin
  Result := @BaseObject.m_btGender;
end;
function TBaseObject_btHair(BaseObject: TBaseObject): PByte;
begin
  Result := @BaseObject.m_btHair;
end;
function TBaseObject_btJob(BaseObject: TBaseObject): PByte;
begin
  Result := @BaseObject.m_btJob;
end;
function TBaseObject_nGold(BaseObject: TBaseObject): PInteger;
begin
  Result := @BaseObject.m_nGold;
end;
function TBaseObject_Ability(BaseObject: TBaseObject): pTAbility;
begin
  Result := @BaseObject.m_Abil;
end;
function TBaseObject_WAbility(BaseObject: TBaseObject): pTAbility;
begin
  Result := @BaseObject.m_WAbil;
end;
function TBaseObject_nCharStatus(BaseObject: TBaseObject): PInteger;
begin
  Result := @BaseObject.m_nCharStatus;
end;
function TBaseObject_sHomeMap(BaseObject: TBaseObject): PTShortString;
var
  ShortString: TShortString;
begin
  ShortString.btLen := Length(BaseObject.m_sHomeMap);
  Move(BaseObject.m_sHomeMap[1], ShortString.Strings, ShortString.btLen);
  Result := @ShortString;
end;
function TBaseObject_nHomeX(BaseObject: TBaseObject): PInteger;
begin
  Result := @BaseObject.m_nHomeX;
end;
function TBaseObject_nHomeY(BaseObject: TBaseObject): PInteger;
begin
  Result := @BaseObject.m_nHomeY;
end;
function TBaseObject_boOnHorse(BaseObject: TBaseObject): PBoolean;
begin
  Result := @BaseObject.m_boOnHorse;
end;
function TBaseObject_btHorseType(BaseObject: TBaseObject): PByte;
begin
  Result := @BaseObject.m_btHorseType;
end;

function TBaseObject_btDressEffType(BaseObject: TBaseObject): PByte;
begin
  Result := @BaseObject.m_btDressEffType;
end;
function TBaseObject_nPkPoint(BaseObject: TBaseObject): PInteger;
begin
  Result := @BaseObject.m_nPkPoint;
end;
function TPlayObject_boAllowGroup(PlayObject: TPlayObject): PBoolean;
begin
  Result := @PlayObject.m_boAllowGroup;
end;
function TPlayObject_boAllowGuild(PlayObject: TPlayObject): PBoolean;
begin
  Result := @PlayObject.m_boAllowGuild;
end;
function TBaseObject_nFightZoneDieCount(BaseObject: TBaseObject): PInteger;
begin
  Result := @BaseObject.m_nFightZoneDieCount;
end;
function TBaseObject_nBonusPoint(BaseObject: TBaseObject): PInteger;
begin
  Result := @BaseObject.m_nBonusPoint;
end;
function TPlayObject_nHungerStatus(PlayObject: TPlayObject): PInteger;
begin
  Result := @PlayObject.m_nHungerStatus;
end;
function TPlayObject_boAllowGuildReCall(PlayObject: TPlayObject): PBoolean;
begin
  Result := @PlayObject.m_boAllowGuildReCall;
end;
function TBaseObject_duBodyLuck(BaseObject: TBaseObject): PDouble;
begin
  Result := @BaseObject.m_dBodyLuck;
end;
function TBaseObject_nBodyLuckLevel(BaseObject: TBaseObject): PInteger;
begin
  Result := @BaseObject.m_nBodyLuckLevel;
end;
function TPlayObject_wGroupRcallTime(PlayObject: TPlayObject): PWord;
begin
  Result := @PlayObject.m_wGroupRcallTime;
end;
function TPlayObject_boAllowGroupReCall(PlayObject: TPlayObject): PBoolean;
begin
  Result := @PlayObject.m_boAllowGroupReCall;
end;
function TBaseObject_nCharStatusEx(BaseObject: TBaseObject): PInteger;
begin
  Result := @BaseObject.m_nCharStatusEx;
end;
function TBaseObject_dwFightExp(BaseObject: TBaseObject): PLongWord;
begin
  Result := @BaseObject.m_dwFightExp;
end;
function TBaseObject_nViewRange(BaseObject: TBaseObject): PInteger;
begin
  Result := @BaseObject.m_nViewRange;
end;
function TBaseObject_wAppr(BaseObject: TBaseObject): PWord;
begin
  Result := @BaseObject.m_wAppr;
end;
function TBaseObject_btRaceServer(BaseObject: TBaseObject): PByte;
begin
  Result := @BaseObject.m_btRaceServer;
end;
function TBaseObject_btRaceImg(BaseObject: TBaseObject): PByte;
begin
  Result := @BaseObject.m_btRaceImg;
end;
function TBaseObject_btHitPoint(BaseObject: TBaseObject): PByte;
begin
  Result := @BaseObject.m_btHitPoint;
end;
function TBaseObject_nHitPlus(BaseObject: TBaseObject): PShortInt;
begin
  Result := @BaseObject.m_nHitPlus;
end;
function TBaseObject_nHitDouble(BaseObject: TBaseObject): PShortInt;
begin
  Result := @BaseObject.m_nHitDouble;
end;
function TBaseObject_boRecallSuite(BaseObject: TBaseObject): PBoolean;
begin
  Result := @BaseObject.m_boRecallSuite;
end;
function TBaseObject_nHealthRecover(BaseObject: TBaseObject): PShortInt;
begin
  Result := @BaseObject.m_nHealthRecover;
end;
function TBaseObject_nSpellRecover(BaseObject: TBaseObject): PShortInt;
begin
  Result := @BaseObject.m_nSpellRecover;
end;
function TBaseObject_btAntiPoison(BaseObject: TBaseObject): PByte;
begin
  Result := @BaseObject.m_btAntiPoison;
end;
function TBaseObject_nPoisonRecover(BaseObject: TBaseObject): PShortInt;
begin
  Result := @BaseObject.m_nPoisonRecover;
end;
function TBaseObject_nAntiMagic(BaseObject: TBaseObject): PShortInt;
begin
  Result := @BaseObject.m_nAntiMagic;
end;
function TBaseObject_nLuck(BaseObject: TBaseObject): PInteger;
begin
  Result := @BaseObject.m_nLuck;
end;
function TBaseObject_nPerHealth(BaseObject: TBaseObject): PInteger;
begin
  Result := @BaseObject.m_nPerHealth;
end;
function TBaseObject_nPerHealing(BaseObject: TBaseObject): PInteger;
begin
  Result := @BaseObject.m_nPerHealing;
end;
function TBaseObject_nPerSpell(BaseObject: TBaseObject): PInteger;
begin
  Result := @BaseObject.m_nPerSpell;
end;
function TBaseObject_btGreenPoisoningPoint(BaseObject: TBaseObject): PByte;
begin
  Result := @BaseObject.m_btGreenPoisoningPoint;
end;
function TBaseObject_nGoldMax(BaseObject: TBaseObject): PInteger;
begin
  Result := @BaseObject.m_nGoldMax;
end;
function TBaseObject_btSpeedPoint(BaseObject: TBaseObject): PByte;
begin
  Result := @BaseObject.m_btSpeedPoint;
end;
function TBaseObject_btPermission(BaseObject: TBaseObject): PByte;
begin
  Result := @BaseObject.m_btPermission;
end;
function TBaseObject_nHitSpeed(BaseObject: TBaseObject): PShortInt;
begin
  Result := @BaseObject.m_nHitSpeed;
end;
function TBaseObject_TargetCret(BaseObject: TBaseObject): PTBaseObject;
begin
  Result := @BaseObject.m_TargetCret;
end;
function TBaseObject_LastHiter(BaseObject: TBaseObject): PTBaseObject;
begin
  Result := @BaseObject.m_LastHiter;
end;
function TBaseObject_ExpHiter(BaseObject: TBaseObject): PTBaseObject;
begin
  Result := @BaseObject.m_ExpHitter;
end;
function TBaseObject_btLifeAttrib(BaseObject: TBaseObject): PByte;
begin
  Result := @BaseObject.m_btLifeAttrib;
end;
function TPlayObject_GroupOwner(PlayObject: TPlayObject): TPlayObject;
begin
  Result := PlayObject.m_GroupOwner;
end;
function TPlayObject_GroupMembersList(PlayObject: TPlayObject): TStringList;
begin
  Result := @PlayObject.m_GroupMembers;
end;
function TPlayObject_boHearWhisper(PlayObject: TPlayObject): PBoolean;
begin
  Result := @PlayObject.m_boHearWhisper;
end;
function TPlayObject_boBanShout(PlayObject: TPlayObject): PBoolean;
begin
  Result := @PlayObject.m_boBanShout;
end;
function TPlayObject_boBanGuildChat(PlayObject: TPlayObject): PBoolean;
begin
  Result := @PlayObject.m_boBanGuildChat;
end;
function TPlayObject_boAllowDeal(PlayObject: TPlayObject): PBoolean;
begin
  Result := @PlayObject.m_boAllowDeal;
end;
function TBaseObject_nSlaveType(BaseObject: TBaseObject): PInteger;
begin

end;
function TBaseObject_Master(BaseObject: TBaseObject): PTBaseObject;
begin
  Result := @BaseObject.m_Master;
end;
function TBaseObject_btAttatckMode(BaseObject: TBaseObject): PByte;
begin
  Result := @BaseObject.m_btAttatckMode;
end;
function TBaseObject_btNameColor(BaseObject: TBaseObject): PByte;
begin
  Result := @BaseObject.m_btNameColor;
end;
function TBaseObject_nLight(BaseObject: TBaseObject): PInteger;
begin
  Result := @BaseObject.m_nLight;
end;
function TBaseObject_ItemList(BaseObject: TBaseObject): TList;
begin
  Result := BaseObject.m_ItemList;
end;
function TBaseObject_MagicList(BaseObject: TBaseObject): TList;
begin
  Result := BaseObject.m_MagicList;
end;
function TBaseObject_MyGuild(BaseObject: TBaseObject): TGUild;
begin
  Result := TGUild(BaseObject.m_MyGuild);
end;
function TBaseObject_UseItems(BaseObject: TBaseObject): PTPLAYUSEITEMS;
begin
  Result := @BaseObject.m_UseItems;
end;
function TBaseObject_btMonsterWeapon(BaseObject: TBaseObject): PByte;
begin
  Result := @BaseObject.m_btMonsterWeapon;
end;
function TBaseObject_PEnvir(BaseObject: TBaseObject): PTEnvirnoment;
begin
  Result := @BaseObject.m_PEnvir;
end;
function TBaseObject_boGhost(BaseObject: TBaseObject): PBoolean;
begin
  Result := @BaseObject.m_boGhost;
end;
function TBaseObject_boDeath(BaseObject: TBaseObject): PBoolean;
begin
  Result := @BaseObject.m_boDeath;
end;
function TBaseObject_DeleteBagItem(BaseObject: TBaseObject; UserItem: pTUserItem): BOOL;
begin
  Result := BaseObject.DelBagItem(UserItem);
end;
function TBaseObject_AddCustomData(BaseObject: TBaseObject; Data: Pointer): Integer;
begin

end;
function TBaseObject_GetCustomData(BaseObject: TBaseObject; nIndex: Integer): Pointer;
begin