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

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

START_MONEY(PLAYER0,20000)
MAX_CREATURES(PLAYER0,28)
START_MONEY(PLAYER1,500000)
MAX_CREATURES(PLAYER1,31)
COMPUTER_PLAYER(PLAYER1,5)
START_MONEY(PLAYER2,500000)
MAX_CREATURES(PLAYER2,31)
COMPUTER_PLAYER(PLAYER2,5)

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

SET_GENERATE_SPEED(350)
ADD_CREATURE_TO_POOL(SKELETON,20)
ADD_CREATURE_TO_POOL(DRAGON,80)
ADD_CREATURE_TO_POOL(FLY,50)
ADD_CREATURE_TO_POOL(SORCEROR,20)
ADD_CREATURE_TO_POOL(BILE_DEMON,50)
ADD_CREATURE_TO_POOL(BUG,50)
ADD_CREATURE_TO_POOL(SPIDER,30)
ADD_CREATURE_TO_POOL(HELL_HOUND,30)
ADD_CREATURE_TO_POOL(ORC,30)

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

CREATURE_AVAILABLE(PLAYER0,DRAGON,1,1)
CREATURE_AVAILABLE(PLAYER0,FLY,1,1)
CREATURE_AVAILABLE(PLAYER0,SORCEROR,1,1)
CREATURE_AVAILABLE(PLAYER0,BILE_DEMON,1,1)
CREATURE_AVAILABLE(PLAYER0,BUG,1,1)
CREATURE_AVAILABLE(PLAYER0,SPIDER,1,1)
CREATURE_AVAILABLE(PLAYER1,SKELETON,1,1)
CREATURE_AVAILABLE(PLAYER1,SPIDER,1,1)
CREATURE_AVAILABLE(PLAYER2,DRAGON,1,1)
CREATURE_AVAILABLE(PLAYER2,FLY,1,1)
CREATURE_AVAILABLE(PLAYER2,SORCEROR,1,1)
CREATURE_AVAILABLE(PLAYER2,BILE_DEMON,1,1)
CREATURE_AVAILABLE(PLAYER2,BUG,1,1)
CREATURE_AVAILABLE(PLAYER2,HELL_HOUND,1,1)
CREATURE_AVAILABLE(PLAYER2,ORC,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,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,PRISON,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)
ROOM_AVAILABLE(ALL_PLAYERS,SCAVENGER,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_IMP,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_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)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_DISEASE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_DESTROY_WALLS,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,LIGHTNING,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,BOULDER,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,MAGIC,1,0)


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

ALLY_PLAYERS(PLAYER1,PLAYER2)
ALLY_PLAYERS(PLAYER2,PLAYER1)

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

SET_CREATURE_MAX_LEVEL(PLAYER_GOOD,WIZARD,10)

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



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

CREATE_PARTY(A)
ADD_TO_PARTY(A,WIZARD,10,800,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(A,WIZARD,10,800,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(A,BARBARIAN,10,800,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(A,BARBARIAN,10,800,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(A,MONK,10,800,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(A,MONK,10,800,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(A,KNIGHT,10,8000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(A,AVATAR,10,5000,ATTACK_DUNGEON_HEART,0)
CREATE_PARTY(B)
ADD_TO_PARTY(B,samurai,10,8000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(B,AVATAR,10,5000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(B,samurai,10,8000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(B,KNIGHT,10,8000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(B,GIANT,10,8000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(B,GIANT,10,8000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(B,AVATAR,10,5000,ATTACK_DUNGEON_HEART,0)


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



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

IF(PLAYER0,GAME_TURN>=10)
	QUICK_OBJECTIVE(1,"Keeper, this is a fight of the justice to vampires. The infamous keepers Weizel and Skybird have known your presence, they have rebuilt their army and now they allied to revenge you together. And you will only need to do one thing to defeat them--guess what it is. ",PLAYER0)
	IF(PLAYER0,GAME_TURN>=100)
		QUICK_INFORMATION(2,"Both keepers are well-developed when they arrived to this realm. The heroes also have an army hidden in somewhere. Whether you will succeed depends on what you choose to do next. I hope you don't do foolish things.")
		IF(PLAYER0,ALL_DUNGEONS_DESTROYED==1)
			WIN_GAME
		ENDIF
		IF_ACTION_POINT(1,PLAYER0)
			ADD_PARTY_TO_LEVEL(PLAYER_GOOD,A,1,1)
			IF_ACTION_POINT(2,PLAYER0)
				ADD_PARTY_TO_LEVEL(PLAYER_GOOD,A,2,1)
				IF_ACTION_POINT(3,PLAYER0)
					ADD_PARTY_TO_LEVEL(PLAYER_GOOD,B,3,1)
				ENDIF
				IF(PLAYER_GOOD,DUNGEON_DESTROYED==1)
					ADD_PARTY_TO_LEVEL(PLAYER_GOOD,A,-2,1)
					ADD_PARTY_TO_LEVEL(PLAYER_GOOD,B,-2,1)
					ADD_PARTY_TO_LEVEL(PLAYER_GOOD,A,-2,1)
				ENDIF
			ENDIF
		ENDIF
	ENDIF
ENDIF

IF(PLAYER_GOOD,DUNGEON_DESTROYED==1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,A,PLAYER0,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,B,PLAYER0,1)
ENDIF

