REM ********************************************
REM
REM            Script for Level 33 - Castle Valadir
REM
REM ********************************************
REM Generated using Dungeon Scripter V0.84.
REM Created by Stubbjax.
REM ********************************************

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

SET_GENERATE_SPEED(400)
MAX_CREATURES(PLAYER0,40)
START_MONEY(PLAYER0,1800)

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,BRIDGE,1,1)
ROOM_AVAILABLE(PLAYER0,GUARD_POST,1,0)
ROOM_AVAILABLE(PLAYER0,BARRACKS,1,0)
ROOM_AVAILABLE(PLAYER0,GRAVEYARD,1,0)

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

MAGIC_AVAILABLE(PLAYER0,POWER_SIGHT,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_SPEED,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_OBEY,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_CONCEAL,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_HOLD_AUDIENCE,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_HEAL_CREATURE,1,0)
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,LIGHTNING,1,0)
TRAP_AVAILABLE(PLAYER0,LAVA,1,0)
TRAP_AVAILABLE(PLAYER0,WORD_OF_POWER,1,0)
DOOR_AVAILABLE(PLAYER0,STEEL,1,0)

CREATE_PARTY(ONE)
    ADD_TO_PARTY(ONE,SAMURAI,6,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,SAMURAI,6,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,SAMURAI,6,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,SAMURAI,6,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,SAMURAI,6,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,SAMURAI,6,500,ATTACK_ENEMIES,0)

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

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

QUICK_OBJECTIVE(1,"The inhabitants of this realm have caught you off guard, Master. A vast castle surrounds your dungeon. You have no choice but to venture out and steathily build up your dungeon by claiming the castle as your own. Great cunning and stealth is required here if you want any hope of achieving victory. It may be wise to plan ahead.",PLAYER0)
ENDIF

SET_FLAG(PLAYER0,FLAG0,1)

SET_TIMER(PLAYER_GOOD,TIMER1)
ENDIF

IF(PLAYER_GOOD,TIMER1 >= 350)
QUICK_INFORMATION(4,"Wealth is limited here, Master. You will also find the sight of evil and conceal creature spells particuliar useful here. Use them well. You only have one imp available for the time being until you can claim a Library.",PLAYER0)
ENDIF

IF(PLAYER0,KNIGHT > =1)
QUICK_INFORMATION(5,"A devious Knight has decided to join your cause. Perhaps his combat skills could prove useful. Use him wisely, as he cannot be replaced.",PLAYER0)
ENDIF

IF(PLAYER0,TOTAL_CREATURES  == 2)
QUICK_INFORMATION(6,"You've succeeded in claiming a portal. Now concentrate on training a suitable fighting force. We need preparations for defeating the Lord of this realm to the south of the fortress.",PLAYER0)
ENDIF

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

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

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

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

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

IF(PLAYER0,WORKSHOP > =1)
ROOM_AVAILABLE(PLAYER0,WORKSHOP,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,TEMPLE > =1)
ROOM_AVAILABLE(PLAYER0,TEMPLE,1,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,LANDLORDS,2,1)
SET_FLAG(PLAYER0,FLAG0,1)
QUICK_OBJECTIVE(2,"Finish these pathetic fools, Master. Feed them thier own endtrails. Don't let them gain the upper advantage over you again.",PLAYER0)
ENDIF

IF(PLAYER0,FLAG0 == 1)
   IF(PLAYER_GOOD,DUNGEON_DESTROYED ==1)
      IF(PLAYER_GOOD,TOTAL_CREATURES == 0)
QUICK_OBJECTIVE(3,"I thought you were going to end with your dungeon totally trashed. You certainly have turned the tarbles around by trashing the enemies. Truly a majestic Victory.",PLAYER0)
    WIN_GAME   
   ENDIF
     ENDIF
        ENDIF
