REM 	SET_TIMER(PLAYER0,TIMER1)	LOOP: Schatzsucher
REM		SET_TIMER(PLAYER0,TIMER2)	Imp-Tutorial
REM		SET_TIMER(PLAYER0,TIMER3)	Zwerg-Delay
REM		SET_TIMER(PLAYER0,TIMER4)	(unbenutzt)
REM		SET_TIMER(PLAYER0,TIMER5)	LOOP: Ritter

LEVEL_VERSION(1)

SET_GENERATE_SPEED(300)
MAX_CREATURES(PLAYER0,0)
START_MONEY(PLAYER0,1017)
SET_MUSIC(6) REM Standard-Song

RUN_AFTER_VICTORY(1)
SET_GAME_RULE(ImpWorkExperience,1)
SET_GAME_RULE(DisplayPortalLimit,1)
SET_GAME_RULE(ScavengeNeutralAllowed,0)
SET_GAME_RULE(BodiesForVampire,20) REM Standard: 10
SET_CREATURE_PROPERTY(SPIDER,NO_IMPRISONMENT,1)
SET_CREATURE_PROPERTY(DARK_MISTRESS,NO_IMPRISONMENT,1)


ADD_CREATURE_TO_POOL(FLY,20)
ADD_CREATURE_TO_POOL(BUG,20)
ADD_CREATURE_TO_POOL(DEMONSPAWN,20)
ADD_CREATURE_TO_POOL(TROLL,20)
ADD_CREATURE_TO_POOL(SPIDER,20)
ADD_CREATURE_TO_POOL(SORCEROR,20)
ADD_CREATURE_TO_POOL(ORC,20)
ADD_CREATURE_TO_POOL(DARK_MISTRESS,20)
ADD_CREATURE_TO_POOL(TENTACLE,20)
ADD_CREATURE_TO_POOL(HELL_HOUND,20)
ADD_CREATURE_TO_POOL(DRAGON,20)
ADD_CREATURE_TO_POOL(BILE_DEMON,20)

CREATURE_AVAILABLE(PLAYER0,FLY,1,1)
CREATURE_AVAILABLE(PLAYER0,BUG,1,1)
CREATURE_AVAILABLE(PLAYER0,DEMONSPAWN,1,0)
CREATURE_AVAILABLE(PLAYER0,TROLL,1,0)
CREATURE_AVAILABLE(PLAYER0,HELL_HOUND,1,0)
CREATURE_AVAILABLE(PLAYER0,TENTACLE,1,0)
CREATURE_AVAILABLE(PLAYER0,SORCEROR,1,0)
CREATURE_AVAILABLE(PLAYER0,ORC,1,0)

CREATURE_AVAILABLE(PLAYER0,DRAGON,0,0)
CREATURE_AVAILABLE(PLAYER0,SPIDER,0,0)
CREATURE_AVAILABLE(PLAYER0,BILE_DEMON,0,0)
CREATURE_AVAILABLE(PLAYER0,DARK_MISTRESS,0,0)

MAGIC_AVAILABLE(PLAYER0,POWER_POSSESS,0,0)
MAGIC_AVAILABLE(PLAYER0,POWER_IMP,0,0)
MAGIC_AVAILABLE(PLAYER0,POWER_SLAP,1,1)


REM ***** SETUP HELD *****
REM --- Edelstein abgraben
SET_COMPUTER_PROCESS(PLAYER1,"DIG TO CLOSE GOLD",0,10000000000,10000000000,5,20)

REM COMPUTER_PLAYER(PLAYER_GOOD,0)
MAGIC_AVAILABLE(PLAYER_GOOD,POWER_HAND,0,0)
MAGIC_AVAILABLE(PLAYER_GOOD,POWER_SLAP,0,0)
MAGIC_AVAILABLE(PLAYER_GOOD,POWER_HOLD_AUDIENCE,1,1)
MAGIC_AVAILABLE(PLAYER_GOOD,POWER_CHICKEN,0,0)


REM ***** SETUP PARTYS *****
CREATE_PARTY(SCHATZSUCHER1)
ADD_TO_PARTY(SCHATZSUCHER1,DWARFA,6,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(SCHATZSUCHER1,ARCHER,5,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(SCHATZSUCHER1,ARCHER,5,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(SCHATZSUCHER1,MONK,4,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(SCHATZSUCHER1,WIZARD,4,0,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(SCHATZSUCHER2)
ADD_TO_PARTY(SCHATZSUCHER2,DWARFA,8,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(SCHATZSUCHER2,ARCHER,7,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(SCHATZSUCHER2,ARCHER,7,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(SCHATZSUCHER2,MONK,6,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(SCHATZSUCHER2,WIZARD,6,0,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(SCHATZSUCHER3)
ADD_TO_PARTY(SCHATZSUCHER3,DWARFA,10,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(SCHATZSUCHER3,ARCHER,9,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(SCHATZSUCHER3,ARCHER,9,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(SCHATZSUCHER3,MONK,8,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(SCHATZSUCHER3,WIZARD,8,0,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(RITTER)
ADD_TO_PARTY(RITTER,KNIGHT,9,1000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(RITTER,WITCH,8,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(RITTER,SAMURAI,9,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(RITTER,MONK,10,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(RITTER,WIZARD,10,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(RITTER,ARCHER,8,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(RITTER,ARCHER,8,0,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(AVATAR1)
ADD_TO_PARTY(AVATAR1,AVATAR,10,2000,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(AVATAR1,TIME_MAGE,10,500,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(AVATAR1,WIZARD,10,500,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(AVATAR1,SAMURAI,10,500,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(AVATAR1,SAMURAI,10,500,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(AVATAR1,MONK,10,500,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(AVATAR1,MONK,10,500,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(AVATAR2)
ADD_TO_PARTY(AVATAR2,AVATAR,10,20000,DEFEND_PARTY,0)
ADD_TO_PARTY(AVATAR2,KNIGHT,10,4000,DEFEND_PARTY,0)
ADD_TO_PARTY(AVATAR2,KNIGHT,10,4000,DEFEND_PARTY,0)
ADD_TO_PARTY(AVATAR2,KNIGHT,10,4000,DEFEND_PARTY,0)
ADD_TO_PARTY(AVATAR2,TIME_MAGE,10,500,DEFEND_PARTY,0)
ADD_TO_PARTY(AVATAR2,WIZARD,10,500,DEFEND_PARTY,0)
ADD_TO_PARTY(AVATAR2,SAMURAI,10,500,DEFEND_PARTY,0)


REM *****                               ****
REM *****  Foltern verraet keine Infos  ****
REM *****                               ****
SET_GAME_RULE(TortureConvertChance,100) REM Standard: 33
REM Alle Werte x3, Avatar mehr als normal
SET_CREATURE_CONFIGURATION(IMP,TortureTime,150)
SET_CREATURE_CONFIGURATION(FLY,TortureTime,2250)
SET_CREATURE_CONFIGURATION(BUG,TortureTime,3000)
SET_CREATURE_CONFIGURATION(DEMONSPAWN,TortureTime,3000)
SET_CREATURE_CONFIGURATION(TROLL,TortureTime,3000)
SET_CREATURE_CONFIGURATION(SPIDER,TortureTime,3000)
SET_CREATURE_CONFIGURATION(SORCEROR,TortureTime,2250)
SET_CREATURE_CONFIGURATION(ORC,TortureTime,3000)
SET_CREATURE_CONFIGURATION(DARK_MISTRESS,TortureTime,9000)
SET_CREATURE_CONFIGURATION(TENTACLE,TortureTime,3000)
SET_CREATURE_CONFIGURATION(HELL_HOUND,TortureTime,3000)
SET_CREATURE_CONFIGURATION(DRAGON,TortureTime,3000)
SET_CREATURE_CONFIGURATION(BILE_DEMON,TortureTime,3000)
SET_CREATURE_CONFIGURATION(DRUID,TortureTime,1500)
SET_CREATURE_CONFIGURATION(SKELETON,TortureTime,3000)
SET_CREATURE_CONFIGURATION(GHOST,TortureTime,3000)
SET_CREATURE_CONFIGURATION(VAMPIRE,TortureTime,6000)
SET_CREATURE_CONFIGURATION(HORNY,TortureTime,9000)

SET_CREATURE_CONFIGURATION(TUNNELLER,TortureTime,3000)
SET_CREATURE_CONFIGURATION(WITCH,TortureTime,3000)
SET_CREATURE_CONFIGURATION(MONK,TortureTime,3000)
SET_CREATURE_CONFIGURATION(ARCHER,TortureTime,3000)
SET_CREATURE_CONFIGURATION(WIZARD,TortureTime,3000)
SET_CREATURE_CONFIGURATION(TIME_MAGE,TortureTime,3600)
SET_CREATURE_CONFIGURATION(FAIRY,TortureTime,3000)
SET_CREATURE_CONFIGURATION(GIANT,TortureTime,3000)
SET_CREATURE_CONFIGURATION(THIEF,TortureTime,300)
SET_CREATURE_CONFIGURATION(DWARFA,TortureTime,3000)
SET_CREATURE_CONFIGURATION(BARBARIAN,TortureTime,3000)
SET_CREATURE_CONFIGURATION(SAMURAI,TortureTime,6000)
SET_CREATURE_CONFIGURATION(KNIGHT,TortureTime,6000)
SET_CREATURE_CONFIGURATION(AVATAR,TortureTime,15000)

REM *****   Start-Felder *****
IF_SLAB_OWNER(1,116,PLAYER0)
	CHANGE_SLAB_TEXTURE(1,116,13,NONE)
ENDIF
IF_SLAB_OWNER(2,116,PLAYER0)
	CHANGE_SLAB_TEXTURE(2,116,13,NONE)
ENDIF
IF_SLAB_OWNER(2,117,PLAYER0)
	CHANGE_SLAB_TEXTURE(2,117,13,NONE)
ENDIF
IF_SLAB_OWNER(3,117,PLAYER0)
	CHANGE_SLAB_TEXTURE(3,117,13,NONE)
ENDIF
IF_SLAB_OWNER(3,118,PLAYER0)
	CHANGE_SLAB_TEXTURE(3,118,13,NONE)
ENDIF
IF_SLAB_OWNER(13,113,PLAYER0)
	CHANGE_SLAB_TEXTURE(14,113,1,NONE)
    CHANGE_SLAB_TYPE(14,113,PRETTY_PATH)
ENDIF
IF_SLAB_OWNER(14,112,PLAYER0)
	CHANGE_SLAB_TEXTURE(14,113,1,NONE)
    CHANGE_SLAB_TYPE(14,113,PRETTY_PATH)
ENDIF
IF_SLAB_OWNER(14,113,PLAYER0)
	CHANGE_SLAB_TEXTURE(15,113,1,NONE)
    CHANGE_SLAB_TYPE(15,113,PRETTY_PATH)
	CHANGE_SLAB_TEXTURE(14,114,1,NONE)
    CHANGE_SLAB_TYPE(14,114,PRETTY_PATH)
ENDIF
IF_SLAB_OWNER(16,113,PLAYER0)
	CHANGE_SLAB_TEXTURE(15,113,1,NONE)
    CHANGE_SLAB_TYPE(15,113,PRETTY_PATH)
	CHANGE_SLAB_TEXTURE(16,114,1,NONE)
    CHANGE_SLAB_TYPE(16,114,PRETTY_PATH)
ENDIF
IF_SLAB_OWNER(15,113,PLAYER0)
	CHANGE_SLAB_TEXTURE(14,113,1,NONE)
    CHANGE_SLAB_TYPE(14,113,PRETTY_PATH)
	CHANGE_SLAB_TEXTURE(16,113,1,NONE)
    CHANGE_SLAB_TYPE(16,113,PRETTY_PATH)
ENDIF
IF_SLAB_OWNER(15,114,PLAYER0)
	CHANGE_SLAB_TEXTURE(16,114,1,NONE)
    CHANGE_SLAB_TYPE(16,114,PRETTY_PATH)
	CHANGE_SLAB_TEXTURE(15,113,1,NONE)
    CHANGE_SLAB_TYPE(15,113,PRETTY_PATH)
	CHANGE_SLAB_TEXTURE(15,115,1,NONE)
    CHANGE_SLAB_TYPE(15,115,PRETTY_PATH)
	CHANGE_SLAB_TEXTURE(14,114,1,NONE)
    CHANGE_SLAB_TYPE(14,114,PRETTY_PATH)
ENDIF
IF_SLAB_OWNER(16,114,PLAYER0)
	CHANGE_SLAB_TEXTURE(16,113,1,NONE)
    CHANGE_SLAB_TYPE(16,113,PRETTY_PATH)
	CHANGE_SLAB_TEXTURE(16,115,1,NONE)
    CHANGE_SLAB_TYPE(16,115,PRETTY_PATH)
ENDIF
IF_SLAB_OWNER(13,114,PLAYER0)
	CHANGE_SLAB_TEXTURE(14,114,1,NONE)
    CHANGE_SLAB_TYPE(14,114,PRETTY_PATH)
ENDIF
IF_SLAB_OWNER(14,115,PLAYER0)
	CHANGE_SLAB_TEXTURE(14,114,1,NONE)
    CHANGE_SLAB_TYPE(14,114,PRETTY_PATH)
	CHANGE_SLAB_TEXTURE(15,115,1,NONE)
    CHANGE_SLAB_TYPE(15,115,PRETTY_PATH)
ENDIF
IF_SLAB_OWNER(15,115,PLAYER0)
	CHANGE_SLAB_TEXTURE(16,115,1,NONE)
    CHANGE_SLAB_TYPE(16,115,PRETTY_PATH)
ENDIF
IF_SLAB_OWNER(16,115,PLAYER0)
	CHANGE_SLAB_TEXTURE(15,115,1,NONE)
    CHANGE_SLAB_TYPE(15,115,PRETTY_PATH)
	CHANGE_SLAB_TEXTURE(16,114,1,NONE)
    CHANGE_SLAB_TYPE(16,114,PRETTY_PATH)
ENDIF
IF_SLAB_OWNER(16,116,PLAYER0)
	CHANGE_SLAB_TEXTURE(16,115,1,NONE)
    CHANGE_SLAB_TYPE(16,115,PRETTY_PATH)
ENDIF
IF_SLAB_OWNER(15,116,PLAYER0)
	CHANGE_SLAB_TEXTURE(15,115,1,NONE)
    CHANGE_SLAB_TYPE(15,115,PRETTY_PATH)
ENDIF
IF_SLAB_OWNER(16,112,PLAYER0)
	CHANGE_SLAB_TEXTURE(16,113,1,NONE)
    CHANGE_SLAB_TYPE(16,113,PRETTY_PATH)
ENDIF
IF_SLAB_OWNER(15,112,PLAYER0)
	CHANGE_SLAB_TEXTURE(15,113,1,NONE)
    CHANGE_SLAB_TYPE(15,113,PRETTY_PATH)
ENDIF
IF_SLAB_OWNER(14,114,PLAYER0)
	CHANGE_SLAB_TEXTURE(14,113,1,NONE)
    CHANGE_SLAB_TYPE(14,113,PRETTY_PATH)
ENDIF
IF_SLAB_OWNER(17,113,PLAYER0)
	CHANGE_SLAB_TEXTURE(16,113,1,NONE)
    CHANGE_SLAB_TYPE(16,113,PRETTY_PATH)
ENDIF
IF_SLAB_OWNER(17,114,PLAYER0)
	CHANGE_SLAB_TEXTURE(16,114,1,NONE)
    CHANGE_SLAB_TYPE(16,114,PRETTY_PATH)
ENDIF
IF_SLAB_OWNER(17,115,PLAYER0)
	CHANGE_SLAB_TEXTURE(16,115,1,NONE)
    CHANGE_SLAB_TYPE(16,115,PRETTY_PATH)
ENDIF

REM *****   Quest-Sound   *****
IF(PLAYER_NEUTRAL,FLAG1 > 0)
	NEXT_COMMAND_REUSABLE
	PLAY_MESSAGE(PLAYER0,SOUND,874)		REM flare1.wav
	NEXT_COMMAND_REUSABLE
	PLAY_MESSAGE(PLAYER0,SOUND,943)		REM stars.wav
	NEXT_COMMAND_REUSABLE
	PLAY_MESSAGE(PLAYER0,SOUND,944)		REM stars2.wav
	NEXT_COMMAND_REUSABLE
	PLAY_MESSAGE(PLAYER0,SOUND,116)		REM takeover.wav
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER_NEUTRAL,FLAG1,0)
ENDIF

REM *****   DH-Sequenz    *****
SET_TIMER(PLAYER0,TIMER2)
CREATE_EFFECT(45,PLAYER0)			REM explosion6
CREATE_EFFECT(14,PLAYER0)			REM word of power
CREATE_EFFECT(46,PLAYER0)			REM sprangle red big

SET_HEART_HEALTH(PLAYER0,1)
PLAY_MESSAGE(PLAYER0,SOUND,43)		REM fireball.wav
PLAY_MESSAGE(PLAYER0,SOUND,47)		REM explode.wav
PLAY_MESSAGE(PLAYER0,SOUND,49)		REM freeze.wav
IF(PLAYER0,TIMER2 >= 50)
	SET_HEART_HEALTH(PLAYER0,1000)
ENDIF
IF(PLAYER0,TIMER2 >= 60)
	PLAY_MESSAGE(PLAYER0,SOUND,77)		REM slab3.wav
	SET_HEART_HEALTH(PLAYER0,2500)
    CHANGE_SLAB_TYPE(5,114,TREASURY_AREA)
	CHANGE_SLAB_OWNER(5,114,PLAYER_GOOD,NONE)
ENDIF
IF(PLAYER0,TIMER2 >= 63)
	SET_HEART_HEALTH(PLAYER0,4500)
	PLAY_MESSAGE(PLAYER0,SOUND,77)		REM slab3.wav
    CHANGE_SLAB_TYPE(5,113,TREASURY_AREA)
	CHANGE_SLAB_OWNER(5,113,PLAYER_GOOD,NONE)
ENDIF
IF(PLAYER0,TIMER2 >= 67)
	SET_HEART_HEALTH(PLAYER0,6000)
ENDIF
IF(PLAYER0,TIMER2 >= 70)
	SET_HEART_HEALTH(PLAYER0,9000)
	PLAY_MESSAGE(PLAYER0,SOUND,77)		REM slab3.wav
    CHANGE_SLAB_TYPE(4,114,TREASURY_AREA)
	CHANGE_SLAB_OWNER(4,114,PLAYER_GOOD,NONE)
	CHANGE_SLAB_TEXTURE(5,114,12,NONE)
    CHANGE_SLAB_TYPE(5,114,PRETTY_PATH)
	CHANGE_SLAB_OWNER(5,114,PLAYER_NEUTRAL,NONE)
ENDIF
IF(PLAYER0,TIMER2 >= 72)
	SET_HEART_HEALTH(PLAYER0,11500)
	PLAY_MESSAGE(PLAYER0,SOUND,77)		REM slab3.wav
    CHANGE_SLAB_TYPE(5,115,TREASURY_AREA)
	CHANGE_SLAB_OWNER(5,115,PLAYER_GOOD,NONE)
ENDIF
IF(PLAYER0,TIMER2 >= 76)
	SET_HEART_HEALTH(PLAYER0,13000)
ENDIF
IF(PLAYER0,TIMER2 >= 79)
	SET_HEART_HEALTH(PLAYER0,16000)
	PLAY_MESSAGE(PLAYER0,SOUND,77)		REM slab3.wav
    CHANGE_SLAB_TYPE(4,113,TREASURY_AREA)
	CHANGE_SLAB_OWNER(4,113,PLAYER_GOOD,NONE)
ENDIF
IF(PLAYER0,TIMER2 >= 83)
	SET_HEART_HEALTH(PLAYER0,18000)
	PLAY_MESSAGE(PLAYER0,SOUND,77)		REM slab3.wav
    CHANGE_SLAB_TYPE(6,114,TREASURY_AREA)
	CHANGE_SLAB_OWNER(6,114,PLAYER_GOOD,NONE)
ENDIF
IF(PLAYER0,TIMER2 >= 86)
	PLAY_MESSAGE(PLAYER0,SOUND,77)		REM slab3.wav
	SET_HEART_HEALTH(PLAYER0,20000)
    CHANGE_SLAB_TYPE(4,113,TEMPLE_POOL)
	CHANGE_SLAB_TEXTURE(4,113,12,NONE)
ENDIF
IF(PLAYER0,TIMER2 >= 87)
	PLAY_MESSAGE(PLAYER0,SOUND,77)		REM slab3.wav
	SET_HEART_HEALTH(PLAYER0,22000)
    CHANGE_SLAB_TYPE(4,115,TREASURY_AREA)
	CHANGE_SLAB_OWNER(4,115,PLAYER_GOOD,NONE)
ENDIF
IF(PLAYER0,TIMER2 >= 93)
	PLAY_MESSAGE(PLAYER0,SOUND,77)		REM slab3.wav
	SET_HEART_HEALTH(PLAYER0,24000)
    CHANGE_SLAB_TYPE(6,113,TREASURY_AREA)
	CHANGE_SLAB_OWNER(6,113,PLAYER_GOOD,NONE)
    CHANGE_SLAB_TYPE(4,115,TEMPLE_POOL)
	CHANGE_SLAB_TEXTURE(4,115,12,NONE)
ENDIF
IF(PLAYER0,TIMER2 >= 99)
	PLAY_MESSAGE(PLAYER0,SOUND,77)		REM slab3.wav
	SET_HEART_HEALTH(PLAYER0,26000)
    CHANGE_SLAB_TYPE(6,115,TREASURY_AREA)
	CHANGE_SLAB_OWNER(6,115,PLAYER_GOOD,NONE)
    CHANGE_SLAB_TYPE(6,113,TEMPLE_POOL)
	CHANGE_SLAB_TEXTURE(6,113,12,NONE)
ENDIF
IF(PLAYER0,TIMER2 >= 107)
	PLAY_MESSAGE(PLAYER0,SOUND,77)		REM slab3.wav
	SET_HEART_HEALTH(PLAYER0,28000)
    CHANGE_SLAB_TYPE(6,115,TEMPLE_POOL)
	CHANGE_SLAB_TEXTURE(6,115,12,NONE)
ENDIF
IF(PLAYER0,TIMER2 >= 120)
	SET_HEART_HEALTH(PLAYER0,30000)
ENDIF
IF(PLAYER0,TIMER2 >= 126)
	PLAY_MESSAGE(PLAYER0,SOUND,77)		REM slab3.wav
    CHANGE_SLAB_TYPE(4,113,HEART_PEDESTAL)
ENDIF
IF(PLAYER0,TIMER2 >= 133)
	PLAY_MESSAGE(PLAYER0,SOUND,77)		REM slab3.wav
    CHANGE_SLAB_TYPE(4,114,HEART_PEDESTAL)
ENDIF
IF(PLAYER0,TIMER2 >= 138)
	PLAY_MESSAGE(PLAYER0,SOUND,77)		REM slab3.wav
    CHANGE_SLAB_TYPE(6,113,HEART_PEDESTAL)
ENDIF
IF(PLAYER0,TIMER2 >= 140)
	PLAY_MESSAGE(PLAYER0,SOUND,77)		REM slab3.wav
    CHANGE_SLAB_TYPE(6,115,HEART_PEDESTAL)
ENDIF
IF(PLAYER0,TIMER2 >= 147)
	PLAY_MESSAGE(PLAYER0,SOUND,77)		REM slab3.wav
    CHANGE_SLAB_TYPE(5,113,HEART_PEDESTAL)
ENDIF
IF(PLAYER0,TIMER2 >= 155)
	PLAY_MESSAGE(PLAYER0,SOUND,77)		REM slab3.wav
    CHANGE_SLAB_TYPE(5,115,HEART_PEDESTAL)
ENDIF
IF(PLAYER0,TIMER2 >= 159)
	PLAY_MESSAGE(PLAYER0,SOUND,77)		REM slab3.wav
    CHANGE_SLAB_TYPE(6,114,HEART_PEDESTAL)
ENDIF
IF(PLAYER0,TIMER2 >= 165)
	PLAY_MESSAGE(PLAYER0,SOUND,77)		REM slab3.wav
    CHANGE_SLAB_TYPE(4,115,HEART_PEDESTAL)
ENDIF
IF(PLAYER0,TIMER2 >= 167)
	SET_OBJECT_CONFIGURATION(FAKE_SOUL_CONTAINER,MaximumSize,1)
	SET_OBJECT_CONFIGURATION(FAKE_SOUL_CONTAINER,Properties,1)
	
	SET_OBJECT_CONFIGURATION(SOUL_CONTAINER,UpdateFunction,UPDATE_DUNGEON_HEART)
	SET_OBJECT_CONFIGURATION(SOUL_CONTAINER,Properties,97)
	
	CHANGE_SLAB_OWNER(4,113,PLAYER0,NONE)
	CHANGE_SLAB_OWNER(5,113,PLAYER0,NONE)
	CHANGE_SLAB_OWNER(6,113,PLAYER0,NONE)
	CHANGE_SLAB_OWNER(4,114,PLAYER0,NONE)
	CHANGE_SLAB_OWNER(5,114,PLAYER0,NONE)
	CHANGE_SLAB_OWNER(6,114,PLAYER0,NONE)
	CHANGE_SLAB_OWNER(4,115,PLAYER0,NONE)
	CHANGE_SLAB_OWNER(5,115,PLAYER0,NONE)
	CHANGE_SLAB_OWNER(6,115,PLAYER0,NONE)
	
	CHANGE_SLAB_TEXTURE(5,114,13,NONE)
	CHANGE_SLAB_TYPE(5,114,HEART_PEDESTAL)
	
	CREATE_EFFECT(14,64) REM word of power
	CREATE_EFFECT(14,72) REM word of power
	CREATE_EFFECT(14,73) REM word of power
	CREATE_EFFECT(14,74) REM word of power
	CREATE_EFFECT(14,75) REM word of power
ENDIF
IF(PLAYER0,TIMER2 >= 170)
	SET_HEART_HEALTH(PLAYER0,30000)
ENDIF


REM *****               *****
REM *****               *****
REM *****  DIE KAPITEL  *****
REM *****               *****
REM *****               *****

REM *****   INIT    *****
DISPLAY_OBJECTIVE(45)
REVEAL_MAP_RECT(PLAYER0,28,343,9,9)

IF(PLAYER0,TIMER2 >= 300)
	DISPLAY_INFORMATION(46)
	TUTORIAL_FLASH_BUTTON(21,0)
	SET_FLAG(PLAYER_NEUTRAL,FLAG2,1)
ENDIF


IF_ACTION_POINT(21,PLAYER0)
	DISPLAY_OBJECTIVE(47)
	SET_FLAG(PLAYER_NEUTRAL,FLAG1,1)
	SET_DOOR(UNLOCKED,10,108)
ENDIF


IF(PLAYER0,LAIR > 0)
REM 	DISPLAY_INFORMATION(48)
	ROOM_AVAILABLE(PLAYER0,LAIR,1,1)
	TUTORIAL_FLASH_BUTTON(8,0)
ENDIF

IF(PLAYER0,TREASURE > 0)
	DISPLAY_INFORMATION(49)
	ROOM_AVAILABLE(PLAYER0,TREASURE,1,1)
	TUTORIAL_FLASH_BUTTON(6,0)
ENDIF

IF_ACTION_POINT(12,PLAYER0)
	DISPLAY_OBJECTIVE_WITH_POS(110,13,286)
	SET_FLAG(PLAYER_NEUTRAL,FLAG1,1)
	TUTORIAL_FLASH_BUTTON(5,0)
ENDIF

IF(PLAYER0,GARDEN > 0)
	DISPLAY_INFORMATION(50)
	ROOM_AVAILABLE(PLAYER0,GARDEN,1,1)
	TUTORIAL_FLASH_BUTTON(7,0)
ENDIF

IF(PLAYER0,TRAINING > 0)
REM	DISPLAY_INFORMATION(51)
	ROOM_AVAILABLE(PLAYER0,TRAINING,1,1)
	TUTORIAL_FLASH_BUTTON(10,0)
ENDIF

IF(PLAYER0,FLY > 0)
	DISPLAY_INFORMATION(52)
ENDIF

REM **** Clap-Info ****
REM IF_ACTION_POINT(11,PLAYER0)
REM 	DISPLAY_INFORMATION(88)
REM ENDIF

IF_ACTION_POINT(46,PLAYER0)
	DISPLAY_INFORMATION(44)
ENDIF

IF(PLAYER0,RESEARCH > 0)
	DISPLAY_INFORMATION(53)
	ROOM_AVAILABLE(PLAYER0,RESEARCH,1,1)
	TUTORIAL_FLASH_BUTTON(9,0)
	MAGIC_AVAILABLE(PLAYER0,POWER_SPEED,1,0)
ENDIF

IF_ACTION_POINT(22,PLAYER0)
	DISPLAY_OBJECTIVE(54)
	SET_FLAG(PLAYER_NEUTRAL,FLAG1,1)
	MAGIC_AVAILABLE(PLAYER0,POWER_POSSESS,1,1)
	TUTORIAL_FLASH_BUTTON(36,0)
ENDIF

IF_ACTION_POINT(23,PLAYER0)
	DISPLAY_INFORMATION_WITH_POS(111,31,154)
	ROOM_AVAILABLE(PLAYER0,BARRACKS,1,0)
ENDIF

IF_AVAILABLE(PLAYER0,BARRACKS >= 1)
	DISPLAY_INFORMATION(55)
	TUTORIAL_FLASH_BUTTON(16,0)
ENDIF

IF_ACTION_POINT(24,PLAYER0)
	DISPLAY_OBJECTIVE(56)
	SET_FLAG(PLAYER_NEUTRAL,FLAG1,1)
	
	REM *****              *****
	REM *****  SETUP GELB  *****
	REM *****              *****
	COMPUTER_PLAYER(PLAYER3,0)
	MAX_CREATURES(PLAYER3,18)
	START_MONEY(PLAYER3,99999999)

	MAGIC_AVAILABLE(PLAYER3,POWER_HAND,0,0)
	MAGIC_AVAILABLE(PLAYER3,POWER_SLAP,0,0)
	MAGIC_AVAILABLE(PLAYER3,POWER_IMP,0,0)
	MAGIC_AVAILABLE(PLAYER3,POWER_HOLD_AUDIENCE,1,1)
	
	ADD_CREATURE_TO_LEVEL(PLAYER3,DRAGON,PLAYER3,1,8,0)
	ADD_CREATURE_TO_LEVEL(PLAYER3,DRAGON,PLAYER3,2,7,0)
	ADD_CREATURE_TO_LEVEL(PLAYER3,DRAGON,PLAYER3,2,6,0)
	ADD_CREATURE_TO_LEVEL(PLAYER3,DRAGON,PLAYER3,2,5,0)
	ADD_CREATURE_TO_LEVEL(PLAYER3,DRAGON,PLAYER3,1,4,0)
	ADD_CREATURE_TO_LEVEL(PLAYER3,DRAGON,PLAYER3,1,3,0)
	ADD_CREATURE_TO_LEVEL(PLAYER3,DRAGON,PLAYER3,1,2,0)
	ADD_CREATURE_TO_LEVEL(PLAYER3,DEMONSPAWN,PLAYER3,1,7,0)
	ADD_CREATURE_TO_LEVEL(PLAYER3,DEMONSPAWN,PLAYER3,1,6,0)
	ADD_CREATURE_TO_LEVEL(PLAYER3,DEMONSPAWN,PLAYER3,1,5,0)
	ADD_CREATURE_TO_LEVEL(PLAYER3,DEMONSPAWN,PLAYER3,1,4,0)
	ADD_CREATURE_TO_LEVEL(PLAYER3,DEMONSPAWN,PLAYER3,1,3,0)
	ADD_CREATURE_TO_LEVEL(PLAYER3,SORCEROR,78,1,9,0)
	ADD_CREATURE_TO_LEVEL(PLAYER3,SORCEROR,78,1,7,0)
	ADD_CREATURE_TO_LEVEL(PLAYER3,SORCEROR,78,1,6,0)
	
	CHANGE_SLAB_TYPE(8,87,PATH)
	CHANGE_SLAB_TYPE(8,88,PATH)
	CHANGE_SLAB_TYPE(8,89,PATH)
ENDIF

IF_ACTION_POINT(5,PLAYER0)
	DISPLAY_INFORMATION_WITH_POS(57,31,112)
	CHANGE_SLAB_TYPE(10,53,PATH)
	CHANGE_SLAB_TYPE(10,54,PATH)
ENDIF

IF_ACTION_POINT(25,PLAYER0)
	DISPLAY_INFORMATION_WITH_POS(58,31,55)
ENDIF

IF_ACTION_POINT(54,PLAYER0)
	MAGIC_AVAILABLE(PLAYER3,POWER_CALL_TO_ARMS,1,1)
ENDIF

IF(PLAYER3,DUNGEON_DESTROYED==1)
	DISPLAY_OBJECTIVE(59)
	SET_FLAG(PLAYER_NEUTRAL,FLAG1,1)
	
	CREATURE_AVAILABLE(PLAYER0,DRAGON,1,0)
	
	SET_TIMER(PLAYER0,TIMER3)
	
	CHANGE_SLAB_TYPE(10,23,PATH)
	CHANGE_SLAB_TYPE(10,25,PATH)
	CHANGE_SLAB_TYPE(10,27,PATH)
	
	CHANGE_SLAB_OWNER(8,5,Player0,NONE)
	
	CHANGE_SLAB_TYPE(10,7,PATH)
	
	CHANGE_SLAB_TYPE(5,6,PATH)
	CHANGE_SLAB_TYPE(5,7,PATH)
	CHANGE_SLAB_TYPE(6,6,PATH)
	CHANGE_SLAB_TYPE(6,7,PATH)
	
	CHANGE_SLAB_TYPE(14,6,PATH)
	CHANGE_SLAB_TYPE(14,7,PATH)
	CHANGE_SLAB_TYPE(15,6,PATH)
	CHANGE_SLAB_TYPE(15,7,PATH)
	
	CHANGE_SLAB_TYPE(5,9,PATH)
	CHANGE_SLAB_TYPE(5,10,PATH)
	CHANGE_SLAB_TYPE(6,9,PATH)
	CHANGE_SLAB_TYPE(6,10,PATH)
	
	CHANGE_SLAB_TYPE(14,9,PATH)
	CHANGE_SLAB_TYPE(14,10,PATH)
	CHANGE_SLAB_TYPE(15,9,PATH)
	CHANGE_SLAB_TYPE(15,10,PATH)
	
	CHANGE_SLAB_TYPE(7,11,PATH)
	CHANGE_SLAB_TYPE(7,12,PATH)
	CHANGE_SLAB_TYPE(8,11,PATH)
	CHANGE_SLAB_TYPE(8,12,PATH)
	
	CHANGE_SLAB_TYPE(7,11,PATH)
	CHANGE_SLAB_TYPE(7,12,PATH)
	CHANGE_SLAB_TYPE(8,11,PATH)
	CHANGE_SLAB_TYPE(8,12,PATH)
	
	CHANGE_SLAB_TYPE(12,11,PATH)
	CHANGE_SLAB_TYPE(12,12,PATH)
	CHANGE_SLAB_TYPE(13,11,PATH)
	CHANGE_SLAB_TYPE(13,12,PATH)
	
	CHANGE_SLAB_TYPE(8,5,PATH)
	CHANGE_SLAB_TYPE(8,6,PATH)
	CHANGE_SLAB_TYPE(8,8,PATH)
	CHANGE_SLAB_TYPE(8,9,PATH)
	
	CHANGE_SLAB_TYPE(9,5,PATH)
	CHANGE_SLAB_TYPE(9,6,PATH)
	CHANGE_SLAB_TYPE(9,7,PATH)
	CHANGE_SLAB_TYPE(8,7,PATH)
	CHANGE_SLAB_TYPE(9,8,PATH)
	CHANGE_SLAB_TYPE(9,9,PATH)
	
	CHANGE_SLAB_TYPE(10,5,PATH)
	CHANGE_SLAB_TYPE(10,6,PATH)
	
	CHANGE_SLAB_TYPE(11,5,PATH)
	CHANGE_SLAB_TYPE(11,6,PATH)
	CHANGE_SLAB_TYPE(12,7,PATH)
	CHANGE_SLAB_TYPE(11,7,PATH)
	CHANGE_SLAB_TYPE(11,8,PATH)
	CHANGE_SLAB_TYPE(11,9,PATH)
	
	CHANGE_SLAB_TYPE(12,5,PATH)
	CHANGE_SLAB_TYPE(12,6,PATH)
	CHANGE_SLAB_TYPE(12,8,PATH)
	CHANGE_SLAB_TYPE(12,9,PATH)
	
	CHANGE_SLAB_TYPE(9,17,PATH)
	CHANGE_SLAB_TYPE(9,18,PATH)
	CHANGE_SLAB_TYPE(9,19,PATH)
	CHANGE_SLAB_TYPE(10,17,PATH)
	CHANGE_SLAB_TYPE(10,18,PATH)
	CHANGE_SLAB_TYPE(10,19,PATH)
	CHANGE_SLAB_TYPE(11,17,PATH)
	CHANGE_SLAB_TYPE(11,18,PATH)
	CHANGE_SLAB_TYPE(11,19,PATH)
	
	CHANGE_SLAB_TYPE(20,18,PATH)
	CHANGE_SLAB_TYPE(20,19,PATH)
	CHANGE_SLAB_TYPE(20,20,PATH)
	CHANGE_SLAB_TYPE(21,18,PATH)
	CHANGE_SLAB_TYPE(21,19,PATH)
	CHANGE_SLAB_TYPE(21,20,PATH)
	
	CHANGE_SLAB_OWNER(7,3,Player0,NONE)
	CHANGE_SLAB_OWNER(10,8,Player0,NONE)
	CHANGE_SLAB_OWNER(10,9,Player0,NONE)
	CHANGE_SLAB_OWNER(10,10,Player0,NONE)
	CHANGE_SLAB_OWNER(10,11,Player0,NONE)
	CHANGE_SLAB_OWNER(10,12,Player0,NONE)
	CHANGE_SLAB_OWNER(10,13,Player0,NONE)
	CHANGE_SLAB_OWNER(10,14,Player0,NONE)
ENDIF

IF(PLAYER0,TIMER3 >= 900)
	DISPLAY_OBJECTIVE(120)
	SET_FLAG(PLAYER_NEUTRAL,FLAG1,1)
ENDIF
IF(PLAYER0,TIMER3 >= 1000)
	ADD_TUNNELLER_TO_LEVEL(PLAYER_GOOD,1,ACTION_POINT,60,4,300)
ENDIF

IF_ACTION_POINT(18,PLAYER0)
	DISPLAY_OBJECTIVE(61)
	SET_FLAG(PLAYER_NEUTRAL,FLAG1,1)
	
	MAGIC_AVAILABLE(PLAYER0,POWER_CALL_TO_ARMS,1,0)
	
	SET_MUSIC(5) REM Aufbauend, Action
	
	SET_TIMER(PLAYER0,TIMER1)
	SET_FLAG(PLAYER_GOOD,FLAG0,1)
	
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,SCHATZSUCHER1,-1,1)
	
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DWARFA,16,2,5,300)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,ARCHER,16,2,5,300)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,MONK,16,1,6,100)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,WIZARD,16,1,7,300)
	
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,KNIGHT,19,1,7,800)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DWARFA,19,1,6,300)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,MONK,19,1,6,100)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,WIZARD,19,1,7,300)
	
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DWARFA,17,3,7,300)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,ARCHER,17,2,6,300)

ENDIF

IF(PLAYER_GOOD,FLAG0==1)
	IF(PLAYER_GOOD,KNIGHT == 0)
		DISPLAY_OBJECTIVE(112)
		SET_FLAG(PLAYER_NEUTRAL,FLAG1,1)
	ENDIF
ENDIF

IF(PLAYER0,GUARD_POST > 0)
	DISPLAY_INFORMATION(62)
	ROOM_AVAILABLE(PLAYER0,GUARD_POST,1,1)
	TUTORIAL_FLASH_BUTTON(19,0)
ENDIF

IF(PLAYER0,WORKSHOP > 0)
	DISPLAY_INFORMATION(63)
	ROOM_AVAILABLE(PLAYER0,WORKSHOP,1,1)
	TUTORIAL_FLASH_BUTTON(13,0)
	DOOR_AVAILABLE(PLAYER0,BRACED,1,0)
ENDIF

IF_ACTION_POINT(2,PLAYER0)
	DISPLAY_INFORMATION(64)
ENDIF

REM *****   Untoten - Diamant   *****
SET_HEART_HEALTH(PLAYER5,30000)
IF(PLAYER_GOOD,SKELETON < 14)
	ADD_HEART_HEALTH(PLAYER5,-5000,0)
ENDIF
IF(PLAYER_GOOD,SKELETON < 12)
	ADD_HEART_HEALTH(PLAYER5,-5000,0)
ENDIF
IF(PLAYER_GOOD,SKELETON < 10)
	ADD_HEART_HEALTH(PLAYER5,-5000,0)
ENDIF
IF(PLAYER_GOOD,SKELETON < 8)
	ADD_HEART_HEALTH(PLAYER5,-5000,0)
ENDIF
IF(PLAYER_GOOD,SKELETON < 6)
	ADD_HEART_HEALTH(PLAYER5,-7000,0)
ENDIF
IF(PLAYER_GOOD,SKELETON < 5)
	ADD_HEART_HEALTH(PLAYER5,-7000,0)
ENDIF
IF(PLAYER5,DUNGEON_DESTROYED==1)
	CHANGE_SLAB_TYPE(116,106,PATH)
	CHANGE_SLAB_TYPE(117,106,PATH)
	CHANGE_SLAB_TYPE(116,107,PATH)
	CHANGE_SLAB_TYPE(116,108,PATH)
	CHANGE_SLAB_TYPE(117,108,PATH)
	CHANGE_SLAB_TEXTURE(117,107,6,NONE)
ENDIF
IF_SLAB_OWNER(116,106,PLAYER0)
	CHANGE_SLAB_TEXTURE(116,106,6,NONE)
ENDIF
IF_SLAB_OWNER(117,106,PLAYER0)
	CHANGE_SLAB_TEXTURE(117,106,6,NONE)
ENDIF
IF_SLAB_OWNER(116,107,PLAYER0)
	CHANGE_SLAB_TEXTURE(116,107,6,NONE)
ENDIF
IF_SLAB_OWNER(116,108,PLAYER0)
	CHANGE_SLAB_TEXTURE(116,108,6,NONE)
ENDIF
IF_SLAB_OWNER(117,108,PLAYER0)
	CHANGE_SLAB_TEXTURE(117,108,6,NONE)
ENDIF
REM *****                       *****

IF_ACTION_POINT(4,PLAYER0)
	DISPLAY_OBJECTIVE_WITH_POS(65,301,280)
	SET_FLAG(PLAYER_NEUTRAL,FLAG1,1)
	
	ADD_CREATURE_TO_LEVEL(PLAYER1,SPIDER,7,2,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,SPIDER,7,3,9,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,SPIDER,7,2,8,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,SPIDER,7,3,7,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,SPIDER,7,5,6,0)
ENDIF

IF(PLAYER0,PRISON > 0)
	DISPLAY_INFORMATION(66)
	ROOM_AVAILABLE(PLAYER0,PRISON,1,1)
	TUTORIAL_FLASH_BUTTON(69,0)
	CREATURE_AVAILABLE(PLAYER0,SPIDER,1,0)
ENDIF

IF_ACTION_POINT(47,PLAYER0)
	DISPLAY_INFORMATION_WITH_POS(113,307,202)
ENDIF

IF_ACTION_POINT(51,PLAYER0)
	DISPLAY_INFORMATION_WITH_POS(114,295,178)
ENDIF

IF_ACTION_POINT(52,PLAYER0)
	IF(PLAYER_GOOD,FLAG0 < 4)
		DISPLAY_INFORMATION_WITH_POS(115,307,148)
	ENDIF
ENDIF

IF_ACTION_POINT(53,PLAYER0)
	IF(PLAYER_GOOD,FLAG0 < 4)
		DISPLAY_INFORMATION_WITH_POS(119,214,121)
	ENDIF
ENDIF

IF(PLAYER0,TORTURE > 0)
	DISPLAY_INFORMATION(67)
	ROOM_AVAILABLE(PLAYER0,TORTURE,1,1)
	TUTORIAL_FLASH_BUTTON(17,0)
ENDIF

IF(PLAYER0,DRUID > 0)
	DISPLAY_OBJECTIVE(68)
	SET_FLAG(PLAYER_NEUTRAL,FLAG1,1)
	CREATURE_AVAILABLE(PLAYER0,DRUID,1,1)
	SET_MUSIC(4) REM Bedrohlich
ENDIF

IF_ACTION_POINT(6,PLAYER0)
	DISPLAY_OBJECTIVE(69)
	SET_FLAG(PLAYER_NEUTRAL,FLAG1,1)
	
	REM *****               *****
	REM *****  SETUP GRUEN  *****
	REM *****               *****
	COMPUTER_PLAYER(PLAYER2,0)
	START_MONEY(PLAYER2,99999999)
	MAX_CREATURES(PLAYER2,40)
	CREATURE_ENTRANCE_LEVEL(PLAYER2,3)
	CREATURE_AVAILABLE(PLAYER2,TENTACLE,1,1)
	CREATURE_AVAILABLE(PLAYER2,FLY,1,1)
	CREATURE_AVAILABLE(PLAYER2,BUG,1,1)
	CREATURE_AVAILABLE(PLAYER2,TROLL,1,1)
	CREATURE_AVAILABLE(PLAYER2,BILE_DEMON,1,1)
	CREATURE_AVAILABLE(PLAYER2,ORC,1,1)

	MAGIC_AVAILABLE(PLAYER2,POWER_HAND,0,0)
	MAGIC_AVAILABLE(PLAYER2,POWER_SLAP,0,0)
	MAGIC_AVAILABLE(PLAYER2,POWER_IMP,0,0)
	MAGIC_AVAILABLE(PLAYER2,POWER_HEAL_CREATURE,1,1)
	MAGIC_AVAILABLE(PLAYER2,POWER_HOLD_AUDIENCE,1,1)
	
	ADD_CREATURE_TO_LEVEL(PLAYER2,TENTACLE,PLAYER2,8,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER2,TENTACLE,PLAYER2,5,9,0)
	ADD_CREATURE_TO_LEVEL(PLAYER2,TENTACLE,PLAYER2,2,8,0)
	ADD_CREATURE_TO_LEVEL(PLAYER2,BILE_DEMON,PLAYER2,1,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER2,BILE_DEMON,PLAYER2,1,9,0)
	ADD_CREATURE_TO_LEVEL(PLAYER2,BILE_DEMON,PLAYER2,1,8,0)
	ADD_CREATURE_TO_LEVEL(PLAYER2,ORC,PLAYER2,5,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER2,TROLL,PLAYER2,2,8,0)
	ADD_CREATURE_TO_LEVEL(PLAYER2,TROLL,PLAYER2,1,7,0)
	ADD_CREATURE_TO_LEVEL(PLAYER2,TROLL,PLAYER2,1,6,0)
	ADD_CREATURE_TO_LEVEL(PLAYER2,FLY,PLAYER2,2,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER2,FLY,PLAYER2,1,9,0)
	ADD_CREATURE_TO_LEVEL(PLAYER2,FLY,PLAYER2,1,8,0)
	ADD_CREATURE_TO_LEVEL(PLAYER2,BUG,PLAYER2,1,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER2,BUG,PLAYER2,1,9,0)
	
	ADD_CREATURE_TO_LEVEL(PLAYER2,GHOST,65,1,6,0)
	ADD_CREATURE_TO_LEVEL(PLAYER2,GHOST,66,1,7,0)
	ADD_CREATURE_TO_LEVEL(PLAYER2,GHOST,67,1,7,0)
	ADD_CREATURE_TO_LEVEL(PLAYER2,GHOST,68,1,8,0)
	ADD_CREATURE_TO_LEVEL(PLAYER2,GHOST,69,1,7,0)
	ADD_CREATURE_TO_LEVEL(PLAYER2,GHOST,70,1,8,0)
	ADD_CREATURE_TO_LEVEL(PLAYER2,GHOST,71,1,6,0)
	
ENDIF

IF(PLAYER0,TEMPLE > 0)
	DISPLAY_INFORMATION(70)
	ROOM_AVAILABLE(PLAYER0,TEMPLE,1,1)
	TUTORIAL_FLASH_BUTTON(12,0)
	
	CHANGE_SLAB_TYPE(43,94,PATH)
ENDIF

IF(PLAYER0,BILE_DEMON > 0)
	DISPLAY_INFORMATION(71)
	CREATURE_AVAILABLE(PLAYER0,BILE_DEMON,1,1)
ENDIF

IF_ACTION_POINT(26,PLAYER0)
	DISPLAY_OBJECTIVE(72)
	SET_FLAG(PLAYER_NEUTRAL,FLAG1,1)
	REVEAL_MAP_LOCATION(PLAYER0,26,30)
	MAGIC_AVAILABLE(PLAYER2,POWER_CAVE_IN,1,1)
	MAGIC_AVAILABLE(PLAYER2,POWER_LIGHTNING,1,1)
	MAGIC_AVAILABLE(PLAYER2,POWER_DISEASE,1,1)
ENDIF

IF(PLAYER2,DUNGEON_DESTROYED==1)
	SET_FLAG(PLAYER_GOOD,FLAG0,2)
	
	DISPLAY_OBJECTIVE(73)
	SET_FLAG(PLAYER_NEUTRAL,FLAG1,1)
	
	CHANGE_SLAB_TYPE(15,65,PATH)
	CHANGE_SLAB_TYPE(16,64,PATH)
	CHANGE_SLAB_TYPE(17,63,PATH)
	
	CHANGE_SLAB_TYPE(18,84,PATH)
	CHANGE_SLAB_TYPE(19,85,PATH)
	CHANGE_SLAB_TYPE(19,86,PATH)
	CHANGE_SLAB_TYPE(20,87,PATH)
ENDIF

IF_ACTION_POINT(15,PLAYER0)
	DISPLAY_OBJECTIVE(74)
	SET_FLAG(PLAYER_NEUTRAL,FLAG1,1)
	
	REM *****              *****
	REM *****  SETUP BLAU  *****
	REM *****              *****
	COMPUTER_PLAYER(PLAYER1,0)
	START_MONEY(PLAYER1,99999999)
	MAX_CREATURES(PLAYER1,40)
	CREATURE_ENTRANCE_LEVEL(PLAYER1,6)
	CREATURE_AVAILABLE(PLAYER1,SPIDER,1,1)
	CREATURE_AVAILABLE(PLAYER1,HELL_HOUND,1,1)
	CREATURE_AVAILABLE(PLAYER1,VAMPIRE,1,1)
	CREATURE_AVAILABLE(PLAYER1,DARK_MISTRESS,1,1)

	ADD_CREATURE_TO_LEVEL(PLAYER1,VAMPIRE,PLAYER1,1,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,VAMPIRE,PLAYER1,1,8,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,VAMPIRE,PLAYER1,1,7,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,VAMPIRE,PLAYER1,2,6,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,VAMPIRE,PLAYER1,2,5,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,DARK_MISTRESS,PLAYER1,1,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,DARK_MISTRESS,PLAYER1,1,8,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,DARK_MISTRESS,PLAYER1,2,7,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,DARK_MISTRESS,PLAYER1,4,6,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,DARK_MISTRESS,PLAYER1,2,5,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,SKELETON,PLAYER1,2,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,SKELETON,PLAYER1,1,8,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,SKELETON,PLAYER1,1,7,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,SKELETON,PLAYER1,1,6,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,SKELETON,PLAYER1,2,5,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,HELL_HOUND,PLAYER1,1,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,HELL_HOUND,PLAYER1,2,9,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,HELL_HOUND,PLAYER1,2,8,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,SPIDER,PLAYER1,2,9,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,SPIDER,PLAYER1,2,8,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,SPIDER,PLAYER1,1,7,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,GHOST,PLAYER1,1,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,GHOST,PLAYER1,1,9,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,GHOST,PLAYER1,2,8,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,GHOST,PLAYER1,1,7,0)
	ADD_CREATURE_TO_LEVEL(PLAYER1,GHOST,PLAYER1,1,6,0)
	
	REM **** Edelstein abgraben ****
	SET_COMPUTER_PROCESS(PLAYER1,"DIG TO CLOSE GOLD",0,10000000000,10000000000,5,20)
	
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,FAIRY,8,2,7,100)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,WIZARD,8,1,8,200)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,MONK,8,2,8,10)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,KNIGHT,8,1,8,800)
ENDIF

IF(PLAYER0,BRIDGE > 0)
	DISPLAY_INFORMATION(75)
	ROOM_AVAILABLE(PLAYER0,BRIDGE,1,1)
	TUTORIAL_FLASH_BUTTON(18,0)
	
	SET_MUSIC(3) REM Droehnend, Unheimlich
ENDIF

IF(PLAYER0,SCAVENGER>=1)
	DISPLAY_INFORMATION(76)
	ROOM_AVAILABLE(PLAYER0,SCAVENGER,1,1)
	TUTORIAL_FLASH_BUTTON(14,0)
ENDIF

IF_ACTION_POINT(27,PLAYER0)
	DISPLAY_OBJECTIVE(77)
	SET_FLAG(PLAYER_NEUTRAL,FLAG1,1)
	
	REVEAL_MAP_LOCATION(PLAYER0,55,30)
	REVEAL_MAP_LOCATION(PLAYER0,56,14)
	REVEAL_MAP_LOCATION(PLAYER0,57,14)
	REVEAL_MAP_LOCATION(PLAYER0,58,14)
	REVEAL_MAP_LOCATION(PLAYER0,59,40)
	
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DWARFA,48,8,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DWARFA,49,8,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DWARFA,50,8,10,0)
ENDIF

IF(PLAYER1,DUNGEON_DESTROYED==1)
	
	SET_FLAG(PLAYER_GOOD,FLAG0,3)
	
	DISPLAY_OBJECTIVE(78)
	SET_FLAG(PLAYER_NEUTRAL,FLAG1,1)
	
	CHANGE_SLAB_TYPE(71,71,PATH)
ENDIF

IF(PLAYER0,GRAVEYARD > 0)
	DISPLAY_INFORMATION(79)
	ROOM_AVAILABLE(PLAYER0,GRAVEYARD,1,1)
	TUTORIAL_FLASH_BUTTON(15,0)
ENDIF

IF_ACTION_POINT(28,PLAYER0)
	DISPLAY_OBJECTIVE(80)
	SET_FLAG(PLAYER_NEUTRAL,FLAG1,1)
	
	MAGIC_AVAILABLE(PLAYER0,POWER_DESTROY_WALLS,1,0)
ENDIF

IF_AVAILABLE(PLAYER0,POWER_DESTROY_WALLS == 1)
	DISPLAY_INFORMATION(81)
ENDIF

IF_ACTION_POINT(29,PLAYER0)
	DISPLAY_OBJECTIVE(82)
	SET_FLAG(PLAYER_NEUTRAL,FLAG1,1)
	
	SET_MUSIC(2) REM Mysterioes, Schwaermend, Glowing
	
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,THIEF,76,1,10,0)
	
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,ARCHER,44,4,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,WIZARD,44,2,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,TIME_MAGE,44,2,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,GIANT,44,2,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,FAIRY,44,4,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,MONK,44,3,10,0)
	
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,WITCH,30,2,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,SAMURAI,30,4,10,0)
	
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,GIANT,31,6,10,0)
	
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,ARCHER,32,6,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,GIANT,32,3,10,0)
	
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,GIANT,33,3,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BARBARIAN,33,6,10,0)
	
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DWARFA,34,5,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,GIANT,34,3,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BARBARIAN,34,4,10,0)
	
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,SAMURAI,35,7,10,0)
	
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,THIEF,36,2,10,1000)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DWARFA,36,3,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BARBARIAN,36,2,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,ARCHER,36,4,10,0)
	
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,GIANT,37,3,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DWARFA,37,5,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BARBARIAN,37,4,10,0)
	
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,WITCH,38,2,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,MONK,38,6,10,0)
	
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,WIZARD,39,4,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,TIME_MAGE,39,4,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,FAIRY,39,6,10,0)
	
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,MONK,40,10,10,0)
	
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DWARFA,9,4,10,0)
	
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,THIEF,41,4,10,1000)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DWARFA,41,3,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BARBARIAN,41,2,10,0)
	
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,WITCH,42,1,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,MONK,42,1,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,WIZARD,42,1,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,TIME_MAGE,42,1,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,FAIRY,42,1,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,GIANT,42,1,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,THIEF,42,1,10,1000)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DWARFA,42,1,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BARBARIAN,42,1,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,SAMURAI,42,1,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,ARCHER,42,1,10,0)
	
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,MONK,10,4,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,WITCH,10,1,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,WIZARD,10,1,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,TIME_MAGE,10,1,10,0)
ENDIF

REM *****   BOOOOM!!!      *****
IF_ACTION_POINT(20,PLAYER0)
	SET_FLAG(PLAYER_GOOD,FLAG0,4)
ENDIF
IF(PLAYER_NEUTRAL, TNT == 0)
	SET_FLAG(PLAYER_GOOD,FLAG0,4)
ENDIF
IF(PLAYER_GOOD,FLAG0 == 4)
	DISPLAY_OBJECTIVE(83)
	SET_FLAG(PLAYER_NEUTRAL,FLAG1,1)
		
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,AVATAR1,-2,1)
	
	PLAY_MESSAGE(PLAYER0,SOUND,43)	REM fireball.wav
	PLAY_MESSAGE(PLAYER0,SOUND,46)	REM firepuff.wav
	PLAY_MESSAGE(PLAYER0,SOUND,47)	REM explode.wav
	PLAY_MESSAGE(PLAYER0,SOUND,48)	REM coldpuff.wav
	PLAY_MESSAGE(PLAYER0,SOUND,72)	REM rocks1.wav
	PLAY_MESSAGE(PLAYER0,SOUND,73)	REM rocks2.wav
	PLAY_MESSAGE(PLAYER0,SOUND,74)	REM rocks3.wav
	PLAY_MESSAGE(PLAYER0,SOUND,152)	REM heartdie1.wav
	PLAY_MESSAGE(PLAYER0,SOUND,178)	REM heartdie2.wav
	PLAY_MESSAGE(PLAYER0,SOUND,927)	REM rockfall.wav
	PLAY_MESSAGE(PLAYER0,SOUND,949)	REM tunnel1.wav
	PLAY_MESSAGE(PLAYER0,SOUND,950)	REM tunnel2.wav
	PLAY_MESSAGE(PLAYER0,SOUND,951)	REM tunnel3.wav
	PLAY_MESSAGE(PLAYER0,SOUND,959)	REM doorcls.wav
	PLAY_MESSAGE(PLAYER0,SOUND,970)	REM smash.wav
	PLAY_MESSAGE(PLAYER0,SOUND,972)	REM throwfir.wav
	PLAY_MESSAGE(PLAYER0,SOUND,974)	REM thunder2.wav
	
	CHANGE_SLAB_TYPE(71,40,LAVA)
	
	CHANGE_SLAB_TYPE(69,42,PATH)
	CHANGE_SLAB_TYPE(70,42,PATH)
	CHANGE_SLAB_TYPE(71,41,PATH)
	CHANGE_SLAB_TYPE(71,42,PATH)
	CHANGE_SLAB_TYPE(72,42,PATH)
	CHANGE_SLAB_TYPE(73,42,PATH)
	
	CHANGE_SLAB_TYPE(73,41,PATH)
	CHANGE_SLAB_TYPE(69,41,PATH)
	
	CHANGE_SLAB_TYPE(70,39,PATH)
	CHANGE_SLAB_TYPE(72,39,PATH)
	CHANGE_SLAB_TYPE(70,40,PATH)
	CHANGE_SLAB_TYPE(72,40,PATH)
	CHANGE_SLAB_TYPE(70,41,PATH)
	CHANGE_SLAB_TYPE(72,41,PATH)
	
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_ROCK_FALL,62,10000)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_ROCK_FALL,62,10000)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_ROCK_FALL,62,10000)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_ROCK_FALL,62,10000)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_ROCK_FALL,62,10000)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_ROCK_FALL,62,10000)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_ROCK_FALL,62,10000)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_ROCK_FALL,62,10000)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_ROCK_FALL,62,10000)

	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_ENTRANCE_ICE,62,10000)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_ENTRANCE_ICE,62,10000)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_ENTRANCE_ICE,62,10000)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_ENTRANCE_ICE,62,10000)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_ENTRANCE_ICE,62,10000)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_ENTRANCE_ICE,62,10000)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_ENTRANCE_ICE,62,10000)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_ENTRANCE_ICE,62,10000)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_ENTRANCE_ICE,62,10000)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_ENTRANCE_ICE,62,10000)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_ENTRANCE_ICE,62,10000)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_ENTRANCE_ICE,62,10000)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_ENTRANCE_ICE,62,10000)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_ENTRANCE_ICE,62,10000)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_ENTRANCE_ICE,62,10000)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_ENTRANCE_ICE,62,10000)
	
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,63,0)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,63,0)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,63,0)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,63,0)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,63,0)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,63,0)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,63,0)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,63,0)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,63,0)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,63,0)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,63,0)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,63,0)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,63,0)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,63,0)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,63,0)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,63,0)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,63,0)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,63,0)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,63,0)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,63,0)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,63,0)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,63,0)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,63,0)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,63,0)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,63,0)
	ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,63,0)
	CREATE_EFFECT(14,63) REM word of power
	CREATE_EFFECT(14,63) REM word of power
	CREATE_EFFECT(48,63) REM flash
	CREATE_EFFECT(50,63) REM explosion7
	
	REM Geheimgang frei
	CHANGE_SLAB_TYPE(102,49,PATH)
	CONCEAL_MAP_RECT(PLAYER0, 307, 148, 3, 3, 1)
	
	REM Schleifen-Timer
	SET_TIMER(PLAYER0,TIMER5)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,RITTER,-2,1)
	
	REM Bomben-Timer
	SET_TIMER(PLAYER1,TIMER4)
	
	REM Screen-Shake-Timer
	SET_TIMER(PLAYER1,TIMER5)
	REVEAL_MAP_LOCATION(PLAYER0,61,25)
	REVEAL_MAP_LOCATION(PLAYER0,62,25)
ENDIF

REM **** Bomben-Timer ****
IF(PLAYER1,TIMER4 >= 60)
	CHANGE_SLAB_TYPE(71,40,PATH)
	CHANGE_SLAB_TEXTURE(71,40,12,NONE)
ENDIF
IF(PLAYER1,TIMER4 >= 110)
	CHANGE_SLAB_TEXTURE(71,40,8,NONE)
ENDIF
IF(PLAYER1,TIMER4 >= 160)
	CHANGE_SLAB_TEXTURE(71,40,9,NONE)
ENDIF
IF(PLAYER1,TIMER4 >= 210)
	CHANGE_SLAB_TEXTURE(71,40,2,NONE)
ENDIF

REM **** Screen-Shake ****
SET_FLAG(PLAYER1,FLAG5,22)
IF(PLAYER1,TIMER5 >= 1)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER1,TIMER5)
	IF(PLAYER1,FLAG5 == 22)
		NEXT_COMMAND_REUSABLE
		ZOOM_TO_LOCATION(PLAYER0,61)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER1,FLAG5,39)
	ENDIF
	IF(PLAYER1,FLAG5 == 33)
		NEXT_COMMAND_REUSABLE
		ZOOM_TO_LOCATION(PLAYER0,62)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER1,FLAG5,22)
	ENDIF
	IF(PLAYER1,FLAG5 == 39)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER1,FLAG5,33)
	ENDIF
ENDIF
REM **** Shake-Timer Ende ****
IF(PLAYER1,TIMER4 >= 50)
	SET_FLAG(PLAYER1,FLAG5,99)
ENDIF

IF_ACTION_POINT(43,PLAYER0)
	DISPLAY_OBJECTIVE(85)
	SET_FLAG(PLAYER_NEUTRAL,FLAG1,1)
	
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,AVATAR2,45,1)
	
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,WITCH,45,3,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,MONK,45,6,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,WIZARD,45,3,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,TIME_MAGE,45,3,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,FAIRY,45,5,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,GIANT,45,5,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,THIEF,45,2,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DWARFA,45,2,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BARBARIAN,45,4,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,SAMURAI,45,3,10,0)
	
	CHANGE_SLAB_TYPE(94,40,HARD)
	CHANGE_SLAB_TYPE(94,41,HARD)
	CHANGE_SLAB_TYPE(94,42,HARD)
	CHANGE_SLAB_TYPE(95,40,HARD)
	CHANGE_SLAB_TYPE(95,41,HARD)
	CHANGE_SLAB_TYPE(95,42,HARD)
	CHANGE_SLAB_TYPE(96,40,HARD)
	CHANGE_SLAB_TYPE(96,41,HARD)
	CHANGE_SLAB_TYPE(96,42,HARD)
	KILL_CREATURE(PLAYER_GOOD,HORNY,LEAST_EXPERIENCED,1)
ENDIF

REM *****   WIN   *****
IF(PLAYER_GOOD,DUNGEON_DESTROYED==1)
	IF(PLAYER_GOOD,TOTAL_CREATURES==0)
		DISPLAY_OBJECTIVE(86)
		WIN_GAME
	ENDIF
ENDIF

REM *****  Helden Party Spawn  *****
IF(PLAYER_GOOD,TOTAL_CREATURES < 150)
	IF(PLAYER_GOOD,KNIGHT > 0)
		IF(PLAYER0,TIMER1 >= 2000)
			IF(PLAYER_GOOD,FLAG0==1)
				NEXT_COMMAND_REUSABLE
				ADD_PARTY_TO_LEVEL(PLAYER_GOOD,SCHATZSUCHER1,-1,1)
			ENDIF
			IF(PLAYER_GOOD,FLAG0==2)
				NEXT_COMMAND_REUSABLE
				ADD_PARTY_TO_LEVEL(PLAYER_GOOD,SCHATZSUCHER2,-1,1)
			ENDIF
			IF(PLAYER_GOOD,FLAG0>=3)
				NEXT_COMMAND_REUSABLE
				ADD_PARTY_TO_LEVEL(PLAYER_GOOD,SCHATZSUCHER3,-1,1)
			ENDIF
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER0,TIMER1)
		ENDIF
	ENDIF
	IF(PLAYER_GOOD,AVATAR > 0)
		IF(PLAYER0,TIMER5 >= 5999)
			NEXT_COMMAND_REUSABLE
			ADD_PARTY_TO_LEVEL(PLAYER_GOOD,RITTER,-2,1)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER0,TIMER5)
		ENDIF
	ENDIF
ENDIF

REM *****  Kreaturen Limits  *****
IF(PLAYER0,IMP >= 30)
	DISPLAY_INFORMATION(60)
	NEXT_COMMAND_REUSABLE
	MAGIC_AVAILABLE(PLAYER0,POWER_IMP,0,0)
ENDIF
IF(PLAYER0,IMP < 30)
	IF(PLAYER_NEUTRAL,FLAG2 == 1)	
		NEXT_COMMAND_REUSABLE
		MAGIC_AVAILABLE(PLAYER0,POWER_IMP,1,1)
	ENDIF
ENDIF
IF(PLAYER0,TOTAL_CREATURES >= 50)
	DISPLAY_INFORMATION(87)
	NEXT_COMMAND_REUSABLE
	SET_GAME_RULE(TortureDeathChance,100)
	NEXT_COMMAND_REUSABLE
	SET_CREATURE_TENDENCIES(PLAYER0,IMPRISON,0)
ENDIF
IF(PLAYER0,TOTAL_CREATURES < 50)
	NEXT_COMMAND_REUSABLE
	SET_GAME_RULE(TortureDeathChance,0)
ENDIF
IF(PLAYER0,SPIDER >= 1)
	DISPLAY_INFORMATION(122)
	NEXT_COMMAND_REUSABLE
	KILL_CREATURE(PLAYER0,SPIDER,ANYWHERE,1)
ENDIF
IF(PLAYER0,VAMPIRE >= 5)
	DISPLAY_INFORMATION(121)
	NEXT_COMMAND_REUSABLE
	SET_ROOM_CONFIGURATION(GRAVEYARD,Roles,0)
ENDIF
IF(PLAYER0,VAMPIRE < 5)
	NEXT_COMMAND_REUSABLE
	SET_ROOM_CONFIGURATION(GRAVEYARD,Roles,640)
REM **** Roles = ROOM_ROLE_DEAD_STORAGE(128) + ROOM_ROLE_CONDITIONAL_SPAWN(512)
ENDIF

REM *****   Kreaturen-Infos  *****
IF(PLAYER_GOOD,PRISON == 6)
	DISPLAY_INFORMATION(106)
	CREATURE_AVAILABLE(PLAYER0,DARK_MISTRESS,1,0)
	SET_CREATURE_PROPERTY(DARK_MISTRESS,NO_IMPRISONMENT,0)
ENDIF
IF(PLAYER0,HORNY > 0)
	DISPLAY_INFORMATION(84)
ENDIF
IF(PLAYER0,THIEF > 0)
	DISPLAY_INFORMATION(107)
ENDIF
IF(PLAYER0,KNIGHT > 0)
	DISPLAY_INFORMATION(108)
ENDIF
IF(PLAYER0,AVATAR > 0)
	DISPLAY_INFORMATION(109)
ENDIF

REM *****   EINGAENGE   *****
IF(PLAYER0,ENTRANCE > 0)
	DISPLAY_INFORMATION(116)
	CHANGE_SLAB_TYPE(11,99,PATH)
	MAX_CREATURES(PLAYER0,15)
ENDIF
IF(PLAYER0,ENTRANCE > 9)
	REM Text Eingang 2
	CREATURE_AVAILABLE(PLAYER0,TENTACLE,1,1)
	DISPLAY_INFORMATION(117)
	MAX_CREATURES(PLAYER0,25)
ENDIF
IF(PLAYER0,ENTRANCE > 18)
	REM Text Eingang 3
	DISPLAY_INFORMATION(118)
	MAX_CREATURES(PLAYER0,35)
ENDIF

REM *****   HORNY-ALARM1   *****
IF_ACTION_POINT(77,PLAYER0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,HELL_HOUND,77,1,10,0)
ENDIF
REM *****   HORNY-ALARM2   *****
IF_ACTION_POINT(13,PLAYER0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BARBARIAN,14,1,10,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,HELL_HOUND,14,9,10,0)
ENDIF

REM ***** Entferne unheilige Tempel Textur *****
IF_SLAB_TYPE(98,56,PRETTY_PATH)
	CHANGE_SLAB_TEXTURE(98,56,13,NONE)
ENDIF


REM *****   Fallen & Tueren  *****
IF_AVAILABLE(PLAYER0,POISON_GAS >= 1)
	DISPLAY_INFORMATION(101)
	TRAP_AVAILABLE(PLAYER0,POISON_GAS,1,0)
ENDIF
IF_AVAILABLE(PLAYER0,LIGHTNING >= 1)
	DISPLAY_INFORMATION(102)
	TRAP_AVAILABLE(PLAYER0,LIGHTNING,1,0)
ENDIF
IF_AVAILABLE(PLAYER0,WORD_OF_POWER >= 1)
	DISPLAY_INFORMATION(103)
	TRAP_AVAILABLE(PLAYER0,WORD_OF_POWER,1,0)
ENDIF
IF_AVAILABLE(PLAYER0,STEEL >= 1)
	DISPLAY_INFORMATION(104)
	DOOR_AVAILABLE(PLAYER0,STEEL,1,0)
ENDIF
IF_AVAILABLE(PLAYER0,MAGIC >= 1)
	DISPLAY_INFORMATION(105)
	DOOR_AVAILABLE(PLAYER0,MAGIC,1,0)
ENDIF

REM *****   Zauber  *****
IF_AVAILABLE(PLAYER0,POWER_SPEED == 1)
	DISPLAY_INFORMATION(89)
ENDIF
IF_AVAILABLE(PLAYER0,POWER_CALL_TO_ARMS == 1)
	DISPLAY_INFORMATION(90)
ENDIF
IF_AVAILABLE(PLAYER0,POWER_OBEY == 1)
	DISPLAY_INFORMATION(91)
ENDIF
IF_AVAILABLE(PLAYER0,POWER_SIGHT == 1)
	DISPLAY_INFORMATION(92)
ENDIF
IF_AVAILABLE(PLAYER0,POWER_CAVE_IN == 1)
	DISPLAY_INFORMATION(93)
ENDIF
IF_AVAILABLE(PLAYER0,POWER_HEAL_CREATURE == 1)
	DISPLAY_INFORMATION(94)
ENDIF
IF_AVAILABLE(PLAYER0,POWER_HOLD_AUDIENCE == 1)
	DISPLAY_INFORMATION(95)
ENDIF
IF_AVAILABLE(PLAYER0,POWER_LIGHTNING == 1)
	DISPLAY_INFORMATION(96)
ENDIF
IF_AVAILABLE(PLAYER0,POWER_PROTECT == 1)
	DISPLAY_INFORMATION(97)
ENDIF
IF_AVAILABLE(PLAYER0,POWER_CONCEAL == 1)
	DISPLAY_INFORMATION(98)
ENDIF
IF_AVAILABLE(PLAYER0,POWER_DISEASE == 1)
	DISPLAY_INFORMATION(99)
ENDIF
IF_AVAILABLE(PLAYER0,POWER_CHICKEN == 1)
	DISPLAY_INFORMATION(100)
ENDIF