REM Play Level Moria

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

SET_GENERATE_SPEED(200)

MAX_CREATURES(PLAYER0,40)

START_MONEY(PLAYER0,0)

ALLY_PLAYERS(PLAYER0,PLAYER1)

COMPUTER_PLAYER(PLAYER_GOOD,0)

CREATURE_AVAILABLE(PLAYER0,ORC,1,1)
CREATURE_AVAILABLE(PLAYER0,TROLL,1,1)
CREATURE_AVAILABLE(PLAYER0,DEMONSPAWN,1,1)
CREATURE_AVAILABLE(PLAYER0,BILE_DEMON,1,1)

REM ********** Game settings **********

IF(PLAYER0,DUNGEON_DESTROYED == 1)
    LOSE_GAME
ENDIF
IF(PLAYER_GOOD,TOTAL_CREATURES == 0)
    WIN_GAME
ENDIF

CREATE_PARTY(ONE)
    ADD_TO_PARTY(ONE,KNIGHT,10,0,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,KNIGHT,9,0,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,WIZARD,10,0,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,BARBARIAN,10,0,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,ARCHER,10,0,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,DWARFA,10,0,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,DWARFA,10,0,ATTACK_ENEMIES,0)

ADD_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,1,1)
ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DWARFA,1,2,10,0)

IF(PLAYER1,GHOST == 3)
    ADD_CREATURE_TO_LEVEL(PLAYER1,BILE_DEMON,2,2,10,0)
    ADD_CREATURE_TO_LEVEL(PLAYER0,TROLL,2,5,10,0)
    ADD_CREATURE_TO_LEVEL(PLAYER0,TROLL,2,6,8,0)
    ADD_CREATURE_TO_LEVEL(PLAYER0,ORC,2,8,8,0)
    ADD_CREATURE_TO_LEVEL(PLAYER0,ORC,2,4,9,0)
    ADD_CREATURE_TO_LEVEL(PLAYER0,ORC,2,1,10,0)
    ADD_CREATURE_TO_LEVEL(PLAYER0,DEMONSPAWN,2,3,6,0)
ENDIF

IF(PLAYER1,GHOST == 2)
    SET_TIMER(PLAYER0,TIMER0)
    SET_TIMER(PLAYER0,TIMER1)
    SET_TIMER(PLAYER0,TIMER2)
    SET_TIMER(PLAYER0,TIMER3)
ENDIF

IF(PLAYER0,TIMER0 >= 3)
    IF(PLAYER1,TOTAL_CREATURES < 45)
        IF(PLAYER1,BATTLES_LOST < 400)
            NEXT_COMMAND_REUSABLE
            ADD_CREATURE_TO_LEVEL(PLAYER1,DEMONSPAWN,-1,2,4,0)
            NEXT_COMMAND_REUSABLE
            ADD_CREATURE_TO_LEVEL(PLAYER1,DEMONSPAWN,-1,1,5,0)
            NEXT_COMMAND_REUSABLE
            SET_TIMER(PLAYER0,TIMER0)
        ENDIF
    ENDIF
ENDIF

IF(PLAYER0,TIMER1 >= 4)
    IF(PLAYER1,TOTAL_CREATURES < 45)
        IF(PLAYER1,BATTLES_LOST < 400)
            NEXT_COMMAND_REUSABLE
            ADD_CREATURE_TO_LEVEL(PLAYER1,ORC,-2,1,8,0)
            NEXT_COMMAND_REUSABLE
            ADD_CREATURE_TO_LEVEL(PLAYER1,TROLL,-2,1,4,0)
            NEXT_COMMAND_REUSABLE
            SET_TIMER(PLAYER0,TIMER1)
        ENDIF
    ENDIF
ENDIF

IF(PLAYER0,TIMER2 >= 5)
    IF(PLAYER1,TOTAL_CREATURES < 45)
        IF(PLAYER1,BATTLES_LOST < 400)
            NEXT_COMMAND_REUSABLE
            ADD_CREATURE_TO_LEVEL(PLAYER1,TROLL,-3,1,4,0)
            NEXT_COMMAND_REUSABLE
            ADD_CREATURE_TO_LEVEL(PLAYER1,DEMONSPAWN,-3,2,4,0)
            NEXT_COMMAND_REUSABLE
            SET_TIMER(PLAYER0,TIMER2)
        ENDIF
    ENDIF
ENDIF

IF(PLAYER0,TIMER3 >= 4)
    IF(PLAYER1,TOTAL_CREATURES < 45)
        IF(PLAYER1,BATTLES_LOST < 400)
            NEXT_COMMAND_REUSABLE
            ADD_CREATURE_TO_LEVEL(PLAYER1,DEMONSPAWN,-4,1,5,0)
            NEXT_COMMAND_REUSABLE
            ADD_CREATURE_TO_LEVEL(PLAYER1,ORC,-4,1,8,0)
            NEXT_COMMAND_REUSABLE
            SET_TIMER(PLAYER0,TIMER3)
        ENDIF
    ENDIF
ENDIF

IF(PLAYER1,GHOST == 1)
    ADD_CREATURE_TO_LEVEL(PLAYER0,BILE_DEMON,5,4,9,0)
    ADD_CREATURE_TO_LEVEL(PLAYER0,TROLL,5,7,9,0)
    ADD_CREATURE_TO_LEVEL(PLAYER0,ORC,5,12,10,0)
ENDIF

IF(PLAYER1,GHOST == 0)
    ADD_CREATURE_TO_LEVEL(PLAYER0,TROLL,4,5,7,0)
    ADD_CREATURE_TO_LEVEL(PLAYER0,TROLL,4,2,4,0)
    ADD_CREATURE_TO_LEVEL(PLAYER0,TROLL,4,3,2,0)
    IF(PLAYER_GOOD,BATTLES_WON >= 575)
        ADD_CREATURE_TO_LEVEL(PLAYER3,DRAGON,3,1,10,0)
    ENDIF
ENDIF
