REM ********************************************
REM
REM Script for Level 207
REM
REM ********************************************

SET_GENERATE_SPEED(400)

MAX_CREATURES(PLAYER0,15)

ADD_CREATURE_TO_POOL(TUNNELLER,20)
ADD_CREATURE_TO_POOL(WIZARD,20)
ADD_CREATURE_TO_POOL(BARBARIAN,20)
ADD_CREATURE_TO_POOL(ARCHER,20)
ADD_CREATURE_TO_POOL(DWARFA,20)
ADD_CREATURE_TO_POOL(GIANT,20)
ADD_CREATURE_TO_POOL(FAIRY,20)
ADD_CREATURE_TO_POOL(THIEF,20)


CREATURE_AVAILABLE(PLAYER0,THIEF,1,1)
CREATURE_AVAILABLE(PLAYER0,DWARFA,1,1)
CREATURE_AVAILABLE(PLAYER0,TUNNELLER,1,1)

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


MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HAND,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_OBEY,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_IMP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SLAP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SIGHT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_LIGHTNING,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CONCEAL,1,0)


DOOR_AVAILABLE(ALL_PLAYERS,WOOD,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,ALARM,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,BRACED,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,POISON_GAS,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,LAVA,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,STEEL,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,LIGHTNING,1,0)

CREATE_PARTY(GHOST)

    ADD_TO_PARTY(GHOST,GHOST,7,0,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(GHOST,GHOST,8,0,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(GHOST,GHOST,7,0,ATTACK_ENEMIES,0)

CREATE_PARTY(SKELETON)

    ADD_TO_PARTY(SKELETON,SKELETON,7,0,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(SKELETON,SKELETON,8,0,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(SKELETON,SKELETON,7,0,ATTACK_ENEMIES,0)

IF(PLAYER0,WORKSHOP >= 1)
    CREATURE_AVAILABLE(PLAYER0,ARCHER,1,1)
ENDIF

IF(PLAYER0,TRAINING >= 1)
    CREATURE_AVAILABLE(PLAYER0,BARBARIAN,1,1)
ENDIF

IF(PLAYER0,RESEARCH >= 9)
    CREATURE_AVAILABLE(PLAYER0,FAIRY,1,1)
ENDIF


IF(PLAYER0,LAIR >= 25)
    IF(PLAYER0,GARDEN >= 25)
        CREATURE_AVAILABLE(PLAYER0,GIANT,1,1)
    ENDIF
ENDIF




IF(PLAYER0,RESEARCH >= 25)
    CREATURE_AVAILABLE(PLAYER0,WIZARD,1,1)
ENDIF

IF(PLAYER0,WORKSHOP < 1)
    NEXT_COMMAND_REUSABLE
    CREATURE_AVAILABLE(PLAYER0,ARCHER,0,0)
ENDIF

IF(PLAYER0,TRAINING < 1)
    NEXT_COMMAND_REUSABLE
    CREATURE_AVAILABLE(PLAYER0,BARBARIAN,0,0)
ENDIF

IF(PLAYER0,RESEARCH < 9)
    NEXT_COMMAND_REUSABLE
    CREATURE_AVAILABLE(PLAYER0,FAIRY,0,0)
ENDIF


IF(PLAYER0,LAIR < 25)
    IF(PLAYER0,GARDEN < 25)
        NEXT_COMMAND_REUSABLE
        CREATURE_AVAILABLE(PLAYER0,GIANT,0,0)
    ENDIF
ENDIF


IF(PLAYER0,BARRACKS < 1)
    IF(PLAYER0,TRAINING < 25)
        NEXT_COMMAND_REUSABLE
        CREATURE_AVAILABLE(PLAYER0,KNIGHT,0,0)
    ENDIF
ENDIF


IF(PLAYER0,RESEARCH < 25)
    NEXT_COMMAND_REUSABLE
    CREATURE_AVAILABLE(PLAYER0,WIZARD,0,0)
ENDIF

IF(PLAYER0,GAME_TURN > 25)
    DISPLAY_OBJECTIVE(30,ALL_PLAYERS)
REM QUICK_OBJECTIVE(1,"All you have is one thief. You must use brains, courage and skill to pass the initial test, and then you must vanquish the evil Warlocks that keep you enslaved, and destroy the evil keeper once and for all!",PLAYER0)
ENDIF



IF(PLAYER_GOOD,SORCEROR == 2)
    DISPLAY_INFORMATION(31,ALL_PLAYERS)
    REM QUICK_INFORMATION(2,"The first warlock is dead! Use the limitless gold to build up enough force to take the rest of the dungeon!")
ENDIF

IF(PLAYER_GOOD,SORCEROR == 1)
    DISPLAY_INFORMATION(32,ALL_PLAYERS)
    REM QUICK_INFORMATION(3,"You have killed the second warlock! Only 1 stands in your way!")
ENDIF


IF(PLAYER_GOOD,SORCEROR == 0)
    DISPLAY_INFORMATION(33,ALL_PLAYERS)
    REM QUICK_INFORMATION(4,"You have killed all the warlocks! Destroy the dungeon heart!")
ENDIF

IF_ACTION_POINT(1,PLAYER0)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,GHOST,1,2)
ENDIF

IF_ACTION_POINT(2,PLAYER0)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,SKELETON,2,1)
ENDIF

IF(PLAYER0,ALL_DUNGEONS_DESTROYED == 1)
    WIN_GAME
ENDIF
