REM ********************************************
REM
REM            Script for Level 28 - Hadrian's Wall
REM
REM ********************************************
REM Generated using Dungeon Scripter V0.84.
REM Created by Stubbjax.
REM ********************************************

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

SET_GENERATE_SPEED(400)
MAX_CREATURES(PLAYER0,20)
START_MONEY(PLAYER0,8000)

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,30)
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,BRIDGE,1,0)
ROOM_AVAILABLE(PLAYER0,GUARD_POST,1,0)
ROOM_AVAILABLE(PLAYER0,WORKSHOP,1,0)
ROOM_AVAILABLE(PLAYER0,PRISON,1,0)
ROOM_AVAILABLE(PLAYER0,BARRACKS,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_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_PROTECT,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_CHICKEN,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_DESTROY_WALLS,1,0)

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

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

CREATE_PARTY(SAMURAIS)
    ADD_TO_PARTY(SAMURAIS,SAMURAI,7,1000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(SAMURAIS,SAMURAI,7,1000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(SAMURAIS,SAMURAI,7,1000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(SAMURAIS,SAMURAI,7,1000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(SAMURAIS,SAMURAI,7,1000,ATTACK_ENEMIES,0)

CREATE_PARTY(MONKS)
    ADD_TO_PARTY(MONKS,MONK,6,800,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(MONKS,MONK,6,800,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(MONKS,MONK,6,800,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(MONKS,MONK,6,800,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(MONKS,MONK,6,800,ATTACK_ENEMIES,0)

CREATE_PARTY(GIANTS)
    ADD_TO_PARTY(GIANTS,GIANT,6,800,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(GIANTS,GIANT,6,800,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(GIANTS,GIANT,6,800,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(GIANTS,GIANT,6,800,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(GIANTS,GIANT,6,800,ATTACK_ENEMIES,0)

CREATE_PARTY(LORDGUARDS)
    ADD_TO_PARTY(LORDGUARDS,WIZARD,8,2000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LORDGUARDS,DWARFA,6,2000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LORDGUARDS,DWARFA,6,2000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LORDGUARDS,ARCHER,5,2000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LORDGUARDS,ARCHER,5,2000,ATTACK_ENEMIES,0)

CREATE_PARTY(LANDLORD)
    ADD_TO_PARTY(LANDLORD,KNIGHT,9,2000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LANDLORD,BARBARIAN,8,2000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LANDLORD,BARBARIAN,8,2000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LANDLORD,GIANT,7,2000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LANDLORD,GIANT,7,2000,ATTACK_ENEMIES,0)

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

QUICK_OBJECTIVE(1," This realm is barricaded by several great walls. Researching the Destroy Walls spell is the only way to break through these walls. Conan also expects you to exterminate every last living inhabitant, including the good Lord.",ALL_PLAYERS)

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

IF_AVAILABLE(PLAYER0,POWER_DESTROY_WALLS == 1)
	QUICK_INFORMATION(3," It's taken your researchers some time, but you have finally devised the Destroy Walls spell. Prepare your remaining troops and use the spell to break through Hadrian's Walls. Remember, you also need to hunt down every hero as well as the one's inside the hero keep to the northwest.")
ENDIF

IF_ACTION_POINT(1,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,LANDLORD,1,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,LORDGUARDS,-1,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,LORDGUARDS,-2,1)
	SET_FLAG(PLAYER0,FLAG0,1)
ENDIF

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

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

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

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

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

IF(PLAYER0,FLAG0 == 1)
	IF(PLAYER_GOOD,DUNGEON_DESTROYED == 1)
		IF(PLAYER_GOOD,TOTAL_CREATURES == 0)
			QUICK_OBJECTIVE(2,"Hadrian's Wall will now go down as a landmark in ruin. Let's rest and celebrate.",ALL_PLAYERS)
			WIN_GAME
		ENDIF
	ENDIF
ENDIF
