REM LEVEL 11(ADVENTURE) MAP00016

SET_GENERATE_SPEED(400)

MAX_CREATURES(PLAYER0,0)
MAX_CREATURES(PLAYER1,0)
MAX_CREATURES(PLAYER3,15)
MAX_CREATURES(PLAYER2,15)

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

SET_COMPUTER_PROCESS(PLAYER3,"DIG TO CLOSE GOLD",0,25000,500,3,47)
SET_COMPUTER_PROCESS(PLAYER2,"DIG TO CLOSE GOLD",0,25000,500,3,47)


ALLY_PLAYERS(PLAYER0,PLAYER1)
ALLY_PLAYERS(PLAYER3,PLAYER2)


START_MONEY(PLAYER0,1000000)
START_MONEY(PLAYER1,20000)
START_MONEY(PLAYER2,10000)
START_MONEY(PLAYER3,10000)

REM ALL PLAYERS

	REM Creature_Availability



		CREATURE_AVAILABLE(ALL_PLAYERS,TROLL,1,1)
		CREATURE_AVAILABLE(ALL_PLAYERS,FLY,1,1)
		CREATURE_AVAILABLE(ALL_PLAYERS,DARK_MISTRESS,1,1)
		CREATURE_AVAILABLE(ALL_PLAYERS,SORCEROR,1,1)
		CREATURE_AVAILABLE(ALL_PLAYERS,BILE_DEMON,1,1)
		CREATURE_AVAILABLE(ALL_PLAYERS,ORC,1,1)
		CREATURE_AVAILABLE(ALL_PLAYERS,DRAGON,1,1)
		CREATURE_AVAILABLE(ALL_PLAYERS,HELL_HOUND,1,1)


		ADD_CREATURE_TO_POOL(FLY,40)
		ADD_CREATURE_TO_POOL(DARK_MISTRESS,40)
		ADD_CREATURE_TO_POOL(SORCEROR,40)
		ADD_CREATURE_TO_POOL(TROLL,40)
		ADD_CREATURE_TO_POOL(BILE_DEMON,20)
		ADD_CREATURE_TO_POOL(HELL_HOUND,50)
		ADD_CREATURE_TO_POOL(DRAGON,20)
		ADD_CREATURE_TO_POOL(ORC,20)



	REM Room_Availability

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


	REM Spells

		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_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_PROTECT,1,0)
		MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CONCEAL,1,0)
		MAGIC_AVAILABLE(ALL_PLAYERS,POWER_DISEASE,1,0)
		MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CAVE_IN,1,0)
		MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CHICKEN,1,0)

IF_AVAILABLE(PLAYER1,POWER_SIGHT==1)
	MAGIC_AVAILABLE(PLAYER0,POWER_SIGHT,1,1)
ENDIF
IF_AVAILABLE(PLAYER1,POWER_CALL_TO_ARMS==1)
	MAGIC_AVAILABLE(PLAYER0,POWER_CALL_TO_ARMS,1,1)
	MAGIC_AVAILABLE(PLAYER1,POWER_CALL_TO_ARMS,0,0)
ENDIF
IF_AVAILABLE(PLAYER1,POWER_HEAL_CREATURE==1)
	MAGIC_AVAILABLE(PLAYER0,POWER_HEAL_CREATURE,1,1)
ENDIF
IF_AVAILABLE(PLAYER1,POWER_SPEED==1)
	MAGIC_AVAILABLE(PLAYER0,POWER_SPEED,1,1)
ENDIF
IF_AVAILABLE(PLAYER1,POWER_PROTECT==1)
	MAGIC_AVAILABLE(PLAYER0,POWER_PROTECT,1,1)
ENDIF
IF_AVAILABLE(PLAYER1,POWER_CONCEAL==1)
	MAGIC_AVAILABLE(PLAYER0,POWER_CONCEAL,1,1)
ENDIF

	REM  doors & traps

		DOOR_AVAILABLE(ALL_PLAYERS,WOOD,1,0)
		TRAP_AVAILABLE(ALL_PLAYERS,ALARM,1,0)
		DOOR_AVAILABLE(ALL_PLAYERS,BRACED,1,0)
		TRAP_AVAILABLE(ALL_PLAYERS,POISON_GAS,1,0)
		TRAP_AVAILABLE(ALL_PLAYERS,LIGHTNING,1,0)
		DOOR_AVAILABLE(ALL_PLAYERS,STEEL,1,0)
		DOOR_AVAILABLE(ALL_PLAYERS,MAGIC,1,0)
		TRAP_AVAILABLE(ALL_PLAYERS,BOULDER,1,0)


REM ---------------------------------------------------------

QUICK_OBJECTIVE(0,"Knight-My followers, we must strike against the evil Dungeon Keeper! Do not allow me to be slain, or all hope is lost.",PLAYER0)

IF(PLAYER1,DUNGEON_DESTROYED==1)
	LOSE_GAME
ENDIF

IF(PLAYER1,KNIGHT==0)
	QUICK_OBJECTIVE(2,"The Lord of the Land is dead.",PLAYER0)
	LOSE_GAME
ENDIF

IF(PLAYER0,TOTAL_CREATURES==0)
	IF(PLAYER0,TOTAL_IMPS==0)
		QUICK_OBJECTIVE(3,"Dwarf-We are sorry we failed... my lord...",PLAYER0)
		LOSE_GAME
	ENDIF
ENDIF

IF(PLAYER3,DUNGEON_DESTROYED==1)
	IF(PLAYER2,DUNGEON_DESTROYED==1)
	WIN_GAME
	QUICK_OBJECTIVE(1,"Knight-My followers, this is a victory worth celebrating!",PLAYER0)
	ENDIF
ENDIF


IF_AVAILABLE(PLAYER1,WORD_OF_POWER==1)
rem	CREATE_TEXT(5,106"YOU HAVE THE WORD OF POWER TRAP AVAILABLE TO YOU.  THIS WILL DECIMATE ANY ATTACKERS WHO ARE UNFORTUNATE ENOUGH TO TRIGGER IT.")
	DISPLAY_INFORMATION(106,PLAYER0)
ENDIF

IF_AVAILABLE(PLAYER1,POWER_HOLD_AUDIENCE==1)
rem CREATE_TEXT(6,107"THE POWER OF HOLD AUDIENCE HAS BEEN RESEARCHED.  THIS SPELL SHOULD BE USED AS A LAST DITCH DEFENSIVE SPELL AS IT WILL IMMEDIATELY TELEPORT ALL OF YOUR CREATURES BACK TO YOUR DUNGEON HEART.")
	DISPLAY_INFORMATION(107,PLAYER0)
ENDIF
