REM ********************************************
REM
REM             Script for Level 205   dragonfirelevel3
REM
REM ********************************************













REM **********     SETUP COMMANDS     **********


REM ***** Set the Generation Speed of the  *****
REM ***** Entrances                        *****

SET_GENERATE_SPEED(400)


REM ***** Set the computer players going   *****

REM		Player		Player Type

COMPUTER_PLAYER(PLAYER1,	4)
COMPUTER_PLAYER(PLAYER2,	0)



REM ***** Set the maximum number of        *****
REM ***** creatures each player can have   *****

REM		Player		Number of creatures

MAX_CREATURES(	PLAYER0,	20)
MAX_CREATURES(	PLAYER1,	40)
MAX_CREATURES(	PLAYER2,	20)


ALLY_PLAYERS(PLAYER1,PLAYER2)


REM ***** Set the amount of gold each      *****
REM ***** player starts with               *****

REM		Player		Amount of gold

START_MONEY(	PLAYER0,	30000)
START_MONEY(	PLAYER1,	20000)
START_MONEY(	PLAYER2,	20000)




REM **********       SET MAGIC        **********
REM **********     AND CREATURES      **********

REM ***** Setup the creature pool          *****

REM			Creature Name	Number of creatures

ADD_CREATURE_TO_POOL(	BUG,		10)
ADD_CREATURE_TO_POOL(	FLY,		10)
ADD_CREATURE_TO_POOL(	SPIDER,		5)
ADD_CREATURE_TO_POOL(	SORCEROR,	30)
ADD_CREATURE_TO_POOL(	DEMONSPAWN,	20)
ADD_CREATURE_TO_POOL(	DRAGON,		20)
ADD_CREATURE_TO_POOL(	TROLL,		10)
ADD_CREATURE_TO_POOL(	ORC,		10)
ADD_CREATURE_TO_POOL(	HELL_HOUND,	10)
ADD_CREATURE_TO_POOL(	DARK_MISTRESS,	100)
ADD_CREATURE_TO_POOL(	BILE_DEMON,	20)


REM ***** Enable each player to recieve    *****
REM ***** creatures from pool              *****

REM			Player		Creatures	Can be available	Is now available

CREATURE_AVAILABLE(	ALL_PLAYERS,	BUG,		1,			1)
CREATURE_AVAILABLE(	ALL_PLAYERS,	FLY,		1,			1)
CREATURE_AVAILABLE(	ALL_PLAYERS,	SPIDER,		1,			1)
CREATURE_AVAILABLE(	ALL_PLAYERS,	SORCEROR,	1,			1)
CREATURE_AVAILABLE(	ALL_PLAYERS,	DEMONSPAWN,	1,			1)
CREATURE_AVAILABLE(	ALL_PLAYERS,	DRAGON,		1,			1)
CREATURE_AVAILABLE(	ALL_PLAYERS,	TROLL,		1,			1)
CREATURE_AVAILABLE(	ALL_PLAYERS,	ORC,		1,			1)
CREATURE_AVAILABLE(	ALL_PLAYERS,	HELL_HOUND,	1,			1)
CREATURE_AVAILABLE(	ALL_PLAYERS,	DARK_MISTRESS,	1,			1)
CREATURE_AVAILABLE(	ALL_PLAYERS,	BILE_DEMON,	1,			1)


REM ***** Set the rooms available to each  *****
REM ***** player                           *****

REM			Player		Room type	Can be available	Is available

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,	BARRACKS,	1,			0)
ROOM_AVAILABLE(		ALL_PLAYERS,	PRISON,		1,			0)
ROOM_AVAILABLE(		ALL_PLAYERS,	TORTURE,	1,			0)
ROOM_AVAILABLE(		ALL_PLAYERS,	TEMPLE,		1,			0)
ROOM_AVAILABLE(		ALL_PLAYERS,	GRAVEYARD,	1,			0)
ROOM_AVAILABLE(		ALL_PLAYERS,	SCAVENGER,	1,			0)


REM ***** Set the doors available to each  *****
REM ***** player                           *****

REM			Player		Door type		Can be available	Is available

DOOR_AVAILABLE(		ALL_PLAYERS,	WOOD,			1,			0)
DOOR_AVAILABLE(		ALL_PLAYERS,	BRACED,			1,			0)
DOOR_AVAILABLE(		ALL_PLAYERS,	STEEL,			1,			0)
DOOR_AVAILABLE(		ALL_PLAYERS,	MAGIC,			1,			0)


REM ***** Set the traps available to each  *****
REM ***** player                           *****

REM			Player		Trap type		Can be available	Is available

TRAP_AVAILABLE(		ALL_PLAYERS,	BOULDER,		1,			0)
TRAP_AVAILABLE(		ALL_PLAYERS,	ALARM,			1,			0)
TRAP_AVAILABLE(		ALL_PLAYERS,	POISON_GAS,		1,			0)
TRAP_AVAILABLE(		ALL_PLAYERS,	LIGHTNING,		1,			0)
TRAP_AVAILABLE(		ALL_PLAYERS,	WORD_OF_POWER,		1,			0)
TRAP_AVAILABLE(		ALL_PLAYERS,	LAVA,			1,			0)


REM ***** Set the spells available to each *****
REM ***** player                           *****

REM			Player		Spell type		Can be available	Is available

MAGIC_AVAILABLE(	ALL_PLAYERS,	POWER_IMP,		1,			1)
MAGIC_AVAILABLE(	ALL_PLAYERS,	POWER_OBEY,		1,			0)
MAGIC_AVAILABLE(	ALL_PLAYERS,	POWER_SIGHT,		1,			1)
MAGIC_AVAILABLE(	ALL_PLAYERS,	POWER_CALL_TO_ARMS,	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_HOLD_AUDIENCE,	1,			1)
MAGIC_AVAILABLE(	ALL_PLAYERS,	POWER_LIGHTNING,	1,			0)
MAGIC_AVAILABLE(	ALL_PLAYERS,	POWER_SPEED,		1,			0)
MAGIC_AVAILABLE(	ALL_PLAYERS,	POWER_PROTECT,		1,			0)
MAGIC_AVAILABLE(	ALL_PLAYERS,	POWER_CONCEAL,		1,			0)
MAGIC_AVAILABLE(	ALL_PLAYERS,	POWER_DISEASE,		1,			0)
MAGIC_AVAILABLE(	ALL_PLAYERS,	POWER_CHICKEN,		1,			0)
MAGIC_AVAILABLE(	ALL_PLAYERS,	POWER_DESTROY_WALLS,	1,			0)
MAGIC_AVAILABLE(	ALL_PLAYERS,	POWER_ARMAGEDDON,	1,			0)










CREATE_PARTY(ONE)
	ADD_TO_PARTY(ONE,THIEF,1,300,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(ONE,THIEF,1,300,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(ONE,THIEF,1,300,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(ONE,ARCHER,1,400,ATTACK_ENEMIES,0)

CREATE_PARTY(TWO)
	ADD_TO_PARTY(TWO,ARCHER,3,400,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TWO,ARCHER,3,400,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TWO,ARCHER,1,400,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TWO,BARBARIAN,1,500,ATTACK_ENEMIES,0)

CREATE_PARTY(THREE)
	ADD_TO_PARTY(THREE,DWARFA,4,300,ATTACK_ROOMS,0)
	ADD_TO_PARTY(THREE,DWARFA,4,300,ATTACK_ROOMS,0)
	ADD_TO_PARTY(THREE,DWARFA,4,300,ATTACK_ROOMS,0)
	ADD_TO_PARTY(THREE,DWARFA,4,300,ATTACK_ROOMS,0)
	ADD_TO_PARTY(THREE,DWARFA,4,300,ATTACK_ROOMS,0)


CREATE_PARTY(FOUR)
	ADD_TO_PARTY(FOUR,WITCH,5,750,STEAL_SPELLS,0)
	ADD_TO_PARTY(FOUR,WITCH,5,750,STEAL_SPELLS,0)
	ADD_TO_PARTY(FOUR,WITCH,5,750,STEAL_SPELLS,0)
	ADD_TO_PARTY(FOUR,THIEF,5,500,STEAL_GOLD,0)

CREATE_PARTY(FIVE)
	ADD_TO_PARTY(FIVE,BARBARIAN,5,1000,DEFEND_PARTY,0)
	ADD_TO_PARTY(FIVE,FAIRY,5,1000,STEAL_SPELLS,0)
	ADD_TO_PARTY(FIVE,BARBARIAN,5,1000,DEFEND_PARTY,0)
	ADD_TO_PARTY(FIVE,FAIRY,5,1000,STEAL_SPELLS,0)
	ADD_TO_PARTY(FIVE,BARBARIAN,5,1000,DEFEND_PARTY,0)
	ADD_TO_PARTY(FIVE,FAIRY,7,1000,STEAL_SPELLS,0)


CREATE_PARTY(FINALONE)
	ADD_TO_PARTY(FINALONE,BARBARIAN,5,1000,DEFEND_PARTY,0)
	ADD_TO_PARTY(FINALONE,GIANT,7,1500,DEFEND_PARTY,0)
	ADD_TO_PARTY(FINALONE,BARBARIAN,5,1000,DEFEND_PARTY,0)
	ADD_TO_PARTY(FINALONE,GIANT,7,1500,DEFEND_PARTY,0)
	ADD_TO_PARTY(FINALONE,FAIRY,7,1500,DEFEND_PARTY,0)
	ADD_TO_PARTY(FINALONE,FAIRY,7,1500,DEFEND_PARTY,0)

CREATE_PARTY(FINAL)
	ADD_TO_PARTY(FINAL,FAIRY,9,1200,DEFEND_PARTY,0)
	ADD_TO_PARTY(FINAL,FAIRY,9,1200,DEFEND_PARTY,0)
	ADD_TO_PARTY(FINAL,FAIRY,9,1200,DEFEND_PARTY,0)
	ADD_TO_PARTY(FINAL,FAIRY,9,1200,DEFEND_PARTY,0)
	ADD_TO_PARTY(FINAL,FAIRY,6,1200,DEFEND_PARTY,0)
	ADD_TO_PARTY(FINAL,FAIRY,6,1200,DEFEND_PARTY,0)
	ADD_TO_PARTY(FINAL,KNIGHT,7,1200,DEFEND_PARTY,0)
	ADD_TO_PARTY(FINAL,THIEF,1,300,ATTACK_ENEMIES,0)

CREATE_PARTY(FINAL_KING)
	ADD_TO_PARTY(FINAL_KING,AVATAR,10,12000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(FINAL_KING,AVATAR,10,12000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(FINAL_KING,AVATAR,10,12000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(FINAL_KING,AVATAR,10,12000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(FINAL_KING,AVATAR,10,12000,ATTACK_ENEMIES,0)

	
	







SET_TIMER(PLAYER1,TIMER0)

IF(PLAYER1,TIMER0 >= 1500)
	QUICK_OBJECTIVE(5,"Beware, the hero scouts have come towards you",PLAYER0)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,-1,DUNGEON,0,6,250)
ENDIF

IF(PLAYER1,TIMER0 >= 3000)
	QUICK_OBJECTIVE(6,"Beware, the hero reinforcements have just arrived, protect your dungeon~",PLAYER0)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,TWO,-1,DUNGEON,0,6,250)
ENDIF

IF(PLAYER1,TIMER0 >= 4000)
	QUICK_OBJECTIVE(7,"Beware, the hero send troops again, hold on~",PLAYER0)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,FOUR,-1,DUNGEON,0,6,250)
ENDIF

IF(PLAYER1,TIMER0 >= 4000)
	QUICK_OBJECTIVE(8,"The annoyed Lord's sons and daughters have come to finish you, they look furious, kick them out of this dungeon~",PLAYER0)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,FIVE,-1,DUNGEON,0,6,250)
ENDIF

IF(PLAYER1,TIMER0 >= 10000)
	QUICK_OBJECTIVE(9,"And the Lord himself arrives this time. He is definitely stronger, and will be a more valuable slave of you, isn't it?",PLAYER0)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,FINAL,-1,DUNGEON,0,6,250)
ENDIF

IF(PLAYER1,TIMER0 >= 50000)
	QUICK_OBJECTIVE(10,"Finally, the human send all the troops throughout the whole land to attack you. Can you still defend them, my Lord?~Let their blood water your flowers in your beautiful underground garden~",PLAYER0)
	CREATE_PARTY(ff_PARTY)
	ADD_TO_PARTY(ff_PARTY,THIEF,1,600,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(ff_PARTY,AVATAR,10,32000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(ff_PARTY,AVATAR,10,32000,ATTACK_ENEMIES,0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,ff_PARTY,-1,100)
ENDIF





REM ***** Starting objective               *****
	QUICK_OBJECTIVE(	0,			"Two other keepers have allied and they are planning to murder you. Tell them know who you are and eliminate them, then this realm will be yours, haha.",	PLAYER0)

REM **********      WIN AND LOSE      **********

IF(	PLAYER1,	DUNGEON_DESTROYED	==		1)
	QUICK_OBJECTIVE(11,"Your invasion has alarmed the 5 ancient gods of the heroes, are you a match of them, my Lord?",PLAYER0)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,FINAL_KING,-1,DUNGEON,0,6,250)
ENDIF

IF(	PLAYER2,	DUNGEON_DESTROYED	==		1)	
		WIN_GAME
ENDIF









REM		////
REM--------------Ů-------------------
REM	IF_ACTION_POINT(-1,PLAYER0)
REM		CREATE_PARTY(b_PARTY)
REM		ADD_TO_PARTY(b_PARTY,FAIRY,10,600,ATTACK_ENEMIES,0)
REM		ADD_PARTY_TO_LEVEL(PLAYER0,b_PARTY,-1,60);
REM	ENDIF






