REM ********************************************
REM
REM                   TWO FACE
REM
REM ********************************************

QUICK_OBJECTIVE(1,"Quickly, you have a decision! You must save one of the two creatures below by SELLING THE OPPOSITE CREATURE'S DOOR! The people of the world are watching and whichever you save will swear loyalty to you, now choose! GOOD OR EVIL, BLACK OR WHITE?",PLAYER0)


IF(PLAYER1,FLAG1==0)
	IF(PLAYER2,TOTAL_CREATURES==0)
		SET_FLAG(PLAYER0,FLAG0,1)
		SET_FLAG(PLAYER1,FLAG1,1)
		SET_TIMER(PLAYER0,TIMER0)
		CREATURE_AVAILABLE(PLAYER1,TROLL,1,1)
		CREATURE_AVAILABLE(PLAYER1,DARK_MISTRESS,1,1)
		CREATURE_AVAILABLE(PLAYER1,SORCEROR,1,1)
		CREATURE_AVAILABLE(PLAYER1,BILE_DEMON,1,1)
		CREATURE_AVAILABLE(PLAYER1,HELL_HOUND,1,1)
		CREATURE_AVAILABLE(PLAYER1,DRAGON,1,1)
		CREATURE_AVAILABLE(PLAYER1,ORC,1,1)
		CREATURE_AVAILABLE(PLAYER0,DWARFA,1,1)
		CREATURE_AVAILABLE(PLAYER0,TUNNELLER,1,1)
		QUICK_OBJECTIVE(2,"So you have chosen good? Heroes will be attracted, very well. You have a weak ally in the north, but I have a feeling he will soon be destroyed by an evil force. You must eliminate this despicable blue keeper.",PLAYER0)
	ENDIF
	IF(PLAYER3,TOTAL_CREATURES==0)
		SET_FLAG(PLAYER0,FLAG0,2)
		SET_FLAG(PLAYER1,FLAG1,1)
		SET_TIMER(PLAYER0,TIMER0)
		CREATURE_AVAILABLE(PLAYER0,TROLL,1,1)
		CREATURE_AVAILABLE(PLAYER0,TENTACLE,1,1)
		CREATURE_AVAILABLE(PLAYER0,DARK_MISTRESS,1,1)
		CREATURE_AVAILABLE(PLAYER0,SORCEROR,1,1)
		CREATURE_AVAILABLE(PLAYER0,BILE_DEMON,1,1)
		CREATURE_AVAILABLE(PLAYER0,HELL_HOUND,1,1)
		CREATURE_AVAILABLE(PLAYER0,DRAGON,1,1)
		CREATURE_AVAILABLE(PLAYER0,ORC,1,1)
		CREATURE_AVAILABLE(PLAYER1,BARBARIAN,1,1)
		CREATURE_AVAILABLE(PLAYER1,GIANT,1,1)
		CREATURE_AVAILABLE(PLAYER1,FAIRY,1,1)
		CREATURE_AVAILABLE(PLAYER1,KNIGHT,1,1)
		CREATURE_AVAILABLE(PLAYER1,MONK,1,1)
		CREATURE_AVAILABLE(PLAYER1,SAMURAI,1,1)
		CREATURE_AVAILABLE(PLAYER1,WITCH,1,1)
		CREATURE_AVAILABLE(PLAYER1,WIZARD,1,1)
		QUICK_OBJECTIVE(3,"Very well you have saved the Warlock, evil creatures shall join you! You have a weak ally in the north but I have a feeling he will soon be destroyed by an awesome force. You must eliminate the despicably good blue heroes.",PLAYER0)
	ENDIF
ENDIF

COMPUTER_PLAYER(PLAYER1,7)
COMPUTER_PLAYER(PLAYER2,1)


SET_GENERATE_SPEED(300)

MAX_CREATURES(PLAYER0,8)
MAX_CREATURES(PLAYER1,25)

START_MONEY(ALL_PLAYERS,15000)

ADD_CREATURE_TO_POOL(BILE_DEMON,20)
ADD_CREATURE_TO_POOL(DRAGON,20)
ADD_CREATURE_TO_POOL(DARK_MISTRESS,20)
ADD_CREATURE_TO_POOL(HELL_HOUND,20)
ADD_CREATURE_TO_POOL(TENTACLE,20)
ADD_CREATURE_TO_POOL(SORCEROR,20)
ADD_CREATURE_TO_POOL(TROLL,20)
ADD_CREATURE_TO_POOL(FLY,20)
ADD_CREATURE_TO_POOL(ORC,20)
ADD_CREATURE_TO_POOL(TUNNELLER,20)
ADD_CREATURE_TO_POOL(WIZARD,20)
ADD_CREATURE_TO_POOL(BARBARIAN,20)
ADD_CREATURE_TO_POOL(ARCHER,20)
ADD_CREATURE_TO_POOL(MONK,20)
ADD_CREATURE_TO_POOL(DWARFA,20)
ADD_CREATURE_TO_POOL(KNIGHT,20
ADD_CREATURE_TO_POOL(WITCH,20)
ADD_CREATURE_TO_POOL(GIANT,20)
ADD_CREATURE_TO_POOL(FAIRY,20)
ADD_CREATURE_TO_POOL(FLY,20)
ADD_CREATURE_TO_POOL(THIEF,20)
ADD_CREATURE_TO_POOL(SAMURAI,20)

ROOM_AVAILABLE(ALL_PLAYERS,GUARD_POST,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,TREASURE,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,RESEARCH,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,WORKSHOP,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,GARDEN,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,LAIR,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,GRAVEYARD,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,TORTURE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,TRAINING,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,SCAVENGER,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,BARRACKS,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,TEMPLE,1,0)
ROOM_AVAILABLE(PLAYER0,BRIDGE,1,0)

MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HAND,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_IMP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SLAP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SIGHT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CAVE_IN,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_LIGHTNING,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CONCEAL,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_DESTROY_WALLS,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_ARMAGEDDON,1,0)

DOOR_AVAILABLE(ALL_PLAYERS,BRACED,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,POISON_GAS,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,LAVA,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,STEEL,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,BOULDER,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,MAGIC,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,LIGHTNING,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,WORD_OF_POWER,1,0)

CREATE_PARTY(HEROES1)
CREATE_PARTY(HEROES2)
CREATE_PARTY(HEROES3)
CREATE_PARTY(HEROES4)
CREATE_PARTY(HEROES5)
CREATE_PARTY(HEROES6)

CREATE_PARTY(MINIONS1)
CREATE_PARTY(MINIONS2)
CREATE_PARTY(MINIONS3)
CREATE_PARTY(MINIONS4)
CREATE_PARTY(MINIONS5)
CREATE_PARTY(MINIONS6)

ADD_TO_PARTY(HEROES1,ARCHER,3,50,DEFEND_PARTY,0)
ADD_TO_PARTY(HEROES1,ARCHER,6,50,DEFEND_PARTY,0)
ADD_TO_PARTY(HEROES1,THIEF,4,50,DEFEND_PARTY,0)
ADD_TO_PARTY(HEROES1,DWARFA,7,50,DEFEND_PARTY,0)

ADD_TO_PARTY(HEROES2,BARBARIAN,6,100,DEFEND_PARTY,0)
ADD_TO_PARTY(HEROES2,BARBARIAN,3,100,DEFEND_PARTY,0)
ADD_TO_PARTY(HEROES2,WIZARD,5,100,DEFEND_PARTY,0)
ADD_TO_PARTY(HEROES2,WITCH,8,100,DEFEND_PARTY,0)

ADD_TO_PARTY(HEROES3,MONK,8,150,DEFEND_PARTY,0)
ADD_TO_PARTY(HEROES3,WIZARD,6,150,DEFEND_PARTY,0)
ADD_TO_PARTY(HEROES3,SAMURAI,7,150,DEFEND_PARTY,0)
ADD_TO_PARTY(HEROES3,GIANT,7,150,DEFEND_PARTY,0)

ADD_TO_PARTY(HEROES4,WIZARD,10,200,DEFEND_PARTY,0)
ADD_TO_PARTY(HEROES4,GIANT,7,200,DEFEND_PARTY,0)
ADD_TO_PARTY(HEROES4,GIANT,8,200,DEFEND_PARTY,0)
ADD_TO_PARTY(HEROES4,SAMURAI,7,200,DEFEND_PARTY,0)
ADD_TO_PARTY(HEROES4,SAMURAI,8,200,DEFEND_PARTY,0)

ADD_TO_PARTY(HEROES5,MONK,8,200,DEFEND_PARTY,0)
ADD_TO_PARTY(HEROES5,MONK,9,200,DEFEND_PARTY,0)
ADD_TO_PARTY(HEROES5,MONK,10,200,DEFEND_PARTY,0)
ADD_TO_PARTY(HEROES5,WITCH,8,200,DEFEND_PARTY,0)
ADD_TO_PARTY(HEROES5,WITCH,9,200,DEFEND_PARTY,0)
ADD_TO_PARTY(HEROES5,WITCH,10,200,DEFEND_PARTY,0)

ADD_TO_PARTY(HEROES6,KNIGHT,10,2000,DEFEND_PARTY,0)
ADD_TO_PARTY(HEROES6,GIANT,10,300,DEFEND_PARTY,0)
ADD_TO_PARTY(HEROES6,WIZARD,10,300,DEFEND_PARTY,0)
ADD_TO_PARTY(HEROES6,SAMURAI,10,300,DEFEND_PARTY,0)
ADD_TO_PARTY(HEROES6,SAMURAI,10,300,DEFEND_PARTY,0)
ADD_TO_PARTY(HEROES6,MONK,10,300,DEFEND_PARTY,0)

ADD_TO_PARTY(MINIONS1,TROLL,3,50,DEFEND_PARTY,0)
ADD_TO_PARTY(MINIONS1,TROLL,6,50,DEFEND_PARTY,0)
ADD_TO_PARTY(MINIONS1,DEMONSPAWN,4,50,DEFEND_PARTY,0)
ADD_TO_PARTY(MINIONS1,SPIDER,7,50,DEFEND_PARTY,0)

ADD_TO_PARTY(MINIONS2,ORC,6,100,DEFEND_PARTY,0)
ADD_TO_PARTY(MINIONS2,ORC,3,100,DEFEND_PARTY,0)
ADD_TO_PARTY(MINIONS2,SORCEROR,5,100,DEFEND_PARTY,0)
ADD_TO_PARTY(MINIONS2,TENTACLE,8,100,DEFEND_PARTY,0)

ADD_TO_PARTY(MINIONS3,VAMPIRE,8,150,DEFEND_PARTY,0)
ADD_TO_PARTY(MINIONS3,SORCEROR,6,150,DEFEND_PARTY,0)
ADD_TO_PARTY(MINIONS3,DARK_MISTRESS,7,150,DEFEND_PARTY,0)
ADD_TO_PARTY(MINIONS3,BILE_DEMON,7,150,DEFEND_PARTY,0)

ADD_TO_PARTY(MINIONS4,SORCEROR,10,200,DEFEND_PARTY,0)
ADD_TO_PARTY(MINIONS4,BILE_DEMON,7,200,DEFEND_PARTY,0)
ADD_TO_PARTY(MINIONS4,BILE_DEMON,8,200,DEFEND_PARTY,0)
ADD_TO_PARTY(MINIONS4,DARK_MISTRESS,7,200,DEFEND_PARTY,0)
ADD_TO_PARTY(MINIONS4,DARK_MISTRESS,8,200,DEFEND_PARTY,0)

ADD_TO_PARTY(MINIONS5,TENTACLE,8,200,DEFEND_PARTY,0)
ADD_TO_PARTY(MINIONS5,TENTACLE,9,200,DEFEND_PARTY,0)
ADD_TO_PARTY(MINIONS5,TENTACLE,10,200,DEFEND_PARTY,0)
ADD_TO_PARTY(MINIONS5,HELL_HOUND,8,200,DEFEND_PARTY,0)
ADD_TO_PARTY(MINIONS5,HELL_HOUND,9,200,DEFEND_PARTY,0)
ADD_TO_PARTY(MINIONS5,HELL_HOUND,10,200,DEFEND_PARTY,0)

ADD_TO_PARTY(MINIONS6,HORNY,10,2000,DEFEND_PARTY,0)
ADD_TO_PARTY(MINIONS6,BILE_DEMON,10,300,DEFEND_PARTY,0)
ADD_TO_PARTY(MINIONS6,SORCEROR,10,300,DEFEND_PARTY,0)
ADD_TO_PARTY(MINIONS6,DARK_MISTRESS,10,300,DEFEND_PARTY,0)
ADD_TO_PARTY(MINIONS6,DARK_MISTRESS,10,300,DEFEND_PARTY,0)
ADD_TO_PARTY(MINIONS6,VAMPIRE,10,300,DEFEND_PARTY,0)


IF(PLAYER2,DUNGEON_DESTROYED==1)
	QUICK_INFORMATION(4,"Your ally in the north has been crushed. Unfortunately, only 8 soldiers can be attracted in this realm, choose them wisely.",PLAYER0)
ENDIF

REM ******************************************
REM ************* WHEN GOOD ******************
REM ******************************************

IF(PLAYER0,FLAG0==1)
	ADD_PARTY_TO_LEVEL(PLAYER1,MINIONS4,5,1)
	ADD_PARTY_TO_LEVEL(PLAYER1,MINIONS5,5,1)
	ADD_PARTY_TO_LEVEL(PLAYER2,HEROES2,5,1)
	ADD_PARTY_TO_LEVEL(PLAYER2,HEROES1,5,1)
	ADD_CREATURE_TO_LEVEL(PLAYER0,IMP,4,1,5,500)
	IF(PLAYER0,TIMER0>=5000)
		ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,MINIONS1,-1,DUNGEON_HEART,PLAYER0,1,50)
		QUICK_INFORMATION(5,"Lord, our scouts report that a group of demons are attacking from the west, smite them!")
	ENDIF
	IF(PLAYER0,TIMER0>=10000)
		ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,MINIONS2,-2,DUNGEON_HEART,PLAYER0,3,100)
		QUICK_INFORMATION(6,"More beasts approach, from the east this time, they must be sent back to the depths, foul ones.")
	ENDIF
	IF(PLAYER0,TIMER0>=15000)
		ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,MINIONS3,-3,DUNGEON_HEART,PLAYER0,4,150)
		QUICK_INFORMATION(7,"Another motley crew of minions approach, you must crush them.")
	ENDIF
	IF(PLAYER0,TIMER0>=20000)
		ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,MINIONS4,-4,DUNGEON_HEART,PLAYER0,6,200)
		QUICK_INFORMATION(8,"Another wave approaches, I hope you have picked your 10 heroes wisely, as this will be a challenge.")
		IF(PLAYER_GOOD,TOTAL_CREATURES==0)
			QUICK_INFORMATION(9,"The slaying of these enemies has increased your reputation with your fellow lords, 4 extra heroes will now be attracted to your lands!")
			MAX_CREATURES(PLAYER0,12)
		ENDIF
	ENDIF
	IF(PLAYER0,TIMER0>=25000)
		ADD_PARTY_TO_LEVEL(PLAYER_GOOD,MINIONS5,-5,1)
		QUICK_INFORMATION(10,"A group of creatures has spawned from the unholy temple, send them back to their dark gods!")
	ENDIF
	IF(PLAYER0,TIMER0>=30000)
		ADD_PARTY_TO_LEVEL(PLAYER_GOOD,MINIONS6,-6,1)
		QUICK_OBJECTIVE(11,"This is the final attack of the evil invaders! Finish them off and advance north, I've heard a sympathetic old guard resides to the west.",PLAYER0)
		IF(PLAYER_GOOD,TOTAL_CREATURES==0)
			QUICK_INFORMATION(12,"Your maximum capacity increased by another 4, that was a very impressive victory, lord.")
			MAX_CREATURES(PLAYER0,16)
		ENDIF
	ENDIF
	IF(PLAYER0,WORKSHOP >= 1)
		NEXT_COMMAND_REUSABLE
		CREATURE_AVAILABLE(PLAYER0,ARCHER,1,1)
	ENDIF
	IF(PLAYER0,BARRACKS >= 1)
		NEXT_COMMAND_REUSABLE
		CREATURE_AVAILABLE(PLAYER0,BARBARIAN,1,1)
	ENDIF
	IF(PLAYER0,LAIR >= 25)
		IF(PLAYER0,GARDEN >= 25)
			NEXT_COMMAND_REUSABLE
			CREATURE_AVAILABLE(PLAYER0,GIANT,1,1)
		ENDIF
	ENDIF
	IF(PLAYER0,TEMPLE >= 9)
		NEXT_COMMAND_REUSABLE
		CREATURE_AVAILABLE(PLAYER0,FAIRY,1,1)
		IF(PLAYER0,TRAINING >= 25)
			NEXT_COMMAND_REUSABLE
			CREATURE_AVAILABLE(PLAYER0,KNIGHT,1,1)
		ENDIF
	ENDIF
	IF(PLAYER0,GRAVEYARD >= 1)
		NEXT_COMMAND_REUSABLE
		CREATURE_AVAILABLE(PLAYER0,MONK,1,1)
	ENDIF
	IF(PLAYER0,TORTURE >= 9)
		NEXT_COMMAND_REUSABLE
		CREATURE_AVAILABLE(PLAYER0,SAMURAI,1,1)
	ENDIF
	IF(PLAYER0,TRAINING >= 1)
		NEXT_COMMAND_REUSABLE
		CREATURE_AVAILABLE(PLAYER0,THIEF,1,1)
	ENDIF
	IF(PLAYER0,SCAVENGER >= 9)
		NEXT_COMMAND_REUSABLE
		CREATURE_AVAILABLE(PLAYER0,WITCH,1,1)
	ENDIF
	IF(PLAYER0,RESEARCH >= 1)
		NEXT_COMMAND_REUSABLE
		CREATURE_AVAILABLE(PLAYER0,WIZARD,1,1)
	ENDIF
ENDIF


REM ******************************************
REM ************** WHEN EVIL *****************
REM ******************************************

IF(PLAYER0,FLAG0==2)
	ADD_PARTY_TO_LEVEL(PLAYER1,HEROES4,5,1)
	ADD_PARTY_TO_LEVEL(PLAYER1,HEROES5,5,1)
	ADD_PARTY_TO_LEVEL(PLAYER2,MINIONS2,5,1)
	ADD_PARTY_TO_LEVEL(PLAYER2,MINIONS1,5,1)
	ADD_CREATURE_TO_LEVEL(PLAYER0,IMP,4,1,5,500)
	IF(PLAYER0,TIMER0>=5000)
		ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,HEROES1,-1,DUNGEON_HEART,PLAYER0,1,50)
		QUICK_INFORMATION(13,"Keeper, your filthy spies have discovered a band of heroes advancing from the west, crush their skulls.")
	ENDIF
	IF(PLAYER0,TIMER0>=10000)
		ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,HEROES2,-2,DUNGEON_HEART,PLAYER0,3,100)
		QUICK_INFORMATION(14,"More foolish heroes are approaching, this time from the east, make them wish they never came.")
	ENDIF
	IF(PLAYER0,TIMER0>=15000)
		ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,HEROES3,-3,DUNGEON_HEART,PLAYER0,4,150)
		QUICK_INFORMATION(15,"Another fellowship is on its way, defend the north-west!")
	ENDIF
	IF(PLAYER0,TIMER0>=20000)
		ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,HEROES4,-4,DUNGEON_HEART,PLAYER0,6,200)
		QUICK_INFORMATION(16,"I hope you selected your 10 creatures wisely keeper, for the imminent attack will be a challenge.")
		IF(PLAYER_GOOD,TOTAL_CREATURES==0)
			QUICK_INFORMATION(17,"The slaying of these heroes has increased your reputation with your fellow keepers, 4 extra creatures will now be attracted to your lands!")
			MAX_CREATURES(PLAYER0,12)
		ENDIF
	ENDIF
	IF(PLAYER0,TIMER0>=25000)
		ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HEROES5,-5,1)
		QUICK_INFORMATION(18,"Holy guardians of the temple have arrived, send them to their god, keeper.")
	ENDIF
	IF(PLAYER0,TIMER0>=30000)
		QUICK_OBJECTIVE(19,"This is the final attack of the goody two shoes heroes! Finish them off and advance north, I've heard a sympathetic old guard resides to the west.",PLAYER0)
		ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HEROES6,-6,1)
		IF(PLAYER_GOOD,TOTAL_CREATURES==0)
			QUICK_INFORMATION(20,"Your maximum capacity increased by another 4, that was a very impressive victory, keeper.")
			MAX_CREATURES(PLAYER0,16)
		ENDIF
	ENDIF
ENDIF

IF(PLAYER1,DUNGEON_DESTROYED==1)
	WIN_GAME
ENDIF
