LEVEL_VERSION(1)

SET_GENERATE_SPEED(300)
MAX_CREATURES(PLAYER0,15)
START_MONEY(PLAYER0,1017)


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


SET_MUSIC(6) REM Standard-Song


REM ***** Folter verrt keine Infos ****

REM     33% (Normal) => 100%
SET_GAME_RULE(TortureConvertChance,100)

REM      Alle Werte x3 auer: 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)





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,DARK_MISTRESS,1,0)

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



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




REM ***** SETUP BLAU *****
COMPUTER_PLAYER(PLAYER1,0)
MAX_CREATURES(PLAYER1,0)
START_MONEY(PLAYER1,99999999)
CREATURE_ENTRANCE_LEVEL (PLAYER1, 6)

MAGIC_AVAILABLE(PLAYER1,POWER_HAND,0,0)
MAGIC_AVAILABLE(PLAYER1,POWER_SLAP,0,0)
MAGIC_AVAILABLE(PLAYER1,POWER_IMP,0,0)
MAGIC_AVAILABLE(PLAYER1,POWER_LIGHTNING,1,1)
MAGIC_AVAILABLE(PLAYER1,POWER_HOLD_AUDIENCE,1,1)
MAGIC_AVAILABLE(PLAYER1,POWER_OBEY,1,1)

SET_CREATURE_TENDENCIES(PLAYER1,IMPRISON,0)

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



REM ***** SETUP GRUEN *****
COMPUTER_PLAYER(PLAYER2,0)
MAX_CREATURES(PLAYER2,0)
START_MONEY(PLAYER2,99999999)
CREATURE_ENTRANCE_LEVEL (PLAYER1, 3)

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)

REM ***** SETUP GELB *****
COMPUTER_PLAYER(PLAYER3,0)
MAX_CREATURES(PLAYER3,15)
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)

CREATURE_AVAILABLE(PLAYER3,DEMONSPAWN,1,1)
CREATURE_AVAILABLE(PLAYER3,SORCEROR,1,1)
CREATURE_AVAILABLE(PLAYER3,DRAGON,1,1)





REM ***** SETUP HELD *****
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 *****               *****
REM *****  DIE KAPITEL  *****
REM *****               *****
REM *****               *****


REM *****   INIT    *****

DISPLAY_OBJECTIVE(45,PLAYER0)

SET_TIMER(PLAYER0,TIMER2)


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



REM *****   IF: 1   *****
IF(PLAYER0,TIMER2 >= 500)
		DISPLAY_INFORMATION(46)
		TUTORIAL_FLASH_BUTTON(21,0)
ENDIF


REM *****   IF: 2   *****
IF_ACTION_POINT(21,PLAYER0)
		DISPLAY_OBJECTIVE(47,PLAYER0)
ENDIF


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

REM *****   IF: 4   *****
IF(PLAYER0,TREASURE > 0)
		DISPLAY_INFORMATION(49)
		ROOM_AVAILABLE(PLAYER0,TREASURE,1,1)
		TUTORIAL_FLASH_BUTTON(6,0)
ENDIF


REM *****   Tuer verschlossen   *****
IF_ACTION_POINT(12,PLAYER0)
		DISPLAY_INFORMATION(110,PLAYER0)
		TUTORIAL_FLASH_BUTTON(5,0)
ENDIF



REM *****   IF: 5   *****
IF(PLAYER0,GARDEN > 0)
		DISPLAY_INFORMATION(50)
		ROOM_AVAILABLE(PLAYER0,GARDEN,1,1)
		TUTORIAL_FLASH_BUTTON(7,0)
ENDIF

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

REM *****   IF: 7   *****
IF(PLAYER0,FLY > 0)
		DISPLAY_INFORMATION(52)
ENDIF



REM *****   SLAP   *****
IF_ACTION_POINT(11,PLAYER0)
		DISPLAY_INFORMATION(88)
ENDIF



REM *****   IF: 8   *****
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

REM *****   IF: 9   *****
IF_ACTION_POINT(22,PLAYER0)
		DISPLAY_OBJECTIVE(54,PLAYER0)
		MAGIC_AVAILABLE(PLAYER0,POWER_POSSESS,1,1)
		TUTORIAL_FLASH_BUTTON(36,0)
ENDIF



REM *****   Barracken entdeckt   *****
IF_ACTION_POINT(23,PLAYER0)
		DISPLAY_INFORMATION(111,PLAYER0)
ENDIF


REM *****   IF: 10   *****
IF_AVAILABLE(PLAYER0,BARRACKS >= 1)
		DISPLAY_INFORMATION(55,PLAYER0)
		TUTORIAL_FLASH_BUTTON(16,0)
ENDIF


REM *****   IF: 11   *****
IF_ACTION_POINT(24,PLAYER0)
		DISPLAY_OBJECTIVE(56,PLAYER0)
    	CHANGE_SLAB_TYPE(8,87,PATH)
    	CHANGE_SLAB_TYPE(8,88,PATH)
    	CHANGE_SLAB_TYPE(8,89,PATH)
		ROOM_AVAILABLE(PLAYER0,BARRACKS,1,0)
ENDIF


REM *****   IF: 12   *****
IF_ACTION_POINT(5,PLAYER0)
		DISPLAY_OBJECTIVE(57,PLAYER0)
    	CHANGE_SLAB_TYPE(10,53,PATH)
    	CHANGE_SLAB_TYPE(10,54,PATH)
ENDIF


REM *****   IF: 13   *****
IF_ACTION_POINT(25,PLAYER0)
		DISPLAY_OBJECTIVE(58,PLAYER0)
ENDIF

REM *****   IF: 22   *****
IF_ACTION_POINT(54,PLAYER0)
		MAGIC_AVAILABLE(PLAYER3,POWER_CALL_TO_ARMS,1,1)
ENDIF

REM *****   IF: 14   *****
IF(PLAYER3,DUNGEON_DESTROYED==1)
		DISPLAY_OBJECTIVE(59,PLAYER0)
		
		CREATURE_AVAILABLE(PLAYER0,DRAGON,1,0)
		
		SET_CREATURE_PROPERTY(DEMONSPAWN,NEVER_CHICKENS,0)
		SET_CREATURE_PROPERTY(DRAGON,NEVER_CHICKENS,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 >= 2000)
		ADD_TUNNELLER_TO_LEVEL(PLAYER_GOOD,1,ACTION_POINT,60,4,300)
ENDIF


REM *****   IF: 15   (IMP-ABFRAGE) *****
IF(PLAYER0,IMP >= 30)
		DISPLAY_INFORMATION(60)
		NEXT_COMMAND_REUSABLE
		MAGIC_AVAILABLE(PLAYER0,POWER_IMP,0,0)
ENDIF

REM *****   IF: 48   *****
IF(PLAYER0,IMP < 30)
		NEXT_COMMAND_REUSABLE
		MAGIC_AVAILABLE(PLAYER0,POWER_IMP,1,1)
ENDIF





REM *****   IF: 16   *****
IF_ACTION_POINT(18,PLAYER0)
	DISPLAY_OBJECTIVE(61,PLAYER0)
	
	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,PLAYER0)
	ENDIF
ENDIF


REM *****   IF: 17   *****
IF(PLAYER_GOOD,TOTAL_CREATURES < 150)

	REM *****   IF: 18 & 19   *****
	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	
	
	
	REM *****   IF: 42 & 43   *****
	IF(PLAYER_GOOD,AVATAR > 0)
		IF(PLAYER0,TIMER5 >= 3999)
			NEXT_COMMAND_REUSABLE
			ADD_PARTY_TO_LEVEL(PLAYER_GOOD,RITTER,-2,1)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER0,TIMER5)
		ENDIF
	ENDIF
ENDIF


REM *****   IF: 20   *****
IF(PLAYER0,GUARD_POST > 0)
		DISPLAY_INFORMATION(62)
		ROOM_AVAILABLE(PLAYER0,GUARD_POST,1,1)
		TUTORIAL_FLASH_BUTTON(19,0)
ENDIF


REM *****   IF: 21   *****
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


REM *****   IF: 22   *****
IF_ACTION_POINT(2,PLAYER0)
		DISPLAY_INFORMATION(64)
ENDIF


REM *****   IF: 23   *****
IF_ACTION_POINT(4,PLAYER0)
		DISPLAY_OBJECTIVE(65,PLAYER0)
		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


REM *****   IF: 24   *****
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

REM *****   Tuer zu Folterkammer  *****
IF_ACTION_POINT(47,PLAYER0)
		DISPLAY_INFORMATION_WITH_POS(113,307,202)
ENDIF

REM *****   Geheim 1  *****
IF_ACTION_POINT(51,PLAYER0)
		DISPLAY_INFORMATION_WITH_POS(114,295,178)
ENDIF

REM *****   Geheim 2  *****
IF_ACTION_POINT(52,PLAYER0)
	IF(PLAYER_GOOD,FLAG0 < 4)
		DISPLAY_INFORMATION(115)
		DISPLAY_INFORMATION_WITH_POS(115,307,148)
	ENDIF
ENDIF

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


REM *****   IF: 25   *****
IF(PLAYER0,TORTURE > 0)
		DISPLAY_INFORMATION(67)
		ROOM_AVAILABLE(PLAYER0,TORTURE,1,1)
		TUTORIAL_FLASH_BUTTON(17,0)
ENDIF


REM *****   IF: 26   *****
IF(PLAYER0,DRUID > 0)
		DISPLAY_OBJECTIVE(68)
		CREATURE_AVAILABLE(PLAYER0,DRUID,1,1)
		SET_MUSIC(4) REM Bedrohlich
ENDIF


REM *****   IF: 27   *****
IF_ACTION_POINT(6,PLAYER0)
		DISPLAY_OBJECTIVE(69)
		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)

		MAX_CREATURES(PLAYER2,30)
		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,ORC,1,1)
		
    	CHANGE_SLAB_TYPE(43,94,PATH)
ENDIF


REM *****   IF: 28   *****
IF(PLAYER0,TEMPLE > 0)
		DISPLAY_INFORMATION(70)
		ROOM_AVAILABLE(PLAYER0,TEMPLE,1,1)
		TUTORIAL_FLASH_BUTTON(12,0)
ENDIF


REM *****   IF: 29   *****
IF(PLAYER0,BILE_DEMON > 0)
		DISPLAY_INFORMATION(71)
		CREATURE_AVAILABLE(PLAYER0,BILE_DEMON,1,1)
ENDIF


REM *****   IF: 30   *****
IF_ACTION_POINT(26,PLAYER0)
		DISPLAY_OBJECTIVE(72)
		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



REM *****   IF: 31   *****
IF(PLAYER2,DUNGEON_DESTROYED==1)

		SET_FLAG(PLAYER_GOOD,FLAG0,2)

		DISPLAY_OBJECTIVE(73)

    	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



REM *****   IF: 32   *****
IF_ACTION_POINT(15,PLAYER0)
		DISPLAY_OBJECTIVE(74)

		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,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)

		MAX_CREATURES(PLAYER1,40)
		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(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


REM *****   IF: 33   *****
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


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


REM *****   IF: 35   *****
IF_ACTION_POINT(27,PLAYER0)
		DISPLAY_OBJECTIVE(77)
		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


REM *****   IF: 36   *****
IF(PLAYER1,DUNGEON_DESTROYED==1)

		SET_FLAG(PLAYER_GOOD,FLAG0,3)

		DISPLAY_OBJECTIVE(78)
    	CHANGE_SLAB_TYPE(71,71,PATH)
ENDIF


REM *****   IF: 37   *****
IF(PLAYER0,GRAVEYARD > 0)
		DISPLAY_INFORMATION(79)
		ROOM_AVAILABLE(PLAYER0,GRAVEYARD,1,1)
		TUTORIAL_FLASH_BUTTON(15,0)
ENDIF


REM *****   IF: 38   *****
IF_ACTION_POINT(28,PLAYER0)
		DISPLAY_OBJECTIVE(80)
		MAGIC_AVAILABLE(PLAYER0,POWER_DESTROY_WALLS,1,0)
ENDIF


REM *****   IF: 39   *****
IF_AVAILABLE(PLAYER0,POWER_DESTROY_WALLS == 1)
		DISPLAY_INFORMATION(81)
ENDIF


REM *****   IF: 40   *****
IF_ACTION_POINT(29,PLAYER0)
		DISPLAY_OBJECTIVE(82)
		
		SET_MUSIC(2) REM Mysteris, Schwrmend, Glowing
		
		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 *****   IF: 41       BOOOOM!!!      *****
IF_ACTION_POINT(20,PLAYER0)

		SET_FLAG(PLAYER_GOOD,FLAG0,4)

		DISPLAY_OBJECTIVE(83)
		
    	CHANGE_SLAB_TYPE(71,40,LAVA)
		
    	CHANGE_SLAB_TYPE(71,41,PATH)
    	CHANGE_SLAB_TYPE(70,42,PATH)
    	CHANGE_SLAB_TYPE(71,42,PATH)
    	CHANGE_SLAB_TYPE(72,42,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)
		
		CHANGE_SLAB_TYPE(102,49,PATH)
		CONCEAL_MAP_RECT(PLAYER0, 307, 148, 3, 3, 1)
		
		ADD_PARTY_TO_LEVEL(PLAYER_GOOD,AVATAR1,-2,1)
		
		REM Schleifen-Timer
 		SET_TIMER(PLAYER0,TIMER5)
		ADD_PARTY_TO_LEVEL(PLAYER_GOOD,RITTER,-2,1)
		
		REM Bomben-Timer
		SET_TIMER(PLAYER1,TIMER4)
ENDIF


IF(PLAYER1,TIMER4 >= 20)
    	CHANGE_SLAB_TYPE(71,40,PATH)
		CHANGE_SLAB_TEXTURE(71,40,12,NONE)
ENDIF



IF_SLAB_OWNER(71,40,PLAYER0)
	CHANGE_SLAB_TEXTURE(71,40,2,NONE)
ENDIF


REM *****   IF: 42 & 43   *****

REM      SIEHE ZEILE 303


REM *****   IF: 44   *****
IF(PLAYER0,HORNY > 0)
		DISPLAY_INFORMATION(84)
ENDIF



REM *****   IF: 45   *****
IF_ACTION_POINT(43,PLAYER0)
		DISPLAY_OBJECTIVE(85)
		
		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)
ENDIF



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



REM *****   IF: 47   *****
IF_ACTION_POINT(46,PLAYER0)
	DISPLAY_INFORMATION(44)
ENDIF



REM *****   IF: 48   *****
IF(PLAYER0,SKELETON >= 30)
	DISPLAY_INFORMATION(87)
	NEXT_COMMAND_REUSABLE
	SET_CREATURE_TENDENCIES(PLAYER0,IMPRISON,0)
ENDIF



REM *****   HORNY-ALARM   *****
IF_ACTION_POINT(13,PLAYER0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,SAMURAI,14,1,8,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,WIZARD,14,1,8,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,WITCH,14,1,8,0)
ENDIF



REM *****   EINGAENGE   *****

IF(PLAYER0,ENTRANCE > 0)
	DISPLAY_INFORMATION(116)
    CHANGE_SLAB_TYPE(11,99,PATH)
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 *****   Untoten - Diamant   *****

SET_HEART_HEALTH(PLAYER5,30000)

IF(PLAYER_GOOD,SKELETON < 13)
	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 < 5)
	ADD_HEART_HEALTH(PLAYER5,-5000,0)
ENDIF
IF(PLAYER_GOOD,VAMPIRE < 2)
	ADD_HEART_HEALTH(PLAYER5,-7000,0)
ENDIF
IF(PLAYER_GOOD,VAMPIRE < 1)
	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_TEXTURE(117,107,6,NONE)
	CHANGE_SLAB_TYPE(116,108,PATH)
	CHANGE_SLAB_TYPE(117,108,PATH)
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 *****   Geheim-Tempel  *****
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


IF(PLAYER0,DARK_MISTRESS > 0)
		DISPLAY_INFORMATION(106)
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




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