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

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

SET_GENERATE_SPEED(400)
MAX_CREATURES(PLAYER0,25)
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,GUARD_POST,1,1)


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

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

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

TRAP_AVAILABLE(PLAYER0,ALARM,1,0)
TRAP_AVAILABLE(PLAYER0,LAVA,1,0)
TRAP_AVAILABLE(PLAYER0,WORD_OF_POWER,1,0)
DOOR_AVAILABLE(PLAYER0,STEEL,1,0)
DOOR_AVAILABLE(PLAYER0,MAGIC,1,0)

CREATE_PARTY(ONE)
    ADD_TO_PARTY(ONE,MONK,7,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,MONK,7,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,WITCH,6,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,FAIRY,9,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,ARCHER,8,500,ATTACK_ENEMIES,0)

CREATE_PARTY(TWO)
    ADD_TO_PARTY(TWO,THIEF,7,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,ARCHER,8,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,ARCHER,8,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,GIANT,6,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,DWARFA,6,500,ATTACK_ENEMIES,0)

CREATE_PARTY(THREE)
    ADD_TO_PARTY(THREE,MONK,6,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(THREE,WIZARD,7,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(THREE,WIZARD,7,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(THREE,FAIRY,8,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(THREE,FAIRY,8,500,ATTACK_ENEMIES,0)

CREATE_PARTY(LANDLORDS)
    ADD_TO_PARTY(LANDLORDS,AVATAR,10,1500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LANDLORDS,KNIGHT,9,1500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LANDLORDS,KNIGHT,9,1500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LANDLORDS,KNIGHT,9,1500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(LANDLORDS,KNIGHT,9,1500,ATTACK_ENEMIES,0)


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

QUICK_OBJECTIVE(1,"The Grand realm of Byzantium is ripe for our taking, keeper. Your only problem is that you cannot construct certain rooms, as there is no Library available. Invade the small Fortresses to find plans for building rooms. This will be no easy task.",ALL_PLAYERS)

SET_TIMER(PLAYER_GOOD,TIMER1)

IF(PLAYER_GOOD,TIMER1 >= 300)
	QUICK_INFORMATION(2,"You will notice that certain spells have already been given to you, Keeper. Others look like they need to be researched. Surely the enemy has some plans for a Library somewhere.",ALL_PLAYERS)
ENDIF

IF(PLAYER_GOOD,BARBARIAN == 0)
	QUICK_INFORMATION(3,"This group of Barbarians dropped the plans for constucting a Workshop. You can now construct Workshops.",ALL_PLAYERS)
	ROOM_AVAILABLE(PLAYER0,WORKSHOP,1,1)
	SET_FLAG(PLAYER0,FLAG0,1)
ENDIF

IF(PLAYER_GOOD,SAMURAI == 0)
	QUICK_INFORMATION(4,"These powerful Ninja's had the plans for building a Library. Just what we needed. You can now finish researching spells.",ALL_PLAYERS)
	ROOM_AVAILABLE(PLAYER0,RESEARCH,1,1)
	SET_FLAG(PLAYER0,FLAG0,1)
ENDIF

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

IF(PLAYER_GOOD,KNIGHT == 0)
	QUICK_OBJECTIVE(5,"The Lord of the Land and his Champions are prepared for your coming. Teach them a lesson and send thier souls to hell...",-1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,LANDLORDS,-1,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(6,"Byzantium lies in ruin. This realm and it's spoils are yours. Valhalla is so close now I can almost taste it.",ALL_PLAYERS)
			WIN_GAME
		ENDIF
	ENDIF
ENDIF