plugofengine.~pas

飘飘的传奇服务端院代码 能编译的 要控件 老大就让我传上去吧

  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 TBaseObject_boAllowGroup(BaseObject: TBaseObject): PBoolean;
begin
  Result := @BaseObject.m_boAllowGroup;
end;
function TBaseObject_boAllowGuild(BaseObject: TBaseObject): PBoolean;
begin
  Result := @BaseObject.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 TBaseObject_nHungerStatus(BaseObject: TBaseObject): PInteger;
begin
  Result := @BaseObject.m_nHungerStatus;
end;
function TBaseObject_boAllowGuildReCall(BaseObject: TBaseObject): PBoolean;
begin
  Result := @BaseObject.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 TBaseObject_wGroupRcallTime(BaseObject: TBaseObject): PWord;
begin
  Result := @BaseObject.m_wGroupRcallTime;
end;
function TBaseObject_boAllowGroupReCall(BaseObject: TBaseObject): PBoolean;
begin
  Result := @BaseObject.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.RaceServer;
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 TBaseObject_GroupOwner(BaseObject: TBaseObject): TBaseObject;
begin
  Result := BaseObject.m_GroupOwner;
end;
function TBaseObject_GroupMembersList(BaseObject: TBaseObject): TStringList;
begin
  Result := @BaseObject.m_GroupMembers;
end;
function TBaseObject_boHearWhisper(BaseObject: TBaseObject): PBoolean;
begin
  Result := @BaseObject.m_boHearWhisper;
end;
function TBaseObject_boBanShout(BaseObject: TBaseObject): PBoolean;
begin
  Result := @BaseObject.m_boBanShout;
end;
function TBaseObject_boBanGuildChat(BaseObject: TBaseObject): PBoolean;
begin
  Result := @BaseObject.m_boBanGuildChat;
end;
function TBaseObject_boAllowDeal(BaseObject: TBaseObject): PBoolean;
begin
  Result := @BaseObject.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):