REM # General Settings.
LEVEL_VERSION(1)
RUN_AFTER_VICTORY(1)

REM # RevMap special for testing, to REM # before release.
REM # ADD_OBJECT_TO_LEVEL(SPECBOX_REVMAP,PLAYER0,0)

REM # Map Settings.
SET_GENERATE_SPEED(1200)
ALLY_PLAYERS(PLAYER0,PLAYER6,3)
ALLY_PLAYERS(PLAYER0,PLAYER_GOOD,3)
ALLY_PLAYERS(PLAYER6,PLAYER_GOOD,3)
SET_PLAYER_COLOR(PLAYER0,BLACK)
SET_PLAYER_COLOR(PLAYER6,BLACK)
SET_PLAYER_COLOR(PLAYER_GOOD,BLACK)
COMPUTER_PLAYER(PLAYER6,ROAMING)
CONCEAL_MAP_RECT(PLAYER0,22,22,44,44,1)

REM # Setup Game Rule.
SET_GAME_RULE(BodyRemainsFor,100)
SET_GAME_RULE(PayDaySpeed,0)
SET_GAME_RULE(PayDayGap,1728000)

REM # Creature Configuration - BILE_DEMON.
SET_CREATURE_CONFIGURATION(BILE_DEMON,BaseSpeed,0)
SET_CREATURE_CONFIGURATION(BILE_DEMON,CorpseVanishEffect,-63)
SET_CREATURE_CONFIGURATION(BILE_DEMON,QuerySymbol,0)
SET_CREATURE_PROPERTY(BILE_DEMON,NO_CORPSE_ROTTING,1)

REM # Creature Configuration - DARK_MISTRESS.
SET_CREATURE_CONFIGURATION(DARK_MISTRESS,BaseSpeed,0)
SET_CREATURE_CONFIGURATION(DARK_MISTRESS,CorpseVanishEffect,-63)
SET_CREATURE_CONFIGURATION(DARK_MISTRESS,QuerySymbol,0)
SET_CREATURE_PROPERTY(DARK_MISTRESS,NO_CORPSE_ROTTING,1)

REM # Creature Configuration - DRAGON.
SET_CREATURE_CONFIGURATION(DRAGON,BaseSpeed,0)
SET_CREATURE_CONFIGURATION(DRAGON,CorpseVanishEffect,-63)
SET_CREATURE_CONFIGURATION(DRAGON,QuerySymbol,0)
SET_CREATURE_PROPERTY(DRAGON,NO_CORPSE_ROTTING,1)

REM # Creature Configuration - HORNY.
SET_CREATURE_CONFIGURATION(HORNY,BaseSpeed,0)
SET_CREATURE_CONFIGURATION(HORNY,CorpseVanishEffect,-63)
SET_CREATURE_CONFIGURATION(HORNY,QuerySymbol,0)
SET_CREATURE_PROPERTY(HORNY,NO_CORPSE_ROTTING,1)

REM # Creature Configuration - ORC.
SET_CREATURE_CONFIGURATION(ORC,BaseSpeed,0)
SET_CREATURE_CONFIGURATION(ORC,CorpseVanishEffect,-63)
SET_CREATURE_CONFIGURATION(ORC,QuerySymbol,0)
SET_CREATURE_PROPERTY(ORC,NO_CORPSE_ROTTING,1)

REM # Creature Configuration - SORCEROR.
SET_CREATURE_CONFIGURATION(SORCEROR,BaseSpeed,0)
SET_CREATURE_CONFIGURATION(SORCEROR,CorpseVanishEffect,-63)
SET_CREATURE_CONFIGURATION(SORCEROR,QuerySymbol,0)
SET_CREATURE_PROPERTY(SORCEROR,NO_CORPSE_ROTTING,1)

REM # Creature Configuration - TROLL.
SET_CREATURE_CONFIGURATION(TROLL,BaseSpeed,0)
SET_CREATURE_CONFIGURATION(TROLL,CorpseVanishEffect,-63)
SET_CREATURE_CONFIGURATION(TROLL,QuerySymbol,0)
SET_CREATURE_PROPERTY(TROLL,NO_CORPSE_ROTTING,1)

REM # Creature Configuration - VAMPIRE.
SET_CREATURE_CONFIGURATION(VAMPIRE,BaseSpeed,0)
SET_CREATURE_CONFIGURATION(VAMPIRE,CorpseVanishEffect,-63)
SET_CREATURE_CONFIGURATION(VAMPIRE,QuerySymbol,0)
SET_CREATURE_PROPERTY(VAMPIRE,NO_CORPSE_ROTTING,1)

REM # Keeper's Powers Availablity.
MAGIC_AVAILABLE(PLAYER0,POWER_HAND,0,0)
MAGIC_AVAILABLE(PLAYER0,POWER_SLAP,0,0)
MAGIC_AVAILABLE(PLAYER0,POWER_POSSESS,0,0)

REM # Set tooltip for Custom Special Box.
SET_BOX_TOOLTIP(17,"Reveal!")
SET_BOX_TOOLTIP(18,"Reveal!")
SET_BOX_TOOLTIP(19,"Reveal!")
SET_BOX_TOOLTIP(20,"Reveal!")
SET_BOX_TOOLTIP(21,"Reveal!")
SET_BOX_TOOLTIP(22,"Reveal!")
SET_BOX_TOOLTIP(23,"Reveal!")
SET_BOX_TOOLTIP(24,"Reveal!")
SET_BOX_TOOLTIP(25,"Reveal!")
SET_BOX_TOOLTIP(26,"Reveal!")
SET_BOX_TOOLTIP(27,"Reveal!")
SET_BOX_TOOLTIP(28,"Reveal!")
SET_BOX_TOOLTIP(29,"Reveal!")
SET_BOX_TOOLTIP(30,"Reveal!")
SET_BOX_TOOLTIP(31,"Reveal!")
SET_BOX_TOOLTIP(32,"Reveal!")
ADD_OBJECT_TO_LEVEL(SPELLBOOK_HOE,33,17,PLAYER_NEUTRAL)
ADD_OBJECT_TO_LEVEL(SPELLBOOK_IMP,34,18,PLAYER_NEUTRAL)
ADD_OBJECT_TO_LEVEL(SPELLBOOK_OBEY,35,19,PLAYER_NEUTRAL)
ADD_OBJECT_TO_LEVEL(SPELLBOOK_SLAP,36,20,PLAYER_NEUTRAL)
ADD_OBJECT_TO_LEVEL(SPELLBOOK_SOE,37,21,PLAYER_NEUTRAL)
ADD_OBJECT_TO_LEVEL(SPELLBOOK_CTA,38,22,PLAYER_NEUTRAL)
ADD_OBJECT_TO_LEVEL(SPELLBOOK_CAVI,39,23,PLAYER_NEUTRAL)
ADD_OBJECT_TO_LEVEL(SPELLBOOK_HEAL,40,24,PLAYER_NEUTRAL)
ADD_OBJECT_TO_LEVEL(SPELLBOOK_HLDAUD,41,25,PLAYER_NEUTRAL)
ADD_OBJECT_TO_LEVEL(SPELLBOOK_LIGHTN,42,26,PLAYER_NEUTRAL)
ADD_OBJECT_TO_LEVEL(SPELLBOOK_SPDC,43,27,PLAYER_NEUTRAL)
ADD_OBJECT_TO_LEVEL(SPELLBOOK_PROT,44,28,PLAYER_NEUTRAL)
ADD_OBJECT_TO_LEVEL(SPELLBOOK_CONCL,45,29,PLAYER_NEUTRAL)
ADD_OBJECT_TO_LEVEL(SPELLBOOK_DISEASE,46,30,PLAYER_NEUTRAL)
ADD_OBJECT_TO_LEVEL(SPELLBOOK_CHKN,47,31,PLAYER_NEUTRAL)
ADD_OBJECT_TO_LEVEL(SPELLBOOK_DWAL,48,32,PLAYER_NEUTRAL)

REM # Setup the game.
IF(PLAYER_GOOD,GAME_TURN > 0)
	IF(PLAYER_GOOD,FLAG0 == 0)
		IF(PLAYER_GOOD,TOTAL_CREATURES == 0)			
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER4,BOX1_ACTIVATED,4)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER4,BOX2_ACTIVATED,4)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER4,BOX3_ACTIVATED,4)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER4,BOX4_ACTIVATED,4)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER4,BOX5_ACTIVATED,4)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER4,BOX6_ACTIVATED,4)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER4,BOX7_ACTIVATED,4)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER4,BOX8_ACTIVATED,4)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BILE_DEMON,17,1,10,0)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BILE_DEMON,18,1,10,0)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DARK_MISTRESS,19,1,10,0)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DARK_MISTRESS,20,1,10,0)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DRAGON,21,1,10,0)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DRAGON,22,1,10,0)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,HORNY,23,1,10,0)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,HORNY,24,1,10,0)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,ORC,25,1,10,0)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,ORC,26,1,10,0)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,SORCEROR,27,1,10,0)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,SORCEROR,28,1,10,0)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,TROLL,29,1,10,0)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,TROLL,30,1,10,0)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,VAMPIRE,31,1,10,0)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,VAMPIRE,32,1,10,0)
		ENDIF
		IF(PLAYER_GOOD,TOTAL_CREATURES == 16)
			NEXT_COMMAND_REUSABLE
			MOVE_CREATURE(PLAYER_GOOD,ANY_CREATURE,ANYWHERE,1,1)
			NEXT_COMMAND_REUSABLE
			CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[1],PLAYER6)
			NEXT_COMMAND_REUSABLE
			MOVE_CREATURE(PLAYER_GOOD,ANY_CREATURE,ANYWHERE,1,2)
			NEXT_COMMAND_REUSABLE
			CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[2],PLAYER6)
			NEXT_COMMAND_REUSABLE
			MOVE_CREATURE(PLAYER_GOOD,ANY_CREATURE,ANYWHERE,1,3)
			NEXT_COMMAND_REUSABLE
			CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[3],PLAYER6)
			NEXT_COMMAND_REUSABLE
			MOVE_CREATURE(PLAYER_GOOD,ANY_CREATURE,ANYWHERE,1,4)
			NEXT_COMMAND_REUSABLE
			CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[4],PLAYER6)
			NEXT_COMMAND_REUSABLE
			MOVE_CREATURE(PLAYER_GOOD,ANY_CREATURE,ANYWHERE,1,5)
			NEXT_COMMAND_REUSABLE
			CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[5],PLAYER6)
			NEXT_COMMAND_REUSABLE
			MOVE_CREATURE(PLAYER_GOOD,ANY_CREATURE,ANYWHERE,1,6)
			NEXT_COMMAND_REUSABLE
			CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[6],PLAYER6)
			NEXT_COMMAND_REUSABLE
			MOVE_CREATURE(PLAYER_GOOD,ANY_CREATURE,ANYWHERE,1,7)
			NEXT_COMMAND_REUSABLE
			CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[7],PLAYER6)
			NEXT_COMMAND_REUSABLE
			MOVE_CREATURE(PLAYER_GOOD,ANY_CREATURE,ANYWHERE,1,8)
			NEXT_COMMAND_REUSABLE
			CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[8],PLAYER6)
			NEXT_COMMAND_REUSABLE
			MOVE_CREATURE(PLAYER_GOOD,ANY_CREATURE,ANYWHERE,1,9)
			NEXT_COMMAND_REUSABLE
			CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[9],PLAYER6)
			NEXT_COMMAND_REUSABLE
			MOVE_CREATURE(PLAYER_GOOD,ANY_CREATURE,ANYWHERE,1,10)
			NEXT_COMMAND_REUSABLE
			CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[10],PLAYER6)
			NEXT_COMMAND_REUSABLE
			MOVE_CREATURE(PLAYER_GOOD,ANY_CREATURE,ANYWHERE,1,11)
			NEXT_COMMAND_REUSABLE
			CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[11],PLAYER6)
			NEXT_COMMAND_REUSABLE
			MOVE_CREATURE(PLAYER_GOOD,ANY_CREATURE,ANYWHERE,1,12)
			NEXT_COMMAND_REUSABLE
			CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[12],PLAYER6)
			NEXT_COMMAND_REUSABLE
			MOVE_CREATURE(PLAYER_GOOD,ANY_CREATURE,ANYWHERE,1,13)
			NEXT_COMMAND_REUSABLE
			CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[13],PLAYER6)
			NEXT_COMMAND_REUSABLE
			MOVE_CREATURE(PLAYER_GOOD,ANY_CREATURE,ANYWHERE,1,14)
			NEXT_COMMAND_REUSABLE
			CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[14],PLAYER6)
			NEXT_COMMAND_REUSABLE
			MOVE_CREATURE(PLAYER_GOOD,ANY_CREATURE,ANYWHERE,1,15)
			NEXT_COMMAND_REUSABLE
			CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[15],PLAYER6)
			NEXT_COMMAND_REUSABLE
			MOVE_CREATURE(PLAYER_GOOD,ANY_CREATURE,ANYWHERE,1,16)
			NEXT_COMMAND_REUSABLE
			CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[16],PLAYER6)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER_GOOD,FLAG0,1)
		ENDIF
	ENDIF
	IF(PLAYER_GOOD,FLAG0 == 1)
		IF(PLAYER6,TOTAL_CREATURES > 0)
			NEXT_COMMAND_REUSABLE
			CHANGE_CREATURE_OWNER(PLAYER6,ANY_CREATURE,ANYWHERE,PLAYER_GOOD)
		ENDIF
		IF(PLAYER6,TOTAL_CREATURES == 0)
			NEXT_COMMAND_REUSABLE
			USE_SPELL_ON_PLAYERS_CREATURES(PLAYER_GOOD,ANY_CREATURE,SPELL_INVISIBILITY,1)
			NEXT_COMMAND_REUSABLE
			BONUS_LEVEL_TIME(1200,1)
			NEXT_COMMAND_REUSABLE
			REVEAL_MAP_RECT(PLAYER0,22,22,44,44)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER6,FLAG6,1200)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER6,TIMER6)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER_GOOD,FLAG0,2)
		ENDIF
	ENDIF
	IF(PLAYER_GOOD,FLAG0 == 2)
		IF(PLAYER6,TIMER6 >= 1200)
			IF(PLAYER_GOOD,TOTAL_CREATURES == 0)
				NEXT_COMMAND_REUSABLE
				QUICK_MESSAGE(1,"You were too slow. Stay more focused!",SPELL_SLOW)
				NEXT_COMMAND_REUSABLE
				PLAY_MESSAGE(PLAYER0,SOUND,152)
				NEXT_COMMAND_REUSABLE
				KILL_CREATURE(PLAYER0,ANY_CREATURE,ANYWHERE,255)
				NEXT_COMMAND_REUSABLE
				KILL_CREATURE(PLAYER6,ANY_CREATURE,ANYWHERE,255)
				NEXT_COMMAND_REUSABLE
				KILL_CREATURE(PLAYER_GOOD,ANY_CREATURE,ANYWHERE,255)
				NEXT_COMMAND_REUSABLE
				CONCEAL_MAP_RECT(PLAYER0,22,22,44,44,1)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER6,FLAG6,0)
				NEXT_COMMAND_REUSABLE
				SET_TIMER(PLAYER6,TIMER6)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_GOOD,FLAG0,0)
			ENDIF
			IF(PLAYER_GOOD,TOTAL_CREATURES > 0)
				NEXT_COMMAND_REUSABLE
				QUICK_MESSAGE(2,"You were too slow. Stay more focused!",SPELL_SLOW)
				NEXT_COMMAND_REUSABLE
				PLAY_MESSAGE(PLAYER0,SOUND,152)
				NEXT_COMMAND_REUSABLE
				KILL_CREATURE(PLAYER0,ANY_CREATURE,ANYWHERE,255)
				NEXT_COMMAND_REUSABLE
				KILL_CREATURE(PLAYER6,ANY_CREATURE,ANYWHERE,255)
				NEXT_COMMAND_REUSABLE
				KILL_CREATURE(PLAYER_GOOD,ANY_CREATURE,ANYWHERE,255)
				NEXT_COMMAND_REUSABLE
				CONCEAL_MAP_RECT(PLAYER0,22,22,44,44,1)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER6,FLAG6,0)
				NEXT_COMMAND_REUSABLE
				SET_TIMER(PLAYER6,TIMER6)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_GOOD,FLAG0,0)
			ENDIF
		ENDIF
		IF(PLAYER6,TIMER6 < 1200)
			IF(PLAYER_GOOD,TOTAL_CREATURES == 0)
				NEXT_COMMAND_REUSABLE
				QUICK_MESSAGE(3,"Good job, stay focused and keep it up!",SPELL_SPEED)
				NEXT_COMMAND_REUSABLE
				PLAY_MESSAGE(PLAYER0,SOUND,160)
				NEXT_COMMAND_REUSABLE
				CONCEAL_MAP_RECT(PLAYER0,22,22,44,44,1)
				NEXT_COMMAND_REUSABLE
				COMPUTE_FLAG(PLAYER0,FLAG0,INCREASE,PLAYER6,FLAG6)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER6,FLAG6,0)
				NEXT_COMMAND_REUSABLE
				SET_TIMER(PLAYER6,TIMER6)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_GOOD,FLAG0,0)
			ENDIF
			IF(PLAYER_GOOD,TOTAL_CREATURES > 0)
				NEXT_COMMAND_REUSABLE
				ADD_TO_FLAG(PLAYER6,FLAG6,-1)
				NEXT_COMMAND_REUSABLE
				USE_SPELL_ON_PLAYERS_CREATURES(PLAYER_GOOD,ANY_CREATURE,SPELL_INVISIBILITY,1)
			ENDIF
		ENDIF
	ENDIF
ENDIF

REM # Initial Objective.
QUICK_OBJECTIVE(0,"Find all 8 pairs before the timer runs out and earn points based on the time remaining. Reach 10000 points to win! Tips: Open the creature tab, zoom out to view the entire section.")

REM # Main Loop.
IF(PLAYER0,DUNGEON_DESTROYED == 0)
	IF(PLAYER_GOOD,FLAG0 == 2)
		IF(PLAYER0,TIMER0 >= 4)
			IF(PLAYER0,BILE_DEMON == 2)
				NEXT_COMMAND_REUSABLE
				KILL_CREATURE(PLAYER0,BILE_DEMON,ANYWHERE,2)
				NEXT_COMMAND_REUSABLE
				SET_TIMER(PLAYER0,TIMER0)
			ENDIF
			IF(PLAYER0,DARK_MISTRESS == 2)
				NEXT_COMMAND_REUSABLE
				KILL_CREATURE(PLAYER0,DARK_MISTRESS,ANYWHERE,2)
				NEXT_COMMAND_REUSABLE
				SET_TIMER(PLAYER0,TIMER0)
			ENDIF
			IF(PLAYER0,DRAGON == 2)
				NEXT_COMMAND_REUSABLE
				KILL_CREATURE(PLAYER0,DRAGON,ANYWHERE,2)
				NEXT_COMMAND_REUSABLE
				SET_TIMER(PLAYER0,TIMER0)
			ENDIF
			IF(PLAYER0,HORNY == 2)
				NEXT_COMMAND_REUSABLE
				KILL_CREATURE(PLAYER0,HORNY,ANYWHERE,2)
				NEXT_COMMAND_REUSABLE
				SET_TIMER(PLAYER0,TIMER0)
			ENDIF
			IF(PLAYER0,ORC == 2)
				NEXT_COMMAND_REUSABLE
				KILL_CREATURE(PLAYER0,ORC,ANYWHERE,2)
				NEXT_COMMAND_REUSABLE
				SET_TIMER(PLAYER0,TIMER0)
			ENDIF
			IF(PLAYER0,SORCEROR == 2)
				NEXT_COMMAND_REUSABLE
				KILL_CREATURE(PLAYER0,SORCEROR,ANYWHERE,2)
				NEXT_COMMAND_REUSABLE
				SET_TIMER(PLAYER0,TIMER0)
			ENDIF
			IF(PLAYER0,TROLL == 2)
				NEXT_COMMAND_REUSABLE
				KILL_CREATURE(PLAYER0,TROLL,ANYWHERE,2)
				NEXT_COMMAND_REUSABLE
				SET_TIMER(PLAYER0,TIMER0)
			ENDIF
			IF(PLAYER0,VAMPIRE == 2)
				NEXT_COMMAND_REUSABLE
				KILL_CREATURE(PLAYER0,VAMPIRE,ANYWHERE,2)
				NEXT_COMMAND_REUSABLE
				SET_TIMER(PLAYER0,TIMER0)
			ENDIF
			IF(PLAYER0,TOTAL_CREATURES == 2)
				NEXT_COMMAND_REUSABLE
				CHANGE_CREATURE_OWNER(PLAYER0,ANY_CREATURE,ANYWHERE,PLAYER_GOOD)
				NEXT_COMMAND_REUSABLE
				CHANGE_CREATURE_OWNER(PLAYER0,ANY_CREATURE,ANYWHERE,PLAYER_GOOD)
				NEXT_COMMAND_REUSABLE
				SET_TIMER(PLAYER0,TIMER0)
			ENDIF
		ENDIF
	ENDIF
	IF(PLAYER0,FLAG0 > 300)
		NEXT_COMMAND_REUSABLE
		ADD_GOLD_TO_PLAYER(PLAYER0,300)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER0,FLAG0,-300)
	ENDIF
	IF(PLAYER0,FLAG0 > 200)
		NEXT_COMMAND_REUSABLE
		ADD_GOLD_TO_PLAYER(PLAYER0,200)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER0,FLAG0,-200)
	ENDIF
	IF(PLAYER0,FLAG0 > 100)
		NEXT_COMMAND_REUSABLE
		ADD_GOLD_TO_PLAYER(PLAYER0,100)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER0,FLAG0,-100)
	ENDIF
	IF(PLAYER0,FLAG0 > 10)
		NEXT_COMMAND_REUSABLE
		ADD_GOLD_TO_PLAYER(PLAYER0,10)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER0,FLAG0,-10)
	ENDIF
	IF(PLAYER0,FLAG0 > 0)
		NEXT_COMMAND_REUSABLE
		ADD_GOLD_TO_PLAYER(PLAYER0,1)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER0,FLAG0,-1)
	ENDIF
	REM # Win Condition. Randomise a flag to determine the creature to transfer as a reward from this bonus level.
	IF(PLAYER0,MONEY >= 10000)
		RANDOMISE_FLAG(PLAYER0,FLAG1,32)
		WIN_GAME
	ENDIF
ENDIF

REM # Give feedback with effects for pairs the player has already matched.
IF(PLAYER_GOOD,GAME_TURN > 0)
	IF(PLAYER_GOOD,FLAG0 == 2)
		NEXT_COMMAND_REUSABLE
		COUNT_CREATURES_AT_ACTION_POINT(1,PLAYER_GOOD,ANY_CREATURE,PLAYER_GOOD,BOX0_ACTIVATED)
		NEXT_COMMAND_REUSABLE
		COUNT_CREATURES_AT_ACTION_POINT(2,PLAYER_GOOD,ANY_CREATURE,PLAYER_GOOD,BOX1_ACTIVATED)
		NEXT_COMMAND_REUSABLE
		COUNT_CREATURES_AT_ACTION_POINT(3,PLAYER_GOOD,ANY_CREATURE,PLAYER_GOOD,BOX2_ACTIVATED)
		NEXT_COMMAND_REUSABLE
		COUNT_CREATURES_AT_ACTION_POINT(4,PLAYER_GOOD,ANY_CREATURE,PLAYER_GOOD,BOX3_ACTIVATED)
		NEXT_COMMAND_REUSABLE
		COUNT_CREATURES_AT_ACTION_POINT(5,PLAYER_GOOD,ANY_CREATURE,PLAYER_GOOD,BOX4_ACTIVATED)
		NEXT_COMMAND_REUSABLE
		COUNT_CREATURES_AT_ACTION_POINT(6,PLAYER_GOOD,ANY_CREATURE,PLAYER_GOOD,BOX5_ACTIVATED)
		NEXT_COMMAND_REUSABLE
		COUNT_CREATURES_AT_ACTION_POINT(7,PLAYER_GOOD,ANY_CREATURE,PLAYER_GOOD,BOX6_ACTIVATED)
		NEXT_COMMAND_REUSABLE
		COUNT_CREATURES_AT_ACTION_POINT(8,PLAYER_GOOD,ANY_CREATURE,PLAYER_GOOD,BOX7_ACTIVATED)
		NEXT_COMMAND_REUSABLE
		COUNT_CREATURES_AT_ACTION_POINT(9,PLAYER_GOOD,ANY_CREATURE,PLAYER_GOOD,BOX8_ACTIVATED)
		NEXT_COMMAND_REUSABLE
		COUNT_CREATURES_AT_ACTION_POINT(10,PLAYER_GOOD,ANY_CREATURE,PLAYER_GOOD,BOX9_ACTIVATED)
		NEXT_COMMAND_REUSABLE
		COUNT_CREATURES_AT_ACTION_POINT(11,PLAYER_GOOD,ANY_CREATURE,PLAYER_GOOD,BOX10_ACTIVATED)
		NEXT_COMMAND_REUSABLE
		COUNT_CREATURES_AT_ACTION_POINT(12,PLAYER_GOOD,ANY_CREATURE,PLAYER_GOOD,BOX11_ACTIVATED)
		NEXT_COMMAND_REUSABLE
		COUNT_CREATURES_AT_ACTION_POINT(13,PLAYER_GOOD,ANY_CREATURE,PLAYER_GOOD,BOX12_ACTIVATED)
		NEXT_COMMAND_REUSABLE
		COUNT_CREATURES_AT_ACTION_POINT(14,PLAYER_GOOD,ANY_CREATURE,PLAYER_GOOD,BOX13_ACTIVATED)
		NEXT_COMMAND_REUSABLE
		COUNT_CREATURES_AT_ACTION_POINT(15,PLAYER_GOOD,ANY_CREATURE,PLAYER_GOOD,BOX14_ACTIVATED)
		NEXT_COMMAND_REUSABLE
		COUNT_CREATURES_AT_ACTION_POINT(16,PLAYER_GOOD,ANY_CREATURE,PLAYER_GOOD,BOX15_ACTIVATED)
	ENDIF
	IF(PLAYER_GOOD,TIMER0 >= 4)
		IF(PLAYER_GOOD,BOX0_ACTIVATED == 0)
			NEXT_COMMAND_REUSABLE
			CREATE_EFFECT(EFFECTELEMENT_ENTRANCE_MIST,17)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_HOE,Genre,DECORATION)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_HOE,MaximumSize,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_GOOD,TIMER0)
		ENDIF
		IF(PLAYER_GOOD,BOX0_ACTIVATED != 0)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_HOE,Genre,SPECIALBOX)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_HOE,MaximumSize,300)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_GOOD,TIMER0)
		ENDIF
	ENDIF
	IF(PLAYER_GOOD,TIMER1 >= 4)
		IF(PLAYER_GOOD,BOX1_ACTIVATED == 0)
			NEXT_COMMAND_REUSABLE
			CREATE_EFFECT(EFFECTELEMENT_ENTRANCE_MIST,18)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_IMP,Genre,DECORATION)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_IMP,MaximumSize,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_GOOD,TIMER1)
		ENDIF
		IF(PLAYER_GOOD,BOX1_ACTIVATED != 0)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_IMP,Genre,SPECIALBOX)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_IMP,MaximumSize,300)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_GOOD,TIMER1)
		ENDIF
	ENDIF
	IF(PLAYER_GOOD,TIMER2 >= 4)
		IF(PLAYER_GOOD,BOX2_ACTIVATED == 0)
			NEXT_COMMAND_REUSABLE
			CREATE_EFFECT(EFFECTELEMENT_ENTRANCE_MIST,19)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_OBEY,Genre,DECORATION)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_OBEY,MaximumSize,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_GOOD,TIMER2)
		ENDIF
		IF(PLAYER_GOOD,BOX2_ACTIVATED != 0)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_OBEY,Genre,SPECIALBOX)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_OBEY,MaximumSize,300)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_GOOD,TIMER2)
		ENDIF
	ENDIF
	IF(PLAYER_GOOD,TIMER3 >= 4)
		IF(PLAYER_GOOD,BOX3_ACTIVATED == 0)
			NEXT_COMMAND_REUSABLE
			CREATE_EFFECT(EFFECTELEMENT_ENTRANCE_MIST,20)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_SLAP,Genre,DECORATION)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_SLAP,MaximumSize,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_GOOD,TIMER3)
		ENDIF
		IF(PLAYER_GOOD,BOX3_ACTIVATED != 0)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_SLAP,Genre,SPECIALBOX)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_SLAP,MaximumSize,300)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_GOOD,TIMER3)
		ENDIF
	ENDIF
	IF(PLAYER_GOOD,TIMER4 >= 4)
		IF(PLAYER_GOOD,BOX4_ACTIVATED == 0)
			NEXT_COMMAND_REUSABLE
			CREATE_EFFECT(EFFECTELEMENT_ENTRANCE_MIST,21)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_SOE,Genre,DECORATION)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_SOE,MaximumSize,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_GOOD,TIMER4)
		ENDIF
		IF(PLAYER_GOOD,BOX4_ACTIVATED != 0)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_SOE,Genre,SPECIALBOX)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_SOE,MaximumSize,300)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_GOOD,TIMER4)
		ENDIF
	ENDIF
	IF(PLAYER_GOOD,TIMER5 >= 4)
		IF(PLAYER_GOOD,BOX5_ACTIVATED == 0)
			NEXT_COMMAND_REUSABLE
			CREATE_EFFECT(EFFECTELEMENT_ENTRANCE_MIST,22)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_CTA,Genre,DECORATION)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_CTA,MaximumSize,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_GOOD,TIMER5)
		ENDIF
		IF(PLAYER_GOOD,BOX5_ACTIVATED != 0)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_CTA,Genre,SPECIALBOX)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_CTA,MaximumSize,300)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_GOOD,TIMER5)
		ENDIF
	ENDIF
	IF(PLAYER_GOOD,TIMER6 >= 4)
		IF(PLAYER_GOOD,BOX6_ACTIVATED == 0)
			NEXT_COMMAND_REUSABLE
			CREATE_EFFECT(EFFECTELEMENT_ENTRANCE_MIST,23)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_CAVI,Genre,DECORATION)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_CAVI,MaximumSize,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_GOOD,TIMER6)
		ENDIF
		IF(PLAYER_GOOD,BOX6_ACTIVATED != 0)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_CAVI,Genre,SPECIALBOX)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_CAVI,MaximumSize,300)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_GOOD,TIMER6)
		ENDIF
	ENDIF
	IF(PLAYER_GOOD,TIMER7 >= 4)
		IF(PLAYER_GOOD,BOX7_ACTIVATED == 0)
			NEXT_COMMAND_REUSABLE
			CREATE_EFFECT(EFFECTELEMENT_ENTRANCE_MIST,24)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_HEAL,Genre,DECORATION)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_HEAL,MaximumSize,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_GOOD,TIMER7)
		ENDIF
		IF(PLAYER_GOOD,BOX7_ACTIVATED != 0)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_HEAL,Genre,SPECIALBOX)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_HEAL,MaximumSize,300)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_GOOD,TIMER7)
		ENDIF
	ENDIF
	IF(PLAYER_NEUTRAL,TIMER0 >= 4)
		IF(PLAYER_GOOD,BOX8_ACTIVATED == 0)
			NEXT_COMMAND_REUSABLE
			CREATE_EFFECT(EFFECTELEMENT_ENTRANCE_MIST,25)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_HLDAUD,Genre,DECORATION)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_HLDAUD,MaximumSize,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_NEUTRAL,TIMER0)
		ENDIF
		IF(PLAYER_GOOD,BOX8_ACTIVATED != 0)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_HLDAUD,Genre,SPECIALBOX)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_HLDAUD,MaximumSize,300)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_NEUTRAL,TIMER0)
		ENDIF
	ENDIF
	IF(PLAYER_NEUTRAL,TIMER1 >= 4)
		IF(PLAYER_GOOD,BOX9_ACTIVATED == 0)
			NEXT_COMMAND_REUSABLE
			CREATE_EFFECT(EFFECTELEMENT_ENTRANCE_MIST,26)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_LIGHTN,Genre,DECORATION)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_LIGHTN,MaximumSize,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_NEUTRAL,TIMER1)
		ENDIF
		IF(PLAYER_GOOD,BOX9_ACTIVATED != 0)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_LIGHTN,Genre,SPECIALBOX)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_LIGHTN,MaximumSize,300)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_NEUTRAL,TIMER1)
		ENDIF
	ENDIF
	IF(PLAYER_NEUTRAL,TIMER2 >= 4)
		IF(PLAYER_GOOD,BOX10_ACTIVATED == 0)
			NEXT_COMMAND_REUSABLE
			CREATE_EFFECT(EFFECTELEMENT_ENTRANCE_MIST,27)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_SPDC,Genre,DECORATION)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_SPDC,MaximumSize,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_NEUTRAL,TIMER2)
		ENDIF
		IF(PLAYER_GOOD,BOX10_ACTIVATED != 0)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_SPDC,Genre,SPECIALBOX)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_SPDC,MaximumSize,300)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_NEUTRAL,TIMER2)
		ENDIF
	ENDIF
	IF(PLAYER_NEUTRAL,TIMER3 >= 4)
		IF(PLAYER_GOOD,BOX11_ACTIVATED == 0)
			NEXT_COMMAND_REUSABLE
			CREATE_EFFECT(EFFECTELEMENT_ENTRANCE_MIST,28)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_PROT,Genre,DECORATION)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_PROT,MaximumSize,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_NEUTRAL,TIMER3)
		ENDIF
		IF(PLAYER_GOOD,BOX11_ACTIVATED != 0)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_PROT,Genre,SPECIALBOX)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_PROT,MaximumSize,300)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_NEUTRAL,TIMER3)
		ENDIF
	ENDIF
	IF(PLAYER_NEUTRAL,TIMER4 >= 4)
		IF(PLAYER_GOOD,BOX12_ACTIVATED == 0)
			NEXT_COMMAND_REUSABLE
			CREATE_EFFECT(EFFECTELEMENT_ENTRANCE_MIST,29)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_CONCL,Genre,DECORATION)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_CONCL,MaximumSize,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_NEUTRAL,TIMER4)
		ENDIF
		IF(PLAYER_GOOD,BOX12_ACTIVATED != 0)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_CONCL,Genre,SPECIALBOX)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_CONCL,MaximumSize,300)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_NEUTRAL,TIMER4)
		ENDIF
	ENDIF
	IF(PLAYER_NEUTRAL,TIMER5 >= 4)
		IF(PLAYER_GOOD,BOX13_ACTIVATED == 0)
			NEXT_COMMAND_REUSABLE
			CREATE_EFFECT(EFFECTELEMENT_ENTRANCE_MIST,30)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_DISEASE,Genre,DECORATION)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_DISEASE,MaximumSize,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_NEUTRAL,TIMER5)
		ENDIF
		IF(PLAYER_GOOD,BOX13_ACTIVATED != 0)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_DISEASE,Genre,SPECIALBOX)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_DISEASE,MaximumSize,300)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_NEUTRAL,TIMER5)
		ENDIF
	ENDIF
	IF(PLAYER_NEUTRAL,TIMER6 >= 4)
		IF(PLAYER_GOOD,BOX14_ACTIVATED == 0)
			NEXT_COMMAND_REUSABLE
			CREATE_EFFECT(EFFECTELEMENT_ENTRANCE_MIST,31)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_CHKN,Genre,DECORATION)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_CHKN,MaximumSize,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_NEUTRAL,TIMER6)
		ENDIF
		IF(PLAYER_GOOD,BOX14_ACTIVATED != 0)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_CHKN,Genre,SPECIALBOX)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_CHKN,MaximumSize,300)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_NEUTRAL,TIMER6)
		ENDIF
	ENDIF
	IF(PLAYER_NEUTRAL,TIMER7 >= 4)
		IF(PLAYER_GOOD,BOX15_ACTIVATED == 0)
			NEXT_COMMAND_REUSABLE
			CREATE_EFFECT(EFFECTELEMENT_ENTRANCE_MIST,32)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_DWAL,Genre,DECORATION)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_DWAL,MaximumSize,0)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_NEUTRAL,TIMER7)
		ENDIF
		IF(PLAYER_GOOD,BOX15_ACTIVATED != 0)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_DWAL,Genre,SPECIALBOX)
			NEXT_COMMAND_REUSABLE
			SET_OBJECT_CONFIGURATION(SPELLBOOK_DWAL,MaximumSize,300)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_NEUTRAL,TIMER7)
		ENDIF
	ENDIF
ENDIF

REM # "Reveal!"
IF(PLAYER0,BOX17_ACTIVATED != 0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER0,TIMER0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER_GOOD,TIMER0)
	NEXT_COMMAND_REUSABLE
	CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[1],PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPELLBOOK_HOE,LAST_EVENT,17,PLAYER_NEUTRAL)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX17_ACTIVATED,0)
ENDIF
IF(PLAYER0,BOX18_ACTIVATED != 0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER0,TIMER0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER_GOOD,TIMER1)
	NEXT_COMMAND_REUSABLE
	CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[2],PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPELLBOOK_IMP,LAST_EVENT,18,PLAYER_NEUTRAL)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX18_ACTIVATED,0)
ENDIF
IF(PLAYER0,BOX19_ACTIVATED != 0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER0,TIMER0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER_GOOD,TIMER2)
	NEXT_COMMAND_REUSABLE
	CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[3],PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPELLBOOK_OBEY,LAST_EVENT,19,PLAYER_NEUTRAL)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX19_ACTIVATED,0)
ENDIF
IF(PLAYER0,BOX20_ACTIVATED != 0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER0,TIMER0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER_GOOD,TIMER3)
	NEXT_COMMAND_REUSABLE
	CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[4],PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPELLBOOK_SLAP,LAST_EVENT,20,PLAYER_NEUTRAL)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX20_ACTIVATED,0)
ENDIF
IF(PLAYER0,BOX21_ACTIVATED != 0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER0,TIMER0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER_GOOD,TIMER4)
	NEXT_COMMAND_REUSABLE
	CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[5],PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPELLBOOK_SOE,LAST_EVENT,21,PLAYER_NEUTRAL)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX21_ACTIVATED,0)
ENDIF
IF(PLAYER0,BOX22_ACTIVATED != 0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER0,TIMER0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER_GOOD,TIMER5)
	NEXT_COMMAND_REUSABLE
	CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[6],PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPELLBOOK_CTA,LAST_EVENT,22,PLAYER_NEUTRAL)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX22_ACTIVATED,0)
ENDIF
IF(PLAYER0,BOX23_ACTIVATED != 0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER0,TIMER0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER_GOOD,TIMER6)
	NEXT_COMMAND_REUSABLE
	CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[7],PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPELLBOOK_CAVI,LAST_EVENT,23,PLAYER_NEUTRAL)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX23_ACTIVATED,0)
ENDIF
IF(PLAYER0,BOX24_ACTIVATED != 0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER0,TIMER0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER_GOOD,TIMER7)
	NEXT_COMMAND_REUSABLE
	CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[8],PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPELLBOOK_HEAL,LAST_EVENT,24,PLAYER_NEUTRAL)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX24_ACTIVATED,0)
ENDIF
IF(PLAYER0,BOX25_ACTIVATED != 0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER0,TIMER0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER_NEUTRAL,TIMER0)
	NEXT_COMMAND_REUSABLE
	CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[9],PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPELLBOOK_HLDAUD,LAST_EVENT,25,PLAYER_NEUTRAL)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX25_ACTIVATED,0)
ENDIF
IF(PLAYER0,BOX26_ACTIVATED != 0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER0,TIMER0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER_NEUTRAL,TIMER1)
	NEXT_COMMAND_REUSABLE
	CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[10],PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPELLBOOK_LIGHTN,LAST_EVENT,26,PLAYER_NEUTRAL)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX26_ACTIVATED,0)
ENDIF
IF(PLAYER0,BOX27_ACTIVATED != 0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER0,TIMER0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER_NEUTRAL,TIMER2)
	NEXT_COMMAND_REUSABLE
	CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[11],PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPELLBOOK_SPDC,LAST_EVENT,27,PLAYER_NEUTRAL)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX27_ACTIVATED,0)
ENDIF
IF(PLAYER0,BOX28_ACTIVATED != 0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER0,TIMER0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER_NEUTRAL,TIMER3)
	NEXT_COMMAND_REUSABLE
	CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[12],PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPELLBOOK_PROT,LAST_EVENT,28,PLAYER_NEUTRAL)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX28_ACTIVATED,0)
ENDIF
IF(PLAYER0,BOX29_ACTIVATED != 0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER0,TIMER0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER_NEUTRAL,TIMER4)
	NEXT_COMMAND_REUSABLE
	CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[13],PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPELLBOOK_CONCL,LAST_EVENT,29,PLAYER_NEUTRAL)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX29_ACTIVATED,0)
ENDIF
IF(PLAYER0,BOX30_ACTIVATED != 0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER0,TIMER0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER_NEUTRAL,TIMER5)
	NEXT_COMMAND_REUSABLE
	CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[14],PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPELLBOOK_DISEASE,LAST_EVENT,30,PLAYER_NEUTRAL)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX30_ACTIVATED,0)
ENDIF
IF(PLAYER0,BOX31_ACTIVATED != 0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER0,TIMER0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER_NEUTRAL,TIMER6)
	NEXT_COMMAND_REUSABLE
	CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[15],PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPELLBOOK_CHKN,LAST_EVENT,31,PLAYER_NEUTRAL)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX31_ACTIVATED,0)
ENDIF
IF(PLAYER0,BOX32_ACTIVATED != 0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER0,TIMER0)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER_NEUTRAL,TIMER7)
	NEXT_COMMAND_REUSABLE
	CHANGE_CREATURE_OWNER(PLAYER_GOOD,ANY_CREATURE,AT_ACTION_POINT[16],PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPELLBOOK_DWAL,LAST_EVENT,32,PLAYER_NEUTRAL)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX32_ACTIVATED,0)
ENDIF

REM # Randomise BILE_DEMON sprites.
IF(PLAYER4,BOX1_ACTIVATED != 0)
	IF(PLAYER4,BOX1_ACTIVATED == 1)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(BILE_DEMON,Stand,592)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(BILE_DEMON,Ambulate,592)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(BILE_DEMON,Scream,586)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(BILE_DEMON,DropDead,586)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(BILE_DEMON,HandSymbol,220)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX1_ACTIVATED,0)
	ENDIF
	IF(PLAYER4,BOX1_ACTIVATED == 2)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(BILE_DEMON,Stand,306)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(BILE_DEMON,Ambulate,306)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(BILE_DEMON,Scream,300)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(BILE_DEMON,DropDead,300)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(BILE_DEMON,HandSymbol,196)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX1_ACTIVATED,0)
	ENDIF
	IF(PLAYER4,BOX1_ACTIVATED == 3)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(BILE_DEMON,Stand,744)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(BILE_DEMON,Ambulate,744)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(BILE_DEMON,Scream,738)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(BILE_DEMON,DropDead,738)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(BILE_DEMON,HandSymbol,206)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX1_ACTIVATED,0)
	ENDIF
	IF(PLAYER4,BOX1_ACTIVATED == 4)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(BILE_DEMON,Stand,502)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(BILE_DEMON,Ambulate,502)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(BILE_DEMON,Scream,496)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(BILE_DEMON,DropDead,496)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(BILE_DEMON,HandSymbol,228)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX1_ACTIVATED,0)
	ENDIF
ENDIF

REM # Randomise DARK_MISTRESS sprites.
IF(PLAYER4,BOX2_ACTIVATED != 0)
	IF(PLAYER4,BOX2_ACTIVATED == 1)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DARK_MISTRESS,Stand,636)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DARK_MISTRESS,Ambulate,636)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DARK_MISTRESS,Scream,630)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DARK_MISTRESS,DropDead,630)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DARK_MISTRESS,HandSymbol,216)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX2_ACTIVATED,0)
	ENDIF
	IF(PLAYER4,BOX2_ACTIVATED == 2)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DARK_MISTRESS,Stand,38)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DARK_MISTRESS,Ambulate,38)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DARK_MISTRESS,Scream,32)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DARK_MISTRESS,DropDead,32)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DARK_MISTRESS,HandSymbol,202)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX2_ACTIVATED,0)
	ENDIF
	IF(PLAYER4,BOX2_ACTIVATED == 3)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DARK_MISTRESS,Stand,482)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DARK_MISTRESS,Ambulate,482)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DARK_MISTRESS,Scream,476)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DARK_MISTRESS,DropDead,476)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DARK_MISTRESS,HandSymbol,232)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX2_ACTIVATED,0)
	ENDIF
	IF(PLAYER4,BOX2_ACTIVATED == 4)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DARK_MISTRESS,Stand,14)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DARK_MISTRESS,Ambulate,14)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DARK_MISTRESS,Scream,8)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DARK_MISTRESS,DropDead,8)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DARK_MISTRESS,HandSymbol,230)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX2_ACTIVATED,0)
	ENDIF
ENDIF

REM # Randomise DRAGON sprites.
IF(PLAYER4,BOX3_ACTIVATED != 0)
	IF(PLAYER4,BOX3_ACTIVATED == 1)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DRAGON,Stand,700)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DRAGON,Ambulate,700)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DRAGON,Scream,694)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DRAGON,DropDead,694)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DRAGON,HandSymbol,210)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX3_ACTIVATED,0)
	ENDIF
	IF(PLAYER4,BOX3_ACTIVATED == 2)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DRAGON,Stand,678)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DRAGON,Ambulate,678)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DRAGON,Scream,672)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DRAGON,DropDead,672)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DRAGON,HandSymbol,212)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX3_ACTIVATED,0)
	ENDIF
	IF(PLAYER4,BOX3_ACTIVATED == 3)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DRAGON,Stand,240)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DRAGON,Ambulate,240)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DRAGON,Scream,234)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DRAGON,DropDead,234)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DRAGON,HandSymbol,188)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX3_ACTIVATED,0)
	ENDIF
	IF(PLAYER4,BOX3_ACTIVATED == 4)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DRAGON,Stand,262)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DRAGON,Ambulate,262)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DRAGON,Scream,256)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DRAGON,DropDead,256)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(DRAGON,HandSymbol,200)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX3_ACTIVATED,0)
	ENDIF
ENDIF

REM # Randomise HORNY sprites.
IF(PLAYER4,BOX4_ACTIVATED != 0)
	IF(PLAYER4,BOX4_ACTIVATED == 1)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(HORNY,Stand,766)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(HORNY,Ambulate,766)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(HORNY,Scream,760)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(HORNY,DropDead,760)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(HORNY,HandSymbol,204)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX4_ACTIVATED,0)
	ENDIF
	IF(PLAYER4,BOX4_ACTIVATED == 2)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(HORNY,Stand,570)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(HORNY,Ambulate,570)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(HORNY,Scream,570)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(HORNY,DropDead,570)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(HORNY,HandSymbol,222)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX4_ACTIVATED,0)
	ENDIF
	IF(PLAYER4,BOX4_ACTIVATED == 3)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(HORNY,Stand,174)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(HORNY,Ambulate,174)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(HORNY,Scream,168)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(HORNY,DropDead,168)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(HORNY,HandSymbol,190)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX4_ACTIVATED,0)
	ENDIF
	IF(PLAYER4,BOX4_ACTIVATED == 4)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(HORNY,Stand,284)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(HORNY,Ambulate,284)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(HORNY,Scream,278)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(HORNY,DropDead,278)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(HORNY,HandSymbol,198)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX4_ACTIVATED,0)
	ENDIF
ENDIF

REM # Randomise ORC sprites.
IF(PLAYER4,BOX5_ACTIVATED != 0)
	IF(PLAYER4,BOX5_ACTIVATED == 1)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(ORC,Stand,196)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(ORC,Ambulate,196)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(ORC,Scream,190)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(ORC,DropDead,190)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(ORC,HandSymbol,496)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX5_ACTIVATED,0)
	ENDIF
	IF(PLAYER4,BOX5_ACTIVATED == 2)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(ORC,Stand,416)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(ORC,Ambulate,416)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(ORC,Scream,410)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(ORC,DropDead,410)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(ORC,HandSymbol,180)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX5_ACTIVATED,0)
	ENDIF
	IF(PLAYER4,BOX5_ACTIVATED == 3)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(ORC,Stand,546)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(ORC,Ambulate,546)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(ORC,Scream,540)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(ORC,DropDead,540)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(ORC,HandSymbol,224)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX5_ACTIVATED,0)
	ENDIF
	IF(PLAYER4,BOX5_ACTIVATED == 4)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(ORC,Stand,350)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(ORC,Ambulate,350)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(ORC,Scream,344)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(ORC,DropDead,344)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(ORC,HandSymbol,192)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX5_ACTIVATED,0)
	ENDIF
ENDIF

REM # Randomise SORCEROR sprites.
IF(PLAYER4,BOX6_ACTIVATED != 0)
	IF(PLAYER4,BOX6_ACTIVATED == 1)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(SORCEROR,Stand,614)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(SORCEROR,Ambulate,614)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(SORCEROR,Scream,608)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(SORCEROR,DropDead,608)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(SORCEROR,HandSymbol,218)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX6_ACTIVATED,0)
	ENDIF
	IF(PLAYER4,BOX6_ACTIVATED == 2)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(SORCEROR,Stand,DRUID_CELEBRATE)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(SORCEROR,Ambulate,DRUID_CELEBRATE)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(SORCEROR,Scream,DRUID_COMPLAIN)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(SORCEROR,DropDead,DRUID_COMPLAIN)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(SORCEROR,HandSymbol,DRUID_ICON)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX6_ACTIVATED,0)
	ENDIF
	IF(PLAYER4,BOX6_ACTIVATED == 3)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(SORCEROR,Stand,438)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(SORCEROR,Ambulate,438)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(SORCEROR,Scream,432)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(SORCEROR,DropDead,432)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(SORCEROR,HandSymbol,178)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX6_ACTIVATED,0)
	ENDIF
	IF(PLAYER4,BOX6_ACTIVATED == 4)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(SORCEROR,Stand,TMAGE_CELEBRATE)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(SORCEROR,Ambulate,TMAGE_CELEBRATE)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(SORCEROR,Scream,TMAGE_COMPLAIN)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(SORCEROR,DropDead,TMAGE_COMPLAIN)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(SORCEROR,HandSymbol,TIME_MAGE_ICON)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX6_ACTIVATED,0)
	ENDIF
ENDIF

REM # Randomise TROLL sprites.
IF(PLAYER4,BOX7_ACTIVATED != 0)
	IF(PLAYER4,BOX7_ACTIVATED == 1)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(TROLL,Stand,722)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(TROLL,Ambulate,722)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(TROLL,Scream,716)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(TROLL,DropDead,716)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(TROLL,HandSymbol,208)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX7_ACTIVATED,0)
	ENDIF
	IF(PLAYER4,BOX7_ACTIVATED == 2)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(TROLL,Stand,372)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(TROLL,Ambulate,372)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(TROLL,Scream,366)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(TROLL,DropDead,366)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(TROLL,HandSymbol,186)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX7_ACTIVATED,0)
	ENDIF
	IF(PLAYER4,BOX7_ACTIVATED == 3)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(TROLL,Stand,460)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(TROLL,Ambulate,460)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(TROLL,Scream,454)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(TROLL,DropDead,454)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(TROLL,HandSymbol,234)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX7_ACTIVATED,0)
	ENDIF
	IF(PLAYER4,BOX7_ACTIVATED == 4)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(TROLL,Stand,394)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(TROLL,Ambulate,394)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(TROLL,Scream,388)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(TROLL,DropDead,388)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(TROLL,HandSymbol,182)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX7_ACTIVATED,0)
	ENDIF
ENDIF

REM # Randomise VAMPIRE sprites.
IF(PLAYER4,BOX8_ACTIVATED != 0)
	IF(PLAYER4,BOX8_ACTIVATED == 1)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(VAMPIRE,Stand,524)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(VAMPIRE,Ambulate,524)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(VAMPIRE,Scream,518)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(VAMPIRE,DropDead,518)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(VAMPIRE,HandSymbol,226)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX8_ACTIVATED,0)
	ENDIF
	IF(PLAYER4,BOX8_ACTIVATED == 2)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(VAMPIRE,Stand,218)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(VAMPIRE,Ambulate,218)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(VAMPIRE,Scream,212)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(VAMPIRE,DropDead,212)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(VAMPIRE,HandSymbol,184)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX8_ACTIVATED,0)
	ENDIF
	IF(PLAYER4,BOX8_ACTIVATED == 3)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(VAMPIRE,Stand,656)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(VAMPIRE,Ambulate,656)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(VAMPIRE,Scream,650)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(VAMPIRE,DropDead,650)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(VAMPIRE,HandSymbol,214)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX8_ACTIVATED,0)
	ENDIF
	IF(PLAYER4,BOX8_ACTIVATED == 4)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(VAMPIRE,Stand,328)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(VAMPIRE,Ambulate,328)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(VAMPIRE,Scream,322)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(VAMPIRE,DropDead,322)
		NEXT_COMMAND_REUSABLE
		SET_CREATURE_CONFIGURATION(VAMPIRE,HandSymbol,194)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER4,BOX8_ACTIVATED,0)
	ENDIF
ENDIF

REM # Spawn the creature to transfer as a reward from this bonus level.
IF(PLAYER0,FLAG1 != 0)
	IF(PLAYER0,FLAG1 == 1)
		ADD_CREATURE_TO_LEVEL(PLAYER0,ARCHER,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,ARCHER,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 2)
		ADD_CREATURE_TO_LEVEL(PLAYER0,AVATAR,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,AVATAR,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 3)
		ADD_CREATURE_TO_LEVEL(PLAYER0,BARBARIAN,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,BARBARIAN,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 4)
		ADD_CREATURE_TO_LEVEL(PLAYER0,BILE_DEMON,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,BILE_DEMON,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 5)
		ADD_CREATURE_TO_LEVEL(PLAYER0,BUG,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,BUG,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 6)
		ADD_CREATURE_TO_LEVEL(PLAYER0,DARK_MISTRESS,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,DARK_MISTRESS,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 7)
		ADD_CREATURE_TO_LEVEL(PLAYER0,DEMONSPAWN,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,DEMONSPAWN,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 8)
		ADD_CREATURE_TO_LEVEL(PLAYER0,DRAGON,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,DRAGON,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 9)
		ADD_CREATURE_TO_LEVEL(PLAYER0,DRUID,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,DRUID,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 10)
		ADD_CREATURE_TO_LEVEL(PLAYER0,DWARFA,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,DWARFA,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 11)
		ADD_CREATURE_TO_LEVEL(PLAYER0,FAIRY,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,FAIRY,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 12)
		ADD_CREATURE_TO_LEVEL(PLAYER0,FLY,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,FLY,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 13)
		ADD_CREATURE_TO_LEVEL(PLAYER0,GHOST,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,GHOST,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 14)
		ADD_CREATURE_TO_LEVEL(PLAYER0,GIANT,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,GIANT,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 15)
		ADD_CREATURE_TO_LEVEL(PLAYER0,HELL_HOUND,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,HELL_HOUND,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 16)
		ADD_CREATURE_TO_LEVEL(PLAYER0,HORNY,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,HORNY,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 17)
		ADD_CREATURE_TO_LEVEL(PLAYER0,KNIGHT,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,KNIGHT,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 18)
		ADD_CREATURE_TO_LEVEL(PLAYER0,MONK,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,MONK,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 19)
		ADD_CREATURE_TO_LEVEL(PLAYER0,ORC,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,ORC,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 20)
		ADD_CREATURE_TO_LEVEL(PLAYER0,SAMURAI,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,SAMURAI,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 21)
		ADD_CREATURE_TO_LEVEL(PLAYER0,SKELETON,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,SKELETON,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 22)
		ADD_CREATURE_TO_LEVEL(PLAYER0,SORCEROR,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,SORCEROR,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 23)
		ADD_CREATURE_TO_LEVEL(PLAYER0,SPIDER,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,SPIDER,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 24)
		ADD_CREATURE_TO_LEVEL(PLAYER0,TENTACLE,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,TENTACLE,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 25)
		ADD_CREATURE_TO_LEVEL(PLAYER0,THIEF,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,THIEF,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 26)
		ADD_CREATURE_TO_LEVEL(PLAYER0,TIME_MAGE,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,TIME_MAGE,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 27)
		ADD_CREATURE_TO_LEVEL(PLAYER0,TROLL,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,TROLL,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 28)
		ADD_CREATURE_TO_LEVEL(PLAYER0,TUNNELLER,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,TUNNELLER,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 29)
		ADD_CREATURE_TO_LEVEL(PLAYER0,VAMPIRE,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,VAMPIRE,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 30)
		ADD_CREATURE_TO_LEVEL(PLAYER0,WITCH,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,WITCH,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 31)
		ADD_CREATURE_TO_LEVEL(PLAYER0,WIZARD,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,WIZARD,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
	IF(PLAYER0,FLAG1 == 32)
		ADD_CREATURE_TO_LEVEL(PLAYER0,HORNY,PLAYER0,1,1,0)
		TRANSFER_CREATURE(PLAYER0,HORNY,ANYWHERE,1)
		SET_FLAG(PLAYER0,FLAG1,0)
	ENDIF
ENDIF