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,"Voila un bien gros probleme gardien. L'esprit du chevalier qui garde ces terres vous a maudit. Vous avez environ une heure pour faire les quelques prieres que vous connaissaient avant de trepasser. Bien sur, il reste la solution de tuer cette pauvre ame afin de vous venger.",PLAYER0)
ENDIF

IF(PLAYER0,TIMER0 >= 200)
QUICK_INFORMATION(2,"Dans sa plus grande beatitude, le seigneur de ces terres vous  laisse un jolie sablier grandeur nature en bas  droite. Lorsque les nains auront atteind votre coeur de donjon, il se passera quelque chose de tres desagreable pour nous... Il va de soit, que vous ne devez pas influencer le cours du temps...Sans quoi il pourrai se passer quelque chose d'imprevisible.")
ENDIF

IF(PLAYER0,SORCEROR == 2)
    QUICK_INFORMATION(3,"Vos sorciers sont formels. Si vous occisez le seigneur qui vous a maudit, vous ne ressemblerez pas a un poulet a votre reincarnation.")
ENDIF

IF(PLAYER0,TIMER0 >= 2000)
QUICK_INFORMATION(4,"Les terres du seigneurs sont au nord. Dans sa forterresse de lave, il surveille l'ensemble du dommaine. sa citadelle est imprenable, et vous n'avez que peu de temps pour tenter quelque chose. Le mieux serai de prendre un petit groupe avec vous et de chercher un passage peu surveille")
ENDIF

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

IF(PLAYER_GOOD,DWARFA == 0)
    QUICK_INFORMATION(5,"Je vous avais prevenu Gardien, rompre le cours du temps n'est pas une bonne chose...")
    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,"Le seigneur est dechu et la malediction est leve...Bon travail comme toujours.",PLAYER0)
ENDIF

IF_ACTION_POINT(1,PLAYER_GOOD)
    QUICK_OBJECTIVE(7,"Votre temps est ecoule Gardien... La malediction doit s'abattre sur vous!",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
