64gm 发表于 2025-3-6 00:53:35

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

unit UnitArray;

inte**ce
uses SysUtils;

const
JobNames: array 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)); //访问数组数据
end;

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

//赋值
Job_AddAbility := ;
Job_AddAbility := ;
Job_AddAbility := ;
Job_AddAbility := ;
Job_AddAbility := ;
end;

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

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

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

end.

天天宠物 发表于 2025-3-6 01:11:27

谢谢楼主!喜欢这里的东西,方便又好用!

硬汉归来 发表于 2025-3-6 06:21:36

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

深渊图腾 发表于 2025-3-6 19:49:21

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

乱世水浒 发表于 2025-3-6 23:47:08

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

大掌柜无限刀 发表于 2025-3-7 05:24:55

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

古惑仔之汉龙 发表于 2025-3-7 09:33:04

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

独家迷失 发表于 2025-3-7 13:36:47

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

玩命道盾英雄 发表于 2025-3-7 13:52:44

谢谢楼主!喜欢这里的东西,方便又好用!

帝尊大陆 发表于 2025-3-7 15:54:24

这东西我收了!谢谢楼主!
页: [1] 2 3 4
查看完整版本: 77M2引擎的传奇如何使用静态数组和动态数组脚本范例