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 ***       IMPS      ***
REM ***                 ***
REM *** PLAYER2,FLAG3	"Ein Imp Mehr"-Delay
REM *** PLAYER2,FLAG4	Imp-Anzahl
REM *** PLAYER2,FLAG5	Imp-Level
REM *** PLAYER2,FLAG6	1 = Abfrage aktiv 0 = Respawn
REM *** PLAYER0,TIMER2	Respawn-Timer
REM ***                 ***
REM ***      DUELL      ***
REM ***                 ***
REM *** PLAYER1,FLAG1 == 0    =>   Kampf Reset
REM *** PLAYER1,FLAG1 == 1    =>   Kampf Aktiv Init
REM *** PLAYER1,FLAG1 == 2    =>   Kampf Aktiv Done
REM *** PLAYER1,FLAG1 == 3    =>   Kampf Gewonnen

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)
	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 < 5)
					   REM    !!!! LEVELNUMMER !!!!
		SET_FLAG(PLAYER0,CAMPAIGN_FLAG7,5)
		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(RESEARCH,Properties,2)
SET_CREATURE_PROPERTY(VAMPIRE,NO_CORPSE_ROTTING,1)

REM **** Setup Gelb ****
COMPUTER_PLAYER(PLAYER3,10)
START_MONEY(PLAYER3,0)
REM ROOM_AVAILABLE(PLAYER3,TREASURE,1,1)
ROOM_AVAILABLE(PLAYER3,LAIR,1,1)
ROOM_AVAILABLE(PLAYER3,GARDEN,1,1)
ROOM_AVAILABLE(PLAYER3,TRAINING,1,1)
ROOM_AVAILABLE(PLAYER3,RESEARCH,1,1)
MAGIC_AVAILABLE(PLAYER3,POWER_HAND,1,1)
MAGIC_AVAILABLE(PLAYER3,POWER_SLAP,0,0)
REM MAGIC_AVAILABLE(PLAYER3,POWER_CALL_TO_ARMS,1,1)
MAGIC_AVAILABLE(PLAYER3,POWER_SPEED,1,1)
MAGIC_AVAILABLE(PLAYER3,POWER_HOLD_AUDIENCE,1,1)
MAGIC_AVAILABLE(PLAYER3,POWER_PROTECT,1,1)
MAGIC_AVAILABLE(PLAYER3,POWER_OBEY,1,1)
MAGIC_AVAILABLE(PLAYER3,POWER_CONCEAL,1,1)
MAGIC_AVAILABLE(PLAYER3,POWER_HEAL_CREATURE,1,1)
CREATURE_AVAILABLE(PLAYER3,SPIDER,1,1)
CREATURE_AVAILABLE(PLAYER3,ORC,1,1)
CREATURE_AVAILABLE(PLAYER3,BILE_DEMON,1,1)
CREATURE_AVAILABLE(PLAYER3,DRAGON,1,1)
CREATURE_AVAILABLE(PLAYER3,KNIGHT,1,1)
CREATURE_AVAILABLE(PLAYER3,DARK_MISTRESS,1,1)
CREATURE_AVAILABLE(PLAYER3,VAMPIRE,1,1)
SET_COMPUTER_PROCESS(PLAYER3,"DIG TO CLOSE GOLD",0,10000000000,10000000000,5,20)

REM ***** IMP-DECKEL ***** 
IF(PLAYER3,IMP >= 10)
	NEXT_COMMAND_REUSABLE
	MAGIC_AVAILABLE(PLAYER3,POWER_IMP,0,0)
ENDIF
IF(PLAYER3,IMP < 10)
	NEXT_COMMAND_REUSABLE
	MAGIC_AVAILABLE(PLAYER3,POWER_IMP,1,1)
ENDIF




SET_BOX_TOOLTIP(0," Imp Level Up ")
SET_BOX_TOOLTIP(1," One More Imp ")

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

REM **** Set gewaehlt ****
IF(PLAYER0,FLAG0==1)
	SET_FLAG(PLAYER2,FLAG4,1)	REM Imp-Anzahl
	SET_FLAG(PLAYER2,FLAG5,1)	REM Imp-Level
	SET_FLAG(PLAYER2,FLAG6,1)	REM Imp-Respawn, 1="Abfrage aktiv"
	SET_TIMER(PLAYER0,TIMER2)	REM Imp-Respawn-Timer
	
	MAX_CREATURES(PLAYER0,20)
	SET_GENERATE_SPEED(400)
	QUICK_OBJECTIVE(2, "You start with only one IMP. Thank the gods for reviving him if he dies!")
	ADD_CREATURE_TO_LEVEL(PLAYER0,IMP,PLAYER0,1,1,0)
	
	CHANGE_SLAB_TYPE(74,21,PRETTY_PATH)
	CHANGE_SLAB_TYPE(75,21,PRETTY_PATH)
	CHANGE_SLAB_TYPE(76,21,PRETTY_PATH)
	CHANGE_SLAB_TYPE(77,21,PRETTY_PATH)
	CHANGE_SLAB_TYPE(78,21,PRETTY_PATH)
	CHANGE_SLAB_TYPE(74,22,PRETTY_PATH)
	CHANGE_SLAB_TYPE(74,23,PRETTY_PATH)
	CHANGE_SLAB_TYPE(74,24,PRETTY_PATH)
	CHANGE_SLAB_TYPE(74,25,PRETTY_PATH)
	CHANGE_SLAB_TYPE(75,25,PRETTY_PATH)
	CHANGE_SLAB_TYPE(76,25,PRETTY_PATH)
	CHANGE_SLAB_TYPE(77,25,PRETTY_PATH)
	CHANGE_SLAB_TYPE(78,25,PRETTY_PATH)
	CHANGE_SLAB_TYPE(78,22,PRETTY_PATH)
	CHANGE_SLAB_TYPE(78,23,PRETTY_PATH)
	CHANGE_SLAB_TYPE(78,24,PRETTY_PATH)
	
	CHANGE_SLAB_OWNER(74,21,PLAYER0)
	CHANGE_SLAB_OWNER(75,21,PLAYER0)
	CHANGE_SLAB_OWNER(76,21,PLAYER0)
	CHANGE_SLAB_OWNER(77,21,PLAYER0)
	CHANGE_SLAB_OWNER(78,21,PLAYER0)
	CHANGE_SLAB_OWNER(74,22,PLAYER0)
	CHANGE_SLAB_OWNER(74,23,PLAYER0)
	CHANGE_SLAB_OWNER(74,24,PLAYER0)
	CHANGE_SLAB_OWNER(74,25,PLAYER0)
	CHANGE_SLAB_OWNER(75,25,PLAYER0)
	CHANGE_SLAB_OWNER(76,25,PLAYER0)
	CHANGE_SLAB_OWNER(77,25,PLAYER0)
	CHANGE_SLAB_OWNER(78,25,PLAYER0)
	CHANGE_SLAB_OWNER(78,22,PLAYER0)
	CHANGE_SLAB_OWNER(78,23,PLAYER0)
	CHANGE_SLAB_OWNER(78,24,PLAYER0)
ENDIF






















































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


CREATE_PARTY(SPINNEN)
ADD_TO_PARTY(SPINNEN,SPIDER,10,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(SPINNEN,SPIDER,9,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(SPINNEN,SPIDER,8,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(SPINNEN,SPIDER,7,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(SPINNEN,SPIDER,6,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(SPINNEN,SPIDER,5,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(SPINNEN,SPIDER,4,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(SPINNEN,SPIDER,4,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(SPINNEN,SPIDER,3,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(SPINNEN,SPIDER,3,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(SPINNEN,SPIDER,2,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(SPINNEN,SPIDER,2,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(SPINNEN,SPIDER,2,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(SPINNEN,SPIDER,2,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(SPINNEN,SPIDER,1,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(SPINNEN,SPIDER,1,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(SPINNEN,SPIDER,1,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(SPINNEN,SPIDER,1,0,DEFEND_LOCATION,0)
IF_ACTION_POINT(17,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,SPINNEN,17,1)
ENDIF
IF_ACTION_POINT(18,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,SPINNEN,18,3)
ENDIF

CREATE_PARTY(HELDDH)
ADD_TO_PARTY(HELDDH,KNIGHT,10,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(HELDDH,ARCHER,10,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(HELDDH,ARCHER,10,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(HELDDH,WIZARD,10,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(HELDDH,TIME_MAGE,10,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(HELDDH,BARBARIAN,10,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(HELDDH,DWARFA,10,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(HELDDH,GIANT,10,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(HELDDH,HELL_HOUND,8,0,DEFEND_LOCATION,0)
IF_ACTION_POINT(15,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDDH,15,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDDH,16,2)
ENDIF


IF_SLAB_TYPE(96,77,PRETTY_PATH)
	CHANGE_SLAB_TYPE(96,76,PRETTY_PATH)
	CHANGE_SLAB_TYPE(96,78,PRETTY_PATH)
ENDIF



CREATE_PARTY(RUINE)
ADD_TO_PARTY(RUINE,SKELETON,10,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(RUINE,SKELETON,10,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(RUINE,SKELETON,10,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(RUINE,SKELETON,10,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(RUINE,GHOST,10,0,DEFEND_LOCATION,0)
ADD_TO_PARTY(RUINE,GHOST,10,0,DEFEND_LOCATION,0)
IF_ACTION_POINT(24,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,RUINE,24,1)
ENDIF
IF_ACTION_POINT(25,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,RUINE,25,2)
ENDIF
IF_ACTION_POINT(26,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,RUINE,26,2)
ENDIF
IF_ACTION_POINT(27,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,RUINE,27,3)
ENDIF


IF_ACTION_POINT(19,PLAYER0)
	CREATE_PARTY(MULTIPLY)
	ADD_TO_PARTY(MULTIPLY,KNIGHT,10,0,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(MULTIPLY,KNIGHT,10,0,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(MULTIPLY,HORNY,10,0,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(MULTIPLY,HORNY,10,0,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(MULTIPLY,DARK_MISTRESS,10,0,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(MULTIPLY,DARK_MISTRESS,10,0,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(MULTIPLY,DARK_MISTRESS,10,0,ATTACK_DUNGEON_HEART,0)
	ADD_TO_PARTY(MULTIPLY,DARK_MISTRESS,10,0,ATTACK_DUNGEON_HEART,0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,MULTIPLY,19,1)
	IF_SLAB_OWNER(70,23,PLAYER_NEUTRAL)
		CHANGE_SLAB_TYPE(70,23,PATH)
	ENDIF
	IF_SLAB_OWNER(71,23,PLAYER_NEUTRAL)
		CHANGE_SLAB_TYPE(71,23,PATH)
	ENDIF
	IF_SLAB_OWNER(70,23,PLAYER0)
		CHANGE_SLAB_TYPE(70,23,PRETTY_PATH)
	ENDIF
	IF_SLAB_OWNER(71,23,PLAYER0)
		CHANGE_SLAB_TYPE(71,23,PRETTY_PATH)
	ENDIF
ENDIF




REM ***                 ***
REM ***      DUELL      ***
REM ***                 ***

REM PLAYER1,FLAG1 == 0    =>   Kampf Reset
REM PLAYER1,FLAG1 == 1    =>   Kampf Aktiv Init
REM PLAYER1,FLAG1 == 2    =>   Kampf Aktiv Done
REM PLAYER1,FLAG1 == 3    =>   Kampf Gewonnen


SET_FLAG(PLAYER1,FLAG1,0)
NEXT_COMMAND_REUSABLE
SET_FLAG(PLAYER1,FLAG0,0)	REM Duell Counter
NEXT_COMMAND_REUSABLE
COUNT_CREATURES_AT_ACTION_POINT(7,PLAYER0,ANY_CREATURE,PLAYER1,FLAG0)
REM *** Eine Kreatur in Kammer ***
IF(PLAYER1,FLAG0==1)		REM Duell Counter
	IF(PLAYER1,FLAG1==0)	REM Kampf Inaktiv
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,VAMPIRE,29,1,10,0)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,VAMPIRE,30,1,10,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER1,FLAG1,1)	REM Kampf Aktiv Init
	ENDIF
ENDIF
REM *** Kampf-Phase ***
IF(PLAYER1,FLAG1>0)	REM Duell aktiv
	IF(PLAYER1,FLAG1==1)	REM Kampf Aktiv 
		NEXT_COMMAND_REUSABLE
		CHANGE_SLAB_TYPE(35,97,HARD)
		NEXT_COMMAND_REUSABLE
		PLAY_MESSAGE(PLAYER0,SOUND,42)	REM	quake
		NEXT_COMMAND_REUSABLE
		PLAY_MESSAGE(PLAYER0,SOUND,92)	REM	doordown
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER1,FLAG1,2)	REM Kampf Aktiv Done
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,21,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,22,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,23,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,21,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,22,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,23,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,21,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,22,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,23,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,21,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,22,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,23,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,21,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,22,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,23,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,21,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,22,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,23,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,21,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,22,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,23,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,21,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,22,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,23,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,21,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,22,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,23,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,21,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,22,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,23,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,21,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,22,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,23,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,21,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,22,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,23,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,21,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,22,3000)
		NEXT_COMMAND_REUSABLE
		ADD_EFFECT_GENERATOR_TO_LEVEL(EFFECTGENERATOR_LAVA,23,3000)
	ENDIF
	REM *** Kampf gewonnen ***
	IF(PLAYER_GOOD,VAMPIRE==0)
		SET_FLAG(PLAYER1,FLAG1,4)
		PLAY_MESSAGE(PLAYER0,SOUND,116)	REM	claim
		PLAY_MESSAGE(PLAYER0,SPEECH,21)		REM "The battle is over"
		CHANGE_SLAB_OWNER(35,97,PLAYER0)
		CHANGE_SLAB_OWNER(34,97,PLAYER0)
		CHANGE_SLAB_OWNER(33,97,PLAYER0)
		CHANGE_SLAB_OWNER(32,97,PLAYER0)
		CHANGE_SLAB_OWNER(31,97,PLAYER0)
		CHANGE_SLAB_OWNER(30,97,PLAYER0)
		CHANGE_SLAB_OWNER(32,98,PLAYER0)
		CHANGE_SLAB_OWNER(31,98,PLAYER0)
		CHANGE_SLAB_OWNER(30,98,PLAYER0)
		CHANGE_SLAB_OWNER(32,96,PLAYER0)
		CHANGE_SLAB_OWNER(31,96,PLAYER0)
		CHANGE_SLAB_OWNER(30,96,PLAYER0)
		CHANGE_SLAB_TYPE(35,97,PRETTY_PATH)
		CHANGE_SLAB_TYPE(31,97,BOOK_SHELVES)
		CHANGE_SLAB_OWNER(35,97,PLAYER0)
		CHANGE_SLAB_TYPE(29,97,LAVA)
		CHANGE_SLAB_TYPE(32,95,LAVA)
		CHANGE_SLAB_TYPE(32,99,LAVA)
		CREATE_EFFECT(EFFECT_SPANGLE_RED,20)
		CREATE_EFFECT_AT_POS(EFFECT_SPANGLE_RED,91,292)
		CREATE_EFFECT_AT_POS(EFFECT_SPANGLE_RED,94,292)
		CREATE_EFFECT_AT_POS(EFFECT_SPANGLE_RED,97,292)
		CREATE_EFFECT_AT_POS(EFFECT_SPANGLE_RED,91,295)
		CREATE_EFFECT_AT_POS(EFFECT_SPANGLE_RED,94,295)
		CREATE_EFFECT_AT_POS(EFFECT_SPANGLE_RED,97,295)
		CREATE_EFFECT_AT_POS(EFFECT_SPANGLE_RED,91,289)
		CREATE_EFFECT_AT_POS(EFFECT_SPANGLE_RED,94,289)
		CREATE_EFFECT_AT_POS(EFFECT_SPANGLE_RED,97,289)
		CREATE_EFFECT_AT_POS(EFFECT_SPANGLE_RED,100,292)
		CREATE_EFFECT_AT_POS(EFFECT_SPANGLE_RED,103,292)
		CREATE_EFFECT_AT_POS(EFFECT_SPANGLE_RED,106,292)
	ENDIF
ENDIF
REM *** Keine Kreatur mehr in Kammer ***
IF(PLAYER1,FLAG0==0)	REM Duell Counter
	IF(PLAYER1,FLAG1==2)	REM Kampf Aktiv Done
		REM => Reset Init
		NEXT_COMMAND_REUSABLE
		CHANGE_SLAB_TYPE(35,97,HARD_FLOOR)
		NEXT_COMMAND_REUSABLE
		CHANGE_SLAB_TYPE(29,97,LAVA)
		NEXT_COMMAND_REUSABLE
		CHANGE_SLAB_TYPE(32,95,LAVA)
		NEXT_COMMAND_REUSABLE
		CHANGE_SLAB_TYPE(32,99,LAVA)
		NEXT_COMMAND_REUSABLE
		CREATE_EFFECT(14,20)		REM word of power
		NEXT_COMMAND_REUSABLE
		PLAY_MESSAGE(PLAYER0,SOUND,42)	REM	quake
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER1,FLAG1,0)	REM Kampf Reset Init
	ENDIF
	IF(PLAYER1,FLAG1==0)	REM Kampf Reset Init
		NEXT_COMMAND_REUSABLE
		KILL_CREATURE(PLAYER_GOOD,VAMPIRE,ANYWHERE,1)
	ENDIF
ENDIF

REM *** Mehr als eine Kreatur in Kammer ***
IF(PLAYER1,FLAG0>1)	REM Duell Counter
	IF(PLAYER1,FLAG1==2)	REM Kampf Aktiv Done
		QUICK_INFORMATION(6,"You only have to fight this battle with ONE creature!")
		REM => Reset Init
		NEXT_COMMAND_REUSABLE
		CHANGE_SLAB_TYPE(35,97,HARD_FLOOR)
		NEXT_COMMAND_REUSABLE
		CHANGE_SLAB_TYPE(29,97,LAVA)
		NEXT_COMMAND_REUSABLE
		CHANGE_SLAB_TYPE(32,95,LAVA)
		NEXT_COMMAND_REUSABLE
		CHANGE_SLAB_TYPE(32,99,LAVA)
		NEXT_COMMAND_REUSABLE
		CREATE_EFFECT(14,20)		REM word of power
		NEXT_COMMAND_REUSABLE
		PLAY_MESSAGE(PLAYER0,SOUND,42)	REM	quake
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER1,FLAG1,0)	REM Kampf Reset Init
	ENDIF
	IF(PLAYER1,FLAG1==0)	REM Kampf Reset Init
		NEXT_COMMAND_REUSABLE
		KILL_CREATURE(PLAYER_GOOD,VAMPIRE,ANYWHERE,1)
	ENDIF
ENDIF





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

























































REM **** Imp Level Up **** 
IF(PLAYER0, BOX0_ACTIVATED == 1)
	NEXT_COMMAND_REUSABLE
	ADD_TO_FLAG(PLAYER2,FLAG5,1)
	NEXT_COMMAND_REUSABLE
	PLAY_MESSAGE(PLAYER0,SOUND,488)		REM imphapy.wav
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX0_ACTIVATED,0)
	NEXT_COMMAND_REUSABLE
	LEVEL_UP_PLAYERS_CREATURES(PLAYER0,IMP,1)
ENDIF

REM **** Ein Imp Mehr **** 
IF(PLAYER0, BOX1_ACTIVATED == 1)
	IF(PLAYER2,FLAG5==1)	REM Imp-Level
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,IMP,PLAYER0,1,1,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER2,FLAG3,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER2,FLAG6,1)
		NEXT_COMMAND_REUSABLE
		PLAY_MESSAGE(PLAYER0,SOUND,488)		REM imphapy.wav
	ENDIF
	IF(PLAYER2,FLAG5==2)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,IMP,PLAYER0,1,2,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER2,FLAG3,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER2,FLAG6,1)
		NEXT_COMMAND_REUSABLE
		PLAY_MESSAGE(PLAYER0,SOUND,488)		REM imphapy.wav
	ENDIF
	IF(PLAYER2,FLAG5==3)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,IMP,PLAYER0,1,3,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER2,FLAG3,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER2,FLAG6,1)
		NEXT_COMMAND_REUSABLE
		PLAY_MESSAGE(PLAYER0,SOUND,488)		REM imphapy.wav
	ENDIF
	IF(PLAYER2,FLAG5==4)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,IMP,PLAYER0,1,4,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER2,FLAG3,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER2,FLAG6,1)
		NEXT_COMMAND_REUSABLE
		PLAY_MESSAGE(PLAYER0,SOUND,488)		REM imphapy.wav
	ENDIF
	IF(PLAYER2,FLAG5==5)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,IMP,PLAYER0,1,5,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER2,FLAG3,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER2,FLAG6,1)
		NEXT_COMMAND_REUSABLE
		PLAY_MESSAGE(PLAYER0,SOUND,488)		REM imphapy.wav
	ENDIF
	IF(PLAYER2,FLAG5==6)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,IMP,PLAYER0,1,6,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER2,FLAG3,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER2,FLAG6,1)
		NEXT_COMMAND_REUSABLE
		PLAY_MESSAGE(PLAYER0,SOUND,488)		REM imphapy.wav
	ENDIF
	IF(PLAYER2,FLAG5==7)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,IMP,PLAYER0,1,7,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER2,FLAG3,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER2,FLAG6,1)
		NEXT_COMMAND_REUSABLE
		PLAY_MESSAGE(PLAYER0,SOUND,488)		REM imphapy.wav
	ENDIF
	IF(PLAYER2,FLAG5==8)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,IMP,PLAYER0,1,8,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER2,FLAG3,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER2,FLAG6,1)
		NEXT_COMMAND_REUSABLE
		PLAY_MESSAGE(PLAYER0,SOUND,488)		REM imphapy.wav
	ENDIF
	IF(PLAYER2,FLAG5==9)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,IMP,PLAYER0,1,9,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER2,FLAG3,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER2,FLAG6,1)
		NEXT_COMMAND_REUSABLE
		PLAY_MESSAGE(PLAYER0,SOUND,488)		REM imphapy.wav
	ENDIF
	IF(PLAYER2,FLAG5==10)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,IMP,PLAYER0,1,10,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER2,FLAG3,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER2,FLAG6,1)
		NEXT_COMMAND_REUSABLE
		PLAY_MESSAGE(PLAYER0,SOUND,488)		REM imphapy.wav
	ENDIF
	IF(PLAYER2,FLAG5<9999)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER2,FLAG4,1)	REM Imp-Anzahl
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX1_ACTIVATED,0)
	ENDIF
ENDIF

REM ***** Imp-Respawn *****
SET_TIMER(PLAYER0,TIMER2)
IF(PLAYER2,FLAG6 == 1)
	IF(PLAYER2,FLAG4 == 1)	REM Imp-Anzahl
		IF(PLAYER0,IMP < 1)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER2,FLAG6,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER0,TIMER2)
		ENDIF
	ENDIF
	IF(PLAYER2,FLAG4 == 2)
		IF(PLAYER0,IMP < 2)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER2,FLAG6,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER0,TIMER2)
		ENDIF
	ENDIF
	IF(PLAYER2,FLAG4 == 3)
		IF(PLAYER0,IMP < 3)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER2,FLAG6,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER0,TIMER2)
		ENDIF
	ENDIF
	IF(PLAYER2,FLAG4 == 4)
		IF(PLAYER0,IMP < 4)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER2,FLAG6,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER0,TIMER2)
		ENDIF
	ENDIF
	IF(PLAYER2,FLAG4 == 5)
		IF(PLAYER0,IMP < 5)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER2,FLAG6,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER0,TIMER2)
		ENDIF
	ENDIF
	IF(PLAYER2,FLAG4 == 6)
		IF(PLAYER0,IMP < 6)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER2,FLAG6,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER0,TIMER2)
		ENDIF
	ENDIF
	IF(PLAYER2,FLAG4 == 7)
		IF(PLAYER0,IMP < 7)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER2,FLAG6,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER0,TIMER2)
		ENDIF
	ENDIF
	IF(PLAYER2,FLAG4 == 8)
		IF(PLAYER0,IMP < 8)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER2,FLAG6,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER0,TIMER2)
		ENDIF
	ENDIF
	IF(PLAYER2,FLAG4 == 9)
		IF(PLAYER0,IMP < 9)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER2,FLAG6,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER0,TIMER2)
		ENDIF
	ENDIF
	IF(PLAYER2,FLAG4 == 10)
		IF(PLAYER0,IMP < 10)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER2,FLAG6,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER0,TIMER2)
		ENDIF
	ENDIF
ENDIF
IF(PLAYER2,FLAG6==0)
	IF(PLAYER0,TIMER2 >= 100)
		IF(PLAYER2,FLAG5==1)	REM Imp-Level
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER0,IMP,PLAYER0,1,1,0)
			NEXT_COMMAND_REUSABLE
			PLAY_MESSAGE(PLAYER0,SOUND,488)		REM imphapy.wav
		ENDIF
		IF(PLAYER2,FLAG5==2)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER0,IMP,PLAYER0,1,2,0)
			NEXT_COMMAND_REUSABLE
			PLAY_MESSAGE(PLAYER0,SOUND,488)		REM imphapy.wav
		ENDIF
		IF(PLAYER2,FLAG5==3)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER0,IMP,PLAYER0,1,3,0)
			NEXT_COMMAND_REUSABLE
			PLAY_MESSAGE(PLAYER0,SOUND,488)		REM imphapy.wav
		ENDIF
		IF(PLAYER2,FLAG5==4)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER0,IMP,PLAYER0,1,4,0)
			NEXT_COMMAND_REUSABLE
			PLAY_MESSAGE(PLAYER0,SOUND,488)		REM imphapy.wav
		ENDIF
		IF(PLAYER2,FLAG5==5)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER0,IMP,PLAYER0,1,5,0)
			NEXT_COMMAND_REUSABLE
			PLAY_MESSAGE(PLAYER0,SOUND,488)		REM imphapy.wav
		ENDIF
		IF(PLAYER2,FLAG5==6)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER0,IMP,PLAYER0,1,6,0)
			NEXT_COMMAND_REUSABLE
			PLAY_MESSAGE(PLAYER0,SOUND,488)		REM imphapy.wav
		ENDIF
		IF(PLAYER2,FLAG5==7)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER0,IMP,PLAYER0,1,7,0)
			NEXT_COMMAND_REUSABLE
			PLAY_MESSAGE(PLAYER0,SOUND,488)		REM imphapy.wav
		ENDIF
		IF(PLAYER2,FLAG5==8)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER0,IMP,PLAYER0,1,8,0)
			NEXT_COMMAND_REUSABLE
			PLAY_MESSAGE(PLAYER0,SOUND,488)		REM imphapy.wav
		ENDIF
		IF(PLAYER2,FLAG5==9)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER0,IMP,PLAYER0,1,9,0)
			NEXT_COMMAND_REUSABLE
			PLAY_MESSAGE(PLAYER0,SOUND,488)		REM imphapy.wav
		ENDIF
		IF(PLAYER2,FLAG5==10)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER0,IMP,PLAYER0,1,10,0)
			NEXT_COMMAND_REUSABLE
			PLAY_MESSAGE(PLAYER0,SOUND,488)		REM imphapy.wav
		ENDIF
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER2,FLAG6,1)
	ENDIF
ENDIF