LEVEL_VERSION(1)
SET_GENERATE_SPEED(400)
START_MONEY(ALL_PLAYERS,5000)
MAX_CREATURES(ALL_PLAYERS,6)

COMPUTER_PLAYER(PLAYER3,0)

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,RESEARCH,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,BRIDGE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,WORKSHOP,1,0)

MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HAND,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SLAP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_POSSESS,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_IMP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CAVE_IN,1,0)

TRAP_AVAILABLE(ALL_PLAYERS,BOULDER,1,0)

DOOR_AVAILABLE(ALL_PLAYERS,WOOD,1,0)

QUICK_OBJECTIVE(0,"LOGRAS: Greetings to all! And if any of you fell in the last battle... know that my hand has pulled you back from the abyss. So guard your sorcerer well.",PLAYER0)

REM --------------------------- New rooms


REM --------------------------- Stream

IF(PLAYER3,DUNGEON_DESTROYED == 1)
	CHANGE_SLAB_TYPE(49,33,LAVA)
	CHANGE_SLAB_TYPE(50,33,LAVA)
	CHANGE_SLAB_TYPE(51,33,LAVA)
	CHANGE_SLAB_TYPE(52,33,LAVA)
	CHANGE_SLAB_TYPE(52,34,LAVA)
	CHANGE_SLAB_TYPE(53,34,LAVA)
	CHANGE_SLAB_TYPE(54,34,LAVA)
	CHANGE_SLAB_TYPE(55,34,LAVA)

	QUICK_OBJECTIVE(1,"LOGRAS: Believe it or not, this fool and I studied together at the Arcane Academy. Did you have to pick the most absurd lair for your little Underworld? This is what happens when you lick the Moth's boots!",PLAYER0)
	SET_TIMER(PLAYER0,TIMER0)
	IF(PLAYER0,TIMER0 >= 200)
		QUICK_OBJECTIVE(2,"LOGRAS: Remember Professor Eldrin's lectures? He'd weep seeing you now.",PLAYER0)
        ENDIF
ENDIF

IF_SLAB_OWNER(7,45,PLAYER0)
	CHANGE_SLAB_TYPE(67,40,PATH)
ENDIF

IF(PLAYER_GOOD,THIEF < 1)
	CHANGE_SLAB_TYPE(76,33,PATH)
	CHANGE_SLAB_TYPE(76,34,PATH)
	CHANGE_SLAB_TYPE(75,34,PATH)
	CHANGE_SLAB_TYPE(75,35,PATH)
	CHANGE_SLAB_TYPE(74,35,PATH)
	CHANGE_SLAB_TYPE(73,35,PATH)
	CHANGE_SLAB_TYPE(73,36,PATH)
	CHANGE_SLAB_TYPE(73,37,PATH)
ENDIF

IF_SLAB_TYPE(24,69,PATH)
	QUICK_OBJECTIVE(3,"LOGRAS: Surely, the cunning foe has more in store for us than this... No... Something reeks of deceit!",PLAYER0)
ENDIF

IF(PLAYER_GOOD,DUNGEON_DESTROYED == 1)
	CHANGE_SLAB_TYPE(68,68,PATH)
	CHANGE_SLAB_TYPE(68,70,PATH)
ENDIF

CREATE_PARTY(HEROES_01)
ADD_TO_PARTY(HEROES_01,FAIRY,10,2000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(HEROES_01,FAIRY,10,2000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(HEROES_01,FAIRY,10,2000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(HEROES_01,FAIRY,10,2000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(HEROES_01,FAIRY,10,2000,ATTACK_DUNGEON_HEART,0)

REM --------------------------- Logras dead and win

IF(PLAYER0,SORCEROR < 1)
	QUICK_OBJECTIVE(100,"Oh no! My mission!..",PLAYER0)
	LOSE_GAME
ENDIF

IF(PLAYER_GOOD,TOTAL_CREATURES == 0)
	QUICK_OBJECTIVE(101,"LOGRAS: Seems like the Moth's lackeys lost a few dozen heads today.",PLAYER0)
	SET_TIMER(PLAYER0,TIMER0)
	IF(PLAYER0,TIMER0 >= 200)
		QUICK_OBJECTIVE(102,"BORZUM: A mere fraction of his swarm. The true battle awaits.",PLAYER0)
		WIN_GAME
	ENDIF
ENDIF