サンプル n.s[ script[ listcreate[cv,[]], repeat[100,listadd[cv,0,16777215]], listcreate[cl,[16777215,0,16711680,65280,255,16776960,16711935]], varcreate[c,1], varcreate[i,0], varcreate[mx,0], varcreate[my,0], repeat[1000000,#script[ image[erase], var+[c,*[0.25,-[key[s],key[w]]]], if[<[var[c],1],varset[c,7],script[]], if[>[var[c],7],varset[c,1],script[]], varset[mx,round[/[-[mouse[x],-90],20]]], varset[my,round[/[-[90,mouse[y]],20]]], if[ and[ and[<[-1,var[mx]],<[var[mx],10]], and[<[-1,var[my]],<[var[my],10]] ], if[mouse[click],listset[cv,+[1,+[*[var[my],10],var[mx]]],list[cl,var[c]]],script[]], script[] ], varset[i,1], repeat[100,script[ image[ box, +[-90,*[mod[-[var[i],1],10],20]], -[90,*[/[-[-[var[i],1],mod[-[var[i],1],10]],10],20]], 0,10,10,list[cv,var[i]] ], var+[i,1] ]], image[box,150,0,0,40,160,8421504], varset[i,1], repeat[7,script[ image[box,150,+[60,*[-[var[i],1],-20]],0,10,10,list[cl,var[i]]], var+[i,1] ]], image[box,150,+[60,*[-[var[c],1],-20]],0,18,18,16777215], image[text,120,-100,2,join[COLOR:,round[var[c]]]], image[xyline,-100,-100,100,-100,0], image[xyline,-100,100,100,100,0], image[xyline,-100,-100,-100,100,0], image[xyline,100,-100,100,100,0] ]] ] ] コピー・実行用(シリアライズ形式) コピー機能で書き出される、改行を「改」に置き換えた一行形式です。 n.s[改 script[改 listcreate[cv,[]],改 repeat[100,listadd[cv,0,16777215]],改 listcreate[cl,[16777215,0,16711680,65280,255,16776960,16711935]],改 varcreate[c,1],改 varcreate[i,0],改 varcreate[mx,0],改 varcreate[my,0],改 repeat[1000000,#script[改 image[erase],改 var+[c,*[0.25,-[key[s],key[w]]]],改 if[<[var[c],1],varset[c,7],script[]],改 if[>[var[c],7],varset[c,1],script[]],改 varset[mx,round[/[-[mouse[x],-90],20]]],改 varset[my,round[/[-[90,mouse[y]],20]]],改 if[改 and[改 and[<[-1,var[mx]],<[var[mx],10]],改 and[<[-1,var[my]],<[var[my],10]]改 ],改 if[mouse[click],listset[cv,+[1,+[*[var[my],10],var[mx]]],list[cl,var[c]]],script[]],改 script[]改 ],改 varset[i,1],改 repeat[100,script[改 image[改 box,改 +[-90,*[mod[-[var[i],1],10],20]],改 -[90,*[/[-[-[var[i],1],mod[-[var[i],1],10]],10],20]],改 0,10,10,list[cv,var[i]]改 ],改 var+[i,1]改 ]],改 image[box,150,0,0,40,160,8421504],改 varset[i,1],改 repeat[7,script[改 image[box,150,+[60,*[-[var[i],1],-20]],0,10,10,list[cl,var[i]]],改 var+[i,1]改 ]],改 image[box,150,+[60,*[-[var[c],1],-20]],0,18,18,16777215],改 image[text,120,-100,2,join[COLOR:,round[var[c]]]],改 image[xyline,-100,-100,100,-100,0],改 image[xyline,-100,100,100,100,0],改 image[xyline,-100,-100,-100,100,0],改 image[xyline,100,-100,100,100,0]改 ]]改 ]改]