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

一休论坛

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

[其他引擎] 77M2引擎如何使用JSON命令 91M2引擎JSON脚本范例

[复制链接]
  • TA的每日心情
    慵懒
    2018-8-5 17:14
  • 签到天数: 49 天

    [LV.5]常住居民I

    发表于 2019-5-12 11:16:22 | 显示全部楼层 |阅读模式
    网络广告风险自担 网络广告风险自担 网络广告风险自担
    网络广告风险自担
    77M2引擎如何使用JSON命令 91M2引擎JSON脚本范例


    如何使用JSON

    unit Q54;

    interface
      uses Classes, SysUtils, JSON; //必须引用JSON单元

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

    implementation

    {
      TJSONValue
        TJSONObject:json对象
        TJSONNumber:数值
        TJSONTrue
        TJSONFalse
        TJSONArray:数组
    }

    procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
    const
      json_obj = '{"name":"77m2","version":"2014.6.8","code":100,"date":"2014-06-08","names":["白野猪","黑野猪"],"objs":[{"name":"白野猪","hp":2000},{"name":"黑野猪","hp":500}]}';      
    var
      V: TJSONValue;
      O: TJSONObject;
      A: TJSONArray;
      I: Integer;
    begin
      //从json字符串中解析json对象
      V := ParseJSONValue(json_obj);
      if V <> nil then
      begin
        try
          if V is TJSONObject then
          begin
            O := V as TJSONObject;
            Npc.MessageBox(Player, O.Values['name'].Value);  //读取name的值

            A := O.Values['objs'] as TJSONArray;
          end;
        finally
          V.Free;
        end;
      end;   

      //直接创建JSON对象,然后写入值
      O := TJSONObject.Create;
      try
        O.AddPair('name', '77m2');  //加入字符串节点
        O.AddPair('IsShared', True); //true  
        O.AddPair('Deleted', False); //false
        O.AddPair('Int', 100); //整型
        O.AddPair('Float', 1.25); //浮点

        A := TJSONArray.Create;  //创建一个数组对象
        A.Add('XXX');
        A.Add('AAA');
        O.AddPair('Array', A); //将数组加到json对象中,加入之后json对象会负责释放这个数组对象,所以不能手工释放被加入到其他json对象的json对象
        Npc.MessageBox(Player, O.ToString);
      finally
        O.Free; //释放json对象O,同时O会负责其内的全部json对象,比如前面加入的数组A
      end;
    end;

    end.


    注意:JSON对象将会作为自定义消息传输的格式



    上一篇:77M2引擎的传奇SF如何监控攻击模式的更改脚本说明
    下一篇:GeeM2引擎检测当前通过宝石升级装备的名字的方法讲解
    回复

    举报

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

    本版积分规则

    一休论坛在线客服
    收 起 客 服

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

    GMT+8, 2019-5-23 18:50 , Processed in 0.452401 second(s), 86 queries , Gzip On.

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

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

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