Finish 1.28.9

wamekukyouzin · Sep 9, 2020 · 4451663 · 4451663
2 parents 8809b8f + cef3291
commit 4451663
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 11 deletions.
diff --git a/CSV/GameBase.csv b/CSV/GameBase.csv
@@ -1,5 +1,5 @@
 コード,9224517
-バージョン,12808
+バージョン,12809
 ウィンドウタイトル,eratohoK
 タイトル,eratohoK
 作者,喚く狂人

diff --git a/ERB/SLG/SLG_AI.ERB b/ERB/SLG/SLG_AI.ERB
@@ -5,6 +5,7 @@
 #DIM 攻撃兵数
 #DIM 都市
 #DIM 部隊
+#DIM 部隊作成失敗
 #DIM キャラ
 #DIM USETIME
 
@@ -61,6 +62,7 @@ CALL SLG_AI_DECIDE_SOLDIER_NUM(勢力)
 CALL SLG_AI_RESCUE(勢力, 攻撃兵数)
 攻撃兵数 = RESULT
 
+部隊作成失敗 = 0
 ;部隊の侵攻判定
 FOR 部隊, 0, MAX_UNIT
 	;既存部隊の場合、移動できない連中は飛ばす
@@ -90,22 +92,18 @@ FOR 部隊, 0, MAX_UNIT
 			CALL CLEAR_UNIT(勢力, 部隊, 1)
 			CONTINUE
 		ENDIF
-	ENDIF
-NEXT
-
-;部隊の侵攻判定
-FOR 部隊, 0, MAX_UNIT
-	;既存部隊でなければ、部隊の作成を試みる
-	IF UNIT_SOLDIER:勢力:部隊 <= 0
+	ELSEIF UNIT_SOLDIER:勢力:部隊 <= 0 && 部隊作成失敗 == 0
+		;既存部隊でなければ、部隊の作成を試みる
 		CALL SLG_AI_CREATE_UNIT(勢力, 部隊, 攻撃兵数)
 		;作れなかったら飛ばす
-		SIF 攻撃兵数 == RESULT
-			BREAK
+		IF 攻撃兵数 == RESULT
+			部隊作成失敗 = 1
+			CONTINUE
+		ENDIF
 		攻撃兵数 = RESULT
 	ENDIF
 	;攻撃先の決定
 	CALL SLG_AI_INVASION_SETTARGET(勢力, 部隊)
-
 NEXT
 
 ;;#;FOR 部隊, 0, MAX_UNIT

diff --git a/changeLog.txt b/changeLog.txt
@@ -1,4 +1,8 @@
 # 更新履歴
+## 2020年9月10日 version 1.28.9
+FIX:AIが部隊を遊ばせてしまう問題
+FIX:AIが本来移動できない部隊を移動させられる問題
+
 ## 2020年9月10日 version 1.28.8
 FIX:エンコ狂いによる起動時エラー