REM vandal 9 a/p

SET_GENERATE_SPEED(400)
START_MONEY(ALL_PLAYERS,30000)
MAX_CREATURES(ALL_PLAYERS,20)

ADD_CREATURE_TO_POOL(ORC,8)
CREATURE_AVAILABLE(ALL_PLAYERS,ORC,1,1)

ADD_CREATURE_TO_POOL(BILE_DEMON,8)
CREATURE_AVAILABLE(ALL_PLAYERS,BILE_DEMON,1,1)

ADD_CREATURE_TO_POOL(TENTACLE,6)
IF(PLAYER0,TENTACLE > 0)
    CREATURE_AVAILABLE(ALL_PLAYERS,TENTACLE,1,1)
ENDIF

ADD_CREATURE_TO_POOL(DRAGON,4)
IF(PLAYER0,DRAGON > 0)
    CREATURE_AVAILABLE(ALL_PLAYERS,DRAGON,1,1)
ENDIF

ADD_CREATURE_TO_POOL(DARK_MISTRESS,6)
CREATURE_AVAILABLE(ALL_PLAYERS,DARK_MISTRESS,1,1)

ADD_CREATURE_TO_POOL(SORCEROR,4)
CREATURE_AVAILABLE(ALL_PLAYERS,SORCEROR,1,1)

SET_CREATURE_MAX_LEVEL(PLAYER0,ORC,9)
SET_CREATURE_MAX_LEVEL(PLAYER0,DARK_MISTRESS,9)

ROOM_AVAILABLE(ALL_PLAYERS,GARDEN,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,LAIR,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,TREASURE,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,RESEARCH,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,TRAINING,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,BARRACKS,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,WORKSHOP,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,PRISON,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,TEMPLE,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,TORTURE,1,1)

MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HAND,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SLAP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_IMP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CALL_TO_ARMS,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CHICKEN,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CAVE_IN,1,1)
TRAP_AVAILABLE(ALL_PLAYERS,LIGHTNING,1,0)

DOOR_AVAILABLE(ALL_PLAYERS,MAGIC,1,0)

CREATE_PARTY(VANDAL)
    ADD_TO_PARTY(VANDAL,DWARFA,5,150,ATTACK_ROOMS,0)
    ADD_TO_PARTY(VANDAL,DWARFA,5,150,ATTACK_ROOMS,0)
    ADD_TO_PARTY(VANDAL,DWARFA,5,150,ATTACK_ROOMS,0)
    ADD_TO_PARTY(VANDAL,DWARFA,5,150,ATTACK_ROOMS,0)
CREATE_PARTY(MAGIC)
    ADD_TO_PARTY(MAGIC,WIZARD,6,350,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(MAGIC,ARCHER,5,150,DEFEND_PARTY,0)
    ADD_TO_PARTY(MAGIC,SAMURAI,5,150,DEFEND_PARTY,0)
    ADD_TO_PARTY(MAGIC,MONK,5,150,DEFEND_PARTY,0)
    ADD_TO_PARTY(MAGIC,BARBARIAN,5,150,DEFEND_PARTY,0)
    ADD_TO_PARTY(MAGIC,GIANT,5,150,DEFEND_PARTY,0)
CREATE_PARTY(THUGS)
    ADD_TO_PARTY(THUGS,GIANT,8,950,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(THUGS,BARBARIAN,7,0,DEFEND_PARTY,0)
    ADD_TO_PARTY(THUGS,BARBARIAN,7,0,DEFEND_PARTY,0)
    ADD_TO_PARTY(THUGS,BARBARIAN,7,0,DEFEND_PARTY,0)
    ADD_TO_PARTY(THUGS,MONK,7,0,DEFEND_PARTY,0)
CREATE_PARTY(BITCHES)
    ADD_TO_PARTY(BITCHES,WITCH,5,450,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(BITCHES,FAIRY,4,0,DEFEND_PARTY,0)
    ADD_TO_PARTY(BITCHES,FAIRY,3,0,DEFEND_PARTY,0)
    ADD_TO_PARTY(BITCHES,FAIRY,3,0,DEFEND_PARTY,0)
CREATE_PARTY(BOSS)
    ADD_TO_PARTY(BOSS,KNIGHT,10,10000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(BOSS,BARBARIAN,10,0,DEFEND_PARTY,0)
    ADD_TO_PARTY(BOSS,GIANT,10,0,DEFEND_PARTY,0)
    ADD_TO_PARTY(BOSS,SAMURAI,10,0,DEFEND_PARTY,0)
    ADD_TO_PARTY(BOSS,MONK,10,0,DEFEND_PARTY,0)
    ADD_TO_PARTY(BOSS,WIZARD,10,0,DEFEND_PARTY,0)
    ADD_TO_PARTY(BOSS,FAIRY,10,0,DEFEND_PARTY,0)

ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,ARCHER,1,5,5,0)
ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,ARCHER,4,5,5,0)

ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DWARFA,5,1,3,0)
ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,WITCH,6,1,3,0)
ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,TENTACLE,8,1,3,0)
ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,FAIRY,9,1,3,0)
ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,GIANT,10,1,3,0)
ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DRAGON,11,1,3,0)

IF(PLAYER_GOOD,DWARFA == 0)
    SET_TIMER(PLAYER_GOOD,TIMER1)
ENDIF

IF(PLAYER_GOOD,WITCH == 0)
    SET_TIMER(PLAYER_GOOD,TIMER2)
ENDIF

IF(PLAYER_GOOD,TENTACLE == 0)
    SET_TIMER(PLAYER_GOOD,TIMER3)
ENDIF

IF(PLAYER_GOOD,FAIRY == 0)
    SET_TIMER(PLAYER_GOOD,TIMER4)
ENDIF

IF(PLAYER_GOOD,DRAGON == 0)
    SET_TIMER(PLAYER_GOOD,TIMER5)
ENDIF

IF(PLAYER_GOOD,GIANT == 0)
    SET_TIMER(PLAYER_GOOD,TIMER6)
ENDIF

REM ATTACKS
IF(PLAYER0,ALL_DUNGEONS_DESTROYED == 0)
    IF(PLAYER_GOOD,TIMER1 >= 5300)
        NEXT_COMMAND_REUSABLE
        ADD_PARTY_TO_LEVEL(PLAYER_GOOD,VANDAL,5,1)
        NEXT_COMMAND_REUSABLE
        SET_TIMER(PLAYER_GOOD,TIMER1)
    ENDIF
ENDIF
IF(PLAYER0,ALL_DUNGEONS_DESTROYED == 0)
    IF(PLAYER_GOOD,TIMER2 >= 5700)
        NEXT_COMMAND_REUSABLE
        ADD_PARTY_TO_LEVEL(PLAYER_GOOD,VANDAL,6,1)
        NEXT_COMMAND_REUSABLE
        SET_TIMER(PLAYER_GOOD,TIMER2)
    ENDIF
ENDIF
IF(PLAYER0,ALL_DUNGEONS_DESTROYED == 0)
    IF(PLAYER_GOOD,TIMER3 >= 8300)
        NEXT_COMMAND_REUSABLE
        ADD_PARTY_TO_LEVEL(PLAYER_GOOD,MAGIC,8,1)
        NEXT_COMMAND_REUSABLE
        SET_TIMER(PLAYER_GOOD,TIMER3)
    ENDIF
ENDIF
IF(PLAYER0,ALL_DUNGEONS_DESTROYED == 0)
    IF(PLAYER_GOOD,TIMER4 >= 5500)
        NEXT_COMMAND_REUSABLE
        ADD_PARTY_TO_LEVEL(PLAYER_GOOD,BITCHES,9,1)
        NEXT_COMMAND_REUSABLE
        SET_TIMER(PLAYER_GOOD,TIMER4)
    ENDIF
ENDIF

IF(PLAYER0,ALL_DUNGEONS_DESTROYED == 0)
    IF(PLAYER_GOOD,TIMER5 >= 7200)
        NEXT_COMMAND_REUSABLE
        ADD_PARTY_TO_LEVEL(PLAYER_GOOD,VANDAL,10,1)
        NEXT_COMMAND_REUSABLE
        SET_TIMER(PLAYER_GOOD,TIMER5)
    ENDIF
ENDIF

IF(PLAYER0,ALL_DUNGEONS_DESTROYED == 0)
    IF(PLAYER_GOOD,TIMER6 >= 7600)
        NEXT_COMMAND_REUSABLE
        ADD_PARTY_TO_LEVEL(PLAYER_GOOD,VANDAL,9,1)
        NEXT_COMMAND_REUSABLE
        SET_TIMER(PLAYER_GOOD,TIMER6)
    ENDIF
ENDIF

IF(PLAYER_GOOD,BATTLES_LOST >= 50)
    ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,THUGS,7,DUNGEON,0,5,500)
ENDIF
IF(PLAYER_GOOD,DUNGEON_DESTROYED == 1)
    IF(PLAYER_GOOD,TOTAL_CREATURES < 6)
        ADD_PARTY_TO_LEVEL(PLAYER_GOOD,BOSS,2,1)
        ADD_PARTY_TO_LEVEL(PLAYER_GOOD,THUGS,3,1)
        ADD_PARTY_TO_LEVEL(PLAYER_GOOD,BITCHES,5,2)
        ADD_PARTY_TO_LEVEL(PLAYER_GOOD,BITCHES,6,2)
        ADD_PARTY_TO_LEVEL(PLAYER_GOOD,MAGIC,8,1)
        ADD_PARTY_TO_LEVEL(PLAYER_GOOD,MAGIC,9,1)
        ADD_PARTY_TO_LEVEL(PLAYER_GOOD,VANDAL,9,2)
        ADD_PARTY_TO_LEVEL(PLAYER_GOOD,VANDAL,10,2)
    ENDIF
ENDIF
IF(PLAYER0,ALL_DUNGEONS_DESTROYED == 1)
    IF(PLAYER_GOOD,TOTAL_CREATURES == 0)
        ROOM_AVAILABLE(ALL_PLAYERS,BRIDGE,1,1)
        WIN_GAME
    ENDIF
ENDIF
