REM *** 
REM ***             FLAGS & TIMERS
REM *** 
REM *** CAMPAIGN_FLAG1,1 	=> GRUPPE 1 gesperrt
REM *** CAMPAIGN_FLAG2,1 	=> GRUPPE 2 gesperrt
REM *** CAMPAIGN_FLAG3,1 	=> GRUPPE 3 gesperrt
REM *** CAMPAIGN_FLAG4,1 	=> GRUPPE 4 gesperrt
REM *** CAMPAIGN_FLAG5,1 	=> GRUPPE 5 gesperrt
REM *** CAMPAIGN_FLAG6,1 	=> GRUPPE 6 gesperrt
REM *** 
REM *** PLAYER0,FLAG1,1 	=> GRUPPE 1 aktiv
REM *** PLAYER0,FLAG2,1 	=> GRUPPE 2 aktiv
REM *** PLAYER0,FLAG3,1 	=> GRUPPE 3 aktiv
REM *** PLAYER0,FLAG4,1 	=> GRUPPE 4 aktiv
REM *** PLAYER0,FLAG5,1 	=> GRUPPE 5 aktiv
REM *** PLAYER0,FLAG6,1 	=> GRUPPE 6 aktiv
REM *** 
REM *** PLAYER0,FLAG0,0 	=> GRUPPE noch nicht gewaehlt
REM *** PLAYER0,FLAG0,1 	=> GRUPPE gewaehlt
REM *** PLAYER0,FLAG0,2 	=> Level gewonnen
REM *** PLAYER_GOOD,FLAG7,999 => Sperrung aktiver GRUPPE
REM *** 
REM *** PLAYER0,TIMER0  	=> Delay fuer "BodyRemainsFor"
REM *** PLAYER0,TIMER1  	=> Zoom zu Geist-ActionPoint
REM *** 
REM *** PLAYER1,TIMER0  	=> Fliegen-Timer
REM *** PLAYER1,TIMER1  	=> Tentakel-Timer
REM *** PLAYER1,FLAG0 		=> Fliegen-Trigger
REM *** 

LEVEL_VERSION(1)
RUN_AFTER_VICTORY(1)

SET_HAND_RULE(PLAYER0,ANY_CREATURE,RULE0,DENY,ALWAYS)
SET_HAND_RULE(PLAYER0,IMP,RULE0,DENY,ALWAYS)
SET_HAND_RULE(PLAYER0,GHOST,RULE0,ALLOW,LEVEL_LOWER,2)
SET_CREATURE_PROPERTY(AVATAR,NO_TRANSFER,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(HELL_HOUND,20)
ADD_CREATURE_TO_POOL(TENTACLE,20)
ADD_CREATURE_TO_POOL(SORCEROR,20)
ADD_CREATURE_TO_POOL(ORC,20)
ADD_CREATURE_TO_POOL(BILE_DEMON,20)
ADD_CREATURE_TO_POOL(DRAGON,20)
ADD_CREATURE_TO_POOL(DARK_MISTRESS,20)
ADD_CREATURE_TO_POOL(GHOST,20)
ADD_CREATURE_TO_POOL(SKELETON,20)
ADD_CREATURE_TO_POOL(DRUID,20)

ADD_CREATURE_TO_POOL(THIEF,20)
ADD_CREATURE_TO_POOL(TUNNELLER,20)
ADD_CREATURE_TO_POOL(DWARFA,20)
ADD_CREATURE_TO_POOL(ARCHER,20)
ADD_CREATURE_TO_POOL(BARBARIAN,20)
ADD_CREATURE_TO_POOL(MONK,20)
ADD_CREATURE_TO_POOL(FAIRY,20)
ADD_CREATURE_TO_POOL(WIZARD,20)
ADD_CREATURE_TO_POOL(GIANT,20)
ADD_CREATURE_TO_POOL(TIME_MAGE,20)
ADD_CREATURE_TO_POOL(WITCH,20)
ADD_CREATURE_TO_POOL(SAMURAI,20)

ADD_CREATURE_TO_POOL(HORNY,2)
ADD_CREATURE_TO_POOL(KNIGHT,2)

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

REVEAL_MAP_LOCATION(PLAYER0,1,25)
REVEAL_MAP_LOCATION(PLAYER0,2,25)
REVEAL_MAP_LOCATION(PLAYER0,3,25)
REVEAL_MAP_LOCATION(PLAYER0,4,25)
REVEAL_MAP_LOCATION(PLAYER0,5,25)
REVEAL_MAP_LOCATION(PLAYER0,6,25)
REVEAL_MAP_LOCATION(PLAYER0,14,25)

SET_FLAG(PLAYER0,FLAG0,0)	REM    Geist nicht geopfert

IF(PLAYER0,FLAG0==0)
	IF(PLAYER0, CAMPAIGN_FLAG1 == 1)
		KILL_CREATURE(PLAYER_GOOD,DEMONSPAWN,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,TROLL,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,ORC,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,BILE_DEMON,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,DRAGON,LEAST_EXPERIENCED,1)
		CHANGE_SLAB_TYPE(4,1,GEMS)
		CHANGE_SLAB_TYPE(6,1,GEMS)
		CHANGE_SLAB_TYPE(4,2,GEMS)
		CHANGE_SLAB_TYPE(5,2,GEMS)
		CHANGE_SLAB_TYPE(6,2,GEMS)
		CHANGE_SLAB_TYPE(1,3,GEMS)
		CHANGE_SLAB_TYPE(2,3,GEMS)
		CHANGE_SLAB_TYPE(3,3,GEMS)
		CHANGE_SLAB_TYPE(4,3,GEMS)
		CHANGE_SLAB_TYPE(5,3,GEMS)
		CHANGE_SLAB_TYPE(6,3,GEMS)
		CHANGE_SLAB_TYPE(7,3,GEMS)
		CHANGE_SLAB_TYPE(8,3,GEMS)
		CHANGE_SLAB_TYPE(9,3,GEMS)
		CHANGE_SLAB_TYPE(1,4,GEMS)
		CHANGE_SLAB_TYPE(2,4,GEMS)
		CHANGE_SLAB_TYPE(3,4,GEMS)
		CHANGE_SLAB_TYPE(4,4,GEMS)
		CHANGE_SLAB_TYPE(5,4,GEMS)
		CHANGE_SLAB_TYPE(6,4,GEMS)
		CHANGE_SLAB_TYPE(7,4,GEMS)
		CHANGE_SLAB_TYPE(8,4,GEMS)
		CHANGE_SLAB_TYPE(9,4,GEMS)
		CHANGE_SLAB_TYPE(1,5,GEMS)
		CHANGE_SLAB_TYPE(2,5,GEMS)
		CHANGE_SLAB_TYPE(3,5,GEMS)
		CHANGE_SLAB_TYPE(4,5,GEMS)
		CHANGE_SLAB_TYPE(5,5,GEMS)
		CHANGE_SLAB_TYPE(6,5,GEMS)
		CHANGE_SLAB_TYPE(7,5,GEMS)
		CHANGE_SLAB_TYPE(8,5,GEMS)
		CHANGE_SLAB_TYPE(9,5,GEMS)
		CHANGE_SLAB_TYPE(4,6,GEMS)
		CHANGE_SLAB_TYPE(5,6,GEMS)
		CHANGE_SLAB_TYPE(6,6,GEMS)
		CHANGE_SLAB_TYPE(4,7,GEMS)
		CHANGE_SLAB_TYPE(5,7,GEMS)
		CHANGE_SLAB_TYPE(6,7,GEMS)
		CHANGE_SLAB_TYPE(4,8,GEMS)
		CHANGE_SLAB_TYPE(5,8,GEMS)
		CHANGE_SLAB_TYPE(6,8,GEMS)
		SET_TIMER(PLAYER0,TIMER0)
	ENDIF
	
	IF(PLAYER0, CAMPAIGN_FLAG2 == 1)
		KILL_CREATURE(PLAYER_GOOD,BUG,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,SPIDER,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,DARK_MISTRESS,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,SKELETON,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,GHOST,LEAST_EXPERIENCED,1)
		CHANGE_SLAB_TYPE(14,1,GEMS)
		CHANGE_SLAB_TYPE(16,1,GEMS)
		CHANGE_SLAB_TYPE(14,2,GEMS)
		CHANGE_SLAB_TYPE(15,2,GEMS)
		CHANGE_SLAB_TYPE(16,2,GEMS)
		CHANGE_SLAB_TYPE(11,3,GEMS)
		CHANGE_SLAB_TYPE(12,3,GEMS)
		CHANGE_SLAB_TYPE(13,3,GEMS)
		CHANGE_SLAB_TYPE(14,3,GEMS)
		CHANGE_SLAB_TYPE(15,3,GEMS)
		CHANGE_SLAB_TYPE(16,3,GEMS)
		CHANGE_SLAB_TYPE(17,3,GEMS)
		CHANGE_SLAB_TYPE(18,3,GEMS)
		CHANGE_SLAB_TYPE(19,3,GEMS)
		CHANGE_SLAB_TYPE(11,4,GEMS)
		CHANGE_SLAB_TYPE(12,4,GEMS)
		CHANGE_SLAB_TYPE(13,4,GEMS)
		CHANGE_SLAB_TYPE(14,4,GEMS)
		CHANGE_SLAB_TYPE(15,4,GEMS)
		CHANGE_SLAB_TYPE(16,4,GEMS)
		CHANGE_SLAB_TYPE(17,4,GEMS)
		CHANGE_SLAB_TYPE(18,4,GEMS)
		CHANGE_SLAB_TYPE(19,4,GEMS)
		CHANGE_SLAB_TYPE(11,5,GEMS)
		CHANGE_SLAB_TYPE(12,5,GEMS)
		CHANGE_SLAB_TYPE(13,5,GEMS)
		CHANGE_SLAB_TYPE(14,5,GEMS)
		CHANGE_SLAB_TYPE(15,5,GEMS)
		CHANGE_SLAB_TYPE(16,5,GEMS)
		CHANGE_SLAB_TYPE(17,5,GEMS)
		CHANGE_SLAB_TYPE(18,5,GEMS)
		CHANGE_SLAB_TYPE(19,5,GEMS)
		CHANGE_SLAB_TYPE(14,6,GEMS)
		CHANGE_SLAB_TYPE(15,6,GEMS)
		CHANGE_SLAB_TYPE(16,6,GEMS)
		CHANGE_SLAB_TYPE(14,7,GEMS)
		CHANGE_SLAB_TYPE(15,7,GEMS)
		CHANGE_SLAB_TYPE(16,7,GEMS)
		CHANGE_SLAB_TYPE(14,8,GEMS)
		CHANGE_SLAB_TYPE(15,8,GEMS)
		CHANGE_SLAB_TYPE(16,8,GEMS)
		SET_TIMER(PLAYER0,TIMER0)
	ENDIF
	
	IF(PLAYER0, CAMPAIGN_FLAG3 == 1)
		KILL_CREATURE(PLAYER_GOOD,FLY,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,HELL_HOUND,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,TENTACLE,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,SORCEROR,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,HORNY,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,DRUID,LEAST_EXPERIENCED,1)
		CHANGE_SLAB_TYPE(24,1,GEMS)
		CHANGE_SLAB_TYPE(26,1,GEMS)
		CHANGE_SLAB_TYPE(24,2,GEMS)
		CHANGE_SLAB_TYPE(25,2,GEMS)
		CHANGE_SLAB_TYPE(26,2,GEMS)
		CHANGE_SLAB_TYPE(21,3,GEMS)
		CHANGE_SLAB_TYPE(22,3,GEMS)
		CHANGE_SLAB_TYPE(23,3,GEMS)
		CHANGE_SLAB_TYPE(24,3,GEMS)
		CHANGE_SLAB_TYPE(25,3,GEMS)
		CHANGE_SLAB_TYPE(26,3,GEMS)
		CHANGE_SLAB_TYPE(27,3,GEMS)
		CHANGE_SLAB_TYPE(28,3,GEMS)
		CHANGE_SLAB_TYPE(29,3,GEMS)
		CHANGE_SLAB_TYPE(21,4,GEMS)
		CHANGE_SLAB_TYPE(22,4,GEMS)
		CHANGE_SLAB_TYPE(23,4,GEMS)
		CHANGE_SLAB_TYPE(24,4,GEMS)
		CHANGE_SLAB_TYPE(25,4,GEMS)
		CHANGE_SLAB_TYPE(26,4,GEMS)
		CHANGE_SLAB_TYPE(27,4,GEMS)
		CHANGE_SLAB_TYPE(28,4,GEMS)
		CHANGE_SLAB_TYPE(29,4,GEMS)
		CHANGE_SLAB_TYPE(21,5,GEMS)
		CHANGE_SLAB_TYPE(22,5,GEMS)
		CHANGE_SLAB_TYPE(23,5,GEMS)
		CHANGE_SLAB_TYPE(24,5,GEMS)
		CHANGE_SLAB_TYPE(25,5,GEMS)
		CHANGE_SLAB_TYPE(26,5,GEMS)
		CHANGE_SLAB_TYPE(27,5,GEMS)
		CHANGE_SLAB_TYPE(28,5,GEMS)
		CHANGE_SLAB_TYPE(29,5,GEMS)
		CHANGE_SLAB_TYPE(24,6,GEMS)
		CHANGE_SLAB_TYPE(25,6,GEMS)
		CHANGE_SLAB_TYPE(26,6,GEMS)
		CHANGE_SLAB_TYPE(24,7,GEMS)
		CHANGE_SLAB_TYPE(25,7,GEMS)
		CHANGE_SLAB_TYPE(26,7,GEMS)
		CHANGE_SLAB_TYPE(24,8,GEMS)
		CHANGE_SLAB_TYPE(25,8,GEMS)
		CHANGE_SLAB_TYPE(26,8,GEMS)
		SET_TIMER(PLAYER0,TIMER0)
	ENDIF
	
	IF(PLAYER0, CAMPAIGN_FLAG4 == 1)
		KILL_CREATURE(PLAYER_GOOD,TUNNELLER,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,DWARFA,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,ARCHER,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,THIEF,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,KNIGHT,LEAST_EXPERIENCED,1)
		CHANGE_SLAB_TYPE(34,1,GEMS)
		CHANGE_SLAB_TYPE(36,1,GEMS)
		CHANGE_SLAB_TYPE(34,2,GEMS)
		CHANGE_SLAB_TYPE(35,2,GEMS)
		CHANGE_SLAB_TYPE(36,2,GEMS)
		CHANGE_SLAB_TYPE(31,3,GEMS)
		CHANGE_SLAB_TYPE(32,3,GEMS)
		CHANGE_SLAB_TYPE(33,3,GEMS)
		CHANGE_SLAB_TYPE(34,3,GEMS)
		CHANGE_SLAB_TYPE(35,3,GEMS)
		CHANGE_SLAB_TYPE(36,3,GEMS)
		CHANGE_SLAB_TYPE(37,3,GEMS)
		CHANGE_SLAB_TYPE(38,3,GEMS)
		CHANGE_SLAB_TYPE(39,3,GEMS)
		CHANGE_SLAB_TYPE(31,4,GEMS)
		CHANGE_SLAB_TYPE(32,4,GEMS)
		CHANGE_SLAB_TYPE(33,4,GEMS)
		CHANGE_SLAB_TYPE(34,4,GEMS)
		CHANGE_SLAB_TYPE(35,4,GEMS)
		CHANGE_SLAB_TYPE(36,4,GEMS)
		CHANGE_SLAB_TYPE(37,4,GEMS)
		CHANGE_SLAB_TYPE(38,4,GEMS)
		CHANGE_SLAB_TYPE(39,4,GEMS)
		CHANGE_SLAB_TYPE(31,5,GEMS)
		CHANGE_SLAB_TYPE(32,5,GEMS)
		CHANGE_SLAB_TYPE(33,5,GEMS)
		CHANGE_SLAB_TYPE(34,5,GEMS)
		CHANGE_SLAB_TYPE(35,5,GEMS)
		CHANGE_SLAB_TYPE(36,5,GEMS)
		CHANGE_SLAB_TYPE(37,5,GEMS)
		CHANGE_SLAB_TYPE(38,5,GEMS)
		CHANGE_SLAB_TYPE(39,5,GEMS)
		CHANGE_SLAB_TYPE(34,6,GEMS)
		CHANGE_SLAB_TYPE(35,6,GEMS)
		CHANGE_SLAB_TYPE(36,6,GEMS)
		CHANGE_SLAB_TYPE(34,7,GEMS)
		CHANGE_SLAB_TYPE(35,7,GEMS)
		CHANGE_SLAB_TYPE(36,7,GEMS)
		CHANGE_SLAB_TYPE(34,8,GEMS)
		CHANGE_SLAB_TYPE(35,8,GEMS)
		CHANGE_SLAB_TYPE(36,8,GEMS)
		
		SET_TIMER(PLAYER0,TIMER0)
	ENDIF
	
	IF(PLAYER0, CAMPAIGN_FLAG5 == 1)
		KILL_CREATURE(PLAYER_GOOD,BARBARIAN,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,WITCH,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,SAMURAI,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,FAIRY,LEAST_EXPERIENCED,1)
		CHANGE_SLAB_TYPE(44,1,GEMS)
		CHANGE_SLAB_TYPE(46,1,GEMS)
		CHANGE_SLAB_TYPE(44,2,GEMS)
		CHANGE_SLAB_TYPE(45,2,GEMS)
		CHANGE_SLAB_TYPE(46,2,GEMS)
		CHANGE_SLAB_TYPE(41,3,GEMS)
		CHANGE_SLAB_TYPE(42,3,GEMS)
		CHANGE_SLAB_TYPE(43,3,GEMS)
		CHANGE_SLAB_TYPE(44,3,GEMS)
		CHANGE_SLAB_TYPE(45,3,GEMS)
		CHANGE_SLAB_TYPE(46,3,GEMS)
		CHANGE_SLAB_TYPE(47,3,GEMS)
		CHANGE_SLAB_TYPE(48,3,GEMS)
		CHANGE_SLAB_TYPE(49,3,GEMS)
		CHANGE_SLAB_TYPE(41,4,GEMS)
		CHANGE_SLAB_TYPE(42,4,GEMS)
		CHANGE_SLAB_TYPE(43,4,GEMS)
		CHANGE_SLAB_TYPE(44,4,GEMS)
		CHANGE_SLAB_TYPE(45,4,GEMS)
		CHANGE_SLAB_TYPE(46,4,GEMS)
		CHANGE_SLAB_TYPE(47,4,GEMS)
		CHANGE_SLAB_TYPE(48,4,GEMS)
		CHANGE_SLAB_TYPE(49,4,GEMS)
		CHANGE_SLAB_TYPE(41,5,GEMS)
		CHANGE_SLAB_TYPE(42,5,GEMS)
		CHANGE_SLAB_TYPE(43,5,GEMS)
		CHANGE_SLAB_TYPE(44,5,GEMS)
		CHANGE_SLAB_TYPE(45,5,GEMS)
		CHANGE_SLAB_TYPE(46,5,GEMS)
		CHANGE_SLAB_TYPE(47,5,GEMS)
		CHANGE_SLAB_TYPE(48,5,GEMS)
		CHANGE_SLAB_TYPE(49,5,GEMS)
		CHANGE_SLAB_TYPE(44,6,GEMS)
		CHANGE_SLAB_TYPE(45,6,GEMS)
		CHANGE_SLAB_TYPE(46,6,GEMS)
		CHANGE_SLAB_TYPE(44,7,GEMS)
		CHANGE_SLAB_TYPE(45,7,GEMS)
		CHANGE_SLAB_TYPE(46,7,GEMS)
		CHANGE_SLAB_TYPE(44,8,GEMS)
		CHANGE_SLAB_TYPE(45,8,GEMS)
		CHANGE_SLAB_TYPE(46,8,GEMS)
		SET_TIMER(PLAYER0,TIMER0)
	ENDIF
	
	IF(PLAYER0, CAMPAIGN_FLAG6 == 1)
		KILL_CREATURE(PLAYER_GOOD,MONK,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,WIZARD,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,TIME_MAGE,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,GIANT,LEAST_EXPERIENCED,1)
		CHANGE_SLAB_TYPE(54,1,GEMS)
		CHANGE_SLAB_TYPE(56,1,GEMS)
		CHANGE_SLAB_TYPE(54,2,GEMS)
		CHANGE_SLAB_TYPE(55,2,GEMS)
		CHANGE_SLAB_TYPE(56,2,GEMS)
		CHANGE_SLAB_TYPE(51,3,GEMS)
		CHANGE_SLAB_TYPE(52,3,GEMS)
		CHANGE_SLAB_TYPE(53,3,GEMS)
		CHANGE_SLAB_TYPE(54,3,GEMS)
		CHANGE_SLAB_TYPE(55,3,GEMS)
		CHANGE_SLAB_TYPE(56,3,GEMS)
		CHANGE_SLAB_TYPE(57,3,GEMS)
		CHANGE_SLAB_TYPE(58,3,GEMS)
		CHANGE_SLAB_TYPE(59,3,GEMS)
		CHANGE_SLAB_TYPE(51,4,GEMS)
		CHANGE_SLAB_TYPE(52,4,GEMS)
		CHANGE_SLAB_TYPE(53,4,GEMS)
		CHANGE_SLAB_TYPE(54,4,GEMS)
		CHANGE_SLAB_TYPE(55,4,GEMS)
		CHANGE_SLAB_TYPE(56,4,GEMS)
		CHANGE_SLAB_TYPE(57,4,GEMS)
		CHANGE_SLAB_TYPE(58,4,GEMS)
		CHANGE_SLAB_TYPE(59,4,GEMS)
		CHANGE_SLAB_TYPE(51,5,GEMS)
		CHANGE_SLAB_TYPE(52,5,GEMS)
		CHANGE_SLAB_TYPE(53,5,GEMS)
		CHANGE_SLAB_TYPE(54,5,GEMS)
		CHANGE_SLAB_TYPE(55,5,GEMS)
		CHANGE_SLAB_TYPE(56,5,GEMS)
		CHANGE_SLAB_TYPE(57,5,GEMS)
		CHANGE_SLAB_TYPE(58,5,GEMS)
		CHANGE_SLAB_TYPE(59,5,GEMS)
		CHANGE_SLAB_TYPE(54,6,GEMS)
		CHANGE_SLAB_TYPE(55,6,GEMS)
		CHANGE_SLAB_TYPE(56,6,GEMS)
		CHANGE_SLAB_TYPE(54,7,GEMS)
		CHANGE_SLAB_TYPE(55,7,GEMS)
		CHANGE_SLAB_TYPE(56,7,GEMS)
		CHANGE_SLAB_TYPE(54,8,GEMS)
		CHANGE_SLAB_TYPE(55,8,GEMS)
		CHANGE_SLAB_TYPE(56,8,GEMS)
		SET_TIMER(PLAYER0,TIMER0)
	ENDIF
	
	IF(PLAYER0,TIMER0 > 1)
		IF(PLAYER0, CAMPAIGN_FLAG1 == 1)
			CHANGE_SLAB_TYPE(5,1,GEMS)
		ENDIF
		IF(PLAYER0, CAMPAIGN_FLAG2 == 1)
			CHANGE_SLAB_TYPE(15,1,GEMS)
		ENDIF
		IF(PLAYER0, CAMPAIGN_FLAG3 == 1)
			CHANGE_SLAB_TYPE(25,1,GEMS)
		ENDIF
		IF(PLAYER0, CAMPAIGN_FLAG4 == 1)
			CHANGE_SLAB_TYPE(35,1,GEMS)
		ENDIF
		IF(PLAYER0, CAMPAIGN_FLAG5 == 1)
			CHANGE_SLAB_TYPE(45,1,GEMS)
		ENDIF
		IF(PLAYER0, CAMPAIGN_FLAG6 == 1)
			CHANGE_SLAB_TYPE(55,1,GEMS)
		ENDIF
	ENDIF
ENDIF


IF_ACTION_POINT(1,PLAYER0)

	SET_FLAG(PLAYER0,FLAG0,1)
	SET_FLAG(PLAYER0,FLAG1,1)
	
	REM GRUPPE 1
	CREATURE_AVAILABLE(PLAYER0,DEMONSPAWN,1,0)
	CREATURE_AVAILABLE(PLAYER0,TROLL,1,0)
	CREATURE_AVAILABLE(PLAYER0,ORC,1,0)
	CREATURE_AVAILABLE(PLAYER0,BILE_DEMON,1,0)
	CREATURE_AVAILABLE(PLAYER0,DRAGON,1,0)
	
	ROOM_AVAILABLE(PLAYER0,GUARD_POST,1,0)
	ROOM_AVAILABLE(PLAYER0,WORKSHOP,1,0)
	ROOM_AVAILABLE(PLAYER0,BARRACKS,1,0)
	
	MAGIC_AVAILABLE(PLAYER0,POWER_SPEED,1,0)
	MAGIC_AVAILABLE(PLAYER0,POWER_HOLD_AUDIENCE,1,0)
	MAGIC_AVAILABLE(PLAYER0,POWER_PROTECT,1,0)
	
	TRAP_AVAILABLE(PLAYER0,LAVA,1,0)
	TRAP_AVAILABLE(PLAYER0,BOULDER,1,0)
	DOOR_AVAILABLE(PLAYER0,STEEL,1,0)
	DOOR_AVAILABLE(PLAYER0,MAGIC,1,0)
ENDIF

IF_ACTION_POINT(2,PLAYER0)
	
	SET_FLAG(PLAYER0,FLAG0,1)
	SET_FLAG(PLAYER0,FLAG2,1)
	
	REM GRUPPE 2
	CREATURE_AVAILABLE(PLAYER0,BUG,1,0)
	CREATURE_AVAILABLE(PLAYER0,SPIDER,1,0)
	CREATURE_AVAILABLE(PLAYER0,DARK_MISTRESS,1,0)
	CREATURE_AVAILABLE(PLAYER0,SKELETON,1,0)
	CREATURE_AVAILABLE(PLAYER0,GHOST,1,0)
	
	ROOM_AVAILABLE(PLAYER0,PRISON,1,0)
	ROOM_AVAILABLE(PLAYER0,TORTURE,1,0)
	ROOM_AVAILABLE(PLAYER0,GRAVEYARD,1,0)
	
	MAGIC_AVAILABLE(PLAYER0,POWER_LIGHTNING,1,0)
	MAGIC_AVAILABLE(PLAYER0,POWER_CONCEAL,1,0)
	MAGIC_AVAILABLE(PLAYER0,POWER_DISEASE,1,0)
ENDIF

IF_ACTION_POINT(3,PLAYER0)
	
	SET_FLAG(PLAYER0,FLAG0,1)
	SET_FLAG(PLAYER0,FLAG3,1)
	
	REM GRUPPE 3
	CREATURE_AVAILABLE(PLAYER0,FLY,1,0)
	CREATURE_AVAILABLE(PLAYER0,HELL_HOUND,1,0)
	CREATURE_AVAILABLE(PLAYER0,TENTACLE,1,0)
	CREATURE_AVAILABLE(PLAYER0,SORCEROR,1,0)
	CREATURE_AVAILABLE(PLAYER0,HORNY,1,0)
	CREATURE_AVAILABLE(PLAYER0,DRUID,1,0)
	
	ROOM_AVAILABLE(PLAYER0,GUARD_POST,1,0)
	ROOM_AVAILABLE(PLAYER0,TEMPLE,1,0)
	ROOM_AVAILABLE(PLAYER0,SCAVENGER,1,0)
	
	MAGIC_AVAILABLE(PLAYER0,POWER_SIGHT,1,0)
	MAGIC_AVAILABLE(PLAYER0,POWER_OBEY,1,0)
	MAGIC_AVAILABLE(PLAYER0,POWER_CAVE_IN,1,0)
	MAGIC_AVAILABLE(PLAYER0,POWER_HEAL_CREATURE,1,0)
	MAGIC_AVAILABLE(PLAYER0,POWER_CHICKEN,1,0)
ENDIF

IF_ACTION_POINT(4,PLAYER0)
	
	SET_FLAG(PLAYER0,FLAG0,1)
	SET_FLAG(PLAYER0,FLAG4,1)
	
	REM GRUPPE 4
	CREATURE_AVAILABLE(PLAYER0,TUNNELLER,1,0)
	CREATURE_AVAILABLE(PLAYER0,DWARFA,1,0)
	CREATURE_AVAILABLE(PLAYER0,ARCHER,1,0)
	CREATURE_AVAILABLE(PLAYER0,THIEF,1,0)
	CREATURE_AVAILABLE(PLAYER0,KNIGHT,1,0)
	
	ROOM_AVAILABLE(PLAYER0,GUARD_POST,1,0)
	ROOM_AVAILABLE(PLAYER0,WORKSHOP,1,0)
	ROOM_AVAILABLE(PLAYER0,PRISON,1,0)
	
	MAGIC_AVAILABLE(PLAYER0,POWER_HOLD_AUDIENCE,1,0)
	MAGIC_AVAILABLE(PLAYER0,POWER_HEAL_CREATURE,1,0)
	MAGIC_AVAILABLE(PLAYER0,POWER_PROTECT,1,0)
	
	TRAP_AVAILABLE(PLAYER0,LIGHTNING,1,0)
	TRAP_AVAILABLE(PLAYER0,WORD_OF_POWER,1,0)
	DOOR_AVAILABLE(PLAYER0,STEEL,1,0)
	DOOR_AVAILABLE(PLAYER0,MAGIC,1,0)
ENDIF

IF_ACTION_POINT(5,PLAYER0)
	
	SET_FLAG(PLAYER0,FLAG0,1)
	SET_FLAG(PLAYER0,FLAG5,1)
	
	REM GRUPPE 5
	CREATURE_AVAILABLE(PLAYER0,BARBARIAN,1,0)
	CREATURE_AVAILABLE(PLAYER0,WITCH,1,0)
	CREATURE_AVAILABLE(PLAYER0,SAMURAI,1,0)
	CREATURE_AVAILABLE(PLAYER0,FAIRY,1,0)
	
	ROOM_AVAILABLE(PLAYER0,TORTURE,1,0)
	ROOM_AVAILABLE(PLAYER0,SCAVENGER,1,0)
	ROOM_AVAILABLE(PLAYER0,BARRACKS,1,0)
	
	MAGIC_AVAILABLE(PLAYER0,POWER_SIGHT,1,0)
	MAGIC_AVAILABLE(PLAYER0,POWER_SPEED,1,0)
	MAGIC_AVAILABLE(PLAYER0,POWER_OBEY,1,0)
	MAGIC_AVAILABLE(PLAYER0,POWER_CONCEAL,1,0)
ENDIF

IF_ACTION_POINT(6,PLAYER0)
	
	SET_FLAG(PLAYER0,FLAG0,1)
	SET_FLAG(PLAYER0,FLAG6,1)
	
	REM GRUPPE 6
	CREATURE_AVAILABLE(PLAYER0,MONK,1,0)
	CREATURE_AVAILABLE(PLAYER0,WIZARD,1,0)
	CREATURE_AVAILABLE(PLAYER0,TIME_MAGE,1,0)
	CREATURE_AVAILABLE(PLAYER0,GIANT,1,0)
	
	ROOM_AVAILABLE(PLAYER0,TEMPLE,1,0)
	ROOM_AVAILABLE(PLAYER0,GRAVEYARD,1,0)
	ROOM_AVAILABLE(PLAYER0,SCAVENGER,1,0)
	
	MAGIC_AVAILABLE(PLAYER0,POWER_CAVE_IN,1,0)
	MAGIC_AVAILABLE(PLAYER0,POWER_HEAL_CREATURE,1,0)
	MAGIC_AVAILABLE(PLAYER0,POWER_LIGHTNING,1,0)
	MAGIC_AVAILABLE(PLAYER0,POWER_SIGHT,1,0)
	MAGIC_AVAILABLE(PLAYER0,POWER_CHICKEN,1,0)
	MAGIC_AVAILABLE(PLAYER0,POWER_DISEASE,1,0)
ENDIF

REM ***** START: ZOOM ZU GEIST ***** 
SET_TIMER(PLAYER0,TIMER1)
IF(PLAYER0,TIMER1 >= 33)
	ZOOM_TO_LOCATION(PLAYER0,14)
ENDIF

REM ***** LEICHEN-RESET ***** 
SET_GAME_RULE(BodyRemainsFor, 0)
IF(PLAYER0,TIMER0 >= 150)
	SET_GAME_RULE(BodyRemainsFor, 2000)
	                     REM (Standardwert)
ENDIF

REM ***** LOSE-EVENT, falls Geist stirbt ***** 
IF(PLAYER0,FLAG0==0)
	IF(PLAYER0,TOTAL_CREATURES==0)
		LOSE_GAME
	ENDIF
ENDIF

REM ***** GRUPPEN-SPERRUNG ***** 
IF(PLAYER_GOOD,FLAG7 == 999)
	IF(PLAYER0,FLAG1 == 1)
		SET_FLAG(PLAYER0,CAMPAIGN_FLAG1,1)
	ENDIF
	IF(PLAYER0,FLAG2 == 1)
		SET_FLAG(PLAYER0,CAMPAIGN_FLAG2,1)
	ENDIF
	IF(PLAYER0,FLAG3 == 1)
		SET_FLAG(PLAYER0,CAMPAIGN_FLAG3,1)
	ENDIF
	IF(PLAYER0,FLAG4 == 1)
		SET_FLAG(PLAYER0,CAMPAIGN_FLAG4,1)
	ENDIF
	IF(PLAYER0,FLAG5 == 1)
		SET_FLAG(PLAYER0,CAMPAIGN_FLAG5,1)
	ENDIF
	IF(PLAYER0,FLAG6 == 1)
		SET_FLAG(PLAYER0,CAMPAIGN_FLAG6,1)
	ENDIF
ENDIF

REM *****  GEIST WURDE GEOPFERT  ***** 
IF(PLAYER0,FLAG0==1)
	
	SET_TIMER(PLAYER0,TIMER0)	REM => Fuer BodyRemainsFor
	
	COUNT_CREATURES_AT_ACTION_POINT(1,PLAYER_GOOD,ANY_CREATURE,PLAYER_GOOD,FLAG1)
	COUNT_CREATURES_AT_ACTION_POINT(2,PLAYER_GOOD,ANY_CREATURE,PLAYER_GOOD,FLAG2)
	COUNT_CREATURES_AT_ACTION_POINT(3,PLAYER_GOOD,ANY_CREATURE,PLAYER_GOOD,FLAG3)
	COUNT_CREATURES_AT_ACTION_POINT(4,PLAYER_GOOD,ANY_CREATURE,PLAYER_GOOD,FLAG4)
	COUNT_CREATURES_AT_ACTION_POINT(5,PLAYER_GOOD,ANY_CREATURE,PLAYER_GOOD,FLAG5)
	COUNT_CREATURES_AT_ACTION_POINT(6,PLAYER_GOOD,ANY_CREATURE,PLAYER_GOOD,FLAG6)
	IF(PLAYER_GOOD,FLAG1 > 0)
		KILL_CREATURE(PLAYER_GOOD,DEMONSPAWN,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,TROLL,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,ORC,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,BILE_DEMON,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,DRAGON,LEAST_EXPERIENCED,1)
	ENDIF
	IF(PLAYER_GOOD,FLAG2 > 0)
		KILL_CREATURE(PLAYER_GOOD,BUG,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,SPIDER,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,DARK_MISTRESS,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,SKELETON,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,GHOST,LEAST_EXPERIENCED,1)
	ENDIF
	IF(PLAYER_GOOD,FLAG3 > 0)
		KILL_CREATURE(PLAYER_GOOD,FLY,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,HELL_HOUND,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,TENTACLE,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,SORCEROR,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,HORNY,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,DRUID,LEAST_EXPERIENCED,1)
	ENDIF
	IF(PLAYER_GOOD,FLAG4 > 0)
		KILL_CREATURE(PLAYER_GOOD,TUNNELLER,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,DWARFA,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,ARCHER,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,THIEF,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,KNIGHT,LEAST_EXPERIENCED,1)
	ENDIF
	IF(PLAYER_GOOD,FLAG5 > 0)
		KILL_CREATURE(PLAYER_GOOD,BARBARIAN,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,WITCH,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,SAMURAI,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,FAIRY,LEAST_EXPERIENCED,1)
	ENDIF
	IF(PLAYER_GOOD,FLAG6 > 0)
		KILL_CREATURE(PLAYER_GOOD,MONK,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,WIZARD,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,TIME_MAGE,LEAST_EXPERIENCED,1)
		KILL_CREATURE(PLAYER_GOOD,GIANT,LEAST_EXPERIENCED,1)
	ENDIF
	
	REM Haupt-Kammer
	CHANGE_SLAB_TYPE(9,8,HARD)
	CHANGE_SLAB_TYPE(10,8,HARD)
	CHANGE_SLAB_TYPE(11,8,HARD)
	CHANGE_SLAB_TYPE(9,9,HARD)
	CHANGE_SLAB_TYPE(10,9,HARD)
	CHANGE_SLAB_TYPE(11,9,HARD)
	CHANGE_SLAB_TYPE(9,10,HARD)
	CHANGE_SLAB_TYPE(10,10,HARD)
	CHANGE_SLAB_TYPE(11,10,HARD)
	
	CHANGE_SLAB_TYPE(6,11,HARD)
	CHANGE_SLAB_TYPE(7,11,HARD)
	CHANGE_SLAB_TYPE(8,11,HARD)
	CHANGE_SLAB_TYPE(9,11,HARD)
	CHANGE_SLAB_TYPE(10,11,HARD)
	CHANGE_SLAB_TYPE(11,11,HARD)
	CHANGE_SLAB_TYPE(12,11,HARD)
	CHANGE_SLAB_TYPE(13,11,HARD)
	CHANGE_SLAB_TYPE(14,11,HARD)
	CHANGE_SLAB_TYPE(6,12,HARD)
	CHANGE_SLAB_TYPE(7,12,HARD)
	CHANGE_SLAB_TYPE(8,12,HARD)
	CHANGE_SLAB_TYPE(9,12,HARD)
	CHANGE_SLAB_TYPE(10,12,HARD)
	CHANGE_SLAB_TYPE(11,12,HARD)
	CHANGE_SLAB_TYPE(12,12,HARD)
	CHANGE_SLAB_TYPE(13,12,HARD)
	CHANGE_SLAB_TYPE(14,12,HARD)
	CHANGE_SLAB_TYPE(6,13,HARD)
	CHANGE_SLAB_TYPE(7,13,HARD)
	CHANGE_SLAB_TYPE(8,13,HARD)
	CHANGE_SLAB_TYPE(9,13,HARD)
	CHANGE_SLAB_TYPE(10,13,HARD)
	CHANGE_SLAB_TYPE(11,13,HARD)
	CHANGE_SLAB_TYPE(12,13,HARD)
	CHANGE_SLAB_TYPE(13,13,HARD)
	CHANGE_SLAB_TYPE(14,13,HARD)
	CHANGE_SLAB_TYPE(6,14,HARD)
	CHANGE_SLAB_TYPE(7,14,HARD)
	CHANGE_SLAB_TYPE(8,14,HARD)
	CHANGE_SLAB_TYPE(9,14,HARD)
	CHANGE_SLAB_TYPE(10,14,HARD)
	CHANGE_SLAB_TYPE(11,14,HARD)
	CHANGE_SLAB_TYPE(12,14,HARD)
	CHANGE_SLAB_TYPE(13,14,HARD)
	CHANGE_SLAB_TYPE(14,14,HARD)
	CHANGE_SLAB_TYPE(6,15,HARD)
	CHANGE_SLAB_TYPE(7,15,HARD)
	CHANGE_SLAB_TYPE(8,15,HARD)
	CHANGE_SLAB_TYPE(9,15,HARD)
	CHANGE_SLAB_TYPE(10,15,HARD)
	CHANGE_SLAB_TYPE(11,15,HARD)
	CHANGE_SLAB_TYPE(12,15,HARD)
	CHANGE_SLAB_TYPE(13,15,HARD)
	CHANGE_SLAB_TYPE(14,15,HARD)
	CHANGE_SLAB_TYPE(6,16,HARD)
	CHANGE_SLAB_TYPE(7,16,HARD)
	CHANGE_SLAB_TYPE(8,16,HARD)
	CHANGE_SLAB_TYPE(9,16,HARD)
	CHANGE_SLAB_TYPE(10,16,HARD)
	CHANGE_SLAB_TYPE(11,16,HARD)
	CHANGE_SLAB_TYPE(12,16,HARD)
	CHANGE_SLAB_TYPE(13,16,HARD)
	CHANGE_SLAB_TYPE(14,16,HARD)
	
	REM Kammer 1
	CHANGE_SLAB_TYPE(4,1,HARD)
	CHANGE_SLAB_TYPE(5,1,HARD)
	CHANGE_SLAB_TYPE(6,1,HARD)
	CHANGE_SLAB_TYPE(4,2,HARD)
	CHANGE_SLAB_TYPE(5,2,HARD)
	CHANGE_SLAB_TYPE(6,2,HARD)
	
	CHANGE_SLAB_TYPE(1,3,HARD)
	CHANGE_SLAB_TYPE(2,3,HARD)
	CHANGE_SLAB_TYPE(3,3,HARD)
	CHANGE_SLAB_TYPE(4,3,HARD)
	CHANGE_SLAB_TYPE(5,3,HARD)
	CHANGE_SLAB_TYPE(6,3,HARD)
	CHANGE_SLAB_TYPE(7,3,HARD)
	CHANGE_SLAB_TYPE(8,3,HARD)
	CHANGE_SLAB_TYPE(9,3,HARD)
	CHANGE_SLAB_TYPE(1,4,HARD)
	CHANGE_SLAB_TYPE(2,4,HARD)
	CHANGE_SLAB_TYPE(3,4,HARD)
	CHANGE_SLAB_TYPE(4,4,HARD)
	CHANGE_SLAB_TYPE(5,4,HARD)
	CHANGE_SLAB_TYPE(6,4,HARD)
	CHANGE_SLAB_TYPE(7,4,HARD)
	CHANGE_SLAB_TYPE(8,4,HARD)
	CHANGE_SLAB_TYPE(9,4,HARD)
	CHANGE_SLAB_TYPE(1,5,HARD)
	CHANGE_SLAB_TYPE(2,5,HARD)
	CHANGE_SLAB_TYPE(3,5,HARD)
	CHANGE_SLAB_TYPE(4,5,HARD)
	CHANGE_SLAB_TYPE(5,5,HARD)
	CHANGE_SLAB_TYPE(6,5,HARD)
	CHANGE_SLAB_TYPE(7,5,HARD)
	CHANGE_SLAB_TYPE(8,5,HARD)
	CHANGE_SLAB_TYPE(9,5,HARD)
	
	CHANGE_SLAB_TYPE(4,6,HARD)
	CHANGE_SLAB_TYPE(5,6,HARD)
	CHANGE_SLAB_TYPE(6,6,HARD)
	CHANGE_SLAB_TYPE(4,7,HARD)
	CHANGE_SLAB_TYPE(5,7,HARD)
	CHANGE_SLAB_TYPE(6,7,HARD)
	CHANGE_SLAB_TYPE(4,8,HARD)
	CHANGE_SLAB_TYPE(5,8,HARD)
	CHANGE_SLAB_TYPE(6,8,HARD)
	
	REM Kammer 2
	CHANGE_SLAB_TYPE(14,1,HARD)
	CHANGE_SLAB_TYPE(15,1,HARD)
	CHANGE_SLAB_TYPE(16,1,HARD)
	CHANGE_SLAB_TYPE(14,2,HARD)
	CHANGE_SLAB_TYPE(15,2,HARD)
	CHANGE_SLAB_TYPE(16,2,HARD)
	
	CHANGE_SLAB_TYPE(11,3,HARD)
	CHANGE_SLAB_TYPE(12,3,HARD)
	CHANGE_SLAB_TYPE(13,3,HARD)
	CHANGE_SLAB_TYPE(14,3,HARD)
	CHANGE_SLAB_TYPE(15,3,HARD)
	CHANGE_SLAB_TYPE(16,3,HARD)
	CHANGE_SLAB_TYPE(17,3,HARD)
	CHANGE_SLAB_TYPE(18,3,HARD)
	CHANGE_SLAB_TYPE(19,3,HARD)
	CHANGE_SLAB_TYPE(11,4,HARD)
	CHANGE_SLAB_TYPE(12,4,HARD)
	CHANGE_SLAB_TYPE(13,4,HARD)
	CHANGE_SLAB_TYPE(14,4,HARD)
	CHANGE_SLAB_TYPE(15,4,HARD)
	CHANGE_SLAB_TYPE(16,4,HARD)
	CHANGE_SLAB_TYPE(17,4,HARD)
	CHANGE_SLAB_TYPE(18,4,HARD)
	CHANGE_SLAB_TYPE(19,4,HARD)
	CHANGE_SLAB_TYPE(11,5,HARD)
	CHANGE_SLAB_TYPE(12,5,HARD)
	CHANGE_SLAB_TYPE(13,5,HARD)
	CHANGE_SLAB_TYPE(14,5,HARD)
	CHANGE_SLAB_TYPE(15,5,HARD)
	CHANGE_SLAB_TYPE(16,5,HARD)
	CHANGE_SLAB_TYPE(17,5,HARD)
	CHANGE_SLAB_TYPE(18,5,HARD)
	CHANGE_SLAB_TYPE(19,5,HARD)
	
	CHANGE_SLAB_TYPE(14,6,HARD)
	CHANGE_SLAB_TYPE(15,6,HARD)
	CHANGE_SLAB_TYPE(16,6,HARD)
	CHANGE_SLAB_TYPE(14,7,HARD)
	CHANGE_SLAB_TYPE(15,7,HARD)
	CHANGE_SLAB_TYPE(16,7,HARD)
	CHANGE_SLAB_TYPE(14,8,HARD)
	CHANGE_SLAB_TYPE(15,8,HARD)
	CHANGE_SLAB_TYPE(16,8,HARD)
	
	REM Kammer 3
	CHANGE_SLAB_TYPE(24,1,HARD)
	CHANGE_SLAB_TYPE(25,1,HARD)
	CHANGE_SLAB_TYPE(26,1,HARD)
	CHANGE_SLAB_TYPE(24,2,HARD)
	CHANGE_SLAB_TYPE(25,2,HARD)
	CHANGE_SLAB_TYPE(26,2,HARD)
	
	CHANGE_SLAB_TYPE(21,3,HARD)
	CHANGE_SLAB_TYPE(22,3,HARD)
	CHANGE_SLAB_TYPE(23,3,HARD)
	CHANGE_SLAB_TYPE(24,3,HARD)
	CHANGE_SLAB_TYPE(25,3,HARD)
	CHANGE_SLAB_TYPE(26,3,HARD)
	CHANGE_SLAB_TYPE(27,3,HARD)
	CHANGE_SLAB_TYPE(28,3,HARD)
	CHANGE_SLAB_TYPE(29,3,HARD)
	CHANGE_SLAB_TYPE(21,4,HARD)
	CHANGE_SLAB_TYPE(22,4,HARD)
	CHANGE_SLAB_TYPE(23,4,HARD)
	CHANGE_SLAB_TYPE(24,4,HARD)
	CHANGE_SLAB_TYPE(25,4,HARD)
	CHANGE_SLAB_TYPE(26,4,HARD)
	CHANGE_SLAB_TYPE(27,4,HARD)
	CHANGE_SLAB_TYPE(28,4,HARD)
	CHANGE_SLAB_TYPE(29,4,HARD)
	CHANGE_SLAB_TYPE(21,5,HARD)
	CHANGE_SLAB_TYPE(22,5,HARD)
	CHANGE_SLAB_TYPE(23,5,HARD)
	CHANGE_SLAB_TYPE(24,5,HARD)
	CHANGE_SLAB_TYPE(25,5,HARD)
	CHANGE_SLAB_TYPE(26,5,HARD)
	CHANGE_SLAB_TYPE(27,5,HARD)
	CHANGE_SLAB_TYPE(28,5,HARD)
	CHANGE_SLAB_TYPE(29,5,HARD)
	CHANGE_SLAB_TYPE(24,6,HARD)
	CHANGE_SLAB_TYPE(25,6,HARD)
	CHANGE_SLAB_TYPE(26,6,HARD)
	CHANGE_SLAB_TYPE(24,7,HARD)
	CHANGE_SLAB_TYPE(25,7,HARD)
	CHANGE_SLAB_TYPE(26,7,HARD)
	CHANGE_SLAB_TYPE(24,8,HARD)
	CHANGE_SLAB_TYPE(25,8,HARD)
	CHANGE_SLAB_TYPE(26,8,HARD)
	
	REM Kammer 4
	CHANGE_SLAB_TYPE(34,1,HARD)
	CHANGE_SLAB_TYPE(35,1,HARD)
	CHANGE_SLAB_TYPE(36,1,HARD)
	CHANGE_SLAB_TYPE(34,2,HARD)
	CHANGE_SLAB_TYPE(35,2,HARD)
	CHANGE_SLAB_TYPE(36,2,HARD)
	
	CHANGE_SLAB_TYPE(31,3,HARD)
	CHANGE_SLAB_TYPE(32,3,HARD)
	CHANGE_SLAB_TYPE(33,3,HARD)
	CHANGE_SLAB_TYPE(34,3,HARD)
	CHANGE_SLAB_TYPE(35,3,HARD)
	CHANGE_SLAB_TYPE(36,3,HARD)
	CHANGE_SLAB_TYPE(37,3,HARD)
	CHANGE_SLAB_TYPE(38,3,HARD)
	CHANGE_SLAB_TYPE(39,3,HARD)
	CHANGE_SLAB_TYPE(31,4,HARD)
	CHANGE_SLAB_TYPE(32,4,HARD)
	CHANGE_SLAB_TYPE(33,4,HARD)
	CHANGE_SLAB_TYPE(34,4,HARD)
	CHANGE_SLAB_TYPE(35,4,HARD)
	CHANGE_SLAB_TYPE(36,4,HARD)
	CHANGE_SLAB_TYPE(37,4,HARD)
	CHANGE_SLAB_TYPE(38,4,HARD)
	CHANGE_SLAB_TYPE(39,4,HARD)
	CHANGE_SLAB_TYPE(31,5,HARD)
	CHANGE_SLAB_TYPE(32,5,HARD)
	CHANGE_SLAB_TYPE(33,5,HARD)
	CHANGE_SLAB_TYPE(34,5,HARD)
	CHANGE_SLAB_TYPE(35,5,HARD)
	CHANGE_SLAB_TYPE(36,5,HARD)
	CHANGE_SLAB_TYPE(37,5,HARD)
	CHANGE_SLAB_TYPE(38,5,HARD)
	CHANGE_SLAB_TYPE(39,5,HARD)
	
	CHANGE_SLAB_TYPE(34,6,HARD)
	CHANGE_SLAB_TYPE(35,6,HARD)
	CHANGE_SLAB_TYPE(36,6,HARD)
	CHANGE_SLAB_TYPE(34,7,HARD)
	CHANGE_SLAB_TYPE(35,7,HARD)
	CHANGE_SLAB_TYPE(36,7,HARD)
	CHANGE_SLAB_TYPE(34,8,HARD)
	CHANGE_SLAB_TYPE(35,8,HARD)
	CHANGE_SLAB_TYPE(36,8,HARD)
	
	REM Kammer 5
	CHANGE_SLAB_TYPE(44,1,HARD)
	CHANGE_SLAB_TYPE(45,1,HARD)
	CHANGE_SLAB_TYPE(46,1,HARD)
	CHANGE_SLAB_TYPE(44,2,HARD)
	CHANGE_SLAB_TYPE(45,2,HARD)
	CHANGE_SLAB_TYPE(46,2,HARD)
	
	CHANGE_SLAB_TYPE(41,3,HARD)
	CHANGE_SLAB_TYPE(42,3,HARD)
	CHANGE_SLAB_TYPE(43,3,HARD)
	CHANGE_SLAB_TYPE(44,3,HARD)
	CHANGE_SLAB_TYPE(45,3,HARD)
	CHANGE_SLAB_TYPE(46,3,HARD)
	CHANGE_SLAB_TYPE(47,3,HARD)
	CHANGE_SLAB_TYPE(48,3,HARD)
	CHANGE_SLAB_TYPE(49,3,HARD)
	CHANGE_SLAB_TYPE(41,4,HARD)
	CHANGE_SLAB_TYPE(42,4,HARD)
	CHANGE_SLAB_TYPE(43,4,HARD)
	CHANGE_SLAB_TYPE(44,4,HARD)
	CHANGE_SLAB_TYPE(45,4,HARD)
	CHANGE_SLAB_TYPE(46,4,HARD)
	CHANGE_SLAB_TYPE(47,4,HARD)
	CHANGE_SLAB_TYPE(48,4,HARD)
	CHANGE_SLAB_TYPE(49,4,HARD)
	CHANGE_SLAB_TYPE(41,5,HARD)
	CHANGE_SLAB_TYPE(42,5,HARD)
	CHANGE_SLAB_TYPE(43,5,HARD)
	CHANGE_SLAB_TYPE(44,5,HARD)
	CHANGE_SLAB_TYPE(45,5,HARD)
	CHANGE_SLAB_TYPE(46,5,HARD)
	CHANGE_SLAB_TYPE(47,5,HARD)
	CHANGE_SLAB_TYPE(48,5,HARD)
	CHANGE_SLAB_TYPE(49,5,HARD)
	
	CHANGE_SLAB_TYPE(44,6,HARD)
	CHANGE_SLAB_TYPE(45,6,HARD)
	CHANGE_SLAB_TYPE(46,6,HARD)
	CHANGE_SLAB_TYPE(44,7,HARD)
	CHANGE_SLAB_TYPE(45,7,HARD)
	CHANGE_SLAB_TYPE(46,7,HARD)
	CHANGE_SLAB_TYPE(44,8,HARD)
	CHANGE_SLAB_TYPE(45,8,HARD)
	CHANGE_SLAB_TYPE(46,8,HARD)
	
	REM Kammer 6
	CHANGE_SLAB_TYPE(54,1,HARD)
	CHANGE_SLAB_TYPE(55,1,HARD)
	CHANGE_SLAB_TYPE(56,1,HARD)
	CHANGE_SLAB_TYPE(54,2,HARD)
	CHANGE_SLAB_TYPE(55,2,HARD)
	CHANGE_SLAB_TYPE(56,2,HARD)
	
	CHANGE_SLAB_TYPE(51,3,HARD)
	CHANGE_SLAB_TYPE(52,3,HARD)
	CHANGE_SLAB_TYPE(53,3,HARD)
	CHANGE_SLAB_TYPE(54,3,HARD)
	CHANGE_SLAB_TYPE(55,3,HARD)
	CHANGE_SLAB_TYPE(56,3,HARD)
	CHANGE_SLAB_TYPE(57,3,HARD)
	CHANGE_SLAB_TYPE(58,3,HARD)
	CHANGE_SLAB_TYPE(59,3,HARD)
	CHANGE_SLAB_TYPE(51,4,HARD)
	CHANGE_SLAB_TYPE(52,4,HARD)
	CHANGE_SLAB_TYPE(53,4,HARD)
	CHANGE_SLAB_TYPE(54,4,HARD)
	CHANGE_SLAB_TYPE(55,4,HARD)
	CHANGE_SLAB_TYPE(56,4,HARD)
	CHANGE_SLAB_TYPE(57,4,HARD)
	CHANGE_SLAB_TYPE(58,4,HARD)
	CHANGE_SLAB_TYPE(59,4,HARD)
	CHANGE_SLAB_TYPE(51,5,HARD)
	CHANGE_SLAB_TYPE(52,5,HARD)
	CHANGE_SLAB_TYPE(53,5,HARD)
	CHANGE_SLAB_TYPE(54,5,HARD)
	CHANGE_SLAB_TYPE(55,5,HARD)
	CHANGE_SLAB_TYPE(56,5,HARD)
	CHANGE_SLAB_TYPE(57,5,HARD)
	CHANGE_SLAB_TYPE(58,5,HARD)
	CHANGE_SLAB_TYPE(59,5,HARD)
	CHANGE_SLAB_TYPE(54,6,HARD)
	CHANGE_SLAB_TYPE(55,6,HARD)
	CHANGE_SLAB_TYPE(56,6,HARD)
	CHANGE_SLAB_TYPE(54,7,HARD)
	CHANGE_SLAB_TYPE(55,7,HARD)
	CHANGE_SLAB_TYPE(56,7,HARD)
	CHANGE_SLAB_TYPE(54,8,HARD)
	CHANGE_SLAB_TYPE(55,8,HARD)
	CHANGE_SLAB_TYPE(56,8,HARD)
	
	KILL_CREATURE(PLAYER0,GHOST,LEAST_EXPERIENCED,1)
	ZOOM_TO_LOCATION(PLAYER0,PLAYER0)
	SET_HAND_RULE(PLAYER0,ANY_CREATURE,RULE0,ALLOW,ALWAYS)
	SET_HAND_RULE(PLAYER0,IMP,RULE0,ALLOW,ALWAYS)
	
	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,BRIDGE,1,0)
	
	MAGIC_AVAILABLE(PLAYER0,POWER_SLAP,1,1)
REM	MAGIC_AVAILABLE(PLAYER0,POWER_POSSESS,1,1)
	MAGIC_AVAILABLE(PLAYER0,POWER_CALL_TO_ARMS,1,0)
	
	PLAY_MESSAGE(PLAYER0,SPEECH,80)   REM "So be it!"
ENDIF

REM ***** WIN-EVENT ***** 
IF(PLAYER0,FLAG0 == 2)
			   REM    !!!! LEVELNUMMER !!!!
	IF(PLAYER0,CAMPAIGN_FLAG7 < 4)
					   REM    !!!! LEVELNUMMER !!!!
		SET_FLAG(PLAYER0,CAMPAIGN_FLAG7,4)
		SET_FLAG(PLAYER_GOOD,FLAG7,999)
	ENDIF
	WIN_GAME
ENDIF







































REM *****              ***** 
REM *****              ***** 
REM *****              ***** 
REM *****  LEVEL INIT  *****
REM *****              ***** 
REM *****              ***** 
REM *****              ***** 

START_MONEY(PLAYER0,10000)
MAX_CREATURES(ALL_PLAYERS,20)
SET_GENERATE_SPEED(400)

REM Nicht-Vandalisierbar = 2, Nicht-Verkaufbar = 8
SET_ROOM_CONFIGURATION(TEMPLE,Properties,2)

REM **** Setup Gruen ****
START_MONEY(PLAYER2,99999999)
COMPUTER_PLAYER(PLAYER2,16)
MAGIC_AVAILABLE(PLAYER2,POWER_HAND,1,1)
MAGIC_AVAILABLE(PLAYER2,POWER_SPEED,1,1)
MAGIC_AVAILABLE(PLAYER2,POWER_CALL_TO_ARMS,1,1)
MAGIC_AVAILABLE(PLAYER2,POWER_HEAL_CREATURE,1,1)
MAGIC_AVAILABLE(PLAYER5,POWER_DISEASE,1,1)
CREATURE_AVAILABLE(PLAYER2,FLY,1,1)
CREATURE_AVAILABLE(PLAYER2,DEMONSPAWN,1,1)
CREATURE_AVAILABLE(PLAYER2,BILE_DEMON,1,1)
CREATURE_AVAILABLE(PLAYER2,TROLL,1,1)
CREATURE_AVAILABLE(PLAYER2,ORC,1,1)
CREATURE_AVAILABLE(PLAYER2,TENTACLE,1,1)
CREATURE_ENTRANCE_LEVEL(PLAYER2,7)

REM **** Setup Schwarz ****
START_MONEY(PLAYER5,99999999)
COMPUTER_PLAYER(PLAYER5,16)
MAGIC_AVAILABLE(PLAYER5,POWER_CALL_TO_ARMS,1,1)
MAGIC_AVAILABLE(PLAYER5,POWER_DISEASE,1,1)
CREATURE_AVAILABLE(PLAYER5,SAMURAI,1,1)
CREATURE_AVAILABLE(PLAYER5,DRUID,1,1)
CREATURE_AVAILABLE(PLAYER5,MONK,1,1)
CREATURE_AVAILABLE(PLAYER5,VAMPIRE,1,1)
CREATURE_ENTRANCE_LEVEL(PLAYER5,6)


ALLY_PLAYERS(PLAYER2,PLAYER5,3)





SET_TIMER(PLAYER2,TIMER0)	REM => Symbiose-Zerfall
IF(PLAYER2,TIMER0 >= 60)
	SET_OBJECT_CONFIGURATION(SPELLBOOK_POSS,DestroyOnLiquid,1)
	CHANGE_SLAB_TYPE(10,11,LAVA)
	CHANGE_SLAB_TYPE(10,11,PURPLE_PATH)
	SET_OBJECT_CONFIGURATION(SPELLBOOK_POSS,DestroyOnLiquid,0)
ENDIF








































REM *****               ***** 
REM *****               ***** 
REM *****               ***** 
REM *****     LEVEL     ***** 
REM *****               ***** 
REM *****               ***** 
REM *****               ***** 

QUICK_OBJECTIVE_WITH_POS(1,"Choose wisely...", 31, 34)

IF(PLAYER0,FLAG0==1)
	ADD_CREATURE_TO_LEVEL(PLAYER0,IMP,PLAYER0,6,1,0)
	QUICK_OBJECTIVE(3,"These strange fumes cloud the minds of your creatures, preventing you from POSSESSING them.")
	SET_TIMER(PLAYER1,TIMER0)	REM Fliegen-Timer
	CHANGE_SLAB_TYPE(83,83,PRETTY_PATH)
	CHANGE_SLAB_TYPE(84,83,PRETTY_PATH)
	CHANGE_SLAB_TYPE(85,83,PRETTY_PATH)
	CHANGE_SLAB_TYPE(86,83,PRETTY_PATH)
	CHANGE_SLAB_TYPE(87,83,PRETTY_PATH)
	CHANGE_SLAB_TYPE(83,84,PRETTY_PATH)
	CHANGE_SLAB_TYPE(83,85,PRETTY_PATH)
	CHANGE_SLAB_TYPE(83,86,PRETTY_PATH)
	CHANGE_SLAB_TYPE(83,87,PRETTY_PATH)
	CHANGE_SLAB_TYPE(84,87,PRETTY_PATH)
	CHANGE_SLAB_TYPE(85,87,PRETTY_PATH)
	CHANGE_SLAB_TYPE(86,87,PRETTY_PATH)
	CHANGE_SLAB_TYPE(87,87,PRETTY_PATH)
	CHANGE_SLAB_TYPE(87,84,PRETTY_PATH)
	CHANGE_SLAB_TYPE(87,85,PRETTY_PATH)
	CHANGE_SLAB_TYPE(87,86,PRETTY_PATH)

	CHANGE_SLAB_OWNER(83,83,PLAYER0)
	CHANGE_SLAB_OWNER(84,83,PLAYER0)
	CHANGE_SLAB_OWNER(85,83,PLAYER0)
	CHANGE_SLAB_OWNER(86,83,PLAYER0)
	CHANGE_SLAB_OWNER(87,83,PLAYER0)
	CHANGE_SLAB_OWNER(83,84,PLAYER0)
	CHANGE_SLAB_OWNER(83,85,PLAYER0)
	CHANGE_SLAB_OWNER(83,86,PLAYER0)
	CHANGE_SLAB_OWNER(83,87,PLAYER0)
	CHANGE_SLAB_OWNER(84,87,PLAYER0)
	CHANGE_SLAB_OWNER(85,87,PLAYER0)
	CHANGE_SLAB_OWNER(86,87,PLAYER0)
	CHANGE_SLAB_OWNER(87,87,PLAYER0)
	CHANGE_SLAB_OWNER(87,84,PLAYER0)
	CHANGE_SLAB_OWNER(87,85,PLAYER0)
	CHANGE_SLAB_OWNER(87,86,PLAYER0)
ENDIF

IF_ACTION_POINT(15,PLAYER0)
	QUICK_INFORMATION_WITH_POS(4,"One of your imps secretly sniffed these smelly flowers. Whose poison appears to have temporarily altered his thoughts... A researcher came up with the idea that we could use this to regain your power to POSSESS! Find the source of the growths!",190,211)
ENDIF
IF_ACTION_POINT(23,PLAYER0)
	QUICK_INFORMATION_WITH_POS(5,"These inscriptions write about a Dark Temple Sect. And that they have powerful magic...",328,157)
ENDIF
IF_ACTION_POINT(24,PLAYER0)
	QUICK_INFORMATION_WITH_POS(6,"The water gets pretty muddy here... Looks like the perfect living space for Tentacles!",340,300)
ENDIF
IF_ACTION_POINT(25,PLAYER0)
	QUICK_INFORMATION_WITH_POS(7,"If you hold your ears close onto these red mushrooms, you can here it bumping...",220,301)
ENDIF

CREATE_PARTY(TENTAKELA)
ADD_TO_PARTY(TENTAKELA,TENTACLE,5,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(TENTAKELA,TENTACLE,5,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(TENTAKELA,TENTACLE,6,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(TENTAKELA,TENTACLE,6,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(TENTAKELA,TENTACLE,7,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(TENTAKELA,TENTACLE,7,0,ATTACK_DUNGEON_HEART,0)
IF_ACTION_POINT(16,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TENTAKELA,17,1)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,FLY,17,2,9,0)
ENDIF
CREATE_PARTY(TENTAKELB)
ADD_TO_PARTY(TENTAKELB,TENTACLE,6,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(TENTAKELB,TENTACLE,6,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(TENTAKELB,TENTACLE,7,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(TENTAKELB,TENTACLE,7,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(TENTAKELB,TENTACLE,7,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(TENTAKELB,TENTACLE,8,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(TENTAKELB,TENTACLE,8,0,DEFEND_LOCATION,0)
IF_ACTION_POINT(18,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TENTAKELB,19,1)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,FLY,19,1,8,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,FLY,19,1,9,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,FLY,19,1,10,0)
ENDIF
CREATE_PARTY(TENTAKELC)
ADD_TO_PARTY(TENTAKELC,TENTACLE,6,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(TENTAKELC,TENTACLE,6,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(TENTAKELC,TENTACLE,7,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(TENTAKELC,TENTACLE,7,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(TENTAKELC,TENTACLE,7,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(TENTAKELC,TENTACLE,8,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(TENTAKELC,TENTACLE,8,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(TENTAKELC,TENTACLE,8,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(TENTAKELC,TENTACLE,9,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(TENTAKELC,TENTACLE,9,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(TENTAKELC,TENTACLE,9,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(TENTAKELC,TENTACLE,10,0,DEFEND_LOCATION,0)
IF_ACTION_POINT(20,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TENTAKELC,21,1)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,FLY,21,2,8,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,FLY,21,1,9,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,FLY,21,2,10,0)
ENDIF
IF_ACTION_POINT(22,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TENTAKELA,22,2)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TENTAKELB,22,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TENTAKELC,22,1)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,FLY,22,2,8,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,FLY,22,4,9,0)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,FLY,22,3,10,0)
	SET_TIMER(PLAYER1,TIMER2)	REM Tentakel-Timer
ENDIF
IF(PLAYER1,TIMER2 >= 600)	REM Tentakel-Timer
	IF(PLAYER_GOOD,DUNGEON_DESTROYED==0)
		NEXT_COMMAND_REUSABLE
		ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TENTAKELA,22,1)
		NEXT_COMMAND_REUSABLE
		SET_TIMER(PLAYER1,TIMER2)	REM Tentakel-Timer
	ENDIF
ENDIF
IF(PLAYER_GOOD,DUNGEON_DESTROYED==1)
	CHANGE_SLAB_TYPE(147,120,LAVA)
	CHANGE_SLAB_TYPE(147,120,WATER)
ENDIF

CREATE_PARTY(FROSCHA)
ADD_TO_PARTY(FROSCHA,DEMONSPAWN,9,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(FROSCHA,DEMONSPAWN,8,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(FROSCHA,DEMONSPAWN,8,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(FROSCHA,DEMONSPAWN,7,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(FROSCHA,DEMONSPAWN,7,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(FROSCHA,DEMONSPAWN,7,0,ATTACK_DUNGEON_HEART,0)
CREATE_PARTY(FROSCHB)
ADD_TO_PARTY(FROSCHB,DEMONSPAWN,10,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(FROSCHB,DEMONSPAWN,10,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(FROSCHB,DEMONSPAWN,10,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(FROSCHB,DEMONSPAWN,9,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(FROSCHB,DEMONSPAWN,9,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(FROSCHB,DEMONSPAWN,8,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(FROSCHB,DEMONSPAWN,8,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(FROSCHB,DEMONSPAWN,7,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(FROSCHB,DEMONSPAWN,7,0,DEFEND_LOCATION,0)
IF_ACTION_POINT(26,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,FROSCHB,7,2)
	SET_TIMER(PLAYER1,TIMER1)	REM Frosch-Timer
ENDIF
IF(PLAYER1,TIMER1 >= 1000)	REM Frosch-Timer
	IF_SLAB_OWNER(49,54,PLAYER_NEUTRAL)
		NEXT_COMMAND_REUSABLE
		ADD_PARTY_TO_LEVEL(PLAYER_GOOD,FROSCHA,7,1)
		NEXT_COMMAND_REUSABLE
		SET_TIMER(PLAYER1,TIMER1)	REM Frosch-Timer
	ENDIF
ENDIF

REM ***** Fliegen-Respawn *****
SET_FLAG(PLAYER1,FLAG1,1)	REM Fliegen-Trigger
IF(PLAYER1,TIMER0 >= 800)
	IF_SLAB_OWNER(57,88,PLAYER_NEUTRAL)
		IF(PLAYER1,FLAG1 == 1)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,FLY,27,1,1,0)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER1,FLAG1,3)
		ENDIF
		IF(PLAYER1,FLAG1 == 2)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,FLY,27,1,2,0)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER1,FLAG1,4)
		ENDIF
		IF(PLAYER1,FLAG1 == 3)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,FLY,27,1,3,0)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER1,FLAG1,2)
		ENDIF
		IF(PLAYER1,FLAG1 == 4)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,FLY,27,1,4,0)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER1,FLAG1,1)
		ENDIF
		NEXT_COMMAND_REUSABLE
		SET_TIMER(PLAYER1,TIMER0)	REM Fliegen-Timer
	ENDIF
ENDIF
IF(PLAYER0,TOTAL_CREATURES>=21)
	SET_FLAG(PLAYER1,FLAG1,0)	REM Fliegen-Trigger
ENDIF


REM ***** SIEG-BEDINGUNGEN ***** 
IF(PLAYER0,ALL_DUNGEONS_DESTROYED == 1)
	SET_FLAG(PLAYER0,FLAG0,2)  REM => Win-Event
ENDIF

REM ***** IMP-DECKEL ***** 
IF(PLAYER0,FLAG0==1)
	IF(PLAYER0,IMP >= 40)
		QUICK_MESSAGE(2, "40 Imps are more than enough!", IMP)
		NEXT_COMMAND_REUSABLE
		MAGIC_AVAILABLE(PLAYER0,POWER_IMP,0,0)
	ENDIF
	IF(PLAYER0,IMP < 40)
		NEXT_COMMAND_REUSABLE
		MAGIC_AVAILABLE(PLAYER0,POWER_IMP,1,1)
	ENDIF
ENDIF