Skip to content

Instantly share code, notes, and snippets.

@lost-nd-xxx
Created March 29, 2024 14:17
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save lost-nd-xxx/369dae73966b8ab66ba99259844ada72 to your computer and use it in GitHub Desktop.
Save lost-nd-xxx/369dae73966b8ab66ba99259844ada72 to your computer and use it in GitHub Desktop.
里々でトークをブクマする辞書
#里々でトークをブクマする辞書
#ご自由にお使いください。
#タブ文字を【タブ】と表記しています。
#既存の文・単語群・変数の名前がこの辞書の中身と被らないようにしてください。
####
# カスタムする部分
####
@Bkm_ブクマ付けるボタンの絵柄
[☆]
@Bkm_ブクマ外すボタンの絵柄
[★]
@Bkm_リスト戻るボタンの絵柄
[←]
#\_u[0x0000]で記号にしたり
#\_b[画像,inline,~~]で画像にすることもできる
@Bkm_リストのタイトル
ブクマ中トークのリスト
*Bkm_ブクマ済がない
$Bkm_ブクマトーク中【タブ】0
:トークが1つもブクマされていません。
トークモードを普通へ切り替えました。
####
# 既に辞書に書かれている可能性が高い関数
####
*OnSatoriLoad
$単語群「(Bkm_ブクマリストの名前)」の重複回避【タブ】起動中、有効
#既に「*OnSatoriLoad」がある場合、そこに必要な内容だけを追加してください
*OnTalk
$Bkm_リスト表示中【タブ】
>(R1)【タブ】(R0)
>OnTalk_ブクマモード【タブ】(Bkm_ブクマトーク中)==1
$r_talk【タブ】()
(r_talk)φ
(when、(Bkm_ブクマ機能使用)==1、(Bkm_ブクマボタン))
#既に「*OnTalk」がある場合、そこに必要な内容だけを追加してください
####
# メニュー的なもの
####
*1つつかれ
>OnTalk
*0つつかれ
>メニュー
*メニュー
:\c\*\_q
\![*]\__q[Bkm_ブクマ用ボタン切り替え]ブクマ用ボタン切り替え 現在:(when、(Bkm_ブクマ機能使用)==1、On、Off)\__q
\![*]\__q[Bkm_トークモード切り替え]トークモード切り替え 現在:(when、(Bkm_ブクマトーク中)==1、ブクマ、普通)\__q
(when、(単語群「(Bkm_ブクマリストの名前)」の数)>0、
\![*]\__q[Bkm_リスト表示_準備]ブクマされたトークのリスト\__q、
\![*]\f[strike,1]ブクマされたトークのリスト\f[strike,0])
\![*]\__q[Bkm_ブクマを全て外す]ブクマを全て外す\__q
\![*]\__q[script:\e]何もしない\__q\_qφ
\_l[0,0]メニューです。
*Bkm_トークモード切り替え
$Bkm_ブクマトーク中【タブ】(when、(Bkm_ブクマトーク中)==1、0、1)
>メニュー
*Bkm_ブクマ用ボタン切り替え
$Bkm_ブクマ機能使用【タブ】(when、(Bkm_ブクマ機能使用)==1、0、1)
>メニュー
*Bkm_ブクマを全て外す
$_tmp【タブ】(追加単語の全削除、(Bkm_ブクマリストの名前))
:ブクマを全て外しました。\x
>メニュー
####
# ブクマリスト
# 連番以外(トークの冒頭など)をリストの題字にしたい場合は改造が必要
####
*Bkm_リスト表示_準備
$Bkm_リスト表示中【タブ】1
$Bkm_リスト表示_最大行数【タブ】(get_property、currentghost.balloon.scope(0).lines.initial)
$Bkm_リスト表示_頁毎要素数【タブ】(calc、(Bkm_リスト表示_最大行数)-3)
$Bkm_リスト表示_頁毎要素数【タブ】(when、(Bkm_リスト表示_頁毎要素数)<=0、1、(Bkm_リスト表示_頁毎要素数))
$Bkm_リスト表示_現在の頁【タブ】1
>Bkm_リスト表示_本体
*Bkm_リスト表示_本体
>Bkm_リスト閲覧終了【タブ】(単語群「(Bkm_ブクマリストの名前)」の数)==0
$Bkm_リスト表示_最後の頁【タブ】(calc、(単語群「(Bkm_ブクマリストの名前)」の数)/(Bkm_リスト表示_頁毎要素数)+(when、(calc、(単語群「(Bkm_ブクマリストの名前)」の数)%(Bkm_リスト表示_頁毎要素数))>0、1、0))
$Bkm_リスト表示_開始数【タブ】(calc、(Bkm_リスト表示_現在の頁)*(Bkm_リスト表示_頁毎要素数)-(Bkm_リスト表示_頁毎要素数)+1)
$Bkm_リスト表示_終了数【タブ】(calc、(Bkm_リスト表示_開始数)+(Bkm_リスト表示_頁毎要素数)-1)
$_tmp【タブ】(when、(Bkm_リスト表示_終了数)>(単語群「(Bkm_ブクマリストの名前)」の数)、(set、Bkm_リスト表示_終了数、(単語群「(Bkm_ブクマリストの名前)」の数)))
:\_q\f[align,center](Bkm_リストのタイトル)
\f[align,left](for、(Bkm_リスト表示_開始数)、(Bkm_リスト表示_終了数)、1、\![*]\__q[OnBkm_リストからトーク再生,(C0)]トーク(C0)\__q\n)φ
\_l[0,0]\n[(calc、100*((Bkm_リスト表示_最大行数)-1))]\![*]\__q[Bkm_リスト閲覧終了]戻る\__qφ
(when、(単語群「(Bkm_ブクマリストの名前)」の数)>(Bkm_リスト表示_頁毎要素数)、(Bkm_リスト表示_頁めくりボタン))
*Bkm_リスト閲覧終了
$Bkm_リスト表示中【タブ】
$Bkm_リスト表示_開始数【タブ】
$Bkm_リスト表示_現在の頁【タブ】
$Bkm_リスト表示_最後の頁【タブ】
$Bkm_リスト表示_頁毎要素数【タブ】
$Bkm_リスト表示_終了数【タブ】
$Bkm_リスト表示_最大行数【タブ】
$単語群「(Bkm_ブクマリストの名前)」の重複回避【タブ】起動中、有効
>メニュー
@Bkm_リスト表示_頁めくりボタン
\_l[0,]\f[align,center](Bkm_リスト表示_頁戻るボタン) (han2zen、(Bkm_リスト表示_現在の頁)) (Bkm_リスト表示_頁進むボタン)
@Bkm_リスト表示_頁戻るボタン
(when、(Bkm_リスト表示_現在の頁)>1、
\__q[OnBkm_リスト表示_頁移動,(calc、(Bkm_リスト表示_現在の頁)-1)] φ< \__q、
\f[strike,1] φ< \f[strike,0]
@Bkm_リスト表示_頁進むボタン
(when、(Bkm_リスト表示_現在の頁)<(Bkm_リスト表示_最後の頁)、
\__q[OnBkm_リスト表示_頁移動,(calc、(Bkm_リスト表示_現在の頁)+1)] φ> \__q、
\f[strike,1] φ> \f[strike,0]
*OnBkm_リスト表示_頁移動
$Bkm_リスト表示_現在の頁【タブ】(R0)
>Bkm_リスト表示_本体
*OnBkm_リストからトーク再生
$単語群「(Bkm_ブクマリストの名前)」の重複回避【タブ】降順、トーク中
$_tmp【タブ】r_talk
$_tmp【タブ】(nop、(loop、Bkm_リストからトーク再生_格納、(R0)))
(r_talk)φ
(when、(Bkm_ブクマ機能使用)==1、(Bkm_ブクマ外すボタン))
@Bkm_リストからトーク再生_格納
(vncall、set、_tmp、(Bkm_ブクマリストの名前))
@Bkm_リスト戻るボタン
\__q[Bkm_リスト表示_本体](Bkm_リスト戻るボタンの絵柄)\__q
####
# ここから下は基本的に変更不要
####
@Bkm_ブクマリストの名前
Bkm_ブクマされたトーク
*OnTalk_ブクマモード
>Bkm_ブクマ済がない【タブ】(単語群「(Bkm_ブクマリストの名前)」の数)==0
$r_talk【タブ】((Bkm_ブクマリストの名前))
(r_talk)φ
(when、(Bkm_ブクマ機能使用)==1、(Bkm_ブクマ外すボタン))
@Bkm_ブクマボタン
(when、(Bkm_ブクマ済判定)>0、(Bkm_ブクマ外すボタン)、(Bkm_ブクマ付けるボタン))
@Bkm_ブクマ済判定
(calc、0(times、(単語群「(Bkm_ブクマリストの名前)」の数)、+(vncall、count、(Bkm_ブクマリストの名前)、r_talk)))
@Bkm_ブクマ付けるボタン
\0 \n\_qφ
\_a[OnBkm_ブクマ付ける](Bkm_ブクマ付けるボタンの絵柄)\_aφ
(when、(変数「Bkm_リスト表示中」の存在)==1、 \*(Bkm_リスト戻るボタン))φ
\_q
@Bkm_ブクマ外すボタン
\0 \n\_qφ
\_a[OnBkm_ブクマ外す](Bkm_ブクマ外すボタンの絵柄)\_aφ
(when、(変数「Bkm_リスト表示中」の存在)==1、 \*(Bkm_リスト戻るボタン))φ
\_q
*OnBkm_ブクマ付ける
$スクリプトの一番頭【タブ】\C\0\c[line,1]
$_tmp【タブ】(vncall、単語の追加、Bkm_ブクマリストの名前、r_talk)
:(Bkm_ブクマ外すボタン)
*OnBkm_ブクマ外す
$スクリプトの一番頭【タブ】\C\0\c[line,1]
$_tmp【タブ】(vncall、追加単語の削除、Bkm_ブクマリストの名前、r_talk)
:(Bkm_ブクマ付けるボタン)
####
# テスト用のランダムトーク
####
:ランダムトーク1です。
:ランダムトーク2です。
:ランダムトーク3です。
:ランダムトーク4です。
:ランダムトーク5です。
:ランダムトーク6です。
:ランダムトーク7です。
:ランダムトーク8です。
:ランダムトーク9です。
:ランダムトーク10です。
:ランダムトーク11です。
:ランダムトーク12です。
:ランダムトーク13です。
:ランダムトーク14です。
:ランダムトーク15です。
:ランダムトーク16です。
:ランダムトーク17です。
:ランダムトーク18です。
:ランダムトーク19です。
:ランダムトーク20です。
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment