LEVEL_VERSION(1)
SET_GENERATE_SPEED(900)
START_MONEY(PLAYER0,12000)
START_MONEY(PLAYER1,1500000)
MAX_CREATURES(PLAYER0,30)
MAX_CREATURES(PLAYER1,20)

COMPUTER_PLAYER(PLAYER1,0)

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,0)
ADD_CREATURE_TO_POOL(TENTACLE,0)
ADD_CREATURE_TO_POOL(SORCEROR,20)
ADD_CREATURE_TO_POOL(ORC,0)
ADD_CREATURE_TO_POOL(BILE_DEMON,20)
ADD_CREATURE_TO_POOL(DRAGON,20)
ADD_CREATURE_TO_POOL(DARK_MISTRESS,0)

REM blue player should have the prison , dragons in the pool and should be the only one to possess sight of evil (red does get it in a room that is available after defeating white later)
rem the objective is to destroy blue dungeon and to kill the white knight , in his labyrinth west north , wich is well trapped.
REM events should be as : when the player reach the gem seam , he cannot mine it because he doesn't have bridge (it is surrounded by lava) but when he get close to it the bridge become researchable , in the meantime twos heroes tunneler party start digging to the dungeon by the entrance of the labyrinth and by the water cave down east south
REM in the labyrinth , there is a trap that make heros appear in a small cave near your dungeon , the final party come when you get close to the white heart
REM if you destroy white dungeon first , it will give the blue 750,000 gold , 5 dragon and 5 demon spawn all level 8.

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,SPIDER,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,SORCEROR,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,BILE_DEMON,1,0)
CREATURE_AVAILABLE(PLAYER1,DRAGON,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)
ROOM_AVAILABLE(PLAYER1,BRIDGE,1,0)
ROOM_AVAILABLE(PLAYER1,PRISON,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_IMP,1,1)
MAGIC_AVAILABLE(PLAYER1,POWER_SIGHT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_PROTECT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HEAL_CREATURE,1,0)

REM winning condition ,blue and white hearth destroyed
IF(PLAYER_GOOD,DUNGEON_DESTROYED==1)
	IF(PLAYER1,DUNGEON_DESTROYED==1)
       WIN_GAME
       QUICK_OBJECTIVE(5,"You won !",PLAYER0)
ENDIF
       ENDIF

REM creature level limitation 
SET_CREATURE_MAX_LEVEL(ALL_PLAYERS,BILE_DEMON,6)
SET_CREATURE_MAX_LEVEL(ALL_PLAYERS,BUG,6)
SET_CREATURE_MAX_LEVEL(ALL_PLAYERS,DRAGON,6)
SET_CREATURE_MAX_LEVEL(ALL_PLAYERS,DEMONSPAWN,6)
SET_CREATURE_MAX_LEVEL(ALL_PLAYERS,FLY,6)
SET_CREATURE_MAX_LEVEL(ALL_PLAYERS,SKELETON,6)
SET_CREATURE_MAX_LEVEL(ALL_PLAYERS,SORCEROR,6)
SET_CREATURE_MAX_LEVEL(ALL_PLAYERS,SPIDER,6)
SET_CREATURE_MAX_LEVEL(ALL_PLAYERS,ARCHER,6)
SET_CREATURE_MAX_LEVEL(ALL_PLAYERS,SAMURAI,6)
SET_CREATURE_MAX_LEVEL(ALL_PLAYERS,THIEF,6)
SET_CREATURE_MAX_LEVEL(ALL_PLAYERS,WIZARD,6)
SET_CREATURE_MAX_LEVEL(ALL_PLAYERS,GIANT,6)
SET_CREATURE_MAX_LEVEL(ALL_PLAYERS,BARBARIAN,6)
SET_CREATURE_MAX_LEVEL(ALL_PLAYERS,VAMPIRE,6)
SET_CREATURE_MAX_LEVEL(ALL_PLAYERS,TENTACLE,6)
SET_CREATURE_MAX_LEVEL(ALL_PLAYERS,ORC,6)

CREATE_PARTY(trap)
ADD_TO_PARTY(trap,SAMURAI,4,50000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(trap,WIZARD,5,50000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(trap,SAMURAI,4,50000,ATTACK_DUNGEON_HEART,0)
REM labyrinth traps , when the player pass action point 1 , it should spawn 3 level 10 samurai near his dungeon heart

IF_ACTION_POINT(1,ALL_PLAYERS)
 IF(PLAYER_GOOD,DUNGEON_DESTROYED==0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,trap,7,1)
QUICK_INFORMATION(4,"somes whites heros broke into your dungeon !")
ENDIF
 ENDIF

rem objectives messages
QUICK_OBJECTIVE(1,"In this realm , you can train your creatures up to level 6. Your objective is to kill the rival keeper and kill the Lord of the Land.He hold a labyrinth at the north west.",ALL_PLAYERS)
IF_ACTION_POINT(2,PLAYER0)
QUICK_information(2,"you have found the entrance of a small cave containing a gem seam. Watch out , it may be trapped. ",ALL_PLAYERS)
ENDIF
IF_ACTION_POINT(20,PLAYER0)
QUICK_information(3,"you have found the knight labyrinth, watch out for the traps !",ALL_PLAYERS)
ENDIF

rem final party 
CREATE_PARTY(lord)
CREATE_PARTY(lorda)
ADD_TO_PARTY(lord,KNIGHT,8,8000,ATTACK_ENEMIES,0)
ADD_TO_PARTY(lord,WIZARD,8,1000,ATTACK_ENEMIES,0)
ADD_TO_PARTY(lord,WIZARD,8,1000,ATTACK_ENEMIES,0)
ADD_TO_PARTY(lorda,WIZARD,8,1000,ATTACK_ENEMIES,0)
ADD_TO_PARTY(lorda,SAMURAI,9,1000,ATTACK_ENEMIES,0)
ADD_TO_PARTY(lorda,ARCHER,10,1000,ATTACK_ENEMIES,0)

IF_ACTION_POINT(4,ALL_PLAYERS)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,lord,-2,1)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,lorda,5,1)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,lorda,21,1)
ENDIF

rem add creature and gold to blue if you destroy white first
IF(PLAYER1,DUNGEON_DESTROYED==0)
 IF(PLAYER_GOOD,DUNGEON_DESTROYED==1)
  ADD_GOLD_TO_PLAYER(PLAYER1,750000)
  ADD_CREATURE_TO_LEVEL(PLAYER1,DRAGON,8,3,6,0)
  ADD_CREATURE_TO_LEVEL(PLAYER1,DEMONSPAWN,9,3,6,0)
  QUICK_OBJECTIVE(6,"now that you took over the labyrinth , it is time to get rid of that blue keeper!",ALL_PLAYERS)
 ENDIF
ENDIF

CREATE_PARTY(assault)
ADD_TO_PARTY(assault,SAMURAI,4,10000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(assault,BARBARIAN,3,10000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(assault,BARBARIAN,3,10000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(assault,SAMURAI,3,10000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(assault,THIEF,3,10000,STEAL_GOLD,0)
ADD_TO_PARTY(assault,DWARFA,3,10000,STEAL_GOLD,0)
CREATE_PARTY(assaulta)
ADD_TO_PARTY(assaulta,DWARFA,2,10000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(assaulta,BARBARIAN,3,10000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(assaulta,BARBARIAN,3,10000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(assaulta,DWARFA,2,10000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(assaulta,WIZARD,2,10000,ATTACK_DUNGEON_HEART,0)

 

IF_ACTION_POINT(10,ALL_PLAYERS)
QUICK_INFORMATION(7,"you now gain access to the gem seam, but it it is surrounded by lava. Your warlocks started working on a solution , in the meantime , heroes sent two party against you , be careful !",ALL_PLAYERS)
ROOM_AVAILABLE(PLAYER0,BRIDGE,1,0)
ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,assault,11,ACTION_POINT,14,8,5000)
ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,assault,12,ACTION_POINT,14,8,5000)
ENDIF

rem parties that come to you if you progress enough

IF(PLAYER0,TOTAL_GOLD_MINED>=40000)
IF(PLAYER0,TOTAL_CREATURES>=18)
ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,assaulta,15,ACTION_POINT,14,6,5000)
ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,assaulta,16,ACTION_POINT,14,6,5000)
ENDIF
ENDIF

IF_ACTION_POINT(18,PLAYER0)
QUICK_OBJECTIVE(8,"You found the room leading to the white dungeon heart , be sure before breaking the door !")
ENDIF
IF_ACTION_POINT(3,PLAYER0)
QUICK_INFORMATION(9,"You found a room in where 4 vampire were emprisoned, make a lair apart for them or they'll fight to death with your warlocks !")
ENDIF