![[SpecWiki]](image/title.png "[SpecWiki]")
|
|
Don/里々の小技 |
ツールめにゅうrecent(20)2010-09-082010-09-072010-08-312010-08-302010-08-282010-08-202010-08-192010-08-182010-08-122010-08-062010-07-242010-07-212010-07-182010-07-152010-07-13 |
内容前書きおすすめリンク
注意事項
コミュニケート関連
同時起動しているゴースト名を箇条書きにする＊同時起動しているゴースト名列挙 ：\_q（loop、同時起動しているゴースト名取得ループ、１、（calc,（起動しているゴースト数）－１））\_q ＠同時起動しているゴースト名取得ループ \![*]（FMO（同時起動しているゴースト名取得ループカウンタ）name）\n 同時起動しているゴーストから選択したゴーストに話しかける＊同時起動しているゴーストの誰かに挨拶 ：\_q（loop、同時起動しているゴーストと会話ループ、１、（calc,（起動しているゴースト数）－１））\_q ＠同時起動しているゴーストと会話ループ \![*]\__q[OnSendOnCommunicate,"（FMO（同時起動しているゴースト名と会話ループカウンタ）name）"]φ （FMO（同時起動しているゴーストと会話ループカウンタ）name）に話しかける\__q\n ＊OnSendOnCommunicate ＄Value0【タブ】（Ｒ０） ：（Ｒ０）さん、やっほー。 複数のゴーストに同時に話しかける＊ＡとＢとＣに話しかける ＄Value0【タブ】Ａ（sprintf,%c,1）Ｂ（sprintf,%c,1）Ｃ ：４人でマージャンしよー！ 同時起動中のゴースト全員に話しかける＊全員に話しかける ＄Value0【タブ】__SYSTEM_ALL_GHOST__ ：みんなでじゃんけんしよー！ 同時起動しているゴーストからランダムに１体選択する＠ランダムコミュ相手 （FMO（zen2han、（乱数１～（calc,（起動しているゴースト数）－１）））name） OnOtherGhostTalkイベントでフックするイベントを調整する＊OnOtherGhostTalk ＞トークフック処理【タブ】（count（b1）‡（call、単語配列化、‡、フックイベント）（b1）‡（Ｒ３）‡） ＞トークフック処理【タブ】（count（b1）（Ｒ２）（b1）（フックトーク状態）） ＊トークフック処理 ＃フックしたトークを好きなように処理する ＃フックしたいイベントを列挙する ＠フックイベント OnSecondChange OnCommunicate OnBoot OnClose OnGhostCallComplete OnOtherGhostBooted OnOtherGhostClosed OnGhostCalled OnOtherGhostChanged ＃フックしたいトーク状態（今回はひとつだけ） ＃複数の情報で判別する場合はもっとややこしくなります ＠フックトーク状態 communicate ＠b1 （sprintf,%c,1） ＃Thanks To Legokichi ＠単語配列化 （ set,単語群「（Ａ１）」の重複回避,降順、トーク中 ）（ loop,単語配列化２,（単語群「（Ａ１）」の数） ） ＠単語配列化２ （（Ａ１））（Ａ０） OnOtherGhostTalkイベントを単純にコミュニケートとして解釈する＊OnOtherGhostTalk ＞えんいー【タブ】（弾くための条件） \![raise,OnCommunicate,（Ｒ１）,（Ｒ４）] ＊えんいー ＠弾くための条件 ＃全てフックすると悲惨なことになるので必要ないものは弾いた方が無難です ゴースト交代関連＃あらかじめ以下のような記述がなされているものとします。 ＊OnGhostChanging ＞他のゴーストへ変更 ＊他のゴーストへ変更 ＞（Ｒ０）へ変更 ：（Ｒ０）さんに交代します。 ＊OnGhostCalling ＞他のゴーストを呼び出し ＊他のゴーストを呼び出し ＞（Ｒ０）を呼び出し ：（Ｒ０）さんを呼び出します。 ＃ゴーストリスト生成 ＃postic/インストールされているゴーストのリストを使う ＃http://navy.nm.land.to/post/dic_installedghost.txt ＊installedghostname ＄ゴーストリスト【タブ】（Ｒ０） ＄loop=１ ＄ｎ【タブ】（Ｒ１） ＞installedghostname2【タブ】（変数「ｎ」の存在） ＄ｎ【タブ】 ＄loop【タブ】 ＊installedghostname2 ＄ゴーストリスト【タブ】（ゴーストリスト）（sprintf,%c,1）（Ｒ（loop）） ＄loop=（loop）+１ ＄ｎ【タブ】（Ｒ（loop）） ＞installedghostname2【タブ】（変数「ｎ」の存在） ＄ｎ【タブ】 ＄loop【タブ】 ＠InstalledGhostFunction （set、引数区切り追加、（b5））φ （count（b5）（b1）（ゴーストリスト）（b1）（b5）（b1）（A0）（b1）） ＠b1 （sprintf,%c,1） ＠b3 （sprintf,%c,3） ＠b5 （sprintf,%c,5） 切り替え反応のあるゴーストを列挙する＊お友達と交代メニュー \0\b[2]\_q（お友達と交代メニュー表示）\_q ＠お友達と交代メニュー表示 （set、引数区切り追加、（b3））（set、引数区切り追加、（b5））φ （set,単語群「相互切り替えさくら名†ゴースト名」の重複回避,降順、トーク中）φ （loop（b5）相互切り替えゴースト名列挙（b5）（単語群「相互切り替えさくら名†ゴースト名」の数）） ＠相互切り替えゴースト名列挙 （nop（b3）（split（b5）（相互切り替えさくら名†ゴースト名）（b5）†））φ （if（b3）！（（Ｓ０）の存在）&&（call（b5）InstalledGhostFunction（b5）（Ｓ１））（b3）（切り替え友達表示）（b3）） ＠切り替え友達表示 \![*]\__q[OnChangeGhostByMyselfWithTalk,"（Ｓ０）",manual,"（Ｓ１）",]（Ｓ１）\__q\n ＊OnChangeGhostByMyselfWithTalk （他のゴーストへ変更）\![change,ghost,"（Ｒ２）"] ＃切り替え反応のあるゴーストをここに書いておきます。 ＠相互切り替えさくら名†ゴースト名 さくら†さくら Emily†Emily/Phase4 双葉†双葉＆ただきちさん コミュニケート・特殊反応のあるゴーストを列挙する＊お友達を呼び出しメニュー \0\b[2]\_q（お友達を呼び出しメニュー表示）\_q ＠お友達を呼び出しメニュー表示 （set、引数区切り追加、（b3））（set、引数区切り追加、（b5））φ （set,単語群「相互コミュさくら名†ゴースト名」の重複回避,降順、トーク中）φ （loop（b5）相互コミュゴースト名列挙（b5）（単語群「相互コミュさくら名†ゴースト名」の数）） ＠相互コミュゴースト名列挙 （nop（b3）（split（b5）（相互コミュさくら名†ゴースト名）（b5）†））φ （if（b3）！（（Ｓ０）の存在）&&（call（b5）InstalledGhostFunction（b5）（Ｓ１））（b3）（コミュ友達表示）（b3）） ＠コミュ友達表示 \![*]\__q[OnCallGhostByMyselfWithTalk,"（Ｓ０）",manual,"（Ｓ１）",]（Ｓ１）\__q\n ＊OnCallGhostByMyselfWithTalk （他のゴーストを呼び出し）\![call,ghost,"（Ｒ２）"] ＃コミュニケート・特殊反応のあるゴーストをここに書いておきます。 ＠相互コミュさくら名†ゴースト名 美耳†美耳＆ダミアン様 陽子†陽子＆飯綱＆千早 インストールイベント関連＃あらかじめ以下のような記述がなされているものとします。 ＊OnInstallComplete ＞（Ｒ１）をインストール ＞（Ｒ０）のインストール ：『（Ｒ１）』をインストールしたよー。 ：種別は『（Ｒ０）』やね。 ＊えんいー ＠b5 （sprintf,%c,5） ゴーストインストール後の交代／呼び出し
＃（Ｒ１）はゴースト名 ＊ghostのインストール ：ゴースト『（Ｒ１）』をインストールしたよ。\n （set、引数区切り追加、（b5））φ （call（b5）GhostChangeMenu（b5）（Sender）（b5）（Ｒ１）） ＊GhostChangeMenu ＞ghost交代メニュー（Ａ０） ＊ghost交代メニューSSP ：\_qφ \![*]\__q[OnChangeGhostByMyself,"（Ａ１）"]（Ａ１）と交代する \__q \![*]\__q[OnCallGhostByMyself,"（Ａ１）"]（Ａ１）を呼んでみる\__q\n \![*]\__q[えんいー]また後で \__q\_q ＊ghost交代メニューcrow ：φ ★\q[（Ａ１）と交代する,OnChangeGhostByMyself,"（Ａ１）"]\n ★\q[また後で ,えんいー] ＃SSPとCROWはゴースト名でも\0名でも大丈夫らしい。 ＃materiaはゴースト名のみ可。使用の際は要注意。 ＊OnChangeGhostByMyself \![change,ghost,"（Ｒ０）"] ＃SSPのみ使用可能。 ＊OnCallGhostByMyself \![call,ghost,"（Ｒ０）"] シェルインストール後の着替え＊shellのインストール ：シェル『（Ｒ１）』をインストールしたよ。\n （set、引数区切り追加、（b5））φ （call（b5）ShellChangeMenu（b5）（Sender）（b5）（Ｒ１）） ＊ShellChangeMenu ＞shell変更メニュー（Ａ０） ＊shell変更メニューSSP ：\_qφ \![*]\__q[OnChangeShellByMyself,"（Ａ１）"]（Ａ１）に着替える\__q\n \![*]\__q[えんいー]また後で \__q\_q ＊shell変更メニューcrow ：φ ★\q[（Ａ１）に着替える,OnChangeShellByMyself,"（Ａ１）"]\n ★\q[また後で ,えんいー] ＃SSPとCROWは\![change,shell,シェル名]使用可能 ＊OnChangeShellByMyself \![change,shell,"（Ｒ０）"] 他のゴースト専用だったので交代／呼び出し＃（Ｒ０）は\0名 ＊OnInstallRefuse ：『（Ｒ０）』さん専用だよー。\n （set、引数区切り追加、（b5））φ （call（b5）GhostChangeMenu（b5）（Sender）（b5）（Ｒ０）） ＃『ゴーストインストール後の交代／呼び出し』内のGhostChangeMenuへ ＃\0名で交代できるのはSSPおよびCROWのみ 音楽再生関連＃あらかじめ以下のような記述がなされているものとします。 ＊えんいー ＃入力：ファイルの絶対パス→出力：ファイル名 ＠OutputFiletNameFunction （set、引数区切り追加、（b5））φ （S（calc（b5）（split（b1）（A0）（b1）\）-1）） ＠b1 （sprintf,%c,1） ＠b3 （sprintf,%c,3） ＠b5 （sprintf,%c,5） 複数ファイルドロップ時に音楽ファイルの絶対パスのみを抽出して配列化する＊OnFileDrop2 （set、引数区切り追加、（b3））φ （set、引数区切り追加、（b5））φ （loop（b3）ドロップループ（b3）0（b3）（count（b5）（Ｒ０）（b5）（b1）））φ （音楽用変数初期化） ＠ドロップループ （nop（b3）（split（b5）（Ｒ０）（b5）（b1）））φ （set（b5）FilePath（b5）（S（ドロップループカウンタ）））φ （set（b3）FileName（b3）（call（b5）OutputFiletNameFunction（b5）"（FilePath）"））φ （曲目リスト追加判定） ＠曲目リスト追加判定 （（if（b3）（call（b5）音楽ファイルである（b5）（FileName））（b3）曲目リスト追加（b3）nop（b5））） ＠曲目リスト追加 （（if（b5）！（変数「MusicPlayList」の存在）（b5）曲目リスト追加処理初（b5）曲目リスト追加処理）） ＠曲目リスト追加処理初 （set（b5）MusicPlayList（b5）（FilePath）） ＃同名のファイルがあった場合は弾く ＠曲目リスト追加処理 （（if（b3）！（count（b5）（MusicPlayList）（b5）（FileName））（b3）set（b5）MusicPlayList（b5）（MusicPlayList）（b1）（FilePath）（b3）nop（b5））） ＠音楽用変数初期化 （set（b5）FilePath（b5））（set（b5）FileName（b5）） ＠音楽ファイルである （set、引数区切り追加、（b3））φ （set、引数区切り追加、（b5））φ （calc（b3） （compare_tail（b5）（Ａ０）（b5）.mp3）+ （compare_tail（b5）（Ａ０）（b5）.MP3）+ （compare_tail（b5）（Ａ０）（b5）.mid）+ （compare_tail（b5）（Ａ０）（b5）.MID）+ （compare_tail（b5）（Ａ０）（b5）.wma）+ （compare_tail（b5）（Ａ０）（b5）.WMA）+ （compare_tail（b5）（Ａ０）（b5）.wav）+ （compare_tail（b5）（Ａ０）（b5）.WAV）+ （compare_tail（b5）（Ａ０）（b5）.au）+ （compare_tail（b5）（Ａ０）（b5）.AU） ） 配列化された音楽ファイルの絶対パスリストを出力する＊音楽再生リスト出力 ＞えんいー【タブ】！（変数「MusicPlayList」の存在） \0（set、引数区切り追加、（b3）） （set、引数区切り追加、（b5））φ \_q（loop（b3）音楽再生リストループ（b3）0（b3）（count（b5）（MusicPlayList）（b5）（b1）））\_q ＠音楽再生リストループ （nop（b3）（split（b5）（MusicPlayList）（b5）（b1）））φ \![*]\__q[OnChoiceMusicList,"（S（音楽再生リストループカウンタ））"]φ （call（b5）OutputFiletNameFunction（b5）（S（音楽再生リストループカウンタ）））φ \__q\n ＃バルーンにはファイル名を表示 ＃選択肢クリックでOnChoiceMusicListのReference0にファイルの絶対パスを格納 選択された音楽ファイルを再生する／リストから削除する
＊OnChoiceMusicList \0（set、引数区切り追加、（b5））φ \_qFileName\_l[60,]: （call（b5）OutputFiletNameFunction（b5）（Ｒ０））\n \![*]\__q[OnOperatemciaudior,play,"（Ｒ０）"]通常再生 \__q \![*]\__q[OnOperatemciaudior,loop,"（Ｒ０）"]ループ再生\__q \![*]\__q[OnDeleteFromMusicList,"（Ｒ０）"]削除 \__q\_q ＊OnOperatemciaudior （set、引数区切り追加、（b5）） （mciaudior（b5）load（b5）（Ｒ１））（mciaudior（b5）（Ｒ０）） ＊OnDeleteFromMusicList （set、引数区切り追加、（b5）） ＄MusicPlayList【タブ】（erase（b5）（b1）（MusicPlayList）（b5）（b1）（Ｒ０）） ＞えんいー【タブ】！（変数「MusicPlayList」の存在） ＄MusicPlayList【タブ】（erase_first（b5）（MusicPlayList）（b5）（b1）） リストの曲をランダムにループ再生する＃mciaudior.dllは（mciaudior,stop）で演奏を停止した場合でも ＃OnMAAPlayFinishが通知されるので、 ＃手動で停止させた場合はフラグを立てておきます。 ＃dsaudio.dllの場合はver1.1以降はOnDSAPlayFinishが通知されないので、 ＃同様の処理が不要となります。 ＊音楽停止 ＄えんいータイマ＝２ （mciaudior,stop） ＃手動で停止させた場合は普通に終了 ＃直前に演奏した曲Ｒ０の繰り返しを弾く（１曲しかない場合は仕方ない） ＊OnMAAPlayFinish ＞えんいー【タブ】（変数「えんいータイマ」の存在） ＄引数区切り追加【タブ】（b5） ＄作業域【タブ】（erase（b5）（b1）（MusicPlayList）（b5）（b1）（Ｒ０）） ＞えんいー【タブ】！（変数「作業域」の存在） ＄作業域【タブ】（erase_first（b5）（作業域）（b5）（b1）） ＄作業域＝（split（b5）（作業域）（b5）（b1））－１ ＄作業域【タブ】（Ｓ（乱数０～（作業域））） ＄次の曲再生タイマ＝５ ＊次の曲再生 \![raise,OnOperatemciaudior,play,"（作業域）"] フィードバック関連ゴーストからのWeb拍手こちらの記事をパk...参考に。 ＊作者に物申す ：こちらに内容をお願いします。 \![open,inputbox,ぱっちん] ＊OnUserInput ＄（Ｒ０）【タブ】（Ｒ１） ＞（Ｒ０）を教えてもらった ＊ぱっちんを教えてもらった ＞ぱっちんが空だった【タブ】！（変数「ぱっちん」の存在） ：\_q「（ぱっちん）」\_q でよろしいですか？\n\_q \![*]\__q[OnSendWebClap,"（ぱっちん）"]よろしい \__q \![*]\__q[拍手ＮＧ]よろしくない\__q\_q ＄ぱっちん【タブ】 ＊ぱっちんが空だった ：……何か書いてください。 ＊拍手ＮＧ ：キャンセルします。 ＊OnSendWebClap ¥![execute,http-post,（拍手ＵＲＬ）,--param-charset=Shift_JIS,--param=hitokoto="（Ｒ０）",--async=WebClap] ＠拍手ＵＲＬ ＃ここに送信先ＵＲＬを表記 ＊OnExecuteHTTPComplete ＞（Ｒ１）Complete ＊WebClapComplete ：送りました。 ＊OnExecuteHTTPFailure ：……何か無理みたいです。 ネットワーク更新時MD5照合不一致を作者に報告＃不一致となるファイル名を記憶しておきます ＊OnUpdate.OnMD5CompareFailure ＄更新ファイル【タブ】（Ｒ０） ：\_q（Ｒ１）\n（Ｒ２）\n不一致です。\_q ＊OnUpdateFailure ＞ネットワーク更新（Ｒ０） ：ネットワーク更新失敗です……。 ＊ネットワーク更新md5 miss ：ファイルのMD5が一致しません。 ＄バグ内容【タブ】（更新ファイル）_md5_miss ＄更新ファイル【タブ】 （call、作者にバグ報告メニュー、（バグ内容））（set、バグ内容、） ＊作者にバグ報告メニュー ：念のため、作者に報告して頂けますか？\n\_q \![*]\__q[OnSendMessageWithWebClap,"（Ａ０）"]いいですよ\__q \![*]\__q[報告拒否]いやですよ\__q\_q ＃デフォルトで報告内容を入力しておきます ＊OnSendMessageWithWebClap ：こちらに内容をお願いします。 \![open,inputbox,ぱっちん,0,"（Ｒ０）"] ＊報告拒否 ：……。 選択肢のジャンプ先未実装を作者に報告＊OnChoiceSelect ＞（Ｒ０） ：選択肢のジャンプ先「（Ｒ０）」は存在しません……。 ：あの作者のやりそうなことやね。 ＄バグ内容【タブ】選択肢「（Ｒ０）」無し （call、作者にバグ報告メニュー、（バグ内容））（set、バグ内容、） ＃「ネットワーク更新時MD5照合不一致を作者に報告」内のメニューへ ssu補完的関数華和梨でいうところのentry
＊ ：（call、entry、犬、わん）☆（call、entry、ネコ、にゃー） ↓ わん☆ぐつぐつにゃーにゃー ＠entry （if、（文「（Ａ０）」の存在）||（単語群「（Ａ０）」の存在）||（変数「（Ａ０）」の存在）、（（Ａ０））、（Ａ１）） ＠ネコ ぐつぐつにゃーにゃー 文字挿入
（call,insert,挿入される文字列,挿入する文字列,挿入位置） ＊ ：（call（b1）insert（b1）（てすと文字列）（b1）‡（b1）5） ↓ あいうえお‡かきくけこ ＠てすと文字列 あいうえおかきくけこ ＠insert （set、引数区切り追加、（b3））（set、引数区切り追加、（b5））φ （ replace_first （b3）（A0） （b3）（substr（b5）（A0）（b5）0（b5）（A2）） （b3）（substr（b5）（A0）（b5）0（b5）（A2））（A1） ） ＠b1 （sprintf,%c,1） ＠b3 （sprintf,%c,3） ＠b5 （sprintf,%c,5） 仮名検索
＠かな判定 （if、（compare，（hira2kata,（Ａ０）），（Ａ０））、0、1）
＠カナ判定 （if、（compare，（kata2hira,（Ａ０）），（Ａ０））、0、1） 限定出力
（call,limitout,出力する文,出力する行数） ＊ ：（call（b1）limitout（b1）（てすと文）（b1）３） ↓ 雨ニモマケズ 風ニモマケズ 雪ニモ夏ノ暑サニモマケヌ ＊てすと文 ：雨ニモマケズ 風ニモマケズ 雪ニモ夏ノ暑サニモマケヌ 丈夫ナカラダヲモチ 慾ハナク 決シテ瞋ラズ イツモシヅカニワラッテヰル ＠limitout （set、引数区切り追加、（b3））（set、引数区切り追加、（b5））φ （nop（b1）（split（b3）（replace（b5）（A0）（b5）\n（b5）（b7））（b3）（b7）））φ （S0）（loop、limitout2、（calc，（A1）-1）） ＠limitout2 \n（S（limitout2カウンタ）） ＠b1 （sprintf,%c,1） ＠b3 （sprintf,%c,3） ＠b5 （sprintf,%c,5） ＠b7 （sprintf,%c,7） その他マーカーの使用をベースウェアによって切り替える＊メニュー ：メニューだよ。 （★）\q[メニュー１,メニュー１] （★）\q[メニュー２,メニュー２] （★）\q[メニュー３,メニュー３] ＠★ （if,（compare、（Sender）、SSP）||（compare、（Sender）、embryo）,\![*],★） 選択肢のタグをベースウェアによって切り替える＊メニュー ：メニューだよ。 （★）（call、選択肢、メニュー１、メニュー１） （★）（call、選択肢、メニュー２、メニュー２） （★）（call、選択肢、メニュー３、メニュー３） ＠選択肢 （（if、（compare,（Sender）,SSP）、選択肢SSP、選択肢通常）） ＠選択肢SSP \__q["（Ａ１）"（loop、選択肢引数追加、２、（Ａの数））]（Ａ０）\__q ＠選択肢通常 \q["（Ａ０）"（loop、選択肢引数追加、１、（Ａの数））] ＠選択肢引数追加 ,"（A（選択肢引数追加カウンタ））" プラグイン「SwissArmyKnife」のデフォルトメニューカスタマイズ
＊OnSwissArmyKnifeMenu ：\_q（十徳メニュー表示）\_q ＠十徳メニュー表示 \f[bold,true][機能選択]\f[bold,default]\n\n[half]φ （loop，AddArmyArg，0，（calc,（Ｒの数）-1）） ＠AddArmyArg \![*]\q[（R（AddArmyArgカウンタ））]\n ソロゴーストのトークを\0\1交互に振り分ける＊ （set,引数区切り追加,（b3））φ （call（b3）話者切り替え（b3）（ほげ）） ＠話者切り替え （set,引数区切り追加,（b3））φ （set,引数区切り追加,（b5））φ （nop, （split（b3） （replace（b5） （Ａ０）（b5） ？（b5） ‡。 ）（b3） 。 ） ）（replace（b3） （loop，話者切り替え２，0，（calc,（Ｓの数）-2），2）（b3） ‡。（b3） ？ ） ＠話者切り替え２ \0（S（話者切り替え２カウンタ））。\n[half]φ （if（b3）（Ｓの数）-1!=（話者切り替え２カウンタ）+1（b3） \1（S（calc,（話者切り替え２カウンタ）+1））。\n[half]） ＊ほげ ：ほげ。 へも？ もけ。 ＠b3 （バイト値,3） ＠b5 （バイト値,5） コメント
|
ソース
