2022/08/18更新

CSV/GameBase.csv

@@ -1,10 +1,10 @@
 コード,100200402
-バージョン,2160
+バージョン,2170
 タイトル,eraOrigin
 作者,DJ Walt-heR vs DJ Enter
 製作年,2013-2022
 バージョン違い認める,2130
 追加情報,※これは調教SLG作成ツールerakanonの改変・再配布です。
-バージョン名,2.16_20220616
+バージョン名,2.17_20220818
 バージョン情報URL,https://dl.dropboxusercontent.com/s/1d55ba3ohi7d2gn/version.txt
 

CSV/Item.csv

@@ -28,6 +28,8 @@
 26,貞操帯,30000,;男性用の貞操帯
 27,尿道カテーテル,10000
 28,双頭ディルド,5000
+50,コナステベーシックコース,1628
+51,コナステ解約,0
 
 ;100～199番までは複数購入できる道具用の枠に
 100,ローション,200,

CSV/Train.csv

@@ -82,7 +82,7 @@
 125,機械の勉強
 126,プログラミング演習
 127,魔法の練習
-;仮置き 服を脱がす
+128,コナステで遊ぶ
 
 ;-4 特殊コマンド
 140,尻尾を撫でる

ERB/CSV_Editor_改/CSVエディター.ERB

@@ -114,8 +114,7 @@ FOR LCOUNT, 0, VARSIZE("EXP")
 	RESETCOLOR
 	表示数++
 NEXT
-SIF !LINEISEMPTY()
-	PRINTL 
+CALL NEWLINE
 
 DRAWLINE
 PRINTL □ 能力
@@ -145,9 +144,7 @@ FOR LCOUNT, 0, VARSIZE("ABL")
 	RESETCOLOR
 	表示数++
 NEXT
-
-SIF !LINEISEMPTY()
-	PRINTL 
+CALL NEWLINE
 
 DRAWLINE
 PRINTPLAIN □ 素質 
@@ -212,9 +209,7 @@ FOR LCOUNT, 0, VARSIZE("TALENT")
 		VARSET 表示用変数
 	ENDIF
 NEXT
-
-SIF !LINEISEMPTY()
-	PRINTL 
+CALL NEWLINE
 
 DRAWLINE
 PRINTL □ 服装
@@ -262,15 +257,13 @@ FOR LCOUNT, 0, 10000
 			PRINTFORMLC %表示用変数%
 			表示数++
 		ENDIF
-		IF 表示数 == 4 && !LINEISEMPTY()
-			PRINTL 
+		IF 表示数 == 4
+			CALL NEWLINE
 			表示数 = 0
 		ENDIF
 	ENDIF
 NEXT
-
-SIF !LINEISEMPTY()
-	PRINTL 
+CALL NEWLINE
 
 DRAWLINE
 PRINTPLAIN □ キャラマニュアル 
@@ -354,7 +347,7 @@ SELECTCASE RESULTS
 		PRINTL [1] - いいえ
 		CALL INPUTF, 0, 1
 		IF RESULT == 0
-			RESETDATA
+			CALL RESET_DATA
 			RESTART
 		ENDIF
 		GOTO RESTART

ERB/SHOPコマンド関連/1-SHOP(ショートカット関連).ERB

@@ -93,6 +93,7 @@ ENDSELECT
 #DIM DYNAMIC LCOUNT
 #DIM DYNAMIC 登録番号
 #DIM DYNAMIC LRESULT
+#DIM DYNAMIC ページ数
 {
 #DIMS DYNAMIC 施設名 = 
 "ゲームセンター",
@@ -115,13 +116,14 @@ DRAWLINE
 PRINTL □登録する番号を選んでください
 FOR LCOUNT, 0, VARSIZE("LNK")
 	IF LNK:LCOUNT == ""
+		SETCOLORBYNAME gray
 		PRINTFORMLC [{LCOUNT, 2}] - 登録する
+		RESETCOLOR
 	ELSE
 		PRINTFORMLC [{LCOUNT, 2}] - %LNKCOM(LNK:LCOUNT)%
 	ENDIF
 NEXT
-SIF !LINEISEMPTY()
-	PRINTL 
+CALL NEWLINE
 DRAWLINE
 PRINTPLAIN 　ショートカット　
 PRINTL [-1] - 戻る
@@ -152,14 +154,14 @@ DO
 	INPUT
 	SELECTCASE RESULT
 		CASE 1
-			FOR PAGING, 0, CHARANUM
+			FOR PAGING, 1, CHARANUM
 				CALL PAGING, 1, "", "TARGET"
 			NEXT
 			SIF RESULT == -1
 				GOTO コマンド選択
 			LNK:登録番号 = 調教/{NO:RESULT}
 		CASE 2
-			FOR PAGING, 0, CHARANUM
+			FOR PAGING, 1, CHARANUM
 				CALL PAGING, 1, "", "TARGET", "調教対象を外す"
 			NEXT
 			LRESULT = RESULT
@@ -171,7 +173,7 @@ DO
 				LNK:登録番号 = 対象選択/{NO:LRESULT}
 			ENDIF
 		CASE 3
-			FOR PAGING, 0, CHARANUM
+			FOR PAGING, 1, CHARANUM
 				CALL PAGING, CFLAG:PAGING:状態 >= 2, "", "ASSI", "助手を外す"
 			NEXT
 			LRESULT = RESULT
@@ -199,8 +201,7 @@ DO
 				選択可能:LCOUNT = 1
 				PRINTFORMLC [{LCOUNT}] %施設名:LCOUNT%
 			NEXT
-			SIF !LINEISEMPTY()
-				PRINTL 
+			CALL NEWLINE
 			DO
 				INPUT
 				IF 施設名:RESULT != "" && 選択可能:RESULT
@@ -216,28 +217,54 @@ DO
 				BREAK
 			LNK:登録番号 = 居住部屋/{NO:RESULT}
 		CASE 6
-			FOR LCOUNT, 0, 20
+			$SAVE
+			FOR LCOUNT, ページ数*20, ページ数*20+20
 				PRINTFORML 　[{LCOUNT, 2}] - {LCOUNT}番にセーブ
 			NEXT
+			DRAWLINE
+			CALL PRINTSPACE, ページ数 > 0, "　[101] 前ページ　"
+			CALL PRINTSPACE, ページ数 < 3, "[109] 次ページ"
 			DO
 				INPUT
-				SIF !INRANGE(RESULT, 0, 19)
+				SELECTCASE RESULT
+					CASE 101
+						SIF ページ数 > 0
+							ページ数--
+						GOTO SAVE
+					CASE 109
+						SIF ページ数 < 3
+							ページ数++
+						GOTO SAVE
+				ENDSELECT
+				SIF !INRANGE(RESULT, 0, 79)
 					CONTINUE
 				LNK:登録番号 = セーブ/{RESULT}
 			LOOP 0
 		CASE 7
-			FOR LCOUNT, 0, 20
+			$LOAD
+			FOR LCOUNT, ページ数*20, ページ数*20+20
 				PRINTFORML 　[{LCOUNT, 2}] - {LCOUNT}番のセーブデータをロード
 			NEXT
 			DRAWLINE
 			FOR LCOUNT, 1, 7
 				PRINTFORML 　[{LCOUNT+90, 2}] - {LCOUNT}ターン前のセーブデータをロード
 			NEXT
+			DRAWLINE
+			CALL PRINTSPACE, ページ数 > 0, "　[101] 前ページ　"
+			CALL PRINTSPACE, ページ数 < 3, "[109] 次ページ"
 			DO
 				INPUT
 				SELECTCASE RESULT
-					CASE 0 TO 19
-						LNK:登録番号 = セーブ/{RESULT}
+					CASE 101
+						SIF ページ数 > 0
+							ページ数--
+						GOTO LOAD
+					CASE 109
+						SIF ページ数 < 3
+							ページ数++
+						GOTO LOAD
+					CASE 0 TO 79
+						LNK:登録番号 = ロード/{RESULT}
 						BREAK
 					CASE 91 TO 96
 						LNK:登録番号 = チェックポイント/{RESULT-90}
@@ -295,8 +322,7 @@ IF MATCH(LNK, "") == VARSIZE("LNK")
 	PRINTL 　ショートカットはありません
 	PRINTL 
 ENDIF
-SIF !LINEISEMPTY()
-	PRINTL 
+CALL NEWLINE
 DRAWLINE
 PRINTPLAIN 　ショートカット削除　
 PRINTL [-1] - 戻る
@@ -311,7 +337,3 @@ DO
 			RESTART
 	ENDSELECT
 LOOP 1
-
-
-
-

ERB/SHOPコマンド関連/1-SHOP.ERB

@@ -465,8 +465,7 @@ IF ショートカット
 		SIF LNK:LCOUNT != ""
 			PRINTFORMLC 　[{LCOUNT+1000}] - %LNKCOM(LNK:LCOUNT)%
 	NEXT
-	SIF !LINEISEMPTY()
-		PRINTL 
+	CALL NEWLINE
 	SIF FINDELEMENT(LNK, "", 0, VARSIZE("LNK"), 1) >= 0
 		PRINTLC 　[1100] - ショートカットコマンドの登録
 	PRINTLC 　[1101] - ショートカットキーの削除
@@ -1404,8 +1403,7 @@ IF LANGUAGE == "ENG"
 		PRINTFORM 　Saved Blood:{FLAG:保管済み血液}ml
 	SIF FLAG:保管済み粘液
 		PRINTFORM 　Saved Mucus:{FLAG:保管済み粘液}ml
-	SIF !LINEISEMPTY()
-		PRINTL 
+	CALL NEWLINE
 
 	PRINTFORM 　Master:%NAMEDISP(MASTER)% %性別表示(MASTER)% 
 	SIF TALENT:MASTER:ふたなり
@@ -1438,8 +1436,7 @@ ELSE
 		PRINTFORM 　保管済み血液:{FLAG:保管済み血液}ml
 	SIF FLAG:保管済み粘液
 		PRINTFORM 　保管済み粘液:{FLAG:保管済み粘液}ml
-	SIF !LINEISEMPTY()
-		PRINTL 
+	CALL NEWLINE
 
 	PRINTFORM 　主人:%NAMEDISP(MASTER)% %性別表示(MASTER)% 
 	SIF TALENT:MASTER:ふたなり
@@ -1858,5 +1855,3 @@ SELECTCASE MONTH
 	CASE 12, 1, 2
 		CALL BGM再生, 新婚_冬
 ENDSELECT
-
-

ERB/SHOPコマンド関連/2-アイテム購入画面.ERB

@@ -169,9 +169,7 @@ FOR LCOUNT, 0, 1100
 		ENDSELECT
 	ENDIF
 NEXT
-
-SIF !LINEISEMPTY()
-	PRINTL 
+CALL NEWLINE
 
 @SHOPITEM_LIST, アイテム分類, 条件判定
 #DIM DYNAMIC 表示数
@@ -214,6 +212,9 @@ SIF FINDCHARA(TALENT:リミットバースト, 1) > 0
 SELECTCASE アイテム分類
 	CASE "調教道具", "すべて"
 		FOR LCOUNT, 0, 100
+			;コナステ解約は契約時のみ選択可能
+			SIF ITEMNAME:LCOUNT == "コナステ解約" && ITEM:コナステベーシックコース != 2
+				CONTINUE
 			ITEMSALES:LCOUNT = !ITEM:LCOUNT
 		NEXT
 ENDSELECT
@@ -433,9 +434,7 @@ FOR LCOUNT, 0, VARSIZE("ITEM")
 		ENDIF
 	ENDIF
 NEXT
-
-SIF !LINEISEMPTY()
-	PRINTL 
+CALL NEWLINE
 
 IF 条件判定
 	SKIPDISP 0
@@ -499,15 +498,26 @@ CALL アイテム説明, アイテム名
 ;購入の意志を再確認するように
 SELECTCASE アイテム分類
 	CASE "買い切り"
-		PRINTFORML 本当に%アイテム名%を購入しますか？
-		PRINTL [0] 購入する
-		PRINTL [1] やめる
+		IF アイテム名 == "コナステ解約"
+			PRINTL 本当にコナステを解約しますか？
+			PRINTL [0] 解約する
+			PRINTL [1] やめる
+		ELSE
+			PRINTFORML 本当に%アイテム名%を購入しますか？
+			PRINTL [0] 購入する
+			PRINTL [1] やめる
+		ENDIF
 		CALL INPUTF, 0, 1
 		SIF RESULT == 1
 			RETURN
-		CALL SE再生, 出入金
-		PRINTFORMW ＜%アイテム名%を購入しました＞
-		CALL プレイログ記録, @"「%アイテム名%」購入"
+		IF アイテム名 == "コナステ解約"
+			PRINTW ＜コナステを解約しました。サービスは月末までご利用できます＞
+		ELSE
+			CALL SE再生, 出入金
+			PRINTFORMW ＜%アイテム名%を購入しました＞
+			CALL プレイログ記録, @"「%アイテム名%」購入"
+			ITEM:アイテム名 = 1
+		ENDIF
 		;割引対象は淫具のみ
 		IF GETNUM(ITEM, アイテム名) < 500 && 割引
 			MONEY -= ITEMPRICE:アイテム名/10*8
@@ -517,7 +527,6 @@ SELECTCASE アイテム分類
 			CALL 現金出納帳記録, @"「%アイテム名%」購入/-{ITEMPRICE:アイテム名}"
 		ENDIF
 		ITEMSALES:アイテム名 = 0
-		ITEM:アイテム名 = 1
 		;事業開発オフィスはカメラも付いてくる
 		SIF アイテム名 == "事業開発オフィス"
 			ITEM:カメラ = 1
@@ -526,6 +535,10 @@ SELECTCASE アイテム分類
 			ナンプレプレイ中 = 0
 			ナンプレ完成 = 0
 		ENDIF
+		SIF アイテム名 == "コナステベーシックコース"
+			ITEM:コナステベーシックコース = 2
+		SIF アイテム名 == "コナステ解約"
+			ITEM:コナステベーシックコース = 1
 	CASE "複数購入可"
 		;消耗品は専用の関数で
 		CALL BUY_PLURAL, アイテム名
@@ -1689,6 +1702,12 @@ SELECTCASE アイテム名
 		PRINTL 特殊な研修と訓練を行い、能力のマイナス値を打ち消します。3日間使用不可になります
 	CASE "抗スライム薬"
 		PRINTL スライムの感染を予防or治癒します。干物が材料に使われているらしい…
+	CASE "双頭ディルド"
+		PRINTL 両端が男性器を模した道具。男女兼用
+	CASE "コナステベーシックコース"
+		PRINTL KO○AMIのアーケードゲームをPCやスマートフォンからいつでも楽しめるサービス！（毎月1日決済）
+	CASE "コナステ解約"
+		PRINTL またのご利用をお待ちしてます
 ENDSELECT
 
 @アイテム使用_逆引き, 使用対象
@@ -1759,6 +1778,3 @@ DO
 			RETURN
 	ENDSELECT
 LOOP 1
-
-
-