当前位置: > 好私服> 正文
如何使用JSON命令 91M2引擎JSO传奇私服 传奇私服N脚本范例
发布时间:2020-5-19 23:19:10 来源:http://www.hu87.com 作者:
如何使用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:冒险王无敌幸运版 热血传奇客户端官方下载 梦幻超级变态版逍遥装备怎么做 03年的变态传奇 u盘提示错误65535 刚开合击传奇
上一篇: 传奇私传奇sf客户端服服务端中全民…
下一篇: 1 76天下毁灭发布网踢英雄下线和调…
猜你喜欢
[08-10]
·冷月冰雪:法师职业最忌惮的技能[10-08]
·嘟嘟传奇玩家们9pk互相攀比又何必呢[10-08]
·关于我本沉默传奇里当无英雄传奇sf初打祖玛的事情[10-08]
·1.76一个人玩嘟嘟传奇也很自在[10-08]
·看完你就明白沙巴克怎中变传奇私发布网服么打[10-08]
·抠门的孩子玩我本沉默极品传奇私服传奇技巧[10-08]
·简述传奇里治愈术的用大唐传奇私服法及技巧[10-08]
·我本沉默传奇沙传奇国际版官网巴克瑰宝阁详解[10-08]
·挂机是1.内功传奇76复古传奇前期升级的好途径[10-08]
·我本七彩龙魂沉默传奇道士玩法全面解析