当前位置: > 游戏地图> 正文
如何使用JSON命令 91M2引擎JSO传奇私服 传奇私服N脚本范例
发布时间:2020-5-20 1:05:18 来源:http://www.y46.net 作者:
如何使用JSONunit 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.A1 95连击ddPair(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); finall传奇私发网y O.Free; //释放json对象O,同时O会负责其内的全部json对象,比如前面加入的数组A end;end;end.注意:JSON英雄合击传奇私服对象将会作为自定义消息传输的格式
Tags:连杀符传奇找服网站 传奇霸业山海辅助安卓 变态传奇jmgstudio 楚汉传奇哪一集刘邦回乡找纪信 新开变态传奇sf 3000ok网站
上一篇: 传奇游戏内卡解决方法之资源优化攻…
下一篇: 进入游戏提飞飞世界私服示登录器密…
猜你喜欢
[04-06]
·在小峰玩传奇的时候因为长期痴迷游戏导致成绩下滑请家长之后又迅速变成三号学生[03-21]
·真正的传奇玩家都知道屠龙宝刀一直是内心中无法得到的伤心欲绝[03-19]
·一山容不下二虎狼族和亮剑家族之间的镇锋对决可谓在当年是神奇风云[03-17]
·道士玩家的旷世神兵逍遥扇可谓是正式让道士职业瞬间爆发的攻击神装[03-12]
·曾经价值三十五万的天龙圣衣被爆再次购买回来是什么心态[03-11]
·在传奇游戏里面的幸运值都有哪些攻击上线的几率幸运值如何喝才能成功[03-09]
·还记得在珐玛大陆之下的地图有些神秘地图比如牛魔洞的那扇门[03-05]
·战士的三大神器裁决之杖怒斩屠龙宝刀在大家心中哪个更有深意[02-27]
·在传奇游戏里面有些基础装备极品起来也可以和高级装备抗衡[02-25]
·法师职业佩戴噬魂法杖据说可以召唤比自己厉害的五倍怪物