REM ********************************************
REM
REM             Script for Level 211
REM
REM ********************************************


SET_GENERATE_SPEED(800)

MAX_CREATURES(PLAYER0,19)

START_MONEY(PLAYER0,10000)

ADD_CREATURE_TO_POOL(DWARFA,5)
ADD_CREATURE_TO_POOL(WIZARD,3)
ADD_CREATURE_TO_POOL(THIEF,7)
ADD_CREATURE_TO_POOL(SAMURAI,15)
ADD_CREATURE_TO_POOL(FAIRY,15)
ADD_CREATURE_TO_POOL(ARCHER,10)
ADD_CREATURE_TO_POOL(BARBARIAN,20)
ADD_CREATURE_TO_POOL(MONK,20)

		CREATURE_AVAILABLE(ALL_PLAYERS,DWARFA,1,1)
		CREATURE_AVAILABLE(ALL_PLAYERS,WIZARD,1,1)
		CREATURE_AVAILABLE(ALL_PLAYERS,THIEF,1,1)
		CREATURE_AVAILABLE(ALL_PLAYERS,SAMURAI,1,1)
		CREATURE_AVAILABLE(ALL_PLAYERS,FAIRY,1,1)
		CREATURE_AVAILABLE(ALL_PLAYERS,ARCHER,1,1)
		CREATURE_AVAILABLE(ALL_PLAYERS,BARBARIAN,1,1)
		CREATURE_AVAILABLE(ALL_PLAYERS,MONK,1,1)
			
	REM Room_Availability

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

	REM Spells
		
		MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HAND,1,1)
		MAGIC_AVAILABLE(ALL_PLAYERS,POWER_IMP,1,1)
		MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SLAP,1,1)
		MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CALL_TO_ARMS,1,0)
		MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HEAL_CREATURE,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_HOLD_AUDIENCE,1,0)


	REM  doors & traps

		DOOR_AVAILABLE(ALL_PLAYERS,WOOD,1,0)
		DOOR_AVAILABLE(ALL_PLAYERS,BRACED,1,0)
		TRAP_AVAILABLE(ALL_PLAYERS,POISON_GAS,1,0)
		DOOR_AVAILABLE(ALL_PLAYERS,STEEL,1,0)
		TRAP_AVAILABLE(ALL_PLAYERS,BOULDER,1,0)
		DOOR_AVAILABLE(ALL_PLAYERS,MAGIC,1,0)
		TRAP_AVAILABLE(ALL_PLAYERS,LIGHTNING,1,0)
		TRAP_AVAILABLE(ALL_PLAYERS,WORD_OF_POWER,1,0)
		

	REM  research order	

								 

REM :::::::::::::::::::::::::::::::::::::::SCRIPT E BIT::::::::::::::::::::::::::::::::::::::::::::::

REM		Flag List
REM		player0,flag0			~ says which of the phases we're in



REM		List of action points

REM		ap1		~		entrance to hero dungeon
REM		ap2		~		
REM		ap3		~		
REM		AP4		~		
REM		ap5		~		
REM		ap6		~		

REM		Timer List

REM 	player_GOOD,timer0 	~	   gap after invading before you are crushed
REM		player0,timer1	~	   
REM		player0,timer2	~	   
REM		player0,timer3	~	   




QUICK_OBJECTIVE(1,"Well well well, hello there. Now you're begining to be a part of story of two nobel friends. A brave archer and a young thief will survive together in cruel dungeon, full of monsters. To see the whole story, tou need to use your inagination. Takie Dela. ",PLAYER1)
QUICK_INFORMATION(2,"Two friends are going to vanish all the evil from their homeland. A young thief little bit scared, but Archer won't let his friend be afraid. They gonna make it, Right? ",PLAYER1)
QUICK_INFORMATION(3,"A bad warlocks is hiding somewhere underneath the Kingdom. Because of them people are becoming agressive, mad and sick. Two Friends can't take it anymore, and now they searching them in the dungeon. ",PLAYER1)


CREATE_PARTY(ONE)
	ADD_TO_PARTY(ONE,SPIDER,2,100,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(ONE,SPIDER,2,100,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(ONE,SPIDER,2,100,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(ONE,BUG,4,400,ATTACK_ENEMIES,0)

CREATE_PARTY(TWO)
	ADD_TO_PARTY(TWO,ORC,3,400,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TWO,DEMONSPAWN,3,200,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TWO,DEMONSPAWN,3,200,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TWO,DEMONSPAWN,4,200,ATTACK_ENEMIES,0)

CREATE_PARTY(THREE)
	ADD_TO_PARTY(THREE,FLY,3,100,ATTACK_ROOMS,0)
	ADD_TO_PARTY(THREE,FLY,3,100,ATTACK_ROOMS,0)
	ADD_TO_PARTY(THREE,FLY,3,100,ATTACK_ROOMS,0)
	ADD_TO_PARTY(THREE,BUG,3,100,ATTACK_ROOMS,0)
	ADD_TO_PARTY(THREE,BUG,3,100,ATTACK_ROOMS,0)


CREATE_PARTY(FOUR)
	ADD_TO_PARTY(FOUR,TROLL,5,150,STEAL_SPELLS,0)
	ADD_TO_PARTY(FOUR,TROLL,5,150,STEAL_SPELLS,0)
	ADD_TO_PARTY(FOUR,TROLL,5,150,STEAL_SPELLS,0)
	ADD_TO_PARTY(FOUR,TROLL,5,100,STEAL_GOLD,0)

CREATE_PARTY(FIVE)
	ADD_TO_PARTY(FIVE,SORCEROR,5,1000,DEFEND_PARTY,0)
	ADD_TO_PARTY(FIVE,SORCEROR,5,1000,STEAL_SPELLS,0)
	ADD_TO_PARTY(FIVE,DRAGON,5,1000,DEFEND_PARTY,0)
	ADD_TO_PARTY(FIVE,SORCEROR,5,1000,STEAL_SPELLS,0)
	ADD_TO_PARTY(FIVE,SORCEROR,5,1000,DEFEND_PARTY,0)
	ADD_TO_PARTY(FIVE,DRAGON,5,1000,STEAL_SPELLS,0)


CREATE_PARTY(FINALONE)
	ADD_TO_PARTY(FINALONE,ORC,5,1000,DEFEND_PARTY,0)
	ADD_TO_PARTY(FINALONE,BILE_DEMON,7,1500,DEFEND_PARTY,0)
	ADD_TO_PARTY(FINALONE,BUG,10,1000,DEFEND_PARTY,0)
	ADD_TO_PARTY(FINALONE,HELL_HOUND,7,1500,DEFEND_PARTY,0)
	ADD_TO_PARTY(FINALONE,SORCEROR,7,1500,DEFEND_PARTY,0)
	ADD_TO_PARTY(FINALONE,SORCEROR,7,1500,DEFEND_PARTY,0)

CREATE_PARTY(FINAL)
	ADD_TO_PARTY(FINAL,BUG,9,1200,DEFEND_PARTY,0)
	ADD_TO_PARTY(FINAL,BUG,9,1200,DEFEND_PARTY,0)
	ADD_TO_PARTY(FINAL,BUG,9,1200,DEFEND_PARTY,0)
	ADD_TO_PARTY(FINAL,BUG,9,1200,DEFEND_PARTY,0)
	ADD_TO_PARTY(FINAL,BUG,6,1200,DEFEND_PARTY,0)
	ADD_TO_PARTY(FINAL,BUG,6,1200,DEFEND_PARTY,0)
	ADD_TO_PARTY(FINAL,DARK_MISTRESS,9,1200,DEFEND_PARTY,0)

CREATE_PARTY(ARCHER)
	ADD_TO_PARTY(ONE,ARCHER,6,400,ATTACK_ENEMIES,0)


IF(PLAYER0,TOTAL_GOLD_MINED >= 12000)
	DISPLAY_INFORMATION(128,PLAYER0)
ENDIF

IF(PLAYER0,TOTAL_GOLD_MINED >= 15000)
	ADD_TROLL_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,-1,DUNGEON,0,2,250)
ENDIF

IF(PLAYER0,TOTAL_GOLD_MINED >= 25000)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TWO,-2,DUNGEON,0,3,250)
	SET_TIMER(PLAYER_GOOD,TIMER6)
		IF(PLAYER_GOOD,TIMER6 >= 5000)
		ADD_TROLL_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,-2,DUNGEON,0,4,300)
		ENDIF
ENDIF

IF(PLAYER0,TOTAL_GOLD_MINED >= 35000)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TWO,-2,DUNGEON,0,5,250)
	SET_TIMER(PLAYER_GOOD,TIMER7)
		IF(PLAYER_GOOD,TIMER7 >= 1500)
		ADD_TROLL_PARTY_TO_LEVEL(PLAYER_GOOD,THREE,-2,DUNGEON,0,6,250)
			IF(PLAYER_GOOD,FLY == 0)
			DISPLAY_INFORMATION(129,PLAYER0)
			SET_FLAG(PLAYER0,FLAG5,1)
			ENDIF
		ENDIF
ENDIF

IF(PLAYER0,FLAG5 == 1)
	SET_TIMER(PLAYER0,TIMER5)
ENDIF

CREATE_PARTY(TROOPA)
	ADD_TO_PARTY(TROOPA,FLY,3,200,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TROOPA,FLY,3,200,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TROOPA,FLY,3,200,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TROOPA,FLY,3,200,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TROOPA,FLY,3,200,ATTACK_ENEMIES,0)

CREATE_PARTY(TROOPB)
	ADD_TO_PARTY(TROOPB,FLY,4,100,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TROOPB,FLY,4,100,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TROOPB,FLY,4,100,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TROOPB,FLY,4,100,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TROOPB,FLY,4,100,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TROOPB,FLY,4,100,ATTACK_ENEMIES,0)

CREATE_PARTY(TROOPC)
	ADD_TO_PARTY(TROOPC,FLY,4,100,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TROOPC,FLY,4,100,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TROOPC,FLY,4,100,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TROOPC,FLY,4,100,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TROOPC,FLY,4,100,ATTACK_ENEMIES,0)	
	ADD_TO_PARTY(TROOPC,FLY,4,100,ATTACK_ENEMIES,0)

CREATE_PARTY(TROOPD)
	ADD_TO_PARTY(TROOPD,FLY,5,750,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TROOPD,FLY,5,750,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TROOPD,FLY,5,750,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TROOPD,FLY,5,750,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TROOPD,FLY,5,750,ATTACK_ENEMIES,0)

CREATE_PARTY(TROOPE)
	ADD_TO_PARTY(TROOPE,FLY,8,150,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TROOPE,FLY,8,150,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TROOPE,FLY,8,150,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TROOPE,FLY,8,150,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TROOPE,FLY,8,150,ATTACK_ENEMIES,0)

CREATE_PARTY(TROOPF)
	ADD_TO_PARTY(TROOPF,BUG,8,150,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TROOPF,BUG,8,150,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TROOPF,BUG,8,150,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TROOPF,BUG,8,150,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TROOPF,BUG,8,150,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TROOPF,BUG,8,150,ATTACK_ENEMIES,0)



IF(PLAYER0,TIMER5 >= 5000)
	IF(PLAYER0,FLAG4 == 0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TROOPA,-1,DUNGEON,0,5,300)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TROOPB,-2,DUNGEON,0,5,300)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TROOPC,-1,DUNGEON,0,5,300)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TROOPD,-2,DUNGEON,0,5,300)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TROOPE,-1,DUNGEON,0,5,300)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TROOPF,-2,DUNGEON,0,5,300)			
	ENDIF
ENDIF

IF_ACTION_POINT(1,PLAYER0)
	SET_FLAG(PLAYER0,FLAG4,1)
	DISPLAY_OBJECTIVE(131,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,FINALONE,5,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,FINAL,PLAYER_GOOD,1)
	SET_TIMER(PLAYER2,TIMER2)
	SET_FLAG(PLAYER2,FLAG0,2)
	SET_TIMER(PLAYER_GOOD,TIMER0)
		IF(PLAYER_GOOD,DARK_MISTRESS == 0)
			IF(PLAYER_GOOD,DUNGEON_DESTROYED == 1)
			WIN_GAME
			SET_FLAG(PLAYER2,FLAG2,3)
			ENDIF
		ENDIF
ENDIF

IF(PLAYER_GOOD,TOTAL_CREATURES == 0)
REM	QUICK_OBJECTIVE(3,"Nice job. But the Adventure is only begins.  ",PLAYER0)


IF(PLAYER2(FLAG2 == 2)
	IF(PLAYER2,TIMER2 >= 2500)
	NEXT_COMMAND_REUSABLE
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TWO,PLAYER_GOOD,1)
	SET_TIMER(PLAYER2,TIMER2)
	ENDIF
ENDIF


IF(PLAYER_GOOD,TIMER0 >= 10000)
	DISPLAY_INFORMATION(130,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,-1,DUNGEON,0,2,250)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TWO,-1,DUNGEON,0,2,250)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,THREE,PLAYER_GOOD,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,FOUR,PLAYER_GOOD,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,FIVE,-2,DUNGEON,0,2,250)
ENDIF

IF(PLAYER0,DUNGEON_DESTROYED == 1)
	LOSE_GAME
ENDIF


CREATE_PARTY(SIX)
	ADD_TO_PARTY(SIX,FLY,5,1250,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(SIX,FLY,5,1250,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(SIX,FLY,5,1250,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(SIX,FLY,5,1250,ATTACK_ENEMIES,0)

CREATE_PARTY(SEVEN)
	ADD_TO_PARTY(SEVEN,BUG,7,2000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(SEVEN,BUG,7,2000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(SEVEN,BUG,7,2000,ATTACK_ENEMIES,0)

IF_ACTION_POINT(2,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,SIX,-3,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,SEVEN,-4,1)
ENDIF


IF_ACTION_POINT(3,PLAYER0)
ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,SPIDER,6,6,1,100)
ENDIF

IF_ACTION_POINT(6,PLAYER0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,SPIDER,6,6,2,100)
ENDIF

IF_ACTION_POINT(1,PLAYER0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DRAGON,1,6,1,100)
ENDIF

IF_ACTION_POINT(7,PLAYER0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,SPIDER,7,6,3,100)
ENDIF

IF_ACTION_POINT(2,PLAYER0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DRAGON,2,4,1,100)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DRAGON,2,1,2,100)
ENDIF

IF_ACTION_POINT(10,PLAYER0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,SPIDER,10,4,5,100)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DRAGON,10,4,6,100)
ENDIF

IF_ACTION_POINT(5,PLAYER0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,HORNY,5,1,8,1500)
ENDIF

IF_ACTION_POINT(11,PLAYER0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BUG,11,7,8,500)
ENDIF






