code:
;  eraTW用梅蒂欣口上
;  作者：すし（小町、極口上作者）
;  ＜改変した場合はここに改変者の名前・連絡先を追加する＞
;
;  ＜この口上について語ったりするスペース＞
;  3作目です
;  本口上の作成に中奖了、諏訪子口上から引用、参考にさせていただいております
;  また、規約等に基づき、「eratohoЯeverse」内「ぱにめーしょん」を使用しています
;
;  ライセンス：
;  作者は以下で○をつけた行為について、誰でも無断で行えるものとし、違反しない限り許可を撤回しないものとします。
;    ○：常に許可　△：要相談、上記の作者と改変者全員に連絡が取れない場合は不許可　×：不許可、相談を受けても許可しない
;
;  +----+-----------------------------------+
;  | 口上の再配布                           |
;  +----+-----------------------------------+
;  | ○ | 単体での再UPロード            |
;  | ○ | 本体への同梱・口上まとめへの収録  |
;  +----+-----------------------------------+
;  | 再配布を許可する場合の改変             |
;  +----+-----------------------------------+
;  | ○ | 口上の加筆                        |
;  | △ | 口上の改変・其他改変            |;別人口上、別角色口上での引用は許可を得ずとも可です
;  +----+-----------------------------------+
;  | 其他                                 |
;  +----+-----------------------------------+
;  | ○ | 他の口上での利用                  |
;  | ○ | 他のeraバリアントでの利用         |
;  | ○ | era以外への流用                   |
;  | ○ | 翻訳・他言語版バリアントへの流用  |
;  | × | 商用利用・金銭のやり取りを伴う利用|
;  | ○ | 二次創作                          |
;  +----+-----------------------------------+
;  ・以下の行為に関しては上記と関係なく、無断で行えるものとします。
;    １：バグ・誤字脱字の修正・本体VerUpへの対応のための改変、貂プレート部分の追加
;  ・以下の行為に関しては禁止とします。
;    １：この口上からライセンス文・添付文章（ファイル名を除く）の内容を変更・削除すること
;    ２：この口上が二次創作等の場合に、原作者が禁止を宣言している行為
;  ・改変者は自分の名前を削除することができ、それによりこの口上に関する一切の権利を放棄し、放棄できない権利について行使しないことを宣言したものとします。
;  ・この口上を使用したことによる損害等について、バリアント・口上の作者、改変者は一切の責任を負いません。

path: ERB/口上・メッセージ関連/個人口上/【75】メディスン/ライセンステンプレ.txt


code:
;
;### 関数 ###################################
;以下の関数は「映姫様口上」内の「M_KOJO_K30_関数・お説教ライブラリ」を拝借したものです
;小町口上作者が作成したものではないのでご注意ください
;同ライブラリの利用に関しては、映姫様口上の作者様のライセンスに準じます

;拝借ここから
;==================================================

;==================================================
;MASTERの恋人がその場に居るかどうか返す式中関数
;これは力技でなんとか実装できたっぽいので、使わなくても問題ない気がする（小町口上作者）
;でも絶対こっちのがスマート
;=-1 小町が恋人 =0 元から恋人無 =1 その場に居ない =2 恋人と同席
@K76_FIND_LOVER()
#FUNCTION
SIF TALENT:MASTER:恋人 == 0
	RETURNF 0
SIF TALENT:恋人
	RETURNF -1
LOCAL = TALENT:MASTER:恋人
SIF CFLAG:LOCAL:現在位置 == CFLAG:MASTER:現在位置
	RETURNF 2
RETURNF 1
;==================================================

;==================================================
;同部屋の角色を拾う式中関数。尋找順位は[恋人]持ち→知り合い→TARGET内随机
;愛麗絲口上の関数お借りして平文化した映姫口上の関数を拝借しました。つまり丸パクり
;丸コピする以外の技術がないので先人たちの知恵に感謝をし继続しかない
@K76_FIND_AROUND()
#FUNCTION
#DIM 知り合い, 3 = 30, 43, 1
#DIM 総人数
#DIM 抽選
#LOCALSIZE 200
;小町の知り合いは3人,映姫>華扇>霊夢の順に(勝手に)設定
;一応理由としては
;映姫→言わずもがな
;華扇→茨歌仙で絡みが多かった
;霊夢→茨歌仙で霊夢がどんな人物か割と詳しく語っていた描写があった（と感じた）
;冥界組とか三月精コミックで交流あったやつおるやろ、という方もいるでしょうがとりあえず口上に関係しそうな角色優先で拨片UP
VARSET LOCAL
抽選 = 0
総人数 = GET_TARGETNUM()
;部屋に一人なら当然0
SIF 総人数 == 1
	RETURNF 0
;[恋人]持ちがいたら優先してIDを返す
SIF K76_FIND_LOVER() == 2
	RETURNF TALENT:MASTER:恋人
;知り合い優先度順に現在位置を調べMASTERと同じならIDを返す
FOR COUNT, 0, 2
	SIF CFLAG:(知り合い:COUNT):現在位置 == CFLAG:MASTER:現在位置
		RETURNF 知り合い:COUNT
NEXT
;知り合いがいなければ同室のTARGET_ID全部を拾う
FOR COUNT,1, 総人数 + 1
	;地獄の断頭台withジェロニモ状態を防ぐため口上主はスキップ
	SIF TARGET:COUNT == TARGET:0
		CONTINUE
	;MASTERとこまっちゃんの現在位置にいなければスキップ
	SIF (CFLAG:(TARGET:COUNT):現在位置 != CFLAG:MASTER:現在位置) || (CFLAG:(TARGET:COUNT):現在位置 != CFLAG:76:現在位置)
		CONTINUE
	;配列のカウントは別で取りながら代入
	LOCAL:抽選 = TARGET:COUNT
	抽選 ++
NEXT
;抽選してIDを決定
RETURNF LOCAL:(RAND(抽選))
;==================================================

;==================================================
;酔っぱらい度を数字で返す式中関数
;=0 清醒 =1 微醺 =2 酔酒 3=不省人事
@K76_DRUNK()
#FUNCTION
SIF BASE:76:酒気 <= 2
	RETURNF 0
SELECTCASE BASE:76:酒気
	;不省人事
	CASE IS > (MAXBASE:76:酒気 / 10) * 8
		RETURNF 3
	;酔酒
	CASE IS > (MAXBASE:76:酒気 / 10) * 5
		RETURNF 2
	;微醺
	CASE IS <= (MAXBASE:76:酒気 / 10) * 5
		RETURNF 1
ENDSELECT
;==================================================
;拝借ここまで

;==================================================
;本体関数を加工して自作関数に
;==================================================
;勃起状態を数字で返す式中関数
;=0 通常 =1 石更 =2 梆硬 =3 Erection!!
@K76_BOKKI()
#FUNCTION
#DIM CHARA
IF BASE:CHARA:勃起 == MAXBASE:CHARA:勃起
	RETURNF 3
ELSEIF BASE:CHARA:勃起 >= 1000
	RETURNF 2
ELSEIF BASE:CHARA:勃起 >= 500
	RETURNF 1
ELSE
	RETURNF 0
ENDIF

repo_name: akadiya/eratw

path: ERB/口上・メッセージ関連/個人口上/【76】小町/Lib/M_KOJO_K76_関数ライブラリ.ERB

license: unknown


code:
映姫様が同じ場所にいた場合の小町の反応を変えたくてGrep検索を色々かけてみた結果、これにたどり着いたので……
スレ内で公式に許可をいただいたのでありがたく使わせていただきます

拝借させていただいたのは映姫様口上内「追加ファイル」の「M_KOJO_K30_関数・お説教ライブラリ」より

MASTERの恋人がその場に居るかどうか返す式中関数「@K30_FIND_AROUND()」と
同部屋の角色を拾う式中関数@K30_FIND_AROUND()
酔っぱらい度を数字で返す式中関数@K30_DRUNK()
です

path: ERB/口上・メッセージ関連/個人口上/【76】小町/Lib/映姫様口上より拝借.txt