REM Play Level Big orc city

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

SET_GENERATE_SPEED(500)

MAX_CREATURES(PLAYER0,40)
MAX_CREATURES(PLAYER1,40)
MAX_CREATURES(PLAYER2,40)
MAX_CREATURES(PLAYER3,40)

START_MONEY(PLAYER0,10000)
START_MONEY(PLAYER1,9000000)

ALLY_PLAYERS(PLAYER1,PLAYER_GOOD)
ALLY_PLAYERS(PLAYER0,PLAYER1)

REM ********** Available spells **********

MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HAND,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SLAP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HEAL_CREATURE,1,1)

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

IF(PLAYER0,ORC == 0)
    LOSE_GAME
ENDIF

REM ********** Parties **********

CREATE_PARTY(ONE)
    ADD_TO_PARTY(ONE,ARCHER,3,100,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,ARCHER,3,100,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,ARCHER,3,100,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,DWARFA,6,100,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(ONE,GIANT,4,100,ATTACK_ENEMIES,0)

REM ********** Triggers & End game **********

IF_ACTION_POINT(3,PLAYER0)
    ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,4,DUNGEON_HEART,0,1,100)
    ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,5,DUNGEON_HEART,0,1,100)
    ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,6,DUNGEON_HEART,0,1,100)
    ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,7,DUNGEON_HEART,0,1,100)
    ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,4,ACTION_POINT,6,2,100)
    ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,5,ACTION_POINT,7,2,100)
ENDIF

SET_FLAG(PLAYER_GOOD,FLAG0,0)

IF(PLAYER_GOOD,BARBARIAN == 0)
    SET_FLAG(PLAYER_GOOD,FLAG0,1)
ENDIF

IF_ACTION_POINT(1,PLAYER0)
    IF(PLAYER_GOOD,FLAG0 == 0)
        NEXT_COMMAND_REUSABLE
        RESET_ACTION_POINT(1)
    ENDIF
ENDIF

IF_ACTION_POINT(1,PLAYER0)
    IF(PLAYER_GOOD,FLAG0 == 1)
        ADD_CREATURE_TO_LEVEL(PLAYER3,ORC,2,6,1,0)
        IF(PLAYER3,ORC == 0)
            ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BARBARIAN,2,3,9,0)
            SET_TIMER(PLAYER_GOOD,TIMER0)
            IF(PLAYER_GOOD,TIMER0 >= 1000)
                ADD_CREATURE_TO_LEVEL(PLAYER2,DRAGON,-1,26,2,0)
                ADD_CREATURE_TO_LEVEL(PLAYER2,SPIDER,-1,24,8,0)
                ADD_CREATURE_TO_LEVEL(PLAYER2,TENTACLE,-1,20,9,0)
                ADD_CREATURE_TO_LEVEL(PLAYER2,BUG,-1,32,4,0)
                ADD_CREATURE_TO_LEVEL(PLAYER2,FLY,8,14,7,0)
                IF(PLAYER_GOOD,BARBARIAN == 0)
                    WIN_GAME
                ENDIF
            ENDIF
        ENDIF
    ENDIF
ENDIF
