レゴキチ/里々でのOnTranslateの使い方

OnTranslateの特徴

  • 実はMAKOTOトランスレート処理の後に呼び出される。
    • SHIORI→MAKOTO→SHIORI(OnTranslate)

葉梨をOnTranslateでSAORI呼び出ししていろいろ調節する。

  • 音量とかキー調節とかできます。
    @OnTranslate
    (
    	(
    		if
    		,(is_digit,(葉梨ボリューム))
    		,nop
    		,set
    	)
    	,葉梨ボリューム
    	,10
    )(
    	(
    		if
    		,(is_digit,(葉梨キー))
    		,nop
    		,set
    	)
    	,葉梨キー
    	,0
    )(
    	(
    		if
    		,(変数「葉梨を使用する」の存在)
    		,hanasi
    		,nop
    	)
    	(
    		replace
    		(
    			replace
    			(if,(葉梨ボリューム)==0,@n)(R0)
    			\0
    			(
    				if
    				,(葉梨ボリューム)!=0&&(葉梨ボリューム)!=10
    				,\0@0+[(zen2han,(calc,(葉梨ボリューム)-10))]
    				,\0
    			)
    		)
    		@|
    		(
    			if
    			,(葉梨キー)==0
    			,@|
    			,@|@<[(zen2han,(葉梨キー))]
    		)
    	)
    )

メモ書き

前から里々でさくらのグロンギ語を再現してみたかった。
OnTranslateの意味を知った良い機会なのでメモっとく。
Excite翻訳とかと連動して英語翻訳とかできたらおもしろそう

  • トランスレートのスイッチとか
    *OnKeyPress
    >(R0)が押された 
    *eが押された
    $トランスレートモード【タブ】(if,(変数「トランスレートモード」の存在)==1,(if, (トランスレートモード)==0,1,0),1)
    :トランスレート(if,(トランスレートモード)==0,OFF,ON),
  • 言語のスイッチとか
    *0が押された
    $言語【タブ】0
    :日本語です。
    *1が押された
    $言語【タブ】1
    :猫語です。
    *2が押された
    $言語【タブ】2
    :犬語です。
  • スイッチに応じて指定の言語に変換とか
    *OnTranslate
    $トランスレートモード【タブ】(if,(変数「トランスレートモード」の存在)==1,(トランスレートモード),0)
    $voice【タブ】(R0)
    ((if,(トランスレートモード)==1,call,nop),(iflist,(言語),==0,日本語,==1,猫語,==2,犬語))
    (voice)
  • 言語変換辞書とか
    *日本語
    #呼び出されても何もしない
    *猫語
    $引数区切り追加【タブ】(sprintf,%c,2)
    $voice【タブ】(replace (sprintf,%c,2)(voice) (sprintf,%c,2)。 (sprintf,%c,2)にゃ。)
    *犬語
    $voice【タブ】(replace (sprintf,%c,2)(voice) (sprintf,%c,2)。 (sprintf,%c,2)わん。)
  • 使えそうなものその1
    だ~れ~が~ナイチチかーッ!→が~げ~が~ナイチチがーッ!
    こんにちは、>>1の父です。→ごんぎぎが、>>1ご父げぐ。
    お葉書読むのですよー。→ご葉書読ぐごげぐごー。
    *がぎぐげ語
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)あ(sprintf,%c,2)が)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)い(sprintf,%c,2)ぎ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)う(sprintf,%c,2)ぐ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)え(sprintf,%c,2)げ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)お(sprintf,%c,2)ご)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)か(sprintf,%c,2)が)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)き(sprintf,%c,2)ぎ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)く(sprintf,%c,2)ぐ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)け(sprintf,%c,2)げ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)こ(sprintf,%c,2)ご)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)さ(sprintf,%c,2)が)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)し(sprintf,%c,2)ぎ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)す(sprintf,%c,2)ぐ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)せ(sprintf,%c,2)げ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)そ(sprintf,%c,2)ご)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)た(sprintf,%c,2)が)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)ち(sprintf,%c,2)ぎ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)つ(sprintf,%c,2)ぐ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)て(sprintf,%c,2)げ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)と(sprintf,%c,2)ご)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)な(sprintf,%c,2)が)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)に(sprintf,%c,2)ぎ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)ぬ(sprintf,%c,2)ぐ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)ね(sprintf,%c,2)げ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)の(sprintf,%c,2)ご)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)は(sprintf,%c,2)が)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)ひ(sprintf,%c,2)ぎ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)ふ(sprintf,%c,2)ぐ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)へ(sprintf,%c,2)げ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)ほ(sprintf,%c,2)ご)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)ま(sprintf,%c,2)が)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)み(sprintf,%c,2)ぎ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)む(sprintf,%c,2)ぐ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)め(sprintf,%c,2)げ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)も(sprintf,%c,2)ご)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)や(sprintf,%c,2)が)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)ゆ(sprintf,%c,2)ぐ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)よ(sprintf,%c,2)ご)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)ら(sprintf,%c,2)が)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)り(sprintf,%c,2)ぎ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)る(sprintf,%c,2)ぐ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)れ(sprintf,%c,2)げ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)ろ(sprintf,%c,2)ご)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)わ(sprintf,%c,2)が)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)を(sprintf,%c,2)ご)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)ざ(sprintf,%c,2)が)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)じ(sprintf,%c,2)ぎ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)ず(sprintf,%c,2)ぐ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)ぜ(sprintf,%c,2)げ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)ぞ(sprintf,%c,2)ご)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)だ(sprintf,%c,2)が)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)ぢ(sprintf,%c,2)ぎ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)づ(sprintf,%c,2)ぐ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)で(sprintf,%c,2)げ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)ど(sprintf,%c,2)ご)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)ば(sprintf,%c,2)が)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)び(sprintf,%c,2)ぎ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)ぶ(sprintf,%c,2)ぐ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)べ(sprintf,%c,2)げ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)ぼ(sprintf,%c,2)ご)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)ぱ(sprintf,%c,2)が)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)ぴ(sprintf,%c,2)ぎ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)ぷ(sprintf,%c,2)ぐ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)ぺ(sprintf,%c,2)げ)
    $voice【タブ】(replace(sprintf,%c,2)(voice)(sprintf,%c,2)ぽ(sprintf,%c,2)ご)
    こんなけ長いと結構凍るようなので独自でSAORI用意した方がいいかも。

リロード   新規 編集 凍結 差分 ファイルUp コピー 名前変更   ホーム 一覧 検索 最終更新 バックアップ   ヘルプ
feed rss feed rdf feed rss20 feed lirs emily4 inside marble note
Last-modified: Tue, 01 Jan 2008 19:31:51 JST (3610d)