LEVEL_VERSION(1)

SET_GENERATE_SPEED(400)

START_MONEY(ALL_PLAYERS,2500)

MAX_CREATURES(ALL_PLAYERS,25)

ADD_CREATURE_TO_POOL(FLY,20)
ADD_CREATURE_TO_POOL(BUG,20)
ADD_CREATURE_TO_POOL(DEMONSPAWN,20)
ADD_CREATURE_TO_POOL(TROLL,20)
ADD_CREATURE_TO_POOL(SPIDER,20)
ADD_CREATURE_TO_POOL(HELL_HOUND,20)
ADD_CREATURE_TO_POOL(TENTACLE,20)
ADD_CREATURE_TO_POOL(SORCEROR,20)
ADD_CREATURE_TO_POOL(ORC,20)
ADD_CREATURE_TO_POOL(BILE_DEMON,20)
ADD_CREATURE_TO_POOL(DRAGON,20)
ADD_CREATURE_TO_POOL(DARK_MISTRESS,20)

CREATURE_AVAILABLE(ALL_PLAYERS,FLY,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,BUG,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,DEMONSPAWN,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,TROLL,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,SPIDER,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,HELL_HOUND,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,TENTACLE,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,SORCEROR,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,ORC,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,BILE_DEMON,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,DRAGON,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,DARK_MISTRESS,1,0)

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,0)
ROOM_AVAILABLE(ALL_PLAYERS,RESEARCH,1,1)

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_IMP,0,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SIGHT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_OBEY,1,0)

DOOR_AVAILABLE(ALL_PLAYERS,SECRET,1,0)

SET_OBJECT_CONFIGURATION(WARBANNER_HORNY,AnimationSpeed,0) 

QUICK_OBJECTIVE(​1,"In this domain, there exists an overbearing monarch who resides within a heavily fortified fortress. This ruler believes they possess complete dominion over their realm due to their imprisoned 4 wizards with unbelievable abilities... the objective is simple: free the wizards and kill the white heart",ALL_PLAYERS)

CREATE_PARTY(TERROR)
	ADD_TO_PARTY(TERROR,AVATAR,10,1000,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(TERROR1)
	ADD_TO_PARTY(TERROR1,BARBARIAN,10,1000,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(TERROR1,GIANT,10,1000,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(TERROR2)
	ADD_TO_PARTY(TERROR2,ARCHER,10,1000,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(TERROR2,THIEF,10,1000,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(TERROR3)
	ADD_TO_PARTY(TERROR3,ARCHER,10,1000,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(TERROR3,THIEF,10,1000,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(TERROR3,KNIGHT,10,1000,ATTACK_DUNGEON_HEART,0)

IF_ACTION_POINT(1,PLAYER0)
	QUICK_INFORMATION(​2,"The King has incarcerated beings possessing unimaginable powers. If you were to harness and unite their abilities, they would willingly serve and fulfill your every command, but be aware, only together they can bundle their powers.",ALL_PLAYERS)
	SET_OBJECT_CONFIGURATION(WARBANNER_HORNY,AnimationSpeed,400) 	
	PLAY_MESSAGE(PLAYER0,SOUND,90)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TERROR1,-1,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TERROR2,-2,1)
	SET_TIMER(PLAYER0,TIMER0)
ENDIF

IF_ACTION_POINT(2,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TERROR3,-3,1)
	SET_OBJECT_CONFIGURATION(WARBANNER_HORNY,AnimationSpeed,400)
	PLAY_MESSAGE(PLAYER0,SOUND,90) 
	SET_TIMER(PLAYER0,TIMER0)
ENDIF

IF_ACTION_POINT(3,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TERROR3,-4,1)
	SET_OBJECT_CONFIGURATION(WARBANNER_HORNY,AnimationSpeed,400)
	PLAY_MESSAGE(PLAYER0,SOUND,90)
	SET_TIMER(PLAYER0,TIMER0) 
ENDIF

IF_ACTION_POINT(4,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TERROR2,-5,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TERROR3,-6,1)
	SET_OBJECT_CONFIGURATION(WARBANNER_HORNY,AnimationSpeed,400)
	PLAY_MESSAGE(PLAYER0,SOUND,90) 
	SET_TIMER(PLAYER0,TIMER0)
ENDIF

IF(PLAYER0,TIMER0==300)
	NEXT_COMMAND_REUSABLE
	SET_OBJECT_CONFIGURATION(WARBANNER_HORNY,AnimationSpeed,0) 	
ENDIF

IF(PLAYER0,WIZARD == 4)
	KILL_CREATURE(PLAYER0,ANY_CREATURE,ANYWHERE,30)
	SET_TIMER(PLAYER0,TIMER1)
	QUICK_OBJECTIVE(​3,"The Wizards have bundled their power to sacrifive themselfs to summon the Final Support, now go and kill the Landlord.",ALL_PLAYERS)
ENDIF

IF(PLAYER0,SKELETON >=3)
	SET_GAME_RULE(PrisonSkeletonChance,0)
	QUICK_INFORMATION(​4,"3 Skeletons are enough in this Realm.",ALL_PLAYERS)
ENDIF

IF(PLAYER0,TIMER1 >= 10)
 	ADD_PARTY_TO_LEVEL(PLAYER0,TERROR,PLAYER0,2)
ENDIF

IF(PLAYER_GOOD,DUNGEON_DESTROYED == 1)
	WIN_GAME
ENDIF