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

unitUnitArray;

inte**ce
usesSysUtils;

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

var
Job_AddAbility:arrayofarrayofInteger;//这是动态数组

procedureMain(Npc:TNormNPC;Player:TPlayObject;Args:TArgs);

implementation

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

procedureInitArry;
var
I:Integer;
begin
//定义数组大小
SetLength(Job_AddAbility5);
forI:=0to4do
SetLength(Job_AddAbility[I]3);

//赋值
Job_AddAbility[0]:=[12131415];
Job_AddAbility[1]:=[106104];
Job_AddAbility[2]:=[1012208];
Job_AddAbility[3]:=[10183012];
Job_AddAbility[4]:=[10305020];
end;

procedureFinaArry;
begin
FillChar(Job_AddAbilitySizeOf(Job_AddAbility)#0);
end;

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

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

end.