REM ********************************************
REM
REM Script for Level 211
REM Author: Mike Short
REM
REM ********************************************

SET_GENERATE_SPEED(100)

COMPUTER_PLAYER(PLAYER1,0)
COMPUTER_PLAYER(PLAYER2,1)
COMPUTER_PLAYER(PLAYER3,2)

MAX_CREATURES(PLAYER0,50)
MAX_CREATURES(PLAYER1,35)
MAX_CREATURES(PLAYER2,40)
MAX_CREATURES(PLAYER3,5)

START_MONEY(PLAYER0,1000000)
START_MONEY(PLAYER1,100000)
START_MONEY(PLAYER2,120000)
START_MONEY(PLAYER3,13000)

ADD_CREATURE_TO_POOL(DRAGON,12)
ADD_CREATURE_TO_POOL(HORNY,24)
ADD_CREATURE_TO_POOL(ARCHER,10)
ADD_CREATURE_TO_POOL(IMP,35)

CREATURE_AVAILABLE(ALL_PLAYERS,DRAGON,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,HORNY,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,ARCHER,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,IMP,1,1)

ROOM_AVAILABLE(ALL_PLAYERS,TREASURE,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,LAIR,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,GARDEN,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,TRAINING,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,RESEARCH,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,BRIDGE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,GUARD_POST,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,WORKSHOP,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,PRISON,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,TORTURE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,BARRACKS,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,TEMPLE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,GRAVEYARD,1,0)
ROOM_AVAILABLE(PLAYER0,SCAVENGER,1,0)

MAGIC_AVAILABLE(ALL_PLAYERS,POWER_IMP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_OBEY,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SIGHT,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CALL_TO_ARMS,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HEAL_CREATURE,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HOLD_AUDIENCE,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_LIGHTNING,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_PROTECT,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CONCEAL,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_DISEASE,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_ARMAGEDDON,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_CHICKEN,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_DESTROY_WALLS,1,1)

DOOR_AVAILABLE(ALL_PLAYERS,WOOD,1,10)
DOOR_AVAILABLE(ALL_PLAYERS,BRACED,1,10)
DOOR_AVAILABLE(ALL_PLAYERS,STEEL,1,5)
DOOR_AVAILABLE(ALL_PLAYERS,MAGIC,1,2)

TRAP_AVAILABLE(ALL_PLAYERS,BOULDER,1,1)
TRAP_AVAILABLE(ALL_PLAYERS,POISON_GAS,1,1)
TRAP_AVAILABLE(ALL_PLAYERS,LAVA,1,1)
TRAP_AVAILABLE(ALL_PLAYERS,LIGHTNING,1,1)

CREATE_PARTY(P1)
    ADD_TO_PARTY(P1,HORNY,5,60000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(P1,MONK,10,75000,DEFEND_PARTY,0)
    ADD_TO_PARTY(P1,WIZARD,7,60000,ATTACK_ENEMIES,0)

CREATE_PARTY(P2)
    ADD_TO_PARTY(P2,WIZARD,7,30000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(P2,WIZARD,8,35000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(P2,WIZARD,9,350000,ATTACK_ENEMIES,0)

CREATE_PARTY(P3)
    ADD_TO_PARTY(P3,KNIGHT,10,900000,DEFEND_PARTY,0)
    ADD_TO_PARTY(P3,KNIGHT,7,909090,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(P3,AVATAR,7,0,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(P3,THIEF,7,1000,STEAL_SPELLS,0)

IF_ACTION_POINT(3,PLAYER0)
    
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,P1,3,4)
ENDIF

IF(PLAYER_GOOD,DUNGEON_DESTROYED == 1)
    
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,P2,5,2)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,P3,2,3)
    ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER0,P3,2,ACTION_POINT,3,10,10)
    
    IF(PLAYER0,ALL_DUNGEONS_DESTROYED == 1)
        WIN_GAME
    ENDIF
    
    IF(PLAYER0,DUNGEON_DESTROYED == 1)
        LOSE_GAME
    ENDIF
