LEVEL_VERSION(1)
SET_GENERATE_SPEED(400)
START_MONEY(ALL_PLAYERS,0)
MAX_CREATURES(ALL_PLAYERS,40)

COMPUTER_PLAYER(PLAYER1,0)
COMPUTER_PLAYER(PLAYER6,ROAMING)

ALLY_PLAYERS(PLAYER0,PLAYER6,3)

MAGIC_AVAILABLE(PLAYER1,POWER_IMP,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_IMP,1,0)

MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HAND,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SLAP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_POSSESS,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SIGHT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_OBEY,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CONCEAL,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HOLD_AUDIENCE,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_LIGHTNING,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_PROTECT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CHICKEN,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_DISEASE,1,0)

TRAP_AVAILABLE(ALL_PLAYERS,ALARM,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,POISON_GAS,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,LIGHTNING,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,BOULDER,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,WORD_OF_POWER,1,0)

DOOR_AVAILABLE(ALL_PLAYERS,WOOD,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,BRACED,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,STEEL,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,MAGIC,1,0)

QUICK_OBJECTIVE(1,"My liege, the castle is under attack. We've got an unknown hostile mob who breached the border and is set to arrive here anytime soon. Many wandering creatures drawn by a trail of blood leading here begun heading in our direction too. Perhaps this could be used to our advantage?",ALL_PLAYERS)

IF(PLAYER0,GAME_TURN >= 1000)
	SET_DOOR(UNLOCKED,30,12)
ENDIF

IF(PLAYER0,GAME_TURN >= 2000)
	SET_DOOR(UNLOCKED,63,19)
ENDIF

IF(PLAYER0,GAME_TURN >= 3000)
	SET_DOOR(UNLOCKED,57,80)
ENDIF

IF(PLAYER0,GAME_TURN >= 4000)
	SET_DOOR(UNLOCKED,63,67)
ENDIF

IF(PLAYER0,GAME_TURN >= 5000)
	SET_DOOR(UNLOCKED,50,69)
ENDIF

IF(PLAYER0,GAME_TURN >= 6000)
	SET_DOOR(UNLOCKED,39,70)
ENDIF

IF(PLAYER0,GAME_TURN >= 7000)
	SET_DOOR(UNLOCKED,32,66)
ENDIF

IF(PLAYER0,GAME_TURN >= 8000)
	SET_DOOR(UNLOCKED,46,17)
ENDIF

IF(PLAYER0,GAME_TURN >= 9000)
	SET_DOOR(UNLOCKED,26,80)
ENDIF

IF(PLAYER0,GAME_TURN >= 10000)
	SET_DOOR(UNLOCKED,32,66)
ENDIF

IF(PLAYER0,GAME_TURN >= 11000)
	SET_DOOR(UNLOCKED,58,20)
ENDIF

IF(PLAYER0,GAME_TURN >= 12000)
	SET_DOOR(UNLOCKED,35,10)
ENDIF

IF(PLAYER0,GAME_TURN >= 13000)
	SET_DOOR(UNLOCKED,42,67)
ENDIF

IF(PLAYER0,GAME_TURN >= 14000)
	SET_DOOR(UNLOCKED,44,12)
ENDIF

IF(PLAYER0,GAME_TURN >= 15000)
	SET_DOOR(UNLOCKED,56,69)
ENDIF




IF(PLAYER0,ALL_DUNGEONS_DESTROYED == 1)
	QUICK_OBJECTIVE(2,"You have held the first castle in one piece, but things will only get tougher from this point.",ALL_PLAYERS)
	WIN_GAME
ENDIF
