REM ********************************************
REM
REM            Script for Level 21 - Winters Edge
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,5000)

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(SAMURAI,10)
ADD_CREATURE_TO_POOL(WIZARD,10)
ADD_CREATURE_TO_POOL(FAIRY,10)

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,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,1)

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

MAGIC_AVAILABLE(PLAYER0,POWER_IMP,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_SIGHT,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_OBEY,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_HOLD_AUDIENCE,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_CAVE_IN,1,0)

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

DOOR_AVAILABLE(PLAYER0,STEEL,1,15)

CREATE_PARTY(ONE)
    ADD_TO_PARTY(ONE,BARBARIAN,6,2000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,BARBARIAN,6,2000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,GIANT,7,2000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,GIANT,7,2000,ATTACK_ENEMIES,0)

CREATE_PARTY(TWO)
    ADD_TO_PARTY(TWO,FAIRY,8,2000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,FAIRY,8,2000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,MONK,9,2000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,MONK,9,2000,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)
    ADD_TO_PARTY(LANDLORD,WIZARD,8,2000,ATTACK_ENEMIES,0)
   
REM ****************************************************************************

QUICK_OBJECTIVE(1,"This cold realm sees you going against numerous heroes, Keeper. They have established a vast fortress to the southeast. You need recruits first. Explore the rest of this realm before taking your peers on. You have also been given fifteen iron doors to aid you.",PLAYER0)
ENDIF

SET_FLAG(PLAYER0,FLAG0,1)

SET_TIMER(PLAYER_GOOD,TIMER1)

IF(PLAYER0,TOTAL_CREATURES >= 1)
QUICK_INFORMATION(3,"The portal for gaining recruits is located to the north. However, it's currently guarded by the local do-gooders. Some rebelious heroes who have turned tryant against the Lord of this realm may be be found scattered here to assist you until you manage to claim the portal as your own.",PLAYER0)
ENDIF

IF_ACTION_POINT(1,PLAYER0)
QUICK_INFORMATION(4,"This hero fortress may seem small, Keeper. But it's heavily guarded on the inside by extra guards. Be sure to watch out for a few devious traps that have also been laid inside by the enemy.",PLAYER0)
ENDIF

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

IF_ACTION_POINT(2,PLAYER0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TWO,2,2)
SET_FLAG(PLAYER0,FLAG0,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(PLAYER_GOOD,TIMER1 >= 500)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,LANDLORD,3,1)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,LORDGUARDS,3,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,"You have overcome all resitance in this land. Excellent work, Master. But we still have an endless journey to see through that's only just begun.",PLAYER0)
    WIN_GAME   
   ENDIF
     ENDIF
        ENDIF
