REM ********************************************
REM
REM             Script for Level 413
REM             Songbrook
REM
REM ********************************************



SET_GENERATE_SPEED(350)

START_MONEY(ALL_PLAYERS, 5000)

COMPUTER_PLAYER(PLAYER1,0)
COMPUTER_PLAYER(PLAYER2,0)
COMPUTER_PLAYER(PLAYER3,0)

MAX_CREATURES(PLAYER0, 16)
MAX_CREATURES(PLAYER1, 12)
MAX_CREATURES(PLAYER2, 20)
MAX_CREATURES(PLAYER3, 16)

ADD_CREATURE_TO_POOL(FLY,	20)
ADD_CREATURE_TO_POOL(SPIDER,	20)
ADD_CREATURE_TO_POOL(DEMONSPAWN,20)
ADD_CREATURE_TO_POOL(TROLL,	30)
ADD_CREATURE_TO_POOL(ORC,	30)

CREATURE_AVAILABLE(ALL_PLAYERS, FLY,		1, 1)
CREATURE_AVAILABLE(ALL_PLAYERS, SPIDER,		1, 1)
CREATURE_AVAILABLE(ALL_PLAYERS, DEMONSPAWN,	1, 1)
CREATURE_AVAILABLE(ALL_PLAYERS, TROLL,		1, 1)
CREATURE_AVAILABLE(ALL_PLAYERS, ORC,		1, 1)

ROOM_AVAILABLE(ALL_PLAYERS,	TREASURE,	1, 1)
ROOM_AVAILABLE(ALL_PLAYERS,	RESEARCH,	1, 1)
ROOM_AVAILABLE(ALL_PLAYERS,	GARDEN,		1, 1)
ROOM_AVAILABLE(ALL_PLAYERS,	LAIR,		1, 1)
ROOM_AVAILABLE(ALL_PLAYERS,	TRAINING,	1, 1)
ROOM_AVAILABLE(ALL_PLAYERS,	WORKSHOP,	1, 0)
ROOM_AVAILABLE(PLAYER0,		GUARD_POST,	1, 0)
ROOM_AVAILABLE(ALL_PLAYERS,	BRIDGE,		1, 0)
ROOM_AVAILABLE(ALL_PLAYERS,	PRISON,		1, 0)
ROOM_AVAILABLE(ALL_PLAYERS,	BARRACKS,	1, 0)
ROOM_AVAILABLE(ALL_PLAYERS,	TEMPLE,		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_CALL_TO_ARMS,	1, 0)
MAGIC_AVAILABLE(ALL_PLAYERS, POWER_SPEED,		1, 0)
MAGIC_AVAILABLE(ALL_PLAYERS, POWER_CONCEAL,		1, 0)

DOOR_AVAILABLE(ALL_PLAYERS, 	WOOD,	 	1, 0)
DOOR_AVAILABLE(ALL_PLAYERS, 	BRACED, 	1, 0)
TRAP_AVAILABLE(ALL_PLAYERS,	POISON_GAS,	1, 0)

CREATE_PARTY(PARTYA)
ADD_TO_PARTY(PARTYA,MONK,4,400,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(PARTYA,MONK,4,400,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(PARTYA,MONK,3,400,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(PARTYA,MONK,3,400,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(PARTYB)
ADD_TO_PARTY(PARTYB,KNIGHT,6,1000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(PARTYB,MONK,5,400,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(PARTYB,MONK,5,400,ATTACK_DUNGEON_HEART,0)

IF(PLAYER0, BARRACKS >= 1)
	ROOM_AVAILABLE(PLAYER0,	BARRACKS,	1, 1)
ENDIF

IF(PLAYER0, WORKSHOP >= 1)
	ROOM_AVAILABLE(PLAYER0,	WORKSHOP,	1, 1)
ENDIF

IF(PLAYER0, TEMPLE >= 1)
	ROOM_AVAILABLE(PLAYER0,	TEMPLE,	1, 1)
ENDIF

IF(PLAYER0, BRIDGE >= 1)
	ROOM_AVAILABLE(PLAYER0,	BRIDGE,	1, 1)
ENDIF

IF(PLAYER0, PRISON >= 1)
	ROOM_AVAILABLE(PLAYER0,	PRISON,	1, 1)
ENDIF

QUICK_OBJECTIVE(0, "The innocent cower before the divided legions of darkness in this land. Defeat the rival keepers here to prove yourself the greater of the evils four, but keep an eye out for the odd heroic band seeking to catch you off guard.", PLAYER0)

IF(PLAYER0, GAME_TURN > 10000)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,PARTYA,-1,APPROPIATE_DUNGEON,0,3,300)
ENDIF

IF(PLAYER0, GAME_TURN > 20000)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,PARTYA,-2,APPROPIATE_DUNGEON,0,3,300)
ENDIF

IF(PLAYER0, GAME_TURN > 30000)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,PARTYB,-1,APPROPIATE_DUNGEON,0,3,300)
	SET_FLAG(PLAYER0, FLAG0, 1)
ENDIF

IF(PLAYER0, FLAG0 == 1)
	IF(PLAYER_GOOD, KNIGHT == 0)
		IF(PLAYER0, ALL_DUNGEONS_DESTROYED == 1)
			QUICK_OBJECTIVE(1, "Finally victory is yours, Keeper. None will ever again question who is the prime evil of this realm.", PLAYER0)
			WIN_GAME
		ENDIF
	ENDIF
ENDIF