RoTL map 4, save green, limit red

campgns/keeporig_lnd/dkcredts.txt

@@ -293,10 +293,13 @@ ALAN WRIGHT
 Tomasz Lis aka Mefistotelis
 
 AdamP
+Axidal
 Bl4ckj4r
 Cerwym
 Eddebaby
+Hzzdev
 Kxvv
+Jwt27
 Loobinex
 OrsonMaxwell
 Mu Mu

campgns/revlord/map01237.txt

@@ -31,6 +31,8 @@ COMPUTER_PLAYER(PLAYER2,0)
 
 REM The AI should not force his way into the enemy dungeon
 SET_COMPUTER_EVENT(PLAYER2,"EVENT ENEMY DOOR", 400, 30, 2500, 2, 0)
+REM The AI should not try to steal the portal in the enemy dungeon
+SET_COMPUTER_PROCESS(PLAYER2,"DIG TO AN ENTRANCE",0,18000,0,0,0)
 
 REM Creature diversity got seriously expanded... now you have nearly full lineup. Wizards/witches are still shy though, so Fairies are still the fashion.
 ADD_CREATURE_TO_POOL(THIEF,8)
@@ -93,7 +95,6 @@ CREATE_PARTY(WAVE_CORRUPT)
 CREATE_PARTY(WAVE_FINAL)
 
 ADD_TO_PARTY(WAVE_BALANCED,HELL_HOUND,3,0,ATTACK_ENEMIES,200)
-ADD_TO_PARTY(WAVE_BALANCED,SORCEROR,3,0,ATTACK_ENEMIES,200)
 ADD_TO_PARTY(WAVE_BALANCED,ORC,3,0,ATTACK_ENEMIES,200)
 ADD_TO_PARTY(WAVE_BALANCED,TROLL,3,0,ATTACK_ENEMIES,200)
 ADD_TO_PARTY(WAVE_BALANCED,DARK_MISTRESS,3,200,ATTACK_ENEMIES,200)
@@ -163,6 +164,7 @@ ENDIF
 REM On second payday, add imp+party attack if treasury isn't yet captured, and start southern monster harrassment.
 REM Using Transferred creature, it's possible to avert the attack.
 IF(PLAYER0,TIMER0 >= 20000)
+	ADD_TO_PARTY(WAVE_BALANCED,SORCEROR,3,0,ATTACK_ENEMIES,200)
 	IF(PLAYER_GOOD,TREASURE >= 10)
 		ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,IMP,6,2,5,500)
 		ADD_PARTY_TO_LEVEL(PLAYER_GOOD,WAVE_BALANCED,6,1)
@@ -181,19 +183,40 @@ IF_ACTION_POINT(2,PLAYER0)
 ENDIF
 
 IF(PLAYER0,TIMER1 >= 10000)
+	NEXT_COMMAND_REUSABLE
+	ADD_TO_FLAG(PLAYER_GOOD,FLAG1,1)
+	NEXT_COMMAND_REUSABLE
+	ADD_TO_FLAG(PLAYER_GOOD,FLAG2,1)
+	NEXT_COMMAND_REUSABLE
+	ADD_TO_FLAG(PLAYER_GOOD,FLAG3,1)
 	NEXT_COMMAND_REUSABLE
 	SET_TIMER(PLAYER0,TIMER1)
-	IF(PLAYER_GOOD, RESEARCH >= 9)
-		NEXT_COMMAND_REUSABLE
-		ADD_PARTY_TO_LEVEL(PLAYER_GOOD,WAVE_MAGICAL,4,1)
+ENDIF
+
+IF(PLAYER_GOOD,TOTAL_CREATURES < 100)
+	IF(PLAYER_GOOD,FLAG1 > 0)
+		IF(PLAYER_GOOD, RESEARCH >= 9)
+			NEXT_COMMAND_REUSABLE
+			ADD_PARTY_TO_LEVEL(PLAYER_GOOD,WAVE_MAGICAL,4,1)
+			NEXT_COMMAND_REUSABLE
+			ADD_TO_FLAG(PLAYER_GOOD,FLAG1,1)
+		ENDIF
 	ENDIF
-	IF(PLAYER_GOOD, TRAINING >= 9)
-		NEXT_COMMAND_REUSABLE
-		ADD_PARTY_TO_LEVEL(PLAYER_GOOD,WAVE_FIGHTERS,5,1)
+	IF(PLAYER_GOOD,FLAG2 > 0)
+		IF(PLAYER_GOOD, TRAINING >= 9)
+			NEXT_COMMAND_REUSABLE
+			ADD_PARTY_TO_LEVEL(PLAYER_GOOD,WAVE_FIGHTERS,5,1)
+			NEXT_COMMAND_REUSABLE
+			ADD_TO_FLAG(PLAYER_GOOD,FLAG2,1)
+		ENDIF
 	ENDIF
-	IF(PLAYER_GOOD, TREASURE >= 9)
-		NEXT_COMMAND_REUSABLE
-		ADD_PARTY_TO_LEVEL(PLAYER_GOOD,WAVE_BALANCED,6,1)
+	IF(PLAYER_GOOD,FLAG3 > 0)
+		IF(PLAYER_GOOD, TREASURE >= 9)
+			NEXT_COMMAND_REUSABLE
+			ADD_PARTY_TO_LEVEL(PLAYER_GOOD,WAVE_BALANCED,6,1)
+			NEXT_COMMAND_REUSABLE
+			ADD_TO_FLAG(PLAYER_GOOD,FLAG3,1)
+		ENDIF
 	ENDIF
 ENDIF