REM ********************************************
REM		 ӭʹػ
REM  ͼAI<<³ػIͼAI༭>>
REM		ߣ֮
REM		      QQ3262900
REM ********************************************
REM		ͼߣ
REM		   QQ
REM ********************************************
REM	            PLAYER1=1
REM	            PLAYER2=0
REM	            PLAYER3=0
REM ********************************************



REM ************ʼǮ**************

START_MONEY(PLAYER0,500000)
MAX_CREATURES(PLAYER0,40)



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

SET_GENERATE_SPEED(100)

CREATURE_AVAILABLE(ALL_PLAYERS,IMP,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,DARK_MISTRESS,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,DRAGON,1,1)

ADD_CREATURE_TO_POOL(IMP,20)
ADD_CREATURE_TO_POOL(DRAGON,20)
ADD_CREATURE_TO_POOL(DARK_MISTRESS,20)


REM **********ħ**********


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,BRIDGE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,GUARD_POST,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,WORKSHOP,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,TORTURE,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,BARRACKS,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,TEMPLE,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,GRAVEYARD,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_IMP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_OBEY,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CONCEAL,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HOLD_AUDIENCE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_PROTECT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_ARMAGEDDON,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_DESTROY_WALLS,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,LIGHTNING,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,WORD_OF_POWER,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,STEEL,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,MAGIC,1,0)


REM ****************ͬ********************



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



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

COMPUTER_PLAYER(PLAYER_GOOD,10)

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

CREATE_PARTY(XIAOTOU)
ADD_TO_PARTY(XIAOTOU,THIEF,10,1,STEAL_GOLD,0)
ADD_TO_PARTY(XIAOTOU,THIEF,10,1,STEAL_GOLD,0)

CREATE_PARTY(QISHI)
ADD_TO_PARTY(QISHI,KNIGHT,1,100,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(QISHI,KNIGHT,2,200,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(QISHI,KNIGHT,3,300,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(QISHI,KNIGHT,4,400,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(QISHI,KNIGHT,5,500,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(QISHIB)
ADD_TO_PARTY(QISHIB,KNIGHT,5,500,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(QISHIB,KNIGHT,5,500,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(QISHIB,KNIGHT,5,500,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(QISHIB,KNIGHT,5,500,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(QISHIB,KNIGHT,5,500,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(GUOWANG)
ADD_TO_PARTY(GUOWANG,KNIGHT,6,600,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(GUOWANG,KNIGHT,7,700,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(GUOWANG,KNIGHT,8,800,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(GUOWANG,KNIGHT,9,900,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(GUOWANG,KNIGHT,10,1000,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(GUOWANGB)
ADD_TO_PARTY(GUOWANGB,KNIGHT,10,1000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(GUOWANGB,KNIGHT,10,1000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(GUOWANGB,KNIGHT,10,1000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(GUOWANGB,KNIGHT,10,1000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(GUOWANGB,KNIGHT,10,1000,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(AUATAR)
ADD_TO_PARTY(AUATAR,AVATAR,5,3000,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(SHENGZHE)
ADD_TO_PARTY(SHENGZHE,AVATAR,10,10000,ATTACK_DUNGEON_HEART,0)


REM ***************¼*******************



REM ***************ϵʽ*******************

QUICK_OBJECTIVE(1,"All the Lord of the Lands killed by you in the past have now been resurrected by magical power and they are all going to revenge you! This will be an ultimate battle for your evilness! Kill them and destroy their heart to win!",PLAYER0)
QUICK_INFORMATION(2,"The gem seam written in Chinese in the south reads: Respect to Bullfrog company, by author.",PLAYER0)

REM ʾ趨һʱΪTimer0ԭűиţTimer1
SET_TIMER(PLAYER0,TIMER0)
SET_TIMER(PLAYER0,TIMER2)
SET_FLAG(PLAYER0,FLAG1,0)
REM һTimer0ʱ1500򳬹ʱ
IF(PLAYER0,TIMER0 >= 10000)
REM Ӣ۵С͵С1ʱ
IF(PLAYER_GOOD,THIEF <= 1)
REM ѭʹãˢС͵
NEXT_COMMAND_REUSABLE
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,XIAOTOU,8,1)
NEXT_COMMAND_REUSABLE
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,XIAOTOU,9,1)
REM ˢһα󣬼ʱ
NEXT_COMMAND_REUSABLE
SET_TIMER(PLAYER0,TIMER0)
QUICK_INFORMATION(3,"Your huge amount of gold attracts thieves to come here periodically.",PLAYER0)
ENDIF
ENDIF

IF(PLAYER0,TIMER2>=5000)
IF(PLAYER0,FLAG1==0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,QISHI,-3,1)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,QISHI,-4,1)
ENDIF
ENDIF

IF(PLAYER0,TIMER2>=10000)
IF(PLAYER0,FLAG1==0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,QISHIB,-3,1)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,QISHIB,-4,1)
ENDIF
ENDIF

IF(PLAYER0,TIMER2>=15000)
IF(PLAYER0,FLAG1==0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,GUOWANG,-3,1)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,GUOWANG,-4,1)
ENDIF
ENDIF

IF(PLAYER0,TIMER2>=20000)
IF(PLAYER0,FLAG1==0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,GUOWANG,-1,2)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,GUOWANG,-2,2)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,AUATAR,-3,1)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,AUATAR,-4,1)
ENDIF
ENDIF

IF(PLAYER0,TIMER2>=25000)
IF(PLAYER0,FLAG1==0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,GUOWANGB,-1,1)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,GUOWANGB,-2,1)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,AUATAR,-1,1)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,AUATAR,-2,1)
SET_TIMER(PLAYER0,TIMER2)
SET_FLAG(PLAYER0,FLAG2,1)
ENDIF
ENDIF

IF(PLAYER0,TIMER2>=5000)
IF(PLAYER0,FLAG2==1)
IF(PLAYER0,FLAG1==0)
NEXT_COMMAND_REUSABLE
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,GUOWANGB,-1,2)
NEXT_COMMAND_REUSABLE
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,GUOWANGB,-2,2)
NEXT_COMMAND_REUSABLE
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,SHENGZHE,-3,1)
NEXT_COMMAND_REUSABLE
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,SHENGZHE,-4,1)
NEXT_COMMAND_REUSABLE
SET_TIMER(PLAYER0,TIMER2)
ENDIF
ENDIF
ENDIF

IF(PLAYER_GOOD,DUNGEON_DESTROYED==1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,SHENGZHE,1,5)
	SET_FLAG(PLAYER0,FLAG1,1)
ENDIF


REM IF_ACTION_POINT(-2,PLAYER0)
REM	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,QISHI,2,1)
REMENDIF
REM IF_ACTION_POINT(-3,PLAYER0)
REM	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,QISHI,3,1)
REM ENDIF

IF_ACTION_POINT(-4,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,GUOWANG,4,2)
ENDIF

IF_ACTION_POINT(-5,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,GUOWANG,5,2)
ENDIF

REM IF_ACTION_POINT(-6,PLAYER0)
REM 	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,GUOWANG,6,1)
REM ENDIF

REM IF_ACTION_POINT(-7,PLAYER0)
REM 	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,GUOWANG,7,1)
REM ENDIF

IF(PLAYER0,FLAG1==1)
IF(PLAYER_GOOD,AVATAR==0)
IF(PLAYER_GOOD,KNIGHT==0)
IF(PLAYER0,ALL_DUNGEONS_DESTROYED==1)
	QUICK_OBJECTIVE(4,"Time to throw the bodies of these pathetic Lords back to the hell to feed your hounds!",PLAYER0)
	WIN_GAME
ENDIF
ENDIF
ENDIF
ENDIF

IF(PLAYER0,DUNGEON_DESTROYED==1)
	QUICK_OBJECTIVE(5,"You failed. Your throne has been taken back by the Lords. What a shame.",PLAYER0)
	LOSE_GAME
ENDIF

