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

ROOM_AVAILABLE(ALL_PLAYERS,TREASURE,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,LAIR,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,GARDEN,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: My name is Logras. I am a sorcerer. And I have a great mission assigned to me. I have to destroy the evil necromancer named Moth. But first, I need to find my old friends who may have been victims of imprisonment...",PLAYER0)


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

IF(PLAYER0,BRIDGE >= 1)
	ROOM_AVAILABLE(PLAYER0,BRIDGE,1,1)
ENDIF

IF(PLAYER0,RESEARCH >= 1)
	ROOM_AVAILABLE(PLAYER0,RESEARCH,1,1)
	QUICK_OBJECTIVE(1,"LOGRAS: The library! It shall aid me in mastering new incantations!",PLAYER0)
ENDIF

REM --------------------------- New creatures

IF(PLAYER0,TROLL == 1)
	QUICK_OBJECTIVE(2,"LOGRAS: Cobald, old friend! You've been rotting away in this cave for ages!",PLAYER0)
ENDIF

IF(PLAYER0,ORC == 1)
	QUICK_OBJECTIVE(3,"LOGRAS: Ah, here comes Borzum, the fearless orc! I see you haven't been idle.",PLAYER0)
ENDIF

IF(PLAYER0,SKELETON == 1)
	QUICK_OBJECTIVE(4,"LOGRAS: Shimmer! Good to see you, mate! But, you've lost a lot of weight.",PLAYER0)
ENDIF

IF(PLAYER0,HELL_HOUND == 1)
	QUICK_OBJECTIVE(5,"LOGRAS: Ergerda, my faithful hellhound! As swift and willful as ever!",PLAYER0)
ENDIF

REM --------------------------- Other

IF_SLAB_TYPE(28,62,PATH)
	QUICK_OBJECTIVE(6,"COBALD: Before the minions of the Moth captured me, I managed to make hiding places in which traps are stored. To overcome our foes, we must find them.",PLAYER0)
ENDIF

IF(PLAYER0,KNIGHT == 1)
	QUICK_OBJECTIVE(7,"AZAGLOTH: I am Azagloth, the Oathbreaker Knight! I've heard of you, sorcerer. You seek the Moth to deliver judgment. My blade thirsts for the same prey. I will join your hunt.",PLAYER0)
	SET_TIMER(PLAYER0,TIMER0)
	IF(PLAYER0,TIMER0 >= 200)
		QUICK_OBJECTIVE(8,"LOGRAS: Well met, Azagloth! Now you stand as one of us!",PLAYER0)
	ENDIF
ENDIF

IF_SLAB_TYPE(48,21,PATH)
	CHANGE_SLAB_TYPE(64,27,PATH)
ENDIF

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

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

IF(PLAYER_GOOD,DUNGEON_DESTROYED == 1)
	IF(PLAYER_GOOD,TOTAL_CREATURES == 0)
		QUICK_OBJECTIVE(101,"LOGRAS: Never thought we'd crush the Moth's lackeys with mere boulders! Yet here we stand - thanks to your unsubtle methods, Cobald!",PLAYER0)
		WIN_GAME
	ENDIF
ENDIF