LEVEL_VERSION(1)
SET_GENERATE_SPEED(300)
START_MONEY(ALL_PLAYERS,75000)
MAX_CREATURES(PLAYER0,40)
MAX_CREATURES(PLAYER1,30)
MAX_CREATURES(PLAYER2,30)
COMPUTER_PLAYER(PLAYER1,10)
COMPUTER_PLAYER(PLAYER2,10)


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,DEMONSPAWN,1,0)
CREATURE_AVAILABLE(ALL_PLAYERS,TROLL,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)
ROOM_AVAILABLE(ALL_PLAYERS,GUARD_POST,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,WORKSHOP,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,PRISON,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,TORTURE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,BARRACKS,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,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CAVE_IN,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_LIGHTNING,1,0)

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

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

RESEARCH_ORDER(ALL_PLAYERS,MAGIC,POWER_IMP,2300)
RESEARCH_ORDER(ALL_PLAYERS,ROOM,TRAINING,400)
RESEARCH_ORDER(ALL_PLAYERS,ROOM,BRIDGE,7000)
RESEARCH_ORDER(ALL_PLAYERS,MAGIC,POWER_SPEED,5700)
RESEARCH_ORDER(ALL_PLAYERS,ROOM,GUARD_POST,6700)
RESEARCH_ORDER(ALL_PLAYERS,MAGIC,POWER_CALL_TO_ARMS,7400)
RESEARCH_ORDER(ALL_PLAYERS,ROOM,WORKSHOP,20000)
RESEARCH_ORDER(ALL_PLAYERS,ROOM,BARRACKS,10000)
RESEARCH_ORDER(ALL_PLAYERS,ROOM,PRISON,20000)
RESEARCH_ORDER(ALL_PLAYERS,MAGIC,POWER_CAVE_IN,25000)
RESEARCH_ORDER(ALL_PLAYERS,ROOM,TORTURE,22000)
RESEARCH_ORDER(ALL_PLAYERS,MAGIC,POWER_HEAL_CREATURE,14000)
RESEARCH_ORDER(ALL_PLAYERS,ROOM,TEMPLE,30000)
RESEARCH_ORDER(ALL_PLAYERS,MAGIC,POWER_LIGHTNING,15000)
RESEARCH_ORDER(ALL_PLAYERS,MAGIC,POWER_SIGHT,85000)
RESEARCH_ORDER(ALL_PLAYERS,MAGIC,POWER_HEAL_CREATURE,85000)
RESEARCH_ORDER(ALL_PLAYERS,MAGIC,POWER_PROTECT,85000)
RESEARCH_ORDER(ALL_PLAYERS,ROOM,BRIDGE,400000)

SET_CREATURE_MAX_LEVEL(ALL_PLAYERS,THIEF,10)

ALLY_PLAYERS(PLAYER1,PLAYER2,3)
QUICK_OBJECTIVE(3,"In this realm, your objective is to destroy the two opposing keeper , you are separated from them by a lava lake , and they are separated from eatch other by a heroe dungeon , the heroes aren't strong but be sure to have at least level 3 or 4 creatures.")



rem ***winning condtion , defeating ennemis keeper , white is optionnal***
IF(PLAYER1,DUNGEON_DESTROYED==1)
 IF(PLAYER2,DUNGEON_DESTROYED==1)
 WIN_GAME
 QUICK_OBJECTIVE(1,"You won!")
ENDIF
 ENDIF



REM ***this is the white dungeon script.***
REM This give the keeper access to the bridge , sight , heal and protect spell/room when he claims the librairy north of the white dungeon heart
IF_SLAB_OWNER(45,25,PLAYER0)
USE_SPECIAL_INCREASE_LEVEL(PLAYER1,1)
USE_SPECIAL_INCREASE_LEVEL(PLAYER2,1)
ROOM_AVAILABLE(PLAYER0,BRIDGE,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_SIGHT,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_PROTECT,1,0)
QUICK_INFORMATION(2,"In the librairy , you found remains of what seems to be a schematic for a bridge and a spellbook , you may be able to restore them if you let your warlocks study them , but it will be a long process. ",PLAYER0)
ENDIF



REM this create the dungeon party
CREATE_PARTY(lknight)
CREATE_PARTY(lmagic)
CREATE_PARTY(lbrute)
ADD_TO_PARTY(lknight,KNIGHT,7,5000,ATTACK_ENEMIES,0)
ADD_TO_PARTY(lknight,KNIGHT,7,5000,ATTACK_ENEMIES,0)
ADD_TO_PARTY(lknight,SAMURAI,4,5000,ATTACK_ENEMIES,0)
ADD_TO_PARTY(lknight,SAMURAI,4,5000,ATTACK_ENEMIES,0)

ADD_TO_PARTY(lmagic,WIZARD,4,5000,ATTACK_ENEMIES,0)
ADD_TO_PARTY(lmagic,WIZARD,4,5000,ATTACK_ENEMIES,0)
ADD_TO_PARTY(lmagic,MONK,4,5000,ATTACK_ENEMIES,0)
ADD_TO_PARTY(lmagic,MONK,4,5000,ATTACK_ENEMIES,0)

ADD_TO_PARTY(lbrute,GIANT,5,5000,ATTACK_ENEMIES,0)
ADD_TO_PARTY(lbrute,GIANT,5,5000,ATTACK_ENEMIES,0)
ADD_TO_PARTY(lbrute,BARBARIAN,5,5000,ATTACK_ENEMIES,0)
ADD_TO_PARTY(lbrute,BARBARIAN,5,5000,ATTACK_ENEMIES,0)



REM final party
IF_ACTION_POINT(1,PLAYER0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,lknight,1,1)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,lmagic,2,1)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,lmagic,3,1)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,lbrute,4,1)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,lbrute,5,1)
ENDIF
IF_ACTION_POINT(6,PLAYER0)
QUICK_INFORMATION(4,"Beware, you found the white dungeon , be sure before breaking that door !")
ENDIF



REM *** message show up if you discover a librairy of one keeper , containing armaggedon.***
IF_SLAB_OWNER(77,12,PLAYER0)
 IF_SLAB_OWNER(8,12,PLAYER1)
 QUICK_INFORMATION(5,"You found the spell of armaggedon in the green librairy ! Use it only if you are sure.")
ENDIF 
 ENDIF
 IF_SLAB_OWNER(77,12,PLAYER2)
 IF_SLAB_OWNER(8,12,PLAYER0)
 QUICK_INFORMATION(6,"You found the spell of armaggedon in the blue librairy ! Use it only if you are sure.")
ENDIF 
 ENDIF



REM ***open a path to the other dungeon when one is defeated.***

IF_SLAB_OWNER(77,12,PLAYER2)
 IF_SLAB_OWNER(8,12,PLAYER0)
  IF(PLAYER1,DUNGEON_DESTROYED==1)
  CHANGE_SLAB_TYPE(45,15,PRETTY_PATH,NONE)
  QUICK_MESSAGE(7,"ennemy keeper used a misterious spell to open up the gem seam and breach to what remains of the blue dungeon.",PLAYER0)
  ENDIF
 ENDIF
ENDIF

IF_SLAB_OWNER(77,12,PLAYER0)
 IF_SLAB_OWNER(8,12,PLAYER1)
  IF(PLAYER2,DUNGEON_DESTROYED==1)
  CHANGE_SLAB_TYPE(45,15,PRETTY_PATH,NONE)
  QUICK_MESSAGE(8,"ennemy keeper used a misterious spell to open up the gem seam and breach to what remains of the green dungeon.",PLAYER0)
  ENDIF
 ENDIF
ENDIF
  


