REM ********************************************
REM
REM Script for Level 208
REM
REM ********************************************


SET_GENERATE_SPEED(400)

MAX_CREATURES(PLAYER1,15)
MAX_CREATURES(PLAYER0,15)

COMPUTER_PLAYER(PLAYER1,3)

START_MONEY(PLAYER0,15000)
START_MONEY(PLAYER1,1500)

CREATURE_AVAILABLE(PLAYER1,TROLL,1,1)
CREATURE_AVAILABLE(PLAYER1,DEMONSPAWN,1,1)
CREATURE_AVAILABLE(PLAYER1,FLY,1,1)
CREATURE_AVAILABLE(PLAYER1,SORCEROR,1,1)
CREATURE_AVAILABLE(PLAYER1,BUG,1,1)
CREATURE_AVAILABLE(PLAYER1,SPIDER,1,1)
CREATURE_AVAILABLE(PLAYER1,BILE_DEMON,1,1)

ADD_CREATURE_TO_POOL(BUG,20)
ADD_CREATURE_TO_POOL(FLY,20)
ADD_CREATURE_TO_POOL(DEMONSPAWN,20)
ADD_CREATURE_TO_POOL(SORCEROR,30)
ADD_CREATURE_TO_POOL(TROLL,20)
ADD_CREATURE_TO_POOL(SPIDER,20)
ADD_CREATURE_TO_POOL(BILE_DEMON,10)
ADD_CREATURE_TO_POOL(ORC,10)



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(GIANT,20)
ADD_CREATURE_TO_POOL(FAIRY,20)
ADD_CREATURE_TO_POOL(THIEF,20)
ADD_CREATURE_TO_POOL(SAMURAI,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,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,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)


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)


SET_TIMER(PLAYER0,TIMER0)

CREATE_PARTY(ATTACK)

    ADD_TO_PARTY(ATTACK,SORCEROR,6,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(ATTACK,DARK_MISTRESS,7,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(ATTACK,DRAGON,4,0,ATTACK_DUNGEON_HEART,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,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,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,RESEARCH < 25)
    NEXT_COMMAND_REUSABLE
    CREATURE_AVAILABLE(PLAYER0,WIZARD,0,0)
ENDIF

IF(PLAYER0,GAME_TURN > 20)
    DISPLAY_OBJECTIVE(40,ALL_PLAYERS)
REM QUICK_OBJECTIVE(1,"We have stumbled across a land with no accsessable portals. You also have the torture chamber and prison available, you know what to do! Persuade some people to join you, and torture the rest!",PLAYER0)
ENDIF

IF(PLAYER0,GAME_TURN > 200)
    DISPLAY_INFORMATION(41,ALL_PLAYERS)
    REM QUICK_INFORMATION(2,"There is a band of heros that have joined the enemy under the lead of Ug the Barbarian! Convert them all!")
ENDIF


IF(PLAYER0,ALL_DUNGEONS_DESTROYED == 1)
    WIN_GAME
ENDIF
