REM ********************************************
REM
REM            Script for Level 34 - Dragon's Reach
REM
REM ********************************************
REM Generated using Dungeon Scripter V0.84.
REM Created by Stubbjax.
REM ********************************************

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

SET_GENERATE_SPEED(400)
MAX_CREATURES(PLAYER0,22)
START_MONEY(PLAYER0,16000)

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(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,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,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,1)
MAGIC_AVAILABLE(PLAYER0,POWER_SPEED,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_OBEY,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_CALL_TO_ARMS,1,1)
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_DISEASE,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_ARMAGEDDON,1,0)

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

TRAP_AVAILABLE(PLAYER0,POISON_GAS,1,0)
TRAP_AVAILABLE(PLAYER0,LIGHTNING,1,0)
TRAP_AVAILABLE(PLAYER0,LAVA,1,0)
DOOR_AVAILABLE(PLAYER0,WOOD,1,0)
DOOR_AVAILABLE(PLAYER0,BRACED,1,0)

CREATE_PARTY(ONE)
    ADD_TO_PARTY(ONE,SAMURAI,5,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,ARCHER,7,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,MONK,6,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,MONK,6,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,GIANT,7,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,FAIRY,8,500,ATTACK_ENEMIES,0)

CREATE_PARTY(TWO)
    ADD_TO_PARTY(TWO,WIZARD,9,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,WITCH,5,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,WITCH,5,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,SAMURAI,4,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,THIEF,8,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,ARCHER,6,500,ATTACK_ENEMIES,0)

CREATE_PARTY(THREE)
    ADD_TO_PARTY(THREE,THIEF,6,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(THREE,THIEF,6,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(THREE,BARBARIAN,8,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(THREE,BARBARIAN,8,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(THREE,MONK,8,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(THREE,GIANT,7,500,ATTACK_ENEMIES,0)

CREATE_PARTY(FOUR)
    ADD_TO_PARTY(ONE,SAMURAI,9,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,ARCHER,6,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,ARCHER,6,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,ARCHER,6,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,ARCHER,6,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,MONK,4,500,ATTACK_ENEMIES,0)

CREATE_PARTY(DRAGON1)
    ADD_TO_PARTY(DRAGON1,DRAGON,5,1000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(DRAGON1,DRAGON,5,1000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(DRAGON1,DRAGON,5,1000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(DRAGON1,DRAGON,5,1000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(DRAGON1,DRAGON,5,1000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(DRAGON1,DRAGON,5,1000,ATTACK_ENEMIES,0)

CREATE_PARTY(DRAGON2)
    ADD_TO_PARTY(DRAGON2,DRAGON,7,5000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(DRAGON2,DRAGON,7,5000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(DRAGON2,DRAGON,7,5000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(DRAGON2,DRAGON,7,5000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(DRAGON2,DRAGON,7,5000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(DRAGON2,DRAGON,7,5000,ATTACK_ENEMIES,0)

CREATE_PARTY(DRAGON3)
    ADD_TO_PARTY(DRAGON3,DRAGON,9,5000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(DRAGON3,DRAGON,9,5000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(DRAGON3,DRAGON,9,5000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(DRAGON3,DRAGON,9,5000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(DRAGON3,DRAGON,9,5000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(DRAGON3,DRAGON,9,5000,ATTACK_ENEMIES,0)

CREATE_PARTY(DRAGON4)
    ADD_TO_PARTY(DRAGON4,DRAGON,10,5000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(DRAGON4,DRAGON,10,5000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(DRAGON4,DRAGON,10,5000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(DRAGON4,DRAGON,10,5000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(DRAGON4,DRAGON,10,5000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(DRAGON4,DRAGON,10,5000,ATTACK_ENEMIES,0)

CREATE_PARTY(LORDGUARDS1)
    ADD_TO_PARTY(LORDGUARDS1,DWARFA,8,800,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LORDGUARDS1,DWARFA,8,800,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LORDGUARDS1,DWARFA,8,800,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LORDGUARDS1,DWARFA,8,800,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LORDGUARDS1,DWARFA,8,800,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LORDGUARDS1,DWARFA,8,800,ATTACK_ENEMIES,0)

CREATE_PARTY(LORDGUARDS2)
    ADD_TO_PARTY(LORDGUARDS2,WIZARD,7,800,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LORDGUARDS2,WIZARD,7,800,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LORDGUARDS2,WIZARD,7,800,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LORDGUARDS2,WIZARD,7,800,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LORDGUARDS2,WIZARD,7,800,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LORDGUARDS2,WIZARD,7,800,ATTACK_ENEMIES,0)

CREATE_PARTY(LORDGUARDS3)
    ADD_TO_PARTY(LORDGUARDS3,FAIRY,9,800,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LORDGUARDS3,FAIRY,9,800,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LORDGUARDS3,FAIRY,9,800,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LORDGUARDS3,FAIRY,9,800,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LORDGUARDS3,FAIRY,9,800,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LORDGUARDS3,FAIRY,9,800,ATTACK_ENEMIES,0)

CREATE_PARTY(LANDLORD)
    ADD_TO_PARTY(LANDLORD,AVATAR,8,1500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LANDLORD,AVATAR,8,1500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LANDLORD,KNIGHT,7,1500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LANDLORD,KNIGHT,7,1500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LANDLORD,KNIGHT,7,1500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LANDLORD,KNIGHT,7,1500,ATTACK_ENEMIES,0)

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

QUICK_OBJECTIVE(1,"Dragons, Dragons... and even more Dragons protect the inhabitants of this region. Hence the name. These Dragons would make great and rare converts. Sadly, we have lost the plans for constructing a prison and torture chamber. So you'll have make do without. Your objective here is to destroy the fortress to the south. Good luck, keeper.",ALL_PLAYERS)

SET_TIMER(PLAYER_GOOD,TIMER1)

IF(PLAYER_GOOD,TIMER1 >= 35000)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,DRAGON2,-1,DUNGEON,0,4,1500)
	SET_FLAG(PLAYER0,FLAG0,1)
	QUICK_INFORMATION(4,"I sense that the heroes have sent some Dragons to assault your dungeon, Master. Slay them all. These dragons are said to carry vast quantities of wealth. These should be yours.",-1)
ENDIF

IF(PLAYER_GOOD,TIMER1 >= 50000)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,DRAGON2,-2,DUNGEON,0,3,1500)
	SET_FLAG(PLAYER0,FLAG0,1)
	QUICK_INFORMATION(5,"Another party of Dragons is about to attack your dungeon. Don't fall asleep on me yet, Keeper.",-2)
ENDIF

IF(PLAYER_GOOD,TIMER1 >= 70000)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,DRAGON3,-2,1)
	SET_FLAG(PLAYER0,FLAG0,1)
	QUICK_INFORMATION(6,"These fire breathing Dragons just do not know when to give up. Let them choke on thier own vomit.",-2)
ENDIF

IF(PLAYER_GOOD,TIMER1 >= 80000)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,DRAGON4,-1,1)
	SET_FLAG(PLAYER0,FLAG0,1)
	SET_FLAG(PLAYER0,FLAG2,1)
	QUICK_INFORMATION(7,"One last and final, desperate attempt to destroy you has been made by a last invading party of Dragons. You're on a roll here, Master.",-1)
ENDIF

IF_ACTION_POINT(1,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,DRAGON1,1,1)
	SET_FLAG(PLAYER0,FLAG0,1)
ENDIF

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

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

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

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

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

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

IF_ACTION_POINT(16,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,LANDLORD,17,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,LORDGUARDS1,8,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,LORDGUARDS2,9,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,LORDGUARDS3,10,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,LORDGUARDS1,11,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,12,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TWO,13,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,THREE,14,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,FOUR,15,1)
	SET_FLAG(PLAYER0,FLAG0,1)
	SET_FLAG(PLAYER0,FLAG1,1)
ENDIF

IF(PLAYER0,FLAG1 == 1)
	QUICK_OBJECTIVE(2,"You've arrived deep within the Castle. But the locals are already prepared for your presence. Display your true power to them, and bring a joyful, smug grin to Conan's face.",ALL_PLAYERS)
ENDIF

IF(PLAYER0,FLAG2 == 1)
	SET_TIMER(PLAYER_GOOD,TIMER2)
ENDIF

IF(PLAYER_GOOD,TIMER2 >= 2000)
	QUICK_INFORMATION(8,"The heroes have halted thier advancing dragon attacks. You should now be able to concentrate on hunting the remaining locals down.",ALL_PLAYERS)
ENDIF

IF(PLAYER0,TENTACLE > =1)
	QUICK_INFORMATION(9,"These aquatic tentacles usually serve evil Keepers. But it seems they're interested in joining your cause.",ALL_PLAYERS)
ENDIF

IF(PLAYER0,FLAG0 == 1)
	IF(PLAYER_GOOD,DUNGEON_DESTROYED ==1)
		IF(PLAYER_GOOD,TOTAL_CREATURES == 0)
			QUICK_OBJECTIVE(3,"My heart bleeds for you, keeper. This is one of your greatest victories since your conquest began. This land and all it's spoils are yours. Magnificent.",ALL_PLAYERS)
			WIN_GAME
		ENDIF
	ENDIF
ENDIF
