REM PLAY Level Hell-Mines
REM Level by Tom

REM ******* Basic settings *******

SET_GENERATE_SPEED(500)
MAX_CREATURES(PLAYER0,10)
START_MONEY(PLAYER0,100000)

REM ********** Available rooms **********

ROOM_AVAILABLE(ALL_PLAYERS,TREASURE,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,LAIR,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,BRIDGE,1,1)

REM ********** Party's **********

CREATE_PARTY(ONE)
    ADD_TO_PARTY(ONE,SKELETON,10,5,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,SKELETON,10,5,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,SKELETON,10,5,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,SKELETON,10,5,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,SKELETON,10,5,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,SKELETON,10,5,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,SKELETON,10,5,ATTACK_ENEMIES,0)

CREATE_PARTY(TWO)
    ADD_TO_PARTY(TWO,SKELETON,10,5,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,SKELETON,10,5,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,SKELETON,10,5,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,SKELETON,10,5,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,SKELETON,10,5,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,SKELETON,10,5,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(TWO,SKELETON,10,5,ATTACK_ENEMIES,0)

CREATE_PARTY(THREE)
    ADD_TO_PARTY(THREE,SKELETON,10,5,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(THREE,SKELETON,10,5,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(THREE,SKELETON,10,5,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(THREE,SKELETON,10,5,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(THREE,SKELETON,10,5,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(THREE,SKELETON,10,5,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(THREE,SKELETON,10,5,ATTACK_ENEMIES,0)

CREATE_PARTY(FOUR)
    ADD_TO_PARTY(FOUR,KNIGHT,10,30000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(FOUR,KNIGHT,10,30000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(FOUR,KNIGHT,10,30000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(FOUR,KNIGHT,10,30000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(FOUR,KNIGHT,10,30000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(FOUR,KNIGHT,10,30000,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(FOUR,KNIGHT,10,30000,ATTACK_ENEMIES,0)



REM ********** settings **********



IF(PLAYER0,DUNGEON_DESTROYED == 1)
    LOSE_GAME
ENDIF


IF(PLAYER_GOOD,TOTAL_CREATURES == 0)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,FOUR,-1,1)
    IF(PLAYER_GOOD,KNIGHT == 0)
        WIN_GAME
    ENDIF
ENDIF


REM ********** Action points **********

IF_ACTION_POINT(1,PLAYER0)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,2,1)
ENDIF

IF_ACTION_POINT(3,PLAYER0)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TWO,4,1)
ENDIF

IF_ACTION_POINT(5,PLAYER0)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,THREE,6,1)
ENDIF
