REM ********************************************
REM
REM Script for Level Mine
REM by Mike Short
REM
REM ********************************************

SET_GENERATE_SPEED(250)
MAX_CREATURES(PLAYER0,34)
START_MONEY(PLAYER0,1010101)

ADD_CREATURE_TO_POOL(AVATAR,110)

CREATURE_AVAILABLE(PLAYER0,AVATAR,1,1)

ROOM_AVAILABLE(PLAYER0,BRIDGE,1,1)

MAGIC_AVAILABLE(PLAYER0,POWER_HOLD_AUDIENCE,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_HEAL_CREATURE,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_DESTROY_WALLS,1,0)

QUICK_OBJECTIVE(1,"YOU'VE COME HERE WITH LITTLE ASSISTANCE, KEEPER. THE BATTLE HAS ALREADY BEGUN, SO DESTROY ALL ENEMIES BUT BE CAREFUL AVATARS MAY APPEAR, THOUGH I'LL GIVE YOU SOMETHING ALONG WITH THE LAIR if you get there.",PLAYER0)

QUICK_INFORMATION(2,"YOU'RE GOING TO BE DESTROYED IF YOUR NOT CAREFUL.")

CREATE_PARTY(PLATE)
    ADD_TO_PARTY(PLATE,WIZARD,7,100,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(PLATE,AVATAR,9,4141,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(PLATE,WITCH,8,0,DEFEND_PARTY,0)

IF_AVAILABLE(PLAYER0,SCAVENGER >= 0)
    ROOM_AVAILABLE(PLAYER0,TORTURE,1,1)
    QUICK_INFORMATION(3,"A SCANVENGER IS YOURS, ALSO WITH THE POWER TO BUILD A TORTURE CHAMBER")
ENDIF

IF(PLAYER_GOOD,DUNGEON_DESTROYED == 1)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PLATE,1,4)
    IF(PLAYER_GOOD,TOTAL_CREATURES == 0)
        ROOM_AVAILABLE(PLAYER0,LAIR,1,1)
    ENDIF
ENDIF

IF(PLAYER_GOOD,TOTAL_CREATURES == 0)
    WIN_GAME
ENDIF

IF(PLAYER0,TOTAL_CREATURES == 0)
    LOSE_GAME
ENDIF

IF(PLAYER0,DUNGEON_DESTROYED == 1)
    LOSE_GAME
ENDIF
