開発
若干里々は関係ないのが混じっている。

トーク数を調べる

里々だと以下のもので調べることができます。
おそらく「(countNoNameTalk?)」の事を指しているのではないかと。
また、人によってはランダムトーク辞書内に、個数ごとにメモをされている方もいるようです。


*dが押された
:全トーク数(countTalk)
ランダムトーク数(countNoNameTalk?
イベントトーク数(countEventTalk?
その他のトーク数(countOtherTalk?
単語群数(@の数)(countWords)
単語数(countWord)
変数の数(countVariable)
アンカー数(countAnchor)
時書中の改行の数(countLine)

選択肢と追加情報

(里々関係なし)

聞いてみました。
選択肢に情報を載せる方法について。

|
\q[文字列,OnではじまらないID]
→R0にIDがはいる

\q[選択肢テキスト,OnEventExec?,R0,R1,R2....]
→OnではじまるIDをつければ<span style="color:#0000FF;">追加情報をつけられる</span>

\q[選択肢テキスト,OnEventExec?]
→イベントがRefなしで発生
|<

\i[アニメのID]とトランスレート覚書

○\i[アニメのID]覚書
「dry apple」さまの記事を読んで、
\i[アニメのID]タグをもう一度確かめてみた。

http://disc2.s56.xrea.com/manual/list_sakura_script.htm>
M,S,C
\i[ID番号]
現スコープ側にID番号のサーフィスアニメーションを表示する。

\i[アニメのID]は、ようするにゴースト側からアニメを呼び出すタグ。
そのサーフェスについているアニメを、任意のタイミングで発動させる。
なので、intervalをneverに設定したアニメを、台詞に同期して動かすことができる。

最初、特別なアニメ(魔方陣呼び出したりとか)のために、
サーフェスを用意してrunonceでアニメを作っていたのは今となっては懐かしい思い出。


ベースサーフェス+アニメ設定差分⇒差分のアニメは無視

ただし、差分自体にアニメをつけておいて、それを重ねると言うのはできない。
なので、もともと表情変化よりも、一時的なアニメ向きのタグなのかも。

「dry apple」さま
http://dryapple.blog.shinobi.jp/Entry/18/

○台詞の頭にだけ何かをつけるトランスレート
「s-mode」の無線用のトランスレート。

replace_firstを使い、全文と全文を一致させて頭にいろいろ付加する。
▽は引数区切りとして最初に追加して使っている。

|
OnTranslate?
$生トーク (R0)
$生トーク (replace_first▽(R0)▽(R0)▽\0\s[0]Un Known<<(R0))
(生トーク)
|<

里々の場合、自動サーフェス戻しがあるので、
「全てに何かを付加する」というのは大変やりづらい。

正規表現を使って、数字とアルファベットしかない場合には、
無効化するのが一番だけれど、SAORIが必要になるという。

「Un Known」の場合には、自動サーフェス戻しを無効化*1していますが、
ごーすとじてんとかからイベントを送られると、へんな吹き出しが出るかも。
これらについては、senderや、自動発行タグを見て最初に分岐作るのが一番いい対処だろうか。

入れ子その2

((かゆ))

@かゆ
うま

@うま
ぞーんびー!

出力結果は「ぞーんびー!」

1,((かゆ))の内側の括弧が最初に展開され「(かゆ)=うま」になる
2,(うま)が呼び出される
3,ぞーんびー!

callを使うときに重宝する。
((A0))((S1))などで何でも呼び出すことが出来るため。

トークのウェイトを調節する

里々専用のウェイト変更スクリプト。
里々は、自動的にウェイトを挿入しますが、
どの程度挿入するかを決めている変数が【$自動挿入ウェイトの倍率】です。

なので、そこをいじれば簡単にできるという。

*config
:---- トークの速さ【(iflist,(自動挿入ウェイトの倍率),==300,ゆっくり,==100,普通,==50,速い,==0,ノーウェイト)】 ----
_ゆっくり	ウェイト300
_普通 φ=default	ウェイト100
_速い	ウェイト50
_ノーウェイト	ウェイト0

_閉じる

*ウェイト300
$自動挿入ウェイトの倍率	300
>config

*ウェイト100
$自動挿入ウェイトの倍率	100
>config

*ウェイト50
$自動挿入ウェイトの倍率	50
>config

*ウェイト0
$自動挿入ウェイトの倍率	0
>config

*閉じる
\e

サーフェスで分岐

>平常時【タブ】(サーフェス0)==7
>怒ってる【タブ】(サーフェス1)==17

トーク中で使うと判定が間に合わないことがある。

なので、本来はOntalkに持ってきてサーフェス戻しトークなどで使うためのもののようだ。

台詞で分岐

*
:今日のおやつは(お菓子)だよ!
>和菓子【タブ】(H1)==ようかん
:洋菓子!

@お菓子
ようかん
ケーキ
チョコレート
クッキー

かっこの中身を捕らえて分岐させる。
いくつもの台詞に対応させたい場合は、

>和菓子【タブ】(compare,(H1),(和菓子グループ))

@和菓子グループ
ようかん★せんべい★こんぺいとう★酒饅頭

>和菓子【タブ】(H1)==ようかん||(H1)==おせんべ

のように書くことになる。

(H1)が変動するような場合、使用は細心の注意が必要。

つつき反応をもっと自然にする

つつき反応を二段階にわけ、かつ、

しばらく放っておかないと反応が一段階目には戻らせない。

*0つつかれ
:つっつかれてるね。
>連続つつかれ0【タブ】(連続つつかれカウント0)==3
$連続つつかれカウント0=(連続つつかれカウント0)+1
$連続つつかれカウント0初期化タイマ【タブ】30
*連続つつかれ0
:三回以上つつかれてます。
$連続つつかれカウント0初期化タイマ=(連続つつかれカウント0初期化タイマ)+5
*連続つつかれカウント0初期化
$連続つつかれカウント0【タブ】0

ようするに、つつかれた回数を保存、一定以上になると分岐。

連続でつつかれるたびに分岐先でタイマの秒数を付け足しているだけ。

シェルチェンジ時に台詞をつける

「特定シェルから特定シェル」への変更で台詞を変化させられます。

また、「特定シェル」への変更もまとめて記述が可能です。

辞書にはこれを追加しておくこと。


OnNotifySelfInfo?

$現在のシェル【タブ】(R3)

satori_conf.txtに変数として、
$現在のシェル【タブ】master


OnShellChanging?
$一つ前のシェル【タブ】(現在のシェル)
$現在のシェル【タブ】(R0)
>(一つ前のシェル)から(現在のシェル)へ変更
>(一つ前のシェル)から変更
>通常のシェルチェンジ開始


OnShellChanged?
>(現在のシェル)へ(一つ前のシェル)から変更
>(現在のシェル)に変更
>通常のシェルチェンジ完了


>(一つ前のシェル)から(現在のシェル)へ変更【タブ】(compare,(一つ前のシェル),(現在のシェル))

を使えば、同じシェルに変更も判定できそうだ。

OnTranslate?でのトランスレート

コピペして貼ればすぐに動くはず。
猫語モードの実例はゴースト「カレカノ」に突っ込んであります。*2


【トランスレート基本形】

*eが押された
$トランスレートモード【タブ】(if,(compare,(トランスレートモード),ON)==1,OFF,ON)
:トランスレート(トランスレートモード).
*OnTranslate
>トランスレート【タブ】(compare,(トランスレートモード),ON)
*トランスレート
$voice【タブ】(R0)
$voice【タブ】(replace(byte3)(voice)(byte3)。(byte3)にゃ。))
(voice)

因数区切りとして、他に使っていないもの、誤爆しないものを使う。

それにはバイト値1とかを使うが、1だと誤爆するのでここでは3にした。

実際には、★や◆などの記号で区切ることも可能なので、自分の好みで使うとよい。

引数の追加は以下のような形で行う。(by里々Wiki

*OnSatoriLoad
$引数区切り追加	(sprintf,%c,3)
$byte3	(sprintf,%c,3)

しかし、特定の場合には変換を回避しないと、不自然になるなあ。

あるいは、さらに下に特定変換用のを追加するとか。

【参考文献】
http://emily.nanika.jp/specwiki/?%A5%EC%A5%B4%A5%AD%A5%C1%2F%CE%A4%A1%B9%A4%C7%A4%CEOnTranslate%A4%CE%BB%C8%A4%A4%CA%FD

レゴキチさんの「里々でのOnTranslate?の使い方」

『里々Wiki』

http://www.mac.gn.to/satori/index.php?%5B%5Bssu%5D%5D#content_1_4

【猫語変換サンプル】

$voice【タブ】(R0)
$voice【タブ】(replace(byte3)(voice)(byte3)よー。(byte3)にゃー。)
$voice【タブ】(replace(byte3)(voice)(byte3)てー。(byte3)てだにゃー。)
$voice【タブ】(replace(byte3)(voice)(byte3)るー。(byte3)るにゃー。)
$voice【タブ】(replace(byte3)(voice)(byte3)くー。(byte3)くにゃー。)
$voice【タブ】(replace(byte3)(voice)(byte3)たー。(byte3)たにゃー。)
$voice【タブ】(replace(byte3)(voice)(byte3)よね。(byte3)よにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)いる。(byte3)いるにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)なよ。(byte3)にゃよ。)
$voice【タブ】(replace(byte3)(voice)(byte3)ても。(byte3)てもにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)い。(byte3)いにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)だ。(byte3)にゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)よ。(byte3)にゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)が。(byte3)がにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)う。(byte3)うにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)た。(byte3)たにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)ね。(byte3)にゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)に。(byte3)ににゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)す。(byte3)すにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)る。(byte3)るにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)か。(byte3)かにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)つ。(byte3)つにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)です。(byte3)だにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)ます。(byte3)ますにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)ような。(byte3)ようにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)くらい。(byte3)くらいにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)だけど。(byte3)だけどにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)ところ。(byte3)ところだにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)ない。(byte3)ないにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)なん。(byte3)にゃん。)
$voice【タブ】(replace(byte3)(voice)(byte3)すか。(byte3)すかにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)とけ。(byte3)とけにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)には。(byte3)にはにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)しく。(byte3)しくにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)かも。(byte3)かもにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)あり。(byte3)ありにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)みる。(byte3)みるにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)だな。(byte3)だにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)ながら。(byte3)にゃがら。)
$voice【タブ】(replace(byte3)(voice)(byte3)ないか。(byte3)にゃいか。)
$voice【タブ】(replace(byte3)(voice)(byte3)なんだって。(byte3)にゃんだって。)
$voice【タブ】(replace(byte3)(voice)(byte3)なんだってー。(byte3)にゃんだってー。)
$voice【タブ】(replace(byte3)(voice)(byte3)なんと。(byte3)にゃんと。)
$voice【タブ】(replace(byte3)(voice)(byte3)なあ。(byte3)にゃあ。)
$voice【タブ】(replace(byte3)(voice)(byte3)っけ。(byte3)っけにゃ。)
$voice【タブ】(replace(byte3)(voice)(byte3)つっ。(byte3)つにゃっ。)
$voice【タブ】(replace(byte3)(voice)(byte3)るっ。(byte3)るにゃっ。)
$voice【タブ】(replace(byte3)(voice)(byte3)ないかにゃ。(byte3)にゃいか。)
(voice)

入れ子

*
((AB)の話題)

@AB
A
B
*Aの話題
:A!A!A!

*Bの話題
:B!B!B!

パターンは全部で(Aの話題)か(Bの話題)の二種となる。

((アルファベット)−(数字))

@アルファベット
A
B

@数字
1
2

四パターンに分岐する。ちょっと配列っぽいね。

((A)−(1)) ((A)−(2)) ((B)−(1)) ((B)−(2))

【実際の例】

*
:今日、(本日の話題)は((本日の話題)の感想)

@本日の話題
学食
天気

@学食の感想
混んでたね。
いいにおいがしてたね。
思わぬヒットメニューがあったね。

@天気の感想
悪かったね。
いい割には寒かったね。
なんか変だったね。

無視、コミュでトークを中断させない

$今回は喋らない=有効

を使うことで強制的に402にすることができる。

無視するだけで実際には受けているので、格納は可能らしい。

何もしない・何も表示させない

(nop,☆)が重宝する。
「何もしない・何も表示しない」という働きをする。

たとえば、ifを使って、台詞を言わせたいときなどに便利。

単語群をグループわけ扱いにして、グループで検索にひっかける

見通しがよければメンテナンスしやすい。
かざまさまのところの記事を参考にして、単語群をグループ扱いしてみた。


*【タブ】(count,(シェルリスト),(現在のシェル))!=1
:ごーすとじてんでの模擬戦が不可能。

*【タブ】(count,(シェルリスト),(現在のシェル))==1
:ごーすとじてんでの模擬戦が可能。

@実体のあるっぽいシェルグループ
月はピアノに誘われて☆k-mode☆sss-mode☆m-mode☆くろゆり


(実体のあるっぽいシェルグループ)を定義しておくことで、
グループ内・外をすっきり判別できる。

これでヒットできるのは、グループとして定義した文字列「月はピアノに誘われて☆k-mode☆sss-mode☆m-mode☆くろゆり」の中に、それぞれのシェル名が含まれているかどうかを検索するものだから。

シェルによってアイコンを変更

「(hogehoge)」と「@」を使って、
「>」の使用を減らせば、辞書の見通しがよくなる。

以下は自分用の覚書。
「月はピアノに誘われて」用アイコンのために加えた操作のメモ。
OnShellChanged?と*OnBoot?、下準備としては*Onshellchangingに細工をする。


【*OnBoot?周辺の細工】

OnBoot?
(アイコン変更)
:ようこそ。
$喋り間隔 180秒
$現在のシェル (R0)
$手動セーブ 実行

@アイコン変更 (現在のシェル)==月はピアノに誘われて
\![set,trayicon,kotyou.ico]

@アイコン変更 (現在のシェル)!=月はピアノに誘われて
(nop,☆)


(nop,☆)が重宝する。
「何もしない・何も表示しない」という働きをする。


OnShellChanging?
$現在のシェル【タブ】(R0)
$手動セーブ【タブ】実行
:…服などどうでもいいのだけど。

OnShellChanged?【タブ】(現在のシェル)!=月はピアノに誘われて
$現在のシェル【タブ】(R0)
\![set,trayicon,デフォルト.ico]
$手動セーブ【タブ】実行
:どれでも同じだわ。

OnShellChanged? (現在のシェル)==月はピアノに誘われて
$現在のシェル (R0)
\![set,trayicon,A.ico]
$手動セーブ 実行
:どれでも同じだわ。


結局、シェルによって変わるというなら、変えるタイミングは二つ。

1.該当シェルを切り替えたとき:*OnShellChanged?
2.起動したときに該当シェルだったとき:*OnBoot?

いくつもの条件をいっぺんに判定させたいときには、
「>」を使うのではなく「@」を使わないと辞書が長くなる。



:ようこそ。
>アイコン変更【タブ】(現在のシェル)==月はピアノに誘われて


と同じ役割を、



:ようこそ。
(アイコン変更)


@アイコン変更【タブ】(現在のシェル)==月はピアノに誘われて
\![set,trayicon,A.ico]

@アイコン変更【タブ】(現在のシェル)!=月はピアノに誘われて
(nop,☆)


「()」は、別のラベルに飛ばさずに複数の条件の適用が可能である。
また、結果が同じなら一つの「()」に対する「@」を複数使い、
単語群に条件をつけると、ひとつの「()」で代替可能である。


【別のラベルに飛ばさず複数の条件を適用】


:ようこそ。
(アイコン変更)(デフォルトシェル変更)

@アイコン変更【タブ】(現在のシェル)==月はピアノに誘われて
\![set,trayicon,A.ico]

@アイコン変更【タブ】(現在のシェル)!=月はピアノに誘われて
(nop,☆)

@(デフォルトシェル変更)【タブ】(現在のシェル)==k-mode
$デフォルトサーフェス0 5

@(デフォルトシェル変更)【タブ】(現在のシェル)!=k-mode
(nop,☆)


ひとつの()で>を代替するパターン。


【ひとつの()で>を代替】


:ようこそ。
(アイコン変更)

@アイコン変更【タブ】(現在のシェル)==月はピアノに誘われて
\![set,trayicon,A.ico]

@アイコン変更【タブ】(現在のシェル)==k-mode
\![set,trayicon,B.ico]

@アイコン変更【タブ】(現在のシェル)!=月はピアノに誘われて||(現在のシェル)!=k-mode
(nop,☆)


オーナードローメニューやその項目名を特定条件で変更

時間とシェルによるオーナードロー切り替えの一例。
ここではもう一セット画像を用意した場合を考えた。
モードやフェイズをつんでいる場合、それに合わせて変えるのもまた楽しい。

ちなみに、そうしたものとは関係なく、
単に表示されるオーナードローを二種、三種と増やしたい場合、
menu_foreground.png2、menu_background.png2、menu_sidebar.png2と、
単純に番号を増やしたセットをもう一組み入れておけばランダムで表示されるようになる。
さらにちなむとサイドバーだけが足りなかったりすると足りない部分だけ別の組から表示される。

以下の例では特定のシェル、

18時から6時までの二種の条件がそろうと切り替わる。

実際に見てみたいという方は、ゴースト「Un Known」を、
追加シェル「flip-flop」を導入して立たせてみてください。

@menu.foreground.bitmap.filename【タブ】(現在のシェル)==flip-flop&& 17<(現在時)||(現在のシェル)==flip-flop&& 6>(現在時)
menu_foreground.png2

@menu.background.bitmap.filename【タブ】(現在のシェル)==flip-flop&& 17<(現在時)||(現在のシェル)==flip-flop&& 6>(現在時)
menu_background.png2

@menu.sidebar.bitmap.filename【タブ】(現在のシェル)==flip-flop&& 17<(現在時)||(現在のシェル)==flip-flop&& 6>(現在時)
menu_sidebar.png2


※以下はセパレーターやフォントの色指定


@menu.background.font.color.r【タブ】(現在のシェル)==flip-flop&& 17<(現在時)||(現在のシェル)==flip-flop&& 6>(現在時)
255

@menu.background.font.color.g【タブ】(現在のシェル)==flip-flop&& 17<(現在時)||(現在のシェル)==flip-flop&& 6>(現在時)
255

@menu.background.font.color.b【タブ】(現在のシェル)==flip-flop&& 17<(現在時)||(現在のシェル)==flip-flop&& 6>(現在時)
255

@menu.foreground.font.color.r【タブ】(現在のシェル)==flip-flop&& 17<(現在時)||(現在のシェル)==flip-flop&& 6>(現在時)
0

@menu.foreground.font.color.g【タブ】(現在のシェル)==flip-flop&& 17<(現在時)||(現在のシェル)==flip-flop&& 6>(現在時)
0

@menu.foreground.font.color.b【タブ】(現在のシェル)==flip-flop&& 17<(現在時)||(現在のシェル)==flip-flop&& 6>(現在時)
0

@menu.separator.color.r【タブ】(現在のシェル)==flip-flop&& 17<(現在時)||(現在のシェル)==flip-flop&& 6>(現在時)
255

@menu.separator.color.g【タブ】(現在のシェル)==flip-flop&& 17<(現在時)||(現在のシェル)==flip-flop&& 6>(現在時)
255

@menu.separator.color.b【タブ】(現在のシェル)==flip-flop&& 17<(現在時)||(現在のシェル)==flip-flop&& 6>(現在時)
255

(現在のシェル)はシェルチェンジ時に(R0)で帰ってくるものを保存する。

また、起動時に、*OnNotifySelfInfo?でシェル名を保存して、判定する必要がある。

*OnShellChanging
$現在のシェル【タブ】(R0)
$手動セーブ【タブ】実行
:…服などどうでもいいのだけど。

*OnNotifySelfInfo
$現在のシェル【タブ】(R3)

また、SHIORI Resourceは単語群として設定されたものから読み出しているものなので、
括弧を入れ子にして間に処理をかませたり、直接に条件式をつけたりすることができる。

@sakura.portalbuttoncaption【タブ】17<(現在時)||6>(現在時)
夜の森

@sakura.portalbuttoncaption【タブ】17>(現在時)||6<(現在時)
昼の森

モードによってオーナードローのメニュー名を変えたい場合などに使う。
単純に単語を複数用意してランダムにしたい場合には、
単語群の扱いなので下に書き加えればよい。

@sakura.portalbuttoncaption
遊び先(&P)
知ってるところ(&P)

割とよく知られていることのようだけれど、
まとまってのっている場所を見かけなかったのでまとめてみた。

FizzBuzz?問題私的回答

ループの練習として解いてみた。
iはループを数えるための変数。

*ループ準備
$i	0
$FizzBuzz数	0
>ループ処理
 
*ループ処理
$FizzBuzz数	(calc,(FizzBuzz数)+1)
>FizzBuzz終了	(i)>29
:(if,(Fizz)==0,Fizz)(if,(Buzz)==0,Buzz)(FizzBuzz該当外調査)
$i	(calc,(i)+1)
>ループ処理

*FizzBuzz終了
:\C終了!

@FizzBuzz該当外調査	(Fizz)!=0&&(Buzz)!=0
(FizzBuzz数)

@FizzBuzz該当外調査	(Fizz)==0||(Buzz)==0
(nop,☆)

@Fizz
(calc,(FizzBuzz数)%3)

@Buzz
(calc,(FizzBuzz数)%5)

ファイルの種別判別

*OnFileDrop2
$ドロップ数【タブ】(split,(R0),(sprintf,%c,1))
$ループカウンタ【タブ】0
:\_q(ドロップ数)個のアイテムがドロップされました。
(ループ)

*ループ
$値保存(ループカウンタ)【タブ】(replace,(S(ループカウンタ)),\,/)
:ループ【(ループカウンタ)】回目
ファイルパス取得【(値保存(ループカウンタ))】

$ドロップ数【タブ】(han2zen,(split,(値保存(ループカウンタ)),/))
(ドロップ数)に切り分けると
$ファイル名保存(ループカウンタ)【タブ】(replace,(S(ドロップ数)),\,/)
ファイル名取得【(ファイル名保存(ループカウンタ))】
$ループカウンタ=(ループカウンタ)+1

ループ【(ループカウンタ)】回目に入ります。
>ループ	(変数「S(ループカウンタ)」の存在)==1
ループ【(ループカウンタ)】回目で終了しました。
$ループカウンタ=(ループカウンタ)−1

(loop,ファイル識別,0,(ループカウンタ))

*ファイル識別
:【(ファイル識別カウンタ)】つ目のファイル【(値保存(han2zen,(ファイル識別 カウンタ)))】は(if,( 
compare_tail,(値保存(han2zen、(ファイル識別カウンタ))),mp3)==1,音楽ファイルです。,音楽ファイルではありません。)

リファレンス個数を確かめる

ループの使い方の練習。


*kが押された
\![open,inputbox,Onループ開始,0,リファレンス個数を確かめる]

*Onループ開始
$カウントアップ【タブ】0
$値保存(カウントアップ)【タブ】(R(カウントアップ))
>判定ループ【タブ】(変数「値保存(カウントアップ)」の存在)==1

*判定ループ
$カウントアップ=(カウントアップ)+1
$値保存(カウントアップ)【タブ】(R(カウントアップ))
>判定ループ【タブ】(変数「値保存(カウントアップ)」の存在)==1
>個数発表

*個数発表
:(カウントアップ)個のリファレンスが帰ってきました。

(R0)が存在するか、とやったら、
(R0)が代入されてヒットしなくなるため、一度「$値保存*」に保存した。

リファレンスとして戻ってきている数が足りなくなれば、
そこで「$値保存*」がクリアされるため、ヒットしなくなってループから抜ける。

以下れしばのログ。

--- Request ---
GET SHIORI/3.0
ID: Onループ開始
Reference0: じゃん
--- Operation ---
*Onループ開始
 $カウントアップ=0/overwritten.
 (カウントアップ)→0
 (R0)→じゃん
 (カウントアップ)→0
  $値保存0=じゃん/overwritten.
 (カウントアップ)→0
 (変数「値保存0」の存在)→1
 >判定ループ
 *判定ループ
   (カウントアップ)→0
   $カウントアップ=1/overwritten.
   (カウントアップ)→1
   (R1)→
   (カウントアップ)→1
   $値保存1/cleared.
   (カウントアップ)→1
   (変数「値保存1」の存在)→0
   *計算結果が0だったため、続行します。
   >個数発表
   *個数発表
     (カウントアップ)→1
     return: \1\01個のリファレンスが帰ってきました。\_w[102]\n
   return: \1\1\01個のリファレンスが帰ってきました。\_w[102]\n
 return: \1\1\1\01個のリファレンスが帰ってきました。\_w[102]\n
status code : 200
--- Response ---
Value=\0\s[0]\1\s[10]\01個のリファレンスが帰ってきました。\_w[102]\e

ネットワーク更新先をフラグで変更する他

1.特定シェルの時にはネットワーク更新先を変更する
2.delete.txtを使い、特定のネットワーク更新先にアクセスした場合には、
特殊辞書を落とせるようにする
3.更新ファイルはどこまで削除しても大丈夫なのか

1.特定シェルの時にはネットワーク更新先を変更する


@homeurl (現在のシェル)!=master
http://hogehoge/


@homeurl (現在のシェル)==master
http://hugahuga/

2.delete.txtを使い、特定のネットワーク更新先にアクセスした場合には、
特殊辞書を落とせるようにする

○Aサーバ
delete.txt(ghost/master/特殊辞書.txtと記載したもの)
特殊辞書.txt
をいれた更新用ファイルをアップ

○Bサーバ
delete.txt(何もかいていない)
特殊辞書.txt
をいれた更新用ファイルをアップ

単純にこれで大丈夫。
ゴーストは自分のフォルダにあるDAUと比較して、
MD5に違いのあるファイルのみをダウンロードするので、
シェルを変えるたびにダウンロードして書き換えてくれます。

3.更新ファイルはどこまで削除しても大丈夫なのか
更新対象ファイルがあるフォルダの構造を壊さなければ他はすべて削除可能。
たとえば、今回の場合、ここまで削って大丈夫。

ただし、ユーザが久しぶりに更新をしようとした場合、
現在のものと変化している部分は全て更新しようとゴースト側は試みるので注意。
つまり、現実的には2セットサーバにおくのが無難。


testghost-----
|      |-ghost
delete.txt   |
       master
        |
       特殊辞書.txt

シェルフォルダも削除しています。

OnSatoriLoad?OnSatoriBoot?

(レゴキチ氏による解説と浮子屋氏に教えてもらったことや内容をベースに並べ替えた)

OnSatoriLoad?OnSatoriBoot?ともに里々の独自イベント。

OnSatoriBoot?でトークを書くと、
OnBoot?OnGhostChanged?OnGhostCalled?(多分)が発生しなくなる。

【向いている用途】
OnSatoriLoad:変数の初期化とか設定とか里々の内部の準備用イベント
OnSatoriBoot:起動イベント全般に分岐をかけたい時に使うといいかも(特定の日付の起動トークとか

「*OnSatoriLoad?」に記入したトークは読まれない。
(SSPを経由しないので、トークは読まれず、さくらスクリプトも解釈されない)

OnSatoriClose?OnSatoriUnload?も同じ対応。

レゴキチ氏による解説:http://ukgkc.nanican.net/lingrlog/uka_dev/logs/2008090700.html#00080

スクリプト解釈のタイミング

【大原則】
・どんなタグもSSPが解釈された時点で効力を発する。
・SSPからのイベント(NOTIFY除く)でないと、SHIORIはさくらスクリプトをSSPに返せない。

他のゴーストのトークを聞いて、それに反応する

\![set,otherghosttalk,true]のタグが追加されて以降のSSPでのみ動作。

「SSP CHANGELOG/更新履歴」
http://ghost-dev.g.hatena.ne.jp/ponapalt/20080405


OnBoot?
$引数区切り追加【タブ】▼
\![set,otherghosttalk,true]
#このタグで、他のゴーストのトークが聞こえるようになります。

OnOtherGhostTalk?【タブ】(compare,(R0),カッシーニの空隙)&&(compare,(R3),OnSecondChange?
>公共物とマナー【タブ】(count▼(R4)▼本)&&(count▼(R4)▼マーカー)

*公共物とマナー
:マーカーもだけれど、鉛筆を引いてあるのも結構あるね。

大学図書館で多く見かけるのは、
やっぱり論文書くとき常習している人がいるからなのかな。

(A*) [#v394503d]

やっと理解したのでメモ。

(A*)はこちらで用意した引数。
callを使ったときに、一緒に引数を渡すために使う。

*
:(call,uni,やっほー)

@uni
(replace,(A0),━━━(゚∀゚)━━━)

結果は「やっほ━━━(゚∀゚)━━━」

uniという処理を呼び出して、(A0)に「やっほー」という引数を代入している。
これをOntalkにおいて、トークを引数として渡せばトランスレータの出来上がり。

さくらスクリプトを除去する

数年前にケノさんが書いたもの。

@正規置換 
(if,(string,replace,(A0),s/(A1)/(A2)/g)==0,(A0),(string,get,0))

$トークログ (call,正規置換,(R4),\\(\\|q\[.*?\]\[.*?\]|[!&8cfijmpqsn]\[.*?\]|[-*+014567bcehntuvxz]|_[ablmsuvw]\[.*?\]|__(t|[qw]\[.*?\])|_[!?+nqsV]|[sipw][0-9]),) 
replace.txtに(正規置換,【タブ】(call,正規置換, 
satori_conf.txtの@SAORIにstring,saori/string.dll 
*wが押された 
:(トークログ) 

で、w押すと呼び出せます。

資料:http://keno.blog62.fc2.com/blog-entry-94.html
資料:http://ukiya.sakura.ne.jp/index.php?%E6%AD%A3%E8%A6%8F%

1から100まで足し算する

*ループ準備
$i 1
$x 0

>ループ処理

*ループ処理
>ループ終了 (i)==101
$x=(x)+(i)
$i=(i)+1
>ループ処理

*ループ終了
:(x)


*1 もともと、サーフェスが一枚のみのため、レストアが必要ない
*2 eを押すとトランスレート開始

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2011-01-11 (火) 16:20:23 (4825d)