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.")
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.")
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.")
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.")
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.")
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.")
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
