plugofengine.~pas

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

    end;
  end;
end;
function TPlugOfEngine.GetHookPlayObjectCreate(PlugHandle: THandle): TObjectAction;
begin

end;
function TPlugOfEngine.GetHookPlayObjectDestroy(PlugHandle: THandle): TObjectAction;
begin

end;
function TPlugOfEngine.GetHookPlayObjectUserCmd(PlugHandle: THandle): TObjectUserCmd;
begin

end;
function TPlugOfEngine.GetHookObjectOperateMessage(PlugHandle: THandle): TObjectOperateMessage;
begin

end;
function TPlugOfEngine.GetHookQuestActionScriptCmd(PlugHandle: THandle): TScriptCmd;
begin

end;
function TPlugOfEngine.GetHookQuestConditionScriptCmd(PlugHandle: THandle): TScriptCmd;
begin

end;
function TPlugOfEngine.GetHookActionScriptProcess(PlugHandle: THandle): TScriptAction;
begin

end;
function TPlugOfEngine.GetHookConditionScriptProcess(PlugHandle: THandle): TScriptCondition;
begin

end;
function TPlugOfEngine.GetHookPlayObjectUserSelect(PlugHandle: THandle): TObjectActionUserSelect;
begin

end;
{===============================引擎插件共享函数===============================}
function TList_Create(): TList;
begin
  Result := TList.Create;
end;
procedure TList_Free(List: TList);
begin
  List.Free;
end;
function TList_Count(List: TList): Integer;
begin
  Result := List.Count;
end;
function TList_Add(List: TList; Item: Pointer): Integer;
begin
  Result := List.Add(Item);
end;
procedure TList_Insert(List: TList; nIndex: Integer; Item: Pointer);
begin
  List.Insert(nIndex, Item);
end;
function TList_Get(List: TList; nIndex: Integer): Pointer;
begin
  Result := List.Items[nIndex];
end;
procedure TList_Put(List: TList; nIndex: Integer; Item: Pointer);
begin
  //
end;
procedure TList_Delete(List: TList; nIndex: Integer);
begin
  List.Delete(nIndex);
end;
procedure TList_Clear(List: TList);
begin
  List.Clear;
end;
procedure TList_Exchange(List: TList; nIndex1, nIndex2: Integer);
begin
  List.Exchange(nIndex1, nIndex2);
end;
function TStringList_Create(): TStringList;
begin
  Result := TStringList.Create;
end;
procedure TStringList_Free(List: TStringList);
begin
  List.Free;
end;
function TStringList_Count(List: TStringList): Integer;
begin
  Result := List.Count;
end;
function TStringList_Add(List: TStringList; S: PChar): Integer;
begin
  List.Add(S);
end;
function TStringList_AddObject(List: TStringList; S: PChar; AObject: TObject): Integer;
begin
  List.AddObject(S, AObject);
end;
procedure TStringList_Insert(List: TStringList; nIndex: Integer; S: PChar);
begin
  List.Insert(nIndex, S);
end;
function TStringList_Get(List: TStringList; nIndex: Integer): PChar;
begin
  Result := PChar(List.Strings[nIndex]);
end;
function TStringList_GetObject(List: TStringList; nIndex: Integer): TObject;
begin
  Result := List.Objects[nIndex];
end;
procedure TStringList_Put(List: TStringList; nIndex: Integer; S: PChar);
begin

end;
procedure TStringList_PutObject(List: TStringList; nIndex: Integer; AObject: TObject);
begin

end;
procedure TStringList_Delete(List: TStringList; nIndex: Integer);
begin
  List.Delete(nIndex);
end;
procedure TStringList_Clear(List: TStringList);
begin
  List.Clear;
end;
procedure TStringList_Exchange(List: TStringList; nIndex1, nIndex2: Integer);
begin
  List.Exchange(nIndex1, nIndex2);
end;
procedure TStringList_LoadFormFile(List: TStringList; pszFileName: PChar);
begin
  List.LoadFromFile(StrPas(pszFileName));
end;
procedure TStringList_SaveToFile(List: TStringList; pszFileName: PChar);
begin
  List.SaveToFile(StrPas(pszFileName));
end;
procedure MainOutMessageAPI(pszMsg: PChar);
begin
  MainOutMessage(StrPas(pszMsg));
end;
procedure AddGameDataLogAPI(pszMsg: PChar);
begin
  AddGameDataLog(StrPas(pszMsg));
end;
function GetGameGoldName(): PTShortString;
var
  ShortString: TShortString;
begin
  ShortString.btLen := Length(g_Config.sGameGoldName);
  Move(g_Config.sGameGoldName[1], ShortString.Strings, ShortString.btLen);
  Result := @ShortString;
end;
procedure EDcode_Decode6BitBuf(pszSource: PChar; pszDest: PChar; nSrcLen, nDestLen: Integer);
begin
  Decode6BitBuf(pszSource, pszDest, nSrcLen, nDestLen);
end;
procedure EDcode_Encode6BitBuf(pszSource: PChar; pszDest: PChar; nSrcLen, nDestLen: Integer);
begin
  Encode6BitBuf(pszSource, pszDest, nSrcLen, nDestLen);
end;

procedure EDcode_DecodeBuffer(pszSource: PChar; pszDest: PChar; bufsize: Integer);
begin
  DecodeBuffer(StrPas(pszSource), pszDest, bufsize);
end;

procedure EDcode_EncodeBuffer(Buf: PChar; bufsize: Integer; var pszDest: array of Char);
var
  sDest: string;
begin
  FillChar(pszDest, SizeOf(pszDest), 0);
  sDest := EncodeBuffer(Buf, bufsize);
  Move(sDest[1], pszDest, Length(sDest));
end;

procedure EDcode_EncodeString(pszSource: PChar; var pszDest: array of Char);
var
  sDest: string;
begin
  FillChar(pszDest, SizeOf(pszDest), 0);
  sDest := EncodeString(StrPas(pszSource));
  Move(sDest[1], pszDest, Length(sDest));
end;

procedure EDcode_DeCodeString(pszSource: PChar; var pszDest: array of Char);
var
  sDest: string;
begin
  FillChar(pszDest, SizeOf(pszDest), 0);
  sDest := DeCodeString(StrPas(pszSource));
  Move(sDest[1], pszDest, Length(sDest));
end;



procedure EDcode_SetDecode(Decode: TEDCode);
begin

end;
procedure EDcode_SetEncode(Encode: TEDCode);
begin

end;
function TConfig_AmyOunsulPoint: PInteger;
begin
  Result := @g_Config.nAmyOunsulPoint;
end;

function TConfig_sEnvirDir(): _LPTDIRNAME;
var
  sEnvirDir: _TDIRNAME;
begin
  sEnvirDir := g_Config.sEnvirDir;
  Result := @sEnvirDir;
end;
function TBaseObject_Create(): TBaseObject;
begin
  Result := TBaseObject.Create;
end;
procedure TBaseObject_Free(BaseObject: TBaseObject);
begin
  BaseObject.Free;
end;
function TBaseObject_sMapFileName(BaseObject: TBaseObject): PTShortString;
var
  ShortString: TShortString;
begin
  ShortString.btLen := Length(BaseObject.m_sMapName);
  Move(BaseObject.m_sMapName[1], ShortString.Strings, ShortString.btLen);
  Result := @ShortString;
end;
function TBaseObject_sMapName(BaseObject: TBaseObject): PTShortString;
var
  ShortString: TShortString;
begin
  ShortString.btLen := Length(BaseObject.m_sMapName);
  Move(BaseObject.m_sMapName[1], ShortString.Strings, ShortString.btLen);
  Result := @ShortString;
end;
function TBaseObject_sMapNameA(BaseObject: TBaseObject): _LPTMAPNAME;
var
  sMapName: _TMAPNAME;
begin
  sMapName := BaseObject.m_sMapName;
  Result := @sMapName;
end;
function TBaseObject_sCharName(BaseObject: TBaseObject): PTShortString;
var
  ShortString: TShortString;
begin
  ShortString.btLen := Length(BaseObject.m_sCharName);
  Move(BaseObject.m_sCharName[1], ShortString.Strings, ShortString.btLen);
  Result := @ShortString;
end;
function TBaseObject_sCharNameA(BaseObject: TBaseObject): _LPTACTORNAME;
var
  sCharName: _TACTORNAME;
begin
  sCharName := BaseObject.m_sCharName;
  Result := @sCharName;
end;

function TBaseObject_nCurrX(BaseObject: TBaseObject): PInteger;
begin
  Result := @BaseObject.m_nCurrX;
end;
function TBaseObject_nCurrY(BaseObject: TBaseObject): PInteger;
begin
  Result := @BaseObject.m_nCurrY;
end;
function TBaseObject_btDirection(BaseObject: TBaseObject): PByte;
begin
  Result := @BaseObject.m_btDirection;
end;
function TBaseObject_btGender(BaseObject: TBaseObject): PByte;
begin