REM SCRIPT FOR LEVEL 216        (Tea-time)

REM ---------BASE------------

SET_GENERATE_SPEED(200)

MAX_CREATURES(PLAYER0,12)

START_MONEY(PLAYER0,50000)

ADD_CREATURE_TO_POOL(BILE_DEMON,2)
ADD_CREATURE_TO_POOL(DARK_MISTRESS,2)
ADD_CREATURE_TO_POOL(DEMONSPAWN,3)
ADD_CREATURE_TO_POOL(SORCEROR,3)
ADD_CREATURE_TO_POOL(SPIDER,2)
ADD_CREATURE_TO_POOL(ORC,5)

CREATURE_AVAILABLE(ALL_PLAYERS,DEMONSPAWN,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,DARK_MISTRESS,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,SORCEROR,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,BILE_DEMON,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,SPIDER,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,ORC,1,1)

ROOM_AVAILABLE(ALL_PLAYERS,GUARD_POST,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,TREASURE,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,RESEARCH,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,WORKSHOP,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,GARDEN,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,LAIR,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,TORTURE,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,TRAINING,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,BARRACKS,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,BRIDGE,1,1)

MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HAND,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_IMP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SLAP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CONCEAL,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_PROTECT,1,0)

REM -------------EVENTS--------------

SET_TIMER(PLAYER0,TIMER0)

IF(PLAYER0,TIMER0 >= 1)
QUICK_OBJECTIVE(1,"Here is a big problem, keeper. The spirit of the knight who keeps the land cursed you. You have about an hour to make a few prayers that you knew before trespassers will come. Of course, the solution remains to kill the poor soul in order to avenge you.",PLAYER0)
ENDIF

IF(PLAYER0,TIMER0 >= 200)
QUICK_INFORMATION(2,"In his greater bliss, the lord of these grounds leaves you nice hourglass size in the bottom right. When the dwarves have reached the heart of your dungeon, something very unpleasant for us will happen... Of course, that you should not influence the course of time... Results would be unpredictable.")
ENDIF

IF(PLAYER0,SORCEROR == 2)
    QUICK_INFORMATION(3,"Your Warlocks are formal. If you'll encounter the lord who cursed you, you will resemble a chicken after reincarnation.")
ENDIF

IF(PLAYER0,TIMER0 >= 2000)
QUICK_INFORMATION(4,"The grounds of the lords are in north. In its forterress of lava, it supervises the whole domain. Its citadel is impregnable, and you have only little time to try something. Best will be to take an small group with you and to seek for a poorly guarded passage.")
ENDIF

REM -------------EVENT--------------

IF(PLAYER_GOOD,DWARFA == 0)
    QUICK_INFORMATION(5,"I had warned you, Keeper; to break the course of time is not an easy thing...")
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,GIANT,1,5,10,0)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,AVATAR,1,1,10,0)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,KNIGHT,1,5,10,0)
ENDIF


IF(PLAYER_GOOD,KNIGHT == 0)
    QUICK_OBJECTIVE(6,"The lord is deposed and the curse is no more... Good work as always.",PLAYER0)
ENDIF

IF_ACTION_POINT(1,PLAYER_GOOD)
    QUICK_OBJECTIVE(7,"Your time has expired, keeper... The curse will fall on you!",PLAYER0)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,GIANT,1,5,10,0)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,AVATAR,1,1,10,0)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,KNIGHT,1,5,10,0)
ENDIF

REM ----------WIN/LOSE---------------

IF(PLAYER0,DUNGEON_DESTROYED == 1)
    LOSE_GAME
ENDIF

IF(PLAYER_GOOD,KNIGHT == 0)
    WIN_GAME
ENDIF
