API tools faq
paste
Advertisement
Danna-sama

Ellen

Danna-sama
Oct 17th, 2016
226
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 375.90 KB | None | 0 0
raw download clone embed print report
  1. ;※※※※※※※※※※※※※※※※※※※※※※※※※
  2. ;日常系コマンド
  3. ;※※※※※※※※※※※※※※※※※※※※※※※※※
  4. ;==================================================
  5. ;300,会話
  6. ;==================================================
  7. @M_KOJO_MESSAGE_COM_K44_300
  8. ;コマンド共通メッセージ(TRAIN_MESSAGE)
  9. ;削除すると「～話をした。」とかが消えます
  10. CALL TRAIN_MESSAGE
  11. ;口上メイン呼出
  12. CALL M_KOJO_MESSAGE_COM_K44_300_1
  13. RETURN RESULT
  14.  
  15. @M_KOJO_MESSAGE_COM_K44_300_1
  16. ;-------------------------------------------------
  17. ;記入チェック（=0, 非表示、1, 表示）
  18. LOCAL = 1
  19. ;-------------------------------------------------
  20. IF LOCAL && !CFLAG:Anger && !MARK:反発刻印
  21. ;失敗時は無し
  22. SIF TFLAG:193 <= -1 || (TCVAR:302 && !TALENT:Love)
  23. RETURN 1
  24. ;仕事中会話
  25. IF CFLAG:325 == 5 && (CFLAG:職種 == 41 || CFLAG:職種 == 43)
  26. SELECTCASE RAND:4
  27. CASE 1
  28. IF TCVAR:354 > 15
  29. IF TALENT:Love || TALENT:Lover
  30. PRINTFORMW 「今はお客さんが多いから続きは後にしましょう%UNICODE(0x2665)%」
  31. ELSE
  32. PRINTFORMW 「今は忙しいからお話は後でね」
  33. ENDIF
  34. ELSE
  35. PRINTFORMW 「――って、お客さんだわ。　いらっしゃいませー%UNICODE(0x2665)%」
  36. ENDIF
  37. CASEELSE
  38. PRINT 「ああ、それは
  39. SELECTCASE RAND:4
  40. CASE 1
  41. PRINTW 自信をつける薬よ」
  42. CASE 2
  43. PRINTW 妖精よけの魔法よ」
  44. CASE 3
  45. PRINTW 呪い止めよ、首からさげて使うの」
  46. CASEELSE
  47. PRINTFORMW 静電気防止スプレーよ、これがないと色々と大変なの」
  48. ENDSELECT
  49. ENDSELECT
  50. RETURN 1
  51. ENDIF
  52. ;特別な日なら確定
  53. SIF TCVAR:358 == 0
  54. CALL M_KOJO_MESSAGE_EVENT_K44_EX_TALK
  55. ;特別会話が発生していれば省略
  56. IF TCVAR:358 == 2
  57. TCVAR:358 = 1
  58. RETURN 1
  59. ENDIF
  60. ;一周年記念、分岐条件上一年目にあっていないと発生しない。すでにペンダントを貰ってる際の分岐も書きたいけど代わりをなににするか決まらないので保留、素材系はまだ未実装だし
  61. IF TALENT:Lover && TALENT:Love && DAY:2 == CFLAG:1001 && DAY:3 == CFLAG:1002 && CFLAG:MASTER:現在位置 == CFLAG:1003 && TCVAR:359 == 0 && DAY:0 > 124 && DAY:0 < 249 && !ITEM:399
  62. PRINTFORMW 「そういえばさ、%CALLNAME:MASTER%とはここで初めて出会ったのよね」
  63. PRINTFORMW 「あれからもう一年かー、月日が経つのはほんと早いわねー」
  64. PRINTFORMW 「…そうそう！　%CALLNAME:MASTER%にプレゼントがあるの%UNICODE(0x2665)%」
  65. IF ITEM:399
  66.  
  67. ELSE
  68. PRINTFORMDW エレンは懐から紫色の水晶がはめ込まれたペンダントを取り出した
  69. PRINTFORMW 「はいっ%UNICODE(0x2665)%　わたし達が出会ってから一周年を記念して%CALLNAME:MASTER%へプレゼントよっ%UNICODE(0x2665)%」
  70. PRINTFORMDW %CALLNAME:MASTER%は魔水晶のペンダントを貰った！
  71. ITEM:399 ++
  72. PRINTFORMW 「%CALLNAME:MASTER%のために、わたしが頑張って作ったのよっ%UNICODE(0x2665)%　気に入ってくれると嬉しいわ%UNICODE(0x2665)%」
  73. ENDIF
  74. PRINTFORMDW %CALLNAME:MASTER%はエレンに感謝をすると、お返しを渡そうとした…
  75. ;プレゼント未実装につき必ずこれ
  76. PRINTFORMDW ……あげれるものが何も無かった…　\@ TALENT:MASTER:Gender == 2 ? 男 # 女 \@子として何たる恥か…
  77. PRINTFORMW 「あやや、まあないならないで別にかまわないわ%UNICODE(0x2665)%」
  78. PRINTFORMW 「でもその代わり、たくさんの愛をわたしにちょうだい%UNICODE(0x2665)%」
  79. PRINTL
  80. PRINTFORMDW プレゼントを受け取った後、%CALLNAME:MASTER%はエレンと指先を絡ませながら談笑した…
  81. PRINTFORMW 「えへへ%UNICODE(0x2665)%　%CALLNAME:MASTER%と居ると本当に幸せだわ%UNICODE(0x2665)%%UNICODE(0x2665)%」
  82. PRINTFORMW 「いつまでもこの時間が続くといいなー……」
  83. TCVAR:359 = 1
  84. TIME += 20
  85. ;二周年以降
  86. ELSEIF TALENT:Lover && TALENT:Love && DAY:2 == CFLAG:1001 && DAY:3 == CFLAG:1002 && CFLAG:MASTER:現在位置 == CFLAG:1003 && TCVAR:359 == 0 && ITEM:399
  87. PRINTFORMW 「そういえば、%CALLNAME:MASTER%とはここで初めて会ったのよね」
  88. PRINTFORMW 「あれからけっこうたったのになんだか最近の事に感じるわ」
  89. PRINTFORMW 「これからもよろしくね%UNICODE(0x2665)%　%CALLNAME:MASTER%%UNICODE(0x2665)%%UNICODE(0x2665)%」
  90. TCVAR:359 = 1
  91. ;不機嫌時用
  92. ;ELSEIF TALENT:Humor == -1
  93. ;愚痴を聞かされる、居候してると発生しない
  94. ;IF RAND:5 == 4 && FLAG:15 != 44
  95. ;PRINTFORMW 「ねえ聞いてよ！　こないだ店にいやーなお客が来たのよ」
  96. ;PRINTFORMW 「そのお客はね……で……だったのよ、それに…」
  97. ;PRINTFORMW 「……でさー、ひどいと思わない？それと…」
  98. ;PRINTFORMW 「………が……で……」
  99. ;PRINTFORMDW ………
  100. ;PRINTFORMDW ……
  101. ;PRINTFORMDW …
  102. ;恋慕が付いていれば確実に機嫌が直る
  103. ;IF TALENT:Love || CFLAG:1014 == 1
  104. ; PRINTFORMW 「ふう…　洗いざらい話したらスッキリしたわ%UNICODE(0x2665)%」
  105. ; PRINTFORMW 「つきあってくれてありがとう%UNICODE(0x2665)% それと…ごめんね」
  106. ;恋慕がない場合は70%の確率で機嫌が直る
  107. ;ELSEIF RAND:10 < 7
  108. ; PRINTFORMW 「ふう…　洗いざらい話したらスッキリしたわ%UNICODE(0x2665)%」
  109. ; PRINTFORMW 「つきあってくれてありがとう%UNICODE(0x2665)%」
  110. ;ELSE
  111. ; PRINTFORMW 「…って、ちょっと！聞いてるの！？」
  112. ;ENDIF
  113. ;外か内か
  114. ; IF (OUTROOF(CFLAG:TARGET:現在位置)) && RAND:3 > 0
  115. ; ;季節ごとに変化
  116. ; IF DAY:2 == 1
  117. ; SELECTCASE TIME:5
  118. ; ;晴れ
  119. ; CASE 0, 1
  120. ; PRINTFORMW 「せっかくいい天気なのになんだか気が乗らないわねー」
  121. ; CASE 8 TO 13
  122. ; PRINTFORMW 「……　なによこの天気は～！！」
  123. ; CASEELSE
  124. ; PRINTFORMW 「せっかくの春なのにこーんな天気じゃ気分も悪くなるわ」
  125. ; ENDSELECT
  126. ; ELSEIF DAY:2 == 2
  127. ; SELECTCASE TIME:5
  128. ; ;晴れ
  129. ; CASE 0, 1
  130. ; PRINTFORMW 「あーもー！　あつくてあつくて最悪よー！！」
  131. ; ;雨
  132. ; CASE 4, 5
  133. ; PRINTFORMW 「なによこの湿気っぽさは！　まるで水の中みたいよ！」
  134. ; ;雪など
  135. ; CASE 8 TO 13
  136. ; PRINTFORMW 「……　なによこの天気は～！！」
  137. ; CASEELSE
  138. ; PRINTFORMW 「うっわーっ、うっわーっ！」
  139. ; PRINTFORMW 「なんでこんなに湿気っぽいのよ～！」
  140. ; ENDSELECT
  141. ; ELSEIF DAY:2 == 3
  142. ; SELECTCASE TIME:5
  143. ; ;晴れ
  144. ; CASE 0, 1
  145. ; PRINTFORMW 「なんか気分が乗らないわねー、せっかく秋なのに」
  146. ; ;雪
  147. ; CASE 8 TO 11
  148. ; PRINTFORMW 「……　秋だったらまだ普通ね」
  149. ; ;みぞれ、あられ
  150. ; CASE 12, 13
  151. ; PRINTFORMW 「……　なによこの天気は～！！」
  152. ; CASEELSE
  153. ; PRINTFORMW 「せっかくの秋なのにこーんな天気じゃ気分も悪くなるわ」
  154. ; ENDSELECT
  155. ; ELSEIF DAY:2 == 4
  156. ; SELECTCASE TIME:5
  157. ; ;晴れ
  158. ; CASE 0, 1
  159. ; PRINTFORMW 「日が差しているのになんでこんなに寒いのよ！」
  160. ; ;雨
  161. ; CASE 4, 5
  162. ; PRINTFORMW 「いくらなんでも寒すぎよ！」
  163. ; ;雪
  164. ; CASE 8 TO 11
  165. ; PRINTFORMW 「雪はいいんだけどさ、後で雪かきしなきゃいけないのが大変ね」
  166. ; ;みぞれ、あられ
  167. ; CASE 12, 13
  168. ; PRINTFORMW 「なんなのよこの天気は！」
  169. ; CASEELSE
  170. ; PRINTFORMW 「お日様ももう少しがんばりなさいよ！」
  171. ; ENDSELECT
  172. ; ENDIF
  173. ; ELSE
  174. ; SELECTCASE RAND:3
  175. ; CASE 1
  176. ; PRINTFORMW 「まったくソクラテスったら。　ぶつくさぶつくさ」
  177. ; CASE 2
  178. ; PRINTFORMW 「ふーん、そんなことがあったの」
  179. ; CASEELSE
  180. ; PRINTFORMW 「……へえー」
  181. ; ENDSELECT
  182. ; ENDIF
  183. ;妊娠用
  184. ELSEIF TALENT:Pregnancy && CFLAG:無自覚妊娠 == 0 && CFLAG:1015 == 0 && GET_TARGETNUM() == 1
  185. CALL M_KOJO_MESSAGE_EVENT_K44_NINSIN
  186. ELSE
  187. SELECTCASE RAND:4
  188. ;関係に応じて変化
  189. CASE 1
  190. ;恋人時専用
  191. IF TALENT:Lover
  192. SELECTCASE RAND:3
  193. CASE 1
  194. IF TALENT:Love
  195. PRINTFORMW 「わたし素敵な恋をするのが夢だったけどそれがついに叶うなんてね%UNICODE(0x2665)% ここに来てほんとよかったわ%UNICODE(0x2665)%」
  196. ELSE
  197. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  198. ENDIF
  199. CASE 2
  200. ;朝
  201. IF TIME:2 == 1 || TIME:2 == 2
  202. PRINTFORMW 「さてと、今日は何をするのかしら%UNICODE(0x2665)%　楽しみだわ%UNICODE(0x2665)%」
  203. ;昼
  204. ELSEIF TIME:2 == 3 || TIME:2 == 4
  205. ;夕方分岐
  206. IF TIME:0 >= 1020 && TIME:5 <= 1 && (MOON_WATCH_POINT(CFLAG:現在位置))
  207. PRINTFORMW 「あら%UNICODE(0x2665)% ねえねえ%CALLNAME:MASTER%、夕日が綺麗だわよ%UNICODE(0x2665)%」
  208. PRINTFORMW 「すてきねー%UNICODE(0x2665)%」
  209. PRINTFORMDW %CALLNAME:MASTER%とエレンは美しい夕焼けを見ながら談笑した…
  210. ELSE
  211. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  212. ENDIF
  213. ;夜
  214. ELSEIF TIME:2 >= 5 && TIME:2 <= 7
  215. ;月見分岐
  216. IF (MOON_WATCH_POINT(CFLAG:現在位置)) && MOON_WATCH(DAY:3) >= 2
  217. PRINTFORMW 「今日は月が綺麗ねー%UNICODE(0x2665)% ねえ%CALLNAME:MASTER%%UNICODE(0x2665)%」
  218. PRINTFORMDW %CALLNAME:MASTER%とエレンは空に浮かぶ月を見ながら談笑した…
  219. ELSE
  220. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  221. ENDIF
  222. ENDIF
  223. CASEELSE
  224. IF ((TIME:0 >=360 && TIME:0 <= 540) || (TIME:0 >=660 && TIME:0 <= 780) || (TIME:0 >=1020 && TIME:0 <= 1260)) && TIME_PROGRESS(TCVAR:空腹時刻) && TIME_PROGRESS(TCVAR:デザート空腹時刻)
  225. SELECTCASE CFLAG:現在位置
  226. CASE 100 TO 109,200 TO 209,300 TO 309,400 TO 409,500 TO 509,600 TO 609,700 TO 709,800 TO 809,900 TO 909
  227. PRINTFORMW 「%CALLNAME:MASTER%といるこの時間が一番幸せだわ%UNICODE(0x2665)%」
  228. CASEELSE
  229. PRINTFORMW 「お腹がすいてきたわ、そろそろ食事にでもしない？」
  230. ENDSELECT
  231. ELSE
  232. PRINTFORMW 「%CALLNAME:MASTER%といるこの時間が一番幸せだわ%UNICODE(0x2665)%」
  233. ENDIF
  234. ENDSELECT
  235. ;恋慕or準恋慕時専用
  236. ELSEIF TALENT:Love || CFLAG:1014 == 1
  237. SELECTCASE RAND:3
  238. CASE 1
  239. IF TALENT:Love
  240. PRINTFORMW 「ねえ%CALLNAME:MASTER%、　%CALLNAME:MASTER%には……いや、何でもないわ//」
  241. ELSE
  242. PRINTFORMW 「%CALLNAME:MASTER%は最近なにか変わったこととかある？」
  243. ENDIF
  244. CASE 2
  245. ;朝
  246. IF TIME:2 == 1 || TIME:2 == 2
  247. PRINTFORMW 「%CALLNAME:MASTER%は今日は何か用事とかある？　ないんだったらわたしと一緒にどこかに行かない？//」
  248. ;昼
  249. ELSEIF TIME:2 == 3 || TIME:2 == 4
  250. ;夕方分岐
  251. IF TIME:0 >= 1020 && TIME:5 <=1 && (MOON_WATCH_POINT(CFLAG:現在位置))
  252. PRINTFORMW 「あら%UNICODE(0x2665)% ねえねえ%CALLNAME:MASTER%、夕日が綺麗だわよ%UNICODE(0x2665)%」
  253. PRINTFORMW 「すてきねー%UNICODE(0x2665)%」
  254. PRINTFORMDW %CALLNAME:MASTER%とエレンは美しい夕焼けを見ながら談笑した…
  255. ELSE
  256. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  257. ENDIF
  258. ;夜
  259. ELSEIF TIME:2 >= 5 && TIME:2 <= 7
  260. ;月見分岐
  261. IF (MOON_WATCH_POINT(CFLAG:現在位置)) && MOON_WATCH(DAY:3) >= 2
  262. PRINTFORMW 「今日は月が綺麗ねー%UNICODE(0x2665)%　ねえ%CALLNAME:MASTER%%UNICODE(0x2665)%」
  263. PRINTFORMDW %CALLNAME:MASTER%とエレンは空に浮かぶ月を見ながら談笑した…
  264. ELSE
  265. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  266. ENDIF
  267. ENDIF
  268. CASEELSE
  269. PRINTFORMW 「ねえ、ちょっと%CALLNAME:MASTER%の方に寄ってもいいかしら？//」
  270. ENDSELECT
  271. ;思慕時専用
  272. ELSEIF TALENT:思慕
  273. SELECTCASE RAND:3
  274. CASE 1
  275. PRINTFORMW 「えっ？　なんで魔法使いなのにあまり魔法を使いたがらないって？」
  276. PRINTFORMW 「わたしね、魔法を使うと頭が帯電しちゃうの…、静電気防止スプレーはここでは売ってないし」
  277. PRINTFORMW 「この体質のせいでどれだけふられた事やら…、ぐすん」
  278. CASE 2
  279. PRINTFORMW 「ねえねえ、何か魔法絡みで困ってることとかない？　あるなら特別価格で解決してあげるわ%UNICODE(0x2665)%」
  280. CASEELSE
  281. PRINTFORMW 「あははは%UNICODE(0x2665)% %CALLNAME:MASTER%と話しているととっても楽しいわ%UNICODE(0x2665)%」
  282. ENDSELECT
  283. ;親密４以下時専用
  284. ELSE
  285. SELECTCASE RAND:3
  286. CASE 1
  287. PRINTFORMW 「はあ…、どこかに素敵な人が落ちてないかしら」
  288. CASE 2
  289. PRINTFORMW 「そういえば%CALLNAME:MASTER%は魔法絡みで困っていることはない？」
  290. PRINTFORMW 「あったら『ふわふわエレン魔法のお店』へ！　誠心誠意、お悩み解決するわ%UNICODE(0x2665)%」
  291. CASEELSE
  292. PRINTFORMW 「あははは、%CALLNAME:MASTER%の話ってば結構面白いわね%UNICODE(0x2665)%」
  293. ENDSELECT
  294. ENDIF
  295. ;季節、天気、時間帯に応じて変化
  296. CASE 2
  297. ;春
  298. IF DAY:2 == 1
  299. ;朝
  300. IF TIME:2 == 1 || TIME:2 == 2
  301. SELECTCASE TIME:5
  302. ;晴れ
  303. CASE 0, 1
  304. ;外か内か
  305. IF (OUTROOF(CFLAG:TARGET:現在位置)) || CFLAG:TARGET:現在位置 == 10
  306. PRINTFORMW 「お日様の光が気持ちいいわねー%UNICODE(0x2665)% %CALLNAME:MASTER%」
  307. ELSE
  308. PRINTFORMW 「今日もいい天気だわ%UNICODE(0x2665)%」
  309. ENDIF
  310. ;曇り
  311. CASE 2, 3
  312. ;外か内か
  313. IF (OUTROOF(CFLAG:TARGET:現在位置))
  314. SELECTCASE RAND:2
  315. CASE 1
  316. PRINTFORMW 「せっかくの春なのに曇りなんてねー」
  317. PRINTFORMW 「早く晴れないかしら」
  318. CASEELSE
  319. PRINTFORMW 「今日は天気悪いわねー、雨にならないといいけど…」
  320. SIF TALENT:Lover || TALENT:Love || CFLAG:1014 == 1
  321. PRINTFORMW （でもよく考えてみると、雨が降れば相合傘ができるわ。　すてきー%UNICODE(0x2665)%）
  322. ENDSELECT
  323. ELSE
  324. PRINTFORMW 「曇ってるわねー、せっかくの春なのにさ」
  325. ENDIF
  326. ;雨
  327. CASE 4, 5
  328. ;外か内か
  329. IF (OUTROOF(CFLAG:TARGET:現在位置))
  330. PRINTFORMW 「うわーっ！　ひどい雨ね！」
  331. ;相合傘なら分岐
  332. IF TEQUIP:201 == 1
  333. IF TALENT:Lover
  334. PRINTFORMW 「まあ、そのおかげで相合傘が出来るんだけどね%UNICODE(0x2665)%」
  335. PRINTFORMW 「あははは%UNICODE(0x2665)%」
  336. ELSEIF TALENT:Love || CFLAG:1014 == 1
  337. PRINTFORMW 「…でも、雨が降っているから相合傘ができるのよね」
  338. PRINTFORMW 「そう考えると、雨ってなんかしあわせだわ%UNICODE(0x2665)%//」
  339. ELSE
  340. PRINTFORMW 「でも、傘があるから平気ね%UNICODE(0x2665)%」
  341. ENDIF
  342. ELSE
  343. PRINTFORMW 「早く屋根のある場所に行きましょ！」
  344. ENDIF
  345. ELSE
  346. PRINTFORMW 「うわー、外はすごい雨ねー」
  347. ENDIF
  348. ;霧、霧雨
  349. CASE 6, 7
  350. ;外か内か
  351. IF (OUTROOF(CFLAG:TARGET:現在位置))
  352. PRINTFORMW 「うわー、すずしーい」
  353. SIF TIME:5 == 6
  354. PRINTFORMW 「服がびしょびしょーだわー…　早く屋根のある場所に行きましょ！」
  355. ELSE
  356. PRINTFORMW 「今日はちょっと寒いわねー」
  357. ENDIF
  358. CASEELSE
  359. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  360. ENDSELECT
  361. ;昼
  362. ELSEIF TIME:2 == 3 || TIME:2 == 4
  363. SELECTCASE TIME:5
  364. ;晴れ
  365. CASE 0, 1
  366. ;外か内か
  367. IF (OUTROOF(CFLAG:TARGET:現在位置)) || CFLAG:TARGET:現在位置 == 10
  368. PRINTFORMW 「お日様の光が気持ちいいわねー%UNICODE(0x2665)% %CALLNAME:MASTER%」
  369. ELSE
  370. PRINTFORMW 「今日もいい天気だわ%UNICODE(0x2665)%」
  371. ENDIF
  372. ;曇り
  373. CASE 2, 3
  374. ;外か内か
  375. IF (OUTROOF(CFLAG:TARGET:現在位置))
  376. SELECTCASE RAND:2
  377. CASE 1
  378. PRINTFORMW 「せっかくの春なのに曇りなんてねー」
  379. PRINTFORMW 「早く晴れないかしら」
  380. CASEELSE
  381. PRINTFORMW 「今日は天気悪いわねー、雨にならないといいけど…」
  382. SIF TALENT:Lover || TALENT:Love || CFLAG:1014 == 1
  383. PRINTFORMW （でもよく考えてみると、雨が降れば相合傘ができるわ。　すてきー%UNICODE(0x2665)%）
  384. ENDSELECT
  385. ELSE
  386. PRINTFORMW 「曇ってるわねー、せっかくの春なのにさ」
  387. ENDIF
  388. ;雨
  389. CASE 4, 5
  390. ;外か内か
  391. IF (OUTROOF(CFLAG:TARGET:現在位置))
  392. PRINTFORMW 「うわーっ！　ひどい雨ね！」
  393. ;相合傘なら分岐
  394. IF TEQUIP:201 == 1
  395. IF TALENT:Lover
  396. PRINTFORMW 「まあ、そのおかげで相合傘が出来るんだけどね%UNICODE(0x2665)%」
  397. PRINTFORMW 「あははは%UNICODE(0x2665)%」
  398. ELSEIF TALENT:Love || CFLAG:1014 == 1
  399. PRINTFORMW 「…でも、雨が降っているから相合傘ができるのよね」
  400. PRINTFORMW 「そう考えると、雨ってなんかしあわせだわ%UNICODE(0x2665)%//」
  401. ELSE
  402. PRINTFORMW 「でも、傘があるから平気ね%UNICODE(0x2665)%」
  403. ENDIF
  404. ELSE
  405. PRINTFORMW 「早く屋根のある場所に行きましょ！」
  406. ENDIF
  407. ELSE
  408. PRINTFORMW 「うわー、外はすごい雨ねー」
  409. ENDIF
  410. ;霧、霧雨
  411. CASE 6, 7
  412. ;外か内か
  413. IF (OUTROOF(CFLAG:TARGET:現在位置))
  414. PRINTFORMW 「うわー、すずしーい」
  415. SIF TIME:5 == 6
  416. PRINTFORMW 「服がびしょびしょーだわー…　早く屋根のある場所に行きましょ！」
  417. ELSE
  418. PRINTFORMW 「今日はちょっと寒いわねー」
  419. ENDIF
  420. CASEELSE
  421. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  422. ENDSELECT
  423. ;夜
  424. ELSEIF TIME:2 >= 5 && TIME:2 <= 7
  425. SELECTCASE TIME:5
  426. ;晴れ
  427. CASE 0, 1
  428. ;外か内か
  429. IF (MOON_WATCH_POINT(CFLAG:TARGET:現在位置))
  430. CALL M_KOJO_MESSAGE_COM_K44_300_1_MOON_WATCH
  431. ELSE
  432. PRINTFORMW 「ねえねえ、外に出て月でも見ない？」
  433. ENDIF
  434. ;曇り
  435. CASE 2, 3
  436. ;外か内か
  437. IF (MOON_WATCH_POINT(CFLAG:TARGET:現在位置))
  438. PRINTFORMW 「曇ってるせいで月も星もよく見えないわねー…」
  439. PRINTFORMW 「明日は晴れないかしら」
  440. ELSE
  441. PRINTFORMW 「曇ってるわねー、せっかくの夜なのにさ」
  442. ENDIF
  443. ;雨
  444. CASE 4, 5
  445. ;外か内か
  446. IF (OUTROOF(CFLAG:TARGET:現在位置))
  447. PRINTFORMW 「うわーっ！　ひどい雨ね！」
  448. ;相合傘なら分岐
  449. IF TEQUIP:201 == 1
  450. IF TALENT:Lover
  451. PRINTFORMW 「まあ、そのおかげで相合傘が出来るんだけどね%UNICODE(0x2665)%」
  452. PRINTFORMW 「これなら月が無くても元気になるわ%UNICODE(0x2665)%」
  453. ELSEIF TALENT:Love || CFLAG:1014 == 1
  454. PRINTFORMW 「…でも、雨が降っているから相合傘ができるのよね」
  455. PRINTFORMW 「そう考えると、雨ってなんかしあわせだわ%UNICODE(0x2665)%//」
  456. ELSE
  457. PRINTFORMW 「でも、傘があるから平気ね%UNICODE(0x2665)%　…月は見えないけどさ」
  458. ENDIF
  459. ELSE
  460. PRINTFORMW 「早く屋根のある場所に行きましょ！」
  461. ENDIF
  462. ELSE
  463. PRINTFORMW 「うわー、外はすごい雨ねー」
  464. PRINTFORMW 「これじゃ月も星も見えないわ、残念」
  465. ENDIF
  466. ;霧、霧雨
  467. CASE 6, 7
  468. ;外か内か
  469. IF (MOON_WATCH_POINT(CFLAG:TARGET:現在位置))
  470. PRINTFORMW 「霧のせいで月も星もよく見えないわねー…」
  471. PRINTFORMW 「明日は晴れないかしら」
  472. ELSE
  473. PRINTFORMW 「霧が深いわねー、せっかくの夜なのにさ」
  474. ENDIF
  475. CASEELSE
  476. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  477. ENDSELECT
  478. ENDIF
  479. ;夏
  480. ELSEIF DAY:2 == 2
  481. ;朝
  482. IF TIME:2 == 1 || TIME:2 == 2
  483. SELECTCASE TIME:5
  484. ;晴れ
  485. CASE 0, 1
  486. ;外か内か
  487. IF (OUTROOF(CFLAG:TARGET:現在位置)) || CFLAG:TARGET:現在位置 == 10
  488. SELECTCASE RAND:2
  489. CASE 1
  490. PRINTFORMW 「ほんと夏は暑くてしかたないわねー」
  491. CASEELSE
  492. PRINTFORMW 「あーもー服が汗でベタベタよー」
  493. SIF TALENT:Lover
  494. PRINTFORMW 「後で一緒にお風呂にでも入って汗を流しましょう」
  495. ENDSELECT
  496. ELSE
  497. PRINTFORMW 「外は暑そうねー」
  498. PRINTFORMW 「そういえば%CALLNAME:MASTER%は暑いのは得意？」
  499. ENDIF
  500. ;曇り
  501. CASE 2, 3
  502. ;外か内か
  503. IF (OUTROOF(CFLAG:TARGET:現在位置))
  504. SELECTCASE RAND:2
  505. CASE 1
  506. PRINTFORMW 「曇っているおかげで少しは涼しいわ%UNICODE(0x2665)%」
  507. PRINTFORMW 「…その代わり、すこーししけっぽいけどね」
  508. CASEELSE
  509. PRINTFORMW 「今日は天気悪いわねー、雨にならないといいけど…」
  510. SIF TALENT:Lover || TALENT:Love || CFLAG:1014 == 1
  511. PRINTFORMW （でもよく考えてみると、雨が降れば相合傘ができるわ。　すてきー%UNICODE(0x2665)%）
  512. ENDSELECT
  513. ELSE
  514. PRINTFORMW 「曇ってるわねー。　まあ、その分少し涼しいからいいんだけどさ」
  515. ENDIF
  516. ;雨
  517. CASE 4, 5
  518. ;外か内か
  519. IF (OUTROOF(CFLAG:TARGET:現在位置))
  520. PRINTFORMW 「うわーっ！　ひどい雨ね！」
  521. ;相合傘なら分岐
  522. IF TEQUIP:201 == 1
  523. IF TALENT:Lover
  524. PRINTFORMW 「まあ、そのおかげで相合傘が出来るんだけどね%UNICODE(0x2665)%」
  525. PRINTFORMW 「あははは%UNICODE(0x2665)%」
  526. ELSEIF TALENT:Love || CFLAG:1014 == 1
  527. PRINTFORMW 「…でも、雨が降っているから相合傘ができるのよね」
  528. PRINTFORMW 「そう考えると、雨ってなんかしあわせだわ%UNICODE(0x2665)%//」
  529. ELSE
  530. PRINTFORMW 「でも、傘があるから平気ね%UNICODE(0x2665)%」
  531. ENDIF
  532. ELSE
  533. PRINTFORMW 「早く屋根のある場所に行きましょ！」
  534. ENDIF
  535. ELSE
  536. PRINTFORMW 「うわー、外はすごい雨ねー」
  537. ENDIF
  538. ;霧、霧雨
  539. CASE 6, 7
  540. ;外か内か
  541. IF (OUTROOF(CFLAG:TARGET:現在位置))
  542. PRINTFORMW 「うわー%UNICODE(0x2665)% すずしーい%UNICODE(0x2665)% 気持ちいいー%UNICODE(0x2665)%」
  543. SIF TIME:5 == 6
  544. PRINTFORMW 「服がびしょびしょーだわー…　早く屋根のある場所に行きましょ！」
  545. ELSE
  546. PRINTFORMW 「今日は珍しく涼しいわねー」
  547. ENDIF
  548. CASEELSE
  549. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  550. ENDSELECT
  551. ;昼
  552. ELSEIF TIME:2 == 3 || TIME:2 == 4
  553. SELECTCASE TIME:5
  554. ;晴れ
  555. CASE 0, 1
  556. ;外か内か
  557. IF (OUTROOF(CFLAG:TARGET:現在位置)) || CFLAG:TARGET:現在位置 == 10
  558. SELECTCASE RAND:2
  559. CASE 1
  560. PRINTFORMW 「ほんと夏は暑くてしかたないわねー」
  561. CASEELSE
  562. PRINTFORMW 「あーもー服が汗でベタベタよー」
  563. SIF TALENT:Lover
  564. PRINTFORMW 「後で一緒にお風呂にでも入って汗を流しましょう」
  565. ENDSELECT
  566. ELSE
  567. PRINTFORMW 「外は暑そうねー」
  568. PRINTFORMW 「そういえば%CALLNAME:MASTER%は暑いのは得意？」
  569. ENDIF
  570. ;曇り
  571. CASE 2, 3
  572. ;外か内か
  573. IF (OUTROOF(CFLAG:TARGET:現在位置))
  574. SELECTCASE RAND:2
  575. CASE 1
  576. PRINTFORMW 「曇っているおかげで少しは涼しいわね%UNICODE(0x2665)%」
  577. PRINTFORMW 「…その代わり、すこーししけっぽいかな」
  578. CASEELSE
  579. PRINTFORMW 「今日は天気悪いわねー、雨にならないといいけど…」
  580. SIF TALENT:Lover || TALENT:Love || CFLAG:1014 == 1
  581. PRINTFORMW （でもよく考えれば雨が降れば相合傘ができるわね。　すてきー%UNICODE(0x2665)%）
  582. ENDSELECT
  583. ELSE
  584. PRINTFORMW 「曇ってるわねー。　まあ、その分少し涼しいからいいんだけどさ」
  585. ENDIF
  586. ;雨
  587. CASE 4, 5
  588. ;外か内か
  589. IF (OUTROOF(CFLAG:TARGET:現在位置))
  590. PRINTFORMW 「うわーっ！　ひどい雨ね！」
  591. ;相合傘なら分岐
  592. IF TEQUIP:201 == 1
  593. IF TALENT:Lover
  594. PRINTFORMW 「まあ、そのおかげで相合傘が出来るんだけどね%UNICODE(0x2665)%」
  595. PRINTFORMW 「あははは%UNICODE(0x2665)%」
  596. ELSEIF TALENT:Love || CFLAG:1014 == 1
  597. PRINTFORMW 「…でも、雨が降っているから相合傘ができるのよね」
  598. PRINTFORMW 「そう考えると、雨ってなんかしあわせだわ%UNICODE(0x2665)%//」
  599. ELSE
  600. PRINTFORMW 「でも、傘があるから平気ね%UNICODE(0x2665)%」
  601. ENDIF
  602. ELSE
  603. PRINTFORMW 「早く屋根のある場所に行きましょ！」
  604. ENDIF
  605. ELSE
  606. PRINTFORMW 「うわー、外はすごい雨ねー」
  607. ENDIF
  608. ;霧、霧雨
  609. CASE 6, 7
  610. ;外か内か
  611. IF (OUTROOF(CFLAG:TARGET:現在位置))
  612. PRINTFORMW 「うわー%UNICODE(0x2665)% すずしーい%UNICODE(0x2665)% 気持ちいいー%UNICODE(0x2665)%」
  613. SIF TIME:5 == 6
  614. PRINTFORMW 「服がびしょびしょーだわー…　早く屋根のある場所に行きましょ！」
  615. ELSE
  616. PRINTFORMW 「今日は珍しく涼しいわねー」
  617. ENDIF
  618. CASEELSE
  619. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  620. ENDSELECT
  621. ;夜
  622. ELSEIF TIME:2 >= 5 && TIME:2 <= 7
  623. SELECTCASE TIME:5
  624. ;晴れ
  625. CASE 0, 1
  626. ;外か内か
  627. IF (MOON_WATCH_POINT(CFLAG:TARGET:現在位置))
  628. CALL M_KOJO_MESSAGE_COM_K44_300_1_MOON_WATCH
  629. ELSE
  630. PRINTFORMW 「ねえねえ、外に出て月でも見ない？」
  631. ENDIF
  632. ;曇り
  633. CASE 2, 3
  634. ;外か内か
  635. IF (MOON_WATCH_POINT(CFLAG:TARGET:現在位置))
  636. PRINTFORMW 「曇ってるせいで月も星もよく見えないわねー…」
  637. PRINTFORMW 「まあ、その分少し涼しいからまだいいけどさ」
  638. ELSE
  639. PRINTFORMW 「曇ってるわねー。　まあ、その代わり少しだけ涼しいからいいけど」
  640. ENDIF
  641. ;雨
  642. CASE 4, 5
  643. ;外か内か
  644. IF (OUTROOF(CFLAG:TARGET:現在位置))
  645. PRINTFORMW 「うわーっ！　ひどい雨ね！」
  646. ;相合傘なら分岐
  647. IF TEQUIP:201 == 1
  648. IF TALENT:Lover
  649. PRINTFORMW 「まあ、そのおかげで相合傘が出来るんだけどね%UNICODE(0x2665)%」
  650. PRINTFORMW 「これなら月が無くても元気になるわ%UNICODE(0x2665)%」
  651. ELSEIF TALENT:Love || CFLAG:1014 == 1
  652. PRINTFORMW 「…でも、雨が降っているから相合傘ができるのよね」
  653. PRINTFORMW 「そう考えると、雨ってなんかしあわせだわ%UNICODE(0x2665)%//」
  654. ELSE
  655. PRINTFORMW 「でも、傘があるから平気ね%UNICODE(0x2665)%　…月は見えないけどさ」
  656. ENDIF
  657. ELSE
  658. PRINTFORMW 「早く屋根のある場所に行きましょ！」
  659. ENDIF
  660. ELSE
  661. PRINTFORMW 「うわー、外はすごい雨ねー」
  662. PRINTFORMW 「これじゃ今日は月も星も見えないわね」
  663. ENDIF
  664. ;霧、霧雨
  665. CASE 6, 7
  666. ;外か内か
  667. IF (MOON_WATCH_POINT(CFLAG:TARGET:現在位置))
  668. PRINTFORMW 「霧のせいで月も星もよく見えないわねー…」
  669. PRINTFORMW 「涼しいからまあいいけどさ」
  670. ELSE
  671. PRINTFORMW 「霧が深いわねー、せっかくの夜なのにさ」
  672. ENDIF
  673. CASEELSE
  674. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  675. ENDSELECT
  676. ENDIF
  677. ;秋
  678. ELSEIF DAY:2 == 3
  679. ;朝
  680. IF TIME:2 == 1 || TIME:2 == 2
  681. SELECTCASE TIME:5
  682. ;晴れ
  683. CASE 0, 1
  684. ;外か内か
  685. IF (OUTROOF(CFLAG:TARGET:現在位置)) || CFLAG:TARGET:現在位置 == 10
  686. PRINTFORMW 「お日様の光が気持ちいいわねー%UNICODE(0x2665)% %CALLNAME:MASTER%」
  687. ELSE
  688. PRINTFORMW 「今日もいい天気だわ%UNICODE(0x2665)%」
  689. ENDIF
  690. ;曇り
  691. CASE 2, 3
  692. ;外か内か
  693. IF (OUTROOF(CFLAG:TARGET:現在位置))
  694. SELECTCASE RAND:2
  695. CASE 1
  696. PRINTFORMW 「曇ってるわねー」
  697. PRINTFORMW 「早く晴れないかしら」
  698. CASEELSE
  699. PRINTFORMW 「今日は天気悪いわねー、雨にならないといいけど…」
  700. SIF TALENT:Lover || TALENT:Love || CFLAG:1014 == 1
  701. PRINTFORMW （でもよく考えれば雨が降れば相合傘ができるわね。　すてきー%UNICODE(0x2665)%）
  702. ENDSELECT
  703. ELSE
  704. PRINTFORMW 「曇ってるわねー、なんだか気が滅入るわ」
  705. ENDIF
  706. ;雨
  707. CASE 4, 5
  708. ;外か内か
  709. IF (OUTROOF(CFLAG:TARGET:現在位置))
  710. PRINTFORMW 「うわーっ！　ひどい雨ね！」
  711. ;相合傘なら分岐
  712. IF TEQUIP:201 == 1
  713. IF TALENT:Lover
  714. PRINTFORMW 「まあ、そのおかげで相合傘が出来るんだけどね%UNICODE(0x2665)%」
  715. PRINTFORMW 「あははは%UNICODE(0x2665)%」
  716. ELSEIF TALENT:Love || CFLAG:1014 == 1
  717. PRINTFORMW 「…でも、雨が降っているから相合傘ができるのよね」
  718. PRINTFORMW 「そう考えると、雨ってなんかしあわせだわ%UNICODE(0x2665)%//」
  719. ELSE
  720. PRINTFORMW 「でも、傘があるから平気ね%UNICODE(0x2665)%」
  721. ENDIF
  722. ELSE
  723. PRINTFORMW 「早く屋根のある場所に行きましょ！」
  724. ENDIF
  725. ELSE
  726. PRINTFORMW 「うわー、外はすごい雨ねー」
  727. ENDIF
  728. ;霧、霧雨
  729. CASE 6, 7
  730. ;外か内か
  731. IF (OUTROOF(CFLAG:TARGET:現在位置))
  732. PRINTFORMW 「うわー、さむーい」
  733. SIF TIME:5 == 6
  734. PRINTFORMW 「服がびしょびしょーだわー…　早く屋根のある場所に行きましょ！」
  735. ELSE
  736. PRINTFORMW 「今日は霧が深いわねー」
  737. ENDIF
  738. CASEELSE
  739. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  740. ENDSELECT
  741. ;昼
  742. ELSEIF TIME:2 == 3 || TIME:2 == 4
  743. SELECTCASE TIME:5
  744. ;晴れ
  745. CASE 0, 1
  746. ;外か内か
  747. IF (OUTROOF(CFLAG:TARGET:現在位置)) || CFLAG:TARGET:現在位置 == 10
  748. PRINTFORMW 「お日様の光が気持ちいいわねー%UNICODE(0x2665)% %CALLNAME:MASTER%」
  749. ELSE
  750. PRINTFORMW 「今日もいい天気だわ%UNICODE(0x2665)%」
  751. ENDIF
  752. ;曇り
  753. CASE 2, 3
  754. ;外か内か
  755. IF (OUTROOF(CFLAG:TARGET:現在位置))
  756. SELECTCASE RAND:2
  757. CASE 1
  758. PRINTFORMW 「曇ってるわねー」
  759. PRINTFORMW 「早く晴れないかしら」
  760. CASEELSE
  761. PRINTFORMW 「今日は天気悪いわねー、雨にならないといいけど…」
  762. SIF TALENT:Lover || TALENT:Love || CFLAG:1014 == 1
  763. PRINTFORMW （でもよく考えれば雨が降れば相合傘ができるわね。　すてきー%UNICODE(0x2665)%）
  764. ENDSELECT
  765. ELSE
  766. PRINTFORMW 「曇ってるわねー、なんだか気分が滅入るわ」
  767. ENDIF
  768. ;雨
  769. CASE 4, 5
  770. ;外か内か
  771. IF (OUTROOF(CFLAG:TARGET:現在位置))
  772. PRINTFORMW 「うわーっ！　ひどい雨ね！」
  773. ;相合傘なら分岐
  774. IF TEQUIP:201 == 1
  775. IF TALENT:Lover
  776. PRINTFORMW 「まあ、そのおかげで相合傘が出来るんだけどね%UNICODE(0x2665)%」
  777. PRINTFORMW 「あははは%UNICODE(0x2665)%」
  778. ELSEIF TALENT:Love || CFLAG:1014 == 1
  779. PRINTFORMW 「…でも、雨が降っているから相合傘ができるのよね」
  780. PRINTFORMW 「そう考えると、雨ってなんかしあわせだわ%UNICODE(0x2665)%//」
  781. ELSE
  782. PRINTFORMW 「でも、傘があるから平気ね%UNICODE(0x2665)%」
  783. ENDIF
  784. ELSE
  785. PRINTFORMW 「早く屋根のある場所に行きましょ！」
  786. ENDIF
  787. ELSE
  788. PRINTFORMW 「うわー、外はすごい雨ねー」
  789. ENDIF
  790. ;霧、霧雨
  791. CASE 6, 7
  792. ;外か内か
  793. IF (OUTROOF(CFLAG:TARGET:現在位置))
  794. PRINTFORMW 「うわー、さむーい」
  795. SIF TIME:5 == 6
  796. PRINTFORMW 「服がびしょびしょーだわー…　早く屋根のある場所に行きましょ！」
  797. ELSE
  798. PRINTFORMW 「今日はけっこう寒いわねー、夏がなつかしいわ」
  799. PRINTFORMW 「……先に言っとくけど、今のは狙って言ったんじゃないわよ」
  800. ENDIF
  801. CASEELSE
  802. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  803. ENDSELECT
  804. ;夜
  805. ELSEIF TIME:2 >= 5 && TIME:2 <= 7
  806. SELECTCASE TIME:5
  807. ;晴れ
  808. CASE 0, 1
  809. ;外か内か
  810. IF (MOON_WATCH_POINT(CFLAG:TARGET:現在位置))
  811. CALL M_KOJO_MESSAGE_COM_K44_300_1_MOON_WATCH
  812. ELSE
  813. PRINTFORMW 「ねえねえ、外に出て月でも見ない？」
  814. ENDIF
  815. ;曇り
  816. CASE 2, 3
  817. ;外か内か
  818. IF (MOON_WATCH_POINT(CFLAG:TARGET:現在位置))
  819. PRINTFORMW 「曇ってるせいで月も星もよく見えないわねー…」
  820. PRINTFORMW 「明日は晴れないかしら」
  821. ELSE
  822. PRINTFORMW 「曇ってるわねー、せっかくの夜なのにさ」
  823. ENDIF
  824. ;雨
  825. CASE 4, 5
  826. ;外か内か
  827. IF (OUTROOF(CFLAG:TARGET:現在位置))
  828. PRINTFORMW 「うわーっ！　ひどい雨ね！」
  829. ;相合傘なら分岐
  830. IF TEQUIP:201 == 1
  831. IF TALENT:Lover
  832. PRINTFORMW 「まあ、そのおかげで相合傘が出来るんだけどね%UNICODE(0x2665)%」
  833. PRINTFORMW 「これなら月が無くても元気になるわ%UNICODE(0x2665)%」
  834. ELSEIF TALENT:Love || CFLAG:1014 == 1
  835. PRINTFORMW 「…でも、雨が降っているから相合傘ができるのよね」
  836. PRINTFORMW 「そう考えると…、雨ってなんかしあわせだわ%UNICODE(0x2665)%//」
  837. ELSE
  838. PRINTFORMW 「でも、傘があるから平気ね%UNICODE(0x2665)%　…月は見えないけどさ」
  839. ENDIF
  840. ELSE
  841. PRINTFORMW 「早く屋根のある場所に行きましょ！」
  842. ENDIF
  843. ELSE
  844. PRINTFORMW 「うわー、外はすごい雨ねー」
  845. PRINTFORMW 「これじゃ今日は月も星も見えないわね」
  846. ENDIF
  847. ;霧、霧雨
  848. CASE 6, 7
  849. ;外か内か
  850. IF (MOON_WATCH_POINT(CFLAG:TARGET:現在位置))
  851. PRINTFORMW 「霧のせいで月も星もよく見えないわねー…」
  852. PRINTFORMW 「明日は晴れないかしら」
  853. ELSE
  854. PRINTFORMW 「霧が深いわねー、せっかくの夜なのにさ」
  855. ENDIF
  856. CASEELSE
  857. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  858. ENDSELECT
  859. ENDIF
  860. ;冬
  861. ELSEIF DAY:2 == 4
  862. ;朝
  863. IF TIME:2 == 1 || TIME:2 == 2
  864. SELECTCASE TIME:5
  865. ;晴れ
  866. CASE 0, 1
  867. ;外か内か
  868. IF (OUTROOF(CFLAG:TARGET:現在位置)) || CFLAG:TARGET:現在位置 == 10
  869. PRINTFORMW 「うわー、さむーい、息がしろーい」
  870. PRINTFORMW 「もう冬なのねー、時の流れを実感するわ」
  871. ELSE
  872. PRINTFORMW 「今日もいい天気だわ%UNICODE(0x2665)%」
  873. ENDIF
  874. ;曇り
  875. CASE 2, 3
  876. ;外か内か
  877. IF (OUTROOF(CFLAG:TARGET:現在位置))
  878. SELECTCASE RAND:2
  879. CASE 1
  880. PRINTFORMW 「曇ってるわねー」
  881. PRINTFORMW 「早く晴れないかしら」
  882. CASEELSE
  883. PRINTFORMW 「今日は天気悪いわねー、雨にならないといいけど…」
  884. SIF TALENT:Lover || TALENT:Love || CFLAG:1014 == 1
  885. PRINTFORMW （でもよく考えれば雨が降れば相合傘ができるわね。　すてきー%UNICODE(0x2665)%）
  886. ENDSELECT
  887. ELSE
  888. PRINTFORMW 「曇ってるわねー、なんだか気が滅入るわ」
  889. ENDIF
  890. ;雨
  891. CASE 4, 5
  892. ;外か内か
  893. IF (OUTROOF(CFLAG:TARGET:現在位置))
  894. PRINTFORMW 「うわーっ！　ひどい雨ね！」
  895. ;相合傘なら分岐
  896. IF TEQUIP:201 == 1
  897. IF TALENT:Lover
  898. PRINTFORMW 「まあ、そのおかげで相合傘が出来るんだけどね%UNICODE(0x2665)%」
  899. PRINTFORMW 「あははは%UNICODE(0x2665)%」
  900. ELSEIF TALENT:Love || CFLAG:1014 == 1
  901. PRINTFORMW 「…でも、雨が降っているから相合傘ができるのよね」
  902. PRINTFORMW 「そう考えると、雨ってなんかしあわせだわ%UNICODE(0x2665)%//」
  903. ELSE
  904. PRINTFORMW 「でも、傘があるから平気ね%UNICODE(0x2665)%」
  905. ENDIF
  906. ELSE
  907. PRINTFORMW 「早く屋根のある場所に行きましょ！」
  908. ENDIF
  909. ELSE
  910. PRINTFORMW 「うわー、外はすごい雨ねー、ただでさえ寒いのにより寒くなってるー」
  911. ENDIF
  912. ;霧、霧雨
  913. CASE 6, 7
  914. ;外か内か
  915. IF (OUTROOF(CFLAG:TARGET:現在位置))
  916. PRINTFORMW 「幻想的で綺麗だわねー%UNICODE(0x2665)% 素敵%UNICODE(0x2665)%」
  917. ELSE
  918. PRINTFORMW 「今日は霧が深いわねー、ただでさえ寒いのに日が差さないからほんと寒いわ」
  919. ENDIF
  920. ;雪
  921. CASE 8, 9, 10, 11
  922. ;外か内か
  923. IF (OUTROOF(CFLAG:TARGET:現在位置))
  924. PRINTFORMW 「うわー%UNICODE(0x2665)%　ねえねえ雪よ雪%UNICODE(0x2665)% きれいー%UNICODE(0x2665)%」
  925. IF TALENT:Lover || TALENT:Love || CFLAG:1014 == 1
  926. PRINTFORMW 「…ねえ、ちょっとだけでいいから%CALLNAME:MASTER%に抱きついてもいい？//」
  927. ELSE
  928. PRINTFORMW 「…まあ、降り切った後は雪かきとかで大変なんだけどね」
  929. PRINTFORMW 「それでも喜ばずにはいられないわ%UNICODE(0x2665)%」
  930. ENDIF
  931. ELSE
  932. PRINTFORMW 「うわー%UNICODE(0x2665)%　ねえねえ雪よ雪%UNICODE(0x2665)% きれいねー%UNICODE(0x2665)%」
  933. ENDIF
  934. ;霙、霰
  935. CASE 12, 13
  936. ;外か内か
  937. IF (OUTROOF(CFLAG:TARGET:現在位置))
  938. PRINTFORMW 「きゃーっ！　ひどい天気だわねー」
  939. PRINTFORMW 「早く屋根のある場所に行きましょ！」
  940. ELSE
  941. PRINTFORMW 「外はひどい天気ね、外出は控えましょ」
  942. ENDIF
  943. CASEELSE
  944. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  945. ENDSELECT
  946. ;昼
  947. ELSEIF TIME:2 == 3 || TIME:2 == 4
  948. SELECTCASE TIME:5
  949. ;晴れ
  950. CASE 0, 1
  951. ;外か内か
  952. IF (OUTROOF(CFLAG:TARGET:現在位置)) || CFLAG:TARGET:現在位置 == 10
  953. PRINTFORMW 「うわー、さむーい、息がしろーい」
  954. PRINTFORMW 「もう冬なのねー、時の流れを実感するわ」
  955. ELSE
  956. PRINTFORMW 「今日もいい天気だわ%UNICODE(0x2665)%」
  957. ENDIF
  958. ;曇り
  959. CASE 2, 3
  960. ;外か内か
  961. IF (OUTROOF(CFLAG:TARGET:現在位置))
  962. SELECTCASE RAND:2
  963. CASE 1
  964. PRINTFORMW 「曇ってるわねー」
  965. PRINTFORMW 「早く晴れないかしら」
  966. CASEELSE
  967. PRINTFORMW 「今日は天気悪いわねー、雨にならないといいけど…」
  968. SIF TALENT:Lover || TALENT:Love || CFLAG:1014 == 1
  969. PRINTFORMW （でもよく考えれば雨が降れば相合傘ができるわね。　すてきー%UNICODE(0x2665)%）
  970. ENDSELECT
  971. ELSE
  972. PRINTFORMW 「曇ってるわねー、なんだか気が滅入るわ」
  973. ENDIF
  974. ;雨
  975. CASE 4, 5
  976. ;外か内か
  977. IF (OUTROOF(CFLAG:TARGET:現在位置))
  978. PRINTFORMW 「うわーっ！　ひどい雨ね！」
  979. ;相合傘なら分岐
  980. IF TEQUIP:201 == 1
  981. IF TALENT:Lover
  982. PRINTFORMW 「まあ、そのおかげで相合傘が出来るんだけどね%UNICODE(0x2665)%」
  983. PRINTFORMW 「あははは%UNICODE(0x2665)%」
  984. ELSEIF TALENT:Love || CFLAG:1014 == 1
  985. PRINTFORMW 「…でも、雨が降っているから相合傘ができるのよね」
  986. PRINTFORMW 「そう考えると…、雨ってなんかしあわせだわ%UNICODE(0x2665)%//」
  987. ELSE
  988. PRINTFORMW 「でも、傘があるから平気ね%UNICODE(0x2665)%」
  989. ENDIF
  990. ELSE
  991. PRINTFORMW 「早く屋根のある場所に行きましょ！」
  992. ENDIF
  993. ELSE
  994. PRINTFORMW 「うわー、外はすごい雨ねー、ただでさえ寒いのにより寒くなってるー」
  995. ENDIF
  996. ;霧、霧雨
  997. CASE 6, 7
  998. ;外か内か
  999. IF (OUTROOF(CFLAG:TARGET:現在位置))
  1000. PRINTFORMW 「幻想的で綺麗だわねー%UNICODE(0x2665)%　素敵%UNICODE(0x2665)%」
  1001. ELSE
  1002. PRINTFORMW 「今日は霧が深いわねー、ただでさえ寒いのに日が差さないからほんと寒いわ」
  1003. ENDIF
  1004. ;雪
  1005. CASE 8, 9, 10, 11
  1006. ;外か内か
  1007. IF (OUTROOF(CFLAG:TARGET:現在位置))
  1008. PRINTFORMW 「うわー%UNICODE(0x2665)%　ねえねえ雪よ雪%UNICODE(0x2665)% きれいー%UNICODE(0x2665)%」
  1009. IF TALENT:Lover || TALENT:Love || CFLAG:1014 == 1
  1010. PRINTFORMW 「…ねえ、ちょっとだけでいいから%CALLNAME:MASTER%に抱きついてもいい？//」
  1011. ELSE
  1012. PRINTFORMW 「…まあ、降り切った後は雪かきとかで大変なんだけどね」
  1013. PRINTFORMW 「それでも喜ばずにはいられないわ%UNICODE(0x2665)%」
  1014. ENDIF
  1015. ELSE
  1016. PRINTFORMW 「うわー%UNICODE(0x2665)%　ねえねえ雪よ雪%UNICODE(0x2665)% きれいねー%UNICODE(0x2665)%」
  1017. ENDIF
  1018. ;霙、霰
  1019. CASE 12, 13
  1020. ;外か内か
  1021. IF (OUTROOF(CFLAG:TARGET:現在位置))
  1022. PRINTFORMW 「きゃーっ！　ひどい天気だわねー」
  1023. PRINTFORMW 「早く屋根のある場所に行きましょ！」
  1024. ELSE
  1025. PRINTFORMW 「外はひどい天気ね、外出は控えましょ」
  1026. ENDIF
  1027. CASEELSE
  1028. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  1029. ENDSELECT
  1030. ;夜
  1031. ELSEIF TIME:2 >= 5 && TIME:2 <= 7
  1032. SELECTCASE TIME:5
  1033. ;晴れ
  1034. CASE 0, 1
  1035. ;外か内か
  1036. IF (MOON_WATCH_POINT(CFLAG:TARGET:現在位置))
  1037. CALL M_KOJO_MESSAGE_COM_K44_300_1_MOON_WATCH
  1038. ELSE
  1039. PRINTFORMW 「ねえねえ、外に出て月でも見ない？」
  1040. ENDIF
  1041. ;曇り
  1042. CASE 2, 3
  1043. ;外か内か
  1044. IF (MOON_WATCH_POINT(CFLAG:TARGET:現在位置))
  1045. PRINTFORMW 「曇ってるせいで月も星もよく見えないわねー…」
  1046. PRINTFORMW 「明日は晴れないかしら」
  1047. ELSE
  1048. PRINTFORMW 「曇ってるわねー、せっかくの夜なのにさ」
  1049. ENDIF
  1050. ;雨
  1051. CASE 4, 5
  1052. ;外か内か
  1053. IF (OUTROOF(CFLAG:TARGET:現在位置))
  1054. PRINTFORMW 「うわーっ！　ひどい雨ね！」
  1055. ;相合傘なら分岐
  1056. IF TEQUIP:201 == 1
  1057. IF TALENT:Lover
  1058. PRINTFORMW 「まあ、そのおかげで相合傘が出来るんだけどね%UNICODE(0x2665)%」
  1059. PRINTFORMW 「これなら月が無くても元気になるわ%UNICODE(0x2665)%」
  1060. ELSEIF TALENT:Love || CFLAG:1014 == 1
  1061. PRINTFORMW 「…でも、雨が降っているから相合傘ができるのよね」
  1062. PRINTFORMW 「そう考えると…、雨ってなんかしあわせだわ%UNICODE(0x2665)%//」
  1063. ELSE
  1064. PRINTFORMW 「でも、傘があるから平気ね%UNICODE(0x2665)%　…月は見えないけどさ」
  1065. ENDIF
  1066. ELSE
  1067. PRINTFORMW 「早く屋根のある場所に行きましょ！」
  1068. ENDIF
  1069. ELSE
  1070. PRINTFORMW 「うわー、外はすごい雨ねー」
  1071. PRINTFORMW 「これじゃ今日は月も星も見えないわね」
  1072. ENDIF
  1073. ;霧、霧雨
  1074. CASE 6, 7
  1075. ;外か内か
  1076. IF (MOON_WATCH_POINT(CFLAG:TARGET:現在位置))
  1077. PRINTFORMW 「霧のせいで月も星もよく見えないわねー…」
  1078. PRINTFORMW 「明日は晴れないかしら」
  1079. ELSE
  1080. PRINTFORMW 「霧が深いわねー、せっかくの夜なのにさ」
  1081. ENDIF
  1082. ;雪
  1083. CASE 8, 9, 10, 11
  1084. ;外か内か
  1085. IF (OUTROOF(CFLAG:TARGET:現在位置))
  1086. PRINTFORMW 「うわー%UNICODE(0x2665)%　ねえねえ雪よ雪%UNICODE(0x2665)% きれいー%UNICODE(0x2665)%」
  1087. IF TALENT:Lover
  1088. PRINTFORMW 「夜の雪ってほんとロマンチックよねー%UNICODE(0x2665)%」
  1089. PRINTFORMW 「%CALLNAME:MASTER%と一緒にこの景色を見れて幸せだわ%UNICODE(0x2665)%」
  1090. ELSEIF TALENT:Love || CFLAG:1014 == 1
  1091. PRINTFORMW 「夜の雪ってほんとロマンチックよねー%UNICODE(0x2665)%」
  1092. PRINTFORMW 「…ねえ、ちょっとだけでいいから%CALLNAME:MASTER%に抱きついてもいい？//」
  1093. ELSE
  1094. PRINTFORMW 「…まあ、降り切った後は雪かきとかで大変なんだけどね」
  1095. PRINTFORMW 「それでも喜ばずにはいられないわ%UNICODE(0x2665)%」
  1096. ENDIF
  1097. ELSE
  1098. PRINTFORMW 「うわー%UNICODE(0x2665)%　ねえねえ雪よ雪%UNICODE(0x2665)% 積もるかしら%UNICODE(0x2665)%」
  1099. PRINTFORMW 「…まあ、積もると雪かきとかで大変なんだけどね」
  1100. PRINTFORMW 「それでも喜ばずにはいられないわ%UNICODE(0x2665)%」
  1101. ENDIF
  1102. ;霙、霰
  1103. CASE 12, 13
  1104. ;外か内か
  1105. IF (OUTROOF(CFLAG:TARGET:現在位置))
  1106. PRINTFORMW 「きゃーっ！　ひどい天気だわねー」
  1107. PRINTFORMW 「早く屋根のある場所に行きましょ！」
  1108. ELSE
  1109. PRINTFORMW 「外はひどい天気ね、外出は控えましょ」
  1110. ENDIF
  1111. CASEELSE
  1112. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  1113. ENDSELECT
  1114. ENDIF
  1115. ENDIF
  1116. ;場所に応じて変化
  1117. CASE 3
  1118. SELECTCASE CFLAG:44:現在位置
  1119. ;デート道中
  1120. CASE 100 TO 109,200 TO 209,300 TO 309,400 TO 409,500 TO 509,600 TO 609,700 TO 709,800 TO 809,900 TO 909
  1121. IF TALENT:Lover && TALENT:Love
  1122. SELECTCASE RAND:2
  1123. CASE 1
  1124. PRINTFORMW 「ただ歩いているだけでも、%CALLNAME:MASTER%と一緒ならとっても楽しいわ%UNICODE(0x2665)%」
  1125. CASEELSE
  1126. PRINTFORMW 「あははは%UNICODE(0x2665)%」
  1127. ENDSELECT
  1128. ELSEIF TALENT:Love || CFLAG:1014 == 1 || TALENT:Lover
  1129. PRINTFORMW 「あははは%UNICODE(0x2665)%」
  1130. ELSE
  1131. PRINTFORMW 「目的地まであとどれくらいかしら？」
  1132. ENDIF
  1133. ;妖怪の山
  1134. CASE 710 TO 750, 810 TO 820
  1135. PRINTFORMW 「やっまっをある～こう♪　やっまっあっるき～♪」
  1136. ;月
  1137. CASE 1050 TO 1090
  1138. SELECTCASE RAND:2
  1139. CASE 1
  1140. PRINTFORMW 「しかし月に行けるなんてねー」
  1141. CASEELSE
  1142. PRINTFORMW 「月の石を持って帰りたいけど…　まあ、駄目よね」
  1143. ENDSELECT
  1144. ;ボロ小屋は昔エレンの店だったという脳内設定
  1145. CASE 16
  1146. IF FIRSTTIME(1003)
  1147. ;物覚えが悪いといってもどこに店を出していたかはちゃんと覚えているエレン、こまめに記録しているのだろうか
  1148. IF FLAG:15 == 44
  1149. PRINTFORMW 「ここに住むのも久しぶりねー%UNICODE(0x2665)%」
  1150. ELSEIF FLAG:116 > 2000
  1151. PRINTFORMW 「けほっ、どーして少しほったらかしただけでほこりだらけになるのかしら」
  1152. ELSE
  1153. PRINTFORM 「あや、思ったより綺麗だわ。　……もしかして霊夢
  1154. IF ABL:Intimacy > 2
  1155. PRINTFORMW か%CALLNAME:MASTER%が掃除してくれてるの？」
  1156. ELSE
  1157. PRINTFORMW が掃除してくれてるのかしら？」
  1158. ENDIF
  1159. ENDIF
  1160. PRINTFORMW 「あ、そういえば%CALLNAME:MASTER%にはまだ言っていなかったわね」
  1161. PRINTFORMW 「実は昔、ここで魔法屋をやっていたの%UNICODE(0x2665)%」
  1162. ;エレンが住み込んでいる場合
  1163. IF FLAG:15 == 44
  1164. PRINTFORMW 「けっきょく店は別の場所に移したんだけどね」
  1165. PRINTFORMW 「えっ？なんで神社に戻ってきたかって？」
  1166. IF TALENT:Lover
  1167. PRINTFORMW 「そりゃあもちろん%CALLNAME:MASTER%が居るからよ%UNICODE(0x2665)%」
  1168. ELSE
  1169. PRINTFORMW 「それは…%CALLNAME:MASTER%のことが好きだから//」
  1170. IF CFLAG:1004 == 0 && !TALENT:MASTER:Lover && !(CFLAG:13 & 2) && BASE:Mood >= 1000 && !MARK:反発刻印
  1171. PRINTFORMW 「……この際だから言うわ」
  1172. PRINTFORMW 「わたしは%CALLNAME:MASTER%のことが好き、だから…//」
  1173. PRINTFORMW 「わたしの恋人になってくれる？//」
  1174. PRINTFORMDL エレンの告白を…
  1175. PRINTFORMD [1] - 受ける
  1176. PRINTDL 　- 恋人は1人としか取得出来ません -
  1177. PRINTFORMD [2] - 断る
  1178. $INPUT_LOOP
  1179. INPUT
  1180. IF RESULT > 2 || RESULT < 1
  1181. CLEARLINE 1
  1182. GOTO INPUT_LOOP
  1183. ELSEIF RESULT == 1
  1184. SETBIT CFLAG:既成事実 , 2
  1185. SETBIT CFLAG:MASTER:既成事実, 2
  1186. TALENT:MASTER:Lover = 44
  1187. TALENT:Lover = 44
  1188. TALENT:Humor = 1
  1189. SETBIT CFLAG:13 , 1
  1190. CALL KOJO_MESSAGE_SEND("SP_EVENT",2,44,RESULT)
  1191. PRINTL
  1192. PRINTFORMDW エレンと恋人になりました
  1193. ELSE
  1194. CALL KOJO_MESSAGE_SEND("SP_EVENT",2,44,RESULT)
  1195. ENDIF
  1196. ENDIF
  1197. ENDIF
  1198. ;エレン以外が住み込んでいる場合
  1199. ELSEIF FLAG:15
  1200. PRINTFORMW 「けっきょく店は別の場所に移したけど今は%CALLNAME:(FLAG:15)%が住んでるとはねー」
  1201. IF TALENT:Love
  1202. PRINTFORMW 「本当はわたしが住みたかったなー」
  1203. ELSE
  1204. PRINTFORMW 「まあ、別にどうでもいいんだけどね。もしかしたら戻るかもしれなかったけど」
  1205. ENDIF
  1206. ELSE
  1207. PRINTFORMW 「けっきょく店は別の場所に移したけどまだ残っていたとはねー」
  1208. PRINTFORMW 「あとで霊夢にお礼を言わないと」
  1209. ENDIF
  1210. ELSEIF FLAG:15 == 44 && CFLAG:1016 == 1
  1211. GOTO OMISE
  1212. ELSE
  1213. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  1214. ENDIF
  1215. CASE 広場
  1216. IF TIME_PROGRESS(TCVAR:デザート空腹時刻)
  1217. PRINTFORMW 「広場には美味しい甘味処があるの、どうせだし寄ってかない？」
  1218. ELSE
  1219. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  1220. ENDIF
  1221. CASE 廃洋館
  1222. IF GET_TARGETNUM() == 1
  1223. PRINTFORMW 「うわー%UNICODE(0x2665)% おやしきー%UNICODE(0x2665)%　でかーい%UNICODE(0x2665)% ぼろっちいー%UNICODE(0x2665)% でもきれーい%UNICODE(0x2665)%」
  1224. ELSE
  1225. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  1226. ENDIF
  1227. CASE OMANEKIBEYA()
  1228. $OMISE
  1229. IF RAND:2 == 1
  1230. IF TALENT:Lover
  1231. PRINTFORMW 「わたしのお店の居心地はどうかしら%UNICODE(0x2665)%」
  1232. ELSEIF TALENT:Love || CFLAG:1014 == 1
  1233. PRINTFORMW 「ねえねえ、わたしのお店の居心地はどう？」
  1234. ELSE
  1235. PRINTFORMW 「わたしのお店はどうかしら？」
  1236. ENDIF
  1237. ELSE
  1238. SELECTCASE RAND:4
  1239. CASE 1
  1240. ;８時～２１時ならお客が来る
  1241. IF TIME:0 >= 480 && TIME:0 <= 1260
  1242. PRINTFORMW 「――って、お客さんだわ。　いらっしゃいませー%UNICODE(0x2665)%」
  1243. ELSE
  1244. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  1245. ENDIF
  1246. CASEELSE
  1247. PRINT 「ああ、それは
  1248. SELECTCASE RAND:4
  1249. CASE 1
  1250. PRINTW 自信をつける薬よ」
  1251. CASE 2
  1252. PRINTW 妖精よけの魔法よ」
  1253. CASE 3
  1254. PRINTW 呪い止めよ、首からさげて使うの」
  1255. CASEELSE
  1256. PRINTFORMW 静電気防止スプレーよ、これがないと色々と大変なの」
  1257. ENDSELECT
  1258. ENDSELECT
  1259. ENDIF
  1260. ;未実装の場所は汎用に
  1261. CASEELSE
  1262. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  1263. ENDSELECT
  1264. CASEELSE
  1265. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  1266. ENDSELECT
  1267. ENDIF
  1268. ENDIF
  1269. RETURN 1
  1270.  
  1271. ;月見用
  1272. @M_KOJO_MESSAGE_COM_K44_300_1_MOON_WATCH
  1273. SELECTCASE MOON_WATCH(DAY:3)
  1274. CASE 1
  1275. PRINTFORMW 「しかし見えないのに見えるってのもおかしな話だわねー」
  1276. IF CFLAG:1013 == 0
  1277. ;新月に願い事をすると満月に向かって事が成っていくという。面倒だから即叶うようにしてるけど
  1278. PRINTFORMW 「せっかくだし、月に向かって願い事でもしましょ%UNICODE(0x2665)%」
  1279. $LOOP
  1280. PRINTFORMDL 何を願おうか…
  1281. PRINTDL [0] エレンともっと仲良くなりたい
  1282. PRINTDL [1] お金が欲しい
  1283. PRINTDL [2] 特に無い
  1284. INPUT
  1285. IF RESULT == 0
  1286. PRINTFORMDW %CALLNAME:MASTER%はエレンとの仲を願った…
  1287. ;願掛けをもろパクリ、ごめんなさい
  1288. PRINTFORMDW エレンとの仲が深まった気がした…
  1289. CFLAG:2 += 10 + RAND:20
  1290. CFLAG:4 += 10 + RAND:20
  1291. ;エレンに恋慕か思慕が付いていれば更にプラス
  1292. IF TALENT:Love
  1293. CFLAG:2 += 20
  1294. CFLAG:4 += 20
  1295. ELSEIF TALENT:思慕
  1296. CFLAG:2 += 10
  1297. CFLAG:4 += 10
  1298. ENDIF
  1299. ELSEIF RESULT == 1
  1300. PRINTFORMDW %CALLNAME:MASTER%はお金持ちになりたいと願った…
  1301. LOCAL:1 = RAND:2000
  1302. LOCAL:1 += 1
  1303. MONEY += LOCAL:1
  1304. ELSEIF RESULT == 2
  1305. PRINTFORMDW 特に願いたいことの無い%CALLNAME:MASTER%は、適当に願う振りだけした…
  1306. ELSE
  1307. GOTO LOOP
  1308. ENDIF
  1309. PRINTFORMW 「願い事は終わった？　次は空を見て楽しみましょ%UNICODE(0x2665)%」
  1310. PRINTFORMW %CALLNAME:MASTER%はエレンと空を見上げながら会話した…
  1311. IF LOCAL:1 > 0
  1312. DRAWLINE
  1313. PRINTFORMDW エレンと会話した後、辺りを見回すと{LOCAL:1}円落ちていた。　願い事の効果だろうか、ありがたくもらうことにした
  1314. ENDIF
  1315. CFLAG:1013 = 1
  1316. ENDIF
  1317. CASE 2, 3, 4, 5, 6, 7, 8
  1318. PRINTFORMW 「月♪月♪青い月♪　その力のひとしずくをわたしの胸に♪」
  1319. PRINTFORMW 「月は魔法の力がいっぱい出てくるのよ%UNICODE(0x2665)%」
  1320. PRINTFORMW 「だからわたしみたいな魔法使いは月が明るいと元気になるの%UNICODE(0x2665)%」
  1321. CASE 9
  1322. PRINTFORMW 「月♪月♪青い月♪　その力のひとしずくをわたしの胸に♪」
  1323. PRINTFORMW 「やっぱり月が明るいと元気になるわねー%UNICODE(0x2665)%」
  1324. CASE 10, 11, 12, 13, 14
  1325. PRINTFORMW 「月♪月♪青い月♪　その力のひとしずくをわたしの胸に♪」
  1326. PRINTFORMW 「月は魔法の力がいっぱい出てくるのよ%UNICODE(0x2665)%」
  1327. PRINTFORMW 「だからわたしみたいな魔法使いは月が明るいと元気になるの%UNICODE(0x2665)%」
  1328. CASE -1, 0
  1329. PRINTFORMW 「月が見えないわねー…　残念だわ…」
  1330. ;一応
  1331. CASEELSE
  1332. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  1333. ENDSELECT
  1334. RETURN 1
  1335.  
  1336. ;はんよ～
  1337. @M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  1338. IF RAND:10 == 1 && CFLAG:1007 == 0 && ABL:MASTER:Education >= 3 && TALENT:MASTER:人間 != 2 && (TALENT:Lover || TALENT:Love || TALENT:思慕)
  1339. PRINTFORMDW エレンと交友を深めているうちに、%CALLNAME:MASTER%は魔法使いに興味を持ち始めていた
  1340. PRINTFORMDW その興味は憧れへと変化し、今では魔法使いになってみたいとまで思い始めた
  1341. SIF TALENT:Lover && !TALENT:MASTER:妖狐
  1342. PRINTFORMDW それに不老長寿の魔法使いになればエレンともっと長い間一緒に居られる！
  1343. PRINTFORMD 幸いにもエレンは%CALLNAME:MASTER%
  1344. IF TALENT:Lover && TALENT:Love
  1345. PRINTD の事が心の底から大好きだ
  1346. ELSEIF TALENT:Love
  1347. PRINTD に対して特別な感情を抱いているように見える
  1348. ELSE
  1349. PRINTD に対してとても好意的だ
  1350. ENDIF
  1351. PRINTFORMDW 、頼めば弟子にしてくれるだろう
  1352. $LOOP
  1353. PRINTFORMDL %CALLNAME:MASTER%は……
  1354. PRINTDL [0] 弟子入りを頼む
  1355. PRINTDL [1] 今はやめておく
  1356. INPUT
  1357. IF RESULT == 0
  1358. PRINTFORMDW エレンとの会話の最中、%CALLNAME:MASTER%はエレンに弟子入りしたい旨を伝えた
  1359. PRINTFORM 「えっ？わたしに弟子入りしたいって？　
  1360. IF TALENT:Lover || TALENT:Love
  1361. PRINTFORMW もちろんいいわよ%UNICODE(0x2665)%　立派な魔法使いにしてあげる%UNICODE(0x2665)%」
  1362. SIF !TALENT:MASTER:妖狐
  1363. PRINTFORMW 「そして…、二人でいろんなことを楽しんでいきましょう%UNICODE(0x2665)%%UNICODE(0x2665)%」
  1364. ELSE
  1365. PRINTFORMW うーん、別に弟子は取ってないのよねー」
  1366. $OGAMI
  1367. IF LOCAL:1 == 0
  1368. PRINTDL [0] そこをなんとか！
  1369. ELSEIF LOCAL:1 == 1
  1370. PRINTDL [0] お願いします！
  1371. ELSEIF LOCAL:1 == 2
  1372. PRINTDL [0] 覚悟は出来ている
  1373. ELSEIF LOCAL:1 == 3
  1374. PRINTDL [0] Yes Yes Yes
  1375. ENDIF
  1376. IF LOCAL:1 == 3
  1377. PRINTDL [1] No No No
  1378. ELSE
  1379. PRINTDL [1] あきらめる
  1380. ENDIF
  1381. INPUT
  1382. IF RESULT == 0
  1383. IF LOCAL:1 == 0
  1384. PRINTFORMW 「なんとかって言われてもねえ…」
  1385. ELSEIF LOCAL:1 == 1
  1386. PRINTFORMW 「それに魔法使いもそんなに楽なものじゃないわよ、色々と大変なんだから」
  1387. ELSEIF LOCAL:1 == 2
  1388. PRINTFORMW 「本当に？」
  1389. ELSEIF LOCAL:1 == 3
  1390. PRINTFORMW 「……分かったわ、特別に弟子にしてあげる」
  1391. ENDIF
  1392. LOCAL:1 ++
  1393. SIF LOCAL:1 <= 3
  1394. GOTO OGAMI
  1395. ELSEIF RESULT == 1
  1396. PRINTFORMW 「ごめんね」
  1397. RETURN 1
  1398. ELSE
  1399. GOTO OGAMI
  1400. ENDIF
  1401. ; PRINTFORMW 別に弟子は取ってないけど…、%CALLNAME:MASTER%なら特別にいいわよ%UNICODE(0x2665)%」
  1402. ; PRINTFORMW 「でも、本当にいいの？　暮らしに困っているわけでもないし、魔法使いもいい事ばかりじゃないわよ」
  1403. ; PRINTFORMW 「…まあ、まだ悩んでいるのなら頼んだりはしないわね。　ということで、ビシビシ行くわよ！」
  1404. ENDIF
  1405. PRINTFORMDW %CALLNAME:MASTER%はエレンに弟子入りを認めて貰った！
  1406. ;エレンの教養をあなた＋１に、師匠なのに弟子より教養が低いのは変だし
  1407. ABL:Education = (ABL:MASTER:Education + 1)
  1408. CFLAG:1007 = 1
  1409. ;あなたの戦闘能力に応じて初期経験にボーナス
  1410. CFLAG:1008 += (ABL:MASTER:CombatAbility * 5)
  1411. CFLAG:1009 += (ABL:MASTER:CombatAbility * 5)
  1412. CFLAG:1010 += (ABL:MASTER:CombatAbility * 2)
  1413. ELSEIF RESULT == 1
  1414. PRINTFORMDW …しかし、一時の思いつきだけで魔法使いになっていいのだろうか、もう少し考えたほうがいいかもしれない
  1415. PRINTFORMDW %CALLNAME:MASTER%はエレンに弟子入りするか否かを考え直す事にした…
  1416. ELSE
  1417. GOTO LOOP
  1418. ENDIF
  1419. ELSEIF RAND:5 == 1 && ABL:Intimacy >= 5 && (BASE:MASTER:STRE <= 500 || BASE:MASTER:ENE <= 500)
  1420. PRINTFORMW 「あら？　あなた…、何だか疲れてるみたいね」
  1421. PRINTFORMDW %CALLNAME:MASTER%の疲労を察したエレンは、懐から一つの小瓶を取り出した
  1422. PRINTFORMW 「そういう時はこれ！　わたしが調合した回復薬よ%UNICODE(0x2665)%」
  1423. PRINTFORMW 「これを飲めばたちまち元気になるわ%UNICODE(0x2665)%」
  1424. $LOOP_2
  1425. PRINTFORMDL %CALLNAME:MASTER%は薬を……
  1426. PRINTDL [0] 飲む
  1427. PRINTDL [1] 飲まない
  1428. INPUT
  1429. IF RESULT == 0
  1430. PRINTFORMW %CALLNAME:MASTER%はエレンから小瓶を受け取り、中に入っていた薬を口に含んだ
  1431. PRINTFORMW 「はいお水」
  1432. PRINTFORMDW ごくごく
  1433. PRINTFORMDW ……
  1434. PRINTFORMDW …
  1435. PRINTFORMDW ！！！
  1436. PRINTDL
  1437. PRINTFORMDL 　　ぱっぱらぱ～
  1438. PRINTDW
  1439. PRINTFORMDW %CALLNAME:MASTER%の体力と気力が１０００回復した！
  1440. BASE:MASTER:STRE = MIN(BASE:MASTER:STRE + 1000 , MAXBASE:MASTER:STRE)
  1441. BASE:MASTER:ENE = MIN(BASE:MASTER:ENE + 1000 , MAXBASE:MASTER:ENE)
  1442. PRINTFORMW 「どう？　元気が出てきたでしょ%UNICODE(0x2665)%」
  1443. ELSEIF RESULT == 1
  1444. PRINTFORMW 「そう？　まあ、それならそれでいいけどさ」
  1445. ELSE
  1446. GOTO LOOP_2
  1447. ENDIF
  1448. ELSE
  1449. LOCAL:1 = RAND:5
  1450. SIF TALENT:思慕
  1451. LOCAL:1 = RAND:10
  1452. SIF TALENT:Love || CFLAG:1014 == 1
  1453. LOCAL:1 = RAND:12
  1454. SELECTCASE LOCAL:1
  1455. CASE 0
  1456. ;特別な日なら変化
  1457. ;大晦日
  1458. IF DAY:2 == 4 && DAY:3 == 31
  1459. PRINTFORMW 「今年はちゃんと来年に引き継げたかしら？」
  1460. ELSE
  1461. ;入浴中か否かで分岐
  1462. IF BATHCHECK(CFLAG:MASTER:現在位置)
  1463. PRINTFORMW 「ソクラテスはお風呂が嫌いなのよねー、まあ猫だからでしょうけど」
  1464. SELECTCASE RAND:4
  1465. CASE 1
  1466. PRINTFORMW 「むしろお風呂が好きな猫とか居るのかしら？」
  1467. CASE 2
  1468. PRINTFORMW 「なんで猫はお風呂が嫌いなのかしら？　こんなに気持ちいいのに」
  1469. ENDSELECT
  1470. ELSE
  1471. PRINTFORMW 「――って、こらっ！　あんたどこ行こうとしてるの！」
  1472. PRINTFORMDW エレンは勝手にどこかに行こうとしたソクラテスを叱っている…
  1473. ENDIF
  1474. ENDIF
  1475. CASE 1
  1476. IF TALENT:Love || CFLAG:1014 == 1
  1477. PRINTFORMW 「とっても興味深いわ%UNICODE(0x2665)% もっと聞かせて%UNICODE(0x2665)%」
  1478. ELSE
  1479. PRINTFORMW 「わたしが居た世界だと魔法は否定されてるのにかがくは肯定されてるのよ」
  1480. PRINTFORMW 「かがくだって魔法だって役に立つなら同じものなのになー」
  1481. ENDIF
  1482. CASE 2
  1483. PRINTFORMW 「わたしが前に住んでいた所はどんな所って？　そうね…」
  1484. PRINTFORMW 「かがくの魔法がいっぱいあったわ。　でんしゃの魔法とかー、うすがたテレビの魔法とかね」
  1485. ; PRINTFORMW 「とても未来的で魔法がまったくと言っていいほどなくなってて食べ物がほとんど合成ものの世界だったわ」
  1486. CASE 3
  1487. PRINTFORML 「外の世界で幻想になったものが集まる世界があるのなら
  1488. PRINTFORMW 　進化した猫の支配する世界や、辺り一面西洋タンポポの世界とかもあるのかしら？」
  1489. CASE 4
  1490. IF TALENT:Lover
  1491. PRINTFORMW 「%CALLNAME:MASTER%との会話は楽しくて楽しくて、つい時間の流れを忘れちゃうわ%UNICODE(0x2665)%」
  1492. ELSEIF TALENT:思慕 || TALENT:Love
  1493. PRINTFORMW 「ええっ！？そうだったの？　知らなかったわ…」
  1494. ELSE
  1495. PRINTFORMW 「へえー、そんなことがあったの」
  1496. ENDIF
  1497. CASE 5
  1498. ; IF TALENT:Lover
  1499. ; PRINTFORMW 「」
  1500. ; ELSE
  1501. PRINTFORMW 「この前ね――」
  1502. ; PRINTFORMW 「そういえばさ、%CALLNAME:MASTER%はちゆりって子、知ってる？」
  1503. ; PRINTFORMW 「昔、外の世界に居たころにあの子と似た子を見たことがあるの。　なんて名前だったかしら…」
  1504. ; ENDIF
  1505. CASE 6
  1506. ; IF TALENT:Lover
  1507. ; PRINTFORMW 「」
  1508. ; ELSE
  1509. PRINTFORMW 「そういえばさ、%CALLNAME:MASTER%は理香子って子、知ってる？」
  1510. PRINTFORMW 「理香子はね、実はすごい力を持つ魔法使いなのよ！　でも魔法をまったく使わないでかがくばっかりなの」
  1511. PRINTFORMW 「かがくだって魔法だって役に立つなら同じものって何度言っても聞いてくれないし、どうしてあんなに頑固なのかしら…」
  1512. ; ENDIF
  1513. CASE 7
  1514. PRINTFORMW 「幻想郷には静電気防止スプレーが売ってないから困るわ。わざわざ外に買いに行くのは手間だし…」
  1515. SIF RAND:3 == 2
  1516. PRINTFORMW 「……河童なら作れるかしら？」
  1517. CASE 8
  1518. PRINTFORMW 「そういえばわたしが昔住んでいた所には面白い学校があったわ。」
  1519. PRINTFORMW 「貧乏神が封印されてたりー、座敷童子が住んでいたりー、校舎が生きてたりとか、とんでもない学校だったわ。」
  1520. PRINTFORMW 「たしかせい…何とか学園だったかしら？」
  1521. CASE 9
  1522. PRINTFORMW 「そういえば月って空に描いてある訳じゃないのよね、わたし最近まで勘違いしてたわ」
  1523. ; CASE 9
  1524. ; PRINTFORMW 「しかし幻想郷はあまりテレビが普及してないのが残念ね。」
  1525. ; PRINTFORMW 「まあ外の世界からでぃーぶいでぃーを持って来ればいいんだけどさ。　それだと最新のまんがが見れないからなー…」
  1526. CASE 10
  1527. PRINTFORMW 「お店の調子はどうかって？　そこそこ繁盛してるわ%UNICODE(0x2665)%」
  1528. CASE 11
  1529. PRINTFORMW 「あははは%UNICODE(0x2665)%　%CALLNAME:MASTER%と話しているとほんと楽しいわ%UNICODE(0x2665)%」
  1530. ENDSELECT
  1531. ENDIF
  1532. RETURN 1
  1533. ;==================================================
  1534. ;301,お茶を淹れる
  1535. ;==================================================
  1536. @M_KOJO_MESSAGE_COM_K44_301
  1537. CALL TRAIN_MESSAGE
  1538. CALL M_KOJO_MESSAGE_COM_K44_301_1
  1539. RETURN RESULT
  1540.  
  1541. @M_KOJO_MESSAGE_COM_K44_301_1
  1542. ;-------------------------------------------------
  1543. ;記入チェック（=0, 非表示、1, 表示）
  1544. LOCAL = 1
  1545. ;-------------------------------------------------
  1546. IF LOCAL && !FLAG:70 && !CFLAG:Anger && !MARK:反発刻印
  1547. IF TALENT:Lover
  1548. PRINTFORMW 「ありがとう%UNICODE(0x2665)%」
  1549. ELSEIF TALENT:Love || CFLAG:1014 == 1
  1550. PRINTFORMW 「ありがとう%UNICODE(0x2665)% 早速いただくわ」
  1551. ELSE
  1552. PRINTFORMW 「あら、お茶を淹れてくれたのね、ありがとう%UNICODE(0x2665)%」
  1553. ENDIF
  1554. PRINTFORMDW …
  1555. IF TALENT:Lover
  1556. IF GET_TARGETNUM() == 1 && TFLAG:193 >= 0 && RAND:2 == 1
  1557. IF (MOON_WATCH_POINT(CFLAG:TARGET:現在位置)) && TIME:2 == 3
  1558.  
  1559. SELECTCASE MOON_WATCH(DAY:3)
  1560. CASE -1, 0, 1
  1561. PRINTFORMW 「月が見えれば月見茶になったのになー、少し残念だわ」
  1562. PRINTFORMW 「…まあ、月が見えなくても%CALLNAME:MASTER%の淹れるお茶はおいしいけどね%UNICODE(0x2665)%」
  1563. CASEELSE
  1564. PRINTFORMW 「お茶に映る月を見るってのもなかなかいいものね%UNICODE(0x2665)%」
  1565. ENDSELECT
  1566. ELSE
  1567. PRINTFORMW 「二人で飲むお茶は格別ね%UNICODE(0x2665)%」
  1568. ENDIF
  1569. ELSE
  1570. IF TFLAG:193 == 1
  1571. PRINTFORMW 「%CALLNAME:MASTER%の淹れてくれるお茶は本当においしいわね%UNICODE(0x2665)%」
  1572. ELSEIF TFLAG:193 == -1
  1573. PRINTFORMW 「ちょっと渋すぎるけど…、これはこれでそんなに悪くないわ%UNICODE(0x2665)%」
  1574. ELSE
  1575. PRINTFORMW 「ふぅ…、心が安らぐわねー%UNICODE(0x2665)%」
  1576. ENDIF
  1577. ENDIF
  1578. ELSEIF TALENT:Love || CFLAG:1014 == 1
  1579. IF TFLAG:193 == 1
  1580. PRINTFORMW 「緑茶ってこんなにおいしいものだったの…。　すてきー%UNICODE(0x2665)%」
  1581. ELSEIF TFLAG:193 == -1
  1582. PRINTFORMW 「…ちょっと、渋すぎるわね」
  1583. ELSE
  1584. PRINTFORMW 「ふぅ…、心が安らぐわー%UNICODE(0x2665)%」
  1585. ENDIF
  1586. ELSE
  1587. IF TFLAG:193 == 1
  1588. PRINTFORMW 「緑茶ってこんなにおいしいものだったの…。　すてきー%UNICODE(0x2665)%」
  1589. ELSEIF TFLAG:193 == -1
  1590. PRINTFORMW 「ちょっと、このお茶苦すぎるわよ」
  1591. ELSE
  1592. PRINTFORMW 「ふぅ…、心が安らぐわ」
  1593. ENDIF
  1594. ENDIF
  1595. ENDIF
  1596. RETURN 1
  1597. ;==================================================
  1598. ;302,スキンシップ
  1599. ;==================================================
  1600. @M_KOJO_MESSAGE_COM_K44_302
  1601. CALL TRAIN_MESSAGE
  1602. CALL M_KOJO_MESSAGE_COM_K44_302_1
  1603. RETURN RESULT
  1604.  
  1605. @M_KOJO_MESSAGE_COM_K44_302_1
  1606. ;-------------------------------------------------
  1607. ;記入チェック（=0, 非表示、1, 表示）
  1608. LOCAL = 1
  1609. ;-------------------------------------------------
  1610. IF LOCAL && !FLAG:70 && !CFLAG:Anger && !MARK:反発刻印
  1611. ;恋人かつ恋慕時専用
  1612. IF TALENT:Lover && TALENT:Love
  1613. IF TFLAG:193 == -1
  1614. SELECTCASE RAND:2
  1615. CASE 1
  1616. PRINTFORMW 「ちょちょちょちょっと！　流石にベタベタしすぎよ！もう//」
  1617. CASEELSE
  1618. PRINTFORMW 「ちょっと、いくらなんでもやりすぎよ！　まったく//」
  1619. ENDSELECT
  1620. ELSE
  1621. ;入浴中か否かで分岐
  1622. IF CFLAG:現在位置 == 13 || CFLAG:現在位置 == 24 || CFLAG:MASTER:現在位置 == 30 || CFLAG:MASTER:現在位置 == 39
  1623. PRINTFORMW 「あははは%UNICODE(0x2665)% くすぐったいわ%UNICODE(0x2665)%」
  1624. ELSE
  1625. SELECTCASE RAND:3
  1626. CASE 1
  1627. SIF TFLAG:193 == 0
  1628. PRINTFORMDL エレンの方からも積極的にスキンシップをしてきた
  1629. PRINTFORMW 「わたしも%CALLNAME:MASTER%のことが大好きよ%UNICODE(0x2665)%」
  1630. CASE 2
  1631. PRINTFORMW 「あははは%UNICODE(0x2665)% くすぐったいわ%UNICODE(0x2665)%」
  1632. CASEELSE
  1633. PRINTFORMW 「%CALLNAME:MASTER%といるとそれだけで楽しいわ%UNICODE(0x2665)%」
  1634. ENDSELECT
  1635. ENDIF
  1636. ENDIF
  1637. ;恋慕or準恋慕or恋人時専用
  1638. ELSEIF TALENT:Love || CFLAG:1014 == 1 || TALENT:Lover
  1639. IF TFLAG:193 == -1
  1640. PRINTFORMW 「ちょちょちょちょっと//　流石にベタベタしすぎよ//」
  1641. ELSE
  1642. ;入浴中か否かで分岐
  1643. IF CFLAG:現在位置 == 13 || CFLAG:現在位置 == 24 || CFLAG:MASTER:現在位置 == 30 || CFLAG:MASTER:現在位置 == 39
  1644. PRINTFORMW （わー//）
  1645. ELSE
  1646. SELECTCASE RAND:3
  1647. CASE 1
  1648. PRINTFORMW （わー//）
  1649. CASE 2
  1650. PRINTFORMW 「あははは%UNICODE(0x2665)% くすぐったいわ%UNICODE(0x2665)%」
  1651. CASEELSE
  1652. PRINTFORMW 「えへへへへ%UNICODE(0x2665)%//」
  1653. ENDSELECT
  1654. ENDIF
  1655. ENDIF
  1656. ;その他
  1657. ELSEIF TALENT:思慕
  1658. IF TFLAG:193 == -1
  1659. PRINTFORMW 「ちょちょちょちょっと！　いくらなんでもベタベタしすぎよ！」
  1660. ELSE
  1661. PRINTFORMW 「あははは%UNICODE(0x2665)% くすぐったいわ%UNICODE(0x2665)%」
  1662. ENDIF
  1663. ELSE
  1664. IF TFLAG:193 == -1
  1665. PRINTFORMW 「あまり触られたくないんだけど……」
  1666. ELSE
  1667. PRINTFORMW 「くすぐったいわね%UNICODE(0x2665)%」
  1668. ENDIF
  1669. ENDIF
  1670. IF TFLAG:193 >= 0
  1671. ;CALL M_KOJO_MESSAGE_COM_K44_302_1_DVD
  1672. ENDIF
  1673. ENDIF
  1674. RETURN 1
  1675.  
  1676. ;DVD観賞　結局封印されました
  1677. @M_KOJO_MESSAGE_COM_K44_302_1_DVD
  1678. RETURN 1
  1679. ;DVD観賞分岐
  1680. IF TALENT:思慕 && TCVAR:350 <= 0
  1681. SELECTCASE RAND:4
  1682. CASE 0
  1683. ;居間にはテレビがある設定
  1684. IF (CFLAG:TARGET:現在位置 == 9 || CFLAG:TARGET:現在位置 == 41) && CFLAG:MASTER:現在位置 != FLAG:32
  1685. PRINTFORMW 「そうそう！　今日はわたしおすすめのビデオを持ってきたのよ%UNICODE(0x2665)%」
  1686. PRINTFORMW エレンは懐にしまっておいたＤＶＤを取り出して%CALLNAME:MASTER%に見せた
  1687. ELSEIF CFLAG:TARGET:現在位置 == 16 && FLAG:15 == 44
  1688. PRINTFORMW 「ねえねえ、　わたしといっしょにまんがのビデオでも見ない？」
  1689. PRINTFORMW エレンは棚においてあるＤＶＤを取り出して%CALLNAME:MASTER%に見せた
  1690. ELSE
  1691. RETURN 1
  1692. ENDIF
  1693. ;暫定仕様
  1694. $LOOP_2
  1695. PRINTFORMDL %CALLNAME:MASTER%は…
  1696. PRINTDL [0] DVDを見る
  1697. PRINTDL [1] 今はいい
  1698. INPUT
  1699. IF RESULT == 0
  1700. PRINTFORMW 「やった%UNICODE(0x2665)%　それじゃ早速見ましょ%UNICODE(0x2665)%」
  1701. PRINTFORMW ……
  1702. PRINTFORMW …
  1703. PRINTFORMW 「あー面白かった%UNICODE(0x2665)%　またこんど見ましょう%UNICODE(0x2665)%」
  1704. PRINTFORMW %CALLNAME:MASTER%はエレン\@ GET_TARGETNUM() > 1 ? 達 # \@と楽しい時間を過ごした…
  1705. LOCAL:1 = TARGET
  1706. FOR LOCAL, 1, CHARANUM
  1707. SIF TARGET:LOCAL <= 0
  1708. CONTINUE
  1709. TARGET = TARGET:LOCAL
  1710. PALAM:Favour += 1000 + (ABL:Intimacy * 100)
  1711. BASE:Reason -= 100
  1712. NEXT
  1713. TARGET = LOCAL:1
  1714. ELSEIF RESULT == 1
  1715. PRINTFORMW 「そうなの、　それじゃまた今度にしましょ%UNICODE(0x2665)%」
  1716. TCVAR:350 = 1
  1717. RETURN 1
  1718. ELSE
  1719. GOTO LOOP_2
  1720. ENDIF
  1721. ;アニメは一日一回！
  1722. TCVAR:350 = 1
  1723. ;時間経過処理
  1724. TIME += 30
  1725. ENDSELECT
  1726. ENDIF
  1727. RETURN 1
  1728.  
  1729. ;==================================================
  1730. ;303,謝る
  1731. ;==================================================
  1732. @M_KOJO_MESSAGE_COM_K44_303
  1733. CALL TRAIN_MESSAGE
  1734. CALL M_KOJO_MESSAGE_COM_K44_303_1
  1735. RETURN RESULT
  1736.  
  1737. @M_KOJO_MESSAGE_COM_K44_303_1
  1738. ;-------------------------------------------------
  1739. ;記入チェック（=0, 非表示、1, 表示）
  1740. LOCAL = 1
  1741. ;-------------------------------------------------
  1742. IF LOCAL && !FLAG:70
  1743. IF TALENT:Love || TALENT:Lover
  1744. IF TFLAG:193 >= 1
  1745. PRINTFORMW 「あははは、もう気にしてないから大丈夫よ%UNICODE(0x2665)%」
  1746. ELSEIF TFLAG:193 == 0
  1747. PRINTFORMW 「もう、しかたないわね。　今回は許してあげるから次は気をつけてよ」
  1748. ELSE
  1749. PRINTFORMW 「ごめんね、　今はまだ%CALLNAME:MASTER%のこと、許せないかな…」
  1750. ENDIF
  1751. ELSE
  1752. IF TFLAG:193 >= 1
  1753. PRINTFORMW 「あははは、もう気にしてないから大丈夫よ%UNICODE(0x2665)%」
  1754. ELSEIF TFLAG:193 == 0
  1755. PRINTFORMW 「もう、しかたないわね。　今回は許してあげるから次は気をつけてよ」
  1756. ELSE
  1757. PRINTFORMW 「だめよ！　まだ許さないんだから！」
  1758. ENDIF
  1759. ENDIF
  1760. ENDIF
  1761. RETURN 1
  1762. ;==================================================
  1763. ;304,仕事を手伝う 地の文、客数処理も込み
  1764. ;==================================================
  1765. @M_KOJO_MESSAGE_COM_K44_304
  1766. ;宴会関係の仕事なら地の文あり
  1767. SIF CFLAG:350 >= 48 && CFLAG:350 <= 51
  1768. CALL TRAIN_MESSAGE
  1769. CALL M_KOJO_MESSAGE_COM_K44_304_1
  1770. RETURN RESULT
  1771.  
  1772. @M_KOJO_MESSAGE_COM_K44_304_1
  1773. ;-------------------------------------------------
  1774. ;記入チェック（=0, 非表示、1, 表示）
  1775. LOCAL = 1
  1776. ;-------------------------------------------------
  1777. IF LOCAL && !FLAG:70
  1778. ;魔法屋
  1779. IF TCVAR:356 == 0 && CFLAG:350 <= 43
  1780. ;接客
  1781. IF TCVAR:354 > 25
  1782. ;先にLOCALに突っ込んどく、成功時は－４～－２人
  1783. LOCAL:1 = RAND:3
  1784. LOCAL:1 += 2
  1785. PRINTFORML %CALLNAME:PLAYER%は接客に追われるエレンを手伝った
  1786. IF TFLAG:193 == 1
  1787. PRINTFORML とても仕事がはかどったようだ…
  1788. ;大成功時は－８～－６人
  1789. LOCAL:1 += 4
  1790. TRYCALLFORM M_KOJO_COLOR_K44
  1791. IF TALENT:Lover
  1792. ;どんとはお願いしない
  1793. PRINTFORMW 「%CALLNAME:MASTER%はあれとこれとそれとどれをお願いするわ%UNICODE(0x2665)%」
  1794. ;ラブラブパワーで更に＋２！
  1795. LOCAL:1 += 2
  1796. ELSEIF TALENT:Love || CFLAG:1014 == 1
  1797. PRINTFORMW 「%CALLNAME:MASTER%のおかげで仕事が捗るわ%UNICODE(0x2665)% ありがとう%UNICODE(0x2665)%」
  1798. ELSEIF TALENT:思慕
  1799. PRINTFORMW 「%CALLNAME:MASTER%がいるとほんと仕事が楽になるわ%UNICODE(0x2665)%」
  1800. ELSE
  1801. PRINTFORMW 「あら%UNICODE(0x2665)% 助かるわ%UNICODE(0x2665)%」
  1802. ENDIF
  1803. ELSEIF TFLAG:193 == -1
  1804. PRINTFORML あまり手伝いにならなかったようだ…
  1805. ;失敗時は－１～０人
  1806. LOCAL:1 = RAND:2
  1807. TRYCALLFORM M_KOJO_COLOR_K44
  1808. IF TALENT:Lover
  1809. PRINTFORMW 「まあ、こんな時もあるわ。気にしないで%UNICODE(0x2665)%」
  1810. ELSEIF TALENT:Love || CFLAG:1014 == 1
  1811. PRINTFORMW 「これぐらいなら何とかなるから気にしないで%UNICODE(0x2665)%」
  1812. ELSEIF TALENT:思慕
  1813. PRINTFORMW 「これぐらいなら何とかなるから気にしないでね%UNICODE(0x2665)%」
  1814. ELSE
  1815. PRINTFORMW 「えーと…　別に大丈夫よ%UNICODE(0x2665)%」
  1816. ENDIF
  1817. ELSE
  1818. TRYCALLFORM M_KOJO_COLOR_K44
  1819. SELECTCASE RAND:2
  1820. CASE 1
  1821. IF TALENT:Lover
  1822. PRINTFORMW 「%CALLNAME:MASTER%はこれをお願いするわ%UNICODE(0x2665)%」
  1823. ELSEIF TALENT:Love || CFLAG:1014 == 1
  1824. PRINTFORMW 「手伝ってくれてありがとう%UNICODE(0x2665)%」
  1825. ELSEIF TALENT:思慕
  1826. PRINTFORMW 「手伝ってくれるのね、ほんと助かるわ%UNICODE(0x2665)%」
  1827. ELSE
  1828. PRINTFORMW 「あら%UNICODE(0x2665)% 助かるわ%UNICODE(0x2665)%」
  1829. ENDIF
  1830. CASEELSE
  1831. IF TALENT:Love
  1832. PRINT 「%CALLNAME:MASTER%はそこから
  1833. SELECTCASE RAND:6
  1834. CASE 0
  1835. PRINT 自信をつける薬
  1836. CASE 1
  1837. PRINT 妖精よけの魔法
  1838. CASE 2
  1839. PRINT 呪い止めよ
  1840. CASE 3
  1841. PRINT 魔よけ
  1842. CASE 4
  1843. PRINT ハーブ
  1844. CASE 5
  1845. PRINT お守り
  1846. ENDSELECT
  1847. PRINTFORMW を出して%UNICODE(0x2665)%」
  1848. ELSE
  1849. PRINT 「そこから
  1850. SELECTCASE RAND:4
  1851. CASE 0
  1852. PRINT 自信をつける薬
  1853. CASE 1
  1854. PRINT 妖精よけの魔法
  1855. CASE 2
  1856. PRINT 呪い止め
  1857. CASE 3
  1858. PRINT 魔よけ
  1859. ENDSELECT
  1860. PRINTFORMW を出してちょうだい」
  1861. ENDIF
  1862. ENDSELECT
  1863. ENDIF
  1864. ;%CALLNAME:MASTER%の教養が低い場合効果が下がる
  1865. SIF ABL:MASTER:Education < 2
  1866. LOCAL:1 -= 1
  1867. ;ここでTCVARに減算
  1868. TCVAR:354 -= LOCAL:1
  1869. ;呼び込み
  1870. ELSE
  1871. ;先にLOCALに突っ込んどく、成功時は＋３～５人
  1872. LOCAL:1 = RAND:3
  1873. LOCAL:1 += 3
  1874. PRINTFORM %CALLNAME:PLAYER%は
  1875. IF TALENT:Lover
  1876. PRINT エレンと一緒に
  1877. ELSE
  1878. PRINT エレンとは別の場所で
  1879. ENDIF
  1880. PRINTL 呼び込みをした
  1881. IF TFLAG:193 == 1
  1882. PRINTFORML 次から次へと客がやって来た！
  1883. ;大成功時は＋８～１０人
  1884. LOCAL:1 += 5
  1885. TRYCALLFORM M_KOJO_COLOR_K44
  1886. IF TALENT:Lover
  1887. PRINTFORMW 「うわー、こんなにお客がいっぱい%UNICODE(0x2665)%　わたしも負けてられないわ！えー、魔法屋さんはいらんかねー%UNICODE(0x2665)%」
  1888. ;ラブラブパワーで更に＋２！
  1889. LOCAL:1 += 2
  1890. ELSEIF TALENT:Love || CFLAG:1014 == 1
  1891. PRINTFORMW 「わー%UNICODE(0x2665)% こんなにお客がいっぱい%UNICODE(0x2665)%　%CALLNAME:MASTER%ってほんとすごいわね%UNICODE(0x2665)%」
  1892. ELSEIF TALENT:思慕
  1893. PRINTFORMW 「うわー%UNICODE(0x2665)% すごーい%UNICODE(0x2665)%　ありがとう%CALLNAME:MASTER%%UNICODE(0x2665)%」
  1894. ELSE
  1895. PRINTFORMW 「あら%UNICODE(0x2665)% 助かるわ%UNICODE(0x2665)%」
  1896. ENDIF
  1897. ELSEIF TFLAG:193 == -1
  1898. PRINTFORML しかし客はまったく来なかった…
  1899. ;失敗時は＋０～１人
  1900. LOCAL:1 = RAND:2
  1901. TRYCALLFORM M_KOJO_COLOR_K44
  1902. IF TALENT:Lover
  1903. PRINTFORMW 「まあ、こんな時もあるわ。気にしないで%UNICODE(0x2665)%」
  1904. ELSEIF TALENT:Love || CFLAG:1014 == 1
  1905. PRINTFORMW 「まあ、よくある事だし気にしないで%UNICODE(0x2665)%」
  1906. ELSEIF TALENT:思慕
  1907. PRINTFORMW 「まあ、よくある事だから気にしないでね%UNICODE(0x2665)%」
  1908. ELSE
  1909. PRINTFORMW 「あやや、お客がぜーんぜん来ないわ」
  1910. ENDIF
  1911. ELSE
  1912. PRINTFORML ぽつぽつと客がやって来た
  1913. TRYCALLFORM M_KOJO_COLOR_K44
  1914. IF TALENT:Lover
  1915. PRINTFORMW 「%CALLNAME:MASTER%が居れば百人力ね%UNICODE(0x2665)%　さあ、わたしもがんばるわよっ！」
  1916. ELSEIF TALENT:Love || CFLAG:1014 == 1
  1917. PRINTFORMW 「手伝ってくれてありがとう%UNICODE(0x2665)%」
  1918. ELSEIF TALENT:思慕
  1919. PRINTFORMW 「手伝ってくれてありがとう%CALLNAME:MASTER%%UNICODE(0x2665)%」
  1920. ELSE
  1921. PRINTFORMW 「あら%UNICODE(0x2665)% 助かるわ%UNICODE(0x2665)%」
  1922. ENDIF
  1923. ENDIF
  1924. ;天気がよろしくない場合は－２
  1925. SIF TIME:5 > 3
  1926. LOCAL:1 -= 2
  1927. ;%CALLNAME:MASTER%の話術技能が低い場合効果が下がる
  1928. SIF ABL:MASTER:SpeechSkill < 2
  1929. LOCAL:1 -= 2
  1930. ;もし増加数がマイナスになったら０にする
  1931. SIF LOCAL:1 < 0
  1932. LOCAL:1 = 0
  1933. ;ここでTCVARに加算
  1934. TCVAR:354 += LOCAL:1
  1935. TCVAR:355 += LOCAL:1
  1936. ENDIF
  1937. ; ELSE
  1938. ; PRINTFORMW メッセージはでないはずだよ、でたらおしえてね
  1939. ENDIF
  1940. ENDIF
  1941. RETURN 1
  1942. ;==================================================
  1943. ;305,膝枕してもらう
  1944. ;==================================================
  1945. @M_KOJO_MESSAGE_COM_K44_305
  1946. CALL TRAIN_MESSAGE
  1947. CALL M_KOJO_MESSAGE_COM_K44_305_1
  1948. RETURN RESULT
  1949.  
  1950. @M_KOJO_MESSAGE_COM_K44_305_1
  1951. ;-------------------------------------------------
  1952. ;記入チェック（=0, 非表示、1, 表示）
  1953. LOCAL = 1
  1954. ;-------------------------------------------------
  1955. IF LOCAL && !FLAG:70 && !CFLAG:Anger && !MARK:反発刻印
  1956. IF TALENT:Lover
  1957. PRINTFORMW 「わたしの膝はどう？　気持ちいいかしら%UNICODE(0x2665)%」
  1958. ELSEIF TALENT:Love || CFLAG:1014 == 1
  1959. PRINTFORMW 「次はわたしが膝枕してもらいたいなー、なんて//」
  1960. ELSEIF TALENT:思慕
  1961. PRINTFORMW 「わたしの膝の上でゆっくり休んでね%UNICODE(0x2665)%」
  1962. ELSE
  1963. PRINTFORMW 「ちょっと……　膝がつらいわね」
  1964. ENDIF
  1965. ENDIF
  1966. RETURN 1
  1967. ;==================================================
  1968. ;306,お腹を撫でる　お腹っていいよね
  1969. ;==================================================
  1970. @M_KOJO_MESSAGE_COM_K44_306
  1971. CALL TRAIN_MESSAGE
  1972. CALL M_KOJO_MESSAGE_COM_K44_306_1
  1973. RETURN RESULT
  1974.  
  1975. @M_KOJO_MESSAGE_COM_K44_306_1
  1976. ;-------------------------------------------------
  1977. ;記入チェック（=0, 非表示、1, 表示）
  1978. LOCAL = 1
  1979. ;-------------------------------------------------
  1980. IF LOCAL
  1981. IF TALENT:Lover
  1982. IF TALENT:Pregnancy
  1983. PRINTFORMW 「えへへへへ%UNICODE(0x2665)%」
  1984. ELSE
  1985. PRINTFORMW 「もしかして…、お腹が好きなの？」
  1986. ENDIF
  1987. ELSEIF ABL:Intimacy >= 6
  1988. PRINTFORMW 「別にいいんだけど…、なんでお腹？」
  1989. ELSE
  1990. PRINTFORMW 「どこ触ってるのよ！」
  1991. ENDIF
  1992. ENDIF
  1993. RETURN 1
  1994. ;==================================================
  1995. ;307,頬をつまむ
  1996. ;==================================================
  1997. @M_KOJO_MESSAGE_COM_K44_307
  1998. CALL TRAIN_MESSAGE
  1999. CALL M_KOJO_MESSAGE_COM_K44_307_1
  2000. RETURN RESULT
  2001.  
  2002. @M_KOJO_MESSAGE_COM_K44_307_1
  2003. ;-------------------------------------------------
  2004. ;記入チェック（=0, 非表示、1, 表示）
  2005. LOCAL = 1
  2006. ;-------------------------------------------------
  2007. IF LOCAL && !FLAG:70 && !CFLAG:睡眠 && !CFLAG:Anger && !MARK:反発刻印
  2008. IF TALENT:Lover
  2009. PRINTFORMW 「やったわね%UNICODE(0x2665)% えいっ%UNICODE(0x2665)%」
  2010. ELSEIF TALENT:Love
  2011. PRINTFORMW 「えへへへ%UNICODE(0x2665)%」
  2012. ELSEIF ABL:Intimacy > 5
  2013. PRINTFORMW 「お返しよっ%UNICODE(0x2665)%」
  2014. ELSEIF ABL:Obedience >= 5
  2015. PRINTFORMW 「まったく、しょうがないわね」
  2016. ELSE
  2017. PRINTFORMW 「なにしてるのよ！」
  2018. ENDIF
  2019. ENDIF
  2020. RETURN 1
  2021. ;==================================================
  2022. ;308,頬をつつく
  2023. ;==================================================
  2024. @M_KOJO_MESSAGE_COM_K44_308
  2025. CALL TRAIN_MESSAGE
  2026. CALL M_KOJO_MESSAGE_COM_K44_308_1
  2027. RETURN RESULT
  2028.  
  2029. @M_KOJO_MESSAGE_COM_K44_308_1
  2030. ;-------------------------------------------------
  2031. ;記入チェック（=0, 非表示、1, 表示）
  2032. LOCAL = 1
  2033. ;-------------------------------------------------
  2034. IF LOCAL && !FLAG:70 && !CFLAG:睡眠 && !CFLAG:Anger && !MARK:反発刻印
  2035. IF TALENT:Lover
  2036. IF TFLAG:193 == 1
  2037. PRINTFORMW 「やったわね%UNICODE(0x2665)% えいっ%UNICODE(0x2665)%」
  2038. ELSEIF TFLAG:193 == -1
  2039. PRINTFORMW 「今はそんな気分じゃないの」
  2040. ELSE
  2041. PRINTFORMW 「わたしのふにふにほっぺはどう%UNICODE(0x2665)%」
  2042. ENDIF
  2043. ELSE
  2044. IF TFLAG:193 == -1
  2045. PRINTFORMW 「まったく、いきなり頬をつつくのはやめてよね」
  2046. ELSE
  2047. PRINTFORMW 「えへへへ%UNICODE(0x2665)%」
  2048. ENDIF
  2049. ENDIF
  2050. ENDIF
  2051. RETURN 1
  2052. ;==================================================
  2053. ;309,頭を撫でる
  2054. ;==================================================
  2055. @M_KOJO_MESSAGE_COM_K44_309
  2056. CALL TRAIN_MESSAGE
  2057. CALL M_KOJO_MESSAGE_COM_K44_309_1
  2058. RETURN RESULT
  2059.  
  2060. @M_KOJO_MESSAGE_COM_K44_309_1
  2061. ;-------------------------------------------------
  2062. ;記入チェック（=0, 非表示、1, 表示）
  2063. LOCAL = 1
  2064. ;-------------------------------------------------
  2065. IF LOCAL && !FLAG:70 && !CFLAG:睡眠 && !CFLAG:Anger && !MARK:反発刻印
  2066. IF TALENT:Lover && TALENT:Love
  2067. IF TFLAG:193 == -1
  2068. PRINTFORMW 「もう、やりすぎよ」
  2069. ELSE
  2070. SELECTCASE RAND:3
  2071. CASE 1
  2072. PRINTFORMW 「好きなだけ撫でてね%UNICODE(0x2665)%」
  2073. CASE 2
  2074. PRINTFORMW 「えへへ%UNICODE(0x2665)%」
  2075. CASEELSE
  2076. PRINTFORMW 「なんだか気持ちいいわ%UNICODE(0x2665)%」
  2077. ENDSELECT
  2078. ENDIF
  2079. ELSEIF TALENT:Love || CFLAG:1014 == 1
  2080. SELECTCASE RAND:2
  2081. CASE 1
  2082. PRINTFORMW 「わたしのふわふわ綿菓子ヘアーの触り心地はどうかしら%UNICODE(0x2665)%」
  2083. CASEELSE
  2084. PRINTFORMW 「えへへへ//」
  2085. ENDSELECT
  2086. ELSEIF ABL:Intimacy > 5
  2087. PRINTFORMW 「わたしのふわふわ綿菓子ヘアーの触り心地はどうかしら？」
  2088. ELSE
  2089. PRINTFORMW 「ちょっと！　なにしてるのよ//」
  2090. ENDIF
  2091. ENDIF
  2092. RETURN 1
  2093. ;==================================================
  2094. ;310,尻を撫でる
  2095. ;==================================================
  2096. @M_KOJO_MESSAGE_COM_K44_310
  2097. CALL TRAIN_MESSAGE
  2098. CALL M_KOJO_MESSAGE_COM_K44_310_1
  2099. RETURN RESULT
  2100.  
  2101. @M_KOJO_MESSAGE_COM_K44_310_1
  2102. ;-------------------------------------------------
  2103. ;記入チェック（=0, 非表示、1, 表示）
  2104. LOCAL = 1
  2105. ;-------------------------------------------------
  2106. CFLAG:1891 = 1
  2107. IF LOCAL && !FLAG:70 && !CFLAG:睡眠 && !CFLAG:Anger
  2108. IF TALENT:Lover && TALENT:Love
  2109. IF (OUTROOF(CFLAG:TARGET:現在位置)) || (OPENPLACE(CFLAG:TARGET:現在位置))
  2110. PRINTFORMW 「ちょちょちょちょっと//　誰か来たらどうするのよ//」
  2111. ELSE
  2112. PRINTFORMW 「もー、%CALLNAME:MASTER%ったら本当にえっちなんだから…//」
  2113. ENDIF
  2114. ELSEIF TALENT:Love
  2115. IF (OUTROOF(CFLAG:TARGET:現在位置)) || (OPENPLACE(CFLAG:TARGET:現在位置))
  2116. PRINTFORMW 「ちょちょちょちょっと//　誰か来たらどうするのよ//」
  2117. ELSE
  2118. PRINTFORMW 「まったく%CALLNAME:MASTER%ってば。　…特別よ//」
  2119. ENDIF
  2120. ELSEIF TFLAG:193 >= 2
  2121. IF (OUTROOF(CFLAG:TARGET:現在位置)) || (OPENPLACE(CFLAG:TARGET:現在位置))
  2122. PRINTFORMW 「ちょちょちょちょっと！//　こんな所でなにしてるのよ！//」
  2123. ELSE
  2124. IF TFLAG:193 == 4
  2125. PRINTFORMW 「まったく、なにが楽しいんだか…//」
  2126. ELSE
  2127. PRINTFORMW 「どどどどこ触ってるのよ！　変態！//」
  2128. ENDIF
  2129. ENDIF
  2130. ELSEIF !TALENT:Slut
  2131. PRINTFORMW 「どこ触ってるのよ！この変態！」
  2132. ENDIF
  2133. ENDIF
  2134. RETURN 1
  2135. ;==================================================
  2136. ;311,抱き付く
  2137. ;==================================================
  2138. @M_KOJO_MESSAGE_COM_K44_311
  2139. CALL TRAIN_MESSAGE
  2140. CALL M_KOJO_MESSAGE_COM_K44_311_1
  2141. RETURN RESULT
  2142.  
  2143. @M_KOJO_MESSAGE_COM_K44_311_1
  2144. ;-------------------------------------------------
  2145. ;記入チェック（=0, 非表示、1, 表示）
  2146. LOCAL = 1
  2147. ;-------------------------------------------------
  2148. IF LOCAL && !FLAG:70 && !CFLAG:睡眠 && !CFLAG:Anger && !MARK:反発刻印
  2149. IF CFLAG:うふふ == 2
  2150. PRINTFORMW 「えへへへ//　あったかーい…//」
  2151. ELSEIF TALENT:Love && TALENT:Lover
  2152. SELECTCASE RAND:2
  2153. CASE 1
  2154. PRINTFORMW 「%CALLNAME:MASTER%に抱かれているとなんだか安心するわ%UNICODE(0x2665)%」
  2155. CASEELSE
  2156. PRINTFORMW 「えへへへ%UNICODE(0x2665)% あったかーい%UNICODE(0x2665)%」
  2157. ENDSELECT
  2158. ELSEIF TALENT:Love || CFLAG:1014 == 1
  2159. SELECTCASE RAND:2
  2160. CASE 1
  2161. PRINTFORMW 「えへへへへ//」
  2162. CASEELSE
  2163. PRINTFORMW （%CALLNAME:MASTER%の匂い…　なんだか落ち着くわ//）
  2164. ENDSELECT
  2165. ELSEIF TALENT:思慕
  2166. PRINTFORMW 「%CALLNAME:MASTER%ってばもー、…しょうがないわね」
  2167. ELSE
  2168. PRINTFORMW 「ちょちょちょちょっと！　なに抱きついてるのよ！//」
  2169. ENDIF
  2170. ENDIF
  2171. RETURN 1
  2172. ;==================================================
  2173. ;312,キスする ありがとうおしゃぶり霊夢の人！そしてごめんなさい！
  2174. ;==================================================
  2175. @M_KOJO_MESSAGE_COM_K44_312
  2176. CALL TRAIN_MESSAGE
  2177. CALL M_KOJO_MESSAGE_COM_K44_312_1
  2178. RETURN RESULT
  2179.  
  2180. @M_KOJO_MESSAGE_COM_K44_312_1
  2181. ;-------------------------------------------------
  2182. ;記入チェック（=0, 非表示、1, 表示）
  2183. LOCAL = 1
  2184. ;-------------------------------------------------
  2185. IF LOCAL && !FLAG:70 && !CFLAG:睡眠 && !CFLAG:Anger && TFLAG:193 != 99
  2186. IF TALENT:NeverKissed
  2187. ;ファーストキッス群
  2188. IF TALENT:Lover && TALENT:Love
  2189. PRINTFORMW 「えへへへ//　恋人同士のキスってこんなに幸せなものだったのね%UNICODE(0x2665)%」
  2190. PRINTFORMW 「次はわたしからするわ%UNICODE(0x2665)% ちゅっ%UNICODE(0x2665)%」
  2191. EXP:キス経験 += 4
  2192. EXP:MASTER:キス経験 += 4
  2193. EXP:愛情経験 += 5
  2194. ELSEIF TALENT:Lover || TALENT:Love
  2195. PRINTFORMW 「えへへ//　こんどはわたしの番よ%UNICODE(0x2665)% えいっ%UNICODE(0x2665)%」
  2196. EXP:キス経験 += 1
  2197. EXP:MASTER:キス経験 += 1
  2198. ELSEIF TALENT:思慕 && ABL:Intimacy >= 7
  2199. PRINTFORMW 「えっ？えっ！？えええっ！？」
  2200. PRINTFORMW （まさか%CALLNAME:MASTER%がききききすしてくるなんて//）
  2201. PRINTFORMW （%CALLNAME:MASTER%からキスしてくるってことはももももしかしてわたしのことが好きなの！？//）
  2202. PRINTFORMW （べべべべつに%CALLNAME:MASTER%のことは好きだけれどそれは友達としての好きだし//）
  2203. PRINTFORMW （%CALLNAME:MASTER%もそう思ってると思ってたけどけどけど）
  2204. PRINTFORMW （あーうー//）
  2205. CFLAG:1014 = 1
  2206. TALENT:Shame = 1
  2207. ELSE
  2208. PRINTFORMW 「……何勝手に人のファーストキッスを奪ってるのよ！！」
  2209. PRINTFORMDW 本気で怒らせてしまったようだ…
  2210. PALAM:Hostil += 100000
  2211. BASE:Anger += 1000
  2212. CFLAG:好感度 -= 1000
  2213. CFLAG:信頼度 -= 1000
  2214. ;マイナスにはならない
  2215. SIF CFLAG:好感度 < 0
  2216. CFLAG:好感度 = 0
  2217. SIF CFLAG:信頼度 < 0
  2218. CFLAG:信頼度 = 0
  2219. ENDIF
  2220. ELSEIF !MARK:反発刻印
  2221. ; ELSEIF ABL:Desire >= 5
  2222. ; PRINTFORMW 「ちゅっ…くちゅ…ぷぁ」
  2223. ; PRINTFORMW 「ん…むちゅ～%UNICODE(0x2665)%」
  2224. IF TALENT:Lover && TALENT:Love && GET_TARGETNUM() == 1
  2225. SELECTCASE RAND:2
  2226. CASE 1
  2227. PRINTFORMW 「次はわたしから%UNICODE(0x2665)% ちゅ～%UNICODE(0x2665)%」
  2228. CASEELSE
  2229. PRINTFORMW 「ねえ、もう一回%UNICODE(0x2665)%」
  2230. ENDSELECT
  2231. EXP:キス経験 += 1
  2232. EXP:MASTER:キス経験 += 1
  2233. ELSEIF TALENT:Love && (OUTROOF(CFLAG:TARGET:現在位置)) || (OPENPLACE(CFLAG:TARGET:現在位置))
  2234. PRINTFORMW 「ちゅうっ…ぷはぁ//　ちょっと恥ずかしいわね//」
  2235. ELSEIF TALENT:Lover && TALENT:Love
  2236. PRINTFORMW 「ちゅうっ…ぷはぁ。　あははは%UNICODE(0x2665)% %CALLNAME:MASTER%だあいすき%UNICODE(0x2665)%」
  2237. ELSEIF TALENT:Love || CFLAG:1014 == 1 || TALENT:Lover
  2238. PRINTFORMW 「ちゅうっ…ぷはぁ。　あははは//」
  2239. ELSE
  2240. PRINTFORMW 「ん！//　ちょちょちょちょっと！　何してるのよ！」
  2241. PALAM:Hostil += 1000
  2242. BASE:Anger += 300
  2243. ENDIF
  2244. ENDIF
  2245. ENDIF
  2246. RETURN 1
  2247. ;==================================================
  2248. ;313,胸愛撫 Ｑなんで中途半端なところだけあるの？　Ａなんもかんも政治が悪いってけーねが言ってた。 単に書けないだけというのは内緒だ！
  2249. ;==================================================
  2250. @M_KOJO_MESSAGE_COM_K44_313
  2251. SIF TALENT:思慕 || TALENT:Love
  2252. CALL TRAIN_MESSAGE
  2253. CALL M_KOJO_MESSAGE_COM_K44_313_1
  2254. RETURN RESULT
  2255.  
  2256. @M_KOJO_MESSAGE_COM_K44_313_1
  2257. ;-------------------------------------------------
  2258. ;記入チェック（=0, 非表示、1, 表示）
  2259. LOCAL = 1
  2260. ;-------------------------------------------------
  2261. CFLAG:1891 = 1
  2262. IF LOCAL && !FLAG:70 && !CFLAG:睡眠 && !CFLAG:Anger
  2263. IF TALENT:Love && DATE_HITOGOMI(CFLAG:PLAYER:現在位置) && TFLAG:400 && ABL:Exposure < 5
  2264. PRINTFORMW 「こらっ！//　やめなさい！//」
  2265. ELSEIF TALENT:Love && (OUTROOF(CFLAG:TARGET:現在位置)) || (OPENPLACE(CFLAG:TARGET:現在位置)) && ABL:Exposure < 5
  2266. PRINTFORMW 「ふあぁっ//　だだだだ誰かに見られたらどうするのよ！//」
  2267. ELSEIF TALENT:思慕
  2268. PRINTFORMW 「ちょちょちょちょっと！//　どこ触ってるのよ//」
  2269. ELSEIF !TALENT:思慕 && !TALENT:Love
  2270. PRINTL 313
  2271. PRINTL 胸愛撫
  2272. DRAWLINE
  2273. PRINTFORML %CALLNAME:PLAYER%は%CALLNAME:TARGET%の胸を服の上から撫でるように揉みしだいた…
  2274. TRYCALLFORM M_KOJO_COLOR_K44
  2275. PRINTFORMW 「なにしてるのよあなた！　魔法使われたい！？」
  2276. PRINTFORMDW エレンは嫌がっている…
  2277. BASE:Anger += 300
  2278. ENDIF
  2279. ENDIF
  2280. RETURN 1
  2281. ;-------------------------------------------------
  2282. ;314,アナル愛撫
  2283. ;-------------------------------------------------
  2284. @M_KOJO_MESSAGE_COM_K44_314
  2285. SIF TALENT:思慕 || TALENT:Love
  2286. CALL TRAIN_MESSAGE
  2287. CALL M_KOJO_MESSAGE_COM_K44_314_1
  2288. RETURN RESULT
  2289.  
  2290. @M_KOJO_MESSAGE_COM_K44_314_1
  2291. ;-------------------------------------------------
  2292. ;記入チェック（=0, 非表示、1, 表示）
  2293. LOCAL = 1
  2294. ;-------------------------------------------------
  2295. CFLAG:1891 = 1
  2296. IF LOCAL && !FLAG:70 && !CFLAG:睡眠 && !CFLAG:Anger
  2297. IF TALENT:Love && (OUTROOF(CFLAG:TARGET:現在位置)) || (OPENPLACE(CFLAG:TARGET:現在位置))
  2298. PRINTFORMW 「ひんっ//　だだだだ誰かに見られたらどうするのよ！//」
  2299. ELSEIF TALENT:思慕
  2300. PRINTFORMW 「ちょちょちょちょっと！//　どこ触ってるのよ！//」
  2301. BASE:Anger += 200
  2302. ELSEIF !TALENT:思慕 && !TALENT:Love
  2303. PRINTL 314
  2304. PRINTL アナル愛撫
  2305. DRAWLINE
  2306. PRINTFORML %CALLNAME:PLAYER%は%CALLNAME:TARGET%のアナルを服の上から指の腹で撫でるように愛撫した…
  2307. TRYCALLFORM M_KOJO_COLOR_K44
  2308. PRINTFORMW 「どこ触ってるのよ！　この変態！！」
  2309. PRINTFORMDW …怒らせてしまったようだ
  2310. BASE:Anger += 500
  2311. ENDIF
  2312. ENDIF
  2313. RETURN 1
  2314. ;==================================================
  2315. ;315,クリ愛撫
  2316. ;==================================================
  2317. @M_KOJO_MESSAGE_COM_K44_315
  2318. SIF TALENT:思慕 || TALENT:Love
  2319. CALL TRAIN_MESSAGE
  2320. CALL M_KOJO_MESSAGE_COM_K44_315_1
  2321. RETURN RESULT
  2322.  
  2323. @M_KOJO_MESSAGE_COM_K44_315_1
  2324. ;-------------------------------------------------
  2325. ;記入チェック（=0, 非表示、1, 表示）
  2326. LOCAL = 1
  2327. ;-------------------------------------------------
  2328. CFLAG:1891 = 1
  2329. IF LOCAL && !FLAG:70 && !CFLAG:睡眠 && !CFLAG:Anger
  2330. IF TALENT:Love && (OUTROOF(CFLAG:TARGET:現在位置)) || (OPENPLACE(CFLAG:TARGET:現在位置))
  2331. PRINTFORMW 「ひゃんっ//　だだだだ誰かに見られたらどうするのよ！//」
  2332. ELSEIF TALENT:思慕
  2333. PRINTFORMW 「ちょちょちょちょっと！//　どこ触ってるのよ！//」
  2334. BASE:Anger += 200
  2335. ELSEIF !TALENT:思慕 && !TALENT:Love
  2336. PRINTL 315
  2337. PRINTL クリ愛撫
  2338. DRAWLINE
  2339. PRINTFORML %CALLNAME:PLAYER%は%CALLNAME:TARGET%の秘所を服の上からそっと撫で回した
  2340. TRYCALLFORM M_KOJO_COLOR_K44
  2341. PRINTFORMW 「どこ触ってるのよ！　この変態！！」
  2342. PRINTFORMDW …怒らせてしまったようだ
  2343. BASE:Anger += 500
  2344. ENDIF
  2345. ENDIF
  2346. RETURN 1
  2347. ;==================================================
  2348. ;316,指挿入れ
  2349. ;==================================================
  2350. @M_KOJO_MESSAGE_COM_K44_316
  2351. SIF TALENT:思慕 || TALENT:Love
  2352. CALL TRAIN_MESSAGE
  2353. CALL M_KOJO_MESSAGE_COM_K44_316_1
  2354. RETURN RESULT
  2355.  
  2356. @M_KOJO_MESSAGE_COM_K44_316_1
  2357. ;-------------------------------------------------
  2358. ;記入チェック（=0, 非表示、1, 表示）
  2359. LOCAL = 1
  2360. ;-------------------------------------------------
  2361. CFLAG:1891 = 1
  2362. IF LOCAL && !FLAG:70 && !CFLAG:睡眠 && !CFLAG:Anger
  2363. IF TALENT:Love && (OUTROOF(CFLAG:TARGET:現在位置)) || (OPENPLACE(CFLAG:TARGET:現在位置))
  2364. PRINTFORMW 「きゃあっ//　だだだだ誰かに見られたらどうするのよ！//」
  2365. ELSEIF TALENT:思慕
  2366. PRINTFORMW 「ちょちょちょちょっと！//　なにしてるのよ！//」
  2367. BASE:Anger += 300
  2368. ELSEIF !TALENT:思慕 && !TALENT:Love
  2369. PRINTL 316
  2370. PRINTL 指挿入れ
  2371. DRAWLINE
  2372. PRINTFORML %CALLNAME:PLAYER%は%CALLNAME:TARGET%の秘所に手を伸ばし下着の隙間からゆっくりと指を挿入した…
  2373. TRYCALLFORM M_KOJO_COLOR_K44
  2374. PRINTFORMW 「いたっ！　…なにしてるのよ！　この変態！！」
  2375. PRINTFORMDW …怒らせてしまったようだ
  2376. BASE:Anger += 1000
  2377. ENDIF
  2378. ENDIF
  2379. RETURN 1
  2380. ;==================================================
  2381. ;317,Ｖ腰を振る
  2382. ;==================================================
  2383. @M_KOJO_MESSAGE_COM_K44_317
  2384. CALL TRAIN_MESSAGE
  2385. CALL M_KOJO_MESSAGE_COM_K44_317_1
  2386. RETURN RESULT
  2387.  
  2388. @M_KOJO_MESSAGE_COM_K44_317_1
  2389. ;-------------------------------------------------
  2390. ;記入チェック（=0, 非表示、1, 表示）
  2391. LOCAL = 0
  2392. ;-------------------------------------------------
  2393. IF LOCAL
  2394.  
  2395. ENDIF
  2396. RETURN 1
  2397. ;==================================================
  2398. ;318,Ａ腰を振る
  2399. ;==================================================
  2400. @M_KOJO_MESSAGE_COM_K44_318
  2401. CALL TRAIN_MESSAGE
  2402. CALL M_KOJO_MESSAGE_COM_K44_318_1
  2403. RETURN RESULT
  2404.  
  2405. @M_KOJO_MESSAGE_COM_K44_318_1
  2406. ;-------------------------------------------------
  2407. ;記入チェック（=0, 非表示、1, 表示）
  2408. LOCAL = 0
  2409. ;-------------------------------------------------
  2410. IF LOCAL
  2411.  
  2412. ENDIF
  2413. RETURN 1
  2414. ;==================================================
  2415. ;330,スカートめくり
  2416. ;==================================================
  2417. @M_KOJO_MESSAGE_COM_K44_330
  2418. CALL TRAIN_MESSAGE
  2419. CALL M_KOJO_MESSAGE_COM_K44_330_1
  2420. RETURN RESULT
  2421.  
  2422. @M_KOJO_MESSAGE_COM_K44_330_1
  2423. ;-------------------------------------------------
  2424. ;記入チェック（=0, 非表示、1, 表示）
  2425. LOCAL = 1
  2426. ;-------------------------------------------------
  2427. CFLAG:1891 = 1
  2428. IF LOCAL
  2429. IF TALENT:Love || TALENT:Lover
  2430. IF (OUTROOF(CFLAG:TARGET:現在位置)) || (OPENPLACE(CFLAG:TARGET:現在位置))
  2431. PRINTFORMW 「ちょちょちょちょっと//　誰かに見られたらどうするのよ//」
  2432. ELSE
  2433. PRINTFORMW 「もー%CALLNAME:MASTER%ってば、本当にえっちなんだから…//」
  2434. ENDIF
  2435. ELSEIF TALENT:思慕
  2436. IF CFLAG:2 <= 3000
  2437. PRINTFORMW 「ちょちょちょちょっと！　何してるのよ！変態！」
  2438. ELSEIF CFLAG:2 >= 3001 && CFLAG:2 <= 5000
  2439. PRINTFORMW 「ちょちょちょちょっと！　何してるのよ！まったく！//」
  2440. ELSEIF (OUTROOF(CFLAG:TARGET:現在位置)) || (OPENPLACE(CFLAG:TARGET:現在位置))
  2441. PRINTFORMW 「ちょちょちょちょっと//　こんな所でなにしてるのよ！」
  2442. ELSE
  2443. PRINTFORMW 「%CALLNAME:MASTER%ってばもー…//」
  2444. ENDIF
  2445. ELSEIF ABL:Intimacy >= 2
  2446. IF (OUTROOF(CFLAG:TARGET:現在位置)) || (OPENPLACE(CFLAG:TARGET:現在位置))
  2447. PRINTFORMW 「ちょちょちょちょっと！　こんな所でなにしてるのよ！」
  2448. ELSE
  2449. PRINTFORMW 「ちょちょちょちょっと！　何してるのよ！変態！」
  2450. ENDIF
  2451. ELSE
  2452. PRINTFORMW 「なにしてるのよあなた！　魔法使うわよ！！」
  2453. ENDIF
  2454. ENDIF
  2455. RETURN 1
  2456.  
  2457. ;==================================================
  2458. ;331,お茶を淹れる（薬入り）
  2459. ;==================================================
  2460. @M_KOJO_MESSAGE_COM_K44_331
  2461. CALL TRAIN_MESSAGE
  2462. CALL M_KOJO_MESSAGE_COM_K44_331_1
  2463. RETURN RESULT
  2464.  
  2465. @M_KOJO_MESSAGE_COM_K44_331_1
  2466. ;-------------------------------------------------
  2467. ;記入チェック（=0, 非表示、1, 表示）
  2468. LOCAL = 0
  2469. ;-------------------------------------------------
  2470. IF LOCAL
  2471.  
  2472. ENDIF
  2473. RETURN 1
  2474.  
  2475. ;==================================================
  2476. ;332,お酒をふるまう
  2477. ;==================================================
  2478. @M_KOJO_MESSAGE_COM_K44_332
  2479. CALL TRAIN_MESSAGE
  2480. CALL M_KOJO_MESSAGE_COM_K44_332_1
  2481. RETURN RESULT
  2482.  
  2483. @M_KOJO_MESSAGE_COM_K44_332_1
  2484. ;-------------------------------------------------
  2485. ;記入チェック（=0, 非表示、1, 表示）
  2486. LOCAL = 1
  2487. ;-------------------------------------------------
  2488. IF LOCAL
  2489. IF FIRSTTIME(SELECTCOM)
  2490. IF TALENT:Lover || TALENT:Love || TALENT:思慕
  2491. PRINTFORMW 「ありがと%UNICODE(0x2665)% それじゃあかんぱーい%UNICODE(0x2665)%」
  2492. ELSE
  2493. IF TFLAG:98 == -1
  2494. PRINTFORMW 「不味いわけじゃないんだけど……」
  2495. ELSE
  2496. PRINTFORMW 「それじゃあ早速飲みましょう」
  2497. ENDIF
  2498. ENDIF
  2499. ELSEIF !TALENT:Love && CFLAG:泥酔姦 == 2
  2500.  
  2501. ELSE
  2502. ;恋慕かつ恋人
  2503. IF TALENT:Love && TALENT:Lover
  2504. IF TFLAG:98 == -1
  2505. PRINTFORMW 「うーん、わたしには合わないわねー」
  2506. ELSEIF BASE:Tipsy > MAXBASE:Tipsy / 2
  2507. SELECTCASE RAND:2
  2508. CASE 1
  2509. PRINTFORMW 「おいしいお酒ねー%UNICODE(0x2665)%」
  2510. CASEELSE
  2511. PRINTFORMDL 酔ったエレンは、\@ GET_TARGETNUM() > 1 ? 人目もはばからず # \@%CALLNAME:MASTER%に抱きついてきた
  2512. PRINTFORMW 「%CALLNAME:MASTER%すきー%UNICODE(0x2665)% だいすきー%UNICODE(0x2665)%%UNICODE(0x2665)%」
  2513. ENDSELECT
  2514. ELSE
  2515. SELECTCASE RAND:2
  2516. CASE 1
  2517. PRINTFORMW 「今度はわたしが注ぐ番よ%UNICODE(0x2665)%」
  2518. CASEELSE
  2519. PRINTFORMW 「%CALLNAME:MASTER%と飲んでいると、幸せのあまり時間の経過を忘れちゃうわ%UNICODE(0x2665)%」
  2520. ENDSELECT
  2521. ENDIF
  2522. ;Love or 準恋慕 or Lover
  2523. ELSEIF TALENT:Love || CFLAG:1014 == 1 || TALENT:Lover
  2524. IF TFLAG:98 == -1
  2525. PRINTFORMW 「うーん、わたしには合わないわねー」
  2526. ELSEIF BASE:Tipsy > MAXBASE:Tipsy / 2
  2527. SELECTCASE RAND:2
  2528. CASE 1
  2529. PRINTFORMW 「これだけじゃあ足りないわ%UNICODE(0x2665)% もっと注いで%UNICODE(0x2665)%」
  2530. CASEELSE
  2531. PRINTFORMW 「あれ？ %CALLNAME:MASTER%って二人もいたっけ？　…幻覚？」
  2532. ENDSELECT
  2533. ELSE
  2534. SELECTCASE RAND:2
  2535. CASE 1
  2536. PRINTFORMW 「今度はわたしが注ぐわ%UNICODE(0x2665)%」
  2537. CASEELSE
  2538. PRINTFORMW 「あはは//　%CALLNAME:MASTER%と飲んでいるととっても幸せだわ//」
  2539. ENDSELECT
  2540. ENDIF
  2541. ;思慕
  2542. ELSEIF TALENT:思慕
  2543. IF TFLAG:98 == -1
  2544. PRINTFORMW 「うーん、わたしには合わないわねー」
  2545. ELSEIF BASE:Tipsy > MAXBASE:Tipsy / 2
  2546. SELECTCASE RAND:2
  2547. CASE 1
  2548. PRINTFORMW 「あはははは%UNICODE(0x2665)% もっと注いで%UNICODE(0x2665)%」
  2549. CASEELSE
  2550. PRINTFORMW 「あれ？ %CALLNAME:MASTER%って二人もいたっけ？　…幻覚？」
  2551. ENDSELECT
  2552. ELSE
  2553. PRINTFORMW 「今度はわたしが注ぐわ%UNICODE(0x2665)% ささ、遠慮しないで%UNICODE(0x2665)%」
  2554. ENDIF
  2555. ;それ以外
  2556. ELSE
  2557. IF TFLAG:98 == -1
  2558. PRINTFORMW 「不味いわけじゃないんだけど……」
  2559. ELSE
  2560. PRINTFORMW 「うん、おいしい%UNICODE(0x2665)%」
  2561. ENDIF
  2562. ENDIF
  2563. ENDIF
  2564. ENDIF
  2565. RETURN 1
  2566. ;==================================================
  2567. ;334,料理を勧める/杯を交わす
  2568. ;==================================================
  2569. @M_KOJO_MESSAGE_COM_K44_334
  2570. CALL TRAIN_MESSAGE
  2571. CALL M_KOJO_MESSAGE_COM_K44_334_1
  2572. RETURN RESULT
  2573.  
  2574. @M_KOJO_MESSAGE_COM_K44_334_1
  2575. IF FLAG:70
  2576. ;宴会（妊娠していない）
  2577. IF CFLAG:妊娠自覚状態 != 1
  2578. ;半分以上残っている
  2579. IF BASE:Workload >= (MAXBASE:Workload / 2)
  2580. ;まずは一杯
  2581. IF TCVAR:356 <= 1
  2582. IF TALENT:Lover
  2583. PRINTFORMW 「ありがと%UNICODE(0x2665)% それじゃあかんぱーい%UNICODE(0x2665)%」
  2584. ELSEIF TALENT:Love || CFLAG:1014 == 1
  2585. PRINTFORMW 「あら%UNICODE(0x2665)% ありがとう%UNICODE(0x2665)%」
  2586. ELSEIF TALENT:思慕
  2587. PRINTFORMW 「ありがとう%CALLNAME:MASTER%%UNICODE(0x2665)%」
  2588. ELSE
  2589. PRINTFORMW 「あら、気が利くわね%UNICODE(0x2665)%」
  2590. ENDIF
  2591. TCVAR:356 = 2
  2592. ELSE
  2593. ;4分の1の確率で会話に
  2594. IF RAND:4 >= 1
  2595. IF TALENT:Lover
  2596. SELECTCASE RAND:5
  2597. CASE 1
  2598. PRINTFORMW 「今度はわたしが注ぐ番よ%UNICODE(0x2665)%」
  2599. CASE 2
  2600. PRINTFORMW 「あはははは%UNICODE(0x2665)%　%CALLNAME:MASTER%と飲んでいると幸せのあまり時間の経過を忘れちゃうわ%UNICODE(0x2665)%」
  2601. CASE 3
  2602. PRINTFORMW 「お酒だけじゃなくて料理も楽しみましょう%UNICODE(0x2665)%」
  2603. CASE 4
  2604. PRINTFORMW 「この料理もおいしー%UNICODE(0x2665)% %CALLNAME:MASTER%も一口どう%UNICODE(0x2665)%」
  2605. CASEELSE
  2606. PRINTFORMW 「おいしそうな料理ね、一口もらってもいい？」
  2607. ENDSELECT
  2608. ELSEIF TALENT:Love || CFLAG:1014 == 1
  2609. SELECTCASE RAND:4
  2610. CASE 1
  2611. PRINTFORMW 「今度はわたしが注ぐわ%UNICODE(0x2665)%」
  2612. CASE 2
  2613. PRINTFORMW 「あはははは//　%CALLNAME:MASTER%と飲んでいるととっても幸せだわ%UNICODE(0x2665)%」
  2614. CASE 3
  2615. PRINTFORMW 「この料理、とってもおいしいわ%UNICODE(0x2665)% %CALLNAME:MASTER%も食べてみない？」
  2616. CASEELSE
  2617. PRINTFORMW 「おいしそうな料理ね、一口もらってもいいかしら？」
  2618. ENDSELECT
  2619. ELSEIF TALENT:思慕
  2620. SELECTCASE RAND:4
  2621. CASE 1
  2622. PRINTFORMW 「今度はわたしが注ぐわ%UNICODE(0x2665)% ささ、遠慮しないで%UNICODE(0x2665)%」
  2623. CASE 2
  2624. PRINTFORMW 「お酒だけじゃなくて料理も楽しまないとね%UNICODE(0x2665)%」
  2625. CASE 3
  2626. PRINTFORMW 「この料理、とってもおいしいわ%UNICODE(0x2665)% %CALLNAME:MASTER%も食べてみる？」
  2627. CASEELSE
  2628. PRINTFORMW 「あら、%CALLNAME:MASTER%の食べてる料理、なんだかおいしそうね、一口くれるかしら？」
  2629. ENDSELECT
  2630. ELSE
  2631. SELECTCASE RAND:2
  2632. CASE 1
  2633. PRINTFORMW 「今度はわたしが注ぐわ%UNICODE(0x2665)% 遠慮はいらないわよ」
  2634. CASEELSE
  2635. PRINTFORMW 「あら、%CALLNAME:MASTER%の食べてる料理、なんだかおいしそうね、どこに置いてあったの？」
  2636. ENDSELECT
  2637. ENDIF
  2638. ELSE
  2639. IF (MOON_WATCH_POINT(CFLAG:44:現在位置)) && TIME:5 <= 1 && RAND:3 >= 1
  2640. CALL M_KOJO_MESSAGE_COM_K44_300_1_MOON_WATCH
  2641. ELSE
  2642. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  2643. ENDIF
  2644. ENDIF
  2645. ENDIF
  2646. ELSE
  2647. ;上機嫌
  2648. IF TALENT:Humor == 1
  2649. SELECTCASE RAND:4
  2650. CASE 1
  2651. PRINTFORMW 「あはははははは%UNICODE(0x2665)%」
  2652. CASE 2
  2653. PRINTFORMW 「きゃははははははは%UNICODE(0x2665)%」
  2654. ;CASE 3
  2655. ; PRINTFORML 気分が乗ってきたのか、エレンは突然歌を歌いだした
  2656. ; SELECTCASE RAND:3
  2657. ; CASE 1
  2658. ; ;カラオケ版はトラウマ、裏面マジ鬼畜
  2659. ; PRINTFORMW 「やっまっあっるき～♪やっまっあっるき～♪　やっまっをある～こう♪やっまっあっるき～♪♪」
  2660. ; CASE 2
  2661. ; ;うにとカレー♪
  2662. ; PRINTFORMW 「だいなでだ～いなあ～いらん♪」
  2663. ; CASEELSE
  2664. ; ;エレンかわいいよエレン
  2665. ; PRINTFORMW 「わたしはふわふわ♪　た～ん～ぽぽ♪わ～た～がし♪♪」
  2666. ; ENDSELECT
  2667. CASEELSE
  2668. ;関係に応じて分岐
  2669. IF TALENT:Lover
  2670. SELECTCASE RAND:3
  2671. CASE 1
  2672. PRINTFORMW 「あはははは%UNICODE(0x2665)% もっと飲みましょう%UNICODE(0x2665)%」
  2673. CASE 2
  2674. PRINTFORML 酔ったエレンは、人目もはばからず%CALLNAME:MASTER%に抱きついてきた
  2675. PRINTFORMW 「%CALLNAME:MASTER%すきー%UNICODE(0x2665)% だいすきー%UNICODE(0x2665)%%UNICODE(0x2665)%」
  2676. CASEELSE
  2677. PRINTFORMW 「あれ？ %CALLNAME:MASTER%って二人もいたっけ？　…幻覚？」
  2678. ENDSELECT
  2679. ELSEIF TALENT:Love || CFLAG:1014 == 1
  2680. SELECTCASE RAND:3
  2681. CASE 1
  2682. PRINTFORMW 「あはははは%UNICODE(0x2665)% もっと注いで%UNICODE(0x2665)%//」
  2683. CASE 2
  2684. PRINTFORMW 「%CALLNAME:MASTER%といるこの時間がずっと続けばいいのになー…」
  2685. CASEELSE
  2686. PRINTFORMW 「あれ？ %CALLNAME:MASTER%って二人もいたっけ？　…幻覚？」
  2687. ENDSELECT
  2688. ELSEIF TALENT:思慕
  2689. SELECTCASE RAND:2
  2690. CASE 1
  2691. PRINTFORMW 「あはははは%UNICODE(0x2665)% もっと注いで%UNICODE(0x2665)%」
  2692. CASEELSE
  2693. PRINTFORMW 「あら、%CALLNAME:MASTER%の食べてる料理、なんだかおいしそうね、一口くれるかしら？」
  2694. ENDSELECT
  2695. ELSE
  2696. SELECTCASE RAND:2
  2697. CASE 1
  2698. PRINTFORMW 「今度はわたしが注ぐわ%UNICODE(0x2665)% 遠慮はいらないわよ%UNICODE(0x2665)%」
  2699. CASEELSE
  2700. PRINTFORMW 「あら、%CALLNAME:MASTER%の食べてる料理、なんだかおいしそうね、どこに置いてあったの？」
  2701. ENDSELECT
  2702. ENDIF
  2703. ENDSELECT
  2704. ;不機嫌
  2705. ELSEIF TALENT:Humor == -1
  2706. SELECTCASE RAND:4
  2707. CASE 1
  2708. PRINTFORMW 「なによ、わたしのお酒が飲めないの？」
  2709. CASE 2
  2710. PRINTFORMW 「あはははははは%UNICODE(0x2665)%」
  2711. CASE 3
  2712. PRINTFORMW 「酔っ払ってなんかないわよー%UNICODE(0x2665)%」
  2713. CASEELSE
  2714. PRINTFORMW 「あはははは%UNICODE(0x2665)% もう一杯ちょうだい%UNICODE(0x2665)%」
  2715. ENDSELECT
  2716. ;ふつー
  2717. ELSE
  2718. SELECTCASE RAND:4
  2719. CASE 1
  2720. PRINTFORMW 「あはははははは%UNICODE(0x2665)%」
  2721. CASE 2
  2722. PRINTFORMW 「なんだか頭がくらくらするー」
  2723. CASEELSE
  2724. ;関係に応じて分岐
  2725. IF TALENT:Lover
  2726. SELECTCASE RAND:3
  2727. CASE 1
  2728. PRINTFORMW 「今度はわたしが注ぐ番よ%UNICODE(0x2665)%」
  2729. CASE 2
  2730. PRINTFORMW 「あはははは%UNICODE(0x2665)%　%CALLNAME:MASTER%と飲んでいると幸せのあまり時間の経過を忘れちゃうわ%UNICODE(0x2665)%」
  2731. CASEELSE
  2732. ;まだ4分の1以上残っている
  2733. IF BASE:Workload >= (MAXBASE:Workload / 4)
  2734. SELECTCASE RAND:3
  2735. CASE 1
  2736. PRINTFORMW 「お酒だけじゃなくて料理も楽しみましょう%UNICODE(0x2665)%」
  2737. CASE 2
  2738. PRINTFORMW 「この料理もおいしー%UNICODE(0x2665)% %CALLNAME:MASTER%も一口どう%UNICODE(0x2665)%」
  2739. CASEELSE
  2740. PRINTFORMW 「おいしそうな料理ね、一口もらってもいい？」
  2741. ENDSELECT
  2742. ELSE
  2743. ;食事終了
  2744. IF TCVAR:356 <= 2
  2745. PRINTFORMW 「ごちそうさまでした%UNICODE(0x2665)% もうお腹ぱんぱんだわ%UNICODE(0x2665)%」
  2746. PRINTFORMW 「食事は堪能したし、あとは二人でお酒を飲みながらお話しましょう%UNICODE(0x2665)%」
  2747. TCVAR:356 = 3
  2748. ELSE
  2749. IF (MOON_WATCH_POINT(CFLAG:44:現在位置)) && TIME:5 <= 1 && RAND:3 >= 1
  2750. CALL M_KOJO_MESSAGE_COM_K44_300_1_MOON_WATCH
  2751. ELSE
  2752. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  2753. ENDIF
  2754. ENDIF
  2755. ENDIF
  2756. ENDSELECT
  2757. ELSEIF TALENT:Love || CFLAG:1014 == 1
  2758. SELECTCASE RAND:3
  2759. CASE 1
  2760. PRINTFORMW 「今度はわたしが注ぐわ%UNICODE(0x2665)%」
  2761. CASE 2
  2762. PRINTFORMW 「あはははは//　%CALLNAME:MASTER%と飲んでいるととっても幸せだわ%UNICODE(0x2665)%」
  2763. CASEELSE
  2764. ;まだ4分の1以上残っている
  2765. IF BASE:Workload >= (MAXBASE:Workload / 4)
  2766. SELECTCASE RAND:2
  2767. CASE 1
  2768. PRINTFORMW 「この料理、とってもおいしいわ%UNICODE(0x2665)% %CALLNAME:MASTER%も食べてみない？」
  2769. CASEELSE
  2770. PRINTFORMW 「おいしそうな料理ね、一口もらってもいいかしら？」
  2771. ENDSELECT
  2772. ELSE
  2773. ;食事終了
  2774. IF TCVAR:356 <= 2
  2775. PRINTFORMW 「ごちそうさまでした%UNICODE(0x2665)% もうお腹ぱんぱんよ」
  2776. PRINTFORMW 「食事も終わったことだし、二人でのんびりとお酒を楽しみながらお話でもしない？//」
  2777. TCVAR:356 = 3
  2778. ELSE
  2779. IF (MOON_WATCH_POINT(CFLAG:44:現在位置)) && TIME:5 <= 1 && RAND:3 >= 1
  2780. CALL M_KOJO_MESSAGE_COM_K44_300_1_MOON_WATCH
  2781. ELSE
  2782. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  2783. ENDIF
  2784. ENDIF
  2785. ENDIF
  2786. ENDSELECT
  2787. ELSEIF TALENT:思慕
  2788. SELECTCASE RAND:3
  2789. CASE 1
  2790. PRINTFORMW 「今度はわたしが注ぐわ%UNICODE(0x2665)% ささ、遠慮しないで%UNICODE(0x2665)%」
  2791. CASE 2
  2792. PRINTFORMW 「ちょっと眠くなってきたわねー…むにゃ」
  2793. CASEELSE
  2794. ;まだ4分の1以上残っている
  2795. IF BASE:Workload >= (MAXBASE:Workload / 4)
  2796. SELECTCASE RAND:2
  2797. CASE 1
  2798. PRINTFORMW 「この料理、とってもおいしいわ%UNICODE(0x2665)% %CALLNAME:MASTER%も食べてみる？」
  2799. CASEELSE
  2800. PRINTFORMW 「あら、%CALLNAME:MASTER%の食べてる料理、なんだかおいしそうね、一口くれるかしら？」
  2801. ENDSELECT
  2802. ELSE
  2803. ;食事終了
  2804. IF TCVAR:356 <= 2
  2805. PRINTFORMW 「ごちそうさまでした%UNICODE(0x2665)% もうお腹ぱんぱんよ」
  2806. PRINTFORMW 「さてと、後はお酒を楽しみながらお話しましょう%UNICODE(0x2665)%」
  2807. TCVAR:356 = 3
  2808. ELSE
  2809. IF (MOON_WATCH_POINT(CFLAG:44:現在位置)) && TIME:5 <= 1 && RAND:3 >= 1
  2810. CALL M_KOJO_MESSAGE_COM_K44_300_1_MOON_WATCH
  2811. ELSE
  2812. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  2813. ENDIF
  2814. ENDIF
  2815. ENDIF
  2816. ENDSELECT
  2817. ELSE
  2818. SELECTCASE RAND:3
  2819. CASE 1
  2820. PRINTFORMW 「今度はわたしが注ぐわ%UNICODE(0x2665)% 遠慮はいらないわよ%UNICODE(0x2665)%」
  2821. CASE 2
  2822. PRINTFORMW 「ちょっと眠くなってきたわねー…むにゃ」
  2823. CASEELSE
  2824. PRINTFORMW 「あら、%CALLNAME:MASTER%の食べてる料理、なんだかおいしそうね、どこに置いてあったの？」
  2825. ENDSELECT
  2826. ENDIF
  2827. ENDSELECT
  2828. ENDIF
  2829. ENDIF
  2830. ;宴会（妊娠している）
  2831. ELSEIF CFLAG:妊娠自覚状態 == 1
  2832. ;4分の1の確率で会話に
  2833. IF RAND:4 >= 1
  2834. IF TALENT:Lover
  2835. SELECTCASE RAND:4
  2836. CASE 1
  2837. PRINTFORMW 「%CALLNAME:MASTER%と食事してるといつもよりおいしく感じるわ%UNICODE(0x2665)%」
  2838. CASE 2
  2839. PRINTFORMW 「ありがと%UNICODE(0x2665)% お返しに%CALLNAME:MASTER%のお皿に料理をよそってあげるわ%UNICODE(0x2665)%」
  2840. CASE 3
  2841. PRINTFORMW 「この料理もおいしー%UNICODE(0x2665)% %CALLNAME:MASTER%も一口どう%UNICODE(0x2665)%」
  2842. CASEELSE
  2843. PRINTFORMW 「おいしそうな料理ね、一口もらってもいい？」
  2844. ENDSELECT
  2845. ELSEIF TALENT:Love || CFLAG:1014 == 1
  2846. SELECTCASE RAND:4
  2847. CASE 1
  2848. PRINTFORMW 「あはははは//　%CALLNAME:MASTER%と食事してるとなんだか幸せだわ%UNICODE(0x2665)%」
  2849. CASE 2
  2850. PRINTFORMW 「あら%UNICODE(0x2665)% ありがとう%UNICODE(0x2665)%」
  2851. CASE 3
  2852. PRINTFORMW 「この料理、とってもおいしいわ%UNICODE(0x2665)% %CALLNAME:MASTER%も食べてみない？」
  2853. CASEELSE
  2854. PRINTFORMW 「おいしそうな料理ね、一口もらってもいいかしら？」
  2855. ENDSELECT
  2856. ELSEIF TALENT:思慕
  2857. SELECTCASE RAND:3
  2858. CASE 1
  2859. PRINTFORMW 「この料理、とってもおいしいわ%UNICODE(0x2665)% %CALLNAME:MASTER%も食べてみる？」
  2860. CASE 2
  2861. PRINTFORMW 「あら%UNICODE(0x2665)% 料理をよそってくれたのね、ありがとう%UNICODE(0x2665)%」
  2862. CASEELSE
  2863. PRINTFORMW 「あら、%CALLNAME:MASTER%の食べてる料理、なんだかおいしそうね、一口くれるかしら？」
  2864. ENDSELECT
  2865. ENDIF
  2866. ELSE
  2867. IF (MOON_WATCH_POINT(CFLAG:44:現在位置)) && TIME:5 <= 1 && RAND:3 >= 1
  2868. CALL M_KOJO_MESSAGE_COM_K44_300_1_MOON_WATCH
  2869. ELSE
  2870. CALL M_KOJO_MESSAGE_COM_K44_300_1_HANYO
  2871. ENDIF
  2872. ENDIF
  2873. ENDIF
  2874. ENDIF
  2875. RETURN 1
  2876.  
  2877. ;==================================================
  2878. ;335,介抱する
  2879. ;==================================================
  2880. @M_KOJO_MESSAGE_COM_K44_335
  2881. CALL TRAIN_MESSAGE
  2882. CALL M_KOJO_MESSAGE_COM_K44_335_1
  2883. RETURN RESULT
  2884.  
  2885. @M_KOJO_MESSAGE_COM_K44_335_1
  2886.  
  2887. IF !FLAG:70
  2888. IF TALENT:Lover
  2889. PRINTFORMW 「ありがとう%CALLNAME:MASTER%%UNICODE(0x2665)% とても助かるわ%UNICODE(0x2665)%」
  2890. ELSEIF TALENT:Love || CFLAG:1014 == 1
  2891. PRINTFORMW 「あああありがとう%UNICODE(0x2665)%//」
  2892. ELSEIF TALENT:思慕
  2893. PRINTFORMW 「ありがとう%CALLNAME:MASTER%%UNICODE(0x2665)% おかげでちょっと楽になったわ%UNICODE(0x2665)%」
  2894. ELSE
  2895. PRINTFORMW 「ありがとう%UNICODE(0x2665)% 少し楽になったわ%UNICODE(0x2665)%」
  2896. ENDIF
  2897. ENDIF
  2898.  
  2899. RETURN 1
  2900. ;==================================================
  2901. ;350,押し倒す（時姦時イタズラする）
  2902. ;==================================================
  2903. @M_KOJO_MESSAGE_COM_K44_350
  2904. SIF (TALENT:Love || TALENT:Lover) || TALENT:Slut
  2905. CALL TRAIN_MESSAGE
  2906. CALL M_KOJO_MESSAGE_COM_K44_350_1
  2907. RETURN RESULT
  2908.  
  2909. @M_KOJO_MESSAGE_COM_K44_350_1
  2910. ;-------------------------------------------------
  2911. ;記入チェック（=0, 非表示、1, 表示）
  2912. LOCAL = 1
  2913. ;-------------------------------------------------
  2914. CFLAG:1891 = 1
  2915. IF LOCAL && !FLAG:70 && !CFLAG:睡眠 && !CFLAG:Anger && !TCVAR:泥酔
  2916. ;今は押し倒せない
  2917. IF TFLAG:押し倒せない && (TALENT:Love || TALENT:Lover) && CFLAG:うふふ != 2 && !MARK:反発刻印
  2918. IF TCVAR:抱き寄せ初回 == 6
  2919. PRINTFORMW 「まったく%CALLNAME:MASTER%ったら//」
  2920. ELSEIF TCVAR:抱き寄せ初回 == 7
  2921. PRINTFORMW 「%CALLNAME:MASTER%のことは好きだけど…//　こうムードとか…その…」
  2922. PRINTFORMW 「とにかくだめ！//」
  2923. ;恋人か恋慕あるならまずこれにはならんだろう、というわけで省略
  2924. ELSEIF TCVAR:抱き寄せ初回 == 8
  2925. PRINTFORMW まだ暫定メッセージなり（・∀・）
  2926. ELSE
  2927. PRINTFORMW 「ごめんね、今はそんな気分じゃないの」
  2928. ENDIF
  2929. ;状況が悪い
  2930. ELSEIF TFLAG:194 >= 1 && (TALENT:Lover || TALENT:Love) && !MARK:反発刻印
  2931. IF TFLAG:194 == 1
  2932. PRINTFORMW 「するなら二人きりになれる場所がいいわ//」
  2933. ELSEIF TFLAG:194 == 2
  2934. PRINTFORMW 「ここでするのはちょっと…//」
  2935. ELSEIF TFLAG:194 == 3
  2936. PRINTFORMW 「多人数でするのはちょっと…いやかな」
  2937. ELSEIF TFLAG:194 == 4
  2938. PRINTFORMW 「ごめんね、今はそんな気分じゃないの」
  2939. ENDIF
  2940. ;既に押し倒されてるor押し倒されて抜け出してから押し倒す
  2941. ELSEIF TCVAR:371 == 1
  2942. PRINTFORMW 「我慢できなくてごめんね。　お願い、エレンのこといっぱい可愛がって//」
  2943. TCVAR:371 = 0
  2944. TCVAR:372 = 1
  2945. ELSEIF TALENT:Lover && TALENT:Love
  2946. IF FIRSTTIME(1021)
  2947. PRINTFORMW 「わたし達、とうとうえっちするんだよね//」
  2948. PRINTFORMW 「初めてだからちょっと不安だけど…　それ以上に嬉しい気持ちでいっぱいだわ%UNICODE(0x2665)%」
  2949. PRINTFORMW 「どういう風に嬉しいかって？　それは……色々よ//」
  2950. PRINTFORMW 「もう//　…ねえ%CALLNAME:MASTER%、出来るだけでいいから優しくしてね%UNICODE(0x2665)%//」
  2951. EXP:愛情経験 += 30
  2952. ELSEIF TALENT:Virgin && EXP:Ｖ経験 == 0
  2953. PRINTFORMW 「…今回は最後までしたいわ//」
  2954. ELSEIF TALENT:Pregnancy && PALAM:Desire < PALAMLV:10 && (!TALENT:MASTER:ThickSemen || BASE:MASTER:EREC < 1200)
  2955. PRINTFORMW 「子供に悪いからしたくないけど…、%CALLNAME:MASTER%はしたいんだよね//」
  2956. PRINTFORMW 「……わかったわ、してもいいけど…　やさしくしてね//」
  2957. ELSEIF (OUTROOF(CFLAG:現在位置))
  2958. PRINTFORMW 「ええええっ！//　外でするの！？//」
  2959. PRINTFORMW 「……すごい恥ずかしいけど、%CALLNAME:MASTER%がしたいんだったら//」
  2960. ELSE
  2961. IF PALAM:Desire >= PALAMLV:10 && BASE:Mood >= 1000
  2962. SELECTCASE RAND:3
  2963. CASE 1
  2964. PRINTFORMW 「いいわよ。　きて、%CALLNAME:MASTER%//」
  2965. CASE 2
  2966. PRINTFORMW 「それじゃあしよっか。　%CALLNAME:MASTER%//」
  2967. CASEELSE
  2968. PRINTFORMW 「エレンのこと、いっぱい愛してね//」
  2969. ENDSELECT
  2970. ELSEIF TALENT:MASTER:ThickSemen && BASE:MASTER:EREC >= 1200
  2971. PRINTFORMW 「えっと……　抜いて…欲しいのね//」
  2972. PRINTFORMW 「……うん、%CALLNAME:MASTER%ならいいわよ//」
  2973. SIF TALENT:Pregnancy
  2974. PRINTFORMW 「でも…、挿入はだめよ」
  2975. ELSE
  2976. PRINTFORMW 「その…、えっち、したいのよね//」
  2977. PRINTFORMW 「してもいいけど…、あの…//　優しくして//」
  2978. ENDIF
  2979. IF !TALENT:Pregnancy && GET_TARGETNUM() == 1
  2980. ;スペシャルな
  2981. SELECTCASE RAND:20
  2982. ;魔法の御香
  2983. CASE 0
  2984. ;エレン私室でのみ発生
  2985. IF (CFLAG:現在位置 == 16 && FLAG:15 == 44) || CFLAG:44:現在位置 == OMANEKIBEYA()
  2986. IF FIRSTTIME(1029)
  2987. PRINTFORMW 「今日はいい物を用意してきたわ%UNICODE(0x2665)%//」
  2988. PRINTFORMDW エレンはそう言いながら棚から御香と香炉を取り出した
  2989. PRINTFORMW 「今から準備するからちょっと待っててね」
  2990. PRINTFORMDW …
  2991. PRINTFORMW 「ふう、これで準備完了よっ%UNICODE(0x2665)%　あとはお香の香りが広がるのを待ちましょう%UNICODE(0x2665)%」
  2992. PRINTFORMDW 甘さの中に淫靡さを秘めたような香りがエレンの部屋に広がる…
  2993. PRINTFORMDW 香りが%CALLNAME:MASTER%を刺激し、理性は崩され、怒張が服の上からでも分かる位に直立している
  2994. PRINTFORMDW エレンも香りに当てられたのか顔は紅潮し、秘部は愛液で濡れている…
  2995. PRINTFORMW 「…ちょっと、効き目を強くしすぎたかしら//　%CALLNAME:MASTER%だけでなく、わたしもちょっとおかしくなっちゃいそう…//」
  2996. PRINTFORMW 「それじゃ、はじめよっか//　いっぱい気持ちよくしてあげる//」
  2997. ;初回に限り更に欲望上昇
  2998. ABL:Desire += 1
  2999. ABL:MASTER:Desire += 1
  3000. PALAM:Desire += 20000
  3001. PALAM:Lubric += 7000
  3002. ;二回目以降は%CALLNAME:MASTER%が調合知識を獲得できるまで魔法各種経験を上げている必要あり
  3003. ELSE
  3004. PRINTFORMDW ふと棚を見ると、そこにはあの時の御香が置いてあった
  3005. $LOOP
  3006. PRINTFORMDL %CALLNAME:MASTER%は……
  3007. PRINTDL [0] エレンに頼んでみる
  3008. PRINTDL [1] 別にいい
  3009. INPUT
  3010. IF RESULT == 0
  3011. PRINTFORMDW %CALLNAME:MASTER%はエレンにあの御香を使って欲しいと頼んだ…
  3012. IF CFLAG:1008 >= 100 && CFLAG:1009 >= 80 && CFLAG:1010 >= 50
  3013. PRINTFORMW 「……まあ、今の%CALLNAME:MASTER%なら問題ないわね　いいわよ%UNICODE(0x2665)%」
  3014. PRINTFORMDW …
  3015. PRINTFORMW 「ふう、これで準備完了よっ%UNICODE(0x2665)%　あとはお香の香りが広がるのを待ちましょう%UNICODE(0x2665)%」
  3016. PRINTFORMDW 甘さの中に淫靡さを秘めたような香りがエレンの部屋に広がる…
  3017. PRINTFORMDW 香りが%CALLNAME:MASTER%を刺激するも、魔法の鍛錬のお陰か、それとも体が慣れたのか理性は保たれたままだ
  3018. PRINTFORMDW エレンもあの時ほど興奮してはいないようだが顔は赤く、秘部は湿っている
  3019. PRINTFORMW 「それじゃ、はじめよっか//　いっぱい気持ちよくしてあげる//」
  3020. ELSEIF CFLAG:1007
  3021. IF FIRSTTIME(1033)
  3022. PRINTFORMW 「ダメよ！　%CALLNAME:MASTER%に何かあったらどうするの！」
  3023. PRINTFORMW 「……もう、しょうがないわね。　それじゃあ%CALLNAME:MASTER%が魔法使いとしてある程度の力をつけたらいいわよ%UNICODE(0x2665)%」
  3024. ELSE
  3025. PRINTFORMW 「……いまの%CALLNAME:MASTER%じゃあ大丈夫じゃないわね。　だから今回はおあずけ！」
  3026. PRINTFORMDW エレンに断られてしまった…
  3027. ENDIF
  3028. RETURN 1
  3029. ELSE
  3030. PRINTFORMW 「ダメよ！　%CALLNAME:MASTER%に何かあったらどうするの！」
  3031. PRINTFORMDW エレンに断られてしまった…
  3032. RETURN 1
  3033. ENDIF
  3034. ELSEIF RESULT == 1
  3035. PRINTFORMDW …見なかったことにしよう
  3036. RETURN 1
  3037. ELSE
  3038. GOTO LOOP
  3039. ENDIF
  3040. ENDIF
  3041. TIME += 10
  3042. PALAM:Desire += 80000
  3043. PALAM:Lubric += 8000
  3044. TALENT:MASTER:ThickSemen = 1
  3045. BASE:MASTER:EREC = MAXBASE:MASTER:EREC
  3046. BASE:MASTER:VIG = MAXBASE:MASTER:VIG
  3047. TCVAR:373 = 1
  3048. ABL:Desire += 2
  3049. ABL:MASTER:Desire += 3
  3050. ENDIF
  3051. ;ふわふわおっぱい　？？「どっかで聞いたことがある」
  3052. CASE 1, 2
  3053. ;エレンが普乳以下のときのみ発生
  3054. IF TALENT:BustSize <= 0
  3055. IF FIRSTTIME(1030)
  3056. PRINTFORMW 「あのね、今日はいい物を持ってきたの%UNICODE(0x2665)%//」
  3057. PRINTFORMDW エレンは懐からなにやら光る粉の入った小瓶を取り出した
  3058. PRINTFORMW 「これにはね、ある魔法が入ってるの。　今から使うからちょっと離れててね」
  3059. PRINTFORMDW %CALLNAME:MASTER%はエレンから少し離れた……
  3060. PRINTFORMDL 　　　　　　ぽいっ
  3061. PRINTFORMW 「えいっ」
  3062. PRINTFORMDW 　　　　　　ボンッ！
  3063. PRINTFORMDL 　　　　　ポポポポポポ
  3064. PRINTFORMDW エレンが呪文を唱えると、放り投げられた小瓶から光の帯が現れ、エレンの胸部を包んだ……
  3065. PRINTFORMDW …
  3066. PRINTFORMDW 光が消えた後、%CALLNAME:MASTER%の目に飛び込んできたのは二つの大きな乳房だった
  3067. PRINTFORMW 「あいたたた、魔法を使うとこれだから。　…で、どうかしらこれ%UNICODE(0x2665)%」
  3068. PRINTFORMDW 大きさはＤカップぐらいだろうか、何故か服も胸に合わせて大きくなっている……
  3069. PRINTFORMW 「今日はこのふわふわおっぱいでたくさん気持ちよくしてあげるわ%UNICODE(0x2665)%//」
  3070. ELSE
  3071. PRINTFORMW 「今日はあの魔法を用意してきたわ%UNICODE(0x2665)%//」
  3072. PRINTFORMDW そう言うと懐からなにやら光る粉の入った小瓶を取り出した、あの時のと同じ物だ
  3073. PRINTFORMDW %CALLNAME:MASTER%は期待に胸を膨らませた…
  3074. PRINTFORMDL 　　　　　　ぽいっ
  3075. PRINTFORMW 「えいっ」
  3076. PRINTFORMDW 　　　　　　ボンッ！
  3077. PRINTFORMDL 　　　　　ポポポポポポ
  3078. PRINTFORMDW エレンが呪文を唱えると、放り投げられた小瓶から光の帯が現れ、エレンの胸部を包んだ……
  3079. PRINTFORMDW …
  3080. PRINTFORMW 「あいたたた、あたまがパチパチする～」
  3081. PRINTFORMW 「…よし、収まったわ。　今日もこのふわふわおっぱいでたくさん気持ちよくしてあげる%UNICODE(0x2665)%//」
  3082. ENDIF
  3083. TCVAR:374 = 1
  3084. ;胸のサイズを記憶
  3085. TCVAR:376 = TALENT:BustSize
  3086. TALENT:BustSize = 1
  3087. ENDIF
  3088. ENDSELECT
  3089. ENDIF
  3090. ENDIF
  3091. ELSEIF TALENT:Lover || TALENT:Love
  3092. IF FIRSTTIME(1021)
  3093. PRINTFORMW 「わたし達、えっち…するんだよね//」
  3094. PRINTFORMW 「初めてだからちょっと不安だけど…　大好きな%CALLNAME:MASTER%のために頑張るわ%UNICODE(0x2665)%//」
  3095. EXP:愛情経験 += 10
  3096. ELSEIF TALENT:Pregnancy && PALAM:Desire < PALAMLV:10
  3097. PRINTFORMW 「子供に悪いからしたくないけど…、%CALLNAME:MASTER%はしたいんだよね//」
  3098. PRINTFORMW 「……しかたないわね、してもいいけど…　やさしくしてよ//」
  3099. ELSE
  3100. PRINTFORMW 「その…、えっち、したいんだよね//」
  3101. PRINTFORMW 「してもいいけど…、あの…//　優しくしてね//」
  3102. ENDIF
  3103. ;淫乱なエレンもそれはそれですばらだと思います。もちろん一番は恋を夢見る少女なエレンですが
  3104. ELSEIF TALENT:Slut
  3105. ;FIRSTTIMEを消費させる
  3106. IF FIRSTTIME(1021)
  3107. ENDIF
  3108. ;恋慕も恋人もないと必ず拒絶される
  3109. ELSEIF TALENT:思慕 || TALENT:Lover || TALENT:Love
  3110. PRINTL 350
  3111. PRINTL 押し倒す
  3112. DRAWLINE
  3113. CLEARBIT CFLAG:既成事実 , 1
  3114. PRINTFORML %CALLNAME:PLAYER%はあたりに人がいないことを確認するとエレンを抱き寄せた…
  3115. TRYCALLFORM M_KOJO_COLOR_K44
  3116. PRINTFORMW 「ちょちょちょちょっと！//　何してるの！」
  3117. PRINTFORMDW エレンは体をばたつかせて抵抗している…
  3118. $INPUT_LOOP_1
  3119. PRINTDL [0]押し倒すのをやめる
  3120. PRINTDL [1]押し倒すのを続行する
  3121. INPUT
  3122. IF RESULT == 0
  3123. PRINTFORMDW %CALLNAME:MASTER%は冗談だとごまかしつつ手を離した…
  3124. PRINTFORMW 「まったく、冗談にしては趣味が悪いかったわ」
  3125. TFLAG:押し倒せない ++
  3126. CFLAG:MASTER:うふふ = 0
  3127. CFLAG:うふふ = 0
  3128. RETURN 1
  3129. ELSEIF RESULT == 1
  3130. PRINTFORMDW %CALLNAME:MASTER%はエレンが恥ずかしがっているだけだと思い、そのまま行為を続けた
  3131. PRINTFORMW 「だからやめてってば！　あーもーっ！しかたないわね！」
  3132. PRINTFORMDW 　　　　　　ぽいっ
  3133. PRINTFORMW 「えいっ」
  3134. PRINTFORMDW 　　　　　　ボンッ！
  3135. PRINTFORMDW 　　　　バチバチバチッ！
  3136. PRINTFORMDW エレンが魔法を使うと大きな静電気が発生し、%CALLNAME:MASTER%に襲い掛かった
  3137. PRINTFORMDW %CALLNAME:MASTER%が痺れてる隙にエレンは%CALLNAME:MASTER%の支配から抜け出した…
  3138. ;帯電による痛みより%CALLNAME:MASTER%に対する怒りのほうが上
  3139. IF (TALENT:Lover || TALENT:Love) && MARK:反発刻印
  3140. PRINTFORMW 「ふんっ！」
  3141. ELSE
  3142. PRINTFORMW 「まさか%CALLNAME:MASTER%がこんなことをするような人だったとはね！」
  3143. PRINTFORMDW エレンは髪を帯電させながら激怒している…
  3144. ENDIF
  3145. CFLAG:2 -= 1000
  3146. CFLAG:4 -= 1500
  3147. SIF CFLAG:好感度 < 0
  3148. CFLAG:好感度 = 0
  3149. SIF CFLAG:信頼度 < 0
  3150. CFLAG:信頼度 = 0
  3151. PALAM:Hostil += 30000
  3152. ; MARK:反発刻印 += 2
  3153. ; SIF MARK:反発刻印 > 3
  3154. ; MARK:反発刻印 = 3
  3155. ; BASE:Anger = MAXBASE:Anger
  3156. ; CFLAG:Anger = 1
  3157. ; TALENT:Humor = -1
  3158. DOWNBASE:TARGET:STRE += 50
  3159. DOWNBASE:TARGET:ENE += 100
  3160. DOWNBASE:MASTER:STRE += 300
  3161. TFLAG:押し倒せない ++
  3162. CFLAG:MASTER:うふふ = 0
  3163. CFLAG:うふふ = 0
  3164. RETURN 1
  3165. ELSE
  3166. GOTO INPUT_LOOP_1
  3167. ENDIF
  3168. ELSE
  3169. PRINTL 350
  3170. PRINTL 押し倒す
  3171. DRAWLINE
  3172. CLEARBIT CFLAG:既成事実 , 1
  3173. PRINTFORML %CALLNAME:PLAYER%はあたりに人がいないことを確認するとエレンを抱き寄せた…
  3174. TRYCALLFORM M_KOJO_COLOR_K44
  3175. PRINTFORMW 「きゃーっ！　魔法使うわよ！」
  3176. PRINTFORMDW エレンは体をばたつかせて抵抗している…
  3177. $INPUT_LOOP_2
  3178. PRINTDL [0]押し倒すのをやめる
  3179. PRINTDL [1]押し倒すのを続行する
  3180. INPUT
  3181. IF RESULT == 0
  3182. PRINTFORMDW %CALLNAME:MASTER%はエレンを開放した
  3183. PRINTFORMW 「まったく、恋人同士でもないのにそんなこと出来る訳ないでしょうが！//」
  3184. CFLAG:2 -= 200
  3185. CFLAG:4 -= 100
  3186. PALAM:Hostil += 3000
  3187. TFLAG:押し倒せない ++
  3188. CFLAG:MASTER:うふふ = 0
  3189. CFLAG:うふふ = 0
  3190. RETURN 1
  3191. ELSEIF RESULT == 1
  3192. PRINTFORMDW %CALLNAME:MASTER%はエレンの言葉を気にせず、そのまま行為を続けた
  3193. PRINTFORMW 「だからやめてってば！　あーもーっ！しかたないわね！」
  3194. PRINTFORMDW 　　　　　　ぽいっ
  3195. PRINTFORMW 「えいっ」
  3196. PRINTFORMDW 　　　　　　ボンッ！
  3197. PRINTFORMDW 　　　　バチバチバチッ！
  3198. PRINTFORMDW エレンが魔法を使うと大きな静電気が発生し、%CALLNAME:MASTER%に襲い掛かった
  3199. PRINTFORMDW %CALLNAME:MASTER%が痺れてる隙にエレンは%CALLNAME:MASTER%の支配から抜け出した…
  3200. IF ABL:Intimacy >= 3
  3201. PRINTFORMW 「あなたがこんなことする人とは思ってなかったわ！」
  3202. ELSE
  3203. PRINTFORMW 「まったく最悪の気分だわ！！」
  3204. ENDIF
  3205. PRINTFORMDW エレンは髪を帯電させながら激怒している…
  3206. CFLAG:2 -= 2000
  3207. CFLAG:4 -= 1000
  3208. SIF CFLAG:好感度 < 0
  3209. CFLAG:好感度 = 0
  3210. SIF CFLAG:信頼度 < 0
  3211. CFLAG:信頼度 = 0
  3212. PALAM:Hostil += 100000
  3213. ; MARK:反発刻印 = 3
  3214. ; BASE:Anger = MAXBASE:Anger
  3215. ; CFLAG:Anger = 1
  3216. ; TALENT:Humor = -1
  3217. DOWNBASE:TARGET:STRE += 50
  3218. DOWNBASE:TARGET:ENE += 100
  3219. DOWNBASE:MASTER:STRE += 300
  3220. TFLAG:押し倒せない ++
  3221. CFLAG:MASTER:うふふ = 0
  3222. CFLAG:うふふ = 0
  3223. RETURN 1
  3224. ELSE
  3225. GOTO INPUT_LOOP_2
  3226. ENDIF
  3227. ENDIF
  3228. ELSEIF TCVAR:泥酔 == 1
  3229. ;ソクラテスが見ています
  3230. SIF !TALENT:Slut && RAND:10 > 3
  3231. CFLAG:1667 = DAY:0
  3232. ENDIF
  3233. RETURN 1
  3234. ;==================================================
  3235. ;351,連れ出す
  3236. ;==================================================
  3237. @M_KOJO_MESSAGE_COM_K44_351
  3238. ;連れ出しにはTRAIN_MESSAGEが無い
  3239. TRYCALLFORM M_KOJO_COLOR_K44
  3240. CALL M_KOJO_MESSAGE_COM_K44_351_1
  3241. RETURN RESULT
  3242.  
  3243. @M_KOJO_MESSAGE_COM_K44_351_1
  3244. ;-------------------------------------------------
  3245. ;記入チェック（=0, 非表示、1, 表示）
  3246. LOCAL = 1
  3247. ;-------------------------------------------------
  3248. IF LOCAL && !CFLAG:Anger && CFLAG:同行 == 60
  3249. IF (PALAM:Lubric > PALAMLV:2 || TCVAR:371 == 1) && TCVAR:387 < 1 && TALENT:Love
  3250. PRINTFORMW 「わかったわ//」
  3251. ;恋人時専用
  3252. ELSEIF TALENT:Lover && TALENT:Love
  3253. SELECTCASE RAND:2
  3254. CASE 1
  3255. IF TCVAR:355 == -1 || TIME >= 1020 || TIME:5 >= 4 || CFLAG:妊娠２ >= 61 || TALENT:Childcare
  3256. PRINTFORMW 「はーい%UNICODE(0x2665)%」
  3257. ELSE
  3258. PRINTFORMW 「あら%UNICODE(0x2665)% もしかしてデートのお誘い？」
  3259. ENDIF
  3260. CASEELSE
  3261. PRINTFORMW 「ねえ%CALLNAME:MASTER%、今日は何をするの？」
  3262. ENDSELECT
  3263. ;恋慕時専用
  3264. ELSEIF TALENT:Love || CFLAG:1014 == 1 || TALENT:Lover
  3265. SELECTCASE RAND:2
  3266. CASE 1
  3267. IF TCVAR:355 == -1 || TIME >= 1020 || TIME:5 >= 4 || CFLAG:妊娠２ >= 61 || TALENT:Childcare
  3268. PRINTFORMW 「はーい%UNICODE(0x2665)%」
  3269. ELSE
  3270. PRINTFORMW （もしかしたらデートのお誘いかしら%UNICODE(0x2665)%//）
  3271. ENDIF
  3272. CASEELSE
  3273. PRINTFORMW 「わたしに用があるのね%UNICODE(0x2665)% 分かったわ%UNICODE(0x2665)%」
  3274. ENDSELECT
  3275. ;親密５以上時専用
  3276. ELSEIF TALENT:思慕
  3277. SELECTCASE RAND:2
  3278. CASE 1
  3279. PRINTFORMW 「あら%UNICODE(0x2665)% ちょっと待っててね%UNICODE(0x2665)%」
  3280. CASEELSE
  3281. PRINTFORMW 「わたしに用があるの？　分かったわ、今準備するからちょっと待っててね%UNICODE(0x2665)%」
  3282. ENDSELECT
  3283. ;親密４以下時専用
  3284. ELSE
  3285. PRINTFORMW 「何の用かしら？」
  3286. ENDIF
  3287. ENDIF
  3288. RETURN 1
  3289. ;==================================================
  3290. ;352,告白する
  3291. ;==================================================
  3292. @M_KOJO_MESSAGE_COM_K44_352
  3293. CALL TRAIN_MESSAGE
  3294. CALL M_KOJO_MESSAGE_COM_K44_352_1
  3295. RETURN RESULT
  3296.  
  3297. @M_KOJO_MESSAGE_COM_K44_352_1
  3298. ;-------------------------------------------------
  3299. ;記入チェック（=0, 非表示、1, 表示）
  3300. LOCAL = 1
  3301. ;-------------------------------------------------
  3302. IF LOCAL
  3303. IF TFLAG:193
  3304. IF TALENT:Love
  3305. IF CFLAG:1004 == 1
  3306. PRINTFORMW 「……ようやく振り向いてくれたわね」
  3307. PRINTFORM 「うれしい
  3308. ELSE
  3309. PRINTFORMW 「ええっ！？//　%CALLNAME:MASTER%もわたしのことが好きだったの！？//」
  3310. PRINTFORM 「…うん、わたしも%CALLNAME:MASTER%のことが好きよ//　うれしい
  3311. ENDIF
  3312. PRINTFORMW %UNICODE(0x2665)%//　…えいっ%UNICODE(0x2665)%」
  3313. PRINTFORMDW 遂に恋心が実ったエレンは、嬉しさを押さえられないのか満面の笑みを浮かべて%CALLNAME:MASTER%に抱きついてきた
  3314. PRINTFORMDW 抱きついてきたエレンを%CALLNAME:MASTER%は優しく抱擁した…
  3315. PRINTFORMW 「えへへ%UNICODE(0x2665)%　これからよろしくね%UNICODE(0x2665)% %CALLNAME:MASTER%%UNICODE(0x2665)%%UNICODE(0x2665)%」
  3316. PRINTFORMDW ………
  3317. PRINTFORMDW ……
  3318. PRINTFORMDW …
  3319. ;恋慕なしで告白なんてそんなオカルト…でもないね！
  3320. ELSE
  3321. PRINTFORMW 「ええっ！？//　%CALLNAME:MASTER%ってわたしのことが好きだったの！？//」
  3322. PRINTFORMW 「…べつに%CALLNAME:MASTER%だったらまあ、いいかな//」
  3323. PRINTFORMW 「だから…、これからよろしくね%UNICODE(0x2665)%//」
  3324. PRINTFORMDW ………
  3325. PRINTFORMDW ……
  3326. PRINTFORMDW …
  3327. ENDIF
  3328. ;恋人獲得とともに恥じらいが消える
  3329. TALENT:Shame = 0
  3330. CFLAG:1014 = 0
  3331. TALENT:Humor = 1
  3332. ELSE
  3333. PRINTFORMW 「？　どうしたの？」
  3334. ENDIF
  3335. ENDIF
  3336. RETURN 1
  3337. ;==================================================
  3338. ;353,イタズラする
  3339. ;==================================================
  3340. @M_KOJO_MESSAGE_COM_K44_353
  3341. CALL TRAIN_MESSAGE
  3342. CALL M_KOJO_MESSAGE_COM_K44_353_1
  3343. RETURN RESULT
  3344.  
  3345. @M_KOJO_MESSAGE_COM_K44_353_1
  3346. ;-------------------------------------------------
  3347. ;記入チェック（=0, 非表示、1, 表示）
  3348. LOCAL = 0
  3349. ;-------------------------------------------------
  3350. CFLAG:1891 = 1
  3351. IF LOCAL
  3352.  
  3353. ENDIF
  3354. RETURN 1
  3355. ;==================================================
  3356. ;354,添い寝する（相手は起きて布団に招く感じ）
  3357. ;==================================================
  3358. @M_KOJO_MESSAGE_COM_K44_354
  3359. CALL TRAIN_MESSAGE
  3360. CALL M_KOJO_MESSAGE_COM_K44_354_1
  3361. RETURN RESULT
  3362.  
  3363. @M_KOJO_MESSAGE_COM_K44_354_1
  3364. ;-------------------------------------------------
  3365. ;記入チェック（=0, 非表示、1, 表示）
  3366. LOCAL = 1
  3367. ;-------------------------------------------------
  3368. IF LOCAL && !FLAG:70 && !CFLAG:Anger
  3369. TCVAR:363 = 1
  3370. ;恋人時専用
  3371. IF TALENT:Lover
  3372. PRINTFORMW 「わたしと一緒に寝たいのね、もちろんいいわよ%UNICODE(0x2665)% きて%UNICODE(0x2665)% %CALLNAME:MASTER%%UNICODE(0x2665)%%UNICODE(0x2665)%」
  3373. ;恋慕時専用
  3374. ELSEIF TALENT:Love
  3375. PRINTFORMW 「えっ//わわわわたしと一緒に寝たいの//　…いいわよ//」
  3376. ENDIF
  3377. ENDIF
  3378. RETURN 1
  3379. ;==================================================
  3380. ;360,身を任せる
  3381. ;==================================================
  3382. @M_KOJO_MESSAGE_COM_K44_360
  3383. CALL TRAIN_MESSAGE
  3384. CALL M_KOJO_MESSAGE_COM_K44_360_1
  3385. RETURN RESULT
  3386.  
  3387. @M_KOJO_MESSAGE_COM_K44_360_1
  3388. ;-------------------------------------------------
  3389. ;記入チェック（=0, 非表示、1, 表示）
  3390. LOCAL = 0
  3391. ;-------------------------------------------------
  3392. IF LOCAL
  3393.  
  3394. ENDIF
  3395. RETURN 1
  3396. ;==================================================
  3397. ;363,読み聞かせ（[Childish]持ち）
  3398. ;==================================================
  3399. @M_KOJO_MESSAGE_COM_K44_363
  3400. CALL TRAIN_MESSAGE
  3401. CALL M_KOJO_MESSAGE_COM_K44_363_1
  3402. RETURN RESULT
  3403.  
  3404. @M_KOJO_MESSAGE_COM_K44_363_1
  3405. ;-------------------------------------------------
  3406. ;記入チェック（=0, 非表示、1, 表示）
  3407. LOCAL = 0
  3408. ;-------------------------------------------------
  3409. IF LOCAL
  3410.  
  3411. ENDIF
  3412. RETURN 1
  3413. ;==================================================
  3414. ;402,就寝（添い寝時）
  3415. ;==================================================
  3416. @M_KOJO_MESSAGE_COM_K44_402
  3417. ;就寝にTRAIN_MESSAGEは無い
  3418. CALL M_KOJO_MESSAGE_COM_K44_402_1
  3419. RETURN RESULT
  3420.  
  3421. @M_KOJO_MESSAGE_COM_K44_402_1
  3422. ;-------------------------------------------------
  3423. ;記入チェック（=0, 非表示、1, 表示）
  3424. LOCAL = 1
  3425. ;-------------------------------------------------
  3426. IF LOCAL && !CFLAG:Anger && !CFLAG:睡眠
  3427. ;添い寝分岐
  3428. TRYCALLFORM M_KOJO_COLOR_K44
  3429. IF TCVAR:363 == 1 || (CFLAG:MASTER:お招き && !VISIT(44))
  3430. ;恋人時専用
  3431. IF TALENT:Lover
  3432. PRINTFORMW 「もう寝るの？　それじゃわたしも一緒に寝るわ%UNICODE(0x2665)%　おやすみ%UNICODE(0x2665)%」
  3433. ;恋慕時専用
  3434. ELSEIF TALENT:Love
  3435. PRINTFORMW 「もう寝ちゃうの…　それじゃわたしも一緒に寝るわ%UNICODE(0x2665)%　おやすみ//」
  3436. ENDIF
  3437. ELSE
  3438. ;恋人時専用
  3439. IF TALENT:Lover
  3440. PRINTFORMW 「もう寝るの？　それじゃまた明日ね%UNICODE(0x2665)%　おやすみ%UNICODE(0x2665)% %CALLNAME:MASTER%%UNICODE(0x2665)%」
  3441. ;恋慕時専用
  3442. ELSEIF TALENT:Love
  3443. PRINTFORMW 「もう寝ちゃうの…　わかったわ、おやすみなさい//」
  3444. ENDIF
  3445. ENDIF
  3446. ENDIF
  3447. RETURN 1
  3448. ;==================================================
  3449. ;403,休憩
  3450. ;==================================================
  3451. @M_KOJO_MESSAGE_COM_K44_403
  3452. CALL TRAIN_MESSAGE
  3453. CALL M_KOJO_MESSAGE_COM_K44_403_1
  3454. RETURN RESULT
  3455.  
  3456. @M_KOJO_MESSAGE_COM_K44_403_1
  3457. ;-------------------------------------------------
  3458. ;記入チェック（=0, 非表示、1, 表示）
  3459. LOCAL = 0
  3460. ;-------------------------------------------------
  3461. IF LOCAL && !FLAG:70
  3462.  
  3463. ENDIF
  3464. RETURN 1
  3465. ;==================================================
  3466. ;405,出掛ける(同行時デートに出掛ける
  3467. ;==================================================
  3468. @M_KOJO_MESSAGE_COM_K44_405
  3469. ;出掛けるにTRAIN_MESSAGEは無い
  3470. TRYCALLFORM M_KOJO_COLOR_K44
  3471. CALL M_KOJO_MESSAGE_COM_K44_405_1
  3472. RETURN RESULT
  3473.  
  3474. @M_KOJO_MESSAGE_COM_K44_405_1
  3475. ;-------------------------------------------------
  3476. ;記入チェック（=0, 非表示、1, 表示）
  3477. LOCAL = 1
  3478. ;-------------------------------------------------
  3479. IF LOCAL && !FLAG:70 && !CFLAG:Anger
  3480. IF !CFLAG:同行
  3481. ;恋人かつ住み込み時専用
  3482. IF TALENT:Lover && FLAG:15 == 44
  3483. IF DAY:3 == 5 || DAY:3 == 15 || DAY:3 == 25
  3484. PRINTFORMW 「いってらっしゃーい%UNICODE(0x2665)%」
  3485. ELSE
  3486. SELECTCASE RAND:2
  3487. CASE 1
  3488. PRINTFORMW 「いってらっしゃーい%UNICODE(0x2665)% 帰ってきたら二人で何かしましょっ%UNICODE(0x2665)%」
  3489. CASEELSE
  3490. PRINTFORMW 「あら、もしかしてお出かけ？」
  3491. PRINTFORMW 「わたしもついていきたいけど…、まあいいわ、いってらっしゃい%UNICODE(0x2665)%」
  3492. ENDSELECT
  3493. ENDIF
  3494. ;恋人かつ恋慕時専用
  3495. ELSEIF TALENT:Lover && TALENT:Love
  3496. PRINTFORMW 「あら、もしかしてお出かけ？」
  3497. PRINTFORMW 「わたしもついていきたいけど…、まあいいわ、いってらっしゃい%UNICODE(0x2665)%」
  3498. ;恋慕or準恋慕or恋人時専用
  3499. ELSEIF TALENT:Love || CFLAG:1014 == 1 || TALENT:Lover
  3500. PRINTFORMW 「いってらっしゃーい%UNICODE(0x2665)%」
  3501. ;思慕時専用
  3502. ELSEIF TALENT:思慕
  3503. PRINTFORMW 「あやや、%CALLNAME:MASTER%はこれから出かける予定だったの」
  3504. PRINTFORMW 「それじゃあわたしはここで待ってるわね」
  3505. ENDIF
  3506. ELSE
  3507. IF FIRSTTIME(SELECTCOM)
  3508. IF TALENT:Love || CFLAG:1014 == 1 || TALENT:Lover
  3509. PRINTFORMDW %CALLNAME:MASTER%はエレンをデートに誘った…
  3510. PRINTFORMW 「えっ、わたしとデートしたいの？」
  3511. PRINTFORMW 「もちろんいいわよ%UNICODE(0x2665)%　さっ、出発しましょ%UNICODE(0x2665)%」
  3512. ENDIF
  3513. IF TALENT:Lover && TALENT:Love
  3514. PRINTFORMW 「初めてのデート、いっぱい楽しみましょうね%UNICODE(0x2665)%%UNICODE(0x2665)%」
  3515. PRINTFORMDW 初デートに興奮しているエレンとともに%CALLNAME:MASTER%はデート先に向けて歩き始めた…
  3516. ELSEIF TALENT:Love || CFLAG:1014 == 1
  3517. PRINTFORMW （わー%UNICODE(0x2665)% きゃー%UNICODE(0x2665)%//　%CALLNAME:MASTER%からデートに誘われちゃった%UNICODE(0x2665)%）
  3518. PRINTFORMDW 赤面してるエレンとともに%CALLNAME:MASTER%はデート先に向けて歩き始めた…
  3519. ELSE
  3520. IF TALENT:思慕
  3521. PRINTFORMW 「わたしと一緒に出掛けたいのね、もちろんいいわよ%UNICODE(0x2665)%」
  3522. ELSE
  3523. PRINTFORMW 「わたしと一緒に出掛けたいの？　まあ、退屈だったしいいわよ%UNICODE(0x2665)%」
  3524. ENDIF
  3525. PRINTFORMDW エレンの承諾を得ると%CALLNAME:MASTER%は出掛け先に向けてエレンとともに歩き始めた…
  3526. ENDIF
  3527. ;恋人かつ恋慕時専用
  3528. ELSEIF TALENT:Lover && TALENT:Love
  3529. PRINTFORMW 「それじゃ出発しましょ%UNICODE(0x2665)%%UNICODE(0x2665)%」
  3530. ;恋慕or準恋慕or恋人時専用
  3531. ELSEIF TALENT:Love || CFLAG:1014 == 1 || TALENT:Lover
  3532. PRINTFORMW 「わたしと一緒に出掛けたいのね、もちろんいいわよ%UNICODE(0x2665)%//」
  3533. PRINTFORMW （わー%UNICODE(0x2665)% きゃー%UNICODE(0x2665)%//　%CALLNAME:MASTER%からデートに誘われちゃった%UNICODE(0x2665)%）
  3534. ;思慕時専用
  3535. ELSEIF TALENT:思慕
  3536. PRINTFORMW 「わたしと一緒に出掛けたいのね、もちろんいいわよ%UNICODE(0x2665)%」
  3537. ;親密４以下時専用
  3538. ELSE
  3539. PRINTFORMW 「わたしと一緒に出掛けたいの？　まあ、退屈だったしいいわよ」
  3540. ENDIF
  3541. ENDIF
  3542. ENDIF
  3543. RETURN 1
  3544. ;==================================================
  3545. ;410,掃除
  3546. ;==================================================
  3547. @M_KOJO_MESSAGE_COM_K44_410
  3548. CALL TRAIN_MESSAGE
  3549. CALL M_KOJO_MESSAGE_COM_K44_410_1
  3550. RETURN RESULT
  3551.  
  3552. @M_KOJO_MESSAGE_COM_K44_410_1
  3553. ;-------------------------------------------------
  3554. ;記入チェック（=0, 非表示、1, 表示）
  3555. LOCAL = 1
  3556. ;-------------------------------------------------
  3557. IF LOCAL && !FLAG:70 && !CFLAG:睡眠 && !CFLAG:Anger && !CFLAG:うふふ
  3558. SELECTCASE TFLAG:194
  3559. CASE 0
  3560. PRINTFORMW 「これだけ綺麗にすれば十分ね」
  3561. CASE 1
  3562. PRINTFORMW 「ふう%UNICODE(0x2665)%　結構片付いてきたかしら？」
  3563. CASE 2
  3564. PRINTFORMW 「けほっけほっ　まだまだ片付けないといけないわね」
  3565. CASE 3
  3566. PRINTFORMW 「げほげほ　どーしてちょっとほったらかすとすぐほこりだらけになるのかしら」
  3567. ENDSELECT
  3568. ENDIF
  3569. RETURN 1
  3570. ;==================================================
  3571. ;411,戦闘訓練
  3572. ;==================================================
  3573. @M_KOJO_MESSAGE_COM_K44_411
  3574. ;魔法の実技が可能だと地の文無し
  3575. SIF CFLAG:1011 == 0
  3576. CALL TRAIN_MESSAGE
  3577. CALL M_KOJO_MESSAGE_COM_K44_411_1
  3578. RETURN RESULT
  3579.  
  3580. @M_KOJO_MESSAGE_COM_K44_411_1
  3581. ;-------------------------------------------------
  3582. ;記入チェック（=0, 非表示、1, 表示）
  3583. LOCAL = 1
  3584. ;-------------------------------------------------
  3585. ;LOCAL:1 判定用
  3586. ;LOCAL:2 成功or失敗記録用
  3587. ;LOCAL:3 魔法のランク
  3588. IF LOCAL && !FLAG:70
  3589. ;弟子入り時
  3590. IF CFLAG:1007 == 1 && CFLAG:1011 == 1 && CFLAG:MASTER:現在位置 != FLAG:32
  3591. $LOOP_KUNREN
  3592. PRINTFORML 今なら魔法の披露も出来るが…
  3593. PRINTL [1] 魔法
  3594. PRINTL [2] 弾幕
  3595. INPUT
  3596. ENDIF
  3597. IF RESULT == 1
  3598. ;開始時に前回の分をリセットする
  3599. LOCAL:2 = 0
  3600. ;判定用の変数を入れておく
  3601. LOCAL:1 = CFLAG:1008 + CFLAG:1009 + (CFLAG:1010 * 2)
  3602. TRYCALLFORM M_KOJO_COLOR_K44
  3603. PRINTFORMW 「さ、勉強の成果をみせて%UNICODE(0x2665)%」
  3604. RESETCOLOR
  3605. IF CFLAG:1008 > 220
  3606. ;魔法のランクに合わせてRANDを追加
  3607. LOCAL:1 += RAND:80
  3608. $LOOP_200
  3609. ;魔法のランクを記録
  3610. LOCAL:3 = 5
  3611. PRINTFORML どの魔法を使おうか…
  3612. PRINTL [0] 煙変化の魔法
  3613. PRINTL [1] 質量のないドラゴンの実体化
  3614. PRINTL [2] 氷の結晶を利用した演奏の魔法
  3615. ;PRINTL [3] 魔法決戦！
  3616. PRINTL [9] 他の魔法にする
  3617. INPUT
  3618. IF RESULT == 0
  3619. PRINTFORMW %CALLNAME:MASTER%は煙に変化する魔法を使った
  3620. ;清掃技能に応じて補正
  3621. LOCAL:1 += (ABL:MASTER:CleaningSkill * 10)
  3622. IF LOCAL:1 >= 880
  3623. PRINTFORMW %CALLNAME:MASTER%の体が煙状になった！成功だ！
  3624. ;学習経験が低いと戻れない、追加されるだけで特に何もないけど
  3625. IF CFLAG:1008 < 250
  3626. PRINTFORMW ……元に戻れない…
  3627. PRINTFORMW …
  3628. PRINTFORMW 困った%CALLNAME:MASTER%を見かねたエレンが何とかしてくれました
  3629. ;成功判定（煙）
  3630. LOCAL:2 = 2
  3631. ELSE
  3632. ;成功判定
  3633. LOCAL:2 = 1
  3634. ENDIF
  3635. ELSE
  3636. PRINTFORMW ……変化は無いようだ…
  3637. ;失敗判定
  3638. LOCAL:2 = 0
  3639. ENDIF
  3640. ELSEIF RESULT == 1
  3641. ;エレン以外にもいると不可
  3642. IF GET_TARGETNUM() > 1
  3643. PRINTFORMW ……今は他に人が居る、危険なのでやめておこう…
  3644. GOTO LOOP_200
  3645. ELSE
  3646. PRINTFORMW %CALLNAME:MASTER%は質量のないドラゴンの実体化の魔法を使った
  3647. ;教養に応じて補正
  3648. LOCAL:1 += (ABL:MASTER:Education * 10)
  3649. IF LOCAL:1 >= 900
  3650. PRINTFORMW 目の前に幻のドラゴンが召喚された！成功だ！
  3651. ;実技経験が低いと制御不能、分岐されるだけで特に何もないけど
  3652. IF CFLAG:1009 < 200
  3653. PRINTFORMW ……召喚できたのはいいが制御できそうにない。　どうしよう…
  3654. PRINTFORMW …
  3655. PRINTFORMW 困った%CALLNAME:MASTER%を見かねたエレンが何とかしてくれました
  3656. ;成功判定（ドラゴン）
  3657. LOCAL:2 = 3
  3658. ELSE
  3659. ;いろいろとごめんなさい
  3660. LOCAL:1 = 0
  3661. PRINTFORMW ドラゴンは%CALLNAME:MASTER%の指示を待っているようだ…
  3662. $LOOP_DORAGON
  3663. PRINTFORML 何をしてもらおうか…
  3664. PRINTL [0] 特に無いので帰ってもらう
  3665. SIF LOCAL:1 == 0
  3666. PRINTL [1] 背中に乗せてもらう
  3667. SIF LOCAL:2 == 0
  3668. PRINTL [2] 博麗神社を襲撃する！
  3669. INPUT
  3670. IF RESULT == 0
  3671. PRINT 特にして貰いたい事も無いので
  3672. SIF LOCAL:1 == 0 && LOCAL:2 == 0
  3673. PRINT 何もせずに
  3674. PRINTW 帰ってもらうことにした…
  3675. ELSEIF RESULT == 1 && LOCAL:1 == 0
  3676. PRINTFORMW %CALLNAME:MASTER%は意気揚々とドラゴンの背中に飛び乗った
  3677. PRINTFORMW ……幻に乗れるわけが無かった…
  3678. LOCAL:1 = 1
  3679. GOTO LOOP_DORAGON
  3680. ELSEIF RESULT == 2 && LOCAL:2 == 0
  3681. PRINTFORMW ……そんなことをしたら自分の身が危ない！
  3682. PRINTFORMW %CALLNAME:MASTER%はぎりぎり思い留まった…
  3683. LOCAL:2 = 1
  3684. GOTO LOOP_DORAGON
  3685. ELSE
  3686. GOTO LOOP_DORAGON
  3687. ENDIF
  3688. ;成功判定
  3689. LOCAL:2 = 1
  3690. ENDIF
  3691. ELSE
  3692. PRINTFORMW ……何も起きなかった…
  3693. ;失敗判定
  3694. LOCAL:2 = 0
  3695. ENDIF
  3696. ENDIF
  3697. ELSEIF RESULT == 2
  3698. PRINTFORMW %CALLNAME:MASTER%は氷の結晶を利用した演奏の魔法を使った
  3699. ;まずは結晶の判定
  3700. IF LOCAL:1 >= 650
  3701. PRINTFORMW 四方の空気中の水分が集まり、巨大な氷の結晶が出来上がった！
  3702. ;音楽技能に応じて補正
  3703. LOCAL:1 += (ABL:MASTER:MusicSkill * 15)
  3704. SIF TALENT:MASTER:MusicKnowledge
  3705. LOCAL:1 += 30
  3706. SIF TALENT:MASTER:MusicSense
  3707. LOCAL:1 += (TALENT:MASTER:MusicSense * 50)
  3708. IF LOCAL:1 >= 850
  3709. PRINTFORMW 結晶が空気を震わせ、「双頭の鷲の旗の下に」を奏でた！成功だ！
  3710. ;成功判定
  3711. LOCAL:2 = 1
  3712. ELSE
  3713. PRINTFORMW しかし音は出なかった…
  3714. ;失敗判定
  3715. LOCAL:2 = 0
  3716. ENDIF
  3717. ELSE
  3718. PRINTFORMW ……何も起きなかった…
  3719. ;失敗判定
  3720. LOCAL:2 = 0
  3721. ENDIF
  3722. ELSEIF RESULT == 9
  3723. GOTO LOOP_150
  3724. ELSE
  3725. GOTO LOOP_200
  3726. ENDIF
  3727. ELSEIF CFLAG:1008 > 170
  3728. ;魔法のランクに合わせてRANDを追加
  3729. LOCAL:1 += RAND:60
  3730. $LOOP_150
  3731. ;魔法のランクを記録
  3732. LOCAL:3 = 4
  3733. PRINTFORML どの魔法を使おうか…
  3734. PRINTL [0] レーザーの魔法
  3735. PRINTL [1] 高速弾の魔法
  3736. PRINTL [2] 空を飛ぶ魔法
  3737. PRINTL [9] 他の魔法にする
  3738. INPUT
  3739. IF RESULT == 0
  3740. PRINTFORMW %CALLNAME:MASTER%は集中した…
  3741. ;教養に応じて補正
  3742. LOCAL:1 += (ABL:MASTER:Education * 10)
  3743. IF LOCAL:1 >= 600
  3744. PRINTFORMW 見事レーザーを連発する事ができた！
  3745. ;成功判定
  3746. LOCAL:2 = 1
  3747. ELSEIF LOCAL:1 >= 550
  3748. PRINTFORMW 単発だがレーザーを発射する事が出来た
  3749. ;成功判定
  3750. LOCAL:2 = 1
  3751. ELSE
  3752. PRINTFORMW ……なにも出なかった…
  3753. ;失敗判定
  3754. LOCAL:2 = 0
  3755. ENDIF
  3756. ELSEIF RESULT == 1
  3757. PRINTFORMW %CALLNAME:MASTER%は集中した…
  3758. ;清掃技能に応じて補正
  3759. LOCAL:1 += (ABL:MASTER:CleaningSkill * 10)
  3760. IF LOCAL:1 >= 600
  3761. PRINTFORMW 見事高速弾を連射する事ができた！
  3762. ;成功判定
  3763. LOCAL:2 = 1
  3764. ELSEIF LOCAL:1 >= 550
  3765. PRINTFORMW 単発だが高速で飛ぶ弾を発射する事が出来た
  3766. ;成功判定
  3767. LOCAL:2 = 1
  3768. ELSE
  3769. PRINTFORMW ……なにも起きなかった…
  3770. ;失敗判定
  3771. LOCAL:2 = 0
  3772. ENDIF
  3773. ELSEIF RESULT == 2
  3774. PRINTFORMW %CALLNAME:MASTER%は自身に空を飛ぶ魔法を使った
  3775. IF LOCAL:1 >= 620
  3776. PRINTFORMW すると%CALLNAME:MASTER%の体が宙に浮かんだ！成功だ
  3777. PRINTFORMW 宙に浮いた%CALLNAME:MASTER%は、そのまま空の旅を楽しんだ…
  3778. ;時間経過
  3779. TIME += 15
  3780. ;成功判定
  3781. LOCAL:2 = 1
  3782. ELSE
  3783. PRINTFORMW ……何も起きなかった…
  3784. ;失敗判定
  3785. LOCAL:2 = 0
  3786. ENDIF
  3787. ELSEIF RESULT == 9
  3788. GOTO LOOP_100
  3789. ELSE
  3790. GOTO LOOP_150
  3791. ENDIF
  3792. ELSEIF CFLAG:1008 > 120
  3793. ;魔法のランクに合わせてRANDを追加
  3794. LOCAL:1 += RAND:80
  3795. $LOOP_100
  3796. ;魔法のランクを記録
  3797. LOCAL:3 = 3
  3798. PRINTFORML どの魔法を使おうか…
  3799. PRINTL [0] お菓子作りの魔法
  3800. PRINTL [1] 静電気の魔法(強)
  3801. PRINTL [2] 風の魔法(強)
  3802. ;SIF CFLAG:1008 <= 230
  3803. ;PRINTL [3] 対魔法の訓練
  3804. ;空を飛ぶ魔法は次のランクのものが使えるなら無し
  3805. SIF CFLAG:1008 <= 180
  3806. PRINTL [4] 空を飛ぶ魔法
  3807. PRINTL [9] 他の魔法にする
  3808. INPUT
  3809. IF RESULT == 0
  3810. PRINTFORMW %CALLNAME:MASTER%はちょっと焦がしたクッキーに魔法を使った
  3811. ;料理技能に応じて補正
  3812. LOCAL:1 += (ABL:MASTER:CookingSkill * 20)
  3813. IF LOCAL:1 >= 450
  3814. PRINTFORMW クッキーの焦げた部分が無くなって少し生な感じになった、後はこれを少しだけ焼けばおいしいクッキーの出来上がりだ！
  3815. ;成功判定（クッキー）
  3816. LOCAL:2 = 2
  3817. ELSE
  3818. PRINTFORMW ……クッキーに変化は無いようだ…
  3819. ;失敗判定
  3820. LOCAL:2 = 0
  3821. ENDIF
  3822. ELSEIF RESULT == 1
  3823. PRINTFORMW %CALLNAME:MASTER%は強い静電気の魔法を使った
  3824. ;教養に応じて補正
  3825. LOCAL:1 += (ABL:MASTER:Education * 10)
  3826. IF LOCAL:1 >= 450
  3827. PRINTFORMW 杖の先がバチバチと光っている、成功だ！
  3828. ;成功判定
  3829. LOCAL:2 = 1
  3830. ELSE
  3831. PRINTFORMW ……何も起きなかった…
  3832. ;失敗判定
  3833. LOCAL:2 = 0
  3834. ENDIF
  3835. ELSEIF RESULT == 2
  3836. PRINTFORMW %CALLNAME:MASTER%は強い風の魔法を葉っぱに向けて使った
  3837. ;清掃技能に応じて補正
  3838. LOCAL:1 += (ABL:MASTER:CleaningSkill * 10)
  3839. IF LOCAL:1 >= 450
  3840. PRINTFORMW 葉っぱが風に乗って大きく舞い上がった、成功だ！
  3841. ;成功判定
  3842. LOCAL:2 = 1
  3843. ELSE
  3844. PRINTFORMW ……葉っぱに変化はないようだ…
  3845. ;失敗判定
  3846. LOCAL:2 = 0
  3847. ENDIF
  3848. ;ELSEIF RESULT == 3
  3849. ;
  3850. ELSEIF RESULT == 4
  3851. PRINTFORMW %CALLNAME:MASTER%は箒に跨ると、箒に空を飛ぶ魔法を使った
  3852. ;呪文が長いため時間経過する、元よりは時間の経過量は下げてます
  3853. TIME += 30
  3854. PRINTFORMW ♪～～♪～
  3855. PRINTFORMW ♪♪！～～
  3856. PRINTFORMW …
  3857. IF LOCAL:1 >= 420
  3858. PRINTFORMW 呪文を唱え終わると、箒が%CALLNAME:MASTER%の体ごと浮かんだ！成功だ！
  3859. PRINTFORMW …ただ、地面から３０センチほどしか浮いていない…
  3860. ;成功判定
  3861. LOCAL:2 = 1
  3862. ELSE
  3863. PRINTFORMW …何も起きなかった…、　どうやら呪文を間違えたらしい…
  3864. ;失敗判定
  3865. LOCAL:2 = 0
  3866. ENDIF
  3867. ELSEIF RESULT == 9
  3868. GOTO LOOP_60
  3869. ELSE
  3870. GOTO LOOP_100
  3871. ENDIF
  3872. ELSEIF CFLAG:1008 > 80
  3873. ;魔法のランクに合わせてRANDを追加
  3874. LOCAL:1 += RAND:60
  3875. $LOOP_60
  3876. ;魔法のランクを記録
  3877. LOCAL:3 = 2
  3878. PRINTFORML どの魔法を使おうか…
  3879. PRINTL [0] バニラエッセンスの魔法
  3880. PRINTL [1] 音楽の魔法
  3881. PRINTL [2] 静電気の魔法(弱)
  3882. PRINTL [3] 風の魔法(弱)
  3883. PRINTL [9] 他の魔法にする
  3884. INPUT
  3885. IF RESULT == 0
  3886. PRINTFORMW %CALLNAME:MASTER%は葉っぱにバニラエッセンスの魔法を使った
  3887. ;料理技能に応じて補正
  3888. LOCAL:1 += (ABL:MASTER:CookingSkill * 20)
  3889. IF LOCAL:1 >= 300
  3890. PRINTFORMW 葉っぱから甘い匂いがする、成功のようだ
  3891. ;成功判定
  3892. LOCAL:2 = 1
  3893. ELSE
  3894. PRINTFORMW ……葉っぱに変化はないようだ…
  3895. ;失敗判定
  3896. LOCAL:2 = 0
  3897. ENDIF
  3898. ELSEIF RESULT == 1
  3899. PRINTFORMW %CALLNAME:MASTER%は音楽の魔法を使った
  3900. ;音楽技能に応じて補正
  3901. LOCAL:1 += (ABL:MASTER:MusicSkill * 15)
  3902. SIF TALENT:MASTER:MusicKnowledge
  3903. LOCAL:1 += 30
  3904. SIF TALENT:MASTER:MusicSense
  3905. LOCAL:1 += (TALENT:MASTER:MusicSense * 50)
  3906. IF LOCAL:1 >= 260
  3907. PRINTFORMW 空気が振動し、「エリーゼのために」を奏でた、成功のようだ
  3908. ;成功判定
  3909. LOCAL:2 = 1
  3910. ELSE
  3911. PRINTFORMW ……何も起きなかった…
  3912. ;失敗判定
  3913. LOCAL:2 = 0
  3914. ENDIF
  3915. ELSEIF RESULT == 2
  3916. PRINTFORMW %CALLNAME:MASTER%は静電気の魔法を使った
  3917. ;教養に応じて補正
  3918. LOCAL:1 += (ABL:MASTER:Education * 10)
  3919. IF LOCAL:1 >= 300
  3920. PRINTFORMW 杖の先が少し帯電した、成功のようだ
  3921. ;成功判定
  3922. LOCAL:2 = 1
  3923. ELSE
  3924. PRINTFORMW ……何も起きなかった…
  3925. ;失敗判定
  3926. LOCAL:2 = 0
  3927. ENDIF
  3928. ELSEIF RESULT == 3
  3929. PRINTFORMW %CALLNAME:MASTER%は風の魔法を葉っぱに向けて使った
  3930. ;清掃技能に応じて補正
  3931. LOCAL:1 += (ABL:MASTER:CleaningSkill * 10)
  3932. IF LOCAL:1 >= 300
  3933. PRINTFORMW 葉っぱが風に乗ってふわりと浮かんだ、成功のようだ
  3934. ;成功判定
  3935. LOCAL:2 = 1
  3936. ELSE
  3937. PRINTFORMW ……葉っぱに変化はないようだ…
  3938. ;失敗判定
  3939. LOCAL:2 = 0
  3940. ENDIF
  3941. ELSEIF RESULT == 9
  3942. GOTO LOOP_30
  3943. ELSE
  3944. GOTO LOOP_60
  3945. ENDIF
  3946. ELSEIF CFLAG:1008 > 40
  3947. ;魔法のランクに合わせてRANDを追加
  3948. LOCAL:1 += RAND:30
  3949. $LOOP_30
  3950. ;魔法のランクを記録
  3951. LOCAL:3 = 1
  3952. PRINTFORML どの魔法を使おうか…
  3953. PRINTL [0] ライトの魔法
  3954. PRINTL [1] 音階の魔法
  3955. PRINTL [2] ミントの香りの魔法
  3956. INPUT
  3957. IF RESULT == 0
  3958. PRINTFORMW %CALLNAME:MASTER%はライトの魔法を使った
  3959. ;教養に応じて補正
  3960. LOCAL:1 += (ABL:MASTER:Education * 10)
  3961. IF LOCAL:1 >= 90
  3962. PRINTFORMW 杖の先にほんのりと明かりが灯った、どうやら成功のようだ
  3963. ;成功判定
  3964. LOCAL:2 = 1
  3965. ELSE
  3966. PRINTFORMW ……何も起きなかった…
  3967. ;失敗判定
  3968. LOCAL:2 = 0
  3969. ENDIF
  3970. ELSEIF RESULT == 1
  3971. PRINTFORMW %CALLNAME:MASTER%は音階の魔法を使った
  3972. ;音楽技能に応じて補正
  3973. LOCAL:1 += (ABL:MASTER:MusicSkill * 15)
  3974. SIF TALENT:MASTER:MusicKnowledge
  3975. LOCAL:1 += 30
  3976. SIF TALENT:MASTER:MusicSense
  3977. LOCAL:1 += (TALENT:MASTER:MusicSense * 50)
  3978. IF LOCAL:1 >= 80
  3979. PRINTFORMW 辺りに「ド」の音が響いた、どうやら成功のようだ
  3980. ;成功判定
  3981. LOCAL:2 = 1
  3982. ELSE
  3983. PRINTFORMW ……何も起きなかった…
  3984. ;失敗判定
  3985. LOCAL:2 = 0
  3986. ENDIF
  3987. ELSEIF RESULT == 2
  3988. PRINTFORMW %CALLNAME:MASTER%はミントの香りの魔法を使った
  3989. ;料理技能に応じて補正
  3990. LOCAL:1 += (ABL:MASTER:CookingSkill * 20)
  3991. IF LOCAL:1 >= 80
  3992. PRINTFORMW 辺りにミントのいい香りが漂った、どうやら成功のようだ
  3993. ;成功判定
  3994. LOCAL:2 = 1
  3995. ELSE
  3996. PRINTFORMW ……何も起きなかった…
  3997. ;失敗判定
  3998. LOCAL:2 = 0
  3999. ENDIF
  4000. ELSE
  4001. GOTO LOOP_30
  4002. ENDIF
  4003. ENDIF
  4004. TRYCALLFORM M_KOJO_COLOR_K44
  4005. ;後処理
  4006. IF LOCAL:2 >= 1
  4007. CFLAG:1009 += 1
  4008. IF LOCAL:3 == 5
  4009. ;煙用
  4010. IF LOCAL:2 == 2
  4011. PRINTFORMW 「次は自力で元に戻れるよう知識をつけてから挑戦しましょうね」
  4012. ;ドラゴン用
  4013. ELSEIF LOCAL:2 == 3
  4014. PRINTFORMW 「まあ…、次は自分で制御できるように鍛錬を積んでから挑戦しましょう」
  4015. ELSE
  4016. PRINTFORMW 「ここまで上達するとは思ってもいなかったわ、すてきよっ%UNICODE(0x2665)% %CALLNAME:MASTER%%UNICODE(0x2665)%%UNICODE(0x2665)%」
  4017. ENDIF
  4018. CFLAG:1010 += 3
  4019. ELSEIF LOCAL:3 == 4
  4020. PRINTFORMW 「すごーい%UNICODE(0x2665)%　ここまで出来ればもう立派な魔法使いね%UNICODE(0x2665)%」
  4021. ELSEIF LOCAL:3 == 3
  4022. PRINTFORMW 「いい感じよ%CALLNAME:MASTER%%UNICODE(0x2665)%　この調子で頑張りましょ%UNICODE(0x2665)%」
  4023. CFLAG:1010 += 2
  4024. ;クッキー用、エレンが住み込んでいる場合に50%の確率で発生
  4025. IF LOCAL:2 == 2 && FLAG:15 == 44 && RAND:2 == 1
  4026. PRINTFORMDW どうやら魔法の練習に使ったクッキーをエレンが焼いてくれるようだ…
  4027. ;台所にオーブンは…ないよね？
  4028. PRINTFORMDW クッキーを焼くためにエレンの小屋へと向かった…
  4029. PRINTFORMW 「これでよし%UNICODE(0x2665)%　クッキーが焼けたらお茶にしましょう%UNICODE(0x2665)%」
  4030. PRINTFORMDW %CALLNAME:MASTER%はエレンと優雅な時間を過ごした…
  4031. BASE:MASTER:STRE = MIN(BASE:MASTER:STRE + 400 , MAXBASE:MASTER:STRE)
  4032. BASE:MASTER:ENE = MIN(BASE:MASTER:ENE + 300 , MAXBASE:MASTER:ENE)
  4033. BASE:STRE = MIN(BASE:STRE + 400 , MAXBASE:STRE)
  4034. BASE:ENE = MIN(BASE:ENE + 300 , MAXBASE:ENE)
  4035. CFLAG:現在位置 = 16
  4036. CFLAG:MASTER:現在位置 = 16
  4037. TIME += 20
  4038. ENDIF
  4039. ELSEIF LOCAL:3 == 2
  4040. PRINTFORMW 「上手よ%CALLNAME:MASTER%%UNICODE(0x2665)%　この調子で頑張りましょ%UNICODE(0x2665)%」
  4041. CFLAG:1010 += 1
  4042. ELSEIF LOCAL:3 == 1
  4043. PRINTFORMW 「上手よ%CALLNAME:MASTER%%UNICODE(0x2665)%　この調子で頑張りましょ%UNICODE(0x2665)%」
  4044. CFLAG:1010 += 1
  4045. ENDIF
  4046. ;魔水晶のペンダントがあれば３分の１の確率で更に＋される
  4047. IF ITEM:399 && RAND:3 == 2
  4048. PRINTFORMDL なんだかいつもより上手くいった気がする…
  4049. CFLAG:1009 += 1
  4050. ENDIF
  4051. CALL M_KOJO_MESSAGE_EVENT_K44_MAGIC
  4052. ELSE
  4053. PRINTFORMW 「あやや、失敗ね…　でも、次があるわ%UNICODE(0x2665)%　…ということで、さあ、練習練習%UNICODE(0x2665)%」
  4054. PRINTFORMDW %CALLNAME:MASTER%はエレンに魔法の稽古をつけてもらった…
  4055. CFLAG:1009 += 1
  4056. ENDIF
  4057. ELSEIF RESULT == 2 || CFLAG:1007 == 0
  4058. SIF CFLAG:1011 == 1
  4059. CALL TRAIN_MESSAGE
  4060. PRINTFORMW まだ暫定メッセージなり（・∀・）
  4061. ELSE
  4062. GOTO LOOP_KUNREN
  4063. ENDIF
  4064. ENDIF
  4065. RETURN 1
  4066. ;==================================================
  4067. ;412,勉強
  4068. ;==================================================
  4069. @M_KOJO_MESSAGE_COM_K44_412
  4070. ;弟子入りしていると地の文無し
  4071. SIF CFLAG:1007 == 0
  4072. CALL TRAIN_MESSAGE
  4073. CALL M_KOJO_MESSAGE_COM_K44_412_1
  4074. RETURN RESULT
  4075.  
  4076. @M_KOJO_MESSAGE_COM_K44_412_1
  4077. ;-------------------------------------------------
  4078. ;記入チェック（=0, 非表示、1, 表示）
  4079. LOCAL = 1
  4080. ;-------------------------------------------------
  4081. IF LOCAL
  4082. ;弟子入り時
  4083. IF CFLAG:1007 == 1
  4084. ;RANDを記録させておく
  4085. LOCAL:1 = RAND:5
  4086. ;まずは地の文
  4087. PRINTFORM %CALLNAME:MASTER%はエレンに
  4088. IF CFLAG:1012 == 6
  4089. SELECTCASE LOCAL:1
  4090. CASE 1, 2
  4091. PRINT 複雑な魔法
  4092. CASEELSE
  4093. PRINT 複雑な調合
  4094. ENDSELECT
  4095. ELSEIF CFLAG:1012 == 5
  4096. SELECTCASE LOCAL:1
  4097. CASE 1, 2
  4098. PRINT 本格的な魔法
  4099. CASEELSE
  4100. PRINT 本格的な調合
  4101. ENDSELECT
  4102. ELSEIF CFLAG:1012 == 4
  4103. SELECTCASE LOCAL:1
  4104. CASE 1, 2
  4105. PRINT 難しい魔法
  4106. CASE 3, 4
  4107. PRINT 難しい調合
  4108. CASEELSE
  4109. PRINT 魔法使いの心得
  4110. ENDSELECT
  4111. ELSEIF CFLAG:1012 == 3
  4112. SELECTCASE LOCAL:1
  4113. CASE 1, 2
  4114. PRINT 基本的な魔法
  4115. CASE 3, 4
  4116. PRINT 基本的な調合
  4117. CASEELSE
  4118. PRINT 魔法使いの知恵
  4119. ENDSELECT
  4120. ELSEIF CFLAG:1012 == 1 || CFLAG:1012 == 2
  4121. SELECTCASE LOCAL:1
  4122. CASE 1, 2
  4123. PRINT 簡単な魔法
  4124. CASE 3, 4
  4125. PRINT 簡単な調合
  4126. CASEELSE
  4127. PRINT 魔法使いの心得
  4128. ENDSELECT
  4129. ELSE
  4130. PRINT 魔法の基礎
  4131. ENDIF
  4132. PRINTL を教えてもらった
  4133. ;5%の確率で大成功or失敗。大成功時は更に＋１、失敗時は０
  4134. LOCAL:2 = RAND:100
  4135. IF LOCAL:2 >= 95
  4136. IF CFLAG:1008 > 100
  4137. PRINTFORML エレンは%CALLNAME:MASTER%の知識に感心している
  4138. ELSE
  4139. PRINTFORML エレンの指導はとてもためになる
  4140. ENDIF
  4141. CFLAG:1008 += 1
  4142. ELSEIF LOCAL:2 <= 4
  4143. PRINTFORML …よく分からなかった
  4144. ENDIF
  4145. ;次にエレンの台詞
  4146. TRYCALLFORM M_KOJO_COLOR_K44
  4147. IF CFLAG:1012 == 6
  4148. SELECTCASE LOCAL:1
  4149. CASE 1, 2
  4150. SELECTCASE RAND:3
  4151. CASE 1
  4152. PRINTFORMW 「今日は煙に化ける魔法を教えるわ%UNICODE(0x2665)%　難しいからちゃんと話を聞いてね」
  4153. CASE 2
  4154. ;ポリンが好きなあれ
  4155. PRINTFORMW 「今回はとっておき%UNICODE(0x2665)%　質量を伴わないドラゴン実体化の魔法を教えてあげる%UNICODE(0x2665)%」
  4156. CASEELSE
  4157. PRINTFORMW 「――で、うまい具合に氷の結晶をつくり上げたらー、あとは空気を震わせて音を出すの、分かったかしら？」
  4158. ENDSELECT
  4159. CASEELSE
  4160. SELECTCASE RAND:4
  4161. CASE 1
  4162. PRINTFORMW 「あとはこうすれば…魔よけの結界を作る魔法の出来上がりー%UNICODE(0x2665)%」
  4163. CASE 2
  4164. PRINTFORMW 「角はしっかりと砕いて粉末状にするの。少しでも形が残ってるとダメよ」
  4165. CASE 3
  4166. PRINTFORMW 「より強力な呪いよけの魔法の作り方はね――」
  4167. CASEELSE
  4168. PRINTFORMW 「これがこーで、あれがあーなのよ」
  4169. ENDSELECT
  4170. ENDSELECT
  4171. ELSEIF CFLAG:1012 == 5
  4172. SELECTCASE LOCAL:1
  4173. CASE 1, 2
  4174. SELECTCASE RAND:3
  4175. CASE 1
  4176. PRINTFORMW 「強力なレーザーの撃ち方はね――」
  4177. CASE 2
  4178. PRINTFORMW 「高速の弾を連射するには――」
  4179. CASEELSE
  4180. PRINTFORMW 「今回はより高度な飛行魔法を教えるわ%UNICODE(0x2665)%」
  4181. ENDSELECT
  4182. CASEELSE
  4183. ;ネタが思いつかないので流用
  4184. SELECTCASE RAND:4
  4185. CASE 1
  4186. PRINTFORMW 「あとはこうすれば…魔よけの結界を作る魔法の出来上がりー%UNICODE(0x2665)%」
  4187. CASE 2
  4188. PRINTFORMW 「角はしっかりと砕いて粉末状にするの。少しでも形が残ってるとダメよ」
  4189. CASE 3
  4190. PRINTFORMW 「より強力な呪いよけの魔法の作り方はね――」
  4191. CASEELSE
  4192. PRINTFORMW 「これがこーで、あれがあーなのよ」
  4193. ENDSELECT
  4194. ENDSELECT
  4195. ;これもエレンは魔法を使ってないため特に無し
  4196. ELSEIF CFLAG:1012 == 4
  4197. SELECTCASE LOCAL:1
  4198. CASE 1, 2
  4199. SELECTCASE RAND:4
  4200. CASE 1
  4201. PRINTFORMW 「これがポラリス結界よ、魔法を使うと中のポラリスが回転して近くの魔力を吸い取るの」
  4202. PRINTFORMW 「魔法な生き物はこれに近づくといやーな気分になるから寄って来なくなるわ」
  4203. PRINTFORMW 「止め方は簡単、指でまわっているポラリスを止めるだけよ%UNICODE(0x2665)%」
  4204. PRINTFORMW 「そうそう、止めない限りいつまでもぐるぐる回って魔力を吸い取るからそこは注意が必要ね」
  4205. CASE 2
  4206. PRINTFORMW 「今日は敵の魔法に対抗する術を教えるわ%UNICODE(0x2665)%」
  4207. PRINTFORMW 「まずは相手の魔法がどのようなものか見極めることね、どんなのか分からなきゃ防ぎようも無いわ」
  4208. PRINTFORMW 「次は相手の魔法に合わせた対抗策を打つことよ、　攻撃魔法なら防御魔法で防ぐ！ 幻ならそれをはらう！」
  4209. PRINTFORMW 「相手のほうが格上だと上手くいかないこともあるけど…それでも何もしないよりはましよ」
  4210. ;ごめんうえのうそ
  4211. CASE 3
  4212. PRINTFORMW 「お菓子作りに失敗は付き物よね、そんなときに役に立つのが今日教える魔法よ%UNICODE(0x2665)%」
  4213. PRINTFORMDL エレンは持ってきた包みを取り出すとそれを開けた
  4214. PRINTFORMDW 中にはビスケットのように潰れているシュークリームの皮が入っている…
  4215. PRINTFORMW 「これをこうして…、　えいっ」
  4216. PRINTFORMDW 　ポン
  4217. PRINTFORMW エレンが魔法を使うと、潰れていたシュークリームの皮が少し膨らんだ
  4218. PRINTFORMW 「あとはこれを少し焼くだ…って、いたたた！　さすがにこれぐらいの魔法だと帯電がひどいわねー」
  4219. PRINTFORMW 「…ようやく収まったわ。　さてと、せっかくだしシュークリームが出来たらお茶にしましょ%UNICODE(0x2665)%」
  4220. BASE:MASTER:STRE = MIN(BASE:MASTER:STRE + 200 , MAXBASE:MASTER:STRE)
  4221. BASE:MASTER:ENE = MIN(BASE:MASTER:ENE + 200 , MAXBASE:MASTER:ENE)
  4222. BASE:STRE = MIN(BASE:STRE + 200 , MAXBASE:STRE)
  4223. BASE:ENE = MIN(BASE:ENE + 200 , MAXBASE:ENE)
  4224. CASEELSE
  4225. PRINTFORMW 「今日はお待ちかね！空を飛ぶ魔法を教えるわ%UNICODE(0x2665)%　しっかりと聞いてね%UNICODE(0x2665)%」
  4226. PRINTFORMW 「…まあ、空を飛ぶ魔法といってもこれは入門みたいなものだからあまり高いところは飛べないし、時々落ちるけどさ」
  4227. PRINTFORMW 「それに今の%CALLNAME:MASTER%だと結構長い呪文になるわね…　ま、まあ、一生懸命頑張れば大空を自由に飛べるようになるわよ%UNICODE(0x2665)%」
  4228. ENDSELECT
  4229. CASE 3, 4
  4230. SELECTCASE RAND:4
  4231. CASE 1
  4232. PRINTFORMW 「今回はドラゴンが嫌がる臭いを出す魔法の作り方よ%UNICODE(0x2665)%」
  4233. CASE 2
  4234. PRINTFORMW 「――をよく混ぜて、あとは呪文を唱えれば空を飛ぶ魔法の出来上がり%UNICODE(0x2665)%」
  4235. PRINTFORMW 「これを使えばあの長い呪文を唱えなくても大丈夫だわ%UNICODE(0x2665)%　…その代わり、魔法を作る呪文に１時間ぐらいかかるけどね」
  4236. CASE 3
  4237. PRINTFORMW 「これをこうすれば…　解呪の魔法の出来上がりよ%UNICODE(0x2665)%　ささ、%CALLNAME:MASTER%も作ってみて%UNICODE(0x2665)%」
  4238. CASEELSE
  4239. PRINTFORMW 「――と、あとはひたすら混ぜるだけよ%UNICODE(0x2665)%　ただひたすら」
  4240. ENDSELECT
  4241. CASEELSE
  4242. SELECTCASE RAND:3
  4243. CASE 1
  4244. ;ドラゴンは幻想入りしているのだろうか
  4245. PRINTFORMW 「イオウくさくて大きな生き物といったらドラゴンね」
  4246. PRINTFORMW 「ドラゴンは力は強いし口から炎を吐く、それに知能も高いの」
  4247. PRINTFORMW 「まあ、種族にもよるけどそんなに好戦的でもないから、怒らせない限りはあまり問題ないけどね」
  4248. CASE 2
  4249. PRINTFORMW 「妨害魔法の一つに魔法で五感を狂わせて迷わせるものがあるの」
  4250. PRINTFORMW 「厄介そうに見えるけど、みずからバランスを崩してやれば魔法の効力を打ち消せるわ%UNICODE(0x2665)%」
  4251. CASEELSE
  4252. PRINTFORMW 「%CALLNAME:MASTER%は使い魔は欲しい？　今回は使い魔のことを教えるわ%UNICODE(0x2665)%」
  4253. PRINTFORMW 「使い魔といったら基本は猫よね。　ソクラテスー」
  4254. PRINTFORMDW …
  4255. PRINTFORMDW ニャオン
  4256. PRINTFORMW 「よーしよし、ちょっとこっちに来てね。　で、まず大事なこと、使い魔にするには素質が必要よ」
  4257. PRINTFORMW 「そうねー、猫でいうと大体５４０匹に１匹ぐらいの確率で使い魔の素質があるわ」
  4258. PRINTFORMW 「次は使い魔との接し方ね。　時には甘やかすのも大事だけど、甘やかしすぎるのはダメよ！　わがままになって言うことを聞かなくなるから」
  4259. PRINTFORMW 「言うことを聞かない使い魔は使い魔とは言えないわ…って、ソクラテス！　どこ行こうとしてるの！」
  4260. PRINTFORMDW …フン
  4261. PRINTFORMW 「まったく、あんたってばほんと生意気ね。　…さてと、次は使い魔が何を出来るかだわね」
  4262. PRINTFORMW 「大体のが出来ることだと手紙を届けたりー、隠された道を見つけたりとかだわね」
  4263. PRINTFORMW 「ほかは使い魔にした動物によるわね。　猫なら高い身体能力を生かしたことが得意だし、犬なら嗅覚を生かしたことが得意よ」
  4264. PRINTFORMW 「…とまあ、使い魔の基本はこれぐらいね。　分かったかしら%UNICODE(0x2665)%」
  4265. ENDSELECT
  4266. ENDSELECT
  4267. ;簡単な魔法ならそこまで帯電しないので特に無し
  4268. ELSEIF CFLAG:1012 == 3
  4269. SELECTCASE LOCAL:1
  4270. CASE 1, 2
  4271. SELECTCASE RAND:5
  4272. CASE 1
  4273. PRINTFORMW 「これがバニラエッセンスの魔法よ、お菓子作りに役立つわ%UNICODE(0x2665)%」
  4274. CASE 2
  4275. PRINTFORMW 「今日は空気を振動させて音を出す魔法を教えるわ%UNICODE(0x2665)%」
  4276. CASE 3
  4277. PRINTFORMW 「今日は静電気を起こす魔法を教えるわ%UNICODE(0x2665)%　ちょっと注意が必要だからちゃんと聞いてね」
  4278. CASE 4
  4279. PRINTFORMW 「これが風の魔法よ、　うまく強さを調整できれば色々と役に立つわ%UNICODE(0x2665)%」
  4280. CASEELSE
  4281. PRINTFORMW 「これがこーで、あれがあーなのよ」
  4282. ENDSELECT
  4283. CASE 3, 4
  4284. SELECTCASE RAND:3
  4285. CASE 1
  4286. PRINTFORMW 「――を混ぜて一晩置いたものに香料を入れて魔法を唱えれば石鹸になるわ%UNICODE(0x2665)%」
  4287. CASE 2
  4288. PRINTFORMW 「蚊の目玉とー、タンポポの根とー、その他諸々で自信をつける魔法の薬になるわ%UNICODE(0x2665)%」
  4289. CASEELSE
  4290. PRINTFORMW 「これがこーで、あれがあーなのよ」
  4291. ENDSELECT
  4292. CASEELSE
  4293. SELECTCASE RAND:2
  4294. CASE 1
  4295. PRINTFORMW 「魔法使いになるなら一生懸命一生懸命一生懸命頑張らないといけないわ！」
  4296. CASEELSE
  4297. PRINTFORMW 「一流の魔法使いになるには基礎が一番大事だわ、　いくら魔力があっても基礎が出来てなければだめよ」
  4298. ENDSELECT
  4299. ENDSELECT
  4300. ELSEIF CFLAG:1012 == 1 || CFLAG:1012 == 2
  4301. SELECTCASE LOCAL:1
  4302. CASE 1, 2
  4303. PRINT 「これが
  4304. SELECTCASE RAND:6
  4305. CASE 1
  4306. PRINT ライトの
  4307. CASE 2
  4308. PRINT 音階の
  4309. CASE 3
  4310. PRINT ミントの香りの
  4311. CASE 4
  4312. PRINT ラベンダーの香りの
  4313. CASE 5
  4314. PRINT イルミネーションの
  4315. CASEELSE
  4316. PRINT すっぱい空気を作る
  4317. ENDSELECT
  4318. PRINTFORMW 魔法よ、　ささ、%CALLNAME:MASTER%もやってみて%UNICODE(0x2665)%」
  4319. CASE 3, 4
  4320. PRINT 「これをこうすれば
  4321. SELECTCASE RAND:3
  4322. CASE 1
  4323. PRINT ミントの香りの
  4324. CASE 2
  4325. PRINT ラベンダーの香りの
  4326. CASEELSE
  4327. PRINT 煙の
  4328. ENDSELECT
  4329. PRINTFORMW 魔法の完成よ、　ささ、%CALLNAME:MASTER%もやってみて%UNICODE(0x2665)%」
  4330. CASEELSE
  4331. SELECTCASE RAND:2
  4332. CASE 1
  4333. PRINTFORMW 「魔法使いになるなら一生懸命一生懸命一生懸命頑張らないといけないわ！」
  4334. CASEELSE
  4335. PRINTFORMW 「一流の魔法使いになるには基礎が一番大事だわ、　いくら魔力があっても基礎が出来てなければだめよ」
  4336. ENDSELECT
  4337. ENDSELECT
  4338. ELSE
  4339. SELECTCASE RAND:3
  4340. CASE 1
  4341. PRINTFORMW 「呪文は集中して、正確に発音するのよ。　とりあえず簡単なものをやってみましょ%UNICODE(0x2665)%」
  4342. CASE 2
  4343. PRINTFORMW 「調合で大事なことは分量をしっかり量ることよ、　少しでも間違えると大変なことになるかもだわ」
  4344. CASEELSE
  4345. ;参考文献　はたらきもの、ちまりまわるつ、世の中なまほう
  4346. PRINTFORMW 「魔法といってもさまざまな種類があるわ、　今回は魔法の発動方法についていくつか説明するわ」
  4347. PRINTFORMW 「ひとつめが普通に呪文を唱えて使う方法よ、　基本中の基本ね」
  4348. PRINTFORML 「もうひとつが、呪文を唱えたものを瓶詰めにして必要なときに発動する方法よ」
  4349. PRINTFORMW 「これなら使うときに呪文を唱えなくてすむし、消耗も少ないけどその代わりに準備が必要だわ」
  4350. PRINTFORML 「別バージョンとして、あらかじめ調合で魔法の元を作ってそれを使うってのもあるわ」
  4351. PRINTFORMW 「わたしはこれよ、　まあ、簡単な魔法ならわざわざ調合しないで普通に呪文を唱えるけどさ」
  4352. ENDSELECT
  4353. ENDIF
  4354. IF LOCAL:2 <= 4
  4355. PRINTFORMW 「…って、　ちょっとー、人の話聞いてる？」
  4356. ELSE
  4357. CFLAG:1008 += 1
  4358. ;魔水晶のペンダントがあれば３分の１の確率で更に＋される
  4359. IF ITEM:399 && RAND:3 == 2
  4360. PRINTFORMDL なんだかいつもより頭に入った気がする…
  4361. CFLAG:1008 += 1
  4362. ENDIF
  4363. CALL M_KOJO_MESSAGE_EVENT_K44_MAGIC
  4364. ENDIF
  4365. ENDIF
  4366. ENDIF
  4367. RETURN 1
  4368.  
  4369. ;弟子イベント用
  4370. @M_KOJO_MESSAGE_EVENT_K44_MAGIC
  4371. ;学習キャップ
  4372. SIF CFLAG:1008 > 70 && CFLAG:1009 < 30
  4373. CFLAG:1008 = 70
  4374. SIF CFLAG:1008 > 110 && CFLAG:1009 < 60
  4375. CFLAG:1008 = 110
  4376. SIF CFLAG:1008 > 160 && CFLAG:1009 < 80 && CFLAG:1010 < 60
  4377. CFLAG:1008 = 160
  4378. SIF CFLAG:1008 > 220 && CFLAG:1009 < 120 && CFLAG:1010 < 100
  4379. CFLAG:1008 = 220
  4380. ;実技キャップ
  4381. SIF CFLAG:1008 < 60 && CFLAG:1009 > 40
  4382. CFLAG:1009 = 40
  4383. SIF CFLAG:1008 < 100 && CFLAG:1009 > 80
  4384. CFLAG:1009 = 80
  4385. SIF CFLAG:1008 < 150 && CFLAG:1009 > 100 && CFLAG:1010 < 60
  4386. CFLAG:1009 = 100
  4387. SIF CFLAG:1008 < 200 && CFLAG:1009 > 130 && CFLAG:1010 < 100
  4388. CFLAG:1009 = 130
  4389. ;成功キャップ
  4390. SIF CFLAG:1008 < 60 && CFLAG:1010 > 20
  4391. CFLAG:1010 = 20
  4392. SIF CFLAG:1008 < 100 && CFLAG:1010 > 60
  4393. CFLAG:1010 = 60
  4394. SIF CFLAG:1008 < 150 && CFLAG:1009 < 80 && CFLAG:1010 > 80
  4395. CFLAG:1010 = 80
  4396. SIF CFLAG:1008 < 200 && CFLAG:1009 < 120 && CFLAG:1010 > 120
  4397. CFLAG:1010 = 120
  4398. ;魔法学習&実技経験が初めて一定量を越した時のみ追加
  4399. IF CFLAG:1008 > 30 && CFLAG:1012 == 0
  4400. PRINTFORMW 「…と、大体こんな感じね。　次からは基本的な魔法と調合を教えてあげるわ%UNICODE(0x2665)%」
  4401. CFLAG:1012 = 1
  4402. ELSEIF CFLAG:1008 > 40 && CFLAG:1012 == 1
  4403. PRINTFORMW 「呪文も覚えてきたみたいね。　そろそろ実技も始めていくわよ%UNICODE(0x2665)%」
  4404. PRINTFORMDW 魔法の披露が出来るようになりました。　晴れか曇りのときにエレンと戦闘訓練を行うとエレンに魔法を披露します
  4405. CFLAG:1012 = 2
  4406. ELSEIF CFLAG:1008 > 60 && CFLAG:1009 > 20 && CFLAG:1010 > 10 && CFLAG:1012 == 2
  4407. PRINTFORMW 「基本の魔法と調合は覚えられたかしら？　次からはちょっと難しいものにするわね%UNICODE(0x2665)%」
  4408. CFLAG:1012 = 3
  4409. ELSEIF CFLAG:1008 > 100 && CFLAG:1009 > 50 && CFLAG:1010 > 40 && CFLAG:1012 == 3
  4410. PRINTFORMW 「頑張ってるわね%UNICODE(0x2665)%　そんな%CALLNAME:MASTER%に応えて次からはもっと難しいのにしてあげる%UNICODE(0x2665)%」
  4411. CFLAG:1012 = 4
  4412. ELSEIF CFLAG:1008 > 150 && CFLAG:1009 > 80 && CFLAG:1010 > 60 && CFLAG:1012 == 3
  4413. PRINTFORMW 「そろそろ実践的な魔法に移るわね、ちょっと厳しいけど一緒にがんばりましょっ%UNICODE(0x2665)%」
  4414. CFLAG:1012 = 5
  4415. ELSEIF CFLAG:1008 > 200 && CFLAG:1009 > 120 && CFLAG:1010 > 100 && CFLAG:1012 == 5
  4416. PRINTFORMW 「ここまで出来るなんてすごーい%UNICODE(0x2665)%　師匠として鼻が高いわ%UNICODE(0x2665)%」
  4417. PRINTFORMW 「これぐらい出来ればもう一人前と言えなくもないけど……　せっかくだしもっっと高いところを目指しましょ%UNICODE(0x2665)%」
  4418. CFLAG:1012 = 6
  4419. ELSEIF CFLAG:1008 > 300 && CFLAG:1009 > 200 && CFLAG:1010 > 250 && CFLAG:1012 == 6
  4420. PRINTFORMW 「……よくここまで頑張ったわね。　%CALLNAME:MASTER%はもう立派な魔法使いよ%UNICODE(0x2665)%」
  4421. CFLAG:1012 = 7
  4422. ENDIF
  4423. ;条件を満たしていれば調合知識を獲得（MASTER）
  4424. IF CFLAG:1008 > 100 && CFLAG:1009 > 80 && CFLAG:1010 > 50 && !TALENT:MASTER:MedicineSkill
  4425. PRINTFORMDL エレンの元で修行を続けているうちに調合の知識が身についてきた
  4426. PRINTFORMDW %CALLNAME:MASTER%は[MedicineSkill]を得た
  4427. TALENT:MASTER:MedicineSkill = 1
  4428. ENDIF
  4429.  
  4430. ;==================================================
  4431. ;413,料理
  4432. ;==================================================
  4433. @M_KOJO_MESSAGE_COM_K44_413
  4434. ;料理にTRAIN_MESSAGEは無い
  4435. TRYCALLFORM M_KOJO_COLOR_K44
  4436. CALL M_KOJO_MESSAGE_COM_K44_413_1
  4437. RETURN RESULT
  4438.  
  4439. @M_KOJO_MESSAGE_COM_K44_413_1
  4440. ;-------------------------------------------------
  4441. ;記入チェック（=0, 非表示、1, 表示）
  4442. LOCAL = 1
  4443. ;-------------------------------------------------
  4444. IF LOCAL && !CFLAG:睡眠 && !CFLAG:Anger
  4445. ;料理ごとに
  4446. SELECTCASE TCVAR:361
  4447. ;ケーキ
  4448. CASE 51
  4449. PRINTFORMW 「ケーキを～焼こう♪ケーキを～焼こう♪」
  4450. PRINTFORMW 「スポンジ～ふわふわ～♪　クリーム～たあっぷり～♪」
  4451. ;なければ汎用
  4452. CASEELSE
  4453. ;恋人時専用
  4454. IF TALENT:TARGET:Lover
  4455. IF ABL:MASTER:CookingSkill == 0
  4456. PRINTFORMW 「%CALLNAME:MASTER%はあまり料理したことがないの？　だったらわたしが教えてあげるわ%UNICODE(0x2665)%」
  4457. ELSEIF ABL:MASTER:CookingSkill <= 2
  4458. PRINTFORMW 「ふう…、ようやく出来たわ%UNICODE(0x2665)%」
  4459. PRINTFORMW 「さ、温かいうちにいただきましょう%UNICODE(0x2665)%」
  4460. ELSEIF ABL:MASTER:CookingSkill <= 4
  4461. PRINTFORMW 「なんか夫婦みたいで楽しいわね%UNICODE(0x2665)%」
  4462. ELSE
  4463. PRINTFORMW 「こんなにおいしそうなのを作れるなんて、%CALLNAME:MASTER%すごーい%UNICODE(0x2665)%」
  4464. ENDIF
  4465. ;恋慕or準恋慕時専用
  4466. ELSEIF TALENT:Love || CFLAG:1014 == 1
  4467. IF ABL:MASTER:CookingSkill == 0
  4468. PRINTFORMW 「%CALLNAME:MASTER%はあまり料理したことがないの？　だったらわたしが教えてあげるわ%UNICODE(0x2665)%」
  4469. ELSEIF ABL:MASTER:CookingSkill <= 2
  4470. PRINTFORMW 「ようやく出来たわね%UNICODE(0x2665)%」
  4471. ELSEIF ABL:MASTER:CookingSkill <= 4
  4472. PRINTFORMW 「%CALLNAME:MASTER%と一緒に料理するとなんだか楽しいわね%UNICODE(0x2665)%//」
  4473. ELSE
  4474. PRINTFORMW 「こんなにおいしそうに作れるなんて、%CALLNAME:MASTER%ってすごいわね%UNICODE(0x2665)%」
  4475. ENDIF
  4476. ;その他
  4477. ELSE
  4478. IF ABL:MASTER:CookingSkill == 0
  4479. PRINTFORMW 「%CALLNAME:MASTER%はあまり料理したことがないの？　だったらわたしが教えてあげるわ%UNICODE(0x2665)%」
  4480. ELSE
  4481. PRINTFORMW 「ふんふふ～ん♪　おいしい料理を作りましょー%UNICODE(0x2665)%」
  4482. ENDIF
  4483. ENDIF
  4484. ENDSELECT
  4485. ;料理したか記憶
  4486. TCVAR:360 = 1
  4487. ENDIF
  4488. RETURN 1
  4489. ;==================================================
  4490. ;414,食事 影狼口上の人ありがとうございます！そしてごめんなさい！
  4491. ;==================================================
  4492. @M_KOJO_MESSAGE_COM_K44_414
  4493. ;FLAG:料理が消される前に記憶させとく
  4494. TCVAR:361 = FLAG:料理
  4495. TRYCALLFORM M_KOJO_COLOR_K44
  4496. CALL M_KOJO_MESSAGE_COM_K44_414_1
  4497. RETURN RESULT
  4498.  
  4499. @M_KOJO_MESSAGE_COM_K44_414_1
  4500. ;-------------------------------------------------
  4501. ;記入チェック（=0, 非表示、1, 表示）
  4502. LOCAL = 1
  4503. ;-------------------------------------------------
  4504. IF LOCAL && !FLAG:70 && !CFLAG:睡眠
  4505. ;一緒に作ったなら
  4506. IF TCVAR:360 == 1
  4507. IF TALENT:Lover
  4508. SELECTCASE RAND:2
  4509. CASE 1
  4510. PRINTFORMW 「%CALLNAME:MASTER%との料理、おいしくできたかしら%UNICODE(0x2665)%」
  4511. CASEELSE
  4512. PRINTFORMW 「いただきまーす%UNICODE(0x2665)%」
  4513. ENDSELECT
  4514. ELSE
  4515. PRINTFORMW 「いただきまーす%UNICODE(0x2665)%」
  4516. ENDIF
  4517. ;そうでないなら
  4518. ELSE
  4519. IF TALENT:Lover
  4520. PRINTFORMW 「料理を作ってくれたのね、ありがとう%UNICODE(0x2665)%」
  4521. PRINTFORMW 「それじゃあいただきまーす%UNICODE(0x2665)%」
  4522. ELSEIF TALENT:Love || CFLAG:1014 == 1
  4523. PRINTFORMW 「あら%UNICODE(0x2665)%　誘ってくれてありがとう%UNICODE(0x2665)%//」
  4524. ELSE
  4525. PRINTFORMW 「あら%UNICODE(0x2665)%　誘ってくれてありがとう%UNICODE(0x2665)%」
  4526. PRINTFORMW 「それじゃあいただきまーす%UNICODE(0x2665)%」
  4527. ENDIF
  4528. ENDIF
  4529. CALL M_KOJO_MESSAGE_COM_K44_414_1_SYOKU
  4530. ENDIF
  4531. RETURN 1
  4532. ;==================================================
  4533. ;415,食事をふるまう
  4534. ;==================================================
  4535. @M_KOJO_MESSAGE_COM_K44_415
  4536. ;FLAG:料理が消される前に記憶させとく
  4537. TCVAR:361 = FLAG:料理
  4538. TRYCALLFORM M_KOJO_COLOR_K44
  4539. CALL M_KOJO_MESSAGE_COM_K44_415_1
  4540. RETURN RESULT
  4541.  
  4542. @M_KOJO_MESSAGE_COM_K44_415_1
  4543. ;-------------------------------------------------
  4544. ;記入チェック（=0, 非表示、1, 表示）
  4545. LOCAL = 1
  4546. ;-------------------------------------------------
  4547. IF LOCAL && !FLAG:70
  4548. ;一緒に作ったなら
  4549. IF TCVAR:360 == 1
  4550. IF TALENT:Lover
  4551. SELECTCASE RAND:2
  4552. CASE 1
  4553. PRINTFORMW 「%CALLNAME:MASTER%との料理、おいしくできたかしら%UNICODE(0x2665)%」
  4554. CASEELSE
  4555. PRINTFORMW 「せっかく一緒に作った料理なのに%CALLNAME:MASTER%は食べなくていいの？」
  4556. PRINTFORMW 「…そう、それならいいけど」
  4557. ENDSELECT
  4558. ELSE
  4559. PRINTFORMW 「%CALLNAME:MASTER%は食べなくていいの？」
  4560. PRINTFORMW 「…そう、それならいいけど」
  4561. ENDIF
  4562. ;そうでないなら
  4563. ELSE
  4564. IF TALENT:Lover
  4565. PRINTFORMW 「料理を作ってくれたのね、ありがとう%UNICODE(0x2665)%」
  4566. PRINTFORMW 「それじゃあいただきまーす%UNICODE(0x2665)%」
  4567. ELSEIF TALENT:Love || CFLAG:1014 == 1
  4568. PRINTFORMW 「あら%UNICODE(0x2665)%　ありがとう%UNICODE(0x2665)%」
  4569. ELSE
  4570. PRINTFORMW 「ごちそうになるわ%UNICODE(0x2665)%」
  4571. ENDIF
  4572. ENDIF
  4573. CALL M_KOJO_MESSAGE_COM_K44_414_1_SYOKU
  4574. ENDIF
  4575. RETURN 1
  4576.  
  4577. ;食事用関数
  4578. @M_KOJO_MESSAGE_COM_K44_414_1_SYOKU
  4579. ;ハバネロかわさびなら追加
  4580. IF TCVAR:MASTER:308 & 8
  4581. PRINTFORMW 「……あの、一つ聞いてもいい？」
  4582. PRINTFORMW 「%DISHNAME%は普通、こんな色じゃないわよね……」
  4583. PRINTFORMW 「すごく気になるけど…、とりあえず食べてみるわ」
  4584. ELSEIF TCVAR:MASTER:308 & 32
  4585. PRINTFORMW 「……ねえ%CALLNAME:MASTER%、どうしてこの%DISHNAME%は鼻につ～んとくるの？」
  4586. PRINTFORMW 「すごく気になるけど…、とりあえず食べてみるわ」
  4587. ENDIF
  4588. ;食事中
  4589. PRINTDW …
  4590. ;何か仕込んだ場合
  4591. IF TCVAR:MASTER:308 & 8
  4592. PRINTFORMW 「！？％＃＄＊＠＝＆！！」
  4593. PRINTFORMW 「みみみ水！水！！」
  4594. RETURN 1
  4595. ELSEIF TCVAR:MASTER:308 & 16
  4596. PRINTFORMW 「なにこれ……　見た目は普通の%DISHNAME%なのにものすごーく甘いわ…」
  4597. RETURN 1
  4598. ELSEIF TCVAR:MASTER:308 & 32
  4599. PRINTFORMW 「うううう、すごいしみる～」
  4600. PRINTFORMW 「いったいどれだけのわさびをいれたの～？」
  4601. RETURN 1
  4602. ELSEIF TCVAR:MASTER:308 & 64
  4603. PRINTFORMW 「……なんでこんなにすっぱいのよ～」
  4604. RETURN 1
  4605. ;失敗時
  4606. ELSEIF TFLAG:193 == -1
  4607. ;一緒に作ったか
  4608. IF TCVAR:360 == 1
  4609. IF TALENT:Lover || TALENT:Love
  4610. PRINTFORMW 「わたしの口には合わないけど…　%CALLNAME:MASTER%と作った料理だもの、全部食べてみせるわ！」
  4611. ELSEIF TALENT:思慕
  4612. PRINTFORMW 「うーん、なんか微妙ねー」
  4613. PRINTFORMW 「調味料を入れすぎたかしら…」
  4614. ELSE
  4615. PRINTFORMW 「まずくはないのだけれど…、わたしの口には合わないわね」
  4616. PRINTFORMW 「どこを間違えたのかしら…？」
  4617. ENDIF
  4618. ELSE
  4619. IF TALENT:Lover || TALENT:Love
  4620. PRINTFORMW 「正直、わたしの口には合わないけど…　%CALLNAME:MASTER%の作った料理だもの、全部食べてみせるわ！」
  4621. ELSEIF TALENT:思慕
  4622. PRINTFORMW 「まあ、こんな時もあるー…、のかなぁ…」
  4623. ELSE
  4624. PRINTFORMW 「うーん、なんか微妙だわーねー」
  4625. ENDIF
  4626. ENDIF
  4627. ;恋人時かつ二人きりなら4分の1の確率で分岐
  4628. ELSEIF TALENT:Lover && GET_TARGETNUM() == 1 && RAND:4 == 3
  4629. PRINTFORMW 「はいっ%UNICODE(0x2665)% あーんして%UNICODE(0x2665)%」
  4630. PRINTFORMW 「…えへへ%UNICODE(0x2665)% 次はわたしの番よ%UNICODE(0x2665)% あーん%UNICODE(0x2665)%」
  4631. EXP:愛情経験 += 2
  4632. ELSE
  4633. ;料理ごとに
  4634. SELECTCASE TCVAR:361
  4635. ;サンドイッチ
  4636. CASE 1
  4637. PRINTFORMW 「卵サンドおいしー%UNICODE(0x2665)% ふわふわしてるー%UNICODE(0x2665)%」
  4638. ;スコーン
  4639. CASE 4
  4640. SELECTCASE RAND:2
  4641. CASE 1
  4642. PRINTFORMW 「サクサクしてておいしー%UNICODE(0x2665)%」
  4643. CASEELSE
  4644. PRINTFORMW 「スコーンを食べてると紅茶が欲しくなるわね」
  4645. ENDSELECT
  4646. ;肉まん
  4647. CASE 6
  4648. ;冬なら
  4649. IF DAY:2 == 4 && RAND:2
  4650. PRINTFORMW 「冬に食べる肉まんはなんだかいつもよりおいしいわ%UNICODE(0x2665)%」
  4651. ELSE
  4652. PRINTFORMW 「うわー%UNICODE(0x2665)% あったかーい%UNICODE(0x2665)%」
  4653. ENDIF
  4654. ;卵かけご飯　でらぐい面白かったなあ…
  4655. CASE 11
  4656. PRINTFORMW 「そういえば、%CALLNAME:MASTER%は卵に醤油を混ぜる派？それともご飯に醤油をかける派？」
  4657. ;素麺
  4658. CASE 18
  4659. ;夏か否かで分岐
  4660. IF DAY:2 == 2
  4661. PRINTFORMW 「やっぱり夏はそうめんよね%UNICODE(0x2665)%」
  4662. PRINTFORMW 「…まあ、あまり食べたことないけど」
  4663. ELSE
  4664. PRINTFORMW 「夏以外にそうめんってのもこれはこれでありね%UNICODE(0x2665)%　…季節感はないけど」
  4665. ENDIF
  4666. ;蕎麦
  4667. CASE 19
  4668. ;%CALLNAME:MASTER%の料理技能が3以上で手打ちに
  4669. IF ABL:MASTER:CookingSkill >= 3
  4670. PRINTFORMW 「このおそばって%CALLNAME:MASTER%の手打ちなのよね、すごーい%UNICODE(0x2665)%」
  4671. ELSE
  4672. PRINTFORMW 「日本のおそばはほんとおいしいわ%UNICODE(0x2665)%」
  4673. ENDIF
  4674. ;ヲムレツ
  4675. CASE 20
  4676. ;朝なら
  4677. IF (TIME:2 == 1 || TIME:2 == 2) && RAND:2
  4678. PRINTFORMW 「朝はオムレツに限るわ%UNICODE(0x2665)%」
  4679. ;一緒に作ったか否かで分岐
  4680. ELSEIF TCVAR:360 == 1
  4681. IF ABL:CookingSkill <= 2
  4682. PRINTFORMW 「オムレツは手軽に作れておいしいから素敵ね%UNICODE(0x2665)%」
  4683. ELSE
  4684. PRINTFORMW 「ふわふわに焼けてるわ%UNICODE(0x2665)% おいしっ%UNICODE(0x2665)%」
  4685. ENDIF
  4686. ELSE
  4687. IF ABL:MASTER:CookingSkill <= 3
  4688. PRINTFORMW 「うん%UNICODE(0x2665)% おいしく焼けてるわよ%UNICODE(0x2665)%」
  4689. ELSE
  4690. PRINTFORMW 「オムレツをこんなにうまく焼けるなんてすごーい%UNICODE(0x2665)%」
  4691. PRINTFORMW 「こんなに料理がうまいのなら\@ CFLAG:MASTER:初期位置 < 100 ? 神社の居候やめて # \@料理人になったら？」
  4692. ENDIF
  4693. ENDIF
  4694. ;シチュー
  4695. CASE 21
  4696. ;冬なら
  4697. IF DAY:2 == 4 && RAND:2
  4698. PRINTFORMW 「やっぱりさむーい冬はシチューに限るわね%UNICODE(0x2665)%」
  4699. ;一緒に作ったか否かで分岐
  4700. ELSEIF TCVAR:360 == 1
  4701. PRINTFORMW 「じっくり煮込んだだけあってほんとおいしいわ%UNICODE(0x2665)%」
  4702. ELSE
  4703. PRINTFORMW 「しっかりと煮込んでいるわね%UNICODE(0x2665)% おいしいわよ%UNICODE(0x2665)%」
  4704. ENDIF
  4705. ;ハンバーグ
  4706. CASE 22
  4707. SELECTCASE RAND:2
  4708. CASE 1
  4709. PRINTFORMW 「お肉だけじゃなくてこのソースもおいしいわ%UNICODE(0x2665)%」
  4710. CASEELSE
  4711. PRINTFORMW 「うわー%UNICODE(0x2665)% 肉汁がいっぱーい%UNICODE(0x2665)%」
  4712. ENDSELECT
  4713. ;グラタン
  4714. CASE 23
  4715. ;冬なら
  4716. IF DAY:2 == 4 && RAND:2
  4717. PRINTFORMW 「冬に食べるグラタンはいつもよりおいしく感じるわ%UNICODE(0x2665)%」
  4718. ELSE
  4719. SELECTCASE RAND:3
  4720. CASE 1
  4721. PRINTFORMW 「グラタンといったらやっぱりマカロニグラタンよね%UNICODE(0x2665)%」
  4722. CASE 2
  4723. PRINTFORMW 「じゃがいもがホクホクしてておいしいわ%UNICODE(0x2665)%」
  4724. CASEELSE
  4725. ;川海老のグラタンってどうなんだろう？
  4726. PRINTFORMW 「わーい%UNICODE(0x2665)% エビがいっぱーい%UNICODE(0x2665)%」
  4727. PRINTFORMW 「…しかし、よくこれだけのエビを用意できたわね」
  4728. ENDSELECT
  4729. ENDIF
  4730. ;カレーライス
  4731. CASE 24
  4732. ;一緒に作ったか(ry
  4733. IF TCVAR:360 == 1
  4734. PRINTFORMW 「じっくり煮込んだだけあってほんとおいしいわ%UNICODE(0x2665)%」
  4735. SIF ABL:MASTER:CookingSkill <= 2 || ABL:CookingSkill <= 2
  4736. PRINTFORMW 「…煮込みすぎてちょっとじゃがいもが煮崩れちゃったけどね」
  4737. ELSE
  4738. PRINTFORMW 「しっかりと煮込んでいるわね%UNICODE(0x2665)% おいしいわよ%UNICODE(0x2665)%」
  4739. SIF ABL:MASTER:CookingSkill <= 2
  4740. PRINTFORMW 「…ちょっとじゃがいもが煮崩れてるけどね」
  4741. ENDIF
  4742. ;しゃぶしゃぶ
  4743. CASE 25
  4744. ;春夏なら冷しゃぶ
  4745. IF DAY:2 <= 2
  4746. PRINTFORMW 「さっぱりしてておいしい%UNICODE(0x2665)%」
  4747. ;秋冬なら普通のしゃぶしゃぶ
  4748. ELSE
  4749. PRINTFORMW 「やっぱりさむーい冬はあったかいしゃぶしゃぶね%UNICODE(0x2665)%」
  4750. PRINTFORMW 「…まあ、あまり食べたことないけど」
  4751. ENDIF
  4752. ;ラーメン
  4753. CASE 26
  4754. ;冬なら
  4755. IF DAY:2 == 4 && RAND:2
  4756. PRINTFORMW 「冬に食べるラーメンはいつもよりおいしく感じるわね%UNICODE(0x2665)%」
  4757. ELSE
  4758. PRINTFORMW 「あちち！　少し冷まさないと」
  4759. ENDIF
  4760. ;ステーキ
  4761. CASE 28
  4762. ;朝ステーキはすてーきでやんす
  4763. IF TIME:2 == 1 || TIME:2 == 2
  4764. PRINTFORMW 「朝からステーキはちょっときついわね…、おいしいんだけどさ」
  4765. ELSE
  4766. PRINTFORMW 「うわー%UNICODE(0x2665)% 肉汁がいっぱーい%UNICODE(0x2665)%」
  4767. ENDIF
  4768. ;モッツァレラチーズとトマトのサラダ
  4769. CASE 30
  4770. PRINTFORMW 「いや、たしかにおいしいんだけどさ…　%CALLNAME:MASTER%ちょっとおかしいわよ」
  4771. ;ドーピングコンソメスープ
  4772. CASE 31
  4773. ;SELECTCASE RAND:2
  4774. ;CASE 1
  4775. PRINTFORMW 「意外とおいしいけど…なんかこわいわね」
  4776. ;CASEELSE
  4777. ; PRINTFORMW 「ていうかさ、これって怪しい薬入りじゃ…」
  4778. ; PRINTFORMW 「まあ、そこまで忠実に作ってないよね……」
  4779. ;ENDSELECT
  4780. ;ケーキ
  4781. CASE 51
  4782. PRINTFORMW 「わーい%UNICODE(0x2665)% ふわふわー%UNICODE(0x2665)%」
  4783. ;パイ
  4784. CASE 55
  4785. ;3時台なら
  4786. SELECTCASE TIME
  4787. CASE 900 TO 959
  4788. ;訳　３時のおやつはアップルパイでおいしー%UNICODE(0x2665)%
  4789. PRINTFORMW 「さんおやぷるぱいおいー%UNICODE(0x2665)%」
  4790. CASEELSE
  4791. PRINTFORMW 「さくさくしてておいしー%UNICODE(0x2665)% それにフルーツもいっぱい%UNICODE(0x2665)%」
  4792. ENDSELECT
  4793. ;なければ汎用文
  4794. CASEELSE
  4795. ;一緒に作ったのなら
  4796. IF TCVAR:360 == 1
  4797. ;成功か特になしかで分岐
  4798. IF TFLAG:193 == 1
  4799. ;エレンとの仲でも分岐
  4800. IF TALENT:Lover
  4801. PRINTFORMW 「二人で一緒に作ったからとってもおいしいわ%UNICODE(0x2665)%」
  4802. ELSEIF CFLAG:1014 == 1 || TALENT:Love
  4803. PRINTFORMW 「%CALLNAME:MASTER%と作る料理はとてもおいしいわね%UNICODE(0x2665)%//」
  4804. ELSE
  4805. PRINTFORMW 「今回はとってもおいしくできたわ%UNICODE(0x2665)%」
  4806. ENDIF
  4807. ELSE
  4808. IF TALENT:Lover
  4809. PRINTFORM 「とってもおいしいわ%UNICODE(0x2665)%　
  4810. IF SELECTCOM == 414
  4811. PRINTFORMW ささ、%CALLNAME:MASTER%も食べて%UNICODE(0x2665)%」
  4812. ELSE
  4813. PRINTFORMW ありがとう%CALLNAME:MASTER%%UNICODE(0x2665)%」
  4814. ENDIF
  4815. ELSEIF CFLAG:1014 == 1 || TALENT:Love
  4816. PRINTFORMW 「うん、おいしいわ%UNICODE(0x2665)%」
  4817. ELSE
  4818. PRINTFORMW 「うん、おいしくできたわね%UNICODE(0x2665)%」
  4819. ENDIF
  4820. ENDIF
  4821. ELSE
  4822. IF TFLAG:193 == 1
  4823. IF TALENT:Lover
  4824. PRINTFORMW 「こんなにおいしい料理を作れるなんて%CALLNAME:MASTER%すごーい%UNICODE(0x2665)%」
  4825. ELSEIF CFLAG:1014 == 1 || TALENT:Love
  4826. PRINTFORMW 「うん、おいしいわよ%UNICODE(0x2665)%」
  4827. ELSE
  4828. PRINTFORMW 「%CALLNAME:MASTER%の作る料理はほんとおいしいわね%UNICODE(0x2665)%」
  4829. ENDIF
  4830. ELSE
  4831. IF TALENT:Lover
  4832. PRINTFORMW 「うん%UNICODE(0x2665)% とってもおいしいわ%UNICODE(0x2665)%」
  4833. ELSEIF CFLAG:1014 == 1 || TALENT:Love
  4834. PRINTFORMW 「うん、おいしいわよ%UNICODE(0x2665)%」
  4835. ELSE
  4836. PRINTFORMW 「なかなかおいしいわ%UNICODE(0x2665)%」
  4837. ENDIF
  4838. ENDIF
  4839. ENDIF
  4840. ENDSELECT
  4841. ENDIF
  4842. ;食後
  4843. PRINTFORMDW …
  4844. ;成功か失敗か特になしかで分岐
  4845. IF TFLAG:193 == 1
  4846. ;一緒に作ったかどうかで分岐
  4847. IF TCVAR:360 == 1
  4848. ;エレンとの仲でも分岐
  4849. IF TALENT:Lover
  4850. PRINTFORMW 「ごちそうさま%UNICODE(0x2665)% 本当においしかったわ%UNICODE(0x2665)%」
  4851. PRINTFORMW 「次も一緒にお料理しましょう%UNICODE(0x2665)%」
  4852. ELSEIF CFLAG:1014 == 1 || TALENT:Love
  4853. PRINTFORMW 「とってもおいしかったわ%UNICODE(0x2665)% また一緒に作りましょう%UNICODE(0x2665)%」
  4854. ELSE
  4855. PRINTFORMW 「ごちそうさまでした%UNICODE(0x2665)%」
  4856. ENDIF
  4857. ELSE
  4858. ;エレンとの仲でも分岐
  4859. IF TALENT:Lover
  4860. SELECTCASE RAND:2
  4861. CASE 1
  4862. PRINTFORMW 「%CALLNAME:MASTER%の手料理は本当にすばらしいわ%UNICODE(0x2665)%%UNICODE(0x2665)% また食べさせてね%UNICODE(0x2665)%」
  4863. CASEELSE
  4864. PRINTFORMW 「こんなにおいしい料理を作れるなんて%CALLNAME:MASTER%すごーい%UNICODE(0x2665)%」
  4865. ENDSELECT
  4866. ELSEIF CFLAG:1014 == 1 || TALENT:Love
  4867. PRINTFORMW 「%CALLNAME:MASTER%の料理、すごくおいしかったわ%UNICODE(0x2665)% また作って欲しいかな//」
  4868. ELSE
  4869. PRINTFORMW 「ごちそうさまでした%UNICODE(0x2665)% とってもおいしかったわ%UNICODE(0x2665)%」
  4870. ENDIF
  4871. ENDIF
  4872. ELSEIF TFLAG:193 == -1
  4873. IF TCVAR:360 == 1
  4874. IF TALENT:Lover
  4875. PRINTFORMW 「今回は失敗したけど……、次はおいしく作ってみせるから！」
  4876. ELSEIF CFLAG:1014 == 1 || TALENT:Love
  4877. PRINTFORMW 「ごちそうさまでした%UNICODE(0x2665)% 次はおいしくできるようがんばるわ！」
  4878. ELSE
  4879. PRINTFORMW 「ごちそうさまでした%UNICODE(0x2665)% 次はおいしく仕上げるわよー！」
  4880. ENDIF
  4881. ELSE
  4882. IF TALENT:Lover
  4883. PRINTFORMW 「次はわたしも一緒に料理するわよ！　そうすれば絶対おいしくなるわ！」
  4884. ELSEIF CFLAG:1014 == 1 || TALENT:Love
  4885. PRINTFORMW 「ごちそうさまでした%UNICODE(0x2665)%」
  4886. ELSE
  4887. PRINTFORMW 「ごちそうさまでした%UNICODE(0x2665)%」
  4888. ENDIF
  4889. ENDIF
  4890. ELSE
  4891. IF TCVAR:360 == 1
  4892. IF TALENT:Lover
  4893. PRINTFORMW 「ごちそうさま%UNICODE(0x2665)% 次も一緒に作りましょう%UNICODE(0x2665)%」
  4894. ELSEIF CFLAG:1014 == 1 || TALENT:Love
  4895. PRINTFORMW 「ごちそうさま%UNICODE(0x2665)% 今度も二人でお料理しましょう%UNICODE(0x2665)%」
  4896. ELSE
  4897. PRINTFORMW 「ごちそうさまでした%UNICODE(0x2665)%」
  4898. ENDIF
  4899. ELSE
  4900. IF TALENT:Lover
  4901. PRINTFORMW 「ごちそうさま%UNICODE(0x2665)% %CALLNAME:MASTER%の料理おいしかったわ%UNICODE(0x2665)%」
  4902. ELSEIF CFLAG:1014 == 1 || TALENT:Love
  4903. PRINTFORMW 「ごちそうさま%UNICODE(0x2665)% また今度作ってね%UNICODE(0x2665)%」
  4904. ELSE
  4905. PRINTFORMW 「ごちそうさまでした%UNICODE(0x2665)%」
  4906. ENDIF
  4907. ENDIF
  4908. ENDIF
  4909. ;TCVARを消しておく
  4910. TCVAR:360 = 0
  4911. TCVAR:361 = 0
  4912. RETURN 1
  4913.  
  4914.  
  4915. ;==================================================
  4916. ;416,演奏する
  4917. ;==================================================
  4918. @M_KOJO_MESSAGE_COM_K44_416
  4919. CALL TRAIN_MESSAGE
  4920. CALL M_KOJO_MESSAGE_COM_K44_416_1
  4921. RETURN RESULT
  4922.  
  4923. @M_KOJO_MESSAGE_COM_K44_416_1
  4924. ;-------------------------------------------------
  4925. ;記入チェック（=0, 非表示、1, 表示）
  4926. LOCAL = 0
  4927. ;-------------------------------------------------
  4928. IF LOCAL && !FLAG:70
  4929. SELECTCASE RAND:3
  4930. CASE 1
  4931. PRINTFORMW 「どこまでも続く～この道を♪　わたしは、歩いてきたの♪」
  4932. PRINTFORMW 「どこまでも続く～この道を♪　わたしは、歩いてゆくわ♪」
  4933. CASE 2
  4934. PRINTFORMW 「だいなでだ～いなあ～いらん♪」
  4935. CASEELSE
  4936. PRINTFORMW 「やっまっあっるき～♪　やっまっあっるき～♪」
  4937. ENDSELECT
  4938. ENDIF
  4939. RETURN 1
  4940. ;==================================================
  4941. ;417,昼寝をする
  4942. ;==================================================
  4943. @M_KOJO_MESSAGE_COM_K44_417
  4944. CALL TRAIN_MESSAGE
  4945. CALL M_KOJO_MESSAGE_COM_K44_417_1
  4946. RETURN RESULT
  4947.  
  4948. @M_KOJO_MESSAGE_COM_K44_417_1
  4949. ;-------------------------------------------------
  4950. ;記入チェック（=0, 非表示、1, 表示）
  4951. LOCAL = 1
  4952. ;-------------------------------------------------
  4953. IF LOCAL && !FLAG:70 && TFLAG:194 == 1 && !CFLAG:Anger
  4954. ;恋人時専用
  4955. IF TALENT:Lover
  4956. PRINTFORMW 「おはよう%CALLNAME:MASTER%%UNICODE(0x2665)%　なにかしない？」
  4957. ;恋慕時専用
  4958. ELSEIF TALENT:Love
  4959. PRINTFORMW 「お、おはよう//」
  4960. ;その他
  4961. ELSE
  4962. PRINTFORMW 「おはよう%UNICODE(0x2665)%　よく眠れたかしら？」
  4963. ENDIF
  4964. ENDIF
  4965. RETURN 1
  4966. ;==================================================
  4967. ;421,願掛けする
  4968. ;==================================================
  4969. @M_KOJO_MESSAGE_COM_K44_421
  4970. CALL TRAIN_MESSAGE
  4971. CALL M_KOJO_MESSAGE_COM_K44_421_1
  4972. RETURN RESULT
  4973.  
  4974. @M_KOJO_MESSAGE_COM_K44_421_1
  4975. ;-------------------------------------------------
  4976. ;記入チェック（=0, 非表示、1, 表示）
  4977. LOCAL = 1
  4978. ;-------------------------------------------------
  4979. IF LOCAL && !FLAG:70 && FLAG:560 != 100 && !CFLAG:Anger
  4980. ;恋人時専用
  4981. IF TALENT:Lover
  4982. PRINTFORMW 「願い事は終わった？　なら次いきましょ%UNICODE(0x2665)%」
  4983. ;恋慕時専用
  4984. ELSEIF TALENT:Love && !TALENT:MASTER:Lover && RAND:2 == 1 && CFLAG:同行 > 0
  4985. PRINTFORMW 「わたしも願い事したいからちょっと待ってて」
  4986. PRINTFORMDW …
  4987. PRINTFORMW 「おまたせ%UNICODE(0x2665)%　それじゃあ、行きましょう%UNICODE(0x2665)%//」
  4988. ;その他
  4989. ELSE
  4990. PRINTFORMW 「願い事が叶うといいわね%UNICODE(0x2665)%」
  4991. ENDIF
  4992. ENDIF
  4993. RETURN 1
  4994.  
  4995. ;==================================================
  4996. ;429,着せ替え
  4997. ;==================================================
  4998. @M_KOJO_MESSAGE_COM_K44_429
  4999. CALL TRAIN_MESSAGE
  5000. CALL M_KOJO_MESSAGE_COM_K44_429_1
  5001. RETURN RESULT
  5002.  
  5003. @M_KOJO_MESSAGE_COM_K44_429_1
  5004. ;-------------------------------------------------
  5005. ;記入チェック（=0, 非表示、1, 表示）
  5006. LOCAL = 1
  5007. ;-------------------------------------------------
  5008. IF LOCAL && !FLAG:70
  5009. IF ((EQUIP:下半身下着２ == 21 && EQUIP:上半身下着２ == 2) || EQUIP:レオタード == 9) && EQUIP:ボディースーツ == 0 && EQUIP:ズボン == 0 && EQUIP:下半身上着 == 0 && EQUIP:スカート == 0 && EQUIP:上半身上着１ == 0 && EQUIP:上半身上着２ == 0 && EQUIP:ワンピース == 0 && EQUIP:着物 == 0 && EQUIP:外衣 == 0
  5010. IF ABL:Exposure >= 3
  5011. PRINTFORMW 「似合うかしら%UNICODE(0x2665)%」
  5012. ELSE
  5013. PRINTFORMW 「さすがにこれは恥ずかしいわね//」
  5014. ENDIF
  5015. ELSEIF EQUIP:下半身下着２ == 0 && EQUIP:上半身下着２ == 0 && EQUIP:レオタード == 0 && EQUIP:ボディースーツ == 0 && EQUIP:ズボン == 0 && EQUIP:下半身上着 == 0 && EQUIP:スカート == 0 && EQUIP:上半身上着１ == 0 && EQUIP:上半身上着２ == 0 && EQUIP:ワンピース == 0 && EQUIP:着物 == 0 && EQUIP:外衣 == 0
  5016. PRINTFORMW 「裸になれって…//　%CALLNAME:MASTER%ったら//」
  5017. ELSEIF EQUIP:上半身下着１ == 2 && EQUIP:下半身下着１ == 1
  5018. PRINTFORMW 「こんな格好させるなんてあなた正気？」
  5019. ELSE
  5020. PRINTFORMW 「似合うかしら%UNICODE(0x2665)%」
  5021. ENDIF
  5022. ENDIF
  5023. RETURN 1
  5024.  
  5025. ;==================================================
  5026. ;431,お風呂でくつろぐ
  5027. ;==================================================
  5028. @M_KOJO_MESSAGE_COM_K44_431
  5029. CALL TRAIN_MESSAGE
  5030. CALL M_KOJO_MESSAGE_COM_K44_431_1
  5031. RETURN RESULT
  5032.  
  5033. @M_KOJO_MESSAGE_COM_K44_431_1
  5034. ;-------------------------------------------------
  5035. ;記入チェック（=0, 非表示、1, 表示）
  5036. LOCAL = 1
  5037. ;-------------------------------------------------
  5038. IF LOCAL && TFLAG:194 == 0
  5039. ;一緒か別々か温泉かお風呂かプールか(プールのみ今のところなし)
  5040. IF CFLAG:6 > 0 && CFLAG:MASTER:現在位置 == 940
  5041. ;25%で視線に気づく
  5042. IF RAND:4 == 1
  5043. PRINTFORMW 「お湯は気持ちよかったけど、なんかみょーな視線がしたような…」
  5044. PRINTFORMW 「……気のせい…よね？」
  5045. ;恋人時専用
  5046. ELSEIF TALENT:Lover
  5047. PRINTFORMW 「ふー%UNICODE(0x2665)% 気持ちよかった%UNICODE(0x2665)%　また一緒に入りましょうね%UNICODE(0x2665)%」
  5048. ;恋慕or準恋慕時専用
  5049. ELSEIF TALENT:Love || CFLAG:1014 == 1
  5050. PRINTFORMW 「いい湯だったわ%UNICODE(0x2665)% 次も一緒に入りましょう//」
  5051. ;その他
  5052. ELSE
  5053. PRINTFORMW 「地底温泉もいいものね%UNICODE(0x2665)% また今度来ましょう%UNICODE(0x2665)%」
  5054. ENDIF
  5055. ELSEIF CFLAG:MASTER:現在位置 == 250 || CFLAG:MASTER:現在位置 == 940
  5056. ;恋人時専用
  5057. IF TALENT:Lover
  5058. PRINTFORMW 「ふー%UNICODE(0x2665)% 気持ちよかった%UNICODE(0x2665)%　また来ましょう%UNICODE(0x2665)%」
  5059. ;恋慕or準恋慕時専用
  5060. ELSEIF TALENT:Love || CFLAG:1014 == 1
  5061. PRINTFORMW 「いい湯だったわ%UNICODE(0x2665)% 誘ってくれてありがとう%UNICODE(0x2665)%」
  5062. ;その他
  5063. ELSE
  5064. PRINTFORMW 「あー気持ちよかった%UNICODE(0x2665)% やっぱりお風呂はすばらしいわ%UNICODE(0x2665)%」
  5065. ENDIF
  5066. ELSEIF (CFLAG:MASTER:現在位置 == 13 && FLAG:15 == 44) || CFLAG:MASTER:現在位置 == 24
  5067. ;恋人時専用
  5068. IF TALENT:Lover
  5069. SELECTCASE RAND:2
  5070. CASE 1
  5071. PRINTFORMW 「後で背中の流しあいっこでもしましょ%UNICODE(0x2665)%」
  5072. CASEELSE
  5073. PRINTFORMW 「はー、気持ちいいー%UNICODE(0x2665)%」
  5074. PRINTFORMDW エレンは蕩けた表情を浮かべながら%CALLNAME:MASTER%に寄りかかっている
  5075. ENDSELECT
  5076. ;恋慕or準恋慕時専用
  5077. ELSEIF TALENT:Love || CFLAG:1014 == 1
  5078. PRINTFORMW （わー//きゃー//　%CALLNAME:MASTER%と一緒にお風呂に入ってるー//）
  5079. ;その他
  5080. ELSE
  5081. PRINTFORMW 「はーお風呂お風呂%UNICODE(0x2665)% あったかくて気持ちいいー%UNICODE(0x2665)%」
  5082. ENDIF
  5083. ELSEIF (CFLAG:MASTER:現在位置 == 13 && FLAG:15 != 44) || CFLAG:MASTER:現在位置 == 30 || CFLAG:MASTER:現在位置 == 39
  5084. IF CFLAG:MASTER:現在位置 == 13
  5085. PRINTFORMW 「わたしが入って大丈夫かしら…」
  5086. ELSE
  5087. PRINTFORMW 「勝手に人の家のお風呂に入って大丈夫なの？」
  5088. ENDIF
  5089. ; ELSE
  5090. ; ;恋人時専用
  5091. ; IF TALENT:Lover
  5092. ; PRINTFORMW 「はーお風呂お風呂%UNICODE(0x2665)%　ねえ%CALLNAME:MASTER%、後で背中の流しあいっこでもしましょ%UNICODE(0x2665)%%UNICODE(0x2665)%」
  5093. ; ;恋慕or準恋慕時専用
  5094. ; ELSEIF TALENT:Love || CFLAG:1014 == 1
  5095. ; PRINTFORMW （わー//きゃー//　%CALLNAME:MASTER%と一緒にお風呂に入ってるわー//）
  5096. ; ;その他
  5097. ; ELSE
  5098. ; PRINTFORMW 「はーお風呂お風呂%UNICODE(0x2665)%　あったかくて気持ちいいー%UNICODE(0x2665)%」
  5099. ; ENDIF
  5100. ENDIF
  5101. ENDIF
  5102. RETURN 1
  5103.  
  5104. ;※※※※※※※※※※※※※※※※※※※※※※※※※
  5105. ;デート系コマンド
  5106. ;※※※※※※※※※※※※※※※※※※※※※※※※※
  5107. [SKIPSTART]
  5108. ;現状未実装
  5109. ;==================================================
  5110. ;600,デート会話
  5111. ;==================================================
  5112. @M_KOJO_MESSAGE_COM_K44_600
  5113. CALL TRAIN_MESSAGE
  5114. CALL M_KOJO_MESSAGE_COM_K44_600_1
  5115. RETURN RESULT
  5116.  
  5117. @M_KOJO_MESSAGE_COM_K44_600_1
  5118. ;-------------------------------------------------
  5119. ;記入チェック（=0, 非表示、1, 表示）
  5120. LOCAL = 0
  5121. ;-------------------------------------------------
  5122. IF LOCAL
  5123.  
  5124. ENDIF
  5125. RETURN 1
  5126.  
  5127. ;==================================================
  5128. ;601,デートスキンシップ
  5129. ;==================================================
  5130. @M_KOJO_MESSAGE_COM_K44_601
  5131. CALL TRAIN_MESSAGE
  5132. CALL M_KOJO_MESSAGE_COM_K44_601_1
  5133. RETURN RESULT
  5134.  
  5135. @M_KOJO_MESSAGE_COM_K44_601_1
  5136. ;-------------------------------------------------
  5137. ;記入チェック（=0, 非表示、1, 表示）
  5138. LOCAL = 0
  5139. ;-------------------------------------------------
  5140. IF LOCAL
  5141.  
  5142. ENDIF
  5143. RETURN 1
  5144.  
  5145. ;==================================================
  5146. ;602,デートキス
  5147. ;==================================================
  5148. @M_KOJO_MESSAGE_COM_K44_602
  5149. CALL TRAIN_MESSAGE
  5150. CALL M_KOJO_MESSAGE_COM_K44_602_1
  5151. RETURN RESULT
  5152.  
  5153. @M_KOJO_MESSAGE_COM_K44_602_1
  5154. ;-------------------------------------------------
  5155. ;記入チェック（=0, 非表示、1, 表示）
  5156. LOCAL = 0
  5157. ;-------------------------------------------------
  5158. IF LOCAL
  5159.  
  5160. ENDIF
  5161. RETURN 1
  5162. [SKIPEND]
  5163. ;==================================================
  5164. ;603,手を繋ぐ
  5165. ;==================================================
  5166. @M_KOJO_MESSAGE_COM_K44_603
  5167. CALL TRAIN_MESSAGE
  5168. CALL M_KOJO_MESSAGE_COM_K44_603_1
  5169. RETURN RESULT
  5170.  
  5171. @M_KOJO_MESSAGE_COM_K44_603_1
  5172. ;-------------------------------------------------
  5173. ;記入チェック（=0, 非表示、1, 表示）
  5174. LOCAL = 1
  5175. ;-------------------------------------------------
  5176. IF LOCAL && !CFLAG:Anger
  5177. ;失敗時は無し
  5178. SIF TFLAG:193 == -1
  5179. RETURN 1
  5180. ;恋人時専用
  5181. IF TALENT:Lover
  5182. PRINTFORMW 「えへへー%UNICODE(0x2665)%　離さないわよ%UNICODE(0x2665)%%UNICODE(0x2665)%」
  5183. ;恋慕時専用
  5184. ELSEIF TALENT:Love || CFLAG:1014 == 1
  5185. PRINTFORMW （わー%UNICODE(0x2665)%//きゃー%UNICODE(0x2665)%//　%CALLNAME:MASTER%から手を繋がれちゃったー%UNICODE(0x2665)%//）
  5186. ;親密５以上時専用
  5187. ELSEIF TALENT:思慕
  5188. IF TALENT:MASTER:Figure >= 0 && GETBIT(TALENT:MASTER:2,1)
  5189. PRINTFORMW 「%CALLNAME:MASTER%の手は大きいわねー」
  5190. ELSE
  5191. PRINTFORMW 「%CALLNAME:MASTER%がつなぎたいんならまあ、いいけど」
  5192. ENDIF
  5193. ;親密４以下時専用
  5194. ELSE
  5195. PRINTFORMW 「べつに手をつなぐ必要もないと思うけど…」
  5196. ENDIF
  5197. ENDIF
  5198. RETURN 1
  5199.  
  5200. ;==================================================
  5201. ;604,散策する
  5202. ;==================================================
  5203. @M_KOJO_MESSAGE_COM_K44_604
  5204. ;散策するにはTRAIN_MESSAGEが無い
  5205. CALL M_KOJO_MESSAGE_COM_K44_604_1
  5206. RETURN RESULT
  5207.  
  5208. @M_KOJO_MESSAGE_COM_K44_604_1
  5209. ;-------------------------------------------------
  5210. ;記入チェック（=0, 非表示、1, 表示）
  5211. LOCAL = 0
  5212. ;-------------------------------------------------
  5213. IF LOCAL
  5214.  
  5215. ENDIF
  5216. RETURN 1
  5217. ;==================================================
  5218. ;605,寄り道する
  5219. ;==================================================
  5220. @M_KOJO_MESSAGE_COM_K44_605
  5221. ;寄り道するにはTRAIN_MESSAGEが無い
  5222. TRYCALLFORM M_KOJO_COLOR_K44
  5223. CALL M_KOJO_MESSAGE_COM_K44_605_1
  5224. RETURN RESULT
  5225.  
  5226. @M_KOJO_MESSAGE_COM_K44_605_1
  5227. ;-------------------------------------------------
  5228. ;記入チェック（=0, 非表示、1, 表示）
  5229. LOCAL = 1
  5230. ;-------------------------------------------------
  5231. IF LOCAL
  5232. IF TALENT:Love || CFLAG:1014 == 1
  5233. PRINTFORMW 「？　どこ行くの？」
  5234. ;その他
  5235. ELSE
  5236. PRINTFORM 「どこ行くの、そっちは
  5237. SELECTCASE CFLAG:44:現在位置
  5238. CASE 100 TO 109
  5239. PRINTFORM 命蓮寺
  5240. CASE 200 TO 209
  5241. PRINTFORM 人里
  5242. CASE 300 TO 309
  5243. PRINTFORM 霧の湖
  5244. CASE 400 TO 409
  5245. PRINTFORM 竹林
  5246. CASE 500 TO 509
  5247. PRINTFORM 魔法の森
  5248. CASE 600 TO 609
  5249. PRINTFORM 三途の川
  5250. CASE 700 TO 709, 800 TO 809
  5251. PRINTFORM 妖怪の山
  5252. CASE 900 TO 909
  5253. PRINTFORM 地底
  5254. ENDSELECT
  5255. PRINTFORMW じゃないわよー！」
  5256. ENDIF
  5257. ENDIF
  5258. RETURN 1
  5259. ;==================================================
  5260. ;610,食事に誘う
  5261. ;==================================================
  5262. @M_KOJO_MESSAGE_COM_K44_610
  5263. CALL TRAIN_MESSAGE
  5264. CALL M_KOJO_MESSAGE_COM_K44_610_1
  5265. RETURN RESULT
  5266.  
  5267. @M_KOJO_MESSAGE_COM_K44_610_1
  5268. ;-------------------------------------------------
  5269. ;記入チェック（=0, 非表示、1, 表示）
  5270. LOCAL = 1
  5271. ;-------------------------------------------------
  5272. IF LOCAL && !CFLAG:Anger
  5273. ;失敗時は無し
  5274. SIF TFLAG:193 == -1
  5275. RETURN 1
  5276. IF TFLAG:193 == 1
  5277. ;恋人時専用
  5278. IF TALENT:Lover
  5279. SELECTCASE RAND:2
  5280. CASE 1
  5281. PRINTFORMW 「ごちそうさま%UNICODE(0x2665)% とってもおいしかったわ%UNICODE(0x2665)%　また来ましょ%UNICODE(0x2665)%%UNICODE(0x2665)%」
  5282. CASEELSE
  5283. PRINTFORMW 「ごちそうさま%UNICODE(0x2665)% ってちょっと、口の端が汚れてるわよ」
  5284. PRINTFORMW 「まったく、わたしが拭いてあげるからじっとしてて%UNICODE(0x2665)%」
  5285. ENDSELECT
  5286. ;恋慕時専用
  5287. ELSEIF TALENT:Love || CFLAG:1014 == 1
  5288. PRINTFORMW 「とってもおいしかったわ%UNICODE(0x2665)% また誘ってね%UNICODE(0x2665)%」
  5289. ;親密時専用
  5290. ELSE
  5291. PRINTFORMW 「おごってくれてありがとう%UNICODE(0x2665)% おいしかったわ%UNICODE(0x2665)%」
  5292. ENDIF
  5293. ELSE
  5294. ;仕事終了からのデートの場合エレンがおごってくれるよ！
  5295. IF TCVAR:356 == 1
  5296. PRINTFORMW 「わたしから誘っておいておごらせるのもなんだからここはわたしが払うわね」
  5297. ;恋人時専用
  5298. ELSEIF TALENT:Lover
  5299. PRINTFORMW 「わーい%UNICODE(0x2665)%　ねえねえ、わたし別の選ぶからさ、分け合いっこしない？　そうすれば２倍幸せよ%UNICODE(0x2665)%」
  5300. ;恋慕時専用
  5301. ELSEIF TALENT:Love || CFLAG:1014 == 1
  5302. PRINTFORMW 「ねえ、わたし別の選ぶからさ、分け合いっこしない？//」
  5303. ;親密５以上時専用
  5304. ELSEIF TALENT:思慕
  5305. PRINTFORMW 「%CALLNAME:MASTER%は何にするの？」
  5306. PRINTFORMW 「わたしは別の選ぶから後で分けましょ%UNICODE(0x2665)%」
  5307. ;親密４以下時専用
  5308. ELSE
  5309. PRINTFORMW 「どれにしようか悩むわね…」
  5310. ENDIF
  5311. ENDIF
  5312. ENDIF
  5313. SIF TCVAR:356 == 1
  5314. MONEY += 2000
  5315. RETURN 1
  5316.  
  5317. ;==================================================
  5318. ;613,お金稼ぎする
  5319. ;==================================================
  5320. @M_KOJO_MESSAGE_COM_K44_613
  5321. CALL TRAIN_MESSAGE
  5322. CALL M_KOJO_MESSAGE_COM_K44_613_1
  5323. RETURN RESULT
  5324.  
  5325. @M_KOJO_MESSAGE_COM_K44_613_1
  5326. ;-------------------------------------------------
  5327. ;記入チェック（=0, 非表示、1, 表示）
  5328. LOCAL = 0
  5329. ;-------------------------------------------------
  5330. IF LOCAL
  5331.  
  5332. ENDIF
  5333. RETURN 1
  5334. ;==================================================
  5335. ;614,食材の買い出し
  5336. ;==================================================
  5337. @M_KOJO_MESSAGE_COM_K44_614
  5338. CALL TRAIN_MESSAGE
  5339. CALL M_KOJO_MESSAGE_COM_K44_614_1
  5340. RETURN RESULT
  5341.  
  5342. @M_KOJO_MESSAGE_COM_K44_614_1
  5343. ;-------------------------------------------------
  5344. ;記入チェック（=0, 非表示、1, 表示）
  5345. LOCAL = 0
  5346. ;-------------------------------------------------
  5347. IF LOCAL
  5348.  
  5349. ENDIF
  5350. RETURN 1
  5351. ;==================================================
  5352. ;615,お弁当を食べる
  5353. ;==================================================
  5354. @M_KOJO_MESSAGE_COM_K44_615
  5355. CALL TRAIN_MESSAGE
  5356. CALL M_KOJO_MESSAGE_COM_K44_615_1
  5357. RETURN RESULT
  5358.  
  5359. @M_KOJO_MESSAGE_COM_K44_615_1
  5360. ;-------------------------------------------------
  5361. ;記入チェック（=0, 非表示、1, 表示）
  5362. LOCAL = 1
  5363. ;-------------------------------------------------
  5364. IF LOCAL && !CFLAG:Anger
  5365. IF TFLAG:193 == -1
  5366. PRINTFORMW 「あやや、味付けを失敗したわ」
  5367. ;恋人時かつ二人きりなら2分の1の確率で分岐
  5368. ELSEIF TALENT:Lover && GET_TARGETNUM() == 1 && RAND:2 == 1
  5369. PRINTFORMW 「はいっ%UNICODE(0x2665)% あーんして%UNICODE(0x2665)%」
  5370. PRINTFORMW 「…えへへ%UNICODE(0x2665)% 次はわたしの番よ%UNICODE(0x2665)% あーん%UNICODE(0x2665)%」
  5371. EXP:愛情経験 += 2
  5372. ELSEIF ABL:CookingSkill >= 4 && TALENT:Love && RAND:2 == 1
  5373. PRINTFORMW 「えへへへ%UNICODE(0x2665)%　%CALLNAME:MASTER%が幸せだとこっちまで幸せになるわ%UNICODE(0x2665)%」
  5374. ELSEIF TALENT:Love || CFLAG:1014 == 1
  5375. SELECTCASE RAND:4
  5376. CASE 1
  5377. PRINTFORMW 「わたしの手作り卵サンドはどうかしら%UNICODE(0x2665)%」
  5378. CASE 2
  5379. ;エレンは動物の言葉が分かる
  5380. PRINTFORMW 「ソクラテス！　あんたのご飯はこっちじゃなくてそっち！」
  5381. PRINTFORMW 「あー？　『そっちよりこっちの方が食べたい』だって？」
  5382. PRINTFORMW 「……しょうがないわね、一口だけよ」
  5383. CASE 3
  5384. ;季節で分岐
  5385. IF DAY:2 == 1
  5386. IF TIME:5 <= 1
  5387. PRINTFORMW 「春の日差しの中で食べるお弁当はいつもよりおいしく感じるわ%UNICODE(0x2665)% %CALLNAME:MASTER%もそう思わない？」
  5388. ELSE
  5389. PRINTFORMW 「ごちそうさま%UNICODE(0x2665)%」
  5390. ENDIF
  5391. ;なつなつなつなつドーナツ！　あいあいあいあいアイスクリーム！
  5392. ELSEIF DAY:2 == 2
  5393. PRINTFORMW 「甘さひかえめドーナツの味はどう？　おいしい？」
  5394. ELSEIF DAY:2 == 3
  5395. PRINTFORMW 「秋はのんびりとしててすてきよねー%UNICODE(0x2665)%」
  5396. ELSE
  5397. PRINTFORMW 「ささ、あったかいスープを召し上がれ%UNICODE(0x2665)%」
  5398. ENDIF
  5399. CASEELSE
  5400. PRINTFORMW 「ごちそうさま%UNICODE(0x2665)%」
  5401. ENDSELECT
  5402. ELSE
  5403. PRINTFORMW 「ごちそうさま%UNICODE(0x2665)%」
  5404. ENDIF
  5405. ENDIF
  5406. RETURN 1
  5407. ;==================================================
  5408. ;617,甘味処に誘う
  5409. ;==================================================
  5410. @M_KOJO_MESSAGE_COM_K44_617
  5411. CALL TRAIN_MESSAGE
  5412. CALL M_KOJO_MESSAGE_COM_K44_617_1
  5413. RETURN RESULT
  5414.  
  5415. @M_KOJO_MESSAGE_COM_K44_617_1
  5416. ;-------------------------------------------------
  5417. ;記入チェック（=0, 非表示、1, 表示）
  5418. LOCAL = 1
  5419. ;-------------------------------------------------
  5420. IF LOCAL && !CFLAG:Anger
  5421. IF TFLAG:193 == 1
  5422. ;恋人時専用
  5423. IF TALENT:Lover
  5424. SELECTCASE RAND:2
  5425. CASE 1
  5426. PRINTFORMW 「ごちそうさま%UNICODE(0x2665)% とってもおいしかったわ%UNICODE(0x2665)%　また来ましょ%UNICODE(0x2665)%%UNICODE(0x2665)%」
  5427. CASEELSE
  5428. PRINTFORMW 「ごちそうさま%UNICODE(0x2665)% ってちょっと、口の端が汚れてるわよ」
  5429. PRINTFORMW 「まったく、わたしが拭いてあげるからじっとしてて%UNICODE(0x2665)%」
  5430. ENDSELECT
  5431. ;仕事終了からのデートの場合エレンがおごってくれるよ！
  5432. ELSEIF TCVAR:356 == 1
  5433. PRINTFORMW 「あーおいしかった%UNICODE(0x2665)% また来ましょ%UNICODE(0x2665)%」
  5434. ;恋慕時専用
  5435. ELSEIF TALENT:Love || CFLAG:1014 == 1
  5436. PRINTFORMW 「とってもおいしかったわ%UNICODE(0x2665)% また誘ってね%UNICODE(0x2665)%」
  5437. ;親密時専用
  5438. ELSE
  5439. PRINTFORMW 「おごってくれてありがとう%UNICODE(0x2665)% おいしかったわ%UNICODE(0x2665)%」
  5440. ENDIF
  5441. ELSE
  5442. ;仕事終了からのデートの場合エレンがおごってくれるよ！
  5443. IF TCVAR:356 == 1
  5444. PRINTFORMW 「わたしから誘っておいておごらせるのもなんだからここはわたしが払うわね」
  5445. ;恋人時専用
  5446. ELSEIF TALENT:Lover
  5447. PRINTFORMW 「わーい%UNICODE(0x2665)% ねえねえ、わたし別の選ぶからさ、分け合いっこしない？　そうすれば２倍幸せよ%UNICODE(0x2665)%」
  5448. ;恋慕時専用
  5449. ELSEIF TALENT:Love || CFLAG:1014 == 1
  5450. PRINTFORMW 「ねえ、わたし別の選ぶからさ、分け合いっこしない？//」
  5451. ;親密５以上時専用
  5452. ELSEIF TALENT:思慕
  5453. PRINTFORMW 「%CALLNAME:MASTER%は何にするの？」
  5454. PRINTFORMW 「わたしは別の選ぶから後で分けましょ%UNICODE(0x2665)%」
  5455. ;親密４以下時専用
  5456. ELSE
  5457. PRINTFORMW 「どれにしようか悩むわね…」
  5458. ENDIF
  5459. ;隠しメニュー用
  5460. LOCAL:1 = RAND:10
  5461. ;どれを選んでも結果は変わらないよ！
  5462. $LOOP
  5463. PRINTFORMDL どれを注文しますか？
  5464. PRINTDL [0] 銅鑼焼き
  5465. PRINTDL [1] 蜜豆
  5466. PRINTDL [2] 季節のメニュー
  5467. SIF LOCAL:1 == 8
  5468. PRINTDL [8] マミドバーガー
  5469. SIF LOCAL:1 == 9
  5470. PRINTDL [9] 小倉丼
  5471. INPUT
  5472. IF RESULT == 0
  5473. PRINTFORMDW %CALLNAME:MASTER%は銅鑼焼きを注文した…
  5474. PRINTFORMDW 少しして銅鑼焼きが運ばれてきた。早速いただこう
  5475. PRINTFORMDW …
  5476. PRINTFORMDW うまい！
  5477. ELSEIF RESULT == 1
  5478. PRINTFORMDW %CALLNAME:MASTER%は蜜豆を注文した…
  5479. PRINTFORMDW 少しして蜜豆が運ばれてきた。早速いただこう
  5480. PRINTFORMDW …
  5481. PRINTFORMDW うまい！
  5482. ELSEIF RESULT == 2
  5483. PRINTFORMDW %CALLNAME:MASTER%は季節のメニューを注文した…
  5484. PRINTD 少しして
  5485. ;季節ごとに変化
  5486. SELECTCASE DAY:2
  5487. CASE 1
  5488. PRINTD 桜餅
  5489. CASE 2
  5490. PRINTD アイスクリン
  5491. CASE 3
  5492. PRINTD 栗茶巾
  5493. CASE 4
  5494. PRINTD おしるこ
  5495. ENDSELECT
  5496. PRINTFORMDW が運ばれてきた。早速いただこう
  5497. PRINTFORMDW …
  5498. PRINTFORMDW うまい！
  5499. ;幻想入りしたマミドバーガー
  5500. ELSEIF RESULT == 8 && LOCAL:1 == 8
  5501. IF FIRSTTIME(1002)
  5502. PRINTFORMDW バーガーと言うとハンバーガーなのだろうか？甘味とは到底結びつかないが…
  5503. PRINTFORMDW %CALLNAME:MASTER%は好奇心に負けてマミドバーガーを注文した…
  5504. PRINTFORMDW 少ししてマミドバーガーが運ばれてきた
  5505. PRINTFORMDW 見た目はハンバーガーに近いが何かが違う、とりあえず食べてみよう
  5506. PRINTFORMDW …
  5507. PRINTFORMDW バンズはパンケーキだろうか、しっとりとした食感で肉代わりのチョコムースに馴染む
  5508. PRINTFORMDW 中を開けて見るとピクルスの代わりと思われるキウイが見えた、中々芸が細かい
  5509. PRINTFORMDW …
  5510. PRINTFORMDW 意外と美味しかった、機会があればまた食べてみよう
  5511. ELSE
  5512. PRINTFORMDW %CALLNAME:MASTER%はマミドバーガーを注文した…
  5513. PRINTFORMDW 少ししてマミドバーガーが運ばれてきた。早速いただこう…
  5514. PRINTFORMDW …
  5515. PRINTFORMDW うまい！
  5516. ENDIF
  5517. ;げえっ！小倉丼！
  5518. ELSEIF RESULT == 9 && LOCAL:1 == 9
  5519. IF FIRSTTIME(1001)
  5520. PRINTFORMDW 小倉丼？　見たことも聞いたことも無いメニューだ
  5521. PRINTFORMDW %CALLNAME:MASTER%は好奇心に負けて小倉丼を注文した…
  5522. PRINTFORMDW 少しして小倉丼が運ばれてきた。早速いただこう…
  5523. PRINTFORMDW ……なんなんだこれは！
  5524. PRINTFORMDW 丼の中にはそびえたつ餡子の壁が鎮座しており、それに輪切りのパイナップルが張り付いていた
  5525. PRINTFORMDW 餡子の天辺にはアクセントのパセリが添えられている
  5526. PRINTFORMDW お米は餡子の下からちょっと見えるだけで色は赤い…
  5527. PRINTFORMDW 対面に座っているエレンも驚きのあまりか、口をあけたまま小倉丼を見ている…
  5528. PRINTFORMW 「……　お店の人には悪いけど…、それって本当に料理なの？」
  5529. PRINTFORMDW 確かにエレンの言う通りだ…、どこからどうみても餡子の塊にパイナップルをつけただけの物体にしか見えない…
  5530. PRINTFORMDW …しかし、注文したからには食べなければならない
  5531. PRINTFORMDW %CALLNAME:MASTER%は恐る恐る小倉丼に箸を伸ばした…
  5532. PRINTFORMDW …
  5533. PRINTFORMDW 恐ろしく甘い……、　餡子とパイナップルの甘さに加え、お米にまぶされている苺が甘さを更に加速している…
  5534. PRINTFORMDW ………
  5535. PRINTFORMDW ……
  5536. PRINTFORMDW …
  5537. PRINTFORMDW 一時間もかけてようやく完食した……、　もう二度と頼むものか
  5538. ELSE
  5539. PRINTFORMDW %CALLNAME:MASTER%は何故か小倉丼を注文してしまった…
  5540. PRINTFORMDW 少しして小倉丼が運ばれてきた。早速いただこう…
  5541. PRINTFORMDW …
  5542. PRINTFORMDW 口の中が甘さに侵食されていく……　どうしてこれを注文してしまったのだろう…
  5543. ENDIF
  5544. ELSE
  5545. GOTO LOOP
  5546. ENDIF
  5547. ENDIF
  5548. ENDIF
  5549. SIF TCVAR:356 == 1
  5550. MONEY += 3000
  5551. RETURN 1
  5552. ;==================================================
  5553. ;620,鈴奈庵
  5554. ;==================================================
  5555. @M_KOJO_MESSAGE_COM_K44_620
  5556. CALL TRAIN_MESSAGE
  5557. CALL M_KOJO_MESSAGE_COM_K44_620_1
  5558. RETURN RESULT
  5559.  
  5560. @M_KOJO_MESSAGE_COM_K44_620_1
  5561. ;-------------------------------------------------
  5562. ;記入チェック（=0, 非表示、1, 表示）
  5563. LOCAL = 0
  5564. ;-------------------------------------------------
  5565. IF LOCAL
  5566.  
  5567. ENDIF
  5568. RETURN 1
  5569. ;==================================================
  5570. ;660,読書
  5571. ;==================================================
  5572. @M_KOJO_MESSAGE_COM_K44_660
  5573. CALL TRAIN_MESSAGE
  5574. CALL M_KOJO_MESSAGE_COM_K44_660_1
  5575. RETURN RESULT
  5576.  
  5577. @M_KOJO_MESSAGE_COM_K44_660_1
  5578. ;-------------------------------------------------
  5579. ;記入チェック（=0, 非表示、1, 表示）
  5580. LOCAL = 1
  5581. ;-------------------------------------------------
  5582. IF LOCAL && !FLAG:70 && !CFLAG:Anger && !MARK:反発刻印
  5583. ;不機嫌時用
  5584. IF TALENT:Humor == -1
  5585. PRINTFORMDW エレンは不機嫌そうに読書をしている…
  5586. ;10%で不機嫌解除
  5587. IF RAND:10 == 5
  5588. PRINTFORMDW ……何か面白い本でも引いたのか、エレンの表情に笑顔が戻ってきた
  5589. TALENT:Humor = 0
  5590. ENDIF
  5591. RETURN 1
  5592. ;親密８以上なら４分の３の確率で一緒に読書する（恋人かつ恋慕なら確実）
  5593. ELSEIF (ABL:Intimacy >= 8 && RAND:4 >= 1) || TALENT:Lover && TALENT:Love
  5594. CFLAG:好感度 += (ABL:Intimacy * 2)
  5595. PRINTFORMD エレンも%CALLNAME:MASTER%の隣で
  5596. IF TALENT:Lover && TALENT:Love
  5597. PRINTD 楽しそうに
  5598. ELSEIF TALENT:Love || CFLAG:1014 || TALENT:Lover
  5599. PRINTD 少し顔を赤くしつつ
  5600. ENDIF
  5601. PRINTDW 読書している…
  5602. ELSE
  5603. PRINTFORMD エレンは
  5604. SIF TALENT:Love || CFLAG:1014 || TALENT:Lover
  5605. PRINTD こちらをちらちらと見つつ、
  5606. PRINTFORMDW 少し離れた場所で読書している…
  5607. ENDIF
  5608. ENDIF
  5609. RETURN 1
  5610.  
  5611. ;==================================================
  5612. ;698,部屋に入る
  5613. ;==================================================
  5614. @M_KOJO_MESSAGE_COM_K44_698
  5615. CALL TRAIN_MESSAGE
  5616. CALL M_KOJO_MESSAGE_COM_K44_698_1
  5617. RETURN RESULT
  5618. @M_KOJO_MESSAGE_COM_K44_698_1
  5619. ;-------------------------------------------------
  5620. ;記入チェック（=0, 非表示、1, 表示）
  5621. LOCAL = 1
  5622. ;-------------------------------------------------
  5623. IF LOCAL && !CFLAG:Anger
  5624. IF TALENT:Lover
  5625. PRINTFORMW 「ささ、遠慮せずにあがって%UNICODE(0x2665)%」
  5626. ELSEIF TALENT:Love || CFLAG:1014 == 1
  5627. PRINTFORMW 「遠慮しないであがって%UNICODE(0x2665)%」
  5628. ELSE
  5629. PRINTFORMW 「まああがってあがって%UNICODE(0x2665)%」
  5630. ENDIF
  5631. ENDIF
  5632. RETURN 1
  5633. ;==================================================
  5634. ;699,外に出る
  5635. ;==================================================
  5636. @M_KOJO_MESSAGE_COM_K44_699
  5637. CALL TRAIN_MESSAGE
  5638. CALL M_KOJO_MESSAGE_COM_K44_699_1
  5639. RETURN RESULT
  5640. @M_KOJO_MESSAGE_COM_K44_699_1
  5641. ;-------------------------------------------------
  5642. ;記入チェック（=0, 非表示、1, 表示）
  5643. LOCAL = 1
  5644. ;-------------------------------------------------
  5645. IF LOCAL && !CFLAG:睡眠
  5646. IF TALENT:Lover && TALENT:Love
  5647. IF VISIT(44) || CHK_DATENOW(CFLAG:44:デート中) || ((FLAG:15 == 44 || FLAG:16 == 44) && (!睡眠時間(44)) && !CFLAG:睡眠)
  5648. ;エレンの家に泊まっているなら
  5649. IF TCVAR:(CFLAG:MASTER:お招き):連泊禁止 && TIME:0 <= 660
  5650. PRINTFORMW 「今日も一日がんばりましょ%UNICODE(0x2665)%」
  5651. ELSE
  5652. PRINTFORMW 「さてと、次はどこに行きましょうか%UNICODE(0x2665)%」
  5653. ENDIF
  5654. ELSE
  5655. PRINTFORMW 「いってらっしゃい%UNICODE(0x2665)% また後で会いましょう%UNICODE(0x2665)%」
  5656. ENDIF
  5657. ELSEIF TALENT:Love || CFLAG:1014 == 1 || TALENT:Lover
  5658. IF VISIT(44) || CHK_DATENOW(CFLAG:44:デート中) || ((FLAG:15 == 44 || FLAG:16 == 44) && (!睡眠時間(44)) && !CFLAG:睡眠)
  5659. ;エレンの家に泊まっているなら
  5660. IF TCVAR:(CFLAG:MASTER:お招き):連泊禁止 && TIME:0 <= 660
  5661. PRINTFORMW 「今日も一日がんばりましょう%UNICODE(0x2665)%」
  5662. ELSE
  5663. PRINTFORMW 「次はどこに行くのかしら%UNICODE(0x2665)%」
  5664. ENDIF
  5665. ELSE
  5666. PRINTFORMW 「もう帰るの、じゃあまたね%UNICODE(0x2665)%」
  5667. ENDIF
  5668. ELSE
  5669. IF VISIT(44) || CHK_DATENOW(CFLAG:44:デート中) || ((FLAG:15 == 44 || FLAG:16 == 44) && (!睡眠時間(44)) && !CFLAG:睡眠)
  5670. ;エレンの家に泊まっているなら
  5671. IF TCVAR:(CFLAG:MASTER:お招き):連泊禁止 && TIME:0 <= 660
  5672. PRINTFORMW 「今日も一日がんばりましょ%UNICODE(0x2665)%」
  5673. ELSE
  5674. PRINTFORMW 「次はどこに行く？」
  5675. ENDIF
  5676. ELSE
  5677. PRINTFORMW 「もう帰るの？　それじゃあまた今度ね%UNICODE(0x2665)%」
  5678. ENDIF
  5679. ENDIF
  5680. ENDIF
  5681. RETURN 1
  5682.  
  5683. ;※※※※※※※※※※※※※※※※※※※※※※※※※
  5684. ;派生コマンド
  5685. ;※※※※※※※※※※※※※※※※※※※※※※※※※
  5686. ;==================================================
  5687. ;60,耳かき
  5688. ;==================================================
  5689. @M_KOJO_MESSAGE_SCOM_K44_60
  5690. CALL TRAIN_MESSAGE
  5691. CALL M_KOJO_MESSAGE_SCOM_K44_60_1
  5692. RETURN RESULT
  5693. @M_KOJO_MESSAGE_SCOM_K44_60_1
  5694. ;-------------------------------------------------
  5695. ;記入チェック（=0, 非表示、1, 表示）
  5696. LOCAL = 1
  5697. ;-------------------------------------------------
  5698. IF LOCAL && !CFLAG:Anger
  5699. ;失敗時
  5700. IF TFLAG:193 == -1
  5701. PRINTFORMW 「うわあ！　……大丈夫？」
  5702. ELSEIF TFLAG:193 == 1
  5703. PRINTFORMW 「うわー、すごいのが取れたわ」
  5704. ;恋人時専用
  5705. ELSEIF TALENT:Lover
  5706. PRINTFORMW 「えへへ%UNICODE(0x2665)% なんだか幸せねー%UNICODE(0x2665)%」
  5707. ;恋慕時専用
  5708. ELSEIF TALENT:Love || CFLAG:1014 == 1
  5709. PRINTFORMW 「わたしの耳かきはどうかしら%UNICODE(0x2665)%//」
  5710. ELSE
  5711. PRINTFORMW 「はいっ、　綺麗になったわよ%UNICODE(0x2665)%」
  5712. ENDIF
  5713. ENDIF
  5714. RETURN 1
  5715. ;==================================================
  5716. ;61,抱き枕
  5717. ;==================================================
  5718. @M_KOJO_MESSAGE_SCOM_K44_61
  5719. CALL TRAIN_MESSAGE
  5720. CALL M_KOJO_MESSAGE_SCOM_K44_61_1
  5721. RETURN RESULT
  5722. @M_KOJO_MESSAGE_SCOM_K44_61_1
  5723. ;-------------------------------------------------
  5724. ;記入チェック（=0, 非表示、1, 表示）
  5725. LOCAL = 0
  5726. ;-------------------------------------------------
  5727. IF LOCAL
  5728.  
  5729. ENDIF
  5730. RETURN 1
  5731. ;==================================================
  5732. ;62,デコちゅー
  5733. ;==================================================
  5734. @M_KOJO_MESSAGE_SCOM_K44_62
  5735. CALL TRAIN_MESSAGE
  5736. CALL M_KOJO_MESSAGE_SCOM_K44_62_1
  5737. RETURN RESULT
  5738. @M_KOJO_MESSAGE_SCOM_K44_62_1
  5739. ;-------------------------------------------------
  5740. ;記入チェック（=0, 非表示、1, 表示）
  5741. LOCAL = 1
  5742. ;-------------------------------------------------
  5743. IF LOCAL && !CFLAG:Anger
  5744. IF TALENT:Lover && TALENT:Love
  5745. IF ABL:Desire >= 5 && GET_TARGETNUM() == 1
  5746. PRINTFORMW 「次は唇の方にキスして欲しいなーなんて//」
  5747. ELSE
  5748. PRINTFORMW 「あははは%UNICODE(0x2665)%」
  5749. ENDIF
  5750. ELSEIF TALENT:Love || CFLAG:1014 == 1 || TALENT:Lover
  5751. PRINTFORMW 「えへへ//」
  5752. ELSEIF TALENT:思慕
  5753. PRINTFORMW 「もう//」
  5754. ELSE
  5755. PRINTFORMW 「ななななにしてるのよ！//」
  5756. ENDIF
  5757. ENDIF
  5758. RETURN 1
  5759. ;==================================================
  5760. ;63,もっとキスする
  5761. ;==================================================
  5762. @M_KOJO_MESSAGE_SCOM_K44_63
  5763. CALL TRAIN_MESSAGE
  5764. CALL M_KOJO_MESSAGE_SCOM_K44_63_1
  5765. RETURN RESULT
  5766. @M_KOJO_MESSAGE_SCOM_K44_63_1
  5767. ;-------------------------------------------------
  5768. ;記入チェック（=0, 非表示、1, 表示）
  5769. LOCAL = 1
  5770. ;-------------------------------------------------
  5771. IF LOCAL && !CFLAG:Anger
  5772. IF TALENT:Lover && TALENT:Love
  5773. PRINTFORMW 「ちゅっ…くちゅ…ぷぁ」
  5774. PRINTFORMW 「ん…むちゅ～%UNICODE(0x2665)%」
  5775. ELSEIF TALENT:Love || CFLAG:1014 == 1 || TALENT:Lover
  5776. PRINTFORMW 「ちゅ、ちゅる…んぅ…ちゅ…ぷはぁ//」
  5777. ELSE
  5778. PRINTFORMW 「はぁ…はぁ…、苦しかった……」
  5779. ENDIF
  5780. ENDIF
  5781. RETURN 1
  5782. ;==================================================
  5783. ;80,手を引く
  5784. ;==================================================
  5785. @M_KOJO_MESSAGE_SCOM_K44_80
  5786. CALL TRAIN_MESSAGE
  5787. CALL M_KOJO_MESSAGE_SCOM_K44_80_1
  5788. RETURN RESULT
  5789. @M_KOJO_MESSAGE_SCOM_K44_80_1
  5790. ;-------------------------------------------------
  5791. ;記入チェック（=0, 非表示、1, 表示）
  5792. LOCAL = 1
  5793. ;-------------------------------------------------
  5794. ;失敗時は無し
  5795. SIF TFLAG:193 == -1
  5796. RETURN 1
  5797. IF LOCAL && !CFLAG:Anger
  5798. IF TALENT:Lover
  5799. IF TFLAG:193 == 1
  5800. PRINTFORMW 「あはははは%UNICODE(0x2665)%」
  5801. ELSE
  5802. PRINTFORMW 「そんなに急がなくても大丈夫よ%UNICODE(0x2665)%」
  5803. ENDIF
  5804. ELSEIF TALENT:Love || CFLAG:1014 == 1
  5805. PRINTFORMW （きゃーーー%UNICODE(0x2665)%%UNICODE(0x2665)%//）
  5806. ELSE
  5807. PRINTFORMW 「きゃっ！　いきなり手を引っ張らないでよー」
  5808. ENDIF
  5809. ENDIF
  5810. RETURN 1
  5811.  
  5812. ;※※※※※※※※※※※※※※※※※※※※※※※※※
  5813. ;愛撫系コマンド
  5814. ;※※※※※※※※※※※※※※※※※※※※※※※※※
  5815. ;==================================================
  5816. ;0,愛撫
  5817. ;==================================================
  5818. @M_KOJO_MESSAGE_COM_K44_0
  5819. CALL TRAIN_MESSAGE
  5820. CALL M_KOJO_MESSAGE_COM_K44_0_1
  5821. RETURN RESULT
  5822.  
  5823. @M_KOJO_MESSAGE_COM_K44_0_1
  5824. ;-------------------------------------------------
  5825. ;記入チェック（=0, 非表示、1, 表示）
  5826. LOCAL = 0
  5827. ;-------------------------------------------------
  5828. IF LOCAL
  5829. ;-------------------------------------------------
  5830. ;小分岐
  5831. ;-------------------------------------------------
  5832. ;初めて
  5833. ;記入チェック
  5834. LOCAL:1 = 0
  5835. ;-------------------------------------------------
  5836. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  5837. PRINTFORMW
  5838. RETURN 0
  5839. ENDIF
  5840. ;-------------------------------------------------
  5841. ;挿入中
  5842. ;記入チェック
  5843. LOCAL:1 = 0
  5844. ;-------------------------------------------------
  5845. ;V挿入
  5846. IF LOCAL:1 && TEQUIP:50 == PLAYER
  5847. ;射精した
  5848. IF NOWEX:PLAYER:11
  5849. PRINTFORMW
  5850. RETURN 0
  5851. ELSE
  5852. PRINTFORMW
  5853. RETURN 0
  5854. ENDIF
  5855. ;A挿入
  5856. ELSEIF LOCAL:1 && TEQUIP:51 == PLAYER
  5857. ;射精した
  5858. IF NOWEX:PLAYER:11
  5859. PRINTFORMW
  5860. RETURN 0
  5861. ELSE
  5862. PRINTFORMW
  5863. RETURN 0
  5864. ENDIF
  5865. ENDIF
  5866. ;-------------------------------------------------
  5867. ;ふたなり
  5868. ;記入チェック
  5869. LOCAL:1 = 0
  5870. ;-------------------------------------------------
  5871. IF LOCAL:1 && (TALENT:2 & 3) == 3
  5872. PRINTFORMW
  5873. RETURN 0
  5874. ENDIF
  5875. ;基本セット
  5876. ;時姦中
  5877. IF FLAG:70
  5878. PRINTFORMW
  5879. RETURN 0
  5880. ;Love
  5881. ELSEIF TALENT:Love
  5882. PRINTFORMW
  5883. RETURN 0
  5884. ;屈服3
  5885. ELSEIF MARK:不埒刻印 == 3
  5886. PRINTFORMW
  5887. RETURN 0
  5888. ;それ以外
  5889. ELSE
  5890. PRINTFORMW
  5891. RETURN 0
  5892. ENDIF
  5893. ENDIF
  5894. RETURN 1
  5895. ;==================================================
  5896. ;1,クンニ
  5897. ;==================================================
  5898. @M_KOJO_MESSAGE_COM_K44_1
  5899. CALL TRAIN_MESSAGE
  5900. CALL M_KOJO_MESSAGE_COM_K44_1_1
  5901. RETURN RESULT
  5902.  
  5903. @M_KOJO_MESSAGE_COM_K44_1_1
  5904. ;-------------------------------------------------
  5905. ;記入チェック（=0, 非表示、1, 表示）
  5906. LOCAL = 0
  5907. ;-------------------------------------------------
  5908. IF LOCAL
  5909. ;-------------------------------------------------
  5910. ;小分岐
  5911. ;-------------------------------------------------
  5912. ;初めて
  5913. ;記入チェック
  5914. LOCAL:1 = 0
  5915. ;-------------------------------------------------
  5916. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  5917. PRINTFORMW
  5918. RETURN 0
  5919. ENDIF
  5920. ;-------------------------------------------------
  5921. ;膣内射精直後
  5922. ;記入チェック
  5923. LOCAL:1 = 0
  5924. ;-------------------------------------------------
  5925. IF LOCAL:1 && TCVAR:100 == PLAYER
  5926. IF TCVAR:102
  5927. PRINTFORMW
  5928. RETURN 0
  5929. ENDIF
  5930. ENDIF
  5931. ;-------------------------------------------------
  5932. ;絶頂した
  5933. ;記入チェック
  5934. LOCAL:1 = 0
  5935. ;-------------------------------------------------
  5936. IF LOCAL:1 && NOWEX:Ｃ絶頂
  5937. PRINTFORMW
  5938. RETURN 0
  5939. ENDIF
  5940. ;基本セット
  5941. ;時姦中
  5942. IF FLAG:70
  5943. PRINTFORMW
  5944. RETURN 0
  5945. ;Love
  5946. ELSEIF TALENT:Love
  5947. PRINTFORMW
  5948. RETURN 0
  5949. ;屈服3
  5950. ELSEIF MARK:不埒刻印 == 3
  5951. PRINTFORMW
  5952. RETURN 0
  5953. ;それ以外
  5954. ELSE
  5955. PRINTFORMW
  5956. RETURN 0
  5957. ENDIF
  5958. ENDIF
  5959. RETURN 1
  5960. ;あとは適当な分岐を追加してください
  5961. ;==================================================
  5962. ;2,フェラする
  5963. ;==================================================
  5964. @M_KOJO_MESSAGE_COM_K44_2
  5965. CALL TRAIN_MESSAGE
  5966. CALL M_KOJO_MESSAGE_COM_K44_2_1
  5967. RETURN RESULT
  5968.  
  5969. @M_KOJO_MESSAGE_COM_K44_2_1
  5970. ;-------------------------------------------------
  5971. ;記入チェック（=0, 非表示、1, 表示）
  5972. LOCAL = 0
  5973. ;-------------------------------------------------
  5974. IF LOCAL
  5975. ;-------------------------------------------------
  5976. ;小分岐
  5977. ;-------------------------------------------------
  5978. ;初めて
  5979. ;記入チェック
  5980. LOCAL:1 = 0
  5981. ;-------------------------------------------------
  5982. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  5983. PRINTFORMW
  5984. RETURN 0
  5985. ENDIF
  5986. ;基本セット
  5987. ;時姦中
  5988. IF FLAG:70
  5989. PRINTFORMW
  5990. RETURN 0
  5991. ;Love
  5992. ELSEIF TALENT:Love
  5993. PRINTFORMW
  5994. RETURN 0
  5995. ;屈服3
  5996. ELSEIF MARK:不埒刻印 == 3
  5997. PRINTFORMW
  5998. RETURN 0
  5999. ;それ以外
  6000. ELSE
  6001. PRINTFORMW
  6002. RETURN 0
  6003. ENDIF
  6004. ENDIF
  6005. RETURN 1
  6006.  
  6007. ;==================================================
  6008. ;3,指挿入れ
  6009. ;==================================================
  6010. @M_KOJO_MESSAGE_COM_K44_3
  6011. CALL TRAIN_MESSAGE
  6012. CALL M_KOJO_MESSAGE_COM_K44_3_1
  6013. RETURN RESULT
  6014.  
  6015. @M_KOJO_MESSAGE_COM_K44_3_1
  6016. ;-------------------------------------------------
  6017. ;記入チェック（=0, 非表示、1, 表示）
  6018. LOCAL = 0
  6019. ;-------------------------------------------------
  6020. IF LOCAL
  6021. ;-------------------------------------------------
  6022. ;小分岐
  6023. ;-------------------------------------------------
  6024. ;初めて
  6025. ;記入チェック
  6026. LOCAL:1 = 0
  6027. ;-------------------------------------------------
  6028. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  6029. PRINTFORMW
  6030. RETURN 0
  6031. ENDIF
  6032. ;時姦中
  6033. IF FLAG:70
  6034. PRINTFORMW
  6035. RETURN 0
  6036. ;Love
  6037. ELSEIF TALENT:Love
  6038. PRINTFORMW
  6039. RETURN 0
  6040. ;屈服3
  6041. ELSEIF MARK:不埒刻印 == 3
  6042. PRINTFORMW
  6043. RETURN 0
  6044. ;それ以外
  6045. ELSE
  6046. PRINTFORMW
  6047. RETURN 0
  6048. ENDIF
  6049. ENDIF
  6050. RETURN 1
  6051.  
  6052. ;==================================================
  6053. ;4,アナル舐め
  6054. ;==================================================
  6055. @M_KOJO_MESSAGE_COM_K44_4
  6056. CALL TRAIN_MESSAGE
  6057. CALL M_KOJO_MESSAGE_COM_K44_4_1
  6058. RETURN RESULT
  6059.  
  6060. @M_KOJO_MESSAGE_COM_K44_4_1
  6061. ;-------------------------------------------------
  6062. ;記入チェック（=0, 非表示、1, 表示）
  6063. LOCAL = 0
  6064. ;-------------------------------------------------
  6065. IF LOCAL
  6066. ;-------------------------------------------------
  6067. ;小分岐
  6068. ;-------------------------------------------------
  6069. ;初めて
  6070. ;記入チェック
  6071. LOCAL:1 = 0
  6072. ;-------------------------------------------------
  6073. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  6074. PRINTFORMW
  6075. RETURN 0
  6076. ENDIF
  6077. ;基本セット
  6078. ;時姦中
  6079. IF FLAG:70
  6080. PRINTFORMW
  6081. RETURN 0
  6082. ;Love
  6083. ELSEIF TALENT:Love
  6084. PRINTFORMW
  6085. RETURN 0
  6086. ;屈服3
  6087. ELSEIF MARK:不埒刻印 == 3
  6088. PRINTFORMW
  6089. RETURN 0
  6090. ;それ以外
  6091. ELSE
  6092. PRINTFORMW
  6093. RETURN 0
  6094. ENDIF
  6095. ENDIF
  6096. RETURN 1
  6097.  
  6098. ;==================================================
  6099. ;5,アナル愛撫
  6100. ;==================================================
  6101. @M_KOJO_MESSAGE_COM_K44_5
  6102. CALL TRAIN_MESSAGE
  6103. CALL M_KOJO_MESSAGE_COM_K44_5_1
  6104. RETURN RESULT
  6105.  
  6106. @M_KOJO_MESSAGE_COM_K44_5_1
  6107. ;-------------------------------------------------
  6108. ;記入チェック（=0, 非表示、1, 表示）
  6109. LOCAL = 0
  6110. ;-------------------------------------------------
  6111. IF LOCAL
  6112. ;-------------------------------------------------
  6113. ;小分岐
  6114. ;-------------------------------------------------
  6115. ;初めて
  6116. ;記入チェック
  6117. LOCAL:1 = 0
  6118. ;-------------------------------------------------
  6119. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  6120. PRINTFORMW
  6121. RETURN 0
  6122. ENDIF
  6123. ;基本セット
  6124. ;時姦中
  6125. IF FLAG:70
  6126. PRINTFORMW
  6127. RETURN 0
  6128. ;Love
  6129. ELSEIF TALENT:Love
  6130. PRINTFORMW
  6131. RETURN 0
  6132. ;屈服3
  6133. ELSEIF MARK:不埒刻印 == 3
  6134. PRINTFORMW
  6135. RETURN 0
  6136. ;それ以外
  6137. ELSE
  6138. PRINTFORMW
  6139. RETURN 0
  6140. ENDIF
  6141. ENDIF
  6142. RETURN 1
  6143.  
  6144. ;==================================================
  6145. ;6,胸愛撫
  6146. ;==================================================
  6147. @M_KOJO_MESSAGE_COM_K44_6
  6148. CALL TRAIN_MESSAGE
  6149. CALL M_KOJO_MESSAGE_COM_K44_6_1
  6150. RETURN RESULT
  6151.  
  6152. @M_KOJO_MESSAGE_COM_K44_6_1
  6153. ;-------------------------------------------------
  6154. ;記入チェック（=0, 非表示、1, 表示）
  6155. LOCAL = 0
  6156. ;-------------------------------------------------
  6157. IF LOCAL
  6158. ;-------------------------------------------------
  6159. ;小分岐
  6160. ;-------------------------------------------------
  6161. ;初めて
  6162. ;記入チェック
  6163. LOCAL:1 = 0
  6164. ;-------------------------------------------------
  6165. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  6166. PRINTFORMW
  6167. RETURN 0
  6168. ENDIF
  6169. ;基本セット
  6170. ;時姦中
  6171. IF FLAG:70
  6172. PRINTFORMW
  6173. RETURN 0
  6174. ;Love
  6175. ELSEIF TALENT:Love
  6176. PRINTFORMW
  6177. RETURN 0
  6178. ;屈服3
  6179. ELSEIF MARK:不埒刻印 == 3
  6180. PRINTFORMW
  6181. RETURN 0
  6182. ;それ以外
  6183. ELSE
  6184. PRINTFORMW
  6185. RETURN 0
  6186. ENDIF
  6187. ENDIF
  6188. RETURN 1
  6189.  
  6190. ;==================================================
  6191. ;7,乳首責め
  6192. ;==================================================
  6193. @M_KOJO_MESSAGE_COM_K44_7
  6194. CALL TRAIN_MESSAGE
  6195. CALL M_KOJO_MESSAGE_COM_K44_7_1
  6196. RETURN RESULT
  6197.  
  6198. @M_KOJO_MESSAGE_COM_K44_7_1
  6199. ;-------------------------------------------------
  6200. ;記入チェック（=0, 非表示、1, 表示）
  6201. LOCAL = 0
  6202. ;-------------------------------------------------
  6203. IF LOCAL
  6204. ;-------------------------------------------------
  6205. ;小分岐
  6206. ;-------------------------------------------------
  6207. ;初めて
  6208. ;記入チェック
  6209. LOCAL:1 = 0
  6210. ;-------------------------------------------------
  6211. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  6212. PRINTFORMW
  6213. RETURN 0
  6214. ENDIF
  6215. ;基本セット
  6216. ;時姦中
  6217. IF FLAG:70
  6218. PRINTFORMW
  6219. RETURN 0
  6220. ;Love
  6221. ELSEIF TALENT:Love
  6222. PRINTFORMW
  6223. RETURN 0
  6224. ;屈服3
  6225. ELSEIF MARK:不埒刻印 == 3
  6226. PRINTFORMW
  6227. RETURN 0
  6228. ;それ以外
  6229. ELSE
  6230. PRINTFORMW
  6231. RETURN 0
  6232. ENDIF
  6233. ENDIF
  6234. RETURN 1
  6235.  
  6236. ;==================================================
  6237. ;8,秘貝開帳
  6238. ;==================================================
  6239. @M_KOJO_MESSAGE_COM_K44_8
  6240. CALL TRAIN_MESSAGE
  6241. CALL M_KOJO_MESSAGE_COM_K44_8_1
  6242. RETURN RESULT
  6243.  
  6244. @M_KOJO_MESSAGE_COM_K44_8_1
  6245. ;-------------------------------------------------
  6246. ;記入チェック（=0, 非表示、1, 表示）
  6247. LOCAL = 0
  6248. ;-------------------------------------------------
  6249. IF LOCAL
  6250. ;-------------------------------------------------
  6251. ;小分岐
  6252. ;-------------------------------------------------
  6253. ;初めて
  6254. ;記入チェック
  6255. LOCAL:1 = 0
  6256. ;-------------------------------------------------
  6257. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  6258. PRINTFORMW
  6259. RETURN 0
  6260. ENDIF
  6261. ;基本セット
  6262. ;時姦中
  6263. IF FLAG:70
  6264. PRINTFORMW
  6265. RETURN 0
  6266. ;Love
  6267. ELSEIF TALENT:Love
  6268. PRINTFORMW
  6269. RETURN 0
  6270. ;屈服3
  6271. ELSEIF MARK:不埒刻印 == 3
  6272. PRINTFORMW
  6273. RETURN 0
  6274. ;それ以外
  6275. ELSE
  6276. PRINTFORMW
  6277. RETURN 0
  6278. ENDIF
  6279. ENDIF
  6280. RETURN 1
  6281.  
  6282. ;==================================================
  6283. ;9,自慰
  6284. ;==================================================
  6285. @M_KOJO_MESSAGE_COM_K44_9
  6286. CALL TRAIN_MESSAGE
  6287. CALL M_KOJO_MESSAGE_COM_K44_9_1
  6288. RETURN RESULT
  6289.  
  6290. @M_KOJO_MESSAGE_COM_K44_9_1
  6291. ;-------------------------------------------------
  6292. ;記入チェック（=0, 非表示、1, 表示）
  6293. LOCAL = 0
  6294. ;-------------------------------------------------
  6295. IF LOCAL
  6296. ;-------------------------------------------------
  6297. ;小分岐
  6298. ;-------------------------------------------------
  6299. ;初めて
  6300. ;記入チェック
  6301. LOCAL:1 = 0
  6302. ;-------------------------------------------------
  6303. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  6304. PRINTFORMW
  6305. RETURN 0
  6306. ENDIF
  6307. ;基本セット
  6308. ;Love
  6309. IF TALENT:Love
  6310. PRINTFORMW
  6311. RETURN 0
  6312. ;屈服3
  6313. ELSEIF MARK:不埒刻印 == 3
  6314. PRINTFORMW
  6315. RETURN 0
  6316. ;それ以外
  6317. ELSE
  6318. PRINTFORMW
  6319. RETURN 0
  6320. ENDIF
  6321. ENDIF
  6322. RETURN 1
  6323. [SKIPSTART]
  6324. ;別コマンド化
  6325. ;==================================================
  6326. ;10,乳首吸い
  6327. ;==================================================
  6328. @M_KOJO_MESSAGE_COM_K44_10
  6329. CALL TRAIN_MESSAGE
  6330. CALL M_KOJO_MESSAGE_COM_K44_10_1
  6331. RETURN RESULT
  6332.  
  6333. @M_KOJO_MESSAGE_COM_K44_10_1
  6334. ;-------------------------------------------------
  6335. ;記入チェック（=0, 非表示、1, 表示）
  6336. LOCAL = 0
  6337. ;-------------------------------------------------
  6338. IF LOCAL
  6339. ;-------------------------------------------------
  6340. ;小分岐
  6341. ;-------------------------------------------------
  6342. ;初めて
  6343. ;記入チェック
  6344. LOCAL:1 = 0
  6345. ;-------------------------------------------------
  6346. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  6347. PRINTFORMW
  6348. RETURN 0
  6349. ENDIF
  6350. ;基本セット
  6351. ;Love
  6352. IF TALENT:Love
  6353. PRINTFORMW
  6354. RETURN 0
  6355. ;屈服3
  6356. ELSEIF MARK:不埒刻印 == 3
  6357. PRINTFORMW
  6358. RETURN 0
  6359. ;それ以外
  6360. ELSE
  6361. PRINTFORMW
  6362. RETURN 0
  6363. ENDIF
  6364. ENDIF
  6365. RETURN 1
  6366. [SKIPEND]
  6367. ;==================================================
  6368. ;11,乳首吸い
  6369. ;==================================================
  6370. @M_KOJO_MESSAGE_COM_K44_11
  6371. CALL TRAIN_MESSAGE
  6372. CALL M_KOJO_MESSAGE_COM_K44_11_1
  6373. RETURN RESULT
  6374.  
  6375. @M_KOJO_MESSAGE_COM_K44_11_1
  6376. ;-------------------------------------------------
  6377. ;記入チェック（=0, 非表示、1, 表示）
  6378. LOCAL = 0
  6379. ;-------------------------------------------------
  6380. IF LOCAL
  6381. ;-------------------------------------------------
  6382. ;小分岐
  6383. ;-------------------------------------------------
  6384. ;初めて
  6385. ;記入チェック
  6386. LOCAL:1 = 0
  6387. ;-------------------------------------------------
  6388. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  6389. PRINTFORMW
  6390. RETURN 0
  6391. ENDIF
  6392. ;基本セット
  6393. ;時姦中
  6394. IF FLAG:70
  6395. PRINTFORMW
  6396. RETURN 0
  6397. ;Love
  6398. ELSEIF TALENT:Love
  6399. PRINTFORMW
  6400. RETURN 0
  6401. ;屈服3
  6402. ELSEIF MARK:不埒刻印 == 3
  6403. PRINTFORMW
  6404. RETURN 0
  6405. ;それ以外
  6406. ELSE
  6407. PRINTFORMW
  6408. RETURN 0
  6409. ENDIF
  6410. ENDIF
  6411. RETURN 1
  6412. ;==================================================
  6413. ;12,胸もみ
  6414. ;==================================================
  6415. @M_KOJO_MESSAGE_COM_K44_12
  6416. CALL TRAIN_MESSAGE
  6417. CALL M_KOJO_MESSAGE_COM_K44_12_1
  6418. RETURN RESULT
  6419.  
  6420. @M_KOJO_MESSAGE_COM_K44_12_1
  6421. ;-------------------------------------------------
  6422. ;記入チェック（=0, 非表示、1, 表示）
  6423. LOCAL = 0
  6424. ;-------------------------------------------------
  6425. IF LOCAL
  6426. ;-------------------------------------------------
  6427. ;小分岐
  6428. ;-------------------------------------------------
  6429. ;初めて
  6430. ;記入チェック
  6431. LOCAL:1 = 0
  6432. ;-------------------------------------------------
  6433. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  6434. PRINTFORMW
  6435. RETURN 0
  6436. ENDIF
  6437. ;基本セット
  6438. ;時姦中
  6439. IF FLAG:70
  6440. PRINTFORMW
  6441. RETURN 0
  6442. ;Love
  6443. ELSEIF TALENT:Love
  6444. PRINTFORMW
  6445. RETURN 0
  6446. ;屈服3
  6447. ELSEIF MARK:不埒刻印 == 3
  6448. PRINTFORMW
  6449. RETURN 0
  6450. ;それ以外
  6451. ELSE
  6452. PRINTFORMW
  6453. RETURN 0
  6454. ENDIF
  6455. ENDIF
  6456. RETURN 1
  6457.  
  6458. ;==================================================
  6459. ;13,アナル開帳
  6460. ;==================================================
  6461. @M_KOJO_MESSAGE_COM_K44_13
  6462. CALL TRAIN_MESSAGE
  6463. CALL M_KOJO_MESSAGE_COM_K44_13_1
  6464. RETURN RESULT
  6465.  
  6466. @M_KOJO_MESSAGE_COM_K44_13_1
  6467. ;-------------------------------------------------
  6468. ;記入チェック（=0, 非表示、1, 表示）
  6469. LOCAL = 0
  6470. ;-------------------------------------------------
  6471. IF LOCAL
  6472. ;-------------------------------------------------
  6473. ;小分岐
  6474. ;-------------------------------------------------
  6475. ;初めて
  6476. ;記入チェック
  6477. LOCAL:1 = 0
  6478. ;-------------------------------------------------
  6479. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  6480. PRINTFORMW
  6481. RETURN 0
  6482. ENDIF
  6483. ;基本セット
  6484. ;時姦中
  6485. IF FLAG:70
  6486. PRINTFORMW
  6487. RETURN 0
  6488. ;Love
  6489. ELSEIF TALENT:Love
  6490. PRINTFORMW
  6491. RETURN 0
  6492. ;屈服3
  6493. ELSEIF MARK:不埒刻印 == 3
  6494. PRINTFORMW
  6495. RETURN 0
  6496. ;それ以外
  6497. ELSE
  6498. PRINTFORMW
  6499. RETURN 0
  6500. ENDIF
  6501. ENDIF
  6502. RETURN 1
  6503.  
  6504. ;※※※※※※※※※※※※※※※※※※※※※※※※※
  6505. ;ソフト系コマンド
  6506. ;※※※※※※※※※※※※※※※※※※※※※※※※※
  6507. ;==================================================
  6508. ;20,キスする
  6509. ;==================================================
  6510. @M_KOJO_MESSAGE_COM_K44_20
  6511. CALL TRAIN_MESSAGE
  6512. CALL M_KOJO_MESSAGE_COM_K44_20_1
  6513. RETURN RESULT
  6514.  
  6515. @M_KOJO_MESSAGE_COM_K44_20_1
  6516. ;-------------------------------------------------
  6517. ;記入チェック（=0, 非表示、1, 表示）
  6518. LOCAL = 0
  6519. ;-------------------------------------------------
  6520. IF LOCAL
  6521. ;-------------------------------------------------
  6522. ;小分岐
  6523. ;-------------------------------------------------
  6524. ;初めて
  6525. ;記入チェック
  6526. LOCAL:1 = 0
  6527. ;-------------------------------------------------
  6528. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  6529. PRINTFORMW
  6530. RETURN 0
  6531. ENDIF
  6532. ;基本セット
  6533. ;時姦中
  6534. IF FLAG:70
  6535. PRINTFORMW
  6536. RETURN 0
  6537. ;Love
  6538. ELSEIF TALENT:Love
  6539. PRINTFORMW
  6540. RETURN 0
  6541. ;屈服3
  6542. ELSEIF MARK:不埒刻印 == 3
  6543. PRINTFORMW
  6544. RETURN 0
  6545. ;それ以外
  6546. ELSE
  6547. PRINTFORMW
  6548. RETURN 0
  6549. ENDIF
  6550. ENDIF
  6551. RETURN 1
  6552.  
  6553.  
  6554. ;==================================================
  6555. ;21,何もしない
  6556. ;==================================================
  6557. @M_KOJO_MESSAGE_COM_K44_21
  6558. ;CALL TRAIN_MESSAGE
  6559. CALL M_KOJO_MESSAGE_COM_K44_21_1
  6560. RETURN RESULT
  6561.  
  6562. @M_KOJO_MESSAGE_COM_K44_21_1
  6563. ;-------------------------------------------------
  6564. ;記入チェック（=0, 非表示、1, 表示）
  6565. LOCAL = 0
  6566. ;-------------------------------------------------
  6567. IF LOCAL
  6568. ;-------------------------------------------------
  6569. ;小分岐
  6570. ;-------------------------------------------------
  6571. ;初めて
  6572. ;記入チェック
  6573. LOCAL:1 = 0
  6574. ;-------------------------------------------------
  6575. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  6576. PRINTFORMW
  6577. RETURN 0
  6578. ENDIF
  6579. ;基本セット
  6580. ;時姦中
  6581. IF FLAG:70
  6582. PRINTFORMW
  6583. RETURN 0
  6584. ;Love
  6585. ELSEIF TALENT:Love
  6586. PRINTFORMW
  6587. RETURN 0
  6588. ;屈服3
  6589. ELSEIF MARK:不埒刻印 == 3
  6590. PRINTFORMW
  6591. RETURN 0
  6592. ;それ以外
  6593. ELSE
  6594. PRINTFORMW
  6595. RETURN 0
  6596. ENDIF
  6597. ENDIF
  6598. RETURN 1
  6599.  
  6600. ;==================================================
  6601. ;22,誘い受ける
  6602. ;==================================================
  6603. @M_KOJO_MESSAGE_COM_K44_22
  6604. ;CALL TRAIN_MESSAGE
  6605. CALL M_KOJO_MESSAGE_COM_K44_22_1
  6606. RETURN RESULT
  6607.  
  6608. @M_KOJO_MESSAGE_COM_K44_22_1
  6609. ;-------------------------------------------------
  6610. ;記入チェック（=0, 非表示、1, 表示）
  6611. LOCAL = 0
  6612. ;-------------------------------------------------
  6613. IF LOCAL
  6614. ;-------------------------------------------------
  6615. ;小分岐
  6616. ;-------------------------------------------------
  6617. ;初めて
  6618. ;記入チェック
  6619. LOCAL:1 = 0
  6620. ;-------------------------------------------------
  6621. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  6622. PRINTFORMW
  6623. RETURN 0
  6624. ENDIF
  6625. ;基本セット
  6626. ;時姦中
  6627. IF FLAG:70
  6628. PRINTFORMW
  6629. RETURN 0
  6630. ;Love
  6631. ELSEIF TALENT:Love
  6632. PRINTFORMW
  6633. RETURN 0
  6634. ;屈服3
  6635. ELSEIF MARK:不埒刻印 == 3
  6636. PRINTFORMW
  6637. RETURN 0
  6638. ;それ以外
  6639. ELSE
  6640. PRINTFORMW
  6641. RETURN 0
  6642. ENDIF
  6643. ENDIF
  6644. RETURN 1
  6645.  
  6646. ;==================================================
  6647. ;23,ピロートーク
  6648. ;==================================================
  6649. @M_KOJO_MESSAGE_COM_K44_23
  6650. CALL TRAIN_MESSAGE
  6651. CALL M_KOJO_MESSAGE_COM_K44_23_1
  6652. RETURN RESULT
  6653.  
  6654. @M_KOJO_MESSAGE_COM_K44_23_1
  6655. ;-------------------------------------------------
  6656. ;記入チェック（=0, 非表示、1, 表示）
  6657. LOCAL = 0
  6658. ;-------------------------------------------------
  6659. IF LOCAL
  6660. ;-------------------------------------------------
  6661. ;小分岐
  6662. ;-------------------------------------------------
  6663. ;初めて
  6664. ;記入チェック
  6665. LOCAL:1 = 0
  6666. ;-------------------------------------------------
  6667. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  6668. PRINTFORMW
  6669. RETURN 0
  6670. ENDIF
  6671. ;基本セット
  6672. ;時姦中
  6673. IF FLAG:70
  6674. PRINTFORMW
  6675. RETURN 0
  6676. ;Love
  6677. ELSEIF TALENT:Love
  6678. PRINTFORMW
  6679. RETURN 0
  6680. ;屈服3
  6681. ELSEIF MARK:不埒刻印 == 3
  6682. PRINTFORMW
  6683. RETURN 0
  6684. ;それ以外
  6685. ELSE
  6686. PRINTFORMW
  6687. RETURN 0
  6688. ENDIF
  6689. ENDIF
  6690. RETURN 1
  6691.  
  6692. ;※※※※※※※※※※※※※※※※※※※※※※※※※
  6693. ;道具系コマンド
  6694. ;※※※※※※※※※※※※※※※※※※※※※※※※※
  6695. ;==================================================
  6696. ;40,Rotor
  6697. ;==================================================
  6698. @M_KOJO_MESSAGE_COM_K44_40
  6699. CALL TRAIN_MESSAGE
  6700. CALL M_KOJO_MESSAGE_COM_K44_40_1
  6701. RETURN RESULT
  6702.  
  6703. @M_KOJO_MESSAGE_COM_K44_40_1
  6704. ;-------------------------------------------------
  6705. ;記入チェック（=0, 非表示、1, 表示）
  6706. LOCAL = 0
  6707. ;-------------------------------------------------
  6708. IF LOCAL
  6709. ;-------------------------------------------------
  6710. ;小分岐
  6711. ;-------------------------------------------------
  6712. ;初めて
  6713. ;記入チェック
  6714. LOCAL:1 = 0
  6715. ;-------------------------------------------------
  6716. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  6717. PRINTFORMW
  6718. RETURN 0
  6719. ENDIF
  6720. ;基本セット
  6721. ;時姦中
  6722. IF FLAG:70
  6723. PRINTFORMW
  6724. RETURN 0
  6725. ;Love
  6726. ELSEIF TALENT:Love
  6727. PRINTFORMW
  6728. RETURN 0
  6729. ;屈服3
  6730. ELSEIF MARK:不埒刻印 == 3
  6731. PRINTFORMW
  6732. RETURN 0
  6733. ;それ以外
  6734. ELSE
  6735. PRINTFORMW
  6736. RETURN 0
  6737. ENDIF
  6738. ENDIF
  6739. RETURN 1
  6740.  
  6741. ;==================================================
  6742. ;41,Ｅマッサージャ
  6743. ;==================================================
  6744. @M_KOJO_MESSAGE_COM_K44_41
  6745. CALL TRAIN_MESSAGE
  6746. CALL M_KOJO_MESSAGE_COM_K44_41_1
  6747. RETURN RESULT
  6748.  
  6749. @M_KOJO_MESSAGE_COM_K44_41_1
  6750. ;-------------------------------------------------
  6751. ;記入チェック（=0, 非表示、1, 表示）
  6752. LOCAL = 0
  6753. ;-------------------------------------------------
  6754. IF LOCAL
  6755. ;-------------------------------------------------
  6756. ;小分岐
  6757. ;-------------------------------------------------
  6758. ;初めて
  6759. ;記入チェック
  6760. LOCAL:1 = 0
  6761. ;-------------------------------------------------
  6762. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  6763. PRINTFORMW
  6764. RETURN 0
  6765. ENDIF
  6766. ;基本セット
  6767. ;時姦中
  6768. IF FLAG:70
  6769. PRINTFORMW
  6770. RETURN 0
  6771. ;Love
  6772. ELSEIF TALENT:Love
  6773. PRINTFORMW
  6774. RETURN 0
  6775. ;屈服3
  6776. ELSEIF MARK:不埒刻印 == 3
  6777. PRINTFORMW
  6778. RETURN 0
  6779. ;それ以外
  6780. ELSE
  6781. PRINTFORMW
  6782. RETURN 0
  6783. ENDIF
  6784. ENDIF
  6785. RETURN 1
  6786.  
  6787. ;==================================================
  6788. ;42,ClitCap
  6789. ;==================================================
  6790. @M_KOJO_MESSAGE_COM_K44_42
  6791. CALL TRAIN_MESSAGE
  6792. CALL M_KOJO_MESSAGE_COM_K44_42_1
  6793. RETURN RESULT
  6794.  
  6795. @M_KOJO_MESSAGE_COM_K44_42_1
  6796. ;-------------------------------------------------
  6797. ;記入チェック（=0, 非表示、1, 表示）
  6798. LOCAL = 0
  6799. ;-------------------------------------------------
  6800. IF LOCAL
  6801. ;-------------------------------------------------
  6802. ;小分岐
  6803. ;-------------------------------------------------
  6804. ;初めて
  6805. ;記入チェック
  6806. LOCAL:1 = 0
  6807. ;-------------------------------------------------
  6808. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  6809. PRINTFORMW
  6810. RETURN 0
  6811. ENDIF
  6812. ;基本セット
  6813. ;装着
  6814. IF TEQUIP:ClitCap
  6815. ;時姦中
  6816. IF FLAG:70
  6817. PRINTFORMW
  6818. RETURN 0
  6819. ;Love
  6820. ELSEIF TALENT:Love
  6821. PRINTFORMW
  6822. RETURN 0
  6823. ;屈服3
  6824. ELSEIF MARK:不埒刻印 == 3
  6825. PRINTFORMW
  6826. RETURN 0
  6827. ;それ以外
  6828. ELSE
  6829. PRINTFORMW
  6830. RETURN 0
  6831. ENDIF
  6832. ;解除
  6833. ELSE
  6834. PRINTFORMW
  6835. ENDIF
  6836. ENDIF
  6837. RETURN 1
  6838.  
  6839. ;==================================================
  6840. ;43,Onahole
  6841. ;==================================================
  6842. @M_KOJO_MESSAGE_COM_K44_43
  6843. CALL TRAIN_MESSAGE
  6844. CALL M_KOJO_MESSAGE_COM_K44_43_1
  6845. RETURN RESULT
  6846.  
  6847. @M_KOJO_MESSAGE_COM_K44_43_1
  6848. ;-------------------------------------------------
  6849. ;記入チェック（=0, 非表示、1, 表示）
  6850. LOCAL = 0
  6851. ;-------------------------------------------------
  6852. IF LOCAL
  6853. ;-------------------------------------------------
  6854. ;小分岐
  6855. ;-------------------------------------------------
  6856. ;初めて
  6857. ;記入チェック
  6858. LOCAL:1 = 0
  6859. ;-------------------------------------------------
  6860. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  6861. PRINTFORMW
  6862. RETURN 0
  6863. ENDIF
  6864. ;基本セット
  6865. ;装着
  6866. IF TEQUIP:Onahole
  6867. ;Love
  6868. IF TALENT:Love
  6869. PRINTFORMW
  6870. RETURN 0
  6871. ;屈服3
  6872. ELSEIF MARK:不埒刻印 == 3
  6873. PRINTFORMW
  6874. RETURN 0
  6875. ;それ以外
  6876. ELSE
  6877. PRINTFORMW
  6878. RETURN 0
  6879. ENDIF
  6880. ;解除
  6881. ELSE
  6882. PRINTFORMW
  6883. ENDIF
  6884. ENDIF
  6885. RETURN 1
  6886.  
  6887. ;==================================================
  6888. ;44,Vibrator
  6889. ;==================================================
  6890. @M_KOJO_MESSAGE_COM_K44_44
  6891. CALL TRAIN_MESSAGE
  6892. CALL M_KOJO_MESSAGE_COM_K44_44_1
  6893. RETURN RESULT
  6894.  
  6895. @M_KOJO_MESSAGE_COM_K44_44_1
  6896. ;-------------------------------------------------
  6897. ;記入チェック（=0, 非表示、1, 表示）
  6898. LOCAL = 0
  6899. ;-------------------------------------------------
  6900. IF LOCAL
  6901. ;-------------------------------------------------
  6902. ;小分岐
  6903. ;-------------------------------------------------
  6904. ;初めて
  6905. ;記入チェック
  6906. LOCAL:1 = 0
  6907. ;-------------------------------------------------
  6908. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  6909. IF TALENT:Virgin == 1
  6910. PRINTFORMW
  6911. RETURN 0
  6912. ELSE
  6913. PRINTFORMW
  6914. RETURN 0
  6915. ENDIF
  6916. ENDIF
  6917. ;基本セット
  6918. ;装着
  6919. IF TEQUIP:Vibrator
  6920. ;時姦中
  6921. IF FLAG:70
  6922. PRINTFORMW
  6923. RETURN 0
  6924. ;Love
  6925. ELSEIF TALENT:Love
  6926. PRINTFORMW
  6927. RETURN 0
  6928. ;屈服3
  6929. ELSEIF MARK:不埒刻印 == 3
  6930. PRINTFORMW
  6931. RETURN 0
  6932. ;それ以外
  6933. ELSE
  6934. PRINTFORMW
  6935. RETURN 0
  6936. ENDIF
  6937. ;解除
  6938. ELSE
  6939. PRINTFORMW
  6940. ENDIF
  6941. ENDIF
  6942. RETURN 1
  6943.  
  6944. ;==================================================
  6945. ;45,AnalVibrator
  6946. ;==================================================
  6947. @M_KOJO_MESSAGE_COM_K44_45
  6948. CALL TRAIN_MESSAGE
  6949. CALL M_KOJO_MESSAGE_COM_K44_45_1
  6950. RETURN RESULT
  6951.  
  6952. @M_KOJO_MESSAGE_COM_K44_45_1
  6953. ;-------------------------------------------------
  6954. ;記入チェック（=0, 非表示、1, 表示）
  6955. LOCAL = 0
  6956. ;-------------------------------------------------
  6957. IF LOCAL
  6958. ;-------------------------------------------------
  6959. ;小分岐
  6960. ;-------------------------------------------------
  6961. ;初めて
  6962. ;記入チェック
  6963. LOCAL:1 = 0
  6964. ;-------------------------------------------------
  6965. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  6966. PRINTFORMW
  6967. RETURN 0
  6968. ENDIF
  6969. ;基本セット
  6970. ;装着
  6971. IF TEQUIP:AnalVibrator
  6972. ;時姦中
  6973. IF FLAG:70
  6974. PRINTFORMW
  6975. RETURN 0
  6976. ;Love
  6977. ELSEIF TALENT:Love
  6978. PRINTFORMW
  6979. RETURN 0
  6980. ;屈服3
  6981. ELSEIF MARK:不埒刻印 == 3
  6982. PRINTFORMW
  6983. RETURN 0
  6984. ;それ以外
  6985. ELSE
  6986. PRINTFORMW
  6987. RETURN 0
  6988. ENDIF
  6989. ;解除
  6990. ELSE
  6991. PRINTFORMW
  6992. ENDIF
  6993. ENDIF
  6994. RETURN 1
  6995.  
  6996. ;==================================================
  6997. ;46,アナルビーズ
  6998. ;==================================================
  6999. @M_KOJO_MESSAGE_COM_K44_46
  7000. CALL TRAIN_MESSAGE
  7001. CALL M_KOJO_MESSAGE_COM_K44_46_1
  7002. RETURN RESULT
  7003.  
  7004. @M_KOJO_MESSAGE_COM_K44_46_1
  7005. ;-------------------------------------------------
  7006. ;記入チェック（=0, 非表示、1, 表示）
  7007. LOCAL = 0
  7008. ;-------------------------------------------------
  7009. IF LOCAL
  7010. ;-------------------------------------------------
  7011. ;小分岐
  7012. ;-------------------------------------------------
  7013. ;初めて
  7014. ;記入チェック
  7015. LOCAL:1 = 0
  7016. ;-------------------------------------------------
  7017. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  7018. PRINTFORMW
  7019. RETURN 0
  7020. ENDIF
  7021. ;基本セット
  7022. ;装着
  7023. IF TEQUIP:アナルビーズ
  7024. ;Love
  7025. IF TALENT:Love
  7026. PRINTFORMW
  7027. RETURN 0
  7028. ;屈服3
  7029. ELSEIF MARK:不埒刻印 == 3
  7030. PRINTFORMW
  7031. RETURN 0
  7032. ;それ以外
  7033. ELSE
  7034. PRINTFORMW
  7035. RETURN 0
  7036. ENDIF
  7037. ;解除
  7038. ELSE
  7039. PRINTFORMW
  7040. ENDIF
  7041. ENDIF
  7042. RETURN 1
  7043.  
  7044. ;==================================================
  7045. ;47,NippleCup
  7046. ;==================================================
  7047. @M_KOJO_MESSAGE_COM_K44_47
  7048. CALL TRAIN_MESSAGE
  7049. CALL M_KOJO_MESSAGE_COM_K44_47_1
  7050. RETURN RESULT
  7051.  
  7052. @M_KOJO_MESSAGE_COM_K44_47_1
  7053. ;-------------------------------------------------
  7054. ;記入チェック（=0, 非表示、1, 表示）
  7055. LOCAL = 0
  7056. ;-------------------------------------------------
  7057. IF LOCAL
  7058. ;-------------------------------------------------
  7059. ;小分岐
  7060. ;-------------------------------------------------
  7061. ;初めて
  7062. ;記入チェック
  7063. LOCAL:1 = 0
  7064. ;-------------------------------------------------
  7065. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  7066. PRINTFORMW
  7067. RETURN 0
  7068. ENDIF
  7069. ;基本セット
  7070. ;装着
  7071. IF TEQUIP:NippleCup
  7072. ;時姦中
  7073. IF FLAG:70
  7074. PRINTFORMW
  7075. RETURN 0
  7076. ;Love
  7077. ELSEIF TALENT:Love
  7078. PRINTFORMW
  7079. RETURN 0
  7080. ;屈服3
  7081. ELSEIF MARK:不埒刻印 == 3
  7082. PRINTFORMW
  7083. RETURN 0
  7084. ;それ以外
  7085. ELSE
  7086. PRINTFORMW
  7087. RETURN 0
  7088. ENDIF
  7089. ;解除
  7090. ELSE
  7091. PRINTFORMW
  7092. ENDIF
  7093. ENDIF
  7094. RETURN 1
  7095. ;==================================================
  7096. ;48,搾乳機
  7097. ;==================================================
  7098. @M_KOJO_MESSAGE_COM_K44_48
  7099. CALL TRAIN_MESSAGE
  7100. CALL M_KOJO_MESSAGE_COM_K44_48_1
  7101. RETURN RESULT
  7102.  
  7103. @M_KOJO_MESSAGE_COM_K44_48_1
  7104. ;-------------------------------------------------
  7105. ;記入チェック（=0, 非表示、1, 表示）
  7106. LOCAL = 0
  7107. ;-------------------------------------------------
  7108. IF LOCAL
  7109. ;-------------------------------------------------
  7110. ;小分岐
  7111. ;-------------------------------------------------
  7112. ;初めて
  7113. ;記入チェック
  7114. LOCAL:1 = 0
  7115. ;-------------------------------------------------
  7116. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  7117. PRINTFORMW
  7118. RETURN 0
  7119. ENDIF
  7120. ;基本セット
  7121. ;装着
  7122. IF TEQUIP:搾乳機
  7123. ;Love
  7124. IF TALENT:Love
  7125. PRINTFORMW
  7126. RETURN 0
  7127. ;屈服3
  7128. ELSEIF MARK:不埒刻印 == 3
  7129. PRINTFORMW
  7130. RETURN 0
  7131. ;それ以外
  7132. ELSE
  7133. PRINTFORMW
  7134. RETURN 0
  7135. ENDIF
  7136. ;解除
  7137. ELSE
  7138. PRINTFORMW
  7139. ENDIF
  7140. ENDIF
  7141. RETURN 1
  7142. ;==================================================
  7143. ;49,乳首ローター
  7144. ;==================================================
  7145. @M_KOJO_MESSAGE_COM_K44_49
  7146. CALL TRAIN_MESSAGE
  7147. CALL M_KOJO_MESSAGE_COM_K44_49_1
  7148. RETURN RESULT
  7149.  
  7150. @M_KOJO_MESSAGE_COM_K44_49_1
  7151. ;-------------------------------------------------
  7152. ;記入チェック（=0, 非表示、1, 表示）
  7153. LOCAL = 0
  7154. ;-------------------------------------------------
  7155. IF LOCAL
  7156. ;-------------------------------------------------
  7157. ;小分岐
  7158. ;-------------------------------------------------
  7159. ;初めて
  7160. ;記入チェック
  7161. LOCAL:1 = 0
  7162. ;-------------------------------------------------
  7163. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  7164. PRINTFORMW
  7165. RETURN 0
  7166. ENDIF
  7167. ;基本セット
  7168. ;装着
  7169. IF TEQUIP:搾乳機
  7170. ;時姦中
  7171. IF FLAG:70
  7172. PRINTFORMW
  7173. RETURN 0
  7174. ;Love
  7175. ELSEIF TALENT:Love
  7176. PRINTFORMW
  7177. RETURN 0
  7178. ;屈服3
  7179. ELSEIF MARK:不埒刻印 == 3
  7180. PRINTFORMW
  7181. RETURN 0
  7182. ;それ以外
  7183. ELSE
  7184. PRINTFORMW
  7185. RETURN 0
  7186. ENDIF
  7187. ;解除
  7188. ELSE
  7189. PRINTFORMW
  7190. ENDIF
  7191. ENDIF
  7192. RETURN 1
  7193. ;※※※※※※※※※※※※※※※※※※※※※※※※※
  7194. ;性交系コマンド
  7195. ;※※※※※※※※※※※※※※※※※※※※※※※※※
  7196. ;==================================================
  7197. ;60,正常位
  7198. ;==================================================
  7199. @M_KOJO_MESSAGE_COM_K44_60
  7200. CALL TRAIN_MESSAGE
  7201. CALL M_KOJO_MESSAGE_COM_K44_60_1
  7202. RETURN RESULT
  7203.  
  7204. @M_KOJO_MESSAGE_COM_K44_60_1
  7205.  
  7206. ;-------------------------------------------------
  7207. ;立位
  7208. ;記入チェック（=0, 非表示、1, 表示）
  7209. LOCAL = 0
  7210. ;-------------------------------------------------
  7211. IF LOCAL && TFLAG:193
  7212. ;-------------------------------------------------
  7213. ;小分岐
  7214. ;-------------------------------------------------
  7215. ;初めて
  7216. ;記入チェック
  7217. LOCAL:1 = 0
  7218. ;-------------------------------------------------
  7219. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  7220. ;Virgin
  7221. IF TALENT:Virgin == 1
  7222. PRINTFORMW
  7223. RETURN 0
  7224. ELSE
  7225. PRINTFORMW
  7226. RETURN 0
  7227. ENDIF
  7228. ENDIF
  7229. ;-------------------------------------------------
  7230. ;挿入継続
  7231. ;記入チェック
  7232. LOCAL:1 = 0
  7233. ;-------------------------------------------------
  7234. IF LOCAL:1 && TCVAR:100 == PLAYER
  7235. ;前回射精した
  7236. IF TCVAR:102
  7237. PRINTFORMW
  7238. RETURN 0
  7239. ELSE
  7240. PRINTFORMW
  7241. RETURN 0
  7242. ENDIF
  7243. ENDIF
  7244. ;基本セット
  7245. ;時姦中
  7246. IF FLAG:70
  7247. PRINTFORMW
  7248. RETURN 0
  7249. ;Love
  7250. ELSEIF TALENT:Love
  7251. PRINTFORMW
  7252. RETURN 0
  7253. ;屈服3
  7254. ELSEIF MARK:不埒刻印 == 3
  7255. PRINTFORMW
  7256. RETURN 0
  7257. ;それ以外
  7258. ELSE
  7259. PRINTFORMW
  7260. RETURN 0
  7261. ENDIF
  7262. ENDIF
  7263. ;-------------------------------------------------
  7264. ;正常位
  7265. ;記入チェック（=0, 非表示、1, 表示）
  7266. LOCAL = 0
  7267. ;-------------------------------------------------
  7268. IF LOCAL
  7269. ;-------------------------------------------------
  7270. ;小分岐
  7271. ;-------------------------------------------------
  7272. ;初めて
  7273. ;記入チェック
  7274. LOCAL:1 = 0
  7275. ;-------------------------------------------------
  7276. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  7277. ;Virgin
  7278. IF TALENT:Virgin == 1
  7279. PRINTFORMW
  7280. RETURN 0
  7281. ELSE
  7282. PRINTFORMW
  7283. RETURN 0
  7284. ENDIF
  7285. ENDIF
  7286. ;-------------------------------------------------
  7287. ;挿入継続
  7288. ;記入チェック
  7289. LOCAL:1 = 0
  7290. ;-------------------------------------------------
  7291. IF LOCAL:1 && TCVAR:100 == PLAYER
  7292. ;前回射精した
  7293. IF TCVAR:102
  7294. PRINTFORMW
  7295. RETURN 0
  7296. ELSE
  7297. PRINTFORMW
  7298. RETURN 0
  7299. ENDIF
  7300. ENDIF
  7301. ;基本セット
  7302. ;時姦中
  7303. IF FLAG:70
  7304. PRINTFORMW
  7305. RETURN 0
  7306. ;Love
  7307. ELSEIF TALENT:Love
  7308. PRINTFORMW
  7309. RETURN 0
  7310. ;屈服3
  7311. ELSEIF MARK:不埒刻印 == 3
  7312. PRINTFORMW
  7313. RETURN 0
  7314. ;それ以外
  7315. ELSE
  7316. PRINTFORMW
  7317. RETURN 0
  7318. ENDIF
  7319. ENDIF
  7320. RETURN 1
  7321.  
  7322. ;==================================================
  7323. ;61,後背位
  7324. ;==================================================
  7325. @M_KOJO_MESSAGE_COM_K44_61
  7326. CALL TRAIN_MESSAGE
  7327. CALL M_KOJO_MESSAGE_COM_K44_61_1
  7328. RETURN RESULT
  7329.  
  7330. @M_KOJO_MESSAGE_COM_K44_61_1
  7331. ;-------------------------------------------------
  7332. ;立位
  7333. ;記入チェック（=0, 非表示、1, 表示）
  7334. LOCAL = 0
  7335. ;-------------------------------------------------
  7336. IF LOCAL && TFLAG:193
  7337. ;-------------------------------------------------
  7338. ;小分岐
  7339. ;-------------------------------------------------
  7340. ;初めて
  7341. ;記入チェック
  7342. LOCAL:1 = 0
  7343. ;-------------------------------------------------
  7344. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  7345. ;Virgin
  7346. IF TALENT:Virgin == 1
  7347. PRINTFORMW
  7348. RETURN 0
  7349. ELSE
  7350. PRINTFORMW
  7351. RETURN 0
  7352. ENDIF
  7353. ENDIF
  7354. ;-------------------------------------------------
  7355. ;挿入継続
  7356. ;記入チェック
  7357. LOCAL:1 = 0
  7358. ;-------------------------------------------------
  7359. IF LOCAL:1 && TCVAR:100 == PLAYER
  7360. ;前回射精した
  7361. IF TCVAR:102
  7362. PRINTFORMW
  7363. RETURN 0
  7364. ELSE
  7365. PRINTFORMW
  7366. RETURN 0
  7367. ENDIF
  7368. ENDIF
  7369. ;基本セット
  7370. ;時姦中
  7371. IF FLAG:70
  7372. PRINTFORMW
  7373. RETURN 0
  7374. ;Love
  7375. ELSEIF TALENT:Love
  7376. PRINTFORMW
  7377. RETURN 0
  7378. ;屈服3
  7379. ELSEIF MARK:不埒刻印 == 3
  7380. PRINTFORMW
  7381. RETURN 0
  7382. ;それ以外
  7383. ELSE
  7384. PRINTFORMW
  7385. RETURN 0
  7386. ENDIF
  7387. ENDIF
  7388. ;-------------------------------------------------
  7389. ;後背位
  7390. ;記入チェック（=0, 非表示、1, 表示）
  7391. LOCAL = 0
  7392. ;-------------------------------------------------
  7393. IF LOCAL
  7394. ;-------------------------------------------------
  7395. ;小分岐
  7396. ;-------------------------------------------------
  7397. ;初めて
  7398. ;記入チェック
  7399. LOCAL:1 = 0
  7400. ;-------------------------------------------------
  7401. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  7402. ;Virgin
  7403. IF TALENT:Virgin == 1
  7404. PRINTFORMW
  7405. RETURN 0
  7406. ELSE
  7407. PRINTFORMW
  7408. RETURN 0
  7409. ENDIF
  7410. ENDIF
  7411. ;-------------------------------------------------
  7412. ;挿入継続
  7413. ;記入チェック
  7414. LOCAL:1 = 0
  7415. ;-------------------------------------------------
  7416. IF LOCAL:1 && TCVAR:100 == PLAYER
  7417. ;前回射精した
  7418. IF TCVAR:102
  7419. PRINTFORMW
  7420. RETURN 0
  7421. ELSE
  7422. PRINTFORMW
  7423. RETURN 0
  7424. ENDIF
  7425. ENDIF
  7426. ;基本セット
  7427. ;時姦中
  7428. IF FLAG:70
  7429. PRINTFORMW
  7430. RETURN 0
  7431. ;Love
  7432. ELSEIF TALENT:Love
  7433. PRINTFORMW
  7434. RETURN 0
  7435. ;屈服3
  7436. ELSEIF MARK:不埒刻印 == 3
  7437. PRINTFORMW
  7438. RETURN 0
  7439. ;それ以外
  7440. ELSE
  7441. PRINTFORMW
  7442. RETURN 0
  7443. ENDIF
  7444. ENDIF
  7445. RETURN 1
  7446.  
  7447. ;==================================================
  7448. ;62,正常位アナル
  7449. ;==================================================
  7450. @M_KOJO_MESSAGE_COM_K44_62
  7451. CALL TRAIN_MESSAGE
  7452. CALL M_KOJO_MESSAGE_COM_K44_62_1
  7453. RETURN RESULT
  7454.  
  7455. @M_KOJO_MESSAGE_COM_K44_62_1
  7456. ;-------------------------------------------------
  7457. ;立位
  7458. ;記入チェック（=0, 非表示、1, 表示）
  7459. LOCAL = 0
  7460. ;-------------------------------------------------
  7461. IF LOCAL && TFLAG:193
  7462. ;-------------------------------------------------
  7463. ;小分岐
  7464. ;-------------------------------------------------
  7465. ;初めて
  7466. ;記入チェック
  7467. LOCAL:1 = 0
  7468. ;-------------------------------------------------
  7469. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  7470. ;アナル処女
  7471. IF !EXP:Ａ性交経験
  7472. PRINTFORMW
  7473. RETURN 0
  7474. ELSE
  7475. PRINTFORMW
  7476. RETURN 0
  7477. ENDIF
  7478. ENDIF
  7479. ;-------------------------------------------------
  7480. ;挿入継続
  7481. ;記入チェック
  7482. LOCAL:1 = 0
  7483. ;-------------------------------------------------
  7484. IF LOCAL:1 && TCVAR:101 == PLAYER
  7485. ;前回射精した
  7486. IF TCVAR:104
  7487. PRINTFORMW
  7488. RETURN 0
  7489. ELSE
  7490. PRINTFORMW
  7491. RETURN 0
  7492. ENDIF
  7493. ENDIF
  7494. ;基本セット
  7495. ;時姦中
  7496. IF FLAG:70
  7497. PRINTFORMW
  7498. RETURN 0
  7499. ;Love
  7500. ELSEIF TALENT:Love
  7501. PRINTFORMW
  7502. RETURN 0
  7503. ;屈服3
  7504. ELSEIF MARK:不埒刻印 == 3
  7505. PRINTFORMW
  7506. RETURN 0
  7507. ;それ以外
  7508. ELSE
  7509. PRINTFORMW
  7510. RETURN 0
  7511. ENDIF
  7512. ENDIF
  7513. ;-------------------------------------------------
  7514. ;正常位
  7515. ;記入チェック（=0, 非表示、1, 表示）
  7516. LOCAL = 0
  7517. ;-------------------------------------------------
  7518. IF LOCAL
  7519. ;-------------------------------------------------
  7520. ;小分岐
  7521. ;-------------------------------------------------
  7522. ;初めて
  7523. ;記入チェック
  7524. LOCAL:1 = 0
  7525. ;-------------------------------------------------
  7526. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  7527. ;アナル処女
  7528. IF !EXP:Ａ性交経験
  7529. PRINTFORMW
  7530. RETURN 0
  7531. ELSE
  7532. PRINTFORMW
  7533. RETURN 0
  7534. ENDIF
  7535. ENDIF
  7536. ;-------------------------------------------------
  7537. ;挿入継続
  7538. ;記入チェック
  7539. LOCAL:1 = 0
  7540. ;-------------------------------------------------
  7541. IF LOCAL:1 && TCVAR:101 == PLAYER
  7542. ;前回射精した
  7543. IF TCVAR:104
  7544. PRINTFORMW
  7545. RETURN 0
  7546. ELSE
  7547. PRINTFORMW
  7548. RETURN 0
  7549. ENDIF
  7550. ENDIF
  7551. ;基本セット
  7552. ;時姦中
  7553. IF FLAG:70
  7554. PRINTFORMW
  7555. RETURN 0
  7556. ;Love
  7557. ELSEIF TALENT:Love
  7558. PRINTFORMW
  7559. RETURN 0
  7560. ;屈服3
  7561. ELSEIF MARK:不埒刻印 == 3
  7562. PRINTFORMW
  7563. RETURN 0
  7564. ;それ以外
  7565. ELSE
  7566. PRINTFORMW
  7567. RETURN 0
  7568. ENDIF
  7569. ENDIF
  7570. RETURN 1
  7571.  
  7572. ;==================================================
  7573. ;63,後背位アナル
  7574. ;==================================================
  7575. @M_KOJO_MESSAGE_COM_K44_63
  7576. CALL TRAIN_MESSAGE
  7577. CALL M_KOJO_MESSAGE_COM_K44_63_1
  7578. RETURN RESULT
  7579.  
  7580. @M_KOJO_MESSAGE_COM_K44_63_1
  7581. ;-------------------------------------------------
  7582. ;立位
  7583. ;記入チェック（=0, 非表示、1, 表示）
  7584. LOCAL = 0
  7585. ;-------------------------------------------------
  7586. IF LOCAL && TFLAG:193
  7587. ;-------------------------------------------------
  7588. ;小分岐
  7589. ;-------------------------------------------------
  7590. ;初めて
  7591. ;記入チェック
  7592. LOCAL:1 = 0
  7593. ;-------------------------------------------------
  7594. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  7595. ;アナル処女
  7596. IF !EXP:Ａ性交経験
  7597. PRINTFORMW
  7598. RETURN 0
  7599. ELSE
  7600. PRINTFORMW
  7601. RETURN 0
  7602. ENDIF
  7603. ENDIF
  7604. ;-------------------------------------------------
  7605. ;挿入継続
  7606. ;記入チェック
  7607. LOCAL:1 = 0
  7608. ;-------------------------------------------------
  7609. IF LOCAL:1 && TCVAR:101 == PLAYER
  7610. ;前回射精した
  7611. IF TCVAR:104
  7612. PRINTFORMW
  7613. RETURN 0
  7614. ELSE
  7615. PRINTFORMW
  7616. RETURN 0
  7617. ENDIF
  7618. ENDIF
  7619. ;基本セット
  7620. ;時姦中
  7621. IF FLAG:70
  7622. PRINTFORMW
  7623. RETURN 0
  7624. ;Love
  7625. ELSEIF TALENT:Love
  7626. PRINTFORMW
  7627. RETURN 0
  7628. ;屈服3
  7629. ELSEIF MARK:不埒刻印 == 3
  7630. PRINTFORMW
  7631. RETURN 0
  7632. ;それ以外
  7633. ELSE
  7634. PRINTFORMW
  7635. RETURN 0
  7636. ENDIF
  7637. ENDIF
  7638. ;-------------------------------------------------
  7639. ;後背位
  7640. ;記入チェック（=0, 非表示、1, 表示）
  7641. LOCAL = 0
  7642. ;-------------------------------------------------
  7643. IF LOCAL
  7644. ;-------------------------------------------------
  7645. ;小分岐
  7646. ;-------------------------------------------------
  7647. ;初めて
  7648. ;記入チェック
  7649. LOCAL:1 = 0
  7650. ;-------------------------------------------------
  7651. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  7652. ;アナル処女
  7653. IF !EXP:Ａ性交経験
  7654. PRINTFORMW
  7655. RETURN 0
  7656. ELSE
  7657. PRINTFORMW
  7658. RETURN 0
  7659. ENDIF
  7660. ENDIF
  7661. ;-------------------------------------------------
  7662. ;挿入継続
  7663. ;記入チェック
  7664. LOCAL:1 = 0
  7665. ;-------------------------------------------------
  7666. IF LOCAL:1 && TCVAR:101 == PLAYER
  7667. ;前回射精した
  7668. IF TCVAR:104
  7669. PRINTFORMW
  7670. RETURN 0
  7671. ELSE
  7672. PRINTFORMW
  7673. RETURN 0
  7674. ENDIF
  7675. ENDIF
  7676. ;基本セット
  7677. ;時姦中
  7678. IF FLAG:70
  7679. PRINTFORMW
  7680. RETURN 0
  7681. ;Love
  7682. ELSEIF TALENT:Love
  7683. PRINTFORMW
  7684. RETURN 0
  7685. ;屈服3
  7686. ELSEIF MARK:不埒刻印 == 3
  7687. PRINTFORMW
  7688. RETURN 0
  7689. ;それ以外
  7690. ELSE
  7691. PRINTFORMW
  7692. RETURN 0
  7693. ENDIF
  7694. ENDIF
  7695. RETURN 1
  7696.  
  7697. ;==================================================
  7698. ;64,逆レイプ
  7699. ;==================================================
  7700. @M_KOJO_MESSAGE_COM_K44_64
  7701. CALL TRAIN_MESSAGE
  7702. CALL M_KOJO_MESSAGE_COM_K44_64_1
  7703. RETURN RESULT
  7704.  
  7705. @M_KOJO_MESSAGE_COM_K44_64_1
  7706. ;-------------------------------------------------
  7707. ;記入チェック（=0, 非表示、1, 表示）
  7708. LOCAL = 0
  7709. ;-------------------------------------------------
  7710. IF LOCAL
  7711. ;-------------------------------------------------
  7712. ;小分岐
  7713. ;-------------------------------------------------
  7714. ;初めて
  7715. ;記入チェック
  7716. LOCAL:1 = 0
  7717. ;-------------------------------------------------
  7718. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  7719. ;調教者が処女
  7720. IF TALENT:PLAYER:Virgin == 1
  7721. PRINTFORMW
  7722. RETURN 0
  7723. ELSE
  7724. PRINTFORMW
  7725. RETURN 0
  7726. ENDIF
  7727. ENDIF
  7728. ;-------------------------------------------------
  7729. ;挿入継続
  7730. ;記入チェック
  7731. LOCAL:1 = 0
  7732. ;-------------------------------------------------
  7733. IF LOCAL:1 && TCVAR:PLAYER:100 == TARGET
  7734. ;前回射精した
  7735. IF TCVAR:PLAYER:102
  7736. PRINTFORMW
  7737. RETURN 0
  7738. ELSE
  7739. PRINTFORMW
  7740. RETURN 0
  7741. ENDIF
  7742. ENDIF
  7743. ;基本セット
  7744. ;Love
  7745. IF TALENT:Love
  7746. PRINTFORMW
  7747. RETURN 0
  7748. ;屈服3
  7749. ELSEIF MARK:不埒刻印 == 3
  7750. PRINTFORMW
  7751. RETURN 0
  7752. ;それ以外
  7753. ELSE
  7754. PRINTFORMW
  7755. RETURN 0
  7756. ENDIF
  7757. ENDIF
  7758. RETURN 1
  7759.  
  7760. ;==================================================
  7761. ;65,騎乗位
  7762. ;==================================================
  7763. @M_KOJO_MESSAGE_COM_K44_65
  7764. CALL TRAIN_MESSAGE
  7765. CALL M_KOJO_MESSAGE_COM_K44_65_1
  7766. RETURN RESULT
  7767.  
  7768. @M_KOJO_MESSAGE_COM_K44_65_1
  7769. ;-------------------------------------------------
  7770. ;記入チェック（=0, 非表示、1, 表示）
  7771. LOCAL = 1
  7772. ;-------------------------------------------------
  7773. IF LOCAL
  7774. ;-------------------------------------------------
  7775. ;小分岐
  7776. ;-------------------------------------------------
  7777. ;初めて
  7778. ;記入チェック
  7779. LOCAL:1 = 1
  7780. ;-------------------------------------------------
  7781. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  7782. ;Virgin
  7783. IF TALENT:Virgin == 1
  7784. PRINTFORMW
  7785. ;恋人かつ恋慕なら異常経験上がらない
  7786. SIF TALENT:Lover && TALENT:Love
  7787. EXP:異常経験 -= 2
  7788. RETURN 0
  7789. ELSE
  7790. PRINTFORMW
  7791. RETURN 0
  7792. ENDIF
  7793. ENDIF
  7794. ;-------------------------------------------------
  7795. ;挿入継続
  7796. ;記入チェック
  7797. LOCAL:1 = 0
  7798. ;-------------------------------------------------
  7799. IF LOCAL:1 && TCVAR:100 == PLAYER
  7800. ;前回射精した
  7801. IF TCVAR:102
  7802. PRINTFORMW
  7803. RETURN 0
  7804. ELSE
  7805. PRINTFORMW
  7806. RETURN 0
  7807. ENDIF
  7808. ENDIF
  7809. ;基本セット
  7810. ;時姦中
  7811. IF FLAG:70
  7812. PRINTFORMW
  7813. RETURN 0
  7814. ;Love
  7815. ELSEIF TALENT:Love
  7816. PRINTFORMW
  7817. RETURN 0
  7818. ;屈服3
  7819. ELSEIF MARK:不埒刻印 == 3
  7820. PRINTFORMW
  7821. RETURN 0
  7822. ;それ以外
  7823. ELSE
  7824. PRINTFORMW
  7825. RETURN 0
  7826. ENDIF
  7827. ENDIF
  7828. RETURN 1
  7829.  
  7830. ;==================================================
  7831. ;66,騎乗位アナル
  7832. ;==================================================
  7833. @M_KOJO_MESSAGE_COM_K44_66
  7834. CALL TRAIN_MESSAGE
  7835. CALL M_KOJO_MESSAGE_COM_K44_66_1
  7836. RETURN RESULT
  7837.  
  7838. @M_KOJO_MESSAGE_COM_K44_66_1
  7839. ;-------------------------------------------------
  7840. ;記入チェック（=0, 非表示、1, 表示）
  7841. LOCAL = 0
  7842. ;-------------------------------------------------
  7843. IF LOCAL
  7844. ;-------------------------------------------------
  7845. ;小分岐
  7846. ;-------------------------------------------------
  7847. ;初めて
  7848. ;記入チェック
  7849. LOCAL:1 = 0
  7850. ;-------------------------------------------------
  7851. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  7852. ;アナル処女
  7853. IF !EXP:Ａ性交経験
  7854. PRINTFORMW
  7855. RETURN 0
  7856. ELSE
  7857. PRINTFORMW
  7858. RETURN 0
  7859. ENDIF
  7860. ENDIF
  7861. ;-------------------------------------------------
  7862. ;挿入継続
  7863. ;記入チェック
  7864. LOCAL:1 = 0
  7865. ;-------------------------------------------------
  7866. IF LOCAL:1 && TCVAR:101 == PLAYER
  7867. ;前回射精した
  7868. IF TCVAR:104
  7869. PRINTFORMW
  7870. RETURN 0
  7871. ELSE
  7872. PRINTFORMW
  7873. RETURN 0
  7874. ENDIF
  7875. ENDIF
  7876. ;基本セット
  7877. ;時姦中
  7878. IF FLAG:70
  7879. PRINTFORMW
  7880. RETURN 0
  7881. ;Love
  7882. ELSEIF TALENT:Love
  7883. PRINTFORMW
  7884. RETURN 0
  7885. ;屈服3
  7886. ELSEIF MARK:不埒刻印 == 3
  7887. PRINTFORMW
  7888. RETURN 0
  7889. ;それ以外
  7890. ELSE
  7891. PRINTFORMW
  7892. RETURN 0
  7893. ENDIF
  7894. ENDIF
  7895. RETURN 1
  7896.  
  7897. ;==================================================
  7898. ;67,対面座位
  7899. ;==================================================
  7900. @M_KOJO_MESSAGE_COM_K44_67
  7901. CALL TRAIN_MESSAGE
  7902. CALL M_KOJO_MESSAGE_COM_K44_67_1
  7903. RETURN RESULT
  7904.  
  7905. @M_KOJO_MESSAGE_COM_K44_67_1
  7906. ;-------------------------------------------------
  7907. ;記入チェック（=0, 非表示、1, 表示）
  7908. LOCAL = 0
  7909. ;-------------------------------------------------
  7910. IF LOCAL
  7911. ;-------------------------------------------------
  7912. ;小分岐
  7913. ;-------------------------------------------------
  7914. ;初めて
  7915. ;記入チェック
  7916. LOCAL:1 = 0
  7917. ;-------------------------------------------------
  7918. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  7919. ;Virgin
  7920. IF TALENT:Virgin == 1
  7921. PRINTFORMW
  7922. RETURN 0
  7923. ELSE
  7924. PRINTFORMW
  7925. RETURN 0
  7926. ENDIF
  7927. ENDIF
  7928. ;-------------------------------------------------
  7929. ;挿入継続
  7930. ;記入チェック
  7931. LOCAL:1 = 0
  7932. ;-------------------------------------------------
  7933. IF LOCAL:1 && TCVAR:100 == PLAYER
  7934. ;前回射精した
  7935. IF TCVAR:102
  7936. PRINTFORMW
  7937. RETURN 0
  7938. ELSE
  7939. PRINTFORMW
  7940. RETURN 0
  7941. ENDIF
  7942. ENDIF
  7943. ;基本セット
  7944. ;Love
  7945. IF TALENT:Love
  7946. PRINTFORMW
  7947. RETURN 0
  7948. ;屈服3
  7949. ELSEIF MARK:不埒刻印 == 3
  7950. PRINTFORMW
  7951. RETURN 0
  7952. ;それ以外
  7953. ELSE
  7954. PRINTFORMW
  7955. RETURN 0
  7956. ENDIF
  7957. ENDIF
  7958. RETURN 1
  7959.  
  7960. ;==================================================
  7961. ;68,背面座位
  7962. ;==================================================
  7963. @M_KOJO_MESSAGE_COM_K44_68
  7964. CALL TRAIN_MESSAGE
  7965. CALL M_KOJO_MESSAGE_COM_K44_68_1
  7966. RETURN RESULT
  7967.  
  7968. @M_KOJO_MESSAGE_COM_K44_68_1
  7969. ;-------------------------------------------------
  7970. ;記入チェック（=0, 非表示、1, 表示）
  7971. LOCAL = 0
  7972. ;-------------------------------------------------
  7973. IF LOCAL
  7974. ;-------------------------------------------------
  7975. ;小分岐
  7976. ;-------------------------------------------------
  7977. ;初めて
  7978. ;記入チェック
  7979. LOCAL:1 = 0
  7980. ;-------------------------------------------------
  7981. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  7982. ;Virgin
  7983. IF TALENT:Virgin == 1
  7984. PRINTFORMW
  7985. RETURN 0
  7986. ELSE
  7987. PRINTFORMW
  7988. RETURN 0
  7989. ENDIF
  7990. ENDIF
  7991. ;-------------------------------------------------
  7992. ;挿入継続
  7993. ;記入チェック
  7994. LOCAL:1 = 0
  7995. ;-------------------------------------------------
  7996. IF LOCAL:1 && TCVAR:100 == PLAYER
  7997. ;前回射精した
  7998. IF TCVAR:102
  7999. PRINTFORMW
  8000. RETURN 0
  8001. ELSE
  8002. PRINTFORMW
  8003. RETURN 0
  8004. ENDIF
  8005. ENDIF
  8006. ;基本セット
  8007. ;Love
  8008. IF TALENT:Love
  8009. PRINTFORMW
  8010. RETURN 0
  8011. ;屈服3
  8012. ELSEIF MARK:不埒刻印 == 3
  8013. PRINTFORMW
  8014. RETURN 0
  8015. ;それ以外
  8016. ELSE
  8017. PRINTFORMW
  8018. RETURN 0
  8019. ENDIF
  8020. ENDIF
  8021. RETURN 1
  8022.  
  8023. ;==================================================
  8024. ;69,対面座位アナル
  8025. ;==================================================
  8026. @M_KOJO_MESSAGE_COM_K44_69
  8027. CALL TRAIN_MESSAGE
  8028. CALL M_KOJO_MESSAGE_COM_K44_69_1
  8029. RETURN RESULT
  8030.  
  8031. @M_KOJO_MESSAGE_COM_K44_69_1
  8032. ;-------------------------------------------------
  8033. ;記入チェック（=0, 非表示、1, 表示）
  8034. LOCAL = 0
  8035. ;-------------------------------------------------
  8036. IF LOCAL
  8037. ;-------------------------------------------------
  8038. ;小分岐
  8039. ;-------------------------------------------------
  8040. ;初めて
  8041. ;記入チェック
  8042. LOCAL:1 = 0
  8043. ;-------------------------------------------------
  8044. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  8045. ;アナル処女
  8046. IF !EXP:Ａ性交経験
  8047. PRINTFORMW
  8048. RETURN 0
  8049. ELSE
  8050. PRINTFORMW
  8051. RETURN 0
  8052. ENDIF
  8053. ENDIF
  8054. ;-------------------------------------------------
  8055. ;挿入継続
  8056. ;記入チェック
  8057. LOCAL:1 = 0
  8058. ;-------------------------------------------------
  8059. IF LOCAL:1 && TCVAR:101 == PLAYER
  8060. ;前回射精した
  8061. IF TCVAR:104
  8062. PRINTFORMW
  8063. RETURN 0
  8064. ELSE
  8065. PRINTFORMW
  8066. RETURN 0
  8067. ENDIF
  8068. ENDIF
  8069. ;基本セット
  8070. ;Love
  8071. IF TALENT:Love
  8072. PRINTFORMW
  8073. RETURN 0
  8074. ;屈服3
  8075. ELSEIF MARK:不埒刻印 == 3
  8076. PRINTFORMW
  8077. RETURN 0
  8078. ;それ以外
  8079. ELSE
  8080. PRINTFORMW
  8081. RETURN 0
  8082. ENDIF
  8083. ENDIF
  8084. RETURN 1
  8085.  
  8086. ;==================================================
  8087. ;70,背面座位アナル
  8088. ;==================================================
  8089. @M_KOJO_MESSAGE_COM_K44_70
  8090. CALL TRAIN_MESSAGE
  8091. CALL M_KOJO_MESSAGE_COM_K44_70_1
  8092. RETURN RESULT
  8093.  
  8094. @M_KOJO_MESSAGE_COM_K44_70_1
  8095. ;-------------------------------------------------
  8096. ;記入チェック（=0, 非表示、1, 表示）
  8097. LOCAL = 0
  8098. ;-------------------------------------------------
  8099. IF LOCAL
  8100. ;-------------------------------------------------
  8101. ;小分岐
  8102. ;-------------------------------------------------
  8103. ;初めて
  8104. ;記入チェック
  8105. LOCAL:1 = 0
  8106. ;-------------------------------------------------
  8107. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  8108. ;アナル処女
  8109. IF !EXP:Ａ性交経験
  8110. PRINTFORMW
  8111. RETURN 0
  8112. ELSE
  8113. PRINTFORMW
  8114. RETURN 0
  8115. ENDIF
  8116. ENDIF
  8117. ;-------------------------------------------------
  8118. ;挿入継続
  8119. ;記入チェック
  8120. LOCAL:1 = 0
  8121. ;-------------------------------------------------
  8122. IF LOCAL:1 && TCVAR:101 == PLAYER
  8123. ;前回射精した
  8124. IF TCVAR:104
  8125. PRINTFORMW
  8126. RETURN 0
  8127. ELSE
  8128. PRINTFORMW
  8129. RETURN 0
  8130. ENDIF
  8131. ENDIF
  8132. ;基本セット
  8133. ;Love
  8134. IF TALENT:Love
  8135. PRINTFORMW
  8136. RETURN 0
  8137. ;屈服3
  8138. ELSEIF MARK:不埒刻印 == 3
  8139. PRINTFORMW
  8140. RETURN 0
  8141. ;それ以外
  8142. ELSE
  8143. PRINTFORMW
  8144. RETURN 0
  8145. ENDIF
  8146. ENDIF
  8147. RETURN 1
  8148.  
  8149. ;==================================================
  8150. ;71,二穴挿し
  8151. ;==================================================
  8152. @M_KOJO_MESSAGE_COM_K44_71
  8153. CALL TRAIN_MESSAGE
  8154. CALL M_KOJO_MESSAGE_COM_K44_71_1
  8155. RETURN RESULT
  8156.  
  8157. @M_KOJO_MESSAGE_COM_K44_71_1
  8158. ;-------------------------------------------------
  8159. ;記入チェック（=0, 非表示、1, 表示）
  8160. LOCAL = 0
  8161. ;-------------------------------------------------
  8162. IF LOCAL
  8163. ;考えうる分岐が多すぎるので地の文の大まかな分岐だけ
  8164. ;連続
  8165. IF PREVCOM == SELECTCOM
  8166. PRINTFORMW
  8167. RETURN 0
  8168. ;主人V挿入→助手A挿入
  8169. ELSEIF TCVAR:100 == MASTER
  8170. PRINTFORMW
  8171. RETURN 0
  8172. ;主人A挿入→助手V挿入
  8173. ELSEIF TCVAR:101 == MASTER
  8174. PRINTFORMW
  8175. RETURN 0
  8176. ;助手V挿入→主人A挿入
  8177. ELSEIF TCVAR:100 == ASSI
  8178. PRINTFORMW
  8179. RETURN 0
  8180. ;助手A挿入→主人V挿入
  8181. ELSEIF TCVAR:101 == ASSI
  8182. PRINTFORMW
  8183. RETURN 0
  8184. ENDIF
  8185. ENDIF
  8186. RETURN 1
  8187.  
  8188. ;==================================================
  8189. ;72,挿入Ｇスポット責め
  8190. ;==================================================
  8191. @M_KOJO_MESSAGE_COM_K44_72
  8192. CALL TRAIN_MESSAGE
  8193. CALL M_KOJO_MESSAGE_COM_K44_72_1
  8194. RETURN RESULT
  8195.  
  8196. @M_KOJO_MESSAGE_COM_K44_72_1
  8197. ;-------------------------------------------------
  8198. ;記入チェック（=0, 非表示、1, 表示）
  8199. LOCAL = 0
  8200. ;-------------------------------------------------
  8201. IF LOCAL
  8202. ;-------------------------------------------------
  8203. ;小分岐
  8204. ;-------------------------------------------------
  8205. ;初めて
  8206. ;記入チェック
  8207. LOCAL:1 = 0
  8208. ;-------------------------------------------------
  8209. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  8210. ;アナル処女
  8211. IF !EXP:Ａ性交経験
  8212. PRINTFORMW
  8213. RETURN 0
  8214. ELSE
  8215. PRINTFORMW
  8216. RETURN 0
  8217. ENDIF
  8218. ENDIF
  8219. ;-------------------------------------------------
  8220. ;挿入継続
  8221. ;記入チェック
  8222. LOCAL:1 = 0
  8223. ;-------------------------------------------------
  8224. IF LOCAL:1 && TCVAR:101 == PLAYER
  8225. ;前回射精した
  8226. IF TCVAR:104
  8227. PRINTFORMW
  8228. RETURN 0
  8229. ELSE
  8230. PRINTFORMW
  8231. RETURN 0
  8232. ENDIF
  8233. ENDIF
  8234. ;基本セット
  8235. ;Love
  8236. IF TALENT:Love
  8237. PRINTFORMW
  8238. RETURN 0
  8239. ;屈服3
  8240. ELSEIF MARK:不埒刻印 == 3
  8241. PRINTFORMW
  8242. RETURN 0
  8243. ;それ以外
  8244. ELSE
  8245. PRINTFORMW
  8246. RETURN 0
  8247. ENDIF
  8248. ENDIF
  8249. RETURN 1
  8250.  
  8251. ;==================================================
  8252. ;73,挿入子宮口責め
  8253. ;==================================================
  8254. @M_KOJO_MESSAGE_COM_K44_73
  8255. CALL TRAIN_MESSAGE
  8256. CALL M_KOJO_MESSAGE_COM_K44_73_1
  8257. RETURN RESULT
  8258.  
  8259. @M_KOJO_MESSAGE_COM_K44_73_1
  8260. ;-------------------------------------------------
  8261. ;記入チェック（=0, 非表示、1, 表示）
  8262. LOCAL = 0
  8263. ;-------------------------------------------------
  8264. IF LOCAL
  8265. ;-------------------------------------------------
  8266. ;小分岐
  8267. ;-------------------------------------------------
  8268. ;初めて
  8269. ;記入チェック
  8270. LOCAL:1 = 0
  8271. ;-------------------------------------------------
  8272. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  8273. ;アナル処女
  8274. IF !EXP:Ａ性交経験
  8275. PRINTFORMW
  8276. RETURN 0
  8277. ELSE
  8278. PRINTFORMW
  8279. RETURN 0
  8280. ENDIF
  8281. ENDIF
  8282. ;-------------------------------------------------
  8283. ;挿入継続
  8284. ;記入チェック
  8285. LOCAL:1 = 0
  8286. ;-------------------------------------------------
  8287. IF LOCAL:1 && TCVAR:101 == PLAYER
  8288. ;前回射精した
  8289. IF TCVAR:104
  8290. PRINTFORMW
  8291. RETURN 0
  8292. ELSE
  8293. PRINTFORMW
  8294. RETURN 0
  8295. ENDIF
  8296. ENDIF
  8297. ;基本セット
  8298. ;Love
  8299. IF TALENT:Love
  8300. PRINTFORMW
  8301. RETURN 0
  8302. ;屈服3
  8303. ELSEIF MARK:不埒刻印 == 3
  8304. PRINTFORMW
  8305. RETURN 0
  8306. ;それ以外
  8307. ELSE
  8308. PRINTFORMW
  8309. RETURN 0
  8310. ENDIF
  8311. ENDIF
  8312. RETURN 1
  8313.  
  8314. ;==================================================
  8315. ;74,Ｓ状結腸責め
  8316. ;==================================================
  8317. @M_KOJO_MESSAGE_COM_K44_74
  8318. CALL TRAIN_MESSAGE
  8319. CALL M_KOJO_MESSAGE_COM_K44_74_1
  8320. RETURN RESULT
  8321.  
  8322. @M_KOJO_MESSAGE_COM_K44_74_1
  8323. ;-------------------------------------------------
  8324. ;記入チェック（=0, 非表示、1, 表示）
  8325. LOCAL = 0
  8326. ;-------------------------------------------------
  8327. IF LOCAL
  8328. ;-------------------------------------------------
  8329. ;小分岐
  8330. ;-------------------------------------------------
  8331. ;初めて
  8332. ;記入チェック
  8333. LOCAL:1 = 0
  8334. ;-------------------------------------------------
  8335. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  8336. ;アナル処女
  8337. IF !EXP:Ａ性交経験
  8338. PRINTFORMW
  8339. RETURN 0
  8340. ELSE
  8341. PRINTFORMW
  8342. RETURN 0
  8343. ENDIF
  8344. ENDIF
  8345. ;-------------------------------------------------
  8346. ;挿入継続
  8347. ;記入チェック
  8348. LOCAL:1 = 0
  8349. ;-------------------------------------------------
  8350. IF LOCAL:1 && TCVAR:101 == PLAYER
  8351. ;前回射精した
  8352. IF TCVAR:104
  8353. PRINTFORMW
  8354. RETURN 0
  8355. ELSE
  8356. PRINTFORMW
  8357. RETURN 0
  8358. ENDIF
  8359. ENDIF
  8360. ;基本セット
  8361. ;Love
  8362. IF TALENT:Love
  8363. PRINTFORMW
  8364. RETURN 0
  8365. ;屈服3
  8366. ELSEIF MARK:不埒刻印 == 3
  8367. PRINTFORMW
  8368. RETURN 0
  8369. ;それ以外
  8370. ELSE
  8371. PRINTFORMW
  8372. RETURN 0
  8373. ENDIF
  8374. ENDIF
  8375. RETURN 1
  8376. ;==================================================
  8377. ;75,膣裏責め
  8378. ;==================================================
  8379. @M_KOJO_MESSAGE_COM_K44_75
  8380. CALL TRAIN_MESSAGE
  8381. CALL M_KOJO_MESSAGE_COM_K44_75_1
  8382. RETURN RESULT
  8383.  
  8384. @M_KOJO_MESSAGE_COM_K44_75_1
  8385. ;-------------------------------------------------
  8386. ;記入チェック（=0, 非表示、1, 表示）
  8387. LOCAL = 0
  8388. ;-------------------------------------------------
  8389. IF LOCAL
  8390. ;-------------------------------------------------
  8391. ;小分岐
  8392. ;-------------------------------------------------
  8393. ;初めて
  8394. ;記入チェック
  8395. LOCAL:1 = 0
  8396. ;-------------------------------------------------
  8397. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  8398. ;アナル処女
  8399. IF !EXP:Ａ性交経験
  8400. PRINTFORMW
  8401. RETURN 0
  8402. ELSE
  8403. PRINTFORMW
  8404. RETURN 0
  8405. ENDIF
  8406. ENDIF
  8407. ;-------------------------------------------------
  8408. ;挿入継続
  8409. ;記入チェック
  8410. LOCAL:1 = 0
  8411. ;-------------------------------------------------
  8412. IF LOCAL:1 && TCVAR:101 == PLAYER
  8413. ;前回射精した
  8414. IF TCVAR:104
  8415. PRINTFORMW
  8416. RETURN 0
  8417. ELSE
  8418. PRINTFORMW
  8419. RETURN 0
  8420. ENDIF
  8421. ENDIF
  8422. ;基本セット
  8423. ;Love
  8424. IF TALENT:Love
  8425. PRINTFORMW
  8426. RETURN 0
  8427. ;屈服3
  8428. ELSEIF MARK:不埒刻印 == 3
  8429. PRINTFORMW
  8430. RETURN 0
  8431. ;それ以外
  8432. ELSE
  8433. PRINTFORMW
  8434. RETURN 0
  8435. ENDIF
  8436. ENDIF
  8437. RETURN 1
  8438.  
  8439. ;※※※※※※※※※※※※※※※※※※※※※※※※※
  8440. ;奉仕系コマンド
  8441. ;※※※※※※※※※※※※※※※※※※※※※※※※※
  8442. ;==================================================
  8443. ;80,手淫
  8444. ;==================================================
  8445. @M_KOJO_MESSAGE_COM_K44_80
  8446. CALL TRAIN_MESSAGE
  8447. CALL M_KOJO_MESSAGE_COM_K44_80_1
  8448. RETURN RESULT
  8449.  
  8450. @M_KOJO_MESSAGE_COM_K44_80_1
  8451. ;-------------------------------------------------
  8452. ;記入チェック（=0, 非表示、1, 表示）
  8453. LOCAL = 0
  8454. ;-------------------------------------------------
  8455. IF LOCAL
  8456. ;-------------------------------------------------
  8457. ;小分岐
  8458. ;-------------------------------------------------
  8459. ;初めて
  8460. ;記入チェック
  8461. LOCAL:1 = 0
  8462. ;-------------------------------------------------
  8463. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  8464. PRINTFORMW
  8465. RETURN 0
  8466. ENDIF
  8467. ;基本セット
  8468. ;時姦中
  8469. IF FLAG:70
  8470. PRINTFORMW
  8471. RETURN 0
  8472. ;Love
  8473. ELSEIF TALENT:Love
  8474. PRINTFORMW
  8475. RETURN 0
  8476. ;屈服3
  8477. ELSEIF MARK:不埒刻印 == 3
  8478. PRINTFORMW
  8479. RETURN 0
  8480. ;それ以外
  8481. ELSE
  8482. PRINTFORMW
  8483. RETURN 0
  8484. ENDIF
  8485. ENDIF
  8486. RETURN 1
  8487.  
  8488. ;==================================================
  8489. ;81,フェラチオ
  8490. ;==================================================
  8491. @M_KOJO_MESSAGE_COM_K44_81
  8492. CALL TRAIN_MESSAGE
  8493. CALL M_KOJO_MESSAGE_COM_K44_81_1
  8494. RETURN RESULT
  8495.  
  8496. @M_KOJO_MESSAGE_COM_K44_81_1
  8497. ;-------------------------------------------------
  8498. ;記入チェック（=0, 非表示、1, 表示）
  8499. LOCAL = 0
  8500. ;-------------------------------------------------
  8501. IF LOCAL
  8502. ;-------------------------------------------------
  8503. ;小分岐
  8504. ;-------------------------------------------------
  8505. ;初めて
  8506. ;記入チェック
  8507. LOCAL:1 = 0
  8508. ;-------------------------------------------------
  8509. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  8510. PRINTFORMW
  8511. RETURN 0
  8512. ENDIF
  8513. ;基本セット
  8514. ;時姦中
  8515. IF FLAG:70
  8516. PRINTFORMW
  8517. RETURN 0
  8518. ;Love
  8519. ELSEIF TALENT:Love
  8520. PRINTFORMW
  8521. RETURN 0
  8522. ;屈服3
  8523. ELSEIF MARK:不埒刻印 == 3
  8524. PRINTFORMW
  8525. RETURN 0
  8526. ;それ以外
  8527. ELSE
  8528. PRINTFORMW
  8529. RETURN 0
  8530. ENDIF
  8531. ENDIF
  8532. RETURN 1
  8533.  
  8534. ;==================================================
  8535. ;82,パイズリ
  8536. ;==================================================
  8537. @M_KOJO_MESSAGE_COM_K44_82
  8538. CALL TRAIN_MESSAGE
  8539. CALL M_KOJO_MESSAGE_COM_K44_82_1
  8540. RETURN RESULT
  8541.  
  8542. @M_KOJO_MESSAGE_COM_K44_82_1
  8543. ;-------------------------------------------------
  8544. ;記入チェック（=0, 非表示、1, 表示）
  8545. LOCAL = 0
  8546. ;-------------------------------------------------
  8547. IF LOCAL
  8548. ;-------------------------------------------------
  8549. ;小分岐
  8550. ;-------------------------------------------------
  8551. ;初めて
  8552. ;記入チェック
  8553. LOCAL:1 = 0
  8554. ;-------------------------------------------------
  8555. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  8556. PRINTFORMW
  8557. RETURN 0
  8558. ENDIF
  8559. ;基本セット
  8560. ;時姦中
  8561. IF FLAG:70
  8562. PRINTFORMW
  8563. RETURN 0
  8564. ;Love
  8565. ELSEIF TALENT:Love
  8566. PRINTFORMW
  8567. RETURN 0
  8568. ;屈服3
  8569. ELSEIF MARK:不埒刻印 == 3
  8570. PRINTFORMW
  8571. RETURN 0
  8572. ;それ以外
  8573. ELSE
  8574. PRINTFORMW
  8575. RETURN 0
  8576. ENDIF
  8577. ENDIF
  8578. RETURN 1
  8579.  
  8580. ;==================================================
  8581. ;83,素股
  8582. ;==================================================
  8583. @M_KOJO_MESSAGE_COM_K44_83
  8584. CALL TRAIN_MESSAGE
  8585. CALL M_KOJO_MESSAGE_COM_K44_83_1
  8586. RETURN RESULT
  8587.  
  8588. @M_KOJO_MESSAGE_COM_K44_83_1
  8589. ;-------------------------------------------------
  8590. ;記入チェック（=0, 非表示、1, 表示）
  8591. LOCAL = 0
  8592. ;-------------------------------------------------
  8593. IF LOCAL
  8594. ;-------------------------------------------------
  8595. ;小分岐
  8596. ;-------------------------------------------------
  8597. ;初めて
  8598. ;記入チェック
  8599. LOCAL:1 = 0
  8600. ;-------------------------------------------------
  8601. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  8602. PRINTFORMW
  8603. RETURN 0
  8604. ENDIF
  8605. ;基本セット
  8606. ;時姦中
  8607. IF FLAG:70
  8608. PRINTFORMW
  8609. RETURN 0
  8610. ;Love
  8611. ELSEIF TALENT:Love
  8612. PRINTFORMW
  8613. RETURN 0
  8614. ;屈服3
  8615. ELSEIF MARK:不埒刻印 == 3
  8616. PRINTFORMW
  8617. RETURN 0
  8618. ;それ以外
  8619. ELSE
  8620. PRINTFORMW
  8621. RETURN 0
  8622. ENDIF
  8623. ENDIF
  8624. RETURN 1
  8625.  
  8626. ;==================================================
  8627. ;84,泡踊り
  8628. ;==================================================
  8629. @M_KOJO_MESSAGE_COM_K44_84
  8630. CALL TRAIN_MESSAGE
  8631. CALL M_KOJO_MESSAGE_COM_K44_84_1
  8632. RETURN RESULT
  8633.  
  8634. @M_KOJO_MESSAGE_COM_K44_84_1
  8635. ;-------------------------------------------------
  8636. ;記入チェック（=0, 非表示、1, 表示）
  8637. LOCAL = 0
  8638. ;-------------------------------------------------
  8639. IF LOCAL
  8640. ;-------------------------------------------------
  8641. ;小分岐
  8642. ;-------------------------------------------------
  8643. ;初めて
  8644. ;記入チェック
  8645. LOCAL:1 = 0
  8646. ;-------------------------------------------------
  8647. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  8648. PRINTFORMW
  8649. RETURN 0
  8650. ENDIF
  8651. ;基本セット
  8652. ;Love
  8653. IF TALENT:Love
  8654. PRINTFORMW
  8655. RETURN 0
  8656. ;屈服3
  8657. ELSEIF MARK:不埒刻印 == 3
  8658. PRINTFORMW
  8659. RETURN 0
  8660. ;それ以外
  8661. ELSE
  8662. PRINTFORMW
  8663. RETURN 0
  8664. ENDIF
  8665. ENDIF
  8666. RETURN 1
  8667.  
  8668. ;==================================================
  8669. ;85,足扱き
  8670. ;==================================================
  8671. @M_KOJO_MESSAGE_COM_K44_85
  8672. CALL TRAIN_MESSAGE
  8673. CALL M_KOJO_MESSAGE_COM_K44_85_1
  8674. RETURN RESULT
  8675.  
  8676. @M_KOJO_MESSAGE_COM_K44_85_1
  8677. ;-------------------------------------------------
  8678. ;記入チェック（=0, 非表示、1, 表示）
  8679. LOCAL = 0
  8680. ;-------------------------------------------------
  8681. IF LOCAL
  8682. ;-------------------------------------------------
  8683. ;小分岐
  8684. ;-------------------------------------------------
  8685. ;初めて
  8686. ;記入チェック
  8687. LOCAL:1 = 0
  8688. ;-------------------------------------------------
  8689. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  8690. PRINTFORMW
  8691. RETURN 0
  8692. ENDIF
  8693. ;基本セット
  8694. ;時姦中
  8695. IF FLAG:70
  8696. PRINTFORMW
  8697. RETURN 0
  8698. ;Love
  8699. ELSEIF TALENT:Love
  8700. PRINTFORMW
  8701. RETURN 0
  8702. ;屈服3
  8703. ELSEIF MARK:不埒刻印 == 3
  8704. PRINTFORMW
  8705. RETURN 0
  8706. ;それ以外
  8707. ELSE
  8708. PRINTFORMW
  8709. RETURN 0
  8710. ENDIF
  8711. ENDIF
  8712. RETURN 1
  8713.  
  8714. ;==================================================
  8715. ;88,バキュームフェラ
  8716. ;==================================================
  8717. @M_KOJO_MESSAGE_COM_K44_88
  8718. CALL TRAIN_MESSAGE
  8719. CALL M_KOJO_MESSAGE_COM_K44_88_1
  8720. RETURN RESULT
  8721.  
  8722. @M_KOJO_MESSAGE_COM_K44_88_1
  8723. ;-------------------------------------------------
  8724. ;記入チェック（=0, 非表示、1, 表示）
  8725. LOCAL = 0
  8726. ;-------------------------------------------------
  8727. IF LOCAL
  8728. ;-------------------------------------------------
  8729. ;小分岐
  8730. ;-------------------------------------------------
  8731. ;初めて
  8732. ;記入チェック
  8733. LOCAL:1 = 0
  8734. ;-------------------------------------------------
  8735. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  8736. PRINTFORMW
  8737. RETURN 0
  8738. ENDIF
  8739. ;基本セット
  8740. ;時姦中
  8741. IF FLAG:70
  8742. PRINTFORMW
  8743. RETURN 0
  8744. ;Love
  8745. ELSEIF TALENT:Love
  8746. PRINTFORMW
  8747. RETURN 0
  8748. ;屈服3
  8749. ELSEIF MARK:不埒刻印 == 3
  8750. PRINTFORMW
  8751. RETURN 0
  8752. ;それ以外
  8753. ELSE
  8754. PRINTFORMW
  8755. RETURN 0
  8756. ENDIF
  8757. ENDIF
  8758. RETURN 1
  8759.  
  8760. ;==================================================
  8761. ;89,ゴム精飲
  8762. ;==================================================
  8763. @M_KOJO_MESSAGE_COM_K44_89
  8764. CALL TRAIN_MESSAGE
  8765. CALL M_KOJO_MESSAGE_COM_K44_89_1
  8766. RETURN RESULT
  8767.  
  8768. @M_KOJO_MESSAGE_COM_K44_89_1
  8769. ;-------------------------------------------------
  8770. ;記入チェック（=0, 非表示、1, 表示）
  8771. LOCAL = 0
  8772. ;-------------------------------------------------
  8773. IF LOCAL
  8774. ;-------------------------------------------------
  8775. ;小分岐
  8776. ;-------------------------------------------------
  8777. ;初めて
  8778. ;記入チェック
  8779. LOCAL:1 = 0
  8780. ;-------------------------------------------------
  8781. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  8782. PRINTFORMW
  8783. RETURN 0
  8784. ENDIF
  8785. ;基本セット
  8786. ;時姦中
  8787. IF FLAG:70
  8788. PRINTFORMW
  8789. RETURN 0
  8790. ;Love
  8791. ELSEIF TALENT:Love
  8792. PRINTFORMW
  8793. RETURN 0
  8794. ;屈服3
  8795. ELSEIF MARK:不埒刻印 == 3
  8796. PRINTFORMW
  8797. RETURN 0
  8798. ;それ以外
  8799. ELSE
  8800. PRINTFORMW
  8801. RETURN 0
  8802. ENDIF
  8803. ENDIF
  8804. RETURN 1
  8805.  
  8806. ;※※※※※※※※※※※※※※※※※※※※※※※※※
  8807. ;逆アナル系コマンド
  8808. ;※※※※※※※※※※※※※※※※※※※※※※※※※
  8809. ;==================================================
  8810. ;90,アナル愛撫される
  8811. ;==================================================
  8812. @M_KOJO_MESSAGE_COM_K44_90
  8813. CALL TRAIN_MESSAGE
  8814. CALL M_KOJO_MESSAGE_COM_K44_90_1
  8815. RETURN RESULT
  8816.  
  8817. @M_KOJO_MESSAGE_COM_K44_90_1
  8818. ;-------------------------------------------------
  8819. ;記入チェック（=0, 非表示、1, 表示）
  8820. LOCAL = 0
  8821. ;-------------------------------------------------
  8822. IF LOCAL
  8823. ;-------------------------------------------------
  8824. ;小分岐
  8825. ;-------------------------------------------------
  8826. ;初めて
  8827. ;記入チェック
  8828. LOCAL:1 = 0
  8829. ;-------------------------------------------------
  8830. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  8831. PRINTFORMW
  8832. RETURN 0
  8833. ENDIF
  8834. ;基本セット
  8835. ;Love
  8836. IF TALENT:Love
  8837. PRINTFORMW
  8838. RETURN 0
  8839. ;屈服3
  8840. ELSEIF MARK:不埒刻印 == 3
  8841. PRINTFORMW
  8842. RETURN 0
  8843. ;それ以外
  8844. ELSE
  8845. PRINTFORMW
  8846. RETURN 0
  8847. ENDIF
  8848. ENDIF
  8849. RETURN 1
  8850. ;==================================================
  8851. ;91,アナル舐めされる
  8852. ;==================================================
  8853. @M_KOJO_MESSAGE_COM_K44_91
  8854. CALL TRAIN_MESSAGE
  8855. CALL M_KOJO_MESSAGE_COM_K44_91_1
  8856. RETURN RESULT
  8857.  
  8858. @M_KOJO_MESSAGE_COM_K44_91_1
  8859. ;-------------------------------------------------
  8860. ;記入チェック（=0, 非表示、1, 表示）
  8861. LOCAL = 0
  8862. ;-------------------------------------------------
  8863. IF LOCAL
  8864. ;-------------------------------------------------
  8865. ;小分岐
  8866. ;-------------------------------------------------
  8867. ;初めて
  8868. ;記入チェック
  8869. LOCAL:1 = 0
  8870. ;-------------------------------------------------
  8871. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  8872. PRINTFORMW
  8873. RETURN 0
  8874. ENDIF
  8875. ;基本セット
  8876. ;Love
  8877. IF TALENT:Love
  8878. PRINTFORMW
  8879. RETURN 0
  8880. ;屈服3
  8881. ELSEIF MARK:不埒刻印 == 3
  8882. PRINTFORMW
  8883. RETURN 0
  8884. ;それ以外
  8885. ELSE
  8886. PRINTFORMW
  8887. RETURN 0
  8888. ENDIF
  8889. ENDIF
  8890. RETURN 1
  8891. ;==================================================
  8892. ;92,Ａ正常位される
  8893. ;==================================================
  8894. @M_KOJO_MESSAGE_COM_K44_92
  8895. CALL TRAIN_MESSAGE
  8896. CALL M_KOJO_MESSAGE_COM_K44_92_1
  8897. RETURN RESULT
  8898.  
  8899. @M_KOJO_MESSAGE_COM_K44_92_1
  8900. ;-------------------------------------------------
  8901. ;記入チェック（=0, 非表示、1, 表示）
  8902. LOCAL = 0
  8903. ;-------------------------------------------------
  8904. IF LOCAL
  8905. ;-------------------------------------------------
  8906. ;小分岐
  8907. ;-------------------------------------------------
  8908. ;初めて
  8909. ;記入チェック
  8910. LOCAL:1 = 0
  8911. ;-------------------------------------------------
  8912. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  8913. PRINTFORMW
  8914. RETURN 0
  8915. ENDIF
  8916. ;基本セット
  8917. ;Love
  8918. IF TALENT:Love
  8919. PRINTFORMW
  8920. RETURN 0
  8921. ;屈服3
  8922. ELSEIF MARK:不埒刻印 == 3
  8923. PRINTFORMW
  8924. RETURN 0
  8925. ;それ以外
  8926. ELSE
  8927. PRINTFORMW
  8928. RETURN 0
  8929. ENDIF
  8930. ENDIF
  8931. RETURN 1
  8932. ;==================================================
  8933. ;93,Ａ後背位される
  8934. ;==================================================
  8935. @M_KOJO_MESSAGE_COM_K44_93
  8936. CALL TRAIN_MESSAGE
  8937. CALL M_KOJO_MESSAGE_COM_K44_93_1
  8938. RETURN RESULT
  8939.  
  8940. @M_KOJO_MESSAGE_COM_K44_93_1
  8941. ;-------------------------------------------------
  8942. ;記入チェック（=0, 非表示、1, 表示）
  8943. LOCAL = 0
  8944. ;-------------------------------------------------
  8945. IF LOCAL
  8946. ;-------------------------------------------------
  8947. ;小分岐
  8948. ;-------------------------------------------------
  8949. ;初めて
  8950. ;記入チェック
  8951. LOCAL:1 = 0
  8952. ;-------------------------------------------------
  8953. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  8954. PRINTFORMW
  8955. RETURN 0
  8956. ENDIF
  8957. ;基本セット
  8958. ;Love
  8959. IF TALENT:Love
  8960. PRINTFORMW
  8961. RETURN 0
  8962. ;屈服3
  8963. ELSEIF MARK:不埒刻印 == 3
  8964. PRINTFORMW
  8965. RETURN 0
  8966. ;それ以外
  8967. ELSE
  8968. PRINTFORMW
  8969. RETURN 0
  8970. ENDIF
  8971. ENDIF
  8972. RETURN 1
  8973. ;==================================================
  8974. ;94,Ａ騎乗位する
  8975. ;==================================================
  8976. @M_KOJO_MESSAGE_COM_K44_94
  8977. CALL TRAIN_MESSAGE
  8978. CALL M_KOJO_MESSAGE_COM_K44_94_1
  8979. RETURN RESULT
  8980.  
  8981. @M_KOJO_MESSAGE_COM_K44_94_1
  8982. ;-------------------------------------------------
  8983. ;記入チェック（=0, 非表示、1, 表示）
  8984. LOCAL = 0
  8985. ;-------------------------------------------------
  8986. IF LOCAL
  8987. ;-------------------------------------------------
  8988. ;小分岐
  8989. ;-------------------------------------------------
  8990. ;初めて
  8991. ;記入チェック
  8992. LOCAL:1 = 0
  8993. ;-------------------------------------------------
  8994. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  8995. PRINTFORMW
  8996. RETURN 0
  8997. ENDIF
  8998. ;基本セット
  8999. ;時姦中
  9000. IF FLAG:70
  9001. PRINTFORMW
  9002. RETURN 0
  9003. ;Love
  9004. ELSEIF TALENT:Love
  9005. PRINTFORMW
  9006. RETURN 0
  9007. ;屈服3
  9008. ELSEIF MARK:不埒刻印 == 3
  9009. PRINTFORMW
  9010. RETURN 0
  9011. ;それ以外
  9012. ELSE
  9013. PRINTFORMW
  9014. RETURN 0
  9015. ENDIF
  9016. ENDIF
  9017. RETURN 1
  9018.  
  9019.  
  9020. ;※※※※※※※※※※※※※※※※※※※※※※※※※
  9021. ;加虐系コマンド
  9022. ;※※※※※※※※※※※※※※※※※※※※※※※※※
  9023. ;==================================================
  9024. ;100,スパンキング
  9025. ;==================================================
  9026. @M_KOJO_MESSAGE_COM_K44_100
  9027. CALL TRAIN_MESSAGE
  9028. CALL M_KOJO_MESSAGE_COM_K44_100_1
  9029. RETURN RESULT
  9030.  
  9031. @M_KOJO_MESSAGE_COM_K44_100_1
  9032. ;-------------------------------------------------
  9033. ;記入チェック（=0, 非表示、1, 表示）
  9034. LOCAL = 0
  9035. ;-------------------------------------------------
  9036. IF LOCAL
  9037. ;-------------------------------------------------
  9038. ;小分岐
  9039. ;-------------------------------------------------
  9040. ;初めて
  9041. ;記入チェック
  9042. LOCAL:1 = 0
  9043. ;-------------------------------------------------
  9044. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  9045. PRINTFORMW
  9046. RETURN 0
  9047. ENDIF
  9048. ;基本セット
  9049. ;時姦中
  9050. IF FLAG:70
  9051. PRINTFORMW
  9052. RETURN 0
  9053. ;Love
  9054. ELSEIF TALENT:Love
  9055. PRINTFORMW
  9056. RETURN 0
  9057. ;屈服3
  9058. ELSEIF MARK:不埒刻印 == 3
  9059. PRINTFORMW
  9060. RETURN 0
  9061. ;それ以外
  9062. ELSE
  9063. PRINTFORMW
  9064. RETURN 0
  9065. ENDIF
  9066. ENDIF
  9067. RETURN 1
  9068.  
  9069. ;==================================================
  9070. ;101,鞭
  9071. ;==================================================
  9072. @M_KOJO_MESSAGE_COM_K44_101
  9073. CALL TRAIN_MESSAGE
  9074. CALL M_KOJO_MESSAGE_COM_K44_101_1
  9075. RETURN RESULT
  9076.  
  9077. @M_KOJO_MESSAGE_COM_K44_101_1
  9078. ;-------------------------------------------------
  9079. ;記入チェック（=0, 非表示、1, 表示）
  9080. LOCAL = 0
  9081. ;-------------------------------------------------
  9082. IF LOCAL
  9083. ;-------------------------------------------------
  9084. ;小分岐
  9085. ;-------------------------------------------------
  9086. ;初めて
  9087. ;記入チェック
  9088. LOCAL:1 = 0
  9089. ;-------------------------------------------------
  9090. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  9091. PRINTFORMW
  9092. RETURN 0
  9093. ENDIF
  9094. ;基本セット
  9095. ;Love
  9096. IF TALENT:Love
  9097. PRINTFORMW
  9098. RETURN 0
  9099. ;屈服3
  9100. ELSEIF MARK:不埒刻印 == 3
  9101. PRINTFORMW
  9102. RETURN 0
  9103. ;それ以外
  9104. ELSE
  9105. PRINTFORMW
  9106. RETURN 0
  9107. ENDIF
  9108. ENDIF
  9109. RETURN 1
  9110.  
  9111. ;==================================================
  9112. ;102,蝋燭
  9113. ;==================================================
  9114. @M_KOJO_MESSAGE_COM_K44_102
  9115. CALL TRAIN_MESSAGE
  9116. CALL M_KOJO_MESSAGE_COM_K44_102_1
  9117. RETURN RESULT
  9118.  
  9119. @M_KOJO_MESSAGE_COM_K44_102_1
  9120. ;-------------------------------------------------
  9121. ;記入チェック（=0, 非表示、1, 表示）
  9122. LOCAL = 0
  9123. ;-------------------------------------------------
  9124. IF LOCAL
  9125. ;-------------------------------------------------
  9126. ;小分岐
  9127. ;-------------------------------------------------
  9128. ;初めて
  9129. ;記入チェック
  9130. LOCAL:1 = 0
  9131. ;-------------------------------------------------
  9132. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  9133. PRINTFORMW
  9134. RETURN 0
  9135. ENDIF
  9136. ;基本セット
  9137. ;Love
  9138. IF TALENT:Love
  9139. PRINTFORMW
  9140. RETURN 0
  9141. ;屈服3
  9142. ELSEIF MARK:不埒刻印 == 3
  9143. PRINTFORMW
  9144. RETURN 0
  9145. ;それ以外
  9146. ELSE
  9147. PRINTFORMW
  9148. RETURN 0
  9149. ENDIF
  9150. ENDIF
  9151. RETURN 1
  9152.  
  9153. ;==================================================
  9154. ;103,針
  9155. ;==================================================
  9156. @M_KOJO_MESSAGE_COM_K44_103
  9157. CALL TRAIN_MESSAGE
  9158. CALL M_KOJO_MESSAGE_COM_K44_103_1
  9159. RETURN RESULT
  9160.  
  9161. @M_KOJO_MESSAGE_COM_K44_103_1
  9162. ;-------------------------------------------------
  9163. ;記入チェック（=0, 非表示、1, 表示）
  9164. LOCAL = 0
  9165. ;-------------------------------------------------
  9166. IF LOCAL
  9167. ;-------------------------------------------------
  9168. ;小分岐
  9169. ;-------------------------------------------------
  9170. ;初めて
  9171. ;記入チェック
  9172. LOCAL:1 = 0
  9173. ;-------------------------------------------------
  9174. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  9175. PRINTFORMW
  9176. RETURN 0
  9177. ENDIF
  9178. ;基本セット
  9179. ;Love
  9180. IF TALENT:Love
  9181. PRINTFORMW
  9182. RETURN 0
  9183. ;屈服3
  9184. ELSEIF MARK:不埒刻印 == 3
  9185. PRINTFORMW
  9186. RETURN 0
  9187. ;それ以外
  9188. ELSE
  9189. PRINTFORMW
  9190. RETURN 0
  9191. ENDIF
  9192. ENDIF
  9193. RETURN 1
  9194.  
  9195. ;==================================================
  9196. ;104,EyeMask
  9197. ;==================================================
  9198. @M_KOJO_MESSAGE_COM_K44_104
  9199. CALL TRAIN_MESSAGE
  9200. CALL M_KOJO_MESSAGE_COM_K44_104_1
  9201. RETURN RESULT
  9202.  
  9203. @M_KOJO_MESSAGE_COM_K44_104_1
  9204. ;-------------------------------------------------
  9205. ;記入チェック（=0, 非表示、1, 表示）
  9206. LOCAL = 0
  9207. ;-------------------------------------------------
  9208. IF LOCAL
  9209. ;-------------------------------------------------
  9210. ;小分岐
  9211. ;-------------------------------------------------
  9212. ;初めて
  9213. ;記入チェック
  9214. LOCAL:1 = 0
  9215. ;-------------------------------------------------
  9216. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  9217. PRINTFORMW
  9218. RETURN 0
  9219. ENDIF
  9220. ;基本セット
  9221. ;装着
  9222. IF TEQUIP:EyeMask
  9223. ;時姦中
  9224. IF FLAG:70
  9225. PRINTFORMW
  9226. RETURN 0
  9227. ;Love
  9228. ELSEIF TALENT:Love
  9229. PRINTFORMW
  9230. RETURN 0
  9231. ;屈服3
  9232. ELSEIF MARK:不埒刻印 == 3
  9233. PRINTFORMW
  9234. RETURN 0
  9235. ;それ以外
  9236. ELSE
  9237. PRINTFORMW
  9238. RETURN 0
  9239. ENDIF
  9240. ;解除
  9241. ELSE
  9242. PRINTFORMW
  9243. RETURN 0
  9244. ENDIF
  9245. ENDIF
  9246. RETURN 1
  9247.  
  9248. ;==================================================
  9249. ;105,Rope
  9250. ;==================================================
  9251. @M_KOJO_MESSAGE_COM_K44_105
  9252. CALL TRAIN_MESSAGE
  9253. CALL M_KOJO_MESSAGE_COM_K44_105_1
  9254. RETURN RESULT
  9255.  
  9256. @M_KOJO_MESSAGE_COM_K44_105_1
  9257. ;-------------------------------------------------
  9258. ;記入チェック（=0, 非表示、1, 表示）
  9259. LOCAL = 0
  9260. ;-------------------------------------------------
  9261. IF LOCAL
  9262. ;-------------------------------------------------
  9263. ;小分岐
  9264. ;-------------------------------------------------
  9265. ;初めて
  9266. ;記入チェック
  9267. LOCAL:1 = 0
  9268. ;-------------------------------------------------
  9269. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  9270. PRINTFORMW
  9271. RETURN 0
  9272. ENDIF
  9273. ;基本セット
  9274. ;装着
  9275. IF TEQUIP:Rope
  9276. ;時姦中
  9277. IF FLAG:70
  9278. PRINTFORMW
  9279. RETURN 0
  9280. ;Love
  9281. ELSEIF TALENT:Love
  9282. PRINTFORMW
  9283. RETURN 0
  9284. ;屈服3
  9285. ELSEIF MARK:不埒刻印 == 3
  9286. PRINTFORMW
  9287. RETURN 0
  9288. ;それ以外
  9289. ELSE
  9290. PRINTFORMW
  9291. RETURN 0
  9292. ENDIF
  9293. ;解除
  9294. ELSE
  9295. PRINTFORMW
  9296. RETURN 0
  9297. ENDIF
  9298. ENDIF
  9299. RETURN 1
  9300.  
  9301. ;==================================================
  9302. ;106,ボールギャグ
  9303. ;==================================================
  9304. @M_KOJO_MESSAGE_COM_K44_106
  9305. CALL TRAIN_MESSAGE
  9306. CALL M_KOJO_MESSAGE_COM_K44_106_1
  9307. RETURN RESULT
  9308.  
  9309. @M_KOJO_MESSAGE_COM_K44_106_1
  9310. ;-------------------------------------------------
  9311. ;記入チェック（=0, 非表示、1, 表示）
  9312. LOCAL = 0
  9313. ;-------------------------------------------------
  9314. IF LOCAL
  9315. ;-------------------------------------------------
  9316. ;小分岐
  9317. ;-------------------------------------------------
  9318. ;初めて
  9319. ;記入チェック
  9320. LOCAL:1 = 0
  9321. ;-------------------------------------------------
  9322. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  9323. PRINTFORMW
  9324. RETURN 0
  9325. ENDIF
  9326. ;基本セット
  9327. ;装着
  9328. IF TEQUIP:ボールギャグ
  9329. ;Love
  9330. IF TALENT:Love
  9331. PRINTFORMW
  9332. RETURN 0
  9333. ;屈服3
  9334. ELSEIF MARK:不埒刻印 == 3
  9335. PRINTFORMW
  9336. RETURN 0
  9337. ;それ以外
  9338. ELSE
  9339. PRINTFORMW
  9340. RETURN 0
  9341. ENDIF
  9342. ;解除
  9343. ELSE
  9344. PRINTFORMW
  9345. RETURN 0
  9346. ENDIF
  9347. ENDIF
  9348. RETURN 1
  9349. ;==================================================
  9350. ;107,拘束プレイ
  9351. ;==================================================
  9352. @M_KOJO_MESSAGE_COM_K44_107
  9353. CALL TRAIN_MESSAGE
  9354. CALL M_KOJO_MESSAGE_COM_K44_107_1
  9355. RETURN RESULT
  9356.  
  9357. @M_KOJO_MESSAGE_COM_K44_107_1
  9358. ;-------------------------------------------------
  9359. ;記入チェック（=0, 非表示、1, 表示）
  9360. LOCAL = 0
  9361. ;-------------------------------------------------
  9362. IF LOCAL
  9363. ;-------------------------------------------------
  9364. ;小分岐
  9365. ;-------------------------------------------------
  9366. ;初めて
  9367. ;記入チェック
  9368. LOCAL:1 = 0
  9369. ;-------------------------------------------------
  9370. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  9371. PRINTFORMW
  9372. RETURN 0
  9373. ENDIF
  9374. ;基本セット
  9375. ;装着
  9376. IF TEQUIP:ボールギャグ
  9377. ;Love
  9378. IF TALENT:Love
  9379. PRINTFORMW
  9380. RETURN 0
  9381. ;屈服3
  9382. ELSEIF MARK:不埒刻印 == 3
  9383. PRINTFORMW
  9384. RETURN 0
  9385. ;それ以外
  9386. ELSE
  9387. PRINTFORMW
  9388. RETURN 0
  9389. ENDIF
  9390. ;解除
  9391. ELSE
  9392. PRINTFORMW
  9393. RETURN 0
  9394. ENDIF
  9395. ENDIF
  9396. RETURN 1
  9397.  
  9398. ;※※※※※※※※※※※※※※※※※※※※※※※※※
  9399. ;助手によるコマンド、及びレズプレイ
  9400. ;※※※※※※※※※※※※※※※※※※※※※※※※※
  9401. ;==================================================
  9402. ;120,クンニ強制
  9403. ;==================================================
  9404. @M_KOJO_MESSAGE_COM_K44_120
  9405. CALL TRAIN_MESSAGE
  9406. CALL M_KOJO_MESSAGE_COM_K44_120_1
  9407. RETURN RESULT
  9408.  
  9409. @M_KOJO_MESSAGE_COM_K44_120_1
  9410. ;-------------------------------------------------
  9411. ;記入チェック（=0, 非表示、1, 表示）
  9412. LOCAL = 0
  9413. ;-------------------------------------------------
  9414. IF LOCAL
  9415. ;-------------------------------------------------
  9416. ;小分岐
  9417. ;-------------------------------------------------
  9418. ;初めて
  9419. ;記入チェック
  9420. LOCAL:1 = 0
  9421. ;-------------------------------------------------
  9422. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  9423. PRINTFORMW
  9424. RETURN 0
  9425. ENDIF
  9426. ;基本セット
  9427. ;Love
  9428. IF TALENT:Love
  9429. PRINTFORMW
  9430. RETURN 0
  9431. ;屈服3
  9432. ELSEIF MARK:不埒刻印 == 3
  9433. PRINTFORMW
  9434. RETURN 0
  9435. ;それ以外
  9436. ELSE
  9437. PRINTFORMW
  9438. RETURN 0
  9439. ENDIF
  9440. ENDIF
  9441. RETURN 1
  9442.  
  9443. ;==================================================
  9444. ;121,貝あわせ
  9445. ;==================================================
  9446. @M_KOJO_MESSAGE_COM_K44_121
  9447. CALL TRAIN_MESSAGE
  9448. CALL M_KOJO_MESSAGE_COM_K44_121_1
  9449. RETURN RESULT
  9450.  
  9451. @M_KOJO_MESSAGE_COM_K44_121_1
  9452. ;-------------------------------------------------
  9453. ;記入チェック（=0, 非表示、1, 表示）
  9454. LOCAL = 0
  9455. ;-------------------------------------------------
  9456. IF LOCAL
  9457. ;-------------------------------------------------
  9458. ;小分岐
  9459. ;-------------------------------------------------
  9460. ;初めて
  9461. ;記入チェック
  9462. LOCAL:1 = 0
  9463. ;-------------------------------------------------
  9464. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  9465. PRINTFORMW
  9466. RETURN 0
  9467. ENDIF
  9468. ;基本セット
  9469. ;Love
  9470. IF TALENT:Love
  9471. PRINTFORMW
  9472. RETURN 0
  9473. ;屈服3
  9474. ELSEIF MARK:不埒刻印 == 3
  9475. PRINTFORMW
  9476. RETURN 0
  9477. ;それ以外
  9478. ELSE
  9479. PRINTFORMW
  9480. RETURN 0
  9481. ENDIF
  9482. ENDIF
  9483. RETURN 1
  9484.  
  9485. ;==================================================
  9486. ;123,足コキする
  9487. ;==================================================
  9488. @M_KOJO_MESSAGE_COM_K44_123
  9489. CALL TRAIN_MESSAGE
  9490. CALL M_KOJO_MESSAGE_COM_K44_123_1
  9491. RETURN RESULT
  9492.  
  9493. @M_KOJO_MESSAGE_COM_K44_123_1
  9494. ;-------------------------------------------------
  9495. ;記入チェック（=0, 非表示、1, 表示）
  9496. LOCAL = 0
  9497. ;-------------------------------------------------
  9498. IF LOCAL
  9499. ;-------------------------------------------------
  9500. ;小分岐
  9501. ;-------------------------------------------------
  9502. ;初めて
  9503. ;記入チェック
  9504. LOCAL:1 = 0
  9505. ;-------------------------------------------------
  9506. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  9507. PRINTFORMW
  9508. RETURN 0
  9509. ENDIF
  9510. ;基本セット
  9511. ;Love
  9512. IF TALENT:Love
  9513. PRINTFORMW
  9514. RETURN 0
  9515. ;屈服3
  9516. ELSEIF MARK:不埒刻印 == 3
  9517. PRINTFORMW
  9518. RETURN 0
  9519. ;それ以外
  9520. ELSE
  9521. PRINTFORMW
  9522. RETURN 0
  9523. ENDIF
  9524. ENDIF
  9525. RETURN 1
  9526. ;==================================================
  9527. ;124,手淫する
  9528. ;==================================================
  9529. @M_KOJO_MESSAGE_COM_K44_124
  9530. CALL TRAIN_MESSAGE
  9531. CALL M_KOJO_MESSAGE_COM_K44_124_1
  9532. RETURN RESULT
  9533.  
  9534. @M_KOJO_MESSAGE_COM_K44_124_1
  9535. ;-------------------------------------------------
  9536. ;記入チェック（=0, 非表示、1, 表示）
  9537. LOCAL = 0
  9538. ;-------------------------------------------------
  9539. IF LOCAL
  9540. ;-------------------------------------------------
  9541. ;小分岐
  9542. ;-------------------------------------------------
  9543. ;初めて
  9544. ;記入チェック
  9545. LOCAL:1 = 0
  9546. ;-------------------------------------------------
  9547. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  9548. PRINTFORMW
  9549. RETURN 0
  9550. ENDIF
  9551. ;基本セット
  9552. ;Love
  9553. IF TALENT:Love
  9554. PRINTFORMW
  9555. RETURN 0
  9556. ;屈服3
  9557. ELSEIF MARK:不埒刻印 == 3
  9558. PRINTFORMW
  9559. RETURN 0
  9560. ;それ以外
  9561. ELSE
  9562. PRINTFORMW
  9563. RETURN 0
  9564. ENDIF
  9565. ENDIF
  9566. RETURN 1
  9567. ;==================================================
  9568. ;125,愛撫させる
  9569. ;==================================================
  9570. @M_KOJO_MESSAGE_COM_K44_125
  9571. CALL TRAIN_MESSAGE
  9572. CALL M_KOJO_MESSAGE_COM_K44_125_1
  9573. RETURN RESULT
  9574.  
  9575. @M_KOJO_MESSAGE_COM_K44_125_1
  9576. ;-------------------------------------------------
  9577. ;記入チェック（=0, 非表示、1, 表示）
  9578. LOCAL = 0
  9579. ;-------------------------------------------------
  9580. IF LOCAL
  9581. ;-------------------------------------------------
  9582. ;小分岐
  9583. ;-------------------------------------------------
  9584. ;初めて
  9585. ;記入チェック
  9586. LOCAL:1 = 0
  9587. ;-------------------------------------------------
  9588. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  9589. PRINTFORMW
  9590. RETURN 0
  9591. ENDIF
  9592. ;基本セット
  9593. ;Love
  9594. IF TALENT:Love
  9595. PRINTFORMW
  9596. RETURN 0
  9597. ;屈服3
  9598. ELSEIF MARK:不埒刻印 == 3
  9599. PRINTFORMW
  9600. RETURN 0
  9601. ;それ以外
  9602. ELSE
  9603. PRINTFORMW
  9604. RETURN 0
  9605. ENDIF
  9606. ENDIF
  9607. RETURN 1
  9608.  
  9609. ;==================================================
  9610. ;126,乳の揉み合い
  9611. ;==================================================
  9612. @M_KOJO_MESSAGE_COM_K44_126
  9613. CALL TRAIN_MESSAGE
  9614. CALL M_KOJO_MESSAGE_COM_K44_126_1
  9615. RETURN RESULT
  9616.  
  9617. @M_KOJO_MESSAGE_COM_K44_126_1
  9618. ;-------------------------------------------------
  9619. ;記入チェック（=0, 非表示、1, 表示）
  9620. LOCAL = 0
  9621. ;-------------------------------------------------
  9622. IF LOCAL
  9623. ;-------------------------------------------------
  9624. ;小分岐
  9625. ;-------------------------------------------------
  9626. ;初めて
  9627. ;記入チェック
  9628. LOCAL:1 = 0
  9629. ;-------------------------------------------------
  9630. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  9631. PRINTFORMW
  9632. RETURN 0
  9633. ENDIF
  9634. ;基本セット
  9635. ;Love
  9636. IF TALENT:Love
  9637. PRINTFORMW
  9638. RETURN 0
  9639. ;屈服3
  9640. ELSEIF MARK:不埒刻印 == 3
  9641. PRINTFORMW
  9642. RETURN 0
  9643. ;それ以外
  9644. ELSE
  9645. PRINTFORMW
  9646. RETURN 0
  9647. ENDIF
  9648. ENDIF
  9649. RETURN 1
  9650.  
  9651. ;※※※※※※※※※※※※※※※※※※※※※※※※※
  9652. ;ハードな調教コマンド
  9653. ;※※※※※※※※※※※※※※※※※※※※※※※※※
  9654. ;==================================================
  9655. ;140,イラマチオ
  9656. ;==================================================
  9657. @M_KOJO_MESSAGE_COM_K44_140
  9658. CALL TRAIN_MESSAGE
  9659. CALL M_KOJO_MESSAGE_COM_K44_140_1
  9660. RETURN RESULT
  9661.  
  9662. @M_KOJO_MESSAGE_COM_K44_140_1
  9663. ;-------------------------------------------------
  9664. ;記入チェック（=0, 非表示、1, 表示）
  9665. LOCAL = 0
  9666. ;-------------------------------------------------
  9667. IF LOCAL
  9668. ;-------------------------------------------------
  9669. ;小分岐
  9670. ;-------------------------------------------------
  9671. ;初めて
  9672. ;記入チェック
  9673. LOCAL:1 = 0
  9674. ;-------------------------------------------------
  9675. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  9676. PRINTFORMW
  9677. RETURN 0
  9678. ENDIF
  9679. ;基本セット
  9680. ;Love
  9681. IF TALENT:Love
  9682. PRINTFORMW
  9683. RETURN 0
  9684. ;屈服3
  9685. ELSEIF MARK:不埒刻印 == 3
  9686. PRINTFORMW
  9687. RETURN 0
  9688. ;それ以外
  9689. ELSE
  9690. PRINTFORMW
  9691. RETURN 0
  9692. ENDIF
  9693. ENDIF
  9694. RETURN 1
  9695.  
  9696. ;==================================================
  9697. ;141,フィストファック
  9698. ;==================================================
  9699. @M_KOJO_MESSAGE_COM_K44_141
  9700. CALL TRAIN_MESSAGE
  9701. CALL M_KOJO_MESSAGE_COM_K44_141_1
  9702. RETURN RESULT
  9703.  
  9704. @M_KOJO_MESSAGE_COM_K44_141_1
  9705. ;-------------------------------------------------
  9706. ;記入チェック（=0, 非表示、1, 表示）
  9707. LOCAL = 0
  9708. ;-------------------------------------------------
  9709. IF LOCAL
  9710. ;-------------------------------------------------
  9711. ;小分岐
  9712. ;-------------------------------------------------
  9713. ;初めて
  9714. ;記入チェック
  9715. LOCAL:1 = 0
  9716. ;-------------------------------------------------
  9717. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  9718. PRINTFORMW
  9719. RETURN 0
  9720. ENDIF
  9721. ;基本セット
  9722. ;Love
  9723. IF TALENT:Love
  9724. PRINTFORMW
  9725. RETURN 0
  9726. ;屈服3
  9727. ELSEIF MARK:不埒刻印 == 3
  9728. PRINTFORMW
  9729. RETURN 0
  9730. ;それ以外
  9731. ELSE
  9732. PRINTFORMW
  9733. RETURN 0
  9734. ENDIF
  9735. ENDIF
  9736. RETURN 1
  9737.  
  9738. ;==================================================
  9739. ;142,アナルフィスト
  9740. ;==================================================
  9741. @M_KOJO_MESSAGE_COM_K44_142
  9742. CALL TRAIN_MESSAGE
  9743. CALL M_KOJO_MESSAGE_COM_K44_142_1
  9744. RETURN RESULT
  9745.  
  9746. @M_KOJO_MESSAGE_COM_K44_142_1
  9747. ;-------------------------------------------------
  9748. ;記入チェック（=0, 非表示、1, 表示）
  9749. LOCAL = 0
  9750. ;-------------------------------------------------
  9751. IF LOCAL
  9752. ;-------------------------------------------------
  9753. ;小分岐
  9754. ;-------------------------------------------------
  9755. ;初めて
  9756. ;記入チェック
  9757. LOCAL:1 = 0
  9758. ;-------------------------------------------------
  9759. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  9760. PRINTFORMW
  9761. RETURN 0
  9762. ENDIF
  9763. ;基本セット
  9764. ;Love
  9765. IF TALENT:Love
  9766. PRINTFORMW
  9767. RETURN 0
  9768. ;屈服3
  9769. ELSEIF MARK:不埒刻印 == 3
  9770. PRINTFORMW
  9771. RETURN 0
  9772. ;それ以外
  9773. ELSE
  9774. PRINTFORMW
  9775. RETURN 0
  9776. ENDIF
  9777. ENDIF
  9778. RETURN 1
  9779.  
  9780. ;==================================================
  9781. ;143,両穴フィスト
  9782. ;==================================================
  9783. @M_KOJO_MESSAGE_COM_K44_143
  9784. CALL TRAIN_MESSAGE
  9785. CALL M_KOJO_MESSAGE_COM_K44_143_1
  9786. RETURN RESULT
  9787.  
  9788. @M_KOJO_MESSAGE_COM_K44_143_1
  9789. ;-------------------------------------------------
  9790. ;記入チェック（=0, 非表示、1, 表示）
  9791. LOCAL = 0
  9792. ;-------------------------------------------------
  9793. IF LOCAL
  9794. ;-------------------------------------------------
  9795. ;小分岐
  9796. ;-------------------------------------------------
  9797. ;初めて
  9798. ;記入チェック
  9799. LOCAL:1 = 0
  9800. ;-------------------------------------------------
  9801. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  9802. PRINTFORMW
  9803. RETURN 0
  9804. ENDIF
  9805. ;基本セット
  9806. ;Love
  9807. IF TALENT:Love
  9808. PRINTFORMW
  9809. RETURN 0
  9810. ;屈服3
  9811. ELSEIF MARK:不埒刻印 == 3
  9812. PRINTFORMW
  9813. RETURN 0
  9814. ;それ以外
  9815. ELSE
  9816. PRINTFORMW
  9817. RETURN 0
  9818. ENDIF
  9819. ENDIF
  9820. RETURN 1
  9821.  
  9822. ;==================================================
  9823. ;144,放尿
  9824. ;==================================================
  9825. @M_KOJO_MESSAGE_COM_K44_144
  9826. CALL TRAIN_MESSAGE
  9827. CALL M_KOJO_MESSAGE_COM_K44_144_1
  9828. RETURN RESULT
  9829.  
  9830. @M_KOJO_MESSAGE_COM_K44_144_1
  9831. ;-------------------------------------------------
  9832. ;記入チェック（=0, 非表示、1, 表示）
  9833. LOCAL = 0
  9834. ;-------------------------------------------------
  9835. IF LOCAL
  9836. ;-------------------------------------------------
  9837. ;小分岐
  9838. ;-------------------------------------------------
  9839. ;初めて
  9840. ;記入チェック
  9841. LOCAL:1 = 0
  9842. ;-------------------------------------------------
  9843. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  9844. PRINTFORMW
  9845. RETURN 0
  9846. ENDIF
  9847. ;基本セット
  9848. ;Love
  9849. IF TALENT:Love
  9850. PRINTFORMW
  9851. RETURN 0
  9852. ;屈服3
  9853. ELSEIF MARK:不埒刻印 == 3
  9854. PRINTFORMW
  9855. RETURN 0
  9856. ;それ以外
  9857. ELSE
  9858. PRINTFORMW
  9859. RETURN 0
  9860. ENDIF
  9861. ENDIF
  9862. RETURN 1
  9863.  
  9864. ;==================================================
  9865. ;145,アナル奉仕強制
  9866. ;==================================================
  9867. @M_KOJO_MESSAGE_COM_K44_145
  9868. CALL TRAIN_MESSAGE
  9869. CALL M_KOJO_MESSAGE_COM_K44_145_1
  9870. RETURN RESULT
  9871.  
  9872. @M_KOJO_MESSAGE_COM_K44_145_1
  9873. ;-------------------------------------------------
  9874. ;記入チェック（=0, 非表示、1, 表示）
  9875. LOCAL = 0
  9876. ;-------------------------------------------------
  9877. IF LOCAL
  9878. ;-------------------------------------------------
  9879. ;小分岐
  9880. ;-------------------------------------------------
  9881. ;初めて
  9882. ;記入チェック
  9883. LOCAL:1 = 0
  9884. ;-------------------------------------------------
  9885. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  9886. PRINTFORMW
  9887. RETURN 0
  9888. ENDIF
  9889. ;基本セット
  9890. ;Love
  9891. IF TALENT:Love
  9892. PRINTFORMW
  9893. RETURN 0
  9894. ;屈服3
  9895. ELSEIF MARK:不埒刻印 == 3
  9896. PRINTFORMW
  9897. RETURN 0
  9898. ;それ以外
  9899. ELSE
  9900. PRINTFORMW
  9901. RETURN 0
  9902. ENDIF
  9903. ENDIF
  9904. RETURN 1
  9905.  
  9906. ;==================================================
  9907. ;146,浣腸器＋プラグ
  9908. ;==================================================
  9909. @M_KOJO_MESSAGE_COM_K44_146
  9910. CALL TRAIN_MESSAGE
  9911. CALL M_KOJO_MESSAGE_COM_K44_146_1
  9912. RETURN RESULT
  9913.  
  9914. @M_KOJO_MESSAGE_COM_K44_146_1
  9915. ;-------------------------------------------------
  9916. ;記入チェック（=0, 非表示、1, 表示）
  9917. LOCAL = 0
  9918. ;-------------------------------------------------
  9919. IF LOCAL
  9920. ;-------------------------------------------------
  9921. ;小分岐
  9922. ;-------------------------------------------------
  9923. ;初めて
  9924. ;記入チェック
  9925. LOCAL:1 = 0
  9926. ;-------------------------------------------------
  9927. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  9928. PRINTFORMW
  9929. RETURN 0
  9930. ENDIF
  9931. ;基本セット
  9932. ;浣腸液注入
  9933. IF TEQUIP:浣腸
  9934. ;Love
  9935. IF TALENT:Love
  9936. PRINTFORMW
  9937. RETURN 0
  9938. ;屈服3
  9939. ELSEIF MARK:不埒刻印 == 3
  9940. PRINTFORMW
  9941. RETURN 0
  9942. ;それ以外
  9943. ELSE
  9944. PRINTFORMW
  9945. RETURN 0
  9946. ENDIF
  9947. ;解除
  9948. ELSE
  9949. PRINTFORMW
  9950. RETURN 0
  9951. ENDIF
  9952. ENDIF
  9953. RETURN 1
  9954.  
  9955. ;==================================================
  9956. ;147,拡張バルーン
  9957. ;==================================================
  9958. @M_KOJO_MESSAGE_COM_K44_147
  9959. CALL TRAIN_MESSAGE
  9960. CALL M_KOJO_MESSAGE_COM_K44_147_1
  9961. RETURN RESULT
  9962.  
  9963. @M_KOJO_MESSAGE_COM_K44_147_1
  9964. ;-------------------------------------------------
  9965. ;記入チェック（=0, 非表示、1, 表示）
  9966. LOCAL = 0
  9967. ;-------------------------------------------------
  9968. IF LOCAL
  9969. ;-------------------------------------------------
  9970. ;小分岐
  9971. ;-------------------------------------------------
  9972. ;初めて
  9973. ;記入チェック
  9974. LOCAL:1 = 0
  9975. ;-------------------------------------------------
  9976. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  9977. PRINTFORMW
  9978. RETURN 0
  9979. ENDIF
  9980. ;基本セット
  9981. ;装着
  9982. IF TEQUIP:拡張バルーン
  9983. ;Love
  9984. IF TALENT:Love
  9985. PRINTFORMW
  9986. RETURN 0
  9987. ;屈服3
  9988. ELSEIF MARK:不埒刻印 == 3
  9989. PRINTFORMW
  9990. RETURN 0
  9991. ;それ以外
  9992. ELSE
  9993. PRINTFORMW
  9994. RETURN 0
  9995. ENDIF
  9996. ;解除
  9997. ELSE
  9998. PRINTFORMW
  9999. RETURN 0
  10000. ENDIF
  10001. ENDIF
  10002. RETURN 1
  10003.  
  10004. ;==================================================
  10005. ;148,アナル電極
  10006. ;==================================================
  10007. @M_KOJO_MESSAGE_COM_K44_148
  10008. CALL TRAIN_MESSAGE
  10009. CALL M_KOJO_MESSAGE_COM_K44_148_1
  10010. RETURN RESULT
  10011.  
  10012. @M_KOJO_MESSAGE_COM_K44_148_1
  10013. ;-------------------------------------------------
  10014. ;記入チェック（=0, 非表示、1, 表示）
  10015. LOCAL = 0
  10016. ;-------------------------------------------------
  10017. IF LOCAL
  10018. ;-------------------------------------------------
  10019. ;小分岐
  10020. ;-------------------------------------------------
  10021. ;初めて
  10022. ;記入チェック
  10023. LOCAL:1 = 0
  10024. ;-------------------------------------------------
  10025. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  10026. PRINTFORMW
  10027. RETURN 0
  10028. ENDIF
  10029. ;基本セット
  10030. ;装着
  10031. IF TEQUIP:アナル電極
  10032. ;Love
  10033. IF TALENT:Love
  10034. PRINTFORMW
  10035. RETURN 0
  10036. ;屈服3
  10037. ELSEIF MARK:不埒刻印 == 3
  10038. PRINTFORMW
  10039. RETURN 0
  10040. ;それ以外
  10041. ELSE
  10042. PRINTFORMW
  10043. RETURN 0
  10044. ENDIF
  10045. ;解除
  10046. ELSE
  10047. PRINTFORMW
  10048. RETURN 0
  10049. ENDIF
  10050. ENDIF
  10051. RETURN 1
  10052.  
  10053. ;==================================================
  10054. ;150,胸の谷間を犯す
  10055. ;==================================================
  10056. @M_KOJO_MESSAGE_COM_K44_150
  10057. CALL TRAIN_MESSAGE
  10058. CALL M_KOJO_MESSAGE_COM_K44_150_1
  10059. RETURN RESULT
  10060.  
  10061. @M_KOJO_MESSAGE_COM_K44_150_1
  10062. ;-------------------------------------------------
  10063. ;記入チェック（=0, 非表示、1, 表示）
  10064. LOCAL = 0
  10065. ;-------------------------------------------------
  10066. IF LOCAL
  10067. ;-------------------------------------------------
  10068. ;小分岐
  10069. ;-------------------------------------------------
  10070. ;初めて
  10071. ;記入チェック
  10072. LOCAL:1 = 0
  10073. ;-------------------------------------------------
  10074. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  10075. PRINTFORMW
  10076. RETURN 0
  10077. ENDIF
  10078. ;基本セット
  10079. ;Love
  10080. IF TALENT:Love
  10081. PRINTFORMW
  10082. RETURN 0
  10083. ;屈服3
  10084. ELSEIF MARK:不埒刻印 == 3
  10085. PRINTFORMW
  10086. RETURN 0
  10087. ;それ以外
  10088. ELSE
  10089. PRINTFORMW
  10090. RETURN 0
  10091. ENDIF
  10092. ENDIF
  10093. RETURN 1
  10094.  
  10095. ;=================================================
  10096. ;特殊コマンド
  10097. ;=================================================
  10098. ;-------------------------------------------------
  10099. ;180,Lotion
  10100. ;-------------------------------------------------
  10101. @M_KOJO_MESSAGE_COM_K44_180
  10102. CALL TRAIN_MESSAGE
  10103. CALL M_KOJO_MESSAGE_COM_K44_180_1
  10104. RETURN RESULT
  10105.  
  10106. @M_KOJO_MESSAGE_COM_K44_180_1
  10107. ;-------------------------------------------------
  10108. ;記入チェック（=0, 非表示、1, 表示）
  10109. LOCAL = 0
  10110. ;-------------------------------------------------
  10111. IF LOCAL
  10112.  
  10113. ;CFLAG:1500 == 十進数
  10114. ;0.イベントがオフだよ　選択肢が出るよ　　初期値の事情だよ
  10115. ;1.イベントがオンだよ　選択肢が出るよ
  10116. ;2.イベントがオフだよ　選択肢を出さないよ
  10117. ;3.イベントがオンだよ　選択肢を出さないよ
  10118. ;4.イベントがオフだよ　選択肢が出るよ　　bit2が真だよ
  10119.  
  10120. ;1=オン（bit0）　2=選択肢を出さないよ（bit1）
  10121. ;4=簡単に条件を付け足せるよ（bit2）
  10122.  
  10123. ;GETBIT (CFLAG:1500,1)　ここの1は二進数の二桁目の事　間違いやすいよ
  10124. ;(CFLAG:1500,1)の数値真(0以外主に1)偽(0)を見るよ
  10125.  
  10126. ;SETBIT STAIN:1,7　二進数の八桁目を真(主に1)にするよ
  10127. ;十進数で言えば　+128されていない場合+128するよ
  10128.  
  10129. ;CLEARBIT STAIN:1,7　二進数の八桁目を偽(0)にするよ
  10130. ;十進数で言えば　既に+128されている場合に限り-128するよ
  10131.  
  10132. ;INVATEBIT STAIN:1,7　二進数の八桁目を反転させるよ
  10133. ;十進数で言えば　+128されていない場合+128　既に+128されている場合-128するよ
  10134.  
  10135.  
  10136. ;時間停止フラグがかつ参照する事のbit1(選択肢を出さないよ)が偽なら選択肢が出る
  10137. SIF !FLAG:70 && !GETBIT(CFLAG:1500,1)
  10138. CALL M_KOJO_MESSAGE_COM_K44_180_選択肢
  10139.  
  10140. ;-------------------------------------------------
  10141. ;小分岐
  10142. ;-------------------------------------------------
  10143. ;初めて
  10144. ;記入チェック
  10145. LOCAL:1 = 1
  10146. ;-------------------------------------------------
  10147. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  10148. IF FLAG:時間停止
  10149. ;時間稼働中に始動している場合の矛盾解消
  10150. IF GETBIT(STAIN:1,7)
  10151. PRINTFORML 時間稼働中に始動している場合の矛盾解消　初
  10152. RETURN 0
  10153. ;それ以外　時間停止ローション
  10154. ;時間停止塗り塗り分岐は無い　きっとそれが正義
  10155. ELSE
  10156. PRINTFORML 時間停止ローション　初
  10157. RETURN 0
  10158. ENDIF
  10159.  
  10160. ;以降!FLAG:時間停止　「発言」は概ねここから
  10161.  
  10162. ;分岐条件　チョコ塗れの手ペロペロ分岐
  10163. ;足の汚れは無いので手を手足として代用
  10164. ;別の形でチョコを塗った時もここに来るので一応イベントフラグも条件に追加
  10165. ELSEIF GETBIT(STAIN:1,7) && GETBIT(CFLAG:1500,0)
  10166. ;Love
  10167. IF TALENT:Love
  10168. PRINTFORML 恋慕ペロペロ　初
  10169. ;お手々のチョコ舐め取ったよ
  10170. ;CLEARBIT STAIN:1,7
  10171. RETURN 0
  10172. ;それ以外　ゲームバランス次第で恋慕無し恋人有りなんてケースも有り得る
  10173. ELSE
  10174. PRINTFORML ペロペロ　初
  10175. RETURN 0
  10176. ENDIF
  10177. ;分岐条件　CFLAG:1500のbit0の値これ真ならイベント発生　塗り塗り分岐
  10178. ELSEIF GETBIT(CFLAG:1500,0)
  10179. ;Love
  10180. IF TALENT:Love
  10181. PRINTFORML 恋慕塗り塗り　初
  10182. ;お手々べとべと
  10183. SETBIT STAIN:1,7
  10184. RETURN 0
  10185. ;それ以外　ゲームバランス次第で恋慕無し恋人有りなんてケースも有り得る
  10186. ELSE
  10187. PRINTFORML 塗り塗り　初
  10188. ;お手々べとべと
  10189. SETBIT STAIN:1,7
  10190. RETURN 0
  10191. ENDIF
  10192. ;それ以外　ローション分岐
  10193. ELSE
  10194. ;Love
  10195. IF TALENT:Love
  10196. PRINTFORML 恋慕ローション分岐　初
  10197. RETURN 0
  10198. ;それ以外　ゲームバランス次第で恋慕無し恋人有りなんてケースも有り得る
  10199. ELSE
  10200. PRINTFORML それ以外ローション分岐　初
  10201. RETURN 0
  10202. ENDIF
  10203. ENDIF
  10204.  
  10205. ;以降!FIRSTTIME　時間停止中に初回を迎えた場合との兼ね合いに注意
  10206. ELSE
  10207. IF FLAG:時間停止
  10208. ;時間稼働中に始動している場合の矛盾解消
  10209. IF GETBIT(STAIN:1,7)
  10210. PRINTFORML 時間稼働中に始動している場合の矛盾解消
  10211. RETURN 0
  10212. ;それ以外　時間停止ローション
  10213. ELSE
  10214. PRINTFORML 時間停止ローション
  10215. RETURN 0
  10216. ENDIF
  10217.  
  10218. ;以降!FLAG:時間停止　「発言」は概ねここから
  10219.  
  10220. ;分岐条件　チョコ塗れの手ペロペロ分岐
  10221. ;足の汚れは無いので手を手足として代用
  10222. ;別の形でチョコを塗った時もここに来るので一応イベントフラグも条件に追加
  10223. ELSEIF GETBIT(STAIN:1,7) && GETBIT(CFLAG:1500,0)
  10224. ;Love
  10225. IF TALENT:Love
  10226. PRINTFORML 恋慕ペロペロ
  10227. ;お手々のチョコ舐め取ったよ
  10228. ;CLEARBIT STAIN:1,7
  10229. RETURN 0
  10230. ;それ以外　ゲームバランス次第で恋慕無し恋人有りなんてケースも有り得る
  10231. ELSE
  10232. PRINTFORML ペロペロ
  10233. RETURN 0
  10234. ENDIF
  10235. ;分岐条件　CFLAG:1500のbit0の値これ真ならイベント発生　塗り塗り分岐
  10236. ELSEIF GETBIT(CFLAG:1500,0)
  10237. ;Love
  10238. IF TALENT:Love
  10239. PRINTFORML 恋慕塗り塗り
  10240. ;お手々べとべと
  10241. SETBIT STAIN:1,7
  10242. RETURN 0
  10243. ;それ以外　ゲームバランス次第で恋慕無し恋人有りなんてケースも有り得る
  10244. ELSE
  10245. PRINTFORML 塗り塗り
  10246. ;お手々べとべと
  10247. SETBIT STAIN:1,7
  10248. RETURN 0
  10249. ENDIF
  10250. ;それ以外　ローション分岐
  10251. ELSE
  10252. ;ここに恋慕有無を問わない描写も書けるよ
  10253. ;PRINTFORML
  10254. ;Love
  10255. IF TALENT:Love
  10256. PRINTFORML 恋慕ローション分岐
  10257. RETURN 0
  10258. ;それ以外　ゲームバランス次第で恋慕無し恋人有りなんてケースも有り得る
  10259. ELSE
  10260. PRINTFORML ローション分岐
  10261. RETURN 0
  10262. ENDIF
  10263. ;ここに恋慕有無を問わない描写を書いても二行上六行上のRETURN 0で引き返しているから表示されないよ
  10264. ;PRINTFORML
  10265. ENDIF
  10266. ENDIF
  10267. ENDIF
  10268. ;リターンしないとそのまま次まで突っ切って行っちゃうよ
  10269. ;1は7行目のCALL M_KOJO_MESSAGE_COM_K44_180_1に送られ8行目のRETURN RESULTに引き渡されるよ
  10270. RETURN 1
  10271. ;-------------------------------------------------
  10272. ;選択肢構文
  10273. ;-------------------------------------------------
  10274. @M_KOJO_MESSAGE_COM_K44_180_選択肢
  10275.  
  10276. PRINTL 問
  10277.  
  10278. PRINT [0] Yes
  10279. PRINT [1] No
  10280. ;PRINT [2] 保留
  10281. PRINT [9] その他
  10282. ;改行で整える為の物
  10283. PRINTL
  10284.  
  10285. $INPUT_LOOP＿K44_180_選択肢
  10286. INPUT
  10287.  
  10288. SELECTCASE RESULT
  10289. CASE 0
  10290. PRINTL はいを選択しました
  10291. CFLAG:1500 = 3
  10292. CASE 1
  10293. PRINTL いいえを選択しました
  10294. CFLAG:1500 = 2
  10295. CASE 2
  10296. PRINTL ボタンをコメントアウトしても反応するよ！保留するよ！
  10297. CFLAG:1500 = 0
  10298. CASE 9
  10299. PRINTL その他
  10300. PRINTL 選びなおし
  10301. GOTO INPUT_LOOP＿K44_180_選択肢
  10302. CASEELSE
  10303. PRINTFORMW 選びなおし
  10304. GOTO INPUT_LOOP＿K44_180_選択肢
  10305. ENDSELECT
  10306. PRINTFORMW 案内文
  10307.  
  10308. RETURN 1
  10309. ;-------------------------------------------------
  10310.  
  10311. ;==================================================
  10312. ;181,Aphrodisiac,
  10313. ;==================================================
  10314. @M_KOJO_MESSAGE_COM_K44_181
  10315. CALL TRAIN_MESSAGE
  10316. CALL M_KOJO_MESSAGE_COM_K44_181_1
  10317. RETURN RESULT
  10318.  
  10319. @M_KOJO_MESSAGE_COM_K44_181_1
  10320. ;-------------------------------------------------
  10321. ;記入チェック（=0, 非表示、1, 表示）
  10322. LOCAL = 0
  10323. ;-------------------------------------------------
  10324. IF LOCAL
  10325. ;-------------------------------------------------
  10326. ;小分岐
  10327. ;-------------------------------------------------
  10328. ;初めて
  10329. ;記入チェック
  10330. LOCAL:1 = 0
  10331. ;-------------------------------------------------
  10332. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  10333. PRINTFORMW
  10334. RETURN 0
  10335. ENDIF
  10336. ;基本セット
  10337. ;Love
  10338. IF TALENT:Love
  10339. PRINTFORMW
  10340. RETURN 0
  10341. ;屈服3
  10342. ELSEIF MARK:不埒刻印 == 3
  10343. PRINTFORMW
  10344. RETURN 0
  10345. ;それ以外
  10346. ELSE
  10347. PRINTFORMW
  10348. RETURN 0
  10349. ENDIF
  10350. ENDIF
  10351. RETURN 1
  10352.  
  10353. ;==================================================
  10354. ;182,Diuretic,
  10355. ;==================================================
  10356. @M_KOJO_MESSAGE_COM_K44_182
  10357. CALL TRAIN_MESSAGE
  10358. CALL M_KOJO_MESSAGE_COM_K44_182_1
  10359. RETURN RESULT
  10360.  
  10361. @M_KOJO_MESSAGE_COM_K44_182_1
  10362. ;-------------------------------------------------
  10363. ;記入チェック（=0, 非表示、1, 表示）
  10364. LOCAL = 0
  10365. ;-------------------------------------------------
  10366. IF LOCAL
  10367. ;-------------------------------------------------
  10368. ;小分岐
  10369. ;-------------------------------------------------
  10370. ;初めて
  10371. ;記入チェック
  10372. LOCAL:1 = 0
  10373. ;-------------------------------------------------
  10374. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  10375. PRINTFORMW
  10376. RETURN 0
  10377. ENDIF
  10378. ;基本セット
  10379. ;Love
  10380. IF TALENT:Love
  10381. PRINTFORMW
  10382. RETURN 0
  10383. ;屈服3
  10384. ELSEIF MARK:不埒刻印 == 3
  10385. PRINTFORMW
  10386. RETURN 0
  10387. ;それ以外
  10388. ELSE
  10389. PRINTFORMW
  10390. RETURN 0
  10391. ENDIF
  10392. ENDIF
  10393. RETURN 1
  10394.  
  10395. ;==================================================
  10396. ;183,ビデオカメラ,
  10397. ;==================================================
  10398. @M_KOJO_MESSAGE_COM_K44_183
  10399. CALL TRAIN_MESSAGE
  10400. CALL M_KOJO_MESSAGE_COM_K44_183_1
  10401. RETURN RESULT
  10402.  
  10403. @M_KOJO_MESSAGE_COM_K44_183_1
  10404. ;-------------------------------------------------
  10405. ;記入チェック（=0, 非表示、1, 表示）
  10406. LOCAL = 0
  10407. ;-------------------------------------------------
  10408. IF LOCAL
  10409. ;-------------------------------------------------
  10410. ;小分岐
  10411. ;-------------------------------------------------
  10412. ;初めて
  10413. ;記入チェック
  10414. LOCAL:1 = 0
  10415. ;-------------------------------------------------
  10416. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  10417. PRINTFORMW
  10418. RETURN 0
  10419. ENDIF
  10420. ;基本セット
  10421. ;開始
  10422. IF TEQUIP:ビデオ撮影
  10423. ;Love
  10424. IF TALENT:Love
  10425. PRINTFORMW
  10426. RETURN 0
  10427. ;屈服3
  10428. ELSEIF MARK:不埒刻印 == 3
  10429. PRINTFORMW
  10430. RETURN 0
  10431. ;それ以外
  10432. ELSE
  10433. PRINTFORMW
  10434. RETURN 0
  10435. ENDIF
  10436. ;終了
  10437. ELSE
  10438. PRINTFORMW
  10439. RETURN 0
  10440. ENDIF
  10441. ENDIF
  10442. RETURN 1
  10443.  
  10444. ;==================================================
  10445. ;187,お風呂場プレイ
  10446. ;==================================================
  10447. @M_KOJO_MESSAGE_COM_K44_187
  10448. CALL TRAIN_MESSAGE
  10449. CALL M_KOJO_MESSAGE_COM_K44_187_1
  10450. RETURN RESULT
  10451.  
  10452. @M_KOJO_MESSAGE_COM_K44_187_1
  10453. ;-------------------------------------------------
  10454. ;記入チェック（=0, 非表示、1, 表示）
  10455. LOCAL = 0
  10456. ;-------------------------------------------------
  10457. IF LOCAL
  10458. ;-------------------------------------------------
  10459. ;小分岐
  10460. ;-------------------------------------------------
  10461. ;初めて
  10462. ;記入チェック
  10463. LOCAL:1 = 0
  10464. ;-------------------------------------------------
  10465. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  10466. PRINTFORMW
  10467. RETURN 0
  10468. ENDIF
  10469. ;基本セット
  10470. ;開始
  10471. IF TEQUIP:お風呂場プレイ
  10472. ;Love
  10473. IF TALENT:Love
  10474. PRINTFORMW
  10475. RETURN 0
  10476. ;屈服3
  10477. ELSEIF MARK:不埒刻印 == 3
  10478. PRINTFORMW
  10479. RETURN 0
  10480. ;それ以外
  10481. ELSE
  10482. PRINTFORMW
  10483. RETURN 0
  10484. ENDIF
  10485. ;終了
  10486. ELSE
  10487. PRINTFORMW
  10488. RETURN 0
  10489. ENDIF
  10490. ENDIF
  10491. RETURN 1
  10492.  
  10493. ;==================================================
  10494. ;188,シャワー
  10495. ;==================================================
  10496. @M_KOJO_MESSAGE_COM_K44_188
  10497. CALL TRAIN_MESSAGE
  10498. CALL M_KOJO_MESSAGE_COM_K44_188_1
  10499. RETURN RESULT
  10500.  
  10501. @M_KOJO_MESSAGE_COM_K44_188_1
  10502. ;-------------------------------------------------
  10503. ;記入チェック（=0, 非表示、1, 表示）
  10504. LOCAL = 0
  10505. ;-------------------------------------------------
  10506. IF LOCAL
  10507. ;-------------------------------------------------
  10508. ;小分岐
  10509. ;-------------------------------------------------
  10510. ;初めて
  10511. ;記入チェック
  10512. LOCAL:1 = 0
  10513. ;-------------------------------------------------
  10514. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  10515. PRINTFORMW
  10516. RETURN 0
  10517. ENDIF
  10518. ;基本セット
  10519. ;開始
  10520. IF TEQUIP:シャワー
  10521. ;Love
  10522. IF TALENT:Love
  10523. PRINTFORMW
  10524. RETURN 0
  10525. ;屈服3
  10526. ELSEIF MARK:不埒刻印 == 3
  10527. PRINTFORMW
  10528. RETURN 0
  10529. ;それ以外
  10530. ELSE
  10531. PRINTFORMW
  10532. RETURN 0
  10533. ENDIF
  10534. ;終了
  10535. ELSE
  10536. PRINTFORMW
  10537. RETURN 0
  10538. ENDIF
  10539. ENDIF
  10540. RETURN 1
  10541.  
  10542. ;==================================================
  10543. ;189,新妻プレイ
  10544. ;==================================================
  10545. @M_KOJO_MESSAGE_COM_K44_189
  10546. CALL TRAIN_MESSAGE
  10547. CALL M_KOJO_MESSAGE_COM_K44_189_1
  10548. RETURN RESULT
  10549.  
  10550. @M_KOJO_MESSAGE_COM_K44_189_1
  10551. ;-------------------------------------------------
  10552. ;記入チェック（=0, 非表示、1, 表示）
  10553. LOCAL = 0
  10554. ;-------------------------------------------------
  10555. IF LOCAL
  10556. ;-------------------------------------------------
  10557. ;小分岐
  10558. ;-------------------------------------------------
  10559. ;初めて
  10560. ;記入チェック
  10561. LOCAL:1 = 0
  10562. ;-------------------------------------------------
  10563. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  10564. PRINTFORMW
  10565. RETURN 0
  10566. ENDIF
  10567. ;基本セット
  10568. ;開始
  10569. IF TEQUIP:新妻プレイ
  10570. ;Love
  10571. IF TALENT:Love
  10572. PRINTFORMW
  10573. RETURN 0
  10574. ;屈服3
  10575. ELSEIF MARK:不埒刻印 == 3
  10576. PRINTFORMW
  10577. RETURN 0
  10578. ;それ以外
  10579. ELSE
  10580. PRINTFORMW
  10581. RETURN 0
  10582. ENDIF
  10583. ;終了
  10584. ELSE
  10585. PRINTFORMW
  10586. RETURN 0
  10587. ENDIF
  10588. ENDIF
  10589. RETURN 1
  10590. ;==================================================
  10591. ;190,新妻（になる）プレイ
  10592. ;==================================================
  10593. @M_KOJO_MESSAGE_COM_K44_190
  10594. CALL TRAIN_MESSAGE
  10595. CALL M_KOJO_MESSAGE_COM_K44_190_1
  10596. RETURN RESULT
  10597.  
  10598. @M_KOJO_MESSAGE_COM_K44_190_1
  10599. ;-------------------------------------------------
  10600. ;記入チェック（=0, 非表示、1, 表示）
  10601. LOCAL = 0
  10602. ;-------------------------------------------------
  10603. IF LOCAL
  10604. ;-------------------------------------------------
  10605. ;小分岐
  10606. ;-------------------------------------------------
  10607. ;初めて
  10608. ;記入チェック
  10609. LOCAL:1 = 0
  10610. ;-------------------------------------------------
  10611. IF LOCAL:1 && FIRSTTIME(SELECTCOM)
  10612. PRINTFORMW
  10613. RETURN 0
  10614. ENDIF
  10615. ;基本セット
  10616. ;開始
  10617. IF TEQUIP:Apron
  10618. ;Love
  10619. IF TALENT:Love
  10620. PRINTFORMW
  10621. RETURN 0
  10622. ;屈服3
  10623. ELSEIF MARK:不埒刻印 == 3
  10624. PRINTFORMW
  10625. RETURN 0
  10626. ;それ以外
  10627. ELSE
  10628. PRINTFORMW
  10629. RETURN 0
  10630. ENDIF
  10631. ;終了
  10632. ELSE
  10633. PRINTFORMW
  10634. RETURN 0
  10635. ENDIF
  10636. ENDIF
  10637. RETURN 1
  10638.  
  10639. ;※※※※※※※※※※※※※※※※※※※※※※※※※
  10640. ;派生コマンド
  10641. ;※※※※※※※※※※※※※※※※※※※※※※※※※
  10642. ;==================================================
  10643. ;1,シックスナイン
  10644. ;==================================================
  10645. @M_KOJO_MESSAGE_SCOM_K44_1
  10646. CALL TRAIN_MESSAGE
  10647. CALL M_KOJO_MESSAGE_SCOM_K44_1_1
  10648. RETURN RESULT
  10649. @M_KOJO_MESSAGE_SCOM_K44_1_1
  10650. ;-------------------------------------------------
  10651. ;記入チェック（=0, 非表示、1, 表示）
  10652. LOCAL = 0
  10653. ;-------------------------------------------------
  10654. IF LOCAL
  10655. ;-------------------------------------------------
  10656. ;小分岐
  10657. ;-------------------------------------------------
  10658. ;初めて
  10659. ;記入チェック
  10660. LOCAL:1 = 0
  10661. ;-------------------------------------------------
  10662. IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
  10663. PRINTFORMW
  10664. RETURN 0
  10665. ENDIF
  10666. ;基本セット
  10667. ;時姦中
  10668. IF FLAG:70
  10669. PRINTFORMW
  10670. RETURN 0
  10671. ;Love
  10672. ELSEIF TALENT:Love
  10673. PRINTFORMW
  10674. RETURN 0
  10675. ;屈服3
  10676. ELSEIF MARK:不埒刻印 == 3
  10677. PRINTFORMW
  10678. RETURN 0
  10679. ;それ以外
  10680. ELSE
  10681. PRINTFORMW
  10682. RETURN 0
  10683. ENDIF
  10684. ENDIF
  10685. ;未記入
  10686. ;CALLFORM M_KOJO_MESSAGE_COM_K44_{SELECTCOM}_1
  10687. RETURN RESULT
  10688.  
  10689. ;==================================================
  10690. ;2,岩清水
  10691. ;==================================================
  10692. @M_KOJO_MESSAGE_SCOM_K44_2
  10693. CALL TRAIN_MESSAGE
  10694. CALL M_KOJO_MESSAGE_SCOM_K44_2_1
  10695. RETURN RESULT
  10696. @M_KOJO_MESSAGE_SCOM_K44_2_1
  10697. ;-------------------------------------------------
  10698. ;記入チェック（=0, 非表示、1, 表示）
  10699. LOCAL = 0
  10700. ;-------------------------------------------------
  10701. IF LOCAL
  10702. ;-------------------------------------------------
  10703. ;小分岐
  10704. ;-------------------------------------------------
  10705. ;初めて
  10706. ;記入チェック
  10707. LOCAL:1 = 0
  10708. ;-------------------------------------------------
  10709. IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
  10710. PRINTFORMW
  10711. RETURN 0
  10712. ENDIF
  10713. ;基本セット
  10714. ;時姦中
  10715. IF FLAG:70
  10716. PRINTFORMW
  10717. RETURN 0
  10718. ;Love
  10719. ELSEIF TALENT:Love
  10720. PRINTFORMW
  10721. RETURN 0
  10722. ;屈服3
  10723. ELSEIF MARK:不埒刻印 == 3
  10724. PRINTFORMW
  10725. RETURN 0
  10726. ;それ以外
  10727. ELSE
  10728. PRINTFORMW
  10729. RETURN 0
  10730. ENDIF
  10731. ENDIF
  10732. ;未記入
  10733. ;CALLFORM M_KOJO_MESSAGE_COM_K44_{SELECTCOM}_1
  10734. RETURN RESULT
  10735.  
  10736. ;==================================================
  10737. ;3,Gスポット刺激
  10738. ;==================================================
  10739. @M_KOJO_MESSAGE_SCOM_K44_3
  10740. CALL TRAIN_MESSAGE
  10741. CALL M_KOJO_MESSAGE_SCOM_K44_3_1
  10742. RETURN RESULT
  10743. @M_KOJO_MESSAGE_SCOM_K44_3_1
  10744. ;-------------------------------------------------
  10745. ;記入チェック（=0, 非表示、1, 表示）
  10746. LOCAL = 0
  10747. ;-------------------------------------------------
  10748. IF LOCAL
  10749. ;-------------------------------------------------
  10750. ;小分岐
  10751. ;-------------------------------------------------
  10752. ;初めて
  10753. ;記入チェック
  10754. LOCAL:1 = 0
  10755. ;-------------------------------------------------
  10756. IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
  10757. PRINTFORMW
  10758. RETURN 0
  10759. ENDIF
  10760. ;基本セット
  10761. ;時姦中
  10762. IF FLAG:70
  10763. PRINTFORMW
  10764. RETURN 0
  10765. ;Love
  10766. ELSEIF TALENT:Love
  10767. PRINTFORMW
  10768. RETURN 0
  10769. ;屈服3
  10770. ELSEIF MARK:不埒刻印 == 3
  10771. PRINTFORMW
  10772. RETURN 0
  10773. ;それ以外
  10774. ELSE
  10775. PRINTFORMW
  10776. RETURN 0
  10777. ENDIF
  10778. ENDIF
  10779. ;未記入
  10780. ;CALLFORM M_KOJO_MESSAGE_COM_K44_{SELECTCOM}_1
  10781. RETURN RESULT
  10782.  
  10783. ;==================================================
  10784. ;4,乱れ牡丹
  10785. ;==================================================
  10786. @M_KOJO_MESSAGE_SCOM_K44_4
  10787. CALL TRAIN_MESSAGE
  10788. CALL M_KOJO_MESSAGE_SCOM_K44_4_1
  10789. RETURN RESULT
  10790. @M_KOJO_MESSAGE_SCOM_K44_4_1
  10791. ;-------------------------------------------------
  10792. ;記入チェック（=0, 非表示、1, 表示）
  10793. LOCAL = 0
  10794. ;-------------------------------------------------
  10795. IF LOCAL
  10796. ;-------------------------------------------------
  10797. ;小分岐
  10798. ;-------------------------------------------------
  10799. ;初めて
  10800. ;記入チェック
  10801. LOCAL:1 = 0
  10802. ;-------------------------------------------------
  10803. IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
  10804. PRINTFORMW
  10805. RETURN 0
  10806. ENDIF
  10807. ;基本セット
  10808. ;時姦中
  10809. IF FLAG:70
  10810. PRINTFORMW
  10811. RETURN 0
  10812. ;Love
  10813. ELSEIF TALENT:Love
  10814. PRINTFORMW
  10815. RETURN 0
  10816. ;屈服3
  10817. ELSEIF MARK:不埒刻印 == 3
  10818. PRINTFORMW
  10819. RETURN 0
  10820. ;それ以外
  10821. ELSE
  10822. PRINTFORMW
  10823. RETURN 0
  10824. ENDIF
  10825. ENDIF
  10826. ;未記入
  10827. ;CALLFORM M_KOJO_MESSAGE_COM_K44_{SELECTCOM}_1
  10828. RETURN RESULT
  10829.  
  10830. ;==================================================
  10831. ;5,手淫フェラ
  10832. ;==================================================
  10833. @M_KOJO_MESSAGE_SCOM_K44_5
  10834. CALL TRAIN_MESSAGE
  10835. CALL M_KOJO_MESSAGE_SCOM_K44_5_1
  10836. RETURN RESULT
  10837. @M_KOJO_MESSAGE_SCOM_K44_5_1
  10838. ;-------------------------------------------------
  10839. ;記入チェック（=0, 非表示、1, 表示）
  10840. LOCAL = 0
  10841. ;-------------------------------------------------
  10842. IF LOCAL
  10843. ;-------------------------------------------------
  10844. ;小分岐
  10845. ;-------------------------------------------------
  10846. ;初めて
  10847. ;記入チェック
  10848. LOCAL:1 = 0
  10849. ;-------------------------------------------------
  10850. IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
  10851. PRINTFORMW
  10852. RETURN 0
  10853. ENDIF
  10854. ;基本セット
  10855. ;時姦中
  10856. IF FLAG:70
  10857. PRINTFORMW
  10858. RETURN 0
  10859. ;Love
  10860. ELSEIF TALENT:Love
  10861. PRINTFORMW
  10862. RETURN 0
  10863. ;屈服3
  10864. ELSEIF MARK:不埒刻印 == 3
  10865. PRINTFORMW
  10866. RETURN 0
  10867. ;それ以外
  10868. ELSE
  10869. PRINTFORMW
  10870. RETURN 0
  10871. ENDIF
  10872. ENDIF
  10873. ;未記入
  10874. ;CALLFORM M_KOJO_MESSAGE_COM_K44_{SELECTCOM}_1
  10875. RETURN RESULT
  10876.  
  10877.  
  10878. ;==================================================
  10879. ;6,挿入Ｇスポ責め
  10880. ;==================================================
  10881. @M_KOJO_MESSAGE_SCOM_K44_6
  10882. CALL TRAIN_MESSAGE
  10883. CALL M_KOJO_MESSAGE_SCOM_K44_6_1
  10884. RETURN RESULT
  10885. @M_KOJO_MESSAGE_SCOM_K44_6_1
  10886. ;-------------------------------------------------
  10887. ;記入チェック（=0, 非表示、1, 表示）
  10888. LOCAL = 0
  10889. ;-------------------------------------------------
  10890. IF LOCAL
  10891. ;-------------------------------------------------
  10892. ;小分岐
  10893. ;-------------------------------------------------
  10894. ;初めて
  10895. ;記入チェック
  10896. LOCAL:1 = 0
  10897. ;-------------------------------------------------
  10898. IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
  10899. PRINTFORMW
  10900. RETURN 0
  10901. ENDIF
  10902. ;基本セット
  10903. ;時姦中
  10904. IF FLAG:70
  10905. PRINTFORMW
  10906. RETURN 0
  10907. ;Love
  10908. ELSEIF TALENT:Love
  10909. PRINTFORMW
  10910. RETURN 0
  10911. ;屈服3
  10912. ELSEIF MARK:不埒刻印 == 3
  10913. PRINTFORMW
  10914. RETURN 0
  10915. ;それ以外
  10916. ELSE
  10917. PRINTFORMW
  10918. RETURN 0
  10919. ENDIF
  10920. ENDIF
  10921. ;未記入
  10922. ;CALLFORM M_KOJO_MESSAGE_COM_K44_{SELECTCOM}_1
  10923. RETURN RESULT
  10924.  
  10925.  
  10926. ;==================================================
  10927. ;7,挿入子宮口責め
  10928. ;==================================================
  10929. @M_KOJO_MESSAGE_SCOM_K44_7
  10930. CALL TRAIN_MESSAGE
  10931. CALL M_KOJO_MESSAGE_SCOM_K44_7_1
  10932. RETURN RESULT
  10933. @M_KOJO_MESSAGE_SCOM_K44_7_1
  10934. ;-------------------------------------------------
  10935. ;記入チェック（=0, 非表示、1, 表示）
  10936. LOCAL = 0
  10937. ;-------------------------------------------------
  10938. IF LOCAL
  10939. ;-------------------------------------------------
  10940. ;小分岐
  10941. ;-------------------------------------------------
  10942. ;初めて
  10943. ;記入チェック
  10944. LOCAL:1 = 0
  10945. ;-------------------------------------------------
  10946. IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
  10947. PRINTFORMW
  10948. RETURN 0
  10949. ENDIF
  10950. ;基本セット
  10951. ;時姦中
  10952. IF FLAG:70
  10953. PRINTFORMW
  10954. RETURN 0
  10955. ;Love
  10956. ELSEIF TALENT:Love
  10957. PRINTFORMW
  10958. RETURN 0
  10959. ;屈服3
  10960. ELSEIF MARK:不埒刻印 == 3
  10961. PRINTFORMW
  10962. RETURN 0
  10963. ;それ以外
  10964. ELSE
  10965. PRINTFORMW
  10966. RETURN 0
  10967. ENDIF
  10968. ENDIF
  10969. ;未記入
  10970. ;CALLFORM M_KOJO_MESSAGE_COM_K44_{SELECTCOM}_1
  10971. RETURN RESULT
  10972.  
  10973.  
  10974. ;==================================================
  10975. ;8,６９パイズリ
  10976. ;==================================================
  10977. @M_KOJO_MESSAGE_SCOM_K44_8
  10978. CALL TRAIN_MESSAGE
  10979. CALL M_KOJO_MESSAGE_SCOM_K44_8_1
  10980. RETURN RESULT
  10981. @M_KOJO_MESSAGE_SCOM_K44_8_1
  10982. ;-------------------------------------------------
  10983. ;記入チェック（=0, 非表示、1, 表示）
  10984. LOCAL = 0
  10985. ;-------------------------------------------------
  10986. IF LOCAL
  10987. ;-------------------------------------------------
  10988. ;小分岐
  10989. ;-------------------------------------------------
  10990. ;初めて
  10991. ;記入チェック
  10992. LOCAL:1 = 0
  10993. ;-------------------------------------------------
  10994. IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
  10995. PRINTFORMW
  10996. RETURN 0
  10997. ENDIF
  10998. ;基本セット
  10999. ;時姦中
  11000. IF FLAG:70
  11001. PRINTFORMW
  11002. RETURN 0
  11003. ;Love
  11004. ELSEIF TALENT:Love
  11005. PRINTFORMW
  11006. RETURN 0
  11007. ;屈服3
  11008. ELSEIF MARK:不埒刻印 == 3
  11009. PRINTFORMW
  11010. RETURN 0
  11011. ;それ以外
  11012. ELSE
  11013. PRINTFORMW
  11014. RETURN 0
  11015. ENDIF
  11016. ENDIF
  11017. ;未記入
  11018. ;CALLFORM M_KOJO_MESSAGE_COM_K44_{SELECTCOM}_1
  11019. RETURN RESULT
  11020.  
  11021. ;==================================================
  11022. ;9,ダブルフェラ
  11023. ;==================================================
  11024. @M_KOJO_MESSAGE_SCOM_K44_9
  11025. CALL TRAIN_MESSAGE
  11026. CALL M_KOJO_MESSAGE_SCOM_K44_9_1
  11027. ;戻り値とTARGETを保存、TARGETを二人目に一時的に交代して二人目口上を呼び出した後、TARGETをもどして保存した戻り値でRETURNする
  11028. ;二人目はいらない場合はここで処理
  11029. ;二人目
  11030. LOCAL = MASTER_POSE(SET_M,SET_P,1)
  11031. RESULT = LOCAL:1
  11032. LOCAL:2 = TARGET
  11033. TARGET = LOCAL
  11034. TRYCALLFORM M_KOJO_MESSAGE_SCOM_K{TARGET}_9_2
  11035. TARGET = LOCAL:2
  11036. RETURN LOCAL:1
  11037.  
  11038. ;一人目口上
  11039. @M_KOJO_MESSAGE_SCOM_K44_9_1
  11040. ;-------------------------------------------------
  11041. ;記入チェック（=0, 非表示、1, 表示）
  11042. LOCAL = 0
  11043. ;-------------------------------------------------
  11044. IF LOCAL
  11045. ;-------------------------------------------------
  11046. ;小分岐
  11047. ;-------------------------------------------------
  11048. ;初めて
  11049. ;記入チェック
  11050. LOCAL:1 = 0
  11051. ;-------------------------------------------------
  11052. IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
  11053. PRINTFORMW
  11054. RETURN 0
  11055. ENDIF
  11056. ;基本セット
  11057. ;時姦中
  11058. IF FLAG:70
  11059. PRINTFORMW
  11060. RETURN 0
  11061. ;Love
  11062. ELSEIF TALENT:Love
  11063. PRINTFORMW
  11064. RETURN 0
  11065. ;屈服3
  11066. ELSEIF MARK:不埒刻印 == 3
  11067. PRINTFORMW
  11068. RETURN 0
  11069. ;それ以外
  11070. ELSE
  11071. PRINTFORMW
  11072. RETURN 0
  11073. ENDIF
  11074. ENDIF
  11075. ;未記入
  11076. ;CALLFORM M_KOJO_MESSAGE_COM_K44_{SELECTCOM}_1
  11077. RETURN RESULT
  11078.  
  11079. ;二人目口上
  11080. @M_KOJO_MESSAGE_SCOM_K44_9_2
  11081. VARSET LOCAL
  11082. ;一人目
  11083. LOCAL:101 = MASTER_POSE(SET_M,SET_P)
  11084. ;-------------------------------------------------
  11085. ;記入チェック（=0, 非表示、1, 表示）
  11086. LOCAL = 0
  11087. ;-------------------------------------------------
  11088. IF LOCAL
  11089. ;-------------------------------------------------
  11090. ;小分岐
  11091. ;-------------------------------------------------
  11092. ;初めて
  11093. ;記入チェック
  11094. LOCAL:1 = 0
  11095. ;-------------------------------------------------
  11096. IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
  11097. PRINTFORMW
  11098. RETURN 0
  11099. ENDIF
  11100. ;基本セット
  11101. ;時姦中
  11102. IF FLAG:70
  11103. PRINTFORMW
  11104. RETURN 0
  11105. ;Love
  11106. ELSEIF TALENT:Love
  11107. PRINTFORMW
  11108. RETURN 0
  11109. ;屈服3
  11110. ELSEIF MARK:不埒刻印 == 3
  11111. PRINTFORMW
  11112. RETURN 0
  11113. ;それ以外
  11114. ELSE
  11115. PRINTFORMW
  11116. RETURN 0
  11117. ENDIF
  11118. ENDIF
  11119.  
  11120. ;==================================================
  11121. ;10,ダブル素股
  11122. ;==================================================
  11123. @M_KOJO_MESSAGE_SCOM_K44_10
  11124. CALL TRAIN_MESSAGE
  11125. CALL M_KOJO_MESSAGE_SCOM_K44_10_1
  11126. ;戻り値とTARGETを保存、TARGETを二人目に一時的に交代して二人目口上を呼び出した後、TARGETをもどして保存した戻り値でRETURNする
  11127. ;二人目はいらない場合はここで処理
  11128. ;二人目
  11129. LOCAL = MASTER_POSE(SET_C,SET_P,1)
  11130. RESULT = LOCAL:1
  11131. LOCAL:2 = TARGET
  11132. TARGET = LOCAL
  11133. TRYCALLFORM M_KOJO_MESSAGE_SCOM_K{TARGET}_10_2
  11134. TARGET = LOCAL:2
  11135. RETURN LOCAL:1
  11136.  
  11137. @M_KOJO_MESSAGE_SCOM_K44_10_1
  11138. ;-------------------------------------------------
  11139. ;記入チェック（=0, 非表示、1, 表示）
  11140. LOCAL = 0
  11141. ;-------------------------------------------------
  11142. IF LOCAL
  11143. ;-------------------------------------------------
  11144. ;小分岐
  11145. ;-------------------------------------------------
  11146. ;初めて
  11147. ;記入チェック
  11148. LOCAL:1 = 0
  11149. ;-------------------------------------------------
  11150. IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
  11151. PRINTFORMW
  11152. RETURN 0
  11153. ENDIF
  11154. ;基本セット
  11155. ;時姦中
  11156. IF FLAG:70
  11157. PRINTFORMW
  11158. RETURN 0
  11159. ;Love
  11160. ELSEIF TALENT:Love
  11161. PRINTFORMW
  11162. RETURN 0
  11163. ;屈服3
  11164. ELSEIF MARK:不埒刻印 == 3
  11165. PRINTFORMW
  11166. RETURN 0
  11167. ;それ以外
  11168. ELSE
  11169. PRINTFORMW
  11170. RETURN 0
  11171. ENDIF
  11172. ENDIF
  11173. ;未記入
  11174. ;CALLFORM M_KOJO_MESSAGE_COM_K44_{SELECTCOM}_1
  11175. RETURN RESULT
  11176.  
  11177. @M_KOJO_MESSAGE_SCOM_K44_10_2
  11178. ;-------------------------------------------------
  11179. ;記入チェック（=0, 非表示、1, 表示）
  11180. LOCAL = 0
  11181. ;-------------------------------------------------
  11182. IF LOCAL
  11183. ;-------------------------------------------------
  11184. ;小分岐
  11185. ;-------------------------------------------------
  11186. ;初めて
  11187. ;記入チェック
  11188. LOCAL:1 = 0
  11189. ;-------------------------------------------------
  11190. IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
  11191. PRINTFORMW
  11192. RETURN 0
  11193. ENDIF
  11194. ;基本セット
  11195. ;時姦中
  11196. IF FLAG:70
  11197. PRINTFORMW
  11198. RETURN 0
  11199. ;Love
  11200. ELSEIF TALENT:Love
  11201. PRINTFORMW
  11202. RETURN 0
  11203. ;屈服3
  11204. ELSEIF MARK:不埒刻印 == 3
  11205. PRINTFORMW
  11206. RETURN 0
  11207. ;それ以外
  11208. ELSE
  11209. PRINTFORMW
  11210. RETURN 0
  11211. ENDIF
  11212. ENDIF
  11213.  
  11214. ;==================================================
  11215. ;11,ダブルパイズリ
  11216. ;==================================================
  11217. @M_KOJO_MESSAGE_SCOM_K44_11
  11218. CALL TRAIN_MESSAGE
  11219. CALL M_KOJO_MESSAGE_SCOM_K44_11_1
  11220. ;戻り値とTARGETを保存、TARGETを二人目に一時的に交代して二人目口上を呼び出した後、TARGETをもどして保存した戻り値でRETURNする
  11221. ;二人目はいらない場合はここで処理
  11222. ;二人目
  11223. LOCAL = MASTER_POSE(SET_B,SET_P,1)
  11224. RESULT = LOCAL:1
  11225. LOCAL:2 = TARGET
  11226. TARGET = LOCAL
  11227. TRYCALLFORM M_KOJO_MESSAGE_SCOM_K{TARGET}_11_2
  11228. TARGET = LOCAL:2
  11229. RETURN LOCAL:1
  11230.  
  11231. @M_KOJO_MESSAGE_SCOM_K44_11_1
  11232. ;-------------------------------------------------
  11233. ;記入チェック（=0, 非表示、1, 表示）
  11234. LOCAL = 0
  11235. ;-------------------------------------------------
  11236. IF LOCAL
  11237. ;-------------------------------------------------
  11238. ;小分岐
  11239. ;-------------------------------------------------
  11240. ;初めて
  11241. ;記入チェック
  11242. LOCAL:1 = 0
  11243. ;-------------------------------------------------
  11244. IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
  11245. PRINTFORMW
  11246. RETURN 0
  11247. ENDIF
  11248. ;基本セット
  11249. ;時姦中
  11250. IF FLAG:70
  11251. PRINTFORMW
  11252. RETURN 0
  11253. ;Love
  11254. ELSEIF TALENT:Love
  11255. PRINTFORMW
  11256. RETURN 0
  11257. ;屈服3
  11258. ELSEIF MARK:不埒刻印 == 3
  11259. PRINTFORMW
  11260. RETURN 0
  11261. ;それ以外
  11262. ELSE
  11263. PRINTFORMW
  11264. RETURN 0
  11265. ENDIF
  11266. ENDIF
  11267. ;未記入
  11268. ;CALLFORM M_KOJO_MESSAGE_COM_K44_{SELECTCOM}_1
  11269. RETURN RESULT
  11270.  
  11271. @M_KOJO_MESSAGE_SCOM_K44_11_2
  11272. ;-------------------------------------------------
  11273. ;記入チェック（=0, 非表示、1, 表示）
  11274. LOCAL = 0
  11275. ;-------------------------------------------------
  11276. IF LOCAL
  11277. ;-------------------------------------------------
  11278. ;小分岐
  11279. ;-------------------------------------------------
  11280. ;初めて
  11281. ;記入チェック
  11282. LOCAL:1 = 0
  11283. ;-------------------------------------------------
  11284. IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
  11285. PRINTFORMW
  11286. RETURN 0
  11287. ENDIF
  11288. ;基本セット
  11289. ;時姦中
  11290. IF FLAG:70
  11291. PRINTFORMW
  11292. RETURN 0
  11293. ;Love
  11294. ELSEIF TALENT:Love
  11295. PRINTFORMW
  11296. RETURN 0
  11297. ;屈服3
  11298. ELSEIF MARK:不埒刻印 == 3
  11299. PRINTFORMW
  11300. RETURN 0
  11301. ;それ以外
  11302. ELSE
  11303. PRINTFORMW
  11304. RETURN 0
  11305. ENDIF
  11306. ENDIF
  11307.  
  11308. ;==================================================
  11309. ;12,パイズリフェラ
  11310. ;==================================================
  11311. @M_KOJO_MESSAGE_SCOM_K44_12
  11312. CALL TRAIN_MESSAGE
  11313. CALL M_KOJO_MESSAGE_SCOM_K44_12_1
  11314. RETURN RESULT
  11315. @M_KOJO_MESSAGE_SCOM_K44_12_1
  11316. ;-------------------------------------------------
  11317. ;記入チェック（=0, 非表示、1, 表示）
  11318. LOCAL = 0
  11319. ;-------------------------------------------------
  11320. IF LOCAL
  11321. ;-------------------------------------------------
  11322. ;小分岐
  11323. ;-------------------------------------------------
  11324. ;初めて
  11325. ;記入チェック
  11326. LOCAL:1 = 0
  11327. ;-------------------------------------------------
  11328. IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
  11329. PRINTFORMW
  11330. RETURN 0
  11331. ENDIF
  11332. ;基本セット
  11333. ;時姦中
  11334. IF FLAG:70
  11335. PRINTFORMW
  11336. RETURN 0
  11337. ;Love
  11338. ELSEIF TALENT:Love
  11339. PRINTFORMW
  11340. RETURN 0
  11341. ;屈服3
  11342. ELSEIF MARK:不埒刻印 == 3
  11343. PRINTFORMW
  11344. RETURN 0
  11345. ;それ以外
  11346. ELSE
  11347. PRINTFORMW
  11348. RETURN 0
  11349. ENDIF
  11350. ENDIF
  11351. ;未記入
  11352. ;CALLFORM M_KOJO_MESSAGE_COM_K44_{SELECTCOM}_1
  11353. RETURN RESULT
  11354.  
  11355.  
  11356. ;==================================================
  11357. ;13,交互挿入
  11358. ;==================================================
  11359. @M_KOJO_MESSAGE_SCOM_K44_13
  11360. CALL TRAIN_MESSAGE
  11361. CALL M_KOJO_MESSAGE_SCOM_K44_13_1
  11362. ;戻り値とTARGETを保存、TARGETを二人目に一時的に交代して二人目口上を呼び出した後、TARGETをもどして保存した戻り値でRETURNする
  11363. ;二人目はいらない場合はここで処理
  11364. ;二人目
  11365. LOCAL = MASTER_POSE(SET_V,SET_P,1)
  11366. RESULT = LOCAL:1
  11367. LOCAL:2 = TARGET
  11368. TARGET = LOCAL
  11369. TRYCALLFORM M_KOJO_MESSAGE_SCOM_K{TARGET}_13_2
  11370. TARGET = LOCAL:2
  11371. RETURN LOCAL:1
  11372.  
  11373. @M_KOJO_MESSAGE_SCOM_K44_13_1
  11374. ;-------------------------------------------------
  11375. ;記入チェック（=0, 非表示、1, 表示）
  11376. LOCAL = 0
  11377. ;-------------------------------------------------
  11378. IF LOCAL
  11379. ;-------------------------------------------------
  11380. ;小分岐
  11381. ;-------------------------------------------------
  11382. ;初めて
  11383. ;記入チェック
  11384. LOCAL:1 = 0
  11385. ;-------------------------------------------------
  11386. IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
  11387. PRINTFORMW
  11388. RETURN 0
  11389. ENDIF
  11390. ;基本セット
  11391. ;時姦中
  11392. IF FLAG:70
  11393. PRINTFORMW
  11394. RETURN 0
  11395. ;Love
  11396. ELSEIF TALENT:Love
  11397. PRINTFORMW
  11398. RETURN 0
  11399. ;屈服3
  11400. ELSEIF MARK:不埒刻印 == 3
  11401. PRINTFORMW
  11402. RETURN 0
  11403. ;それ以外
  11404. ELSE
  11405. PRINTFORMW
  11406. RETURN 0
  11407. ENDIF
  11408. ENDIF
  11409. ;未記入
  11410. ;CALLFORM M_KOJO_MESSAGE_COM_K44_{SELECTCOM}_1
  11411. RETURN RESULT
  11412.  
  11413. @M_KOJO_MESSAGE_SCOM_K44_13_2
  11414. ;-------------------------------------------------
  11415. ;記入チェック（=0, 非表示、1, 表示）
  11416. LOCAL = 0
  11417. ;-------------------------------------------------
  11418. IF LOCAL
  11419. ;-------------------------------------------------
  11420. ;小分岐
  11421. ;-------------------------------------------------
  11422. ;初めて
  11423. ;記入チェック
  11424. LOCAL:1 = 0
  11425. ;-------------------------------------------------
  11426. IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
  11427. PRINTFORMW
  11428. RETURN 0
  11429. ENDIF
  11430. ;基本セット
  11431. ;時姦中
  11432. IF FLAG:70
  11433. PRINTFORMW
  11434. RETURN 0
  11435. ;Love
  11436. ELSEIF TALENT:Love
  11437. PRINTFORMW
  11438. RETURN 0
  11439. ;屈服3
  11440. ELSEIF MARK:不埒刻印 == 3
  11441. PRINTFORMW
  11442. RETURN 0
  11443. ;それ以外
  11444. ELSE
  11445. PRINTFORMW
  11446. RETURN 0
  11447. ENDIF
  11448. ENDIF
  11449. ;==================================================
  11450. ;14,Ｓ状結腸責め
  11451. ;==================================================
  11452. @M_KOJO_MESSAGE_SCOM_K44_14
  11453. CALL TRAIN_MESSAGE
  11454. CALL M_KOJO_MESSAGE_SCOM_K44_14_1
  11455. RETURN RESULT
  11456. @M_KOJO_MESSAGE_SCOM_K44_14_1
  11457. ;-------------------------------------------------
  11458. ;記入チェック（=0, 非表示、1, 表示）
  11459. LOCAL = 0
  11460. ;-------------------------------------------------
  11461. IF LOCAL
  11462. ;-------------------------------------------------
  11463. ;小分岐
  11464. ;-------------------------------------------------
  11465. ;初めて
  11466. ;記入チェック
  11467. LOCAL:1 = 0
  11468. ;-------------------------------------------------
  11469. IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
  11470. PRINTFORMW
  11471. RETURN 0
  11472. ENDIF
  11473. ;基本セット
  11474. ;時姦中
  11475. IF FLAG:70
  11476. PRINTFORMW
  11477. RETURN 0
  11478. ;Love
  11479. ELSEIF TALENT:Love
  11480. PRINTFORMW
  11481. RETURN 0
  11482. ;屈服3
  11483. ELSEIF MARK:不埒刻印 == 3
  11484. PRINTFORMW
  11485. RETURN 0
  11486. ;それ以外
  11487. ELSE
  11488. PRINTFORMW
  11489. RETURN 0
  11490. ENDIF
  11491. ENDIF
  11492. ;未記入
  11493. ;CALLFORM M_KOJO_MESSAGE_COM_K44_{SELECTCOM}_1
  11494. RETURN RESULT
  11495.  
  11496. ;==================================================
  11497. ;17,乳首同時吸い
  11498. ;==================================================
  11499. @M_KOJO_MESSAGE_SCOM_K44_17
  11500. CALL TRAIN_MESSAGE
  11501. CALL M_KOJO_MESSAGE_SCOM_K44_17_1
  11502. RETURN RESULT
  11503. @M_KOJO_MESSAGE_SCOM_K44_17_1
  11504. ;-------------------------------------------------
  11505. ;記入チェック（=0, 非表示、1, 表示）
  11506. LOCAL = 1
  11507. ;-------------------------------------------------
  11508. IF LOCAL
  11509. ;-------------------------------------------------
  11510. ;小分岐
  11511. ;-------------------------------------------------
  11512. ;初めて
  11513. ;記入チェック
  11514. LOCAL:1 = 0
  11515. ;-------------------------------------------------
  11516. IF LOCAL:1 && FIRSTTIME(TFLAG:50 + 500)
  11517. PRINTFORMW
  11518. RETURN 0
  11519. ENDIF
  11520. ;基本セット
  11521. ;時姦中
  11522. IF FLAG:70
  11523. PRINTFORMW
  11524. RETURN 0
  11525. ;Love
  11526. ELSEIF TALENT:Love
  11527. PRINTFORMW
  11528. RETURN 0
  11529. ;屈服3
  11530. ELSEIF MARK:不埒刻印 == 3
  11531. PRINTFORMW
  11532. RETURN 0
  11533. ;それ以外
  11534. ELSE
  11535. PRINTFORMW
  11536. RETURN 0
  11537. ENDIF
  11538. ENDIF
  11539. ;未記入
  11540. CALLFORM M_KOJO_MESSAGE_COM_K44_{SELECTCOM}_1
  11541. RETURN RESULT
  11542.  
  11543. ;SOURCEやNOWEXを使ってSELECTCOMに依存しない口上があってもいいんじゃない
  11544. @M_KOJO_MESSAGE_COM_K44_00
  11545. ;性交処女喪失をRETURN 100して
  11546. ;IF RESULT == 100 でまとめるとか
  11547. ;苦痛や快楽のSOURCEをトリガーとして汎用あえぎ口上を作るとか
  11548. ;いろいろ利用方法は考えられますが適当にやってください
  11549.  
  11550.  
  11551. ;-------------------------------------------------
  11552. ;奴隷の絶頂時の口上
  11553. ;NOWEX:Ｃ絶頂～4 CVABM絶頂
  11554. ;NOWEX:二重絶頂 二重絶頂
  11555. ;NOWEX:三重絶頂 三重絶頂
  11556. ;NOWEX:四重絶頂 四重絶頂
  11557. ;NOWEX:五重絶頂 五重絶頂
  11558. ;NOWEX:噴乳 噴乳
  11559. ;NOWEX:Cum Cum
  11560. ;NOWEX:放尿 放尿
  11561. ;適当に組み合わせて使ってください
  11562. ;-------------------------------------------------
  11563. @M_KOJO_MESSAGE_PALAMCNG_B_K44
  11564. CALL PALAM_MESSAGE_B
  11565. ;-------------------------------------------------
  11566. ;噴乳
  11567. ;記入チェック（=0, 非表示、1, 表示）
  11568. LOCAL = 1
  11569. ;-------------------------------------------------
  11570. IF LOCAL && NOWEX:噴乳
  11571. ;恋人かつ恋慕なら異常経験上がらない
  11572. SIF TALENT:Lover && TALENT:Love && FIRSTTIME(1051)
  11573. EXP:異常経験 -= 1
  11574. ENDIF
  11575. ;-------------------------------------------------
  11576. ;Cum
  11577. ;記入チェック（=0, 非表示、1, 表示）
  11578. LOCAL = 0
  11579. ;-------------------------------------------------
  11580. IF LOCAL && NOWEX:Cum
  11581. PRINTFORMW
  11582. ENDIF
  11583. ;-------------------------------------------------
  11584. ;放尿
  11585. ;記入チェック（=0, 非表示、1, 表示）
  11586. LOCAL = 0
  11587. ;-------------------------------------------------
  11588. IF LOCAL && NOWEX:放尿
  11589. PRINTFORMW
  11590. ENDIF
  11591.  
  11592. ;-------------------------------------------------
  11593. ;絶頂
  11594. ;記入チェック（=0, 非表示、1, 表示）
  11595. LOCAL = 1
  11596. ;-------------------------------------------------
  11597. IF LOCAL
  11598. ;-------------------------------------------------
  11599. ;五重絶頂
  11600. ;記入チェック（=0, 非表示、1, 表示）
  11601. LOCAL:1 = 0
  11602. ;-------------------------------------------------
  11603. IF NOWEX:五重絶頂
  11604. PRINTFORMW
  11605. RETURN 1
  11606. ENDIF
  11607. ;-------------------------------------------------
  11608. ;四重絶頂
  11609. ;記入チェック（=0, 非表示、1, 表示）
  11610. LOCAL:1 = 0
  11611. ;-------------------------------------------------
  11612. IF NOWEX:四重絶頂
  11613. ;部位を指定せず簡易的に書く場合、[SKIPSTART]&[SKIPEND]のコメントアウトを外して、[SKIPSTART]とこのコメントの間に書いてください
  11614. [SKIPSTART]
  11615. SELECTCASE NOWEX:四重絶頂
  11616. ;Ｃ＆Ｖ＆Ａ＆Ｂ絶頂
  11617. CASE 1
  11618. PRINTFORMW
  11619. RETURN 1
  11620. ;Ｃ＆Ｖ＆Ａ＆Ｍ絶頂
  11621. CASE 2
  11622. PRINTFORMW
  11623. RETURN 1
  11624. ;Ｃ＆Ｖ＆Ｂ＆Ｍ絶頂
  11625. CASE 3
  11626. PRINTFORMW
  11627. RETURN 1
  11628. ;Ｃ＆Ａ＆Ｂ＆Ｍ絶頂
  11629. CASE 4
  11630. PRINTFORMW
  11631. RETURN 1
  11632. ;Ｖ＆Ａ＆Ｂ＆Ｍ絶頂
  11633. CASE 5
  11634. PRINTFORMW
  11635. RETURN 1
  11636. ENDSELECT
  11637. [SKIPEND]
  11638. ENDIF
  11639. ;-------------------------------------------------
  11640. ;三重絶頂
  11641. ;記入チェック（=0, 非表示、1, 表示）
  11642. LOCAL:1 = 0
  11643. ;-------------------------------------------------
  11644. IF NOWEX:三重絶頂
  11645. ;部位を指定せず簡易的に書く場合、[SKIPSTART]&[SKIPEND]のコメントアウトを外して、[SKIPSTART]とこのコメントの間に書いてください
  11646. [SKIPSTART]
  11647. SELECTCASE NOWEX:三重絶頂
  11648. ;Ｃ＆Ｖ＆Ａ絶頂
  11649. CASE 1
  11650. PRINTFORMW
  11651. RETURN 1
  11652. ;Ｂ＆Ｖ＆Ａ絶頂
  11653. CASE 2
  11654. PRINTFORMW
  11655. RETURN 1
  11656. ;Ｃ＆Ｂ＆Ａ絶頂
  11657. CASE 3
  11658. PRINTFORMW
  11659. RETURN 1
  11660. ;Ｃ＆Ｖ＆Ｂ絶頂
  11661. CASE 4
  11662. PRINTFORMW
  11663. RETURN 1
  11664. ;Ｃ＆Ｖ＆Ｍ絶頂
  11665. CASE 5
  11666. PRINTFORMW
  11667. RETURN 1
  11668. ;Ｂ＆Ｖ＆Ｍ絶頂
  11669. CASE 6
  11670. PRINTFORMW
  11671. RETURN 1
  11672. ;Ａ＆Ｖ＆Ｍ絶頂
  11673. CASE 7
  11674. PRINTFORMW
  11675. RETURN 1
  11676. ;Ｃ＆Ｂ＆Ｍ絶頂
  11677. CASE 8
  11678. PRINTFORMW
  11679. RETURN 1
  11680. ;Ａ＆Ｂ＆Ｍ絶頂
  11681. CASE 9
  11682. PRINTFORMW
  11683. RETURN 1
  11684. ;Ｃ＆Ａ＆Ｍ絶頂
  11685. CASE 10
  11686. PRINTFORMW
  11687. RETURN 1
  11688. ENDSELECT
  11689. [SKIPEND]
  11690. ENDIF
  11691. ;三重絶頂以上
  11692. IF NOWEX:三重絶頂 || NOWEX:四重絶頂 || NOWEX:五重絶頂
  11693. ;絶頂加算
  11694. TCVAR:381 += 1
  11695. TCVAR:387 += 3
  11696. ENDIF
  11697. ;-------------------------------------------------
  11698. ;二重絶頂
  11699. ;記入チェック（=0, 非表示、1, 表示）
  11700. LOCAL:1 = 0
  11701. ;-------------------------------------------------
  11702. IF NOWEX:二重絶頂
  11703. ;部位を指定せず簡易的に書く場合、[SKIPSTART]&[SKIPEND]のコメントアウトを外して、[SKIPSTART]とこのコメントの間に書いてください
  11704. [SKIPSTART]
  11705. SELECTCASE NOWEX:二重絶頂
  11706. ;Ｃ＆Ｖ絶頂
  11707. CASE 1
  11708. PRINTFORMW
  11709. RETURN 1
  11710. ;Ｃ＆Ａ絶頂
  11711. CASE 2
  11712. PRINTFORMW
  11713. RETURN 1
  11714. ;Ｖ＆Ａ絶頂
  11715. CASE 3
  11716. PRINTFORMW
  11717. RETURN 1
  11718. ;Ｃ＆Ｂ絶頂
  11719. CASE 4
  11720. PRINTFORMW
  11721. RETURN 1
  11722. ;Ｖ＆Ｂ絶頂
  11723. CASE 5
  11724. PRINTFORMW
  11725. RETURN 1
  11726. ;Ａ＆Ｂ絶頂
  11727. CASE 6
  11728. PRINTFORMW
  11729. RETURN 1
  11730. ;Ａ＆Ｍ絶頂
  11731. CASE 7
  11732. PRINTFORMW
  11733. RETURN 1
  11734. ;Ｖ＆Ｍ絶頂
  11735. CASE 8
  11736. PRINTFORMW
  11737. RETURN 1
  11738. ;Ｃ＆Ｍ絶頂
  11739. CASE 9
  11740. PRINTFORMW
  11741. RETURN 1
  11742. ;Ｂ＆Ｍ絶頂
  11743. CASE 10
  11744. PRINTFORMW
  11745. RETURN 1
  11746. ENDSELECT
  11747. [SKIPEND]
  11748. ENDIF
  11749. IF NOWEX:Ｃ絶頂
  11750. TCVAR:382 += 1
  11751. ;強絶頂Ｃ
  11752. IF NOWEX:Ｃ絶頂 == 2
  11753. ; PRINTFORMW
  11754. ;絶頂Ｃ
  11755. ELSE
  11756. ; PRINTFORMW
  11757. ENDIF
  11758. ENDIF
  11759. IF NOWEX:Ｖ絶頂
  11760. TCVAR:383 += 1
  11761. ;強絶頂Ｖ
  11762. IF NOWEX:Ｖ絶頂 == 2
  11763. ; PRINTFORMW
  11764. ;絶頂Ｖ
  11765. ELSE
  11766. ; PRINTFORMW
  11767. ENDIF
  11768. ENDIF
  11769. IF NOWEX:Ａ絶頂
  11770. TCVAR:384 += 1
  11771. ;強絶頂Ａ
  11772. IF NOWEX:Ａ絶頂 == 2
  11773. ; PRINTFORMW
  11774. ;絶頂Ａ
  11775. ELSE
  11776. ; PRINTFORMW
  11777. ENDIF
  11778. ENDIF
  11779. IF NOWEX:Ｂ絶頂
  11780. TCVAR:385 += 1
  11781. ;強絶頂Ｂ
  11782. IF NOWEX:Ｂ絶頂 == 2
  11783. ; PRINTFORMW
  11784. ;絶頂Ｂ
  11785. ELSE
  11786. ; PRINTFORMW
  11787. ENDIF
  11788. ENDIF
  11789. IF NOWEX:Ｍ絶頂
  11790. TCVAR:388 += 1
  11791. ;強絶頂Ｍ
  11792. IF NOWEX:Ｍ絶頂 == 2
  11793. ; PRINTFORMW
  11794. ;絶頂Ｍ
  11795. ELSE
  11796. ; PRINTFORMW
  11797. ENDIF
  11798. ENDIF
  11799. ENDIF
  11800.  
  11801. ;御香用
  11802. IF TCVAR:373 == 1
  11803. ;あなたの勃起度と精力を最大にしつつ互いの気力を少しずつ回復という升仕様。エレン限定かつ比較的レアだから大丈夫…よね？
  11804. PALAM:Desire += (ABL:Intimacy * 1000)
  11805. PALAM:Lubric += (ABL:Desire * 500)
  11806. BASE:MASTER:EREC = MAXBASE:MASTER:EREC
  11807. BASE:MASTER:VIG = MAXBASE:MASTER:VIG
  11808. BASE:ENE += 50
  11809. BASE:MASTER:ENE += 50
  11810. ENDIF
  11811.  
  11812. ;魔法の披露が出来るかどうか
  11813. IF CFLAG:1008 > 40 && TIME:5 <= 3
  11814. CFLAG:1011 = 1
  11815. ELSE
  11816. CFLAG:1011 = 0
  11817. ENDIF
  11818.  
  11819. ;月に願いを
  11820. SIF CFLAG:1013 == 1 && DAY:3 > 1 && DAY:3 < 31
  11821. CFLAG:1013 = 0
  11822.  
  11823. ;連打防止解除
  11824. SIF TCVAR:362 == 1
  11825. TCVAR:362 = 0
  11826.  
  11827. ;健全時
  11828. ;SIF CFLAG:1891 == 0 && ABL:Desire > 4
  11829. ;ABL:Desire = 4
  11830.  
  11831. ;-------------------------------------------------
  11832. ;射精に関する口上の表示
  11833. ;一時的にTARGETを口上主に設定している
  11834. ;-------------------------------------------------
  11835.  
  11836. @M_KOJO_MESSAGE_PALAMCNG_A_K44_0(ARG)
  11837. CALL PALAM_MESSAGE_A
  11838. ;-------------------------------------------------
  11839. ;Condom
  11840. ;記入チェック（=0, 非表示、1, 表示）
  11841. LOCAL = 1
  11842. ;-------------------------------------------------
  11843. IF LOCAL
  11844. PRINTFORMW
  11845. ;射精加算
  11846. TCVAR:386 += 1
  11847. RETURN 1
  11848. ENDIF
  11849. RETURN 0
  11850.  
  11851. @M_KOJO_MESSAGE_PALAMCNG_A_K44_23(ARG)
  11852. CALL PALAM_MESSAGE_A
  11853. ;-------------------------------------------------
  11854. ;イラマチオ
  11855. ;記入チェック（=0, 非表示、1, 表示）
  11856. LOCAL = 1
  11857. ;-------------------------------------------------
  11858. IF LOCAL
  11859. PRINTFORMW
  11860. ;射精加算
  11861. TCVAR:386 += 1
  11862. RETURN 1
  11863. ENDIF
  11864. RETURN 0
  11865.  
  11866. @M_KOJO_MESSAGE_PALAMCNG_A_K44_22(ARG)
  11867. CALL PALAM_MESSAGE_A
  11868. ;-------------------------------------------------
  11869. ;シックスナイン
  11870. ;記入チェック（=0, 非表示、1, 表示）
  11871. LOCAL = 1
  11872. ;-------------------------------------------------
  11873. IF LOCAL
  11874. ;同時射精
  11875. IF NOWEX:Cum && NOWEX:MASTER:11
  11876. PRINTFORMW
  11877. ;射精加算
  11878. TCVAR:386 += 1
  11879. RETURN 1
  11880. ;TARGETだけ射精
  11881. ELSEIF NOWEX:Cum
  11882. ;PLAYERについてる
  11883. IF TALENT:PLAYER & 2
  11884. PRINTFORMW
  11885. RETURN 1
  11886. ;付いてない
  11887. ELSE
  11888. PRINTFORMW
  11889. RETURN 1
  11890. ENDIF
  11891. ;PLAYERだけ射精
  11892. ELSE
  11893. ;射精加算
  11894. TCVAR:386 += 1
  11895. ;TARGETについてる
  11896. IF TALENT:2 & 2
  11897. PRINTFORMW
  11898. RETURN 1
  11899. ;付いてない
  11900. ELSE
  11901. PRINTFORMW
  11902. RETURN 1
  11903. ENDIF
  11904. ENDIF
  11905. ENDIF
  11906. RETURN 0
  11907.  
  11908. @M_KOJO_MESSAGE_PALAMCNG_A_K44_21(ARG)
  11909. CALL PALAM_MESSAGE_A
  11910. ;-------------------------------------------------
  11911. ;パイズリフェラ
  11912. ;記入チェック（=0, 非表示、1, 表示）
  11913. LOCAL = 1
  11914. ;-------------------------------------------------
  11915. IF LOCAL
  11916. PRINTFORMW
  11917. ;射精加算
  11918. TCVAR:386 += 1
  11919. RETURN 1
  11920. ENDIF
  11921. RETURN 0
  11922.  
  11923. @M_KOJO_MESSAGE_PALAMCNG_A_K44_20(ARG)
  11924. CALL PALAM_MESSAGE_A
  11925. ;-------------------------------------------------
  11926. ;手淫フェラ
  11927. ;記入チェック（=0, 非表示、1, 表示）
  11928. LOCAL = 1
  11929. ;-------------------------------------------------
  11930. IF LOCAL
  11931. PRINTFORMW
  11932. ;射精加算
  11933. TCVAR:386 += 1
  11934. RETURN 1
  11935. ENDIF
  11936. RETURN 0
  11937.  
  11938. @M_KOJO_MESSAGE_PALAMCNG_A_K44_9(ARG)
  11939. CALL PALAM_MESSAGE_A
  11940. ;-------------------------------------------------
  11941. ;アナル奉仕
  11942. ;記入チェック（=0, 非表示、1, 表示）
  11943. LOCAL = 1
  11944. ;-------------------------------------------------
  11945. IF LOCAL
  11946. PRINTFORMW
  11947. ;射精加算
  11948. TCVAR:386 += 1
  11949. RETURN 1
  11950. ENDIF
  11951. RETURN 0
  11952.  
  11953. @M_KOJO_MESSAGE_PALAMCNG_A_K44_8(ARG)
  11954. CALL PALAM_MESSAGE_A
  11955. ;-------------------------------------------------
  11956. ;泡踊り
  11957. ;記入チェック（=0, 非表示、1, 表示）
  11958. LOCAL = 1
  11959. ;-------------------------------------------------
  11960. IF LOCAL
  11961. ;同時射精
  11962. IF NOWEX:Cum && NOWEX:MASTER:11
  11963. PRINTFORMW
  11964. ;射精加算
  11965. TCVAR:386 += 1
  11966. RETURN 1
  11967. ;TARGETだけ射精
  11968. ELSEIF NOWEX:Cum
  11969. ;PLAYERについてる
  11970. IF TALENT:PLAYER & 2
  11971. PRINTFORMW
  11972. RETURN 1
  11973. ;付いてない
  11974. ELSE
  11975. PRINTFORMW
  11976. RETURN 1
  11977. ENDIF
  11978. ;PLAYERだけ射精
  11979. ELSE
  11980. ;射精加算
  11981. TCVAR:386 += 1
  11982. ;TARGETについてる
  11983. IF TALENT:2 & 2
  11984. PRINTFORMW
  11985. RETURN 1
  11986. ;付いてない
  11987. ELSE
  11988. PRINTFORMW
  11989. RETURN 1
  11990. ENDIF
  11991. ENDIF
  11992. ENDIF
  11993. RETURN 0
  11994.  
  11995. @M_KOJO_MESSAGE_PALAMCNG_A_K44_7(ARG)
  11996. CALL PALAM_MESSAGE_A
  11997. ;-------------------------------------------------
  11998. ;足コキ
  11999. ;記入チェック（=0, 非表示、1, 表示）
  12000. LOCAL = 1
  12001. ;-------------------------------------------------
  12002. IF LOCAL
  12003. PRINTFORMW
  12004. ;射精加算
  12005. TCVAR:386 += 1
  12006. RETURN 1
  12007. ENDIF
  12008. RETURN 0
  12009.  
  12010. @M_KOJO_MESSAGE_PALAMCNG_A_K44_6(ARG)
  12011. CALL PALAM_MESSAGE_A
  12012. ;-------------------------------------------------
  12013. ;素股
  12014. ;記入チェック（=0, 非表示、1, 表示）
  12015. LOCAL = 1
  12016. ;-------------------------------------------------
  12017. IF LOCAL
  12018. PRINTFORMW
  12019. ;射精加算
  12020. TCVAR:386 += 1
  12021. RETURN 1
  12022. ENDIF
  12023. RETURN 0
  12024.  
  12025. @M_KOJO_MESSAGE_PALAMCNG_A_K44_5(ARG)
  12026. CALL PALAM_MESSAGE_A
  12027. ;-------------------------------------------------
  12028. ;パイズリ
  12029. ;記入チェック（=0, 非表示、1, 表示）
  12030. LOCAL = 1
  12031. ;-------------------------------------------------
  12032. IF LOCAL
  12033. PRINTFORMW
  12034. ;射精加算
  12035. TCVAR:386 += 1
  12036. RETURN 1
  12037. ENDIF
  12038. RETURN 0
  12039.  
  12040. @M_KOJO_MESSAGE_PALAMCNG_A_K44_4(ARG)
  12041. CALL PALAM_MESSAGE_A
  12042. ;-------------------------------------------------
  12043. ;フェラチオ
  12044. ;記入チェック（=0, 非表示、1, 表示）
  12045. LOCAL = 1
  12046. ;-------------------------------------------------
  12047. IF LOCAL
  12048. PRINTFORMW
  12049. ;射精加算
  12050. TCVAR:386 += 1
  12051. RETURN 1
  12052. ENDIF
  12053. RETURN 0
  12054.  
  12055. @M_KOJO_MESSAGE_PALAMCNG_A_K44_3(ARG)
  12056. CALL PALAM_MESSAGE_A
  12057. ;-------------------------------------------------
  12058. ;手淫
  12059. ;記入チェック（=0, 非表示、1, 表示）
  12060. LOCAL = 1
  12061. ;-------------------------------------------------
  12062. IF LOCAL
  12063. PRINTFORMW
  12064. ;射精加算
  12065. TCVAR:386 += 1
  12066. RETURN 1
  12067. ENDIF
  12068. RETURN 0
  12069.  
  12070. @M_KOJO_MESSAGE_PALAMCNG_A_K44_2(ARG)
  12071. CALL PALAM_MESSAGE_A
  12072. ;-------------------------------------------------
  12073. ;Anus
  12074. ;記入チェック（=0, 非表示、1, 表示）
  12075. LOCAL = 1
  12076. ;-------------------------------------------------
  12077. IF LOCAL
  12078. PRINTFORMW
  12079. ;射精加算
  12080. TCVAR:386 += 1
  12081. RETURN 1
  12082. ENDIF
  12083. RETURN 0
  12084.  
  12085. @M_KOJO_MESSAGE_PALAMCNG_A_K44_1(ARG)
  12086. CALL PALAM_MESSAGE_A
  12087. ;-------------------------------------------------
  12088. ;膣内
  12089. ;記入チェック（=0, 非表示、1, 表示）
  12090. LOCAL = 1
  12091. ;-------------------------------------------------
  12092. IF LOCAL
  12093. PRINTFORMW
  12094. ;射精加算
  12095. TCVAR:386 += 1
  12096. RETURN 1
  12097. ENDIF
  12098. RETURN 0
  12099. @M_KOJO_MESSAGE_PALAMCNG_F_K44(ARG)
  12100. CALL PALAM_MESSAGE_F
  12101. ;-------------------------------------------------
  12102. ;焦らし
  12103. ;記入チェック（=0, 非表示、1, 表示）
  12104. LOCAL = 0
  12105. ;-------------------------------------------------
  12106. IF LOCAL
  12107. PRINTFORMW
  12108. RETURN 1
  12109. ENDIF
  12110. RETURN 1
  12111. ;-------------------------------------------
  12112. ;調教後のテキスト
  12113. ;TFLAG:8 (1=TARGETがお掃除 2=ASSIがお掃除 3=TARGETとASSIがお掃除)
  12114. ;-------------------------------------------
  12115. ;なんかこっちだと表示されないんでー
  12116. ;@M_KOJO_MESSAGE_PALAMCNG_C_K44
  12117. ;CALL PALAM_MESSAGE_C
  12118. ;処女喪失
  12119. ;IF TCVAR:破瓜
  12120. ; ;正真正銘処女喪失
  12121. ; IF TCVAR:破瓜 == 1
  12122. ; SIF TALENT:Love && !TCVAR:泥酔 && !FLAG:70
  12123. ; PRINTFORMW 「少し痛いけど…わたしは%CALLNAME:MASTER%に初めてをあげれて幸せよ%UNICODE(0x2665)%//」
  12124. ; ;再生処女喪失
  12125. ; ELSEIF TCVAR:破瓜 == 2
  12126. ; ;無自覚非処女喪失
  12127. ; ELSEIF TCVAR:破瓜 == -1
  12128. ; ENDIF
  12129. ;ENDIF
  12130. ;
  12131. ;Ａ処女喪失
  12132. ;IF TCVAR:Ａ破瓜
  12133. ; ;正真正銘Ａ処女喪失
  12134. ; IF TCVAR:Ａ破瓜 == 1
  12135. ; ;無自覚Ａ処女喪失
  12136. ; ELSEIF TCVAR:Ａ破瓜 == -1
  12137. ; ENDIF
  12138. ;ENDIF
  12139.  
  12140. ;フェラで射精後のお掃除
  12141. ;IF (TCVAR:MASTER:112 == 1 || TCVAR:MASTER:112 == 2) && SELECTCOM == 81
  12142. ; PRINTFORMW 「ちゅう…、これで綺麗になったね//」
  12143. ;ENDIF
  12144.  
  12145. @M_KOJO_MESSAGE_PALAMCNG_C_K44
  12146. CALL PALAM_MESSAGE_C
  12147. ;処女喪失
  12148. IF TFLAG:4
  12149. SIF TALENT:Love && !TCVAR:泥酔 && !FLAG:70
  12150. PRINTFORMW 「少し痛いけど…わたしは%CALLNAME:MASTER%に初めてをあげれて幸せよ%UNICODE(0x2665)%//」
  12151. ENDIF
  12152.  
  12153. ;フェラで射精後のお掃除
  12154. IF (TFLAG:8 & 1) && NOWEX:PLAYER:11
  12155. PRINTFORMW 「ちゅう…、これで綺麗になったね//」
  12156. ENDIF
  12157.  
  12158. ;-------------------------------------------
  12159. ;刻印取得
  12160. ;-------------------------------------------
  12161. @M_KOJO_MESSAGE_MARKCNG_K44
  12162. ;このままだと地の文が表示されません
  12163. ;地の文を表示したい方は、下記のコメントアウトを削除して下さい
  12164. CALL MARK_MESSAGE
  12165. ;苦痛刻印
  12166. IF TFLAG:22 == 1
  12167. PRINTFORMW
  12168. ELSEIF TFLAG:22 == 2
  12169. PRINTFORMW
  12170. ELSEIF TFLAG:22 == 3
  12171. PRINTFORMW
  12172. ENDIF
  12173.  
  12174. ;時姦刻印
  12175. IF TFLAG:時姦刻印取得 == 1
  12176. PRINTFORMW
  12177. ELSEIF TFLAG:時姦刻印取得 == 2
  12178. PRINTFORMW
  12179. ELSEIF TFLAG:時姦刻印取得 == 3
  12180. PRINTFORMW
  12181. ENDIF
  12182.  
  12183. [SKIPSTART]
  12184. ;快楽刻印
  12185. IF TFLAG:23 == 1
  12186. PRINTFORMW
  12187. ELSEIF TFLAG:23 == 2
  12188. PRINTFORMW
  12189. ELSEIF TFLAG:23 == 3
  12190. PRINTFORMW
  12191. ENDIF
  12192. [SKIPEND]
  12193.  
  12194. ;不埒刻印
  12195. ;快楽による刻印
  12196. ;LV1
  12197. IF TFLAG:24 == 11
  12198. PRINTFORMW
  12199. ;LV2
  12200. ELSEIF TFLAG:24 == 12
  12201. PRINTFORMW
  12202. ;LV3
  12203. ELSEIF TFLAG:24 == 13
  12204. PRINTFORMW
  12205. ;屈服、恭順による刻印
  12206. ;LV1
  12207. ELSEIF TFLAG:24 == 31
  12208. PRINTFORMW
  12209. ;LV2
  12210. ELSEIF TFLAG:24 == 32
  12211. PRINTFORMW
  12212. ;LV3
  12213. ELSEIF TFLAG:24 == 33
  12214. PRINTFORMW
  12215. ENDIF
  12216.  
  12217. ;反発刻印
  12218. IF TFLAG:21 == 1
  12219. PRINTFORMW
  12220. ELSEIF TFLAG:21 == 2
  12221. PRINTFORMW
  12222. ELSEIF TFLAG:21 == 3
  12223. PRINTFORMW
  12224. ENDIF
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!