REM ********************************************
REM
REM Script for Level 208
REM Level originated in Japan.
REM
REM ********************************************

START_MONEY(PLAYER0,768)
MAGIC_AVAILABLE(PLAYER0,POWER_HAND,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_SLAP,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_IMP,1,1)
DOOR_AVAILABLE(PLAYER0,STEEL,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,LIGHTNING,1,0)

CREATE_PARTY(BILES1)
    ADD_TO_PARTY(BILES1,BILE_DEMON,7,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(BILES1,BILE_DEMON,5,200,ATTACK_ENEMIES,0)

CREATE_PARTY(BILES2)
    ADD_TO_PARTY(BILES2,BILE_DEMON,10,800,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(BILES2,BILE_DEMON,7,300,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(BILES2,BILE_DEMON,7,300,ATTACK_ENEMIES,0)

CREATE_PARTY(BILES3)
    ADD_TO_PARTY(BILES3,BILE_DEMON,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(BILES3,BILE_DEMON,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(BILES3,BILE_DEMON,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(BILES3,BILE_DEMON,10,500,ATTACK_ENEMIES,0)

CREATE_PARTY(K1)
    ADD_TO_PARTY(K1,DWARFA,8,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(K1,ARCHER,8,200,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(K1,THIEF,8,200,ATTACK_ENEMIES,0)

CREATE_PARTY(K2)
    ADD_TO_PARTY(K2,BARBARIAN,8,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(K2,SAMURAI,8,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(K2,GIANT,8,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(K2,MONK,8,500,ATTACK_ENEMIES,0)

IF_ACTION_POINT(1,PLAYER0)
    SET_TIMER(PLAYER0,TIMER0)
    SET_FLAG(PLAYER0,FLAG0,1)
ENDIF

IF_ACTION_POINT(2,PLAYER0)
    SET_FLAG(PLAYER0,FLAG0,2)
ENDIF

IF(PLAYER0,TIMER0 > 5000)
    IF(PLAYER0,FLAG0 == 1)
        IF(PLAYER0,BILE_DEMON < 3)
            NEXT_COMMAND_REUSABLE
            ADD_PARTY_TO_LEVEL(PLAYER_GOOD,BILES1,-1,1)
        ENDIF
        IF(PLAYER0,BILE_DEMON >= 3)
            IF(PLAYER0,BILE_DEMON < 6)
                NEXT_COMMAND_REUSABLE
                ADD_PARTY_TO_LEVEL(PLAYER_GOOD,BILES2,-1,1)
            ENDIF
        ENDIF
        IF(PLAYER0,BILE_DEMON >= 6)
            NEXT_COMMAND_REUSABLE
            ADD_PARTY_TO_LEVEL(PLAYER_GOOD,BILES3,-1,1)
        ENDIF
    ENDIF
    IF(PLAYER0,FLAG0 == 2)
        ADD_PARTY_TO_LEVEL(PLAYER_GOOD,K1,2,2)
        SET_FLAG(PLAYER0,FLAG0,3)
    ENDIF
    IF(PLAYER0,FLAG0 == 3)
        ADD_PARTY_TO_LEVEL(PLAYER_GOOD,K2,2,2)
        SET_FLAG(PLAYER0,FLAG0,4)
    ENDIF
    IF(PLAYER0,FLAG0 == 4)
        ADD_PARTY_TO_LEVEL(PLAYER_GOOD,K1,2,2)
        ADD_PARTY_TO_LEVEL(PLAYER_GOOD,K2,2,1)
        SET_FLAG(PLAYER0,FLAG0,5)
    ENDIF
    IF(PLAYER0,FLAG0 == 5)
        ADD_PARTY_TO_LEVEL(PLAYER_GOOD,K1,2,1)
        ADD_PARTY_TO_LEVEL(PLAYER_GOOD,K2,2,2)
        SET_FLAG(PLAYER0,FLAG0,6)
    ENDIF
    IF(PLAYER0,FLAG0 == 6)
        ADD_PARTY_TO_LEVEL(PLAYER_GOOD,K1,2,2)
        ADD_PARTY_TO_LEVEL(PLAYER_GOOD,K2,2,2)
        SET_FLAG(PLAYER0,FLAG0,7)
    ENDIF
    IF(PLAYER0,FLAG0 == 7)
        ADD_PARTY_TO_LEVEL(PLAYER_GOOD,K1,2,3)
        ADD_PARTY_TO_LEVEL(PLAYER_GOOD,K2,2,3)
        ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,KNIGHT,2,1,10,10000)
        SET_FLAG(PLAYER0,FLAG0,8)
    ENDIF
    NEXT_COMMAND_REUSABLE
    SET_TIMER(PLAYER0,TIMER0)
ENDIF


IF(PLAYER0,FLAG0 == 8)
    IF(PLAYER_GOOD,KNIGHT == 0)
        WIN_GAME
    ENDIF
ENDIF

IF(PLAYER0,DUNGEON_DESTROYED == 1)
    LOSE_GAME
ENDIF
