LEVEL_VERSION(1)

REM PLAY Level 802 Hells Castle 2.0

SET_GENERATE_SPEED(500)

MAX_CREATURES(PLAYER0,16)
MAX_CREATURES(PLAYER1,32)

START_MONEY(PLAYER0,25000)
START_MONEY(PLAYER1,3460000)

COMPUTER_PLAYER(PLAYER1,0)
 		SET_COMPUTER_CHECKS(PLAYER1,"CHECK FOR NEUTRAL PLACES",15000,0,0,0,195000)
REM																CheckEvery	AttackPercent	CTADuration	MinForAttack	LastCheck
		SET_COMPUTER_CHECKS(PLAYER1,"CHECK FOR QUICK ATTACK",	700,		70,				3000,		8,				122500)
		SET_COMPUTER_PROCESS(PLAYER1,"ATTACK SAFE ATTACK",-1,100,335,100,0)
		SET_COMPUTER_PROCESS(PLAYER1,"ATTACK PLAN 1",-1,100,335,100,0)
		SET_COMPUTER_PROCESS(PLAYER1,"ATTACK PLAN 1",-1,100,335,100,0)

IF(PLAYER0,GRAVEYARD >= 1)
ADD_CREATURE_TO_POOL(VAMPIRE,5)
ENDIF


REM ALL PLAYERS

ADD_CREATURE_TO_POOL(DARK_MISTRESS,20)
ADD_CREATURE_TO_POOL(SORCEROR,20)
ADD_CREATURE_TO_POOL(BILE_DEMON,20)
ADD_CREATURE_TO_POOL(DRAGON,18)
ADD_CREATURE_TO_POOL(GIANT, 15)
ADD_CREATURE_TO_POOL(BARBARIAN, 15)
ADD_CREATURE_TO_POOL(WIZARD, 15)
ADD_CREATURE_TO_POOL(MONK, 15)
ADD_CREATURE_TO_POOL(ARCHER, 15)
ADD_CREATURE_TO_POOL(KNIGHT, 3)


	REM Creature_Availability

		CREATURE_AVAILABLE(ALL_PLAYERS,DARK_MISTRESS,1,1)
		CREATURE_AVAILABLE(ALL_PLAYERS,SORCEROR,1,1)
		CREATURE_AVAILABLE(ALL_PLAYERS,BILE_DEMON,1,1)
		CREATURE_AVAILABLE(ALL_PLAYERS,DRAGON,1,1)
		CREATURE_AVAILABLE(ALL_PLAYERS, GIANT, 1, 1)
		CREATURE_AVAILABLE(ALL_PLAYERS, BARBARIAN, 1, 1)
		CREATURE_AVAILABLE(ALL_PLAYERS, WIZARD, 1, 1)
		CREATURE_AVAILABLE(ALL_PLAYERS, MONK, 1, 1)
		CREATURE_AVAILABLE(ALL_PLAYERS, ARCHER, 1, 1)
		CREATURE_AVAILABLE(PLAYER0, KNIGHT, 1, 1)
		CREATURE_AVAILABLE(PLAYER0, VAMPIRE, 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(PLAYER1,BRIDGE,1,1)
		ROOM_AVAILABLE(ALL_PLAYERS,PRISON,1,0)
		ROOM_AVAILABLE(ALL_PLAYERS,TORTURE,1,0)
		ROOM_AVAILABLE(ALL_PLAYERS,TEMPLE,1,0)
		ROOM_AVAILABLE(PLAYER0,BRIDGE,3,0)
		ROOM_AVAILABLE(PLAYER0,GRAVEYARD,3,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_SIGHT,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_HEAL_CREATURE,1,0)
		MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
		MAGIC_AVAILABLE(PLAYER1,POWER_LIGHTNING,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_CAVE_IN,1,0)
		MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CHICKEN,1,0)


	REM  doors & traps

		TRAP_AVAILABLE(ALL_PLAYERS,POISON_GAS,1,0)
		DOOR_AVAILABLE(ALL_PLAYERS,STEEL,1,0)
		TRAP_AVAILABLE(PLAYER0,BOULDER,1,0)
		DOOR_AVAILABLE(ALL_PLAYERS,MAGIC,1,5)
		TRAP_AVAILABLE(ALL_PLAYERS,LIGHTNING,1,0)
		TRAP_AVAILABLE(ALL_PLAYERS,WORD_OF_POWER,1,0)
		

	REM  research order	

rem CREATE_TEXT(0,134"YOUR FIRST MISSION HERE IS TO CAPTURE THE HEAVILY GUARDED BRIDGE INSIDE THE AVATARS CASTLE. FIND A WAY THEN THE AVATAR JOINS UR FIGHT OR U WILL BE CRUSHED. A RIVAL KEEPER AWAITS YOU FOR THE CROWN OF THE MOST EVIL.")
rem CREATE_TEXT(1,135"WELL DONE,YOU HAVE DESTROYED THE AVATAR'S CASTLE, BUT YOUR RIVAL HAS ALREADY MADE OFF WITH THE CAPTURED AVATAR.ONLY THE MOST EVIL OF DUNGEON KEEPER'S CAN KILL THE AVATAR. PROVE YOUR WORTH, RAMSACK YOUR RIVALS CASTLE AND KILL THE AVATAR")
rem CREATE_TEXT(2,136"THE AVATAR IS DEAD BUT NOT BURIED, HE HAS RESSURECTED HIMSELF IN A HIDDEN HERO STRONGHOLD AND IS ENTHUSING HIS ARMIES TO DESTROY YOUR DUNGEON. THIS NOW IS THE ULTIMATE BATTLE BETWEEN GOOD AND EVIL, THERE CAN ONLY BE ONE SURVIVOR.")

DISPLAY_OBJECTIVE(134,PLAYER0)

CREATE_PARTY(RPG)
	ADD_TO_PARTY(RPG,WIZARD,10,300,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(RPG,BARBARIAN,10,300,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(RPG,KNIGHT,10,300,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(RPG,WITCH,10,300,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(BIG_BOY)
	ADD_TO_PARTY(BIG_BOY,AVATAR,10,300,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(BRUTES)
	ADD_TO_PARTY(BRUTES,GIANT,10,500,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(BRUTES,GIANT,10,500,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(BRUTES,BARBARIAN,10,500,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(BRUTES,BARBARIAN,10,500,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(MAGIC)
	ADD_TO_PARTY(MAGIC,WIZARD,10,550,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(MAGIC,FAIRY,10,550,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(MAGIC,WITCH,10,550,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(MAGIC,SAMURAI,10,550,ATTACK_DUNGEON_HEART,0)


CREATE_PARTY(DWARF)
	ADD_TO_PARTY(DWARF,DWARFA,9,650,STEAL_GOLD,0)
	ADD_TO_PARTY(DWARF,DWARFA,9,650,STEAL_GOLD,0)
	ADD_TO_PARTY(DWARF,THIEF,9,3000,STEAL_GOLD,0)
	ADD_TO_PARTY(DWARF,THIEF,9,3000,STEAL_GOLD,0)

IF(PLAYER_GOOD,DUNGEON_DESTROYED == 1)
	SET_FLAG(PLAYER_GOOD,FLAG0,1)
	DISPLAY_OBJECTIVE(135,PLAYER_GOOD)
	ADD_CREATURE_TO_LEVEL(PLAYER1,VAMPIRE,PLAYER1,1,10,0)
ENDIF

IF(PLAYER_GOOD,AVATAR == 0)
	DISPLAY_OBJECTIVE(136,PLAYER0)
	SET_FLAG(PLAYER_GOOD,FLAG1,1)
	SET_TIMER(PLAYER_GOOD,TIMER0)
	ROOM_AVAILABLE(PLAYER0,BRIDGE,1,1)
ENDIF

IF(PLAYER_GOOD,FLAG1 == 1)
	IF(PLAYER_GOOD,TIMER0 >= 1000)
		ADD_PARTY_TO_LEVEL(PLAYER_GOOD,MAGIC,-1,1)
		ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,BRUTES,-2,DUNGEON,1,10,100)
		ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,DWARF,-3,DUNGEON,1,10,100)
		ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,DWARF,-6,DUNGEON,1,10,100)
		ADD_PARTY_TO_LEVEL(PLAYER_GOOD,BRUTES,1,1)
		ADD_PARTY_TO_LEVEL(PLAYER_GOOD,MAGIC,2,1)
		ADD_PARTY_TO_LEVEL(PLAYER_GOOD,BRUTES,4,1)
		ADD_PARTY_TO_LEVEL(PLAYER_GOOD,DWARF,3,1)
	ENDIF
	IF(PLAYER_GOOD,TIMER0 >= 1133)
		ADD_PARTY_TO_LEVEL(PLAYER_GOOD,DWARF,3,1)
		SET_FLAG(PLAYER_GOOD,FLAG2,1)
	ENDIF
	IF(PLAYER_GOOD,TIMER0 >= 1366)
		ADD_PARTY_TO_LEVEL(PLAYER_GOOD,DWARF,3,1)
		SET_FLAG(PLAYER_GOOD,FLAG2,1)
	ENDIF
	IF(PLAYER_GOOD,TIMER0 >= 1466)
		ADD_PARTY_TO_LEVEL(PLAYER_GOOD,DWARF,3,1)
		SET_FLAG(PLAYER_GOOD,FLAG2,1)
	ENDIF
	IF(PLAYER_GOOD,TIMER0 >= 1600)
		ADD_PARTY_TO_LEVEL(PLAYER_GOOD,RPG,3,1)
		ADD_PARTY_TO_LEVEL(PLAYER_GOOD,BIG_BOY,3,1)
		ADD_PARTY_TO_LEVEL(PLAYER_GOOD,MAGIC,2,1)
		ADD_PARTY_TO_LEVEL(PLAYER_GOOD,BRUTES,4,1)
		SET_FLAG(PLAYER_GOOD,FLAG2,1)
	ENDIF
ENDIF 


IF(PLAYER_GOOD,FLAG2 == 1)
		IF(PLAYER_GOOD,AVATAR == 0)
			IF(PLAYER1,DUNGEON_DESTROYED == 1)
			WIN_GAME
			ENDIF
		ENDIF
ENDIF

						  

					  