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



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

START_MONEY(PLAYER0,5000)
MAX_CREATURES(PLAYER0,35)
START_MONEY(PLAYER1,50000)
MAX_CREATURES(PLAYER1,45)
COMPUTER_PLAYER(PLAYER1,5)
START_MONEY(PLAYER2,50000)
MAX_CREATURES(PLAYER2,45)
COMPUTER_PLAYER(PLAYER2,5)
START_MONEY(PLAYER3,50000)
MAX_CREATURES(PLAYER3,45)
COMPUTER_PLAYER(PLAYER3,5)


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

SET_GENERATE_SPEED(300)
ADD_CREATURE_TO_POOL(DRAGON,50)
ADD_CREATURE_TO_POOL(DEMONSPAWN,50)
ADD_CREATURE_TO_POOL(FLY,6)


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

CREATURE_AVAILABLE(ALL_PLAYERS,DRAGON,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,DEMONSPAWN,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,FLY,1,1)
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,0)
ROOM_AVAILABLE(ALL_PLAYERS,RESEARCH,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,GUARD_POST,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,WORKSHOP,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,TORTURE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,BARRACKS,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,TEMPLE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,GRAVEYARD,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_IMP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SIGHT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_OBEY,1,0)
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_CAVE_IN,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_LIGHTNING,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_PROTECT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CHICKEN,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,ALARM,1,1)
TRAP_AVAILABLE(ALL_PLAYERS,LIGHTNING,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,BOULDER,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,WOOD,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,MAGIC,1,0)


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



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

SET_CREATURE_HEALTH(FAIRY,7000)
SET_CREATURE_ARMOUR(FAIRY,100)
SET_CREATURE_FEAR(FAIRY,0)


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



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

CREATE_PARTY(FAIRY)
ADD_TO_PARTY(FAIRY,FAIRY,10,3000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(FAIRY,FAIRY,10,3000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(FAIRY,FAIRY,10,3000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(FAIRY,FAIRY,10,3000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(FAIRY,FAIRY,10,3000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(FAIRY,HORNY,10,3000,ATTACK_DUNGEON_HEART,0)

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

QUICK_INFORMATION(1,"Welcome to Dragon's Purgatory, Keeper, now let's conquer this Purgatory.")


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

IF(PLAYER1,DUNGEON_DESTROYED==1)
	ALLY_PLAYERS(PLAYER2,PLAYER3)
ENDIF

IF(PLAYER2,DUNGEON_DESTROYED==1)
	ALLY_PLAYERS(PLAYER3,PLAYER2)
ENDIF

IF(PLAYER3,DUNGEON_DESTROYED==1)
	ALLY_PLAYERS(PLAYER1,PLAYER2)
ENDIF


IF(PLAYER1,DUNGEON_DESTROYED==1)
   IF(PLAYER2,DUNGEON_DESTROYED==1)
	IF(PLAYER3,DUNGEON_DESTROYED==1)
	
	   	QUICK_INFORMATION(2,"The heroes of the Northwest learned that you had conquered the Dragon's Purgatory and they are coming to destroy you, Arieluia...")
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,FAIRY,-1,10)
    IF(PLAYER_GOOD,TOTAL_CREATURES == 0)
        WIN_GAME

ENDIF
ENDIF
ENDIF
ENDIF



