
REM �ٶȡ����³��ػ��ߡ��ɰ����������

COMPUTER_PLAYER(PLAYER1,	10)

START_MONEY(	PLAYER0,	0)

START_MONEY(	PLAYER1,	0) 

SET_CREATURE_MAX_LEVEL(PLAYER0,DARK_MISTRESS,9)
SET_CREATURE_MAX_LEVEL(PLAYER0,HORNY,9)

MAGIC_AVAILABLE(	PLAYER0,	POWER_HOLD_AUDIENCE,	1,			0)

MAGIC_AVAILABLE(	PLAYER0,	POWER_HEAL_CREATURE,	1,			0)   

MAGIC_AVAILABLE(	PLAYER1,	POWER_IMP,		1,			1)

MAGIC_AVAILABLE(	PLAYER1,	POWER_CALL_TO_ARMS,	1,			0)

MAGIC_AVAILABLE(	PLAYER1,	POWER_CAVE_IN,		1,			0)

MAGIC_AVAILABLE(	PLAYER1,	POWER_PROTECT,		1,			0)

MAGIC_AVAILABLE(	PLAYER1,	POWER_CONCEAL,		1,			0) 


ROOM_AVAILABLE(		ALL_PLAYERS,	TREASURE,	1,			0)

ROOM_AVAILABLE(		ALL_PLAYERS,	WORKSHOP,	1,			0)

ROOM_AVAILABLE(		ALL_PLAYERS,	GARDEN,		1,			0)

ROOM_AVAILABLE(		ALL_PLAYERS,	LAIR,		1,			0)

ROOM_AVAILABLE(		ALL_PLAYERS,	TRAINING,	1,			0)

ROOM_AVAILABLE(		ALL_PLAYERS,	TEMPLE,		1,			0)

ROOM_AVAILABLE(		ALL_PLAYERS,	BRIDGE,		1,			0) 

ROOM_AVAILABLE(		ALL_PLAYERS,	BARRACKS,	1,			0)


TRAP_AVAILABLE(		PLAYER0,	POISON_GAS,		1,			0)

TRAP_AVAILABLE(		PLAYER0,	LIGHTNING,		1,			0)

TRAP_AVAILABLE(		PLAYER0,	WORD_OF_POWER,		1,			0)
TRAP_AVAILABLE(		PLAYER1,	POISON_GAS,		1,			0) 


DOOR_AVAILABLE(		PLAYER0,	STEEL,			1,			0)

DOOR_AVAILABLE(		PLAYER0,	MAGIC,			1,			0)
DOOR_AVAILABLE(		PLAYER1,	STEEL,			1,			0) 

CREATE_PARTY(PARTY1)
CREATE_PARTY(PARTY2)
CREATE_PARTY(PARTY3)
CREATE_PARTY(PARTY4)
CREATE_PARTY(PARTY5)
CREATE_PARTY(PARTY6)
CREATE_PARTY(PARTY7)
CREATE_PARTY(PARTY8)
CREATE_PARTY(PARTY9)
CREATE_PARTY(PARTY10)
CREATE_PARTY(PARTY11)
CREATE_PARTY(PARTY12)
CREATE_PARTY(PARTY13)
CREATE_PARTY(PARTY14)
CREATE_PARTY(PARTY15)
CREATE_PARTY(PARTY16)
CREATE_PARTY(PARTY17)
CREATE_PARTY(PARTY18)
CREATE_PARTY(PARTY19)

ADD_TO_PARTY(      PARTY1,	TUNNELLER,	1,   	100,        ATTACK_ENEMIES,      0)
ADD_TO_PARTY(      PARTY2,	ARCHER,	        2,   	100,        ATTACK_ENEMIES,      0)
ADD_TO_PARTY(      PARTY3,	THIEF,	        3,   	100,        ATTACK_ENEMIES,      0)
ADD_TO_PARTY(      PARTY4,	FAIRY,	        2,   	100,        ATTACK_ENEMIES,      0)
ADD_TO_PARTY(      PARTY5,	BARBARIAN,	5,   	100,        ATTACK_ENEMIES,      0)
ADD_TO_PARTY(      PARTY6,	GIANT,	        4,   	100,        ATTACK_ENEMIES,      0)
ADD_TO_PARTY(      PARTY7,	KNIGHT,	        6,   	1000,       ATTACK_ENEMIES,      0)
ADD_TO_PARTY(      PARTY8,	BARBARIAN,	1,   	100,        DEFEND_PARTY,        0)
ADD_TO_PARTY(      PARTY9,	ARCHER,  	5,   	100,        DEFEND_PARTY,        0)
ADD_TO_PARTY(      PARTY10,	FLY,	        1,   	10,         DEFEND_PARTY,        0)
ADD_TO_PARTY(      PARTY11,	BUG,	        1,   	50,         DEFEND_PARTY,        0)
ADD_TO_PARTY(      PARTY12,	IMP,	        10,   	2000,       DEFEND_PARTY,        0)
ADD_TO_PARTY(      PARTY13,	FAIRY,	        1,   	20,         ATTACK_ENEMIES,      0)
ADD_TO_PARTY(      PARTY14,	GHOST,	        1,   	30,         ATTACK_ENEMIES,      0)
ADD_TO_PARTY(      PARTY15,	MONK,	        1,   	40,         ATTACK_ENEMIES,      0)
ADD_TO_PARTY(      PARTY16,	WITCH,	        1,   	40,         ATTACK_ENEMIES,      0)
ADD_TO_PARTY(      PARTY17,	WIZARD,	        1,   	50,         ATTACK_ENEMIES,      0)
ADD_TO_PARTY(      PARTY18,	IMP,	        1,   	100,        ATTACK_ENEMIES,      0)
ADD_TO_PARTY(      PARTY19,	GIANT,	        10,   	1000,       DEFEND_PARTY,        0)



QUICK_OBJECTIVE(1,"Map name :RPG v.1.10, type: role-playing possession map, dfficulty: hard, by [Di Xia Cheng Tong Zhi Zhe], operator of baidu Dungeon Keeper tieba. ",PLAYER0)



SET_TIMER(PLAYER0,TIMER0)

IF(PLAYER0,TIMER0>=10)

QUICK_INFORMATION(0,"A filthy guy called Avatar took away all your power, and his army have already come to finish you. Now you only have one creature left, use it well, and I believe you can revenge.",PLAYER0)

ENDIF

IF(PLAYER0,TIMER0>=100)

ADD_PARTY_TO_LEVEL(       PLAYER_GOOD,          PARTY1,         19,		             3)

ENDIF


IF(PLAYER0,TIMER0>=230)

ADD_PARTY_TO_LEVEL(       PLAYER_GOOD,          PARTY2,         19,		             3)

ENDIF


IF(PLAYER0,TIMER0>=450)

ADD_PARTY_TO_LEVEL(       PLAYER_GOOD,          PARTY3,         19,		             5)

ENDIF


IF(PLAYER0,TIMER0>=650)

ADD_PARTY_TO_LEVEL(       PLAYER_GOOD,          PARTY4,         19,		             12)

ENDIF


IF(PLAYER0,TIMER0>=800)

ADD_PARTY_TO_LEVEL(       PLAYER_GOOD,          PARTY5,         19,		             1)

ENDIF


IF(PLAYER0,TIMER0>=1000)

ADD_PARTY_TO_LEVEL(       PLAYER_GOOD,          PARTY6,         19,		             2)

ENDIF


IF(PLAYER0,TIMER0>=1400)

ADD_PARTY_TO_LEVEL(       PLAYER_GOOD,          PARTY7,         19,		             1)

ENDIF


IF(PLAYER0,TIMER0>=1700)

QUICK_INFORMATION(2,"Don't you feel there is something missing? Yeah, even the create imp spell has been taken away. Luckily there are a few imps who are hiding nearby and waiting for their master.",PLAYER0)


ENDIF


IF_ACTION_POINT(17,PLAYER0)

ADD_PARTY_TO_LEVEL(       PLAYER_GOOD,          PARTY8,         17,		             3)
ADD_PARTY_TO_LEVEL(       PLAYER_GOOD,          PARTY9,         17,		             5)
ENDIF


IF_ACTION_POINT(1,PLAYER0)

QUICK_INFORMATION(3,"Oh look! You got a guy who is an expert of farting! Don't just think he is slow and dumb, his special ability will help you very much. ",PLAYER0)

ENDIF

IF_ACTION_POINT(2,PLAYER0)

ADD_PARTY_TO_LEVEL(       PLAYER_GOOD,          PARTY10,         2,		             20)
ADD_PARTY_TO_LEVEL(       PLAYER_GOOD,          PARTY11,         2,		             10)

ENDIF

IF_ACTION_POINT(3,PLAYER0)

QUICK_INFORMATION(4,"Very well! The join of mistress is surely a great addition to your power, make use of her agility to cross the trap maze, however, don't forget to be careful and save game, because a single mistake will end up with... death!",PLAYER0)

ENDIF

IF_ACTION_POINT(4,PLAYER0)

ADD_PARTY_TO_LEVEL(       PLAYER0,          PARTY12,         19,		             8)

QUICK_INFORMATION(5,"These imps are pleased to serve you. You have two choices of where to go. The way of going forward will be full of challenge, but I'm sure you can get endless wealth as the reward if you manage to pass it!",PLAYER0)

ENDIF

IF_ACTION_POINT(5,PLAYER0)

QUICK_INFORMATION(6,"You are proved to be very tough after experiencing all these challenges, including solving the legendary boulder maze, I don't know how to praise your skill, Keeper.",PLAYER0)

ENDIF

IF_ACTION_POINT(6,PLAYER0)

QUICK_INFORMATION(7,"You got some of your power back, but many magic books are still left somewhere seperately, you need to take them back one by one. A loyal Dragon who has been finding his master for a long time, has just rejoined you. His wisdom of magic will serve you well.",PLAYER0)

ENDIF

IF_ACTION_POINT(7,PLAYER0)

QUICK_INFORMATION(8,"Aha! You've got a Horned Reaper. I believe this is the most scary monster in the dungeon, isn't it? However, are you satisfied with having only one of them? Can you get another one somehow?",PLAYER0)

ENDIF

IF_ACTION_POINT(8,PLAYER0)

ADD_PARTY_TO_LEVEL(       PLAYER_GOOD,          PARTY10,         8,		             20)

ENDIF

IF_ACTION_POINT(9,PLAYER0)

ADD_PARTY_TO_LEVEL(       PLAYER_GOOD,          PARTY13,         9,		             20)

ENDIF

IF_ACTION_POINT(10,PLAYER0)

ADD_PARTY_TO_LEVEL(       PLAYER_GOOD,          PARTY14,         10,		             20)

ENDIF

IF_ACTION_POINT(11,PLAYER0)

ADD_PARTY_TO_LEVEL(       PLAYER_GOOD,          PARTY15,         11,		             10)
ADD_PARTY_TO_LEVEL(       PLAYER_GOOD,          PARTY16,         11,		             10)

ENDIF

IF_ACTION_POINT(12,PLAYER0)

ADD_PARTY_TO_LEVEL(       PLAYER_GOOD,          PARTY17,         12,		             20)

ENDIF

IF_ACTION_POINT(13,PLAYER0)

ADD_PARTY_TO_LEVEL(       PLAYER_GOOD,          PARTY18,         13,		             40)

ENDIF

IF_ACTION_POINT(14,PLAYER0)

ADD_PARTY_TO_LEVEL(       PLAYER_GOOD,          PARTY19,         14,		             8)

ENDIF

IF_ACTION_POINT(15,PLAYER0)

QUICK_INFORMATION(9,"When you find a way to double your creature's number, no one could stand against you!",PLAYER0)

ENDIF

IF_ACTION_POINT(16,PLAYER0)

QUICK_INFORMATION(10,"You come nearer and nearer to your opponent, I guess he must be trembling when hearing the sound of your steps? Slaughter him, Keeper!",PLAYER0)

ENDIF

IF(	PLAYER_GOOD,	DUNGEON_DESTROYED	==		1)

QUICK_INFORMATION(11,"Haha, you have destroyed the hero dungeon and finished the revenge to them! However there is another keeper in this dungeon, challenge him and prove your power!",PLAYER0)

ENDIF

IF(	PLAYER1,	DUNGEON_DESTROYED	==		1)

QUICK_INFORMATION(12,"You are victorious, Keeper, no one can best you, and all the honours are yours! Feel free to contact me for improvements & complainments of this map, QQ:447044090; also feel free to introduce this map to other dungeon keeper fans. Thanks for playing.",PLAYER0)

ENDIF

IF(	PLAYER1,	DUNGEON_DESTROYED	==		1)
         WIN_GAME
ENDIF


















