开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 游戏引擎 > 查看源码
PK_C2BaseU.pas
资源名称：CAST2SDK.rar　[点击查看]
上传用户：yj_qiu
上传日期：2022-08-08
资源大小：23636k
文件大小：1k
源码类别：

游戏引擎

开发平台：

Delphi

PK_C2BaseU.pas：源码内容
  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;
  9. interface
  11. procedure RegisterPackage;
  13. implementation
  15. uses
  16.   TextFile, BasePlugins,
  17.   BaseClasses,
  18.   CAST2, C2Visual, C2Res, C2Core,
  19.   C2VisItems, C2Materials,
  20.   C2Anim,
  21.   C2Flora, C2Grass,
  22.   C2Maps, C2Land, C2TileMaps,
  23.   C22D,
  24.   C2FX;
  26. procedure RegisterPackage;
  27. var ClassList: TClassArray;
  28. begin
  29.   if Assigned(PluginSystem) then begin
  30.     ClassList := nil;
  31.     MergeClassLists(ClassList, C2Res.GetUnitClassList);
  32.     MergeClassLists(ClassList, C2Core.GetUnitClassList);
  33.     MergeClassLists(ClassList, C2VisItems.GetUnitClassList);
  34.     MergeClassLists(ClassList, C2Anim.GetUnitClassList);
  35.     MergeClassLists(ClassList, C22D.GetUnitClassList);
  36.     MergeClassLists(ClassList, C2FX.GetUnitClassList);
  37.     MergeClassLists(ClassList, C2Land.GetUnitClassList);
  38.     MergeClassLists(ClassList, C2TileMaps.GetUnitClassList);
  39.     MergeClassLists(ClassList, C2Flora.GetUnitClassList);
  40.     MergeClassLists(ClassList, C2Grass.GetUnitClassList);
  41.     PluginSystem.RegisterPlugin('CAST II base', 'CAST II base units package', ClassList);
  42.   end else
  43.     Log.Log('Package "PK_C2Base" initialization: Plugin system is not initialized', lkError);
  44. end;
  46. initialization
  47.   if Assigned(PluginSystem) then RegisterPackage;
  48. end.