LEVEL_VERSION(1)

SET_GENERATE_SPEED(400)

COMPUTER_PLAYER(PLAYER0,7)

START_MONEY(PLAYER1,2000)
START_MONEY(PLAYER0,14500)

MAX_CREATURES(PLAYER1,22)
MAX_CREATURES(PLAYER0,25)

REM	Creature availability
CREATURE_AVAILABLE(ALL_PLAYERS,TROLL,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,DEMONSPAWN,1,0)
CREATURE_AVAILABLE(PLAYER1,FLY,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,SORCEROR,1,0)
CREATURE_AVAILABLE(PLAYER1,BUG,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,SPIDER,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,BILE_DEMON,1,0)

SET_CREATURE_MAX_LEVEL(PLAYER1,DEMONSPAWN,10)
SET_CREATURE_MAX_LEVEL(ALL_PLAYERS,DARK_MISTRESS,6)

ADD_CREATURE_TO_POOL(BUG,2)
ADD_CREATURE_TO_POOL(FLY,2)
ADD_CREATURE_TO_POOL(DEMONSPAWN,10)
ADD_CREATURE_TO_POOL(DARK_MISTRESS,3)
ADD_CREATURE_TO_POOL(SORCEROR,8)
ADD_CREATURE_TO_POOL(TROLL,5)
ADD_CREATURE_TO_POOL(SPIDER,10)
ADD_CREATURE_TO_POOL(BILE_DEMON,8)

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(PLAYER0,GUARD_POST,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,BRIDGE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,PRISON,1,0)
ROOM_AVAILABLE(PLAYER0,TORTURE,1,0)

REM	Spells availability
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(PLAYER0,POWER_LIGHTNING,1,0)

REM	Doors and traps availability
DOOR_AVAILABLE(ALL_PLAYERS,WOOD,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,POISON_GAS,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,LIGHTNING,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,BRACED,1,0)

CREATE_PARTY(HERO)
	ADD_TO_PARTY(HERO,DWARFA,5,200,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(HERO,ARCHER,5,200,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(HERO,FAIRY,5,200,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(HERO,FAIRY,5,200,ATTACK_ENEMIES,0)

CREATE_PARTY(HERO2)
	ADD_TO_PARTY(HERO2,DWARFA,6,200,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(HERO2,ARCHER,6,200,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(HERO2,FAIRY,6,200,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(HERO2,FAIRY,6,200,ATTACK_ENEMIES,0)

QUICK_OBJECTIVE(1,"You must be familiar with this realm too, however, things don't seem to be that easy this time...",PLAYER1)

IF(PLAYER1,TORTURE > 0)
	QUICK_INFORMATION(2,"Great job! You have claimed the torture room. Torturing enemies is always an enjoyable thing, isn't it?",PLAYER1)
	ROOM_AVAILABLE(PLAYER1,TORTURE,1,0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HERO2,2,1)
ENDIF

IF(PLAYER1,SKELETONS_RAISED >= 10)
	SET_GAME_RULE(PrisonSkeletonChance,0)
	QUICK_INFORMATION(11, "You can't get more skeletons from prison.", PLAYER1)
ENDIF

IF(PLAYER1,GHOSTS_RAISED >= 10)
	SET_GAME_RULE(GhostConvertChance,0)
	QUICK_INFORMATION(12, "You can't get more ghosts from torture room.", PLAYER1)
ENDIF

IF(PLAYER1,CREATURES_CONVERTED >= 10)
    SET_GAME_RULE(TortureConvertChance,0)
	SET_GAME_RULE(TortureDeathChance,100)
	QUICK_INFORMATION(13, "You can't convert more creatures from torture room.", PLAYER1)
ENDIF

IF(PLAYER0,DARK_MISTRESS > 1)
	QUICK_INFORMATION(3,"It appears the Dark Mistresses love the Red Keeper more than you, and they have joined his dungeon first and become his servants. What do you feel of this?",PLAYER1)
	CREATURE_AVAILABLE(ALL_PLAYERS,DARK_MISTRESS,1,0)
ENDIF

IF(PLAYER0,TOTAL_CREATURES>=13)
	ADD_CREATURE_TO_LEVEL(PLAYER0,DARK_MISTRESS,PLAYER0,2,3,0)
ENDIF

IF(PLAYER0,PRISON >= 1)
	SET_CREATURE_TENDENCIES(PLAYER0,IMPRISON,1)
ENDIF

IF(PLAYER0,BRIDGE>=1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HERO,1,1)
	QUICK_INFORMATION(5,"Be careful! The heroes in this realm are no longer the weak ones in the past!",PLAYER1)
ENDIF

IF_ACTION_POINT(2,PLAYER1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HERO2,2,1)
ENDIF

IF(PLAYER0,DUNGEON_DESTROYED == 1)
	QUICK_OBJECTIVE(4,"You have killed you opponent and showed your power, and have won the admiration of the Mistresses. These fickle creatures are willing to join you in the future!",PLAYER1)
	WIN_GAME
ENDIF
