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

趣游论坛 · 发表于 2019-6-3 17:26:33

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.

柳溪 · 发表于 2019-6-3 18:04:40

沙发位出租，有意请联系哦

李小艾 · 发表于 2019-6-3 18:28:45

介是神马？！！

梦里水乡 · 发表于 2019-6-3 18:32:07

大人，此事必有蹊跷！

我命由我不由天 · 发表于 2019-6-3 19:12:50

支持，赞一个

遥遥无期ING · 发表于 2019-6-3 19:17:44

回帖是种美德.

牵挂 · 发表于 2019-6-3 21:01:15

不错的脚本，感谢楼主

到底是谁水 · 发表于 2019-6-3 21:13:15

路过帮顶嘿嘿

没有你的陪伴 · 发表于 2019-6-3 21:48:01

这么强,支持楼主，佩服

泪了 · 发表于 2019-6-3 22:15:46

好帖必须得顶起

`设为首页收藏本站`

[传奇一键替换包]

[其它端游引擎] 77M2引擎的传奇如何使用静态数组和动态数组脚本范例

映月传奇沉默神器三职业传奇版本-极寒宝座-

鬼书攻速超变单职业传奇版本-魔灵废墟-雪域

华夏沉默专属单职业传奇版本带假人-奇遇地

明月沉默复古单职业传奇版本带假人系统-蛮

大汉千年暗黑铭文复古沉默三职业传奇服务端

大闹西游剧情复古单职业-真龙秘境-地狱之门

斗破苍穹单职业传奇服务端带假人系统-无双

上古问天无限刀速轻变传奇版本带假人功能-

灌水之王

活跃会员

突出贡献

优秀版主

荣誉管理

论坛元老