77M2引擎的传奇如何使用静态数组和动态数组脚本范例

unit UnitArray;

inte**ce
  uses SysUtils;

const
  JobNames: array[0..4] of String=('战士', '法师', '道士', '刺客', '弓箭手'); //这是一个静态数组,运行期不需要改变,所以定义为const

var
  Job_AddAbility: array of array of Integer;  //这是动态数组      

procedure Main(Npc: TNormNPC; Player: TPlayObject; Args: TArgs);

implementation

procedure Main(Npc: TNormNPC; Player: TPlayObject; Args: TArgs);
begin
  Player.Say(IntToStr(Job_AddAbility[0][1])); //访问数组数据
end;

procedure InitArry;
var
  I: Integer;
begin
  //定义数组大小
  SetLength(Job_AddAbility, 5);
  for I := 0 to 4 do
    SetLength(Job_AddAbility[I], 3);

  //赋值
  Job_AddAbility[0] := [12,13,14,15];
  Job_AddAbility[1] := [10,6,10,4];
  Job_AddAbility[2] := [10,12,20,8];
  Job_AddAbility[3] := [10,18,30,12];
  Job_AddAbility[4] := [10,30,50,20];
end;

procedure FinaArry;
begin
  FillChar(Job_AddAbility, SizeOf(Job_AddAbility), #0);
end;

initialization
  InitArry;  //单元初始化的时候执行数组初始化(M2退出或重加载脚本)

finalization
  FinaArry; //单元初始化的时候执行数组初始化(M2退出或重加载脚本)

end.

版权声明

1、本站所有内容均由互联网收集整理、网友上传，仅供大家参考、学习研究使用，不存在任何商业目的与商业用途。

2、论坛的所有内容都不保证其准确性，完整性，有效性，因本站内容因误导等因素而造成的损失本站不承担连带责任。

3、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则：为了学习和研究软件内含的设计思想和原理，通过安装、显示、传输或者存储软件等方式使用软件的，可以不经软件著作权人许可，若有用户需要商用本站资源，请务必联系版权方购买正版授权！

谢谢楼主！喜欢这里的东西，方便又好用！

比较全的传奇教程分享网站，站长辛苦了。

感谢站长分享开区一条龙教程，新手能学习到很多知识。

很多架设问题在这里可以找到，真是太好啦。

感谢站长分享传奇教程，让我学习到很多知识。

感谢楼主提供这么好的论坛！

这东西我收了！谢谢楼主！

谢谢楼主！喜欢这里的东西，方便又好用！

这东西我收了！谢谢楼主！