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,9)
MAX_CREATURES(PLAYER0,18)
START_MONEY(PLAYER1,99999)
MAX_CREATURES(PLAYER1,35)
COMPUTER_PLAYER(PLAYER1,1)
START_MONEY(PLAYER2,99999)
MAX_CREATURES(PLAYER2,35)
COMPUTER_PLAYER(PLAYER2,1)


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

SET_GENERATE_SPEED(300)
ADD_CREATURE_TO_POOL(WIZARD,30)
ADD_CREATURE_TO_POOL(FLY,20)
ADD_CREATURE_TO_POOL(SORCEROR,30)


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

CREATURE_AVAILABLE(ALL_PLAYERS,WIZARD,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,FLY,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,SORCEROR,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,WORKSHOP,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,PRISON,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,TEMPLE,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)
TRAP_AVAILABLE(ALL_PLAYERS,ALARM,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,BOULDER,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,WOOD,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,MAGIC,1,0)


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

ALLY_PLAYERS(PLAYER1,PLAYER2)


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

SET_CREATURE_STRENGTH(THIEF,5)
SET_CREATURE_HEALTH(THIEF,7000)
SET_CREATURE_ARMOUR(THIEF,10)
SET_CREATURE_FEAR(THIEF,255)
SET_CREATURE_MAX_LEVEL(ALL_PLAYERS,THIEF,10)
SET_CREATURE_HEALTH(KNIGHT,7000)
SET_CREATURE_ARMOUR(KNIGHT,255)

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

QUICK_INFORMATION(1,"Regardless of the Keepers of the North,our goal is...to get rid of cavities...uh, no, heroes, those self-righteous heroes.")
QUICK_INFORMATION(5,"There are thieves under the heart of the dungeons, and they're not just ordinary thieves, they're all very rich, so...you know what to do.")
QUICK_INFORMATION(6,"Also, the thief below is very good at giving birth because of a new policy in China had been introduced, which allows every family to give birth of one more child, so...you know.")

REM ************************************
CREATE_PARTY(Z)
ADD_TO_PARTY(Z,AVATAR,10,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(Z,AVATAR,10,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(Z,KNIGHT,10,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(Z,KNIGHT,10,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(Z,SAMURAI,10,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(Z,SAMURAI,10,0,ATTACK_DUNGEON_HEART,0)
CREATE_PARTY(H)
ADD_TO_PARTY(H,DARK_MISTRESS,10,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(H,DARK_MISTRESS,10,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(H,SPIDER,10,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(H,SPIDER,10,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(H,SPIDER,10,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(H,WIZARD,10,0,ATTACK_DUNGEON_HEART,0)


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

SET_FLAG(PLAYER0,FLAG0,1)

REM ***************ϵʽ*******************
	
IF(PLAYER0,BRIDGE>=1)
QUICK_INFORMATION(4,"You are allowed to build a bridge , that's reasonable.")
	ROOM_AVAILABLE(ALL_PLAYERS,BRIDGE,1,1)
	ROOM_AVAILABLE(ALL_PLAYERS,GUARD_POST,1,1)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,H,12,2)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,H,13,2)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,H,14,2)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,H,15,3)
ENDIF


IF_ACTION_POINT(1,PLAYER0)
	IF(PLAYER0,FLAG0==1)
		SET_TIMER(PLAYER0,TIMER0)
		IF(PLAYER0,TIMER0>=7500)
NEXT_COMMAND_REUSABLE
ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,THIEF,-1,2,10,1000)
NEXT_COMMAND_REUSABLE
ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,THIEF,-2,2,10,2000)
NEXT_COMMAND_REUSABLE
ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,THIEF,-3,2,10,5000)
NEXT_COMMAND_REUSABLE
ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,THIEF,-4,2,10,7000)
NEXT_COMMAND_REUSABLE
ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,THIEF,-5,2,10,8000)
NEXT_COMMAND_REUSABLE
ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,THIEF,-6,2,10,9000)
		IF(PLAYER_GOOD,THIEF=0)
NEXT_COMMAND_REUSABLE
SET_TIMER(PLAYER0,TIMER0)
			
		ENDIF
	ENDIF
ENDIF
ENDIF

IF(PLAYER_GOOD,DUNGEON_DESTROYED==1)
QUICK_INFORMATION(3,"NOW GO DIE, FOOLISH KEEPERS -- Heroes' roar")
SET_FLAG(PLAYER0,FLAG0,0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,Z,-7,3)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,H,-7,3)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,Z,PLAYER0,2)
ENDIF

IF(PLAYER0,FLAG0==0)
IF(PLAYER_GOOD,TOTAL_CREATURES>=0)
WIN_GAME
ENDIF
ENDIF

IF_ACTION_POINT(2,PLAYER0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,H,2,2)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,H,3,3)
ENDIF

IF_ACTION_POINT(4,PLAYER0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,H,5,3)
ENDIF

IF_ACTION_POINT(6,PLAYER0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,H,6,3)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,H,8,2)
ENDIF

IF_ACTION_POINT(7,PLAYER0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,H,7,3)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,H,8,2)
ENDIF

IF_ACTION_POINT(11,PLAYER0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,H,8,2)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,H,9,2)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,H,10,2)
ENDIF

IF_ACTION_POINT(16,PLAYER0)
QUICK_INFORMATION(2,"Are there something on the back?")
RESET_ACTION_POINT(11)
ENDIF

IF_ACTION_POINT(21,PLAYER0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,H,20,4)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,H,19,3)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,H,18,3)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,H,17,3)
ENDIF

IF_ACTION_POINT(22,PLAYER0)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,H,23,4)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,H,24,3)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,H,25,3)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,H,2,3)
ENDIF

