REM ********************************************
REM
REM            Script for Level 40 - Valhalla
REM
REM ********************************************
REM Generated using Dungeon Scripter V0.84.
REM Created by Stubbjax.
REM ********************************************

REM ************** SETUP - GENERAL *************

SET_GENERATE_SPEED(400)
MAX_CREATURES(PLAYER0,30)
START_MONEY(PLAYER0,15000)

REM ************* SETUP - CREATURES ************

ADD_CREATURE_TO_POOL(DWARFA,20)
ADD_CREATURE_TO_POOL(BARBARIAN,20)
ADD_CREATURE_TO_POOL(GIANT,20)
ADD_CREATURE_TO_POOL(THIEF,10)
ADD_CREATURE_TO_POOL(ARCHER,20)
ADD_CREATURE_TO_POOL(SAMURAI,10)
ADD_CREATURE_TO_POOL(WIZARD,10)
ADD_CREATURE_TO_POOL(FAIRY,20)

CREATURE_AVAILABLE(PLAYER0,DWARFA,1,1)
CREATURE_AVAILABLE(PLAYER0,BARBARIAN,1,1)
CREATURE_AVAILABLE(PLAYER0,GIANT,1,1)
CREATURE_AVAILABLE(PLAYER0,THIEF,1,1)
CREATURE_AVAILABLE(PLAYER0,ARCHER,1,1)
CREATURE_AVAILABLE(PLAYER0,SAMURAI,1,1)
CREATURE_AVAILABLE(PLAYER0,WIZARD,1,1)
CREATURE_AVAILABLE(PLAYER0,FAIRY,1,1)

REM *************** SETUP - ROOMS **************

ROOM_AVAILABLE(PLAYER0,TREASURE,1,1)
ROOM_AVAILABLE(PLAYER0,LAIR,1,1)
ROOM_AVAILABLE(PLAYER0,GARDEN,1,1)
ROOM_AVAILABLE(PLAYER0,TRAINING,1,1)
ROOM_AVAILABLE(PLAYER0,RESEARCH,1,1)
ROOM_AVAILABLE(PLAYER0,GUARD_POST,1,0)
ROOM_AVAILABLE(PLAYER0,WORKSHOP,1,0)
ROOM_AVAILABLE(PLAYER0,PRISON,1,0)
ROOM_AVAILABLE(PLAYER0,TORTURE,1,0)
ROOM_AVAILABLE(PLAYER0,BARRACKS,1,0)
ROOM_AVAILABLE(PLAYER0,TEMPLE,1,0)
ROOM_AVAILABLE(PLAYER0,GRAVEYARD,1,0)

REM ************** SETUP - SPELLS **************

MAGIC_AVAILABLE(PLAYER0,POWER_IMP,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_SIGHT,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_SPEED,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_OBEY,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_CONCEAL,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_HOLD_AUDIENCE,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_CAVE_IN,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_PROTECT,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_CHICKEN,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_DISEASE,1,0)

REM *********** SETUP - TRAPS & DOORS **********

TRAP_AVAILABLE(PLAYER0,POISON_GAS,1,0)
TRAP_AVAILABLE(PLAYER0,LIGHTNING,1,0)
TRAP_AVAILABLE(PLAYER0,BOULDER,1,0)
TRAP_AVAILABLE(PLAYER0,WORD_OF_POWER,1,0)
DOOR_AVAILABLE(PLAYER0,WOOD,1,0)
DOOR_AVAILABLE(PLAYER0,BRACED,1,0)
DOOR_AVAILABLE(PLAYER0,STEEL,1,0)
DOOR_AVAILABLE(PLAYER0,MAGIC,1,0)

CREATE_PARTY(ONE)
	ADD_TO_PARTY(ONE,MONK,10,1200,STEAL_GOLD,0)
	ADD_TO_PARTY(ONE,BARBARIAN,10,1200,STEAL_GOLD,0)
	ADD_TO_PARTY(ONE,SAMURAI,10,1200,STEAL_GOLD,0)
	ADD_TO_PARTY(ONE,SAMURAI,10,1200,STEAL_GOLD,0)
	ADD_TO_PARTY(ONE,WITCH,10,1200,STEAL_GOLD,0)

CREATE_PARTY(TWO)
	ADD_TO_PARTY(TWO,THIEF,10,1200,STEAL_GOLD,0)
	ADD_TO_PARTY(TWO,ARCHER,10,1200,STEAL_GOLD,0)
	ADD_TO_PARTY(TWO,ARCHER,10,1200,STEAL_GOLD,0)
	ADD_TO_PARTY(TWO,GIANT,10,1200,STEAL_GOLD,0)
	ADD_TO_PARTY(TWO,GIANT,10,1200,STEAL_GOLD,0)

CREATE_PARTY(THREE)
	ADD_TO_PARTY(THREE,BARBARIAN,10,1200,STEAL_GOLD,0)
	ADD_TO_PARTY(THREE,BARBARIAN,10,1200,STEAL_GOLD,0)
	ADD_TO_PARTY(THREE,FAIRY,10,1200,STEAL_GOLD,0)
	ADD_TO_PARTY(THREE,FAIRY,10,1200,STEAL_GOLD,0)
	ADD_TO_PARTY(THREE,DWARFA,10,1200,STEAL_GOLD,0)
	
CREATE_PARTY(LANDLORD)
	ADD_TO_PARTY(LANDLORD,AVATAR,10,2500,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(LANDLORD,KNIGHT,10,1500,DEFEND_PARTY,0)
	ADD_TO_PARTY(LANDLORD,DWARFA,10,1500,DEFEND_PARTY,0)
	ADD_TO_PARTY(LANDLORD,BARBARIAN,10,1500,DEFEND_PARTY,0)
	ADD_TO_PARTY(LANDLORD,ARCHER,10,1500,DEFEND_PARTY,0)

REM ****************************************************************************

QUICK_OBJECTIVE(1,"This is it, Master. The Realm of Valhalla now lies at your mercy. Slaughter every noble woman and man alike. Feed them thier own Endtrails. Conan is once again willing to assist you.",PLAYER0)
ENDIF

SET_FLAG(PLAYER0,FLAG0,1)

IF(PLAYER0,BRIDGE > =1)
ROOM_AVAILABLE(PLAYER0,BRIDGE,1,1)
ENDIF

IF_ACTION_POINT(1,PLAYER0)
ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,LANDLORD,-1,DUNGEON,0,1,250)
ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,-2,DUNGEON,0,1,250)
ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,TWO,-3,DUNGEON,0,1,250)
ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,THREE,-4,DUNGEON,0,1,250)
SET_FLAG(PLAYER0,FLAG0,1)
SET_FLAG(PLAYER0,FLAG1,1)
ENDIF

IF_ACTION_POINT(2,PLAYER0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,2,1)
SET_FLAG(PLAYER0,FLAG0,1)
ENDIF

IF_ACTION_POINT(3,PLAYER0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TWO,3,1)
SET_FLAG(PLAYER0,FLAG0,1)
ENDIF

IF_ACTION_POINT(4,PLAYER0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,THREE,4,1)
SET_FLAG(PLAYER0,FLAG0,1)
ENDIF

IF_ACTION_POINT(5,PLAYER0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,5,1)
SET_FLAG(PLAYER0,FLAG0,1)
ENDIF

IF_ACTION_POINT(6,PLAYER0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TWO,6,1)
SET_FLAG(PLAYER0,FLAG0,1)
ENDIF

IF_ACTION_POINT(7,PLAYER0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,THREE,7,1)
SET_FLAG(PLAYER0,FLAG0,1)
ENDIF

IF_ACTION_POINT(8,PLAYER0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,8,1)
SET_FLAG(PLAYER0,FLAG0,1)
ENDIF

IF_ACTION_POINT(9,PLAYER0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TWO,9,1)
SET_FLAG(PLAYER0,FLAG0,1)
ENDIF

IF_ACTION_POINT(10,PLAYER0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,THREE,10,1)
SET_FLAG(PLAYER0,FLAG0,1)
ENDIF

IF_ACTION_POINT(11,PLAYER0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,11,1)
SET_FLAG(PLAYER0,FLAG0,1)
ENDIF

IF_ACTION_POINT(12,PLAYER0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TWO,12,1)
SET_FLAG(PLAYER0,FLAG0,1)
ENDIF

IF_ACTION_POINT(13,PLAYER0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,THREE,13,1)
SET_FLAG(PLAYER0,FLAG0,1)
ENDIF

IF_ACTION_POINT(14,PLAYER0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,14,1)
SET_FLAG(PLAYER0,FLAG0,1)
ENDIF

IF_ACTION_POINT(15,PLAYER0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,THREE,15,1)
SET_FLAG(PLAYER0,FLAG0,1)
ENDIF

IF(PLAYER0,FLAG1 == 1)
QUICK_OBJECTIVE(2" Master, the final battle awaits. Succeed, and the realm is yours. Make me proud. Don't let a single Hero escape your clutches.",PLAYER0)
ENDIF

IF(PLAYER0,FLAG0 == 1)
   IF(PLAYER_GOOD,DUNGEON_DESTROYED ==1)
      IF(PLAYER_GOOD,KNIGHT == 0)
         IF(PLAYER_GOOD,TOTAL_CREATURES == 0)
QUICK_OBJECTIVE(3,"What can I say, Master. You have led Conan and his men to Victory! I knew you were worthy all along. Rule your new kingdom with terror.",PLAYER0)
    WIN_GAME   
   ENDIF
      ENDIF
         ENDIF
            ENDIF

IF(PLAYER0,BARBARIAN == 0)
QUICK_OBJECTIVE(4,"You have allowed Conan and his men to die, Keeper. You were so near, yet so far...",PLAYER0)
    LOSE_GAME   
ENDIF