REM PLAY Level 24

SET_GENERATE_SPEED(500)
MAX_CREATURES(PLAYER0,18)
START_MONEY(PLAYER0,7500)


ADD_CREATURE_TO_POOL(HELL_HOUND,11)
ADD_CREATURE_TO_POOL(TENTACLE,15)
ADD_CREATURE_TO_POOL(SORCEROR,7)
ADD_CREATURE_TO_POOL(BILE_DEMON,9)
ADD_CREATURE_TO_POOL(DARK_MISTRESS,15)
ADD_CREATURE_TO_POOL(DRAGON,5)
ADD_CREATURE_TO_POOL(VAMPIRE,3)
ADD_CREATURE_TO_POOL(ORC,30)

CREATURE_AVAILABLE(PLAYER0,HELL_HOUND,1,1)
CREATURE_AVAILABLE(PLAYER0,TENTACLE,1,1)
CREATURE_AVAILABLE(PLAYER0,SORCEROR,1,1)
CREATURE_AVAILABLE(PLAYER0,BILE_DEMON,1,1)
CREATURE_AVAILABLE(PLAYER0,DARK_MISTRESS,1,1)
CREATURE_AVAILABLE(PLAYER0,DRAGON,1,1)
CREATURE_AVAILABLE(PLAYER0,VAMPIRE,1,1)
CREATURE_AVAILABLE(PLAYER0,ORC,1,1)

ROOM_AVAILABLE(PLAYER0,TREASURE,1,1)
ROOM_AVAILABLE(PLAYER0,LAIR,1,1)
ROOM_AVAILABLE(PLAYER0,GARDEN,1,1)
ROOM_AVAILABLE(PLAYER0,TRAINING,1,1)
ROOM_AVAILABLE(PLAYER0,RESEARCH,1,1)
ROOM_AVAILABLE(PLAYER0,WORKSHOP,1,0)
ROOM_AVAILABLE(PLAYER0,BARRACKS,1,0)
ROOM_AVAILABLE(PLAYER0,GUARD_POST,1,0)
ROOM_AVAILABLE(PLAYER0,PRISON,1,0)
ROOM_AVAILABLE(PLAYER0,TORTURE,1,0)
ROOM_AVAILABLE(PLAYER0,SCAVENGER,1,0)
ROOM_AVAILABLE(PLAYER0,TEMPLE,1,0)
ROOM_AVAILABLE(PLAYER0,GRAVEYARD,1,0)


TRAP_AVAILABLE(ALL_PLAYERS,ALARM,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,POISON_GAS,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,LAVA,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)
		
MAGIC_AVAILABLE(PLAYER0,POWER_HAND,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_SLAP,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_CAVE_IN,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_SPEED,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_IMP,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_PROTECT,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_LIGHTNING,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_CONCEAL,1,0)
MAGIC_AVAILABLE(pLAYER0,POWER_DESTROY_WALLS,1,0)


REM TIMER LISTS

REM 	player0,timer0	hp9
REM		player0,timer1	hp10
REM		player0,timer2	hp11
REM		player0,timer3	hp12
REM		player0,timer4	hp13
REM		player0,timer5	hp14

REM		player0,timer6	final



CREATE_PARTY(ONE)
	ADD_TO_PARTY(ONE,THIEF,2,400,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(ONE,THIEF,2,400,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(ONE,THIEF,2,400,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(ONE,ARCHER,3,500,ATTACK_ENEMIES,0))

CREATE_PARTY(TWO)
	ADD_TO_PARTY(TWO,ARCHER,3,500,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TWO,ARCHER,3,500,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TWO,ARCHER,3,500,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TWO,ARCHER,3,500,ATTACK_ENEMIES,0)

CREATE_PARTY(THREE)
	ADD_TO_PARTY(THREE,DWARFA,3,400,DEFEND_PARTY,0)
	ADD_TO_PARTY(THREE,DWARFA,3,400,STEAL_GOLD,0)
	ADD_TO_PARTY(THREE,WITCH,5,600,ATTACK_ENEMIES,0)

CREATE_PARTY(FOUR)
	ADD_TO_PARTY(FOUR,BARBARIAN,5,600,DEFEND_PARTY,0) 
	ADD_TO_PARTY(FOUR,BARBARIAN,5,600,DEFEND_PARTY,0) 
	ADD_TO_PARTY(FOUR,GIANT,5,600,ATTACK_ROOMS,0) 		  
	ADD_TO_PARTY(FOUR,GIANT,5,600,ATTACK_ROOMS,0) 

CREATE_PARTY(FIVE)
	ADD_TO_PARTY(FIVE,WITCH,6,1000,STEAL_SPELLS,0)
	ADD_TO_PARTY(FIVE,WITCH,6,1000,STEAL_SPELLS,0)

CREATE_PARTY(SIX)
	ADD_TO_PARTY(SIX,MONK,3,1200,STEAL_GOLD,0)
	ADD_TO_PARTY(SIX,MONK,3,1200,STEAL_GOLD,0)
	ADD_TO_PARTY(SIX,MONK,3,1200,STEAL_GOLD,0)

CREATE_PARTY(XX)
	ADD_TO_PARTY(XX,BARBARIAN,5,1000,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(XX,BARBARIAN,5,1000,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(XX,BARBARIAN,5,1000,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(XX,BARBARIAN,5,1000,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(XX,BARBARIAN,5,1000,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(XX,BARBARIAN,5,1000,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(YY)
	ADD_TO_PARTY(YY,WITCH,9,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(YY,WITCH,9,1000,ATTACK_ENEMIES,0)


CREATE_PARTY(FINAL)
	ADD_TO_PARTY(FINAL,KNIGHT,6,2500,attack_dungeon_heart,0)
	ADD_TO_PARTY(FINAL,ARCHER,5,800,DEFEND_PARTY,0)
	ADD_TO_PARTY(FINAL,ARCHER,5,800,DEFEND_PARTY,0)
	ADD_TO_PARTY(FINAL,ARCHER,5,800,DEFEND_PARTY,0)
	ADD_TO_PARTY(FINAL,ARCHER,5,800,DEFEND_PARTY,0)

rem  CREATE_TEXT(0,"THE HEROES NO OF YOUR LOCATION AND HAVE MOVED QUICKLY TO MOBILISE FORCES AGAINST YOU. THIS SHOULD TEST YOUR METTLE.")	
	DISPLAY_OBJECTIVE(122,PLAYER0)
rem  CREATE_TEXT(1,"THE EARL OF THE LAND LEADS HIS REMAINING GOOD DISCIPELS AGAINST YOU, PREPARE THE CHAMBER.")
rem  CREATE_TEXT(2,"THE HEROES ON THIS LEVEL HOLD OBJECTS WHICH MAY BE OF SOME INTEREST TO YOU AT THEIR GUARDPOSTS. THE PRIZES AT STAKE MAY WELL BE WORTH THE RESISTANCE YOU FACE.")

IF(PLAYER0,GAME_TURN >= 8500)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,-4,DUNGEON,0,1,250)
ENDIF

IF(PLAYER0,GAME_TURN >= 9000)
	DISPLAY_INFORMATION(124,PLAYER0)
ENDIF
IF(PLAYER0,GAME_TURN >= 10050)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,THREE,-2,DUNGEON,0,1,250)
ENDIF

IF(PLAYER0,GAME_TURN >= 11500)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,-3,DUNGEON,0,1,250)
ENDIF

IF(PLAYER0,GAME_TURN >= 13250)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,TWO,-6,DUNGEON,0,1,250)
ENDIF

IF(PLAYER0,GAME_TURN >= 15500)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,-5,DUNGEON,0,1,250)
ENDIF

IF(PLAYER0,GAME_TURN >= 17050)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,THREE,-5,DUNGEON,0,1,250)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,FIVE,-4,DUNGEON,0,1,250)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,SIX,-3,DUNGEON,0,1,250)
ENDIF

IF(PLAYER0,GAME_TURN >= 18500)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,-1,DUNGEON,0,1,250)
ENDIF

IF(PLAYER0,GAME_TURN >= 20000)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,FOUR,-1,DUNGEON,0,1,250)
ENDIF

IF(PLAYER0,GAME_TURN >= 22500)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,-6,DUNGEON,0,1,250)
ENDIF

IF(PLAYER0,GAME_TURN >=32000)
	ADD_tunneller_PARTY_TO_LEVEL(PLAYER_GOOD,XX,-7,dungeon,0,6,250)
	ADD_tunneller_PARTY_TO_LEVEL(PLAYER_GOOD,YY,-7,dungeon,0,6,250)
	ADD_tunneller_PARTY_TO_LEVEL(PLAYER_GOOD,FINAL,-7,dungeon,0,6,250)
		IF(PLAYER_GOOD,KNIGHT == 0)
			WIN_GAME
		ENDIF
ENDIF
							   

IF(PLAYER0,DUNGEON_DESTROYED == 1)
	LOSE_GAME
ENDIF
