设为首页收藏本站★元宝充值★★购买会员★★传奇QQ群★

一休论坛

网络广告风险自担
 找回密码
 立即注册
查看: 35|回复: 0

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

[复制链接]
  • TA的每日心情
    慵懒
    2015-7-29 13:47
  • 签到天数: 2 天

    [LV.1]初来乍到

    发表于 2019-6-4 08:58:31 | 显示全部楼层 |阅读模式
    网络广告风险自担
    网络广告风险自担
    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.



    上一篇:铁血M2引擎传奇SF版本特色功能脚本和NPC对话框调用图片功能
    下一篇:77M2引擎传奇版本库如何增加或减少角色经验值脚本命令
    回复

    举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    网络广告风险自担
    一休论坛在线客服
    收 起 客 服

    小黑屋|传奇一条龙|GM基地|GM版本库|一休论坛

    GMT+8, 2019-6-25 09:44 , Processed in 0.483601 second(s), 91 queries , Gzip On.

    传奇一条龙 GM基地 版本库 传奇论坛 传奇漏洞论坛 传奇服务端下载 传奇版本

    一休论坛资料来自网络仅供学习交流之用,用于商业后果自负

    快速回复 返回顶部 返回列表