SET_GENERATE_SPEED(500)

COMPUTER_PLAYER(PLAYER1,0)

MAX_CREATURES(PLAYER0,10)
MAX_CREATURES(PLAYER1,25)

START_MONEY(PLAYER0,30000)
START_MONEY(PLAYER1,10000)

ADD_CREATURE_TO_POOL(DRAGON,10)
ADD_CREATURE_TO_POOL(SORCEROR,10)
ADD_CREATURE_TO_POOL(ORC,10)
ADD_CREATURE_TO_POOL(HELL_HOUND,10)

CREATURE_AVAILABLE(PLAYER1,DRAGON,1,1)
CREATURE_AVAILABLE(PLAYER1,SORCEROR,1,1)
CREATURE_AVAILABLE(PLAYER1,ORC,1,1)
CREATURE_AVAILABLE(PLAYER1,HELL_HOUND,1,1)
CREATURE_AVAILABLE(PLAYER1,VAMPIRE,1,1)

TRAP_AVAILABLE(PLAYER1,ALARM,1,1)

MAGIC_AVAILABLE(PLAYER0,POWER_HEAL_CREATURE,1,1)
MAGIC_AVAILABLE(PLAYER1,POWER_IMP,1,1)
MAGIC_AVAILABLE(PLAYER1,POWER_CALL_TO_ARMS,1,1)
MAGIC_AVAILABLE(PLAYER1,POWER_SPEED,1,1)
MAGIC_AVAILABLE(PLAYER1,POWER_CONCEAL,1,1)
MAGIC_AVAILABLE(PLAYER1,POWER_HEAL_CREATURE,1,1)
MAGIC_AVAILABLE(PLAYER1,POWER_DESTROY_WALLS,1,0)

SET_FLAG(PLAYER0,FLAG0,0)
SET_FLAG(PLAYER0,FLAG1,0)
SET_FLAG(PLAYER0,FLAG2,0)
SET_FLAG(PLAYER0,FLAG3,0)
SET_FLAG(PLAYER0,FLAG4,0)
SET_FLAG(PLAYER0,FLAG5,0)

IF(PLAYER0,SAMURAI <= 0)
    LOSE_GAME
ENDIF

IF(PLAYER_GOOD,DUNGEON_DESTROYED == 1)
    WIN_GAME
ENDIF

REM _a
IF_ACTION_POINT(1,PLAYER0)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,HORNY,2,2,10,0)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,HORNY,3,3,10,0)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,HORNY,4,3,10,0)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,HORNY,5,2,10,0)
ENDIF

REM ې
IF_ACTION_POINT(6,PLAYER0)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,WITCH,7,5,10,0)
ENDIF

REM Back Attack
IF_ACTION_POINT(8,PLAYER0)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,SKELETON,9,4,10,300)
    SET_FLAG(PLAYER0,FLAG1,1)
ENDIF

IF_ACTION_POINT(10,PLAYER0)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,SKELETON,11,4,10,300)
    SET_FLAG(PLAYER0,FLAG2,1)
ENDIF

IF_ACTION_POINT(12,PLAYER0)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,SKELETON,13,4,10,300)
    SET_FLAG(PLAYER0,FLAG3,1)
ENDIF

IF_ACTION_POINT(14,PLAYER0)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,SKELETON,15,4,10,300)
    SET_FLAG(PLAYER0,FLAG4,1)
ENDIF

IF_ACTION_POINT(16,PLAYER0)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,SKELETON,17,4,10,300)
    SET_FLAG(PLAYER0,FLAG5,1)
ENDIF

IF(PLAYER0,FLAG1 == 1)
    IF(PLAYER0,FLAG2 == 1)
        IF(PLAYER0,FLAG3 == 1)
            IF(PLAYER0,FLAG4 == 1)
                IF(PLAYER0,FLAG5 == 1)
                    IF(PLAYER_GOOD,SKELETON <= 0)
                        REM ې΂NN[`𗎂Ƃ->Oi\
                        ADD_CREATURE_TO_LEVEL(PLAYER0,GHOST,18,1,1,0)
                    ENDIF
                ENDIF
            ENDIF
        ENDIF
    ENDIF
ENDIF

REM 
IF(PLAYER1,DUNGEON_DESTROYED == 1)
    ADD_CREATURE_TO_LEVEL(PLAYER0,GHOST,30,1,1,0)
ENDIF

IF_ACTION_POINT(30,PLAYER0)
    ADD_CREATURE_TO_LEVEL(PLAYER0,GHOST,24,1,1,0)
ENDIF

REM O
IF_ACTION_POINT(21,PLAYER0)
    REM ͂
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BILE_DEMON,21,15,4,0)
ENDIF

IF_ACTION_POINT(22,PLAYER0)
    ADD_CREATURE_TO_LEVEL(PLAYER0,GHOST,23,1,1,0)
    ADD_CREATURE_TO_LEVEL(PLAYER0,GHOST,28,1,1,0)
ENDIF

REM 
CREATE_PARTY(HEARTATTACKERS)
    ADD_TO_PARTY(HEARTATTACKERS,KNIGHT,10,0,ATTACK_DUNGEON_HEART,0)
    ADD_TO_PARTY(HEARTATTACKERS,KNIGHT,10,0,ATTACK_DUNGEON_HEART,0)
IF_ACTION_POINT(31,PLAYER0)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,AVATAR,-2,1,10,15000)
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,GIANT,-2,4,10,0)
    ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,HEARTATTACKERS,-1,DUNGEON_HEART,0,10,0)
    SET_FLAG(PLAYER0,FLAG0,1)
ENDIF

IF(PLAYER0,FLAG0 == 1)
    IF(PLAYER_GOOD,AVATAR <= 0)
        REM Ǖӂ𗘗p\ɁBwDHɃANZX\
        MAGIC_AVAILABLE(PLAYER0,POWER_DESTROY_WALLS,1,1)
        SET_FLAG(PLAYER0,FLAG0,2)
    ENDIF
ENDIF
