レゴキチ/里々でスクリプトを本物のプログラムっぽく見せる方法の編集

*見掛け倒し命 [#a84ac696]

実際には大したことはない。

括弧の関係が見やすくなっただけ。

里々の内部関数nop内では改行が無視されることを生かしているが、~
nop内の値は捨てられてしまう為、結果表示やそのための変数の処理が複雑化してしまうのが難点。

**基本形 [#cfe7a3be]
 ＠関数名
 （nop,
 【タブ】（if,条件式
 【タブ】【タブ】,条件式真の時返す値
 【タブ】【タブ】,条件式偽の時返す値
 【タブ】）
 【タブ】（
 【タブ】【タブ】（if,条件式
 【タブ】【タブ】【タブ】,if内で実行されたくない括弧の中身→例「set（spritf,%c,1）変数（spritf,%c,1）1」
 【タブ】【タブ】）
 【タブ】）
 ）（ifで返す値を表示するかしないか）（callの引数つき再帰呼び出し）（変数の削除）
**気をつけること [#caf7139e]
タブの代わりに半角スペースはアウト

ifないのsetは勝手に実行されてしまうので二次引数区切（命名）を使って実行を遅らせる

最後に変数の削除が行なわれるので（変数「」の存在）を条件式に使うのは危険

***if文 [#m1b3973b]
里々では内部の括弧から実行されていくので
 （nop,
	（if,条件式
	 	,（set,変数,0）
	）
 ）
このとき、条件式が偽でもsetが実行されてしまう。

そのため、
 （nop,
	（
		（if,条件式
			,set
			,nop
		）
	,変数,0）
 ）
こうしてsetの実行を遅らせる必要がある。

また、引数区切りを複数使うことで
 （nop,
	（
		（if,条件式
			,set（sprintf,%c,1）変数１（sprintf,%c,1）0
			,set（sprintf,%c,1）変数２（sprintf,%c,1）5
		）
	）
 ）
としてしまうことも出来る。

***for文 [#tc5aaf68]
 ＊
 1+1+1+1は（call,関数１,4）
 
 ＠関数１
 （nop,
	（set,結果,
		（calc,
			（if,（変数「結果」の存在）==1
				,（結果）
				,0
			）+1
		）
	）
 ）（if,（結果）==（Ａ０）,（結果））（（if,（結果）==（Ａ０）,nop,call）,関数１,（Ａ０））（set,結果,）
0+1+1+1+1・・・を繰り返す。

通常とは違うif文と、再帰呼び出しのみのループをどう使いこなすかが鍵となりそう

今思えば（nop）最終行の処理として、（返す値の表示）（ループの為のcall）（変数の初期化）の順番が最適かも。

***サンプル [#g830177e]
「里々でループ処理」で作ったやつの強化改造＆見栄え向上版。

※これは実験的に作ったので上記の構文になっていない。~
条件式に（変数「」の存在）を使ってしまったため、＄_memoryだけが消去できない。

（call,格納関数,前半文字列,変数の初期値,後半文字列,変数の増加量,変数の最大値,区切）
（Ｒ＊）や（FMO*name）などの連番の引数の参照~
＊が最大値に達するか、引数が存在しなくなるまでの引数を区切の簡易配列で返す。

ちなみにsplitの（Ｓ＊）はis_emptyで存在判定できない。

例えば、FMOから起動中のゴースト一覧を得るとき。

＊
 ＄引数区切り追加	（B５）
 ：現在デスクトップ上にいるゴーストは「（call,格納関数,FMO,0,name,1,3,、）」だよ。
 
 ＠格納関数
 （nop,
	（set,_count,
		（
			（if,（変数「_count」の存在）==1
				,calc（Ｂ５）（_count）+（Ａ３）
				,calc（Ｂ５）（Ａ１）+0
			）
		）
	）
	（set,_memory,
		（
			（Ａ０）
			（
				（if,（compare,（Ａ０）,FMO）==1
					,zen2han（Ｂ５）（_count）
					,han2zen（Ｂ５）（_count）
				）
			）
			（Ａ２）
		）
	）
	（set,_result,
		（if,（変数「_result」の存在）==1
			,（_result）
			（if,（変数「_memory」の存在）==1
				,（Ａ５）（_memory）
			）
			,（if,（変数「_memory」の存在）==1
				,（_memory）
			）
		）
	）
 ）（if,（変数「_memory」の存在）==0,（_result）,（if,（_count）>=（Ａ４）,（_result）））（nop,
	（set,_memory
		,（if,（_count）>=（Ａ４）
			,set
			,（if,（変数「_memory」の存在）==0
				,set
				,nop
			）
		）
	）
 ）（（if,（compare,（_memory）,nop）==1,call,nop）（Ｂ５）格納関数（Ｂ５）（Ａ０）（Ｂ５）（Ａ１）（Ｂ５）（Ａ２）（Ｂ５）（Ａ３）（Ｂ５）（Ａ４）（Ｂ５）（Ａ５））（（_memory）,_count,）（（_memory）,_result,）
 
 ＃これでも一行として認識される、即ち「格納関数」の単語数は１つとなる。 
 ＃引数区切にバイト値5を使っているのは趣味です（ぇ
 
 ＠Ｂ５
 (sprintf,%c,5)

この時下のように喋る。
 現在デスクトップ上にいるゴーストは「ポスト、さくら、ふたば、エミリィ」だよ。

他にも
 ＊installedghostname
 ＄引数区切り追加	（Ｂ５）
 ＄インストールされているゴーストの数	（call,格納関数,R,0,,1,99,〓）
 
 ＠Ｂ５
 （sprintf,%c,5）

とかでも使える。
このときは（Ｒ９９）又は引数がなくなるまでまで読み込んで
 ＄インストールされているゴーストの数＝さくら〓ふたば〓（略）〓エミリ
みたいになる　　　　　ハズ。

タイムスタンプを変更しない