REM *********************************************************
REM             Script for Level 2011.֮
REM *********************************************************             
REM             ͼߣ ʼٸ
REM                  QQ331672578
REM  ӭ1128460424³ػ - Dungeon KeeperȺ
REM *********************************************************
REM ͼĴο飺

REM 1Ҫĩ,ֹ
     
REM 2ʼԱһɱȫȳ˺󣬸ʾͨϳɻԡ

REM 3ռ첢·ĸԵõǽ

REM ***********************************************************************
REM ޸ݼBUG

REM 1ȥﷱֳ
     
REM 2·ĸĶǷΧȷܹ

REM 3ļĵҵ˺Խ

REM 4ֻ

REM ***********************************************************************

LEVEL_VERSION(1)
SET_GENERATE_SPEED(400)

SET_CREATURE_HEALTH(HORNY,7895)

SET_CREATURE_STRENGTH(HORNY,255

SET_CREATURE_ARMOUR(HORNY,255 

SET_CREATURE_HEALTH(HELL_HOUND,1500)
SET_CREATURE_STRENGTH(HELL_HOUND,255
SET_CREATURE_ARMOUR(HELL_HOUND,150

MAX_CREATURES(PLAYER0,20)
MAX_CREATURES(PLAYER1,30)
MAX_CREATURES(PLAYER2,30)
MAX_CREATURES(PLAYER2,30)

COMPUTER_PLAYER(PLAYER1,1)
COMPUTER_PLAYER(PLAYER2,0)
COMPUTER_PLAYER(PLAYER3,0)

START_MONEY(PLAYER0,5000)
START_MONEY(PLAYER1,20000)
START_MONEY(PLAYER2,20000)
START_MONEY(PLAYER3,20000)

REM *******************************ӹﵽ *********************************
REM   (ӵڵ,)

ADD_CREATURE_TO_POOL(FAIRY,15)
ADD_CREATURE_TO_POOL(KNIGHT,30)
ADD_CREATURE_TO_POOL(WIZARD,15)
ADD_CREATURE_TO_POOL(BILE_DEMON,40)

REM *******************************ָӪң/ֹڣأָ*********************************
REM  (,,1ֻ1,[1ļ/0ֹļ])

CREATURE_AVAILABLE(PLAYER0,WIZARD,1,1)
CREATURE_AVAILABLE(PLAYER0,KNIGHT,1,1)
CREATURE_AVAILABLE(PLAYER0,FAIRY,1,1)
CREATURE_AVAILABLE(PLAYER2,BILE_DEMON,1,1)
CREATURE_AVAILABLE(PLAYER3,BILE_DEMON,1,1)

REM ********************ָӪң/ֹоͽָӣ**********************************
REM  (,,Ƿо[10ǽֹ],ǷѾɽ[1Ѿɽ/0о])

ROOM_AVAILABLE(ALL_PLAYERS,TREASURE,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,LAIR,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,GARDEN,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,TRAINING,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,RESEARCH,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,WORKSHOP,1,0)

REM ********************ָӪң/ֹоʹָħ**********************************
REM  (,ħ,Ƿоʹ[10ǽֹ],ǷѾʹ[1Ѿɽ/0о])

MAGIC_AVAILABLE(ALL_PLAYERS,POWER_OBEY,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_IMP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SLAP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HAND,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CONCEAL,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_PROTECT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CHICKEN,1,0)

REM *********************ָӪң/ָֹ*********************************
REM  (,ŵ,[10ǽֹ],1[0Ѿ/͵]

DOOR_AVAILABLE(ALL_PLAYERS,WOOD,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,STEEL,1,0)

REM *********************ָӪң/ָֹ*********************************
REM  (,,[10ǽֹ],1[0Ѿ/͵]

TRAP_AVAILABLE(ALL_PLAYERS,ALARM,1,0)		
TRAP_AVAILABLE(ALL_PLAYERS,LIGHTNING,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,WORD_OF_POWER,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,POISON_GAS,1,0)
TRAP_AVAILABLE(PLAYER3,BOULDER,1,0)

REM CREATE_PARTY =>齨                ()   
REM ADD_TO_PARTY=>ﵽ   (,,ȼ,ЯǮ,,ʱ)

CREATE_PARTY(ONE)
	ADD_TO_PARTY(ONE,WIZARD,10,1500,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(ONE,ARCHER,10,1500,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(ONE,DWARFA,10,1500,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(ONE,GIANT,10,1500,ATTACK_ENEMIES,0)
        ADD_TO_PARTY(ONE,SAMURAI,10,1600,ATTACK_ENEMIES,0)
        ADD_TO_PARTY(ONE,BARBARIAN,10,1600,ATTACK_ENEMIES,0)

CREATE_PARTY(TWO)
	ADD_TO_PARTY(TWO,FAIRY,10,1600,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TWO,FAIRY,10,1600,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TWO,ARCHER,10,1500,ATTACK_ENEMIES,0)
        ADD_TO_PARTY(TWO,WIZARD,10,1500,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TWO,WIZARD,10,1500,ATTACK_ENEMIES,0)
        ADD_TO_PARTY(TWO,DWARFA,10,1500,ATTACK_ENEMIES,0)
	
CREATE_PARTY(THREE)
        ADD_TO_PARTY(THREE,GIANT,10,1500,ATTACK_ENEMIES,0)
        ADD_TO_PARTY(THREE,GIANT,10,1500,ATTACK_ENEMIES,0)
        ADD_TO_PARTY(THREE,SAMURAI,10,1600,ATTACK_ENEMIES,0)
        ADD_TO_PARTY(THREE,SAMURAI,10,1600,ATTACK_ENEMIES,0)
        ADD_TO_PARTY(THREE,BARBARIAN,10,1600,ATTACK_ENEMIES,0)
        ADD_TO_PARTY(THREE,KNIGHT,10,1800,ATTACK_ENEMIES,0)
        ADD_TO_PARTY(THREE,KNIGHT,10,1800,ATTACK_ENEMIES,0)

CREATE_PARTY(FOUR)
	ADD_TO_PARTY(FOUR,FAIRY,10,1600,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(FOUR,FAIRY,10,1600,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(FOUR,ARCHER,10,1500,ATTACK_ENEMIES,0)
        ADD_TO_PARTY(FOUR,WIZARD,10,1500,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(FOUR,WIZARD,10,1500,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(FOUR,AVATAR,10,1500,ATTACK_ENEMIES,0)
        ADD_TO_PARTY(FOUR,DWARFA,10,1500,ATTACK_ENEMIES,0)

CREATE_PARTY(FIVE)
    	ADD_TO_PARTY(FIVE,HELL_HOUND,10,1000,ATTACK_DUNGEON_HEART,0)
    	ADD_TO_PARTY(FIVE,HELL_HOUND,10,1000,ATTACK_DUNGEON_HEART,0)
    	ADD_TO_PARTY(FIVE,HELL_HOUND,10,1000,ATTACK_DUNGEON_HEART,0)
    	ADD_TO_PARTY(FIVE,HELL_HOUND,10,1000,ATTACK_DUNGEON_HEART,0)
    	ADD_TO_PARTY(FIVE,HELL_HOUND,10,1000,ATTACK_DUNGEON_HEART,0)
        ADD_TO_PARTY(FIVE,HELL_HOUND,10,1000,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(SIX)
        ADD_TO_PARTY(SIX,BILE_DEMON,10,0,ATTACK_DUNGEON_HEART,0)
        ADD_TO_PARTY(SIX,BILE_DEMON,10,0,ATTACK_DUNGEON_HEART,0)
        ADD_TO_PARTY(SIX,BILE_DEMON,10,0,ATTACK_DUNGEON_HEART,0)
        ADD_TO_PARTY(SIX,BILE_DEMON,10,0,ATTACK_DUNGEON_HEART,0)
        ADD_TO_PARTY(SIX,BILE_DEMON,10,0,ATTACK_DUNGEON_HEART,0)
        

CREATE_PARTY(SEVEN)
        ADD_TO_PARTY(SEVEN,DARK_MISTRESS,10,0,ATTACK_DUNGEON_HEART,0)
        ADD_TO_PARTY(SEVEN,DARK_MISTRESS,10,0,ATTACK_DUNGEON_HEART,0)
        ADD_TO_PARTY(SEVEN,DARK_MISTRESS,10,0,ATTACK_DUNGEON_HEART,0)
        ADD_TO_PARTY(SEVEN,DARK_MISTRESS,10,0,ATTACK_DUNGEON_HEART,0)
        ADD_TO_PARTY(SEVEN,DARK_MISTRESS,10,0,ATTACK_DUNGEON_HEART,0)
        
    

REM ****************************ű(Ҫݡݣ**********************************

QUICK_OBJECTIVE(0,"Objective: Defeat the four Deathlords. They are extremely powerful demons who live in the top of a mountain that locates in the central of the map.",PLAYER0)

QUICK_INFORMATION(1,"The rumor says that some Orcs have been imprisoned in somewhere. If you save them, they may tell you the weakness of these demons.",PLAYER0)

IF(PLAYER2,DUNGEON_DESTROYED==1)
    ROOM_AVAILABLE(PLAYER0,GUARD_POST,1,1)
ENDIF

IF(PLAYER3,DUNGEON_DESTROYED==1)
    ROOM_AVAILABLE(PLAYER0,PRISON,1,0)
ENDIF


IF(PLAYER_GOOD,DUNGEON_DESTROYED == 1)
    ROOM_AVAILABLE(PLAYER0,BRIDGE,1,0)
    QUICK_INFORMATION(4,"You have learned how to build a bridge.",PLAYER0) 
ENDIF

IF_ACTION_POINT(1,PLAYER0)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,1,2)
        IF_ACTION_POINT(2,PLAYER0)
            ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TWO,2,2)
                IF_ACTION_POINT(3,PLAYER0)
                    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,THREE,3,2)
                        IF_ACTION_POINT(4,PLAYER0)
                            ADD_PARTY_TO_LEVEL(PLAYER_GOOD,FOUR,4,2)
                                IF(PLAYER_GOOD,AVATAR<1)
                                    MAGIC_AVAILABLE(PLAYER0,POWER_DESTROY_WALLS,1,1)
				ENDIF
			ENDIF
		ENDIF
	ENDIF
ENDIF

IF_ACTION_POINT(5,PLAYER0)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,FIVE,5,1)
ENDIF

IF_ACTION_POINT(6,PLAYER0)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,SIX,6,2)
ENDIF

IF_ACTION_POINT(7,PLAYER0)
    ADD_PARTY_TO_LEVEL(PLAYER_GOOD,SEVEN,7,2)
ENDIF

IF_ACTION_POINT(8,PLAYER0)
    IF_ACTION_POINT(9,PLAYER0)
        IF_ACTION_POINT(10,PLAYER0)
            IF_ACTION_POINT(11,PLAYER0)
                QUICK_INFORMATION(2,"You saved all the Orcs, and they told you to find Dragon and Hell Hound too, and then sacrifice them together with the strongest Orc in the temple, and something will happen....",PLAYER0)
                ROOM_AVAILABLE(PLAYER0,SCAVENGER,1,0)
	    ENDIF
	ENDIF
    ENDIF
ENDIF

IF(PLAYER0,HORNY > 0)
    QUICK_INFORMATION(3,"A Horned Reaper appeared in the water pool of the temple, it swiped its sickle and roared angrily, which weakened the Deathlords' strength harshly. And then it went back to the hell. Time to start the final battle!",PLAYER0)
    SET_TIMER(PLAYER0,TIMER0)
    SET_CREATURE_HEALTH(HORNY,7895)
    SET_CREATURE_STRENGTH(HORNY,150
    SET_CREATURE_ARMOUR(HORNY,1
    MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CHICKEN,0,0)
ENDIF

IF(PLAYER0,TIMER0 >= 200)
    KILL_CREATURE(PLAYER0,HORNY,MOST_EXPERIENCED,1)
ENDIF

REM ****************************ʤ/ʧ**********************************

IF(PLAYER_GOOD,HORNY == 0)
    WIN_GAME
ENDIF

IF(PLAYER0,DUNGEON_DESTROYED == 1)
    LOSE_GAME
ENDIF

IF(PLAYER0,GAME_TURN <= 30)
    IF(PLAYER0,TOTAL_CREATURES>=6)
        QUICK_OBJECTIVE(6,"You are not allowed to transfer creatures into this map!",PLAYER0)
        LOSE_GAME
    ENDIF
ENDIF