REM ********************************************
REM
REM Script for Level 210
REM
REM ********************************************


ALLY_PLAYERS(PLAYER2,PLAYER1)

SET_GENERATE_SPEED(400)

MAX_CREATURES(PLAYER0,20)
MAX_CREATURES(PLAYER1,15)
MAX_CREATURES(PLAYER2,15)


COMPUTER_PLAYER(PLAYER1,5)
COMPUTER_PLAYER(PLAYER2,5)


START_MONEY(ALL_PLAYERS,15000)

ADD_CREATURE_TO_POOL(BILE_DEMON,20)
ADD_CREATURE_TO_POOL(DRAGON,20)
ADD_CREATURE_TO_POOL(DARK_MISTRESS,20)
ADD_CREATURE_TO_POOL(HELL_HOUND,20)
ADD_CREATURE_TO_POOL(TENTACLE,20)
ADD_CREATURE_TO_POOL(DEMONSPAWN,20)
ADD_CREATURE_TO_POOL(SORCEROR,20)
ADD_CREATURE_TO_POOL(TROLL,20)
ADD_CREATURE_TO_POOL(SPIDER,20)
ADD_CREATURE_TO_POOL(BUG,20)
ADD_CREATURE_TO_POOL(FLY,20)
ADD_CREATURE_TO_POOL(ORC,20)
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(MONK,20)
ADD_CREATURE_TO_POOL(DWARFA,20)
ADD_CREATURE_TO_POOL(KNIGHT,20)
ADD_CREATURE_TO_POOL(WITCH,20)
ADD_CREATURE_TO_POOL(GIANT,20)
ADD_CREATURE_TO_POOL(FAIRY,20)
ADD_CREATURE_TO_POOL(FLY,20)
ADD_CREATURE_TO_POOL(THIEF,20)
ADD_CREATURE_TO_POOL(SAMURAI,20)

CREATURE_AVAILABLE(PLAYER2,TROLL,1,1)
CREATURE_AVAILABLE(PLAYER2,TENTACLE,1,1)
CREATURE_AVAILABLE(PLAYER2,DEMONSPAWN,1,1)
CREATURE_AVAILABLE(PLAYER2,FLY,1,1)
CREATURE_AVAILABLE(PLAYER2,DARK_MISTRESS,1,1)
CREATURE_AVAILABLE(PLAYER2,SORCEROR,1,1)
CREATURE_AVAILABLE(PLAYER2,BILE_DEMON,1,1)
CREATURE_AVAILABLE(PLAYER2,BUG,1,1)
CREATURE_AVAILABLE(PLAYER2,SPIDER,1,1)
CREATURE_AVAILABLE(PLAYER2,HELL_HOUND,1,1)
CREATURE_AVAILABLE(PLAYER2,DRAGON,1,1)
CREATURE_AVAILABLE(PLAYER2,ORC,1,1)

CREATURE_AVAILABLE(PLAYER1,TROLL,1,1)
CREATURE_AVAILABLE(PLAYER1,TENTACLE,1,1)
CREATURE_AVAILABLE(PLAYER1,DEMONSPAWN,1,1)
CREATURE_AVAILABLE(PLAYER1,FLY,1,1)
CREATURE_AVAILABLE(PLAYER1,DARK_MISTRESS,1,1)
CREATURE_AVAILABLE(PLAYER1,SORCEROR,1,1)
CREATURE_AVAILABLE(PLAYER1,BILE_DEMON,1,1)
CREATURE_AVAILABLE(PLAYER1,BUG,1,1)
CREATURE_AVAILABLE(PLAYER1,SPIDER,1,1)
CREATURE_AVAILABLE(PLAYER1,HELL_HOUND,1,1)
CREATURE_AVAILABLE(PLAYER1,DRAGON,1,1)
CREATURE_AVAILABLE(PLAYER1,ORC,1,1)

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,GRAVEYARD,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,PRISON,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,TORTURE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,TRAINING,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,SCAVENGER,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,BARRACKS,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,TEMPLE,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_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CAVE_IN,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HOLD_AUDIENCE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CHICKEN,0,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)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_PROTECT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_DISEASE,0,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_DESTROY_WALLS,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_ARMAGEDDON,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,BOULDER,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,MAGIC,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,LIGHTNING,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,WORD_OF_POWER,1,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,BARRACKS >= 1)
    IF(PLAYER0,TRAINING >= 25)
        CREATURE_AVAILABLE(PLAYER0,KNIGHT,1,1)
    ENDIF
ENDIF


IF(PLAYER0,TEMPLE >= 9)
    IF(PLAYER0,GRAVEYARD >= 1)
        CREATURE_AVAILABLE(PLAYER0,MONK,1,1)
    ENDIF
ENDIF

IF(PLAYER0,TORTURE >= 9)
    CREATURE_AVAILABLE(PLAYER0,SAMURAI,1,1)
ENDIF


IF(PLAYER0,SCAVENGER >= 9)
    CREATURE_AVAILABLE(PLAYER0,WITCH,1,1)
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,TEMPLE < 9)
    IF(PLAYER0,GRAVEYARD < 1)
        NEXT_COMMAND_REUSABLE
        CREATURE_AVAILABLE(PLAYER0,MONK,0,0)
    ENDIF
ENDIF

IF(PLAYER0,TORTURE < 9)
    NEXT_COMMAND_REUSABLE
    CREATURE_AVAILABLE(PLAYER0,SAMURAI,0,0)
ENDIF


IF(PLAYER0,SCAVENGER < 9)
    NEXT_COMMAND_REUSABLE
    CREATURE_AVAILABLE(PLAYER0,WITCH,0,0)
ENDIF


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

IF(PLAYER0,GAME_TURN > 20)
    DISPLAY_OBJECTIVE(60,ALL_PLAYERS)
REM QUICK_OBJECTIVE(1,"It looks like these keepers saw what happened last time. They have decided to ally against you. There is not much gold, so you must capture the centre gems and starve your enemies out! Traps are a good idea on this level, to prevent coridor rushing!",PLAYER0)
ENDIF


IF(PLAYER0,ALL_DUNGEONS_DESTROYED == 1)
    WIN_GAME
    DISPLAY_OBJECTIVE(61,ALL_PLAYERS)
REM    QUICK_OBJECTIVE(2,"Well that was easy, wasnt it! I hear the evil keepers in the next realm are not such a push over",PLAYER0)
ENDIF

IF(PLAYER0,WITCH == 1)
    DISPLAY_INFORMATION(62,ALL_PLAYERS)
    REM QUICK_INFORMATION(3,"You have a witch! They are full of powerful spells!")
ENDIF

IF_AVAILABLE(PLAYER0,SCAVENGER >= 1)
    DISPLAY_INFORMATION(63,ALL_PLAYERS)
    REM QUICK_INFORMATION(4,"The scavenger room has been discovered. When combined with the torture chamber, you can first convert 1 enemy, and then take them all!")
ENDIF
