REM KDK Level 5 computer player for first time.

SET_GENERATE_SPEED(500)
MAX_CREATURES(PLAYER0,62)
MAX_CREATURES(PLAYER1,34)
START_MONEY(PLAYER0,12600)
START_MONEY(PLAYER1,2820)
COMPUTER_PLAYER(PLAYER1,4)

ADD_CREATURE_TO_POOL(BUG,21)
ADD_CREATURE_TO_POOL(ARCHER,3)
ADD_CREATURE_TO_POOL(WIZARD,1)
ADD_CREATURE_TO_POOL(FLY,23)
ADD_CREATURE_TO_POOL(SPIDER,22)
ADD_CREATURE_TO_POOL(TROLL,31)
ADD_CREATURE_TO_POOL(DEMONSPAWN,16)
ADD_CREATURE_TO_POOL(SORCEROR,14)
ADD_CREATURE_TO_POOL(SPIDER,22)
ADD_CREATURE_TO_POOL(BILE_DEMON,5)

CREATURE_AVAILABLE(PLAYER1,WIZARD,1,1)
CREATURE_AVAILABLE(PLAYER1,DRAGON,1,1)
CREATURE_AVAILABLE(PLAYER1,TROLL,1,1)
CREATURE_AVAILABLE(PLAYER1,ARCHER,1,1)
CREATURE_AVAILABLE(PLAYER0,TROLL,1,1)
CREATURE_AVAILABLE(PLAYER0,BILE_DEMON,1,1)
CREATURE_AVAILABLE(PLAYER0,DRAGON,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,DEMONSPAWN,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,SPIDER,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,BUG,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,SORCEROR,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,FLY,1,1)

MAGIC_AVAILABLE(PLAYER0,POWER_CHICKEN,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_HOLD_AUDIENCE,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_DESTROY_WALLS,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_LIGHTNING,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_CONCEAL,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_POSSESS,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_SIGHT,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_SPEED,1,0)
MAGIC_AVAILABLE(PLAYER1,POWER_SPEED,1,0)
MAGIC_AVAILABLE(PLAYER1,POWER_LIGHTNING,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HAND,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SLAP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_IMP,1,1)

ROOM_AVAILABLE(ALL_PLAYERS,TRAINING,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,TREASURE,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,GARDEN,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,RESEARCH,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,LAIR,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,WORKSHOP,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,BRIDGE,1,0)

TRAP_AVAILABLE(PLAYER0,ALARM,1,0)
TRAP_AVAILABLE(PLAYER0,POISON_GAS,1,0)
TRAP_AVAILABLE(PLAYER0,LIGHTNING,1,0)
TRAP_AVAILABLE(PLAYER0,BOULDER,1,0)
TRAP_AVAILABLE(PLAYER0,WORD_OF_POWER,1,0)
TRAP_AVAILABLE(PLAYER1,LIGHTNING,1,0)
TRAP_AVAILABLE(PLAYER1,POISON_GAS,1,0)
DOOR_AVAILABLE(PLAYER0,BRACED,1,0)
DOOR_AVAILABLE(PLAYER0,MAGIC,1,0)
DOOR_AVAILABLE(PLAYER0,WOOD,1,0)
DOOR_AVAILABLE(PLAYER1,BRACED,1,0)
DOOR_AVAILABLE(PLAYER1,WOOD,1,0)

SET_CREATURE_MAX_LEVEL(PLAYER0,DEMONSPAWN,10)

rem CREATE_TEXT(1,57"THERE IS ANOTHER KEEPER ALREADY HERE, WHOSE DUNGEON LIES TO THE NORTH.  YOU WILL NEED TO BUILD BIGGER ROOMS IN YOUR DUNGEON TO ENTICE THE CREATURES OF THIS LAND TO WORK FOR YOU AND NOT YOUR RIVAL.")
DISPLAY_OBJECTIVE(57,PLAYER0)

REM PLAYER0,FLAG0 will inform if PLAYER0 had a Bile Demon

IF(PLAYER0, DUNGEON_DESTROYED >= 1)
	LOSE_GAME
ENDIF

IF(PLAYER1, DUNGEON_DESTROYED >= 1)
rem	CREATE_TEXT(2,58"THE ENEMY KEEPER CRUMBLES UNDER YOUR POWER.  CONGRATULATIONS.")
	DISPLAY_OBJECTIVE(58,PLAYER0)
	WIN_GAME
ENDIF

IF(PLAYER0,BILE_DEMON>0)
	IF(PLAYER0,FLAG0!=1)
rem	CREATE_TEXT(3,59"A BILE DEMON HAS JOINED YOU.  TO TEMPT IN MORE OF THESE CREATURES, YOU WILL NEED TO BUILD EXPANSIVE LAIRS AND HATCHERIES.")
	DISPLAY_INFORMATION(59,PLAYER0)
	SET_FLAG(PLAYER0,FLAG0,1)
	ENDIF
ENDIF

IF(PLAYER0,SPIDER>0)
rem CREATE_TEXT(11,63"A SPIDER HAS JOINED YOUR DUNGEON.  THEY ARE NATURAL ENEMIES OF FLIES SO TRY TO KEEP THEM APART.  THERE WILL BE OTHER ANIMOSITES THAT YOU NEED TO SPOT AND DEAL WITH.")
DISPLAY_OBJECTIVE(63,PLAYER0)
ENDIF
