PK_C2BaseU.pas
上传用户:yj_qiu
上传日期:2022-08-08
资源大小:23636k
文件大小:1k
源码类别:

游戏引擎

开发平台:

Delphi

  1. (*
  2.  Base package interface unit
  3.  (C) 2006-2007 George "Mirage" Bakhtadze. avagames@gmail.com
  4.  Created: Aug 17, 2007
  5.  Unit contains base units registration routines
  6. *)
  7. unit PK_C2BaseU;
  8. interface
  9. procedure RegisterPackage;
  10. implementation
  11. uses
  12.   TextFile, BasePlugins,
  13.   BaseClasses,
  14.   CAST2, C2Visual, C2Res, C2Core,
  15.   C2VisItems, C2Materials,
  16.   C2Anim,
  17.   C2Flora, C2Grass,
  18.   C2Maps, C2Land, C2TileMaps,
  19.   C22D,
  20.   C2FX;
  21. procedure RegisterPackage;
  22. var ClassList: TClassArray;
  23. begin
  24.   if Assigned(PluginSystem) then begin
  25.     ClassList := nil;
  26.     MergeClassLists(ClassList, C2Res.GetUnitClassList);
  27.     MergeClassLists(ClassList, C2Core.GetUnitClassList);
  28.     MergeClassLists(ClassList, C2VisItems.GetUnitClassList);
  29.     MergeClassLists(ClassList, C2Anim.GetUnitClassList);
  30.     MergeClassLists(ClassList, C22D.GetUnitClassList);
  31.     MergeClassLists(ClassList, C2FX.GetUnitClassList);
  32.     MergeClassLists(ClassList, C2Land.GetUnitClassList);
  33.     MergeClassLists(ClassList, C2TileMaps.GetUnitClassList);
  34.     MergeClassLists(ClassList, C2Flora.GetUnitClassList);
  35.     MergeClassLists(ClassList, C2Grass.GetUnitClassList);
  36.     PluginSystem.RegisterPlugin('CAST II base', 'CAST II base units package', ClassList);
  37.   end else
  38.     Log.Log('Package "PK_C2Base" initialization: Plugin system is not initialized', lkError);
  39. end;
  40. initialization
  41.   if Assigned(PluginSystem) then RegisterPackage;
  42. end.