create rjson.scl

programs/libraries/rjson.scl

@@ -0,0 +1,109 @@
+//raw-json string to text
+if(0,    //if you are using an old version, change it to 1
+rjson(rj)->(
+barname='chyxrjson:rjson'+(rand(0.9)-'.');
+if(bossbar(barname)==false,return(rjson(rj)));
+command=run('bossbar set '+barname+' name '+rj);
+res=bossbar(barname,'name');
+bossbar(barname,'remove');
+if (command:1,res,throw('not valid r-json'))
+);
+
+
+,
+rjson(rj)->(
+r1=item_display_name(['apple',1,encode_nbt({'display'->{'Name'->rj}})]);
+r2=item_display_name(['stone',1,encode_nbt({'display'->{'Name'->rj}})]);
+if(r1==r2,r1,throw('not valid r-json'))
+);
+);
+
+//turns text-like values to a real text
+//will accept a [id, count, nbt] in the future
+__argument_rcv=(_(value)->(
+if(type(value)=='string',pure_text(value),
+type(value)=='text',value,
+type(value)=='entity',value~'display_name',
+type(value)=='list',item_display_name(value),
+throw('not a text-like value'))
+));
+
+//string to text
+pure_text(str)->(
+if(type(str)!='string',throw('not string'));
+rjson(encode_json(str))
+);
+
+//text to raw json string
+text2rjson(text)->(
+if(type(text)!='text',throw('not text'));
+encode_json(text)
+);
+
+//modify a text-like value
+for(['color','font','insertion'],
+call('fset_'+_,text,color,outer(_),outer(__argument_rcv))->(
+text=call(__argument_rcv,text);
+obj=decode_json(encode_json(text));
+obj:_=color;
+rjson(encode_json(obj))
+);
+);
+
+//same format as format()
+fset_click(text,event,outer(__argument_rcv))->(
+if(split('!?&@')~slice(event,0,1)==null,throw('not correct'));
+text=call(__argument_rcv,text);
+obj1=decode_json(encode_json(format(' dummy',event)));
+obj2=decode_json(encode_json(text));
+obj2:'clickEvent'=obj1:'extra':0:'clickEvent';
+rjson(encode_json(obj2))
+);
+
+//format should be a string of biuso=>false or BIUSO=>true
+fset_format(text,format,outer(__argument_rcv))->(
+fmts=['bold','italic','underlined','strikethrough','obfuscated'];
+fmts1=['b','i','u','s','o'];
+fmts2=['B','I','U','S','O'];
+text=call(__argument_rcv,text);
+obj=decode_json(encode_json(text));
+loop(5,(
+if(format~(fmts1:_),obj:(fmts:_)=false);
+if(format~(fmts2:_),obj:(fmts:_)=true)
+));
+rjson(encode_json(obj))
+);
+//join 2 text-like values
+hovertext(base,hover,outer(__argument_rcv))->(
+base=call(__argument_rcv,base);
+hover=call(__argument_rcv,hover);
+obj1=decode_json(encode_json(base));
+obj2=decode_json(encode_json(hover));
+obj1:'hoverEvent'={'action'->'show_text','contents'->obj2};
+rjson(encode_json(obj1))
+);
+
+
+//'with' can be any text-like argument
+translate(key,outer(__argument_rcv),...with)->(
+with=map(with,call(__argument_rcv,_));
+rjson(encode_json({'translate'->key,'with'->with}))
+);
+
+say(player,text)->translate('chat.type.text',player,text);
+bra(text)->translate('chat.square_brackets',text);
+
+
+keybind(key)->(
+rjson(encode_json({'keybind'->key}))
+)
+
+
+//script run import('rjson',...import('rjson'))
+//script run x=''+fset_color('eee','red')+fset_insertion(format('e eee'),'click!');print(hovertext(x,x))
+
+//script run print(translate('death.attack.fireworks.item',p,'who',format('e apple')))
+
+//script run print(fset_font(keybind('key.inventory'),'alt'))
+
+//script run print(fset_format(p,'IBo'))