2022/02/19更新

.gitignore

@@ -13,7 +13,4 @@ Emuera-Anchor.exe
 CreatedCSV/*.csv
 CreatedDialogue/*.ERB
 CreatedDialogue/backuptxt/*.txt
-CSV/Chara/*
-!CSV/Chara0_あなた.csv
-ERB/口上/*
-!ERB/口上/口上制御.ERB
+!CreatedDialogue/backuptxt/このフォルダについて.txt

CSV/GameBase.csv

@@ -1,5 +1,5 @@
 コード,100200402
-バージョン,2160
+バージョン,2150
 タイトル,eraOrigin
 作者,DJ Walt-heR vs DJ Enter
 製作年,2013-2021

CSV/Global.csv

@@ -107,3 +107,6 @@
 108,そして世界は粘液に満ちた
 109,ごほうびをカジる権利
 110,ゲームの達人
+111,SPEED DEMON
+112,君eraBEMANI上手いねぇ
+113,I've so Happy

CSV/Tequip.csv

@@ -50,6 +50,7 @@
 51,粘液ぶっかけ
 52,ライブ配信
 53,尿道ポッキー
+54,尿道スライム
 
 90,妊娠確率分母
 91,妊娠確率分子

CSV/Tflag.csv

@@ -18,6 +18,7 @@
 17,ペニバン着用者
 18,ミッドナイトスペシャル使用者
 19,奉仕コマンド
+20,尿道スライム量
 
 ;1～99まではコマンド終了時,100～は次の調教開始時にリセットされる
 

CSV/Train.csv

@@ -32,6 +32,7 @@
 40,胸揉み
 41,乳首責め
 42,胸愛撫
+43,乳首舐め
 
 ;-6 自慰系
 50,自慰
@@ -296,6 +297,7 @@
 380,尿道カテーテル
 381,尿道挿入
 382,尿道ポッキー
+383,スライム尿道責め
 
 
 ;--6,拷問系(400～449)

CreatedDialogue/backuptxt/このフォルダについて.txt

@@ -0,0 +1 @@
+バックアップ用のフォルダです

ERB/ABL上昇処理/ABLUP19_メス度.ERB

@@ -15,60 +15,71 @@ IF RESULT
 ENDIF
 
 @NEED_JUEL_メス度
-;噴乳中毒のコピーしただけなので保留
+#DIM DYNAMIC AB感度
 SELECTCASE ABL:メス度
 	CASE 0
-		ABLUP:GETPALAM("快Ａ") = 5000
+		ABLUP:GETPALAM("快Ａ") = 3000
+		ABLUP:GETPALAM("快Ｂ") = 2000
 		ABLUP:GETPALAM("屈服") = 3000
 		ABLUPEXP:GETEXP("Ａ経験") = 50
 		ABLUPEXP:GETEXP("射精管理経験") = 30
 	CASE 1
-		ABLUP:GETPALAM("快Ａ") = 20000
+		ABLUP:GETPALAM("快Ａ") = 12000
+		ABLUP:GETPALAM("快Ｂ") = 8000
 		ABLUP:GETPALAM("屈服") = 10000
 		ABLUPEXP:GETEXP("Ａ経験") = 100
 		ABLUPEXP:GETEXP("射精管理経験") = 50
 	CASE 2
-		ABLUP:GETPALAM("快Ａ") = 50000
+		ABLUP:GETPALAM("快Ａ") = 30000
+		ABLUP:GETPALAM("快Ｂ") = 20000
 		ABLUP:GETPALAM("屈服") = 20000
 		ABLUPEXP:GETEXP("Ａ経験") = 150
 		ABLUPEXP:GETEXP("射精管理経験") = 100
 	CASE 3
-		ABLUP:GETPALAM("快Ａ") = 100000
+		ABLUP:GETPALAM("快Ａ") = 60000
+		ABLUP:GETPALAM("快Ｂ") = 40000
 		ABLUP:GETPALAM("屈服") = 30000
 		ABLUPEXP:GETEXP("Ａ経験") = 250
 		ABLUPEXP:GETEXP("射精管理経験") = 200
 	CASE 4
-		ABLUP:GETPALAM("快Ａ") = 150000
+		ABLUP:GETPALAM("快Ａ") = 90000
+		ABLUP:GETPALAM("快Ｂ") = 60000
 		ABLUP:GETPALAM("屈服") = 50000
 		ABLUPEXP:GETEXP("Ａ経験") = 350
 		ABLUPEXP:GETEXP("射精管理経験") = 300
 	CASE 5
-		ABLUP:GETPALAM("快Ａ") = 200000
+		ABLUP:GETPALAM("快Ａ") = 120000
+		ABLUP:GETPALAM("快Ｂ") = 80000
 		ABLUP:GETPALAM("屈服") = 70000
 		ABLUPEXP:GETEXP("Ａ経験") = 500
 		ABLUPEXP:GETEXP("射精管理経験") = 500
 	CASE 6
-		ABLUP:GETPALAM("快Ａ") = 300000
+		ABLUP:GETPALAM("快Ａ") = 180000
+		ABLUP:GETPALAM("快Ｂ") = 120000
 		ABLUP:GETPALAM("屈服") = 100000
 		ABLUPEXP:GETEXP("Ａ経験") = 600
 		ABLUPEXP:GETEXP("射精管理経験") = 700
 	CASE 7
-		ABLUP:GETPALAM("快Ａ") = 500000
+		ABLUP:GETPALAM("快Ａ") = 300000
+		ABLUP:GETPALAM("快Ｂ") = 200000
 		ABLUP:GETPALAM("屈服") = 150000
 		ABLUPEXP:GETEXP("Ａ経験") = 750
 		ABLUPEXP:GETEXP("射精管理経験") = 900
 	CASE 8
-		ABLUP:GETPALAM("快Ａ") = 700000
+		ABLUP:GETPALAM("快Ａ") = 420000
+		ABLUP:GETPALAM("快Ｂ") = 280000
 		ABLUP:GETPALAM("屈服") = 200000
 		ABLUPEXP:GETEXP("Ａ経験") = 850
 		ABLUPEXP:GETEXP("射精管理経験") = 1200
 	CASE 9
-		ABLUP:GETPALAM("快Ａ") = 1000000
+		ABLUP:GETPALAM("快Ａ") = 600000
+		ABLUP:GETPALAM("快Ｂ") = 400000
 		ABLUP:GETPALAM("屈服") = 300000
 		ABLUPEXP:GETEXP("Ａ経験") = 1000
 		ABLUPEXP:GETEXP("射精管理経験") = 1500
 	CASE IS >= 10
-		ABLUP:GETPALAM("快Ａ") = 12000 * POWER(ABL:メス度, 2)
+		ABLUP:GETPALAM("快Ａ") = 7200 * POWER(ABL:メス度, 2)
+		ABLUP:GETPALAM("快Ｂ") = 4800 * POWER(ABL:メス度, 2)
 		ABLUP:GETPALAM("屈服") = 5000 * POWER(ABL:メス度, 2)
 ENDSELECT
 
@@ -87,9 +98,16 @@ IF TALENT:去勢済み
 	ABLUPEXP:GETEXP("射精管理経験") = 0
 ENDIF
 
+;珠はA感度B感度に応じて最大20％緩和
+AB感度 = LIMIT(ABL:Ａ感覚, 0, 10)+LIMIT(ABL:Ｂ感覚, 0, 10)
+IF AB感度 > 0
+	ABLUP:GETPALAM("快Ａ") -= ABLUP:GETPALAM("快Ａ")*AB感度/100
+	ABLUP:GETPALAM("快Ｂ") -= ABLUP:GETPALAM("快Ｂ")*AB感度/100
+ENDIF
+
 @CHECK_JUEL_メス度
-;快Ａ、屈服の珠、Ａ経験、射精管理経験で上げる
-SIF JUEL:快Ａ >= ABLUP:GETPALAM("快Ａ") && JUEL:屈服 >= ABLUP:GETPALAM("屈服") && EXP:Ａ経験 >= ABLUPEXP:GETEXP("Ａ経験") && EXP:射精管理経験 >= ABLUPEXP:GETEXP("射精管理経験")
+;快Ａ、快Ｂ、屈服の珠、Ａ経験、射精管理経験で上げる
+SIF JUEL:快Ａ >= ABLUP:GETPALAM("快Ａ") && JUEL:快Ｂ >= ABLUP:GETPALAM("快Ｂ") && JUEL:屈服 >= ABLUP:GETPALAM("屈服") && EXP:Ａ経験 >= ABLUPEXP:GETEXP("Ａ経験") && EXP:射精管理経験 >= ABLUPEXP:GETEXP("射精管理経験")
 	RETURN 1
 
 ;上記の条件を満たさないと上げられない
@@ -101,6 +119,11 @@ SIF JUEL:快Ａ < ABLUP:GETPALAM("快Ａ")
 PRINTFORM [快Ａの珠×{ABLUP:GETPALAM("快Ａ")}]
 RESETCOLOR
 
+SIF JUEL:快Ｂ < ABLUP:GETPALAM("快Ｂ")
+	SETCOLORBYNAME gray
+PRINTFORM [快Ｂの珠×{ABLUP:GETPALAM("快Ｂ")}]
+RESETCOLOR
+
 SIF JUEL:屈服 < ABLUP:GETPALAM("屈服")
 	SETCOLORBYNAME gray
 PRINTFORM [屈服の珠×{ABLUP:GETPALAM("屈服")}]

ERB/ABL上昇処理/ABLUP1_欲望.ERB

@@ -112,7 +112,7 @@ SELECTCASE ABL:欲望
 		SIF EXP:異常経験 == 0 && MARK:快楽刻印 < 3
 			SETCOLORBYNAME gray
 		SIF ABLUPEXP:GETEXP("異常経験")
-			PRINT [異常経験1以上or快楽刻印LV3以上]
+			PRINT [異常経験1以上or快楽刻印LV3]
 		RESETCOLOR
 	CASE 7
 		SIF EXP:異常経験 < ABLUPEXP:GETEXP("異常経験")

ERB/ABL上昇処理/ABL_全般.ERB

@@ -100,16 +100,8 @@ DRAWLINE
 PRINTPLAIN 　ABLUP　
 PRINT [100] 能力値アップの終了 
 IF FLAG:能力上昇 != 0
-	IF TARGET > 1
-		PRINT [101] 前のキャラ 
-	ELSE
-		PRINTPLAINFORM %SPACESLENS("[101] 前のキャラ ")%
-	ENDIF
-	IF CHARANUM > TARGET+1
-		PRINT [109] 次のキャラ
-	ELSE
-		PRINTPLAINFORM %SPACESLENS("[109] 次のキャラ ")%
-	ENDIF
+	CALL PRINTSPACE, TARGET > 1, "[101] 前のキャラ "
+	CALL PRINTSPACE, CHARANUM > TARGET+1, "[109] 次のキャラ "
 ENDIF
 PRINTL 
 
@@ -149,7 +141,6 @@ SELECTCASE RESULT
 ENDSELECT
 
 @SHOP_ABLUP
-#DIMS DYNAMIC BUTTONS
 #DIM DYNAMIC 次ページあり
 DRAWLINE
 PRINTL 能力を上昇させたいキャラを選んでください
@@ -162,37 +153,29 @@ CALL LIFE_LIST, "通常表示"
 次ページあり = RESULT
 DRAWLINE
 PRINTPLAIN 　ABLUP　
-BUTTONS = 
-SIF TFLAG:ページ数 > 0
-	BUTTONS = [999] 前ページ 
-
-PRINTFORM %BUTTONS, 15, LEFT%
 
+CALL PRINTSPACE, TFLAG:ページ数 > 0, "[999] 前ページ "
 PRINTFORM [1000] 戻る 
-SIF 次ページあり
-	PRINTFORM [1001] 次ページ 
+CALL PRINTSPACE, 次ページあり, "[101] 次ページ "
 PRINTL 
-DO
-	INPUT
-	SELECTCASE RESULT
-		CASE 0
-			PRINTW 主人の能力は上げられません
-			RESTART
-		CASE 999
-			SIF TFLAG:ページ数 > 0
-				TFLAG:ページ数--
-		CASE 1000
-			RETURN 0
-		CASE 1001
-			SIF 次ページあり
-				TFLAG:ページ数++
-		CASE 0 TO CHARANUM-1
-			FLAG:能力上昇 = TARGET
-			TARGET = RESULT
-			BEGIN ABLUP
-			BREAK
-	ENDSELECT
-LOOP LOOPRES(999, 1000, 1001)
+
+INPUT
+SELECTCASE RESULT
+	CASE 0
+		PRINTW 主人の能力は上げられません
+	CASE 999
+		SIF TFLAG:ページ数 > 0
+			TFLAG:ページ数--
+	CASE 1000
+		RETURN 0
+	CASE 1001
+		SIF 次ページあり
+			TFLAG:ページ数++
+	CASE 0 TO CHARANUM-1
+		FLAG:能力上昇 = TARGET
+		TARGET = RESULT
+		BEGIN ABLUP
+ENDSELECT
 
 RESTART
 

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

@@ -79,16 +79,21 @@ NEXT
 
 CALL CVAR_RESET
 
-SIF GC店名 == ""
-	GC店名 = ゲームセンター
-SIF GC店名 == "ゲームセンター" && LANGUAGE == "ENG"
-	GC店名 = Game Center
-
+IF GC店名 == ""
+	IF LANGUAGE == "ENG"
+		GC店名 = Game Center
+	ELSE
+		GC店名 = ゲームセンター
+	ENDIF
+ENDIF
 
-SIF 娼館店名 == ""
-	娼館店名 = 娼館
-SIF 娼館店名 == "娼館" && LANGUAGE == "ENG" 
-	娼館店名 = Brothel
+IF 娼館店名 == ""
+	IF LANGUAGE == "ENG"
+		娼館店名 = Brothel
+	ELSE
+		娼館店名 = 娼館
+	ENDIF
+ENDIF
 
 ;GUMINDAYSキャラ5人以上陥落でユリア天使化イベント
 SIF GUMINDAYS >= 5
@@ -1012,11 +1017,18 @@ SELECTCASE RESULT
 		SELECTCASE ゲームモード()
 			CASE "通常モード"
 				;100万
-				SIF MONEY >= TONUM("100万")
+				IF MONEY >= TONUM("100万")
+					;実績:1周目のゲームを20日以内にクリアする
+					SIF FLAG:周回数 == 1 && DAY <= 20
+						CALL 実績解除, "SPEED DEMON"
 					CALL ENDING_CHECK
+				ENDIF
 			CASE "経営モード"
 				;1億
 				IF MONEY >= TONUM("1億")
+					;実績:1周目のゲームを20日以内にクリアする
+					SIF FLAG:周回数 == 1 && DAY <= 20
+						CALL 実績解除, "SPEED DEMON"
 					;実績:キャラを一人も購入せずにパートナーだけでSTRATEGYモードをクリアする
 					SIF キャラ未購入
 						CALL 実績解除, "もう全部あいつ一人でいいんじゃないかな"
@@ -1680,13 +1692,9 @@ NEXT
 DRAWLINE
 PRINTPLAINFORM 　VIDEO.{ページ数+1}　
 PRINT [0] - 戻る 
-IF ページ数 > 0
-	PRINT [1] - 前ページ
-ELSE
-	PRINTPLAIN 　　　　　　　
-ENDIF
-SIF ページ数+1 < 総ページ数
-	PRINTL [9] - 次ページ
+CALL PRINTSPACE, ページ数 > 0, "[1] - 前ページ "
+CALL PRINTSPACE, ページ数+1 < 総ページ数, "[9] - 次ページ "
+PRINTL 
 
 CALL INPUTF, 0, 1, 9
 SELECTCASE RESULT