LEVEL_VERSION(1)
RUN_AFTER_VICTORY(1)

START_MONEY(PLAYER0,120000)

MAGIC_AVAILABLE(PLAYER0,POWER_LIGHTNING,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_CAVE_IN,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_POSSESS,0,0)

SET_CREATURE_HEALTH(HELL_HOUND,10)
SET_CREATURE_HEALTH(SORCEROR,10)

IF(PLAYER0,CAMPAIGN_FLAG4 <= 0)
	IF(PLAYER0,FLAG4 <=0)
		IF(PLAYER0,GAME_TURN >= 40)
			ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,SORCEROR,1,1,1,0)
			SET_FLAG(PLAYER0,FLAG4,1)
		ENDIF
	ENDIF
ENDIF

IF(PLAYER0,CAMPAIGN_FLAG4 == 1)
	IF(PLAYER0,GAME_TURN >= 40)
		IF(PLAYER0,FLAG4 <=0)
			ADD_CREATURE_TO_LEVEL(PLAYER0,SORCEROR,1,1,1,0)
			SET_FLAG(PLAYER0,FLAG4,1)
		ENDIF
	ENDIF
ENDIF

IF(PLAYER0,CAMPAIGN_FLAG3 <= 2)
	DISPLAY_OBJECTIVE(144,PLAYER0)
	SET_TIMER(PLAYER0,TIMER0)
	BONUS_LEVEL_TIME(2500)
	IF(PLAYER0,TIMER0 == 1250)
		IF(PLAYER0,FLAG1 == 0)
			DISPLAY_INFORMATION(145,ALL_PLAYERS)
		ENDIF
	ENDIF
	IF(PLAYER0,IMP == 0)
		DISPLAY_OBJECTIVE(147,PLAYER0)
		ADD_CREATURE_TO_LEVEL(PLAYER0,IMP,PLAYER0,1,1,10000)
		ROOM_AVAILABLE(ALL_PLAYERS,BRIDGE,1,1)
		MAGIC_AVAILABLE(PLAYER0,POWER_POSSESS,1,1)
		SET_TIMER(PLAYER0,TIMER1)
		SET_FLAG(PLAYER0,FLAG1,1)
		ADD_OBJECT_TO_LEVEL(SPECBOX_TRANSFR,2,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 1)
		IF(PLAYER0,CAMPAIGN_FLAG3 <= 1)
			ADD_CREATURE_TO_LEVEL(PLAYER0,HELL_HOUND,PLAYER0,1,2,10000)
		ENDIF
	ENDIF
	IF(PLAYER0,TIMER0 >= 2500)
		IF(PLAYER0,FLAG1 == 0)
			DISPLAY_OBJECTIVE(146,PLAYER0)
			LOSE_GAME 
		ENDIF
	ENDIF
	IF(PLAYER0,MONEY < 600)
		DISPLAY_OBJECTIVE(148,PLAYER0)
	ENDIF
ENDIF

IF(PLAYER0,TIMER1 >= 100)
	IF(PLAYER0,CAMPAIGN_FLAG3 <= 0)
		SET_FLAG(PLAYER0,CAMPAIGN_FLAG3,1)
	ENDIF
	WIN_GAME
	BONUS_LEVEL_TIME(0)
	IF(PLAYER0,HELL_HOUND <= 0)
		IF(PLAYER0,CREATURES_TRANSFERRED > 0)
			IF(PLAYER0,FLAG6 != 1)
				IF(PLAYER0,FLAG7 == 0)
					SET_FLAG(PLAYER0,CAMPAIGN_FLAG3,2)
					SET_FLAG(PLAYER0,FLAG7,1)
				ENDIF
			ENDIF
		ENDIF
		IF(PLAYER0,CREATURES_TRANSFERRED == 0)
			SET_FLAG(PLAYER0,FLAG7,2)
		ENDIF
	ENDIF
ENDIF

IF(PLAYER0,SORCEROR >= 1)
	SET_FLAG(PLAYER0,CAMPAIGN_FLAG4,1)
ENDIF

IF(PLAYER0,CAMPAIGN_FLAG4 >= 1)
	IF(PLAYER0,FLAG1 == 1)
		IF(PLAYER0,GAME_TURN >= 60)
			IF(PLAYER0,SORCEROR <= 0)
				IF(PLAYER0,CREATURES_TRANSFERRED > 0)
					IF(PLAYER0,FLAG7 != 1)
						IF(PLAYER0,FLAG6 == 0)
							SET_FLAG(PLAYER0,CAMPAIGN_FLAG4,2)
							SET_FLAG(PLAYER0,FLAG6,1)
						ENDIF
					ENDIF
				ENDIF
				IF(PLAYER0,CREATURES_TRANSFERRED == 0)
					SET_FLAG(PLAYER0,FLAG6,2)
				ENDIF
			ENDIF
		ENDIF
	ENDIF
ENDIF

IF(PLAYER0,CAMPAIGN_FLAG3 == 2)
	IF(PLAYER0,CAMPAIGN_FLAG4 >= 2)
		SET_FLAG(PLAYER0,CAMPAIGN_FLAG3,3)
	ENDIF
ENDIF

IF(PLAYER0,CAMPAIGN_FLAG3 >= 3)
	KILL_CREATURE(PLAYER0,IMP,MOST_EXPERIENCED,50)
	BONUS_LEVEL_TIME(0)
	WIN_GAME
ENDIF