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

REM # Map Settings.
SET_GENERATE_SPEED(1200)
SET_CREATURE_TENDENCIES(PLAYER0,FLEE,1)
START_MONEY(PLAYER0,10000)
START_MONEY(PLAYER1,10000)
START_MONEY(PLAYER2,10000)
START_MONEY(PLAYER3,10000)
START_MONEY(PLAYER4,10000)
START_MONEY(PLAYER5,10000)
START_MONEY(PLAYER6,10000)
START_MONEY(PLAYER_GOOD,10000)
SET_MUSIC(7)

REM # Reset Campaign Flag.
SET_FLAG(PLAYER_NEUTRAL,CAMPAIGN_FLAG0,0)
SET_FLAG(PLAYER_NEUTRAL,CAMPAIGN_FLAG7,0)

REM # Computer Settings.
COMPUTER_PLAYER(PLAYER1,ROAMING)
COMPUTER_PLAYER(PLAYER2,ROAMING)
COMPUTER_PLAYER(PLAYER3,ROAMING)
COMPUTER_PLAYER(PLAYER4,ROAMING)
COMPUTER_PLAYER(PLAYER5,ROAMING)
COMPUTER_PLAYER(PLAYER6,ROAMING)
COMPUTER_PLAYER(PLAYER_GOOD,ROAMING)

REM # Alliance Settings.
REM # ALLY_PLAYERS(PLAYER0,PLAYER1,3)
REM # ALLY_PLAYERS(PLAYER0,PLAYER2,3)
REM # ALLY_PLAYERS(PLAYER0,PLAYER3,3)
REM # ALLY_PLAYERS(PLAYER0,PLAYER4,3)
REM # ALLY_PLAYERS(PLAYER0,PLAYER5,3)
REM # ALLY_PLAYERS(PLAYER0,PLAYER6,3)
REM # ALLY_PLAYERS(PLAYER0,PLAYER_GOOD,3)

REM # Colour Settings.
SET_PLAYER_COLOR(PLAYER0,BLACK)
SET_PLAYER_COLOR(PLAYER1,BLACK)
SET_PLAYER_COLOR(PLAYER2,BLACK)
SET_PLAYER_COLOR(PLAYER3,BLACK)
SET_PLAYER_COLOR(PLAYER4,BLACK)
SET_PLAYER_COLOR(PLAYER5,BLACK)
SET_PLAYER_COLOR(PLAYER6,BLACK)
SET_PLAYER_COLOR(PLAYER_GOOD,BLACK)

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

REM # Enforce Creature Property.
SET_CREATURE_PROPERTY(ARCHER,LORD,0)
SET_CREATURE_PROPERTY(AVATAR,LORD,0)
SET_CREATURE_PROPERTY(BARBARIAN,LORD,0)
SET_CREATURE_PROPERTY(BILE_DEMON,LORD,0)
SET_CREATURE_PROPERTY(BUG,LORD,0)
SET_CREATURE_PROPERTY(DARK_MISTRESS,LORD,0)
SET_CREATURE_PROPERTY(DEMONSPAWN,LORD,0)
SET_CREATURE_PROPERTY(DRAGON,LORD,0)
SET_CREATURE_PROPERTY(DRUID,LORD,0)
SET_CREATURE_PROPERTY(DWARFA,LORD,0)
SET_CREATURE_PROPERTY(FAIRY,LORD,0)
SET_CREATURE_PROPERTY(FLY,LORD,0)
SET_CREATURE_PROPERTY(GHOST,LORD,0)
SET_CREATURE_PROPERTY(GIANT,LORD,0)
SET_CREATURE_PROPERTY(HELL_HOUND,LORD,0)
SET_CREATURE_PROPERTY(HORNY,LORD,0)
SET_CREATURE_PROPERTY(KNIGHT,LORD,0)
SET_CREATURE_PROPERTY(MONK,LORD,0)
SET_CREATURE_PROPERTY(ORC,LORD,0)
SET_CREATURE_PROPERTY(SAMURAI,LORD,0)
SET_CREATURE_PROPERTY(SKELETON,LORD,0)
SET_CREATURE_PROPERTY(SORCEROR,LORD,0)
SET_CREATURE_PROPERTY(SPIDER,LORD,0)
SET_CREATURE_PROPERTY(TENTACLE,LORD,0)
SET_CREATURE_PROPERTY(THIEF,LORD,0)
SET_CREATURE_PROPERTY(TIME_MAGE,LORD,0)
SET_CREATURE_PROPERTY(TROLL,LORD,0)
SET_CREATURE_PROPERTY(VAMPIRE,LORD,0)
SET_CREATURE_PROPERTY(WITCH,LORD,0)
SET_CREATURE_PROPERTY(WIZARD,LORD,0)

REM # Setup Pandora's Box party for Heroic Assault and Backlash of Conquest - they can vary between map.
CREATE_PARTY(HRCSSLT)
ADD_TO_PARTY(HRCSSLT,KNIGHT,9,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(HRCSSLT,ARCHER,9,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HRCSSLT,BARBARIAN,9,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HRCSSLT,DWARFA,9,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HRCSSLT,FAIRY,9,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HRCSSLT,GIANT,9,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HRCSSLT,MONK,9,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HRCSSLT,SAMURAI,9,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HRCSSLT,THIEF,9,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HRCSSLT,TIME_MAGE,9,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HRCSSLT,WITCH,9,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HRCSSLT,WIZARD,9,0,DEFEND_PARTY,0)

CREATE_PARTY(CNQST_01)
ADD_TO_PARTY(CNQST_01,AVATAR,10,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_01,KNIGHT,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(CNQST_01,ARCHER,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(CNQST_01,BARBARIAN,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(CNQST_01,DWARFA,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(CNQST_01,FAIRY,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(CNQST_01,GIANT,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(CNQST_01,MONK,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(CNQST_01,SAMURAI,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(CNQST_01,THIEF,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(CNQST_01,TIME_MAGE,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(CNQST_01,WITCH,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(CNQST_01,WIZARD,10,0,DEFEND_PARTY,0)

CREATE_PARTY(CNQST_02)
ADD_TO_PARTY(CNQST_02,KNIGHT,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(CNQST_02,ARCHER,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_02,ARCHER,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_02,ARCHER,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_02,ARCHER,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_02,ARCHER,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_02,ARCHER,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_02,ARCHER,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_02,ARCHER,10,0,SNIPE_DUNGEON_HEART,0)

CREATE_PARTY(CNQST_03)
ADD_TO_PARTY(CNQST_03,KNIGHT,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(CNQST_03,BARBARIAN,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_03,BARBARIAN,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_03,BARBARIAN,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_03,BARBARIAN,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_03,BARBARIAN,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_03,BARBARIAN,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_03,BARBARIAN,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_03,BARBARIAN,10,0,SABOTAGE_ROOMS,0)

CREATE_PARTY(CNQST_04)
ADD_TO_PARTY(CNQST_04,KNIGHT,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(CNQST_04,DWARFA,10,0,STEAL_GOLD,0)
ADD_TO_PARTY(CNQST_04,DWARFA,10,0,STEAL_GOLD,0)
ADD_TO_PARTY(CNQST_04,DWARFA,10,0,STEAL_GOLD,0)
ADD_TO_PARTY(CNQST_04,DWARFA,10,0,STEAL_GOLD,0)
ADD_TO_PARTY(CNQST_04,DWARFA,10,0,STEAL_GOLD,0)
ADD_TO_PARTY(CNQST_04,DWARFA,10,0,STEAL_GOLD,0)
ADD_TO_PARTY(CNQST_04,DWARFA,10,0,STEAL_GOLD,0)
ADD_TO_PARTY(CNQST_04,DWARFA,10,0,STEAL_GOLD,0)

CREATE_PARTY(CNQST_05)
ADD_TO_PARTY(CNQST_05,KNIGHT,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(CNQST_05,FAIRY,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_05,FAIRY,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_05,FAIRY,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_05,FAIRY,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_05,FAIRY,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_05,FAIRY,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_05,FAIRY,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_05,FAIRY,10,0,SNIPE_DUNGEON_HEART,0)

CREATE_PARTY(CNQST_06)
ADD_TO_PARTY(CNQST_06,KNIGHT,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(CNQST_06,GIANT,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_06,GIANT,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_06,GIANT,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_06,GIANT,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_06,GIANT,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_06,GIANT,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_06,GIANT,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_06,GIANT,10,0,SABOTAGE_ROOMS,0)

CREATE_PARTY(CNQST_07)
ADD_TO_PARTY(CNQST_07,KNIGHT,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(CNQST_07,MONK,10,0,STEAL_SPELLS,0)
ADD_TO_PARTY(CNQST_07,MONK,10,0,STEAL_SPELLS,0)
ADD_TO_PARTY(CNQST_07,MONK,10,0,STEAL_SPELLS,0)
ADD_TO_PARTY(CNQST_07,MONK,10,0,STEAL_SPELLS,0)
ADD_TO_PARTY(CNQST_07,MONK,10,0,STEAL_SPELLS,0)
ADD_TO_PARTY(CNQST_07,MONK,10,0,STEAL_SPELLS,0)
ADD_TO_PARTY(CNQST_07,MONK,10,0,STEAL_SPELLS,0)
ADD_TO_PARTY(CNQST_07,MONK,10,0,STEAL_SPELLS,0)

CREATE_PARTY(CNQST_08)
ADD_TO_PARTY(CNQST_08,KNIGHT,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(CNQST_08,SAMURAI,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_08,SAMURAI,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_08,SAMURAI,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_08,SAMURAI,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_08,SAMURAI,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_08,SAMURAI,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_08,SAMURAI,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_08,SAMURAI,10,0,SNIPE_DUNGEON_HEART,0)

CREATE_PARTY(CNQST_09)
ADD_TO_PARTY(CNQST_09,KNIGHT,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(CNQST_09,THIEF,10,0,STEAL_GOLD,0)
ADD_TO_PARTY(CNQST_09,THIEF,10,0,STEAL_GOLD,0)
ADD_TO_PARTY(CNQST_09,THIEF,10,0,STEAL_GOLD,0)
ADD_TO_PARTY(CNQST_09,THIEF,10,0,STEAL_GOLD,0)
ADD_TO_PARTY(CNQST_09,THIEF,10,0,STEAL_GOLD,0)
ADD_TO_PARTY(CNQST_09,THIEF,10,0,STEAL_GOLD,0)
ADD_TO_PARTY(CNQST_09,THIEF,10,0,STEAL_GOLD,0)
ADD_TO_PARTY(CNQST_09,THIEF,10,0,STEAL_GOLD,0)

CREATE_PARTY(CNQST_10)
ADD_TO_PARTY(CNQST_10,KNIGHT,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(CNQST_10,TIME_MAGE,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_10,TIME_MAGE,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_10,TIME_MAGE,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_10,TIME_MAGE,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_10,TIME_MAGE,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_10,TIME_MAGE,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_10,TIME_MAGE,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_10,TIME_MAGE,10,0,SABOTAGE_ROOMS,0)

CREATE_PARTY(CNQST_11)
ADD_TO_PARTY(CNQST_11,KNIGHT,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(CNQST_11,TUNNELLER,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_11,TUNNELLER,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_11,TUNNELLER,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_11,TUNNELLER,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_11,TUNNELLER,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_11,TUNNELLER,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_11,TUNNELLER,10,0,SNIPE_DUNGEON_HEART,0)
ADD_TO_PARTY(CNQST_11,TUNNELLER,10,0,SNIPE_DUNGEON_HEART,0)

CREATE_PARTY(CNQST_12)
ADD_TO_PARTY(CNQST_12,KNIGHT,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(CNQST_12,WITCH,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_12,WITCH,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_12,WITCH,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_12,WITCH,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_12,WITCH,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_12,WITCH,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_12,WITCH,10,0,SABOTAGE_ROOMS,0)
ADD_TO_PARTY(CNQST_12,WITCH,10,0,SABOTAGE_ROOMS,0)

CREATE_PARTY(CNQST_13)
ADD_TO_PARTY(CNQST_13,KNIGHT,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(CNQST_13,WIZARD,10,0,STEAL_SPELLS,0)
ADD_TO_PARTY(CNQST_13,WIZARD,10,0,STEAL_SPELLS,0)
ADD_TO_PARTY(CNQST_13,WIZARD,10,0,STEAL_SPELLS,0)
ADD_TO_PARTY(CNQST_13,WIZARD,10,0,STEAL_SPELLS,0)
ADD_TO_PARTY(CNQST_13,WIZARD,10,0,STEAL_SPELLS,0)
ADD_TO_PARTY(CNQST_13,WIZARD,10,0,STEAL_SPELLS,0)
ADD_TO_PARTY(CNQST_13,WIZARD,10,0,STEAL_SPELLS,0)
ADD_TO_PARTY(CNQST_13,WIZARD,10,0,STEAL_SPELLS,0)

REM # Set tooltip for each possible effect.
SET_BOX_TOOLTIP(0,"Mysterious Box: Examine the box to discover its effect.")
SET_BOX_TOOLTIP(1,"Frostbite Box: Cast Freeze on all hostile minions.")
SET_BOX_TOOLTIP(2,"Protect Box: Cast Armour on all friendly minions.")
SET_BOX_TOOLTIP(3,"Shell Box: Cast Rebound on all friendly minions.")
SET_BOX_TOOLTIP(4,"Cure Box: Cast Heal on all friendly minions.")
SET_BOX_TOOLTIP(5,"Vanish Box: Cast Invisibility on all friendly minions.")
SET_BOX_TOOLTIP(6,"Warp Box: Teleport all hostile minions to their lair.")
SET_BOX_TOOLTIP(7,"Rescue Box: Teleport your own minions to their lair.")
SET_BOX_TOOLTIP(8,"Cease-fire Box: Teleport all minions to their lair.")
SET_BOX_TOOLTIP(9,"Haste Box: Cast Speed on all friendly minions.")
SET_BOX_TOOLTIP(10,"Web Box: Cast Slow on all hostile minions.")
SET_BOX_TOOLTIP(11,"Illumination Box: Cast Light on all minions.")
SET_BOX_TOOLTIP(12,"Float Box: Cast Flight on all friendly minions.")
SET_BOX_TOOLTIP(13,"Vision Box: Cast Sight on all friendly minions.")
SET_BOX_TOOLTIP(14,"Plague Box: Cast Disease on all hostile minions.")
SET_BOX_TOOLTIP(15,"Hex Box: Cast Chicken on all hostile minions.")
SET_BOX_TOOLTIP(16,"Wrath Box: Cast Lightning on your territory at random hostile minions, last 12 seconds.")
SET_BOX_TOOLTIP(17,"Rockfall Box: Cast Cave-In on your territory at random hostile minions, last 12 seconds.")
SET_BOX_TOOLTIP(18,"Heroic Box: Summon a random hero to join your ranks.")
SET_BOX_TOOLTIP(19,"Evil Box: Summon a random creature to join your ranks.")
SET_BOX_TOOLTIP(20,"Necromancy Box: Raise a squad of undead at the site of the last battle to join your ranks.")
SET_BOX_TOOLTIP(21,"Anger Box: All the minions get angry.")
SET_BOX_TOOLTIP(22,"Happy Box: All friendly minions get happy.")
SET_BOX_TOOLTIP(23,"Dungeon Box: Fully restores your Dungeon Heart.")
SET_BOX_TOOLTIP(24,"Keeper Box: Set all buffs effects on all friendly minions.")
SET_BOX_TOOLTIP(25,"Pandora's Box: There's no telling what this will do.")
SET_BOX_TOOLTIP(225,"Madness: All the minions get mad psycho.")
SET_BOX_TOOLTIP(226,"Oops!: A clumsy imp tripped and spilled their coffee on you, slap 'em all!")
SET_BOX_TOOLTIP(227,"Heroic Assault: Summon a squad of heroes to destroy you.")
SET_BOX_TOOLTIP(228,"Rebellion: All friendly minions get angry. Your minions may turn against you, last 12 seconds.")
SET_BOX_TOOLTIP(229,"Diverted Wrath: Cast Lightning on your territory at random friendly minions, last 12 seconds.")
SET_BOX_TOOLTIP(230,"Collapse: Cast Cave-In on your territory at random friendly minions, last 12 seconds.")
SET_BOX_TOOLTIP(231,"Backlash of Conquest: An Avatar has betrayed the heroes and joined you, unaware that a deadly army hunts you both.")
SET_BOX_TOOLTIP(232,"Ragnarok: Kill all your minions then summon as many Knights to join your ranks, then set all buffs effects on them.")

REM # Get a random value to determine what effect the Mysterious Box hold.
IF(PLAYER0,BOX0_ACTIVATED > 0)
	NEXT_COMMAND_REUSABLE
	RANDOMISE_FLAG(PLAYER0,BOX100_ACTIVATED,25)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX0_ACTIVATED,0)
ENDIF

REM # Spawn the randomised Mysterious Box.
IF(PLAYER0,BOX100_ACTIVATED != 0)
	IF(PLAYER0,BOX100_ACTIVATED == 1)
		NEXT_COMMAND_REUSABLE
		ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,1,PLAYER_NEUTRAL)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX100_ACTIVATED == 2)
		NEXT_COMMAND_REUSABLE
		ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,2,PLAYER_NEUTRAL)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX100_ACTIVATED == 3)
		NEXT_COMMAND_REUSABLE
		ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,3,PLAYER_NEUTRAL)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX100_ACTIVATED == 4)
		NEXT_COMMAND_REUSABLE
		ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,4,PLAYER_NEUTRAL)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX100_ACTIVATED == 5)
		NEXT_COMMAND_REUSABLE
		ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,5,PLAYER_NEUTRAL)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX100_ACTIVATED == 6)
		NEXT_COMMAND_REUSABLE
		ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,6,PLAYER_NEUTRAL)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX100_ACTIVATED == 7)
		NEXT_COMMAND_REUSABLE
		ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,7,PLAYER_NEUTRAL)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX100_ACTIVATED == 8)
		NEXT_COMMAND_REUSABLE
		ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,8,PLAYER_NEUTRAL)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX100_ACTIVATED == 9)
		NEXT_COMMAND_REUSABLE
		ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,9,PLAYER_NEUTRAL)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX100_ACTIVATED == 10)
		NEXT_COMMAND_REUSABLE
		ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,10,PLAYER_NEUTRAL)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX100_ACTIVATED == 11)
		NEXT_COMMAND_REUSABLE
		ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,11,PLAYER_NEUTRAL)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX100_ACTIVATED == 12)
		NEXT_COMMAND_REUSABLE
		ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,12,PLAYER_NEUTRAL)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX100_ACTIVATED == 13)
		NEXT_COMMAND_REUSABLE
		ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,13,PLAYER_NEUTRAL)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX100_ACTIVATED == 14)
		NEXT_COMMAND_REUSABLE
		ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,14,PLAYER_NEUTRAL)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX100_ACTIVATED == 15)
		NEXT_COMMAND_REUSABLE
		ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,15,PLAYER_NEUTRAL)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX100_ACTIVATED == 16)
		NEXT_COMMAND_REUSABLE
		ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,16,PLAYER_NEUTRAL)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX100_ACTIVATED == 17)
		NEXT_COMMAND_REUSABLE
		ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,17,PLAYER_NEUTRAL)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX100_ACTIVATED == 18)
		NEXT_COMMAND_REUSABLE
		ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,18,PLAYER_NEUTRAL)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX100_ACTIVATED == 19)
		NEXT_COMMAND_REUSABLE
		ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,19,PLAYER_NEUTRAL)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX100_ACTIVATED == 20)
		NEXT_COMMAND_REUSABLE
		ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,20,PLAYER_NEUTRAL)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX100_ACTIVATED == 21)
		NEXT_COMMAND_REUSABLE
		ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,21,PLAYER_NEUTRAL)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX100_ACTIVATED == 22)
		NEXT_COMMAND_REUSABLE
		ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,22,PLAYER_NEUTRAL)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX100_ACTIVATED == 23)
		NEXT_COMMAND_REUSABLE
		ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,23,PLAYER_NEUTRAL)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX100_ACTIVATED == 24)
		NEXT_COMMAND_REUSABLE
		ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,24,PLAYER_NEUTRAL)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX100_ACTIVATED == 25)
		NEXT_COMMAND_REUSABLE
		ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,25,PLAYER_NEUTRAL)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
	ENDIF
ENDIF

REM # "Frostbite Box: Cast Freeze on all hostile minions."
IF(PLAYER0,BOX1_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,1,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER1,ANY_CREATURE,SPELL_FREEZE,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER2,ANY_CREATURE,SPELL_FREEZE,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER3,ANY_CREATURE,SPELL_FREEZE,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER4,ANY_CREATURE,SPELL_FREEZE,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER5,ANY_CREATURE,SPELL_FREEZE,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER6,ANY_CREATURE,SPELL_FREEZE,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER_GOOD,ANY_CREATURE,SPELL_FREEZE,1)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX1_ACTIVATED,0)
ENDIF

REM # "Protect Box: Cast Armour on all friendly minions."
IF(PLAYER0,BOX2_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,2,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,ANY_CREATURE,SPELL_ARMOUR,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,IMP,SPELL_ARMOUR,1)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX2_ACTIVATED,0)
ENDIF

REM # "Shell Box: Cast Rebound on all friendly minions."
IF(PLAYER0,BOX3_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,3,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,ANY_CREATURE,SPELL_REBOUND,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,IMP,SPELL_REBOUND,1)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX3_ACTIVATED,0)
ENDIF

REM # "Cure Box: Cast Heal on all friendly minions."
IF(PLAYER0,BOX4_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,4,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,ANY_CREATURE,SPELL_HEAL,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,IMP,SPELL_HEAL,1)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX4_ACTIVATED,0)
ENDIF

REM # "Vanish Box: Cast Invisibility on all friendly minions."
IF(PLAYER0,BOX5_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,5,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,ANY_CREATURE,SPELL_INVISIBILITY,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,IMP,SPELL_INVISIBILITY,1)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX5_ACTIVATED,0)
ENDIF

REM # "Warp Box: Teleport all hostile minions to their lair."
IF(PLAYER0,BOX6_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,6,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	REM # NEXT_COMMAND_REUSABLE
	REM # USE_SPELL_ON_PLAYERS_CREATURES(PLAYER1,ANY_CREATURE,SPELL_TELEPORT)
	REM # NEXT_COMMAND_REUSABLE
	REM # USE_SPELL_ON_PLAYERS_CREATURES(PLAYER2,ANY_CREATURE,SPELL_TELEPORT)
	REM # NEXT_COMMAND_REUSABLE
	REM # USE_SPELL_ON_PLAYERS_CREATURES(PLAYER3,ANY_CREATURE,SPELL_TELEPORT)
	REM # NEXT_COMMAND_REUSABLE
	REM # USE_SPELL_ON_PLAYERS_CREATURES(PLAYER4,ANY_CREATURE,SPELL_TELEPORT)
	REM # NEXT_COMMAND_REUSABLE
	REM # USE_SPELL_ON_PLAYERS_CREATURES(PLAYER5,ANY_CREATURE,SPELL_TELEPORT)
	REM # NEXT_COMMAND_REUSABLE
	REM # USE_SPELL_ON_PLAYERS_CREATURES(PLAYER6,ANY_CREATURE,SPELL_TELEPORT)
	REM # NEXT_COMMAND_REUSABLE
	REM # USE_SPELL_ON_PLAYERS_CREATURES(PLAYER_GOOD,ANY_CREATURE,SPELL_TELEPORT)
	NEXT_COMMAND_REUSABLE
	MOVE_CREATURE(PLAYER1,ANY_CREATURE,ANYWHERE,1000,-1)
	NEXT_COMMAND_REUSABLE
	MOVE_CREATURE(PLAYER2,ANY_CREATURE,ANYWHERE,1000,-2)
	NEXT_COMMAND_REUSABLE
	MOVE_CREATURE(PLAYER3,ANY_CREATURE,ANYWHERE,1000,-3)
	NEXT_COMMAND_REUSABLE
	MOVE_CREATURE(PLAYER4,ANY_CREATURE,ANYWHERE,1000,-4)
	NEXT_COMMAND_REUSABLE
	MOVE_CREATURE(PLAYER5,ANY_CREATURE,ANYWHERE,1000,-5)
	NEXT_COMMAND_REUSABLE
	MOVE_CREATURE(PLAYER6,ANY_CREATURE,ANYWHERE,1000,-6)
	NEXT_COMMAND_REUSABLE
	MOVE_CREATURE(PLAYER_GOOD,ANY_CREATURE,ANYWHERE,1000,-7)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX6_ACTIVATED,0)
ENDIF

REM # "Rescue Box: Teleport your own minions to their lair."
IF(PLAYER0,BOX7_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,7,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	REM # NEXT_COMMAND_REUSABLE
	REM # USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,ANY_CREATURE,SPELL_TELEPORT)
	REM # NEXT_COMMAND_REUSABLE
	REM # USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,IMP,SPELL_TELEPORT)
	NEXT_COMMAND_REUSABLE
	MOVE_CREATURE(PLAYER0,ANY_CREATURE,ANYWHERE,1000,PLAYER0)
	NEXT_COMMAND_REUSABLE
	MOVE_CREATURE(PLAYER0,IMP,ANYWHERE,1000,PLAYER0)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX7_ACTIVATED,0)
ENDIF

REM # "Cease-fire Box: Teleport all minions to their lair."
IF(PLAYER0,BOX8_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,8,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	REM # NEXT_COMMAND_REUSABLE
	REM # USE_SPELL_ON_PLAYERS_CREATURES(ALL_PLAYERS,ANY_CREATURE,SPELL_TELEPORT)
	REM # NEXT_COMMAND_REUSABLE
	REM # USE_SPELL_ON_PLAYERS_CREATURES(ALL_PLAYERS,IMP,SPELL_TELEPORT)
	NEXT_COMMAND_REUSABLE
	MOVE_CREATURE(PLAYER0,ANY_CREATURE,ANYWHERE,1000,PLAYER0)
	NEXT_COMMAND_REUSABLE
	MOVE_CREATURE(PLAYER0,IMP,ANYWHERE,1000,PLAYER0)
	NEXT_COMMAND_REUSABLE
	MOVE_CREATURE(PLAYER1,ANY_CREATURE,ANYWHERE,1000,-1)
	NEXT_COMMAND_REUSABLE
	MOVE_CREATURE(PLAYER1,IMP,ANYWHERE,1000,-1)
	NEXT_COMMAND_REUSABLE
	MOVE_CREATURE(PLAYER2,ANY_CREATURE,ANYWHERE,1000,-2)
	NEXT_COMMAND_REUSABLE
	MOVE_CREATURE(PLAYER2,IMP,ANYWHERE,1000,-2)
	NEXT_COMMAND_REUSABLE
	MOVE_CREATURE(PLAYER3,ANY_CREATURE,ANYWHERE,1000,-3)
	NEXT_COMMAND_REUSABLE
	MOVE_CREATURE(PLAYER3,IMP,ANYWHERE,1000,-3)
	NEXT_COMMAND_REUSABLE
	MOVE_CREATURE(PLAYER4,ANY_CREATURE,ANYWHERE,1000,-4)
	NEXT_COMMAND_REUSABLE
	MOVE_CREATURE(PLAYER4,IMP,ANYWHERE,1000,-4)
	NEXT_COMMAND_REUSABLE
	MOVE_CREATURE(PLAYER5,ANY_CREATURE,ANYWHERE,1000,-5)
	NEXT_COMMAND_REUSABLE
	MOVE_CREATURE(PLAYER5,IMP,ANYWHERE,1000,-5)
	NEXT_COMMAND_REUSABLE
	MOVE_CREATURE(PLAYER6,ANY_CREATURE,ANYWHERE,1000,-6)
	NEXT_COMMAND_REUSABLE
	MOVE_CREATURE(PLAYER6,IMP,ANYWHERE,1000,-6)
	NEXT_COMMAND_REUSABLE
	MOVE_CREATURE(PLAYER_GOOD,ANY_CREATURE,ANYWHERE,1000,-7)
	NEXT_COMMAND_REUSABLE
	MOVE_CREATURE(PLAYER_GOOD,IMP,ANYWHERE,1000,-7)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX8_ACTIVATED,0)
ENDIF

REM # "Haste Box: Cast Speed on all friendly minions."
IF(PLAYER0,BOX9_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,9,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,ANY_CREATURE,SPELL_SPEED,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,IMP,SPELL_SPEED,1)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX9_ACTIVATED,0)
ENDIF

REM # "Web Box: Cast Slow on all hostile minions."
IF(PLAYER0,BOX10_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,10,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER1,ANY_CREATURE,SPELL_SLOW,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER2,ANY_CREATURE,SPELL_SLOW,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER3,ANY_CREATURE,SPELL_SLOW,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER4,ANY_CREATURE,SPELL_SLOW,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER5,ANY_CREATURE,SPELL_SLOW,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER6,ANY_CREATURE,SPELL_SLOW,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER_GOOD,ANY_CREATURE,SPELL_SLOW,1)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX10_ACTIVATED,0)
ENDIF

REM # "Illumination Box: Cast Light on all minions."
IF(PLAYER0,BOX11_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,11,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(ALL_PLAYERS,ANY_CREATURE,SPELL_LIGHT,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(ALL_PLAYERS,IMP,SPELL_LIGHT,1)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX11_ACTIVATED,0)
ENDIF

REM # "Float Box: Cast Flight on all friendly minions."
IF(PLAYER0,BOX12_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,12,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,ANY_CREATURE,SPELL_FLIGHT,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,IMP,SPELL_FLIGHT,1)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX12_ACTIVATED,0)
ENDIF

REM # "Vision Box: Cast Sight on all friendly minions."
IF(PLAYER0,BOX13_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,13,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,ANY_CREATURE,SPELL_SIGHT,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,IMP,SPELL_SIGHT,1)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX13_ACTIVATED,0)
ENDIF

REM # "Plague Box: Cast Disease on all hostile minions."
IF(PLAYER0,BOX14_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,14,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER1,ANY_CREATURE,SPELL_DISEASE,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER2,ANY_CREATURE,SPELL_DISEASE,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER3,ANY_CREATURE,SPELL_DISEASE,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER4,ANY_CREATURE,SPELL_DISEASE,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER5,ANY_CREATURE,SPELL_DISEASE,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER6,ANY_CREATURE,SPELL_DISEASE,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER_GOOD,ANY_CREATURE,SPELL_DISEASE,1)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX14_ACTIVATED,0)
ENDIF

REM # "Hex Box: Cast Chicken on all hostile minions."
IF(PLAYER0,BOX15_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,15,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER1,ANY_CREATURE,SPELL_CHICKEN,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER2,ANY_CREATURE,SPELL_CHICKEN,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER3,ANY_CREATURE,SPELL_CHICKEN,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER4,ANY_CREATURE,SPELL_CHICKEN,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER5,ANY_CREATURE,SPELL_CHICKEN,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER6,ANY_CREATURE,SPELL_CHICKEN,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER_GOOD,ANY_CREATURE,SPELL_CHICKEN,1)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX15_ACTIVATED,0)
ENDIF

REM # "Wrath Box: Cast Lightning on your territory at random hostile minions, last 12 seconds."
IF(PLAYER0,BOX16_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,16,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	ADD_TO_FLAG(PLAYER0,BOX116_ACTIVATED,255)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX16_ACTIVATED,0)
ENDIF

REM # Wrath Box's effect happen every game turn until BOX116_ACTIVATED flag reach 0.
REM # To change duration see above and replace 255 (average 12 seconds) with any value you want (range 1-255).
IF(PLAYER0,BOX116_ACTIVATED > 0)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER1,ANY_CREATURE,ON_ENEMY_GROUND,PLAYER0,POWER_LIGHTNING,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER2,ANY_CREATURE,ON_ENEMY_GROUND,PLAYER0,POWER_LIGHTNING,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER3,ANY_CREATURE,ON_ENEMY_GROUND,PLAYER0,POWER_LIGHTNING,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER4,ANY_CREATURE,ON_ENEMY_GROUND,PLAYER0,POWER_LIGHTNING,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER5,ANY_CREATURE,ON_ENEMY_GROUND,PLAYER0,POWER_LIGHTNING,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER6,ANY_CREATURE,ON_ENEMY_GROUND,PLAYER0,POWER_LIGHTNING,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER_GOOD,ANY_CREATURE,ON_ENEMY_GROUND,PLAYER0,POWER_LIGHTNING,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER1,IMP,ON_ENEMY_GROUND,PLAYER0,POWER_LIGHTNING,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER2,IMP,ON_ENEMY_GROUND,PLAYER0,POWER_LIGHTNING,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER3,IMP,ON_ENEMY_GROUND,PLAYER0,POWER_LIGHTNING,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER4,IMP,ON_ENEMY_GROUND,PLAYER0,POWER_LIGHTNING,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER5,IMP,ON_ENEMY_GROUND,PLAYER0,POWER_LIGHTNING,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER6,IMP,ON_ENEMY_GROUND,PLAYER0,POWER_LIGHTNING,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER_GOOD,IMP,ON_ENEMY_GROUND,PLAYER0,POWER_LIGHTNING,1,1)
	NEXT_COMMAND_REUSABLE
	ADD_TO_FLAG(PLAYER0,BOX116_ACTIVATED,-1)
ENDIF

REM # "Rockfall Box: Cast Cave-In on your territory at random hostile minions, last 12 seconds."
IF(PLAYER0,BOX17_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,17,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	ADD_TO_FLAG(PLAYER0,BOX117_ACTIVATED,255)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX17_ACTIVATED,0)
ENDIF

REM # Rockfall Box's effect happen every game turn until BOX117_ACTIVATED flag reach 0.
REM # To change duration see above and replace 255 (average 12 seconds) with any value you want (range 1-255).
IF(PLAYER0,BOX117_ACTIVATED > 0)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER1,ANY_CREATURE,ON_ENEMY_GROUND,PLAYER0,POWER_CAVE_IN,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER2,ANY_CREATURE,ON_ENEMY_GROUND,PLAYER0,POWER_CAVE_IN,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER3,ANY_CREATURE,ON_ENEMY_GROUND,PLAYER0,POWER_CAVE_IN,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER4,ANY_CREATURE,ON_ENEMY_GROUND,PLAYER0,POWER_CAVE_IN,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER5,ANY_CREATURE,ON_ENEMY_GROUND,PLAYER0,POWER_CAVE_IN,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER6,ANY_CREATURE,ON_ENEMY_GROUND,PLAYER0,POWER_CAVE_IN,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER_GOOD,ANY_CREATURE,ON_ENEMY_GROUND,PLAYER0,POWER_CAVE_IN,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER1,IMP,ON_ENEMY_GROUND,PLAYER0,POWER_CAVE_IN,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER2,IMP,ON_ENEMY_GROUND,PLAYER0,POWER_CAVE_IN,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER3,IMP,ON_ENEMY_GROUND,PLAYER0,POWER_CAVE_IN,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER4,IMP,ON_ENEMY_GROUND,PLAYER0,POWER_CAVE_IN,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER5,IMP,ON_ENEMY_GROUND,PLAYER0,POWER_CAVE_IN,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER6,IMP,ON_ENEMY_GROUND,PLAYER0,POWER_CAVE_IN,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER_GOOD,IMP,ON_ENEMY_GROUND,PLAYER0,POWER_CAVE_IN,1,1)
	NEXT_COMMAND_REUSABLE
	ADD_TO_FLAG(PLAYER0,BOX117_ACTIVATED,-1)
ENDIF

REM # "Heroic Box: Summon a random hero to join your ranks."
IF(PLAYER0,BOX18_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,18,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	RANDOMISE_FLAG(PLAYER0,BOX118_ACTIVATED,10)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX18_ACTIVATED,0)
ENDIF

REM # The pool of hero can vary between map.
IF(PLAYER0,BOX118_ACTIVATED != 0)
	IF(PLAYER0,BOX118_ACTIVATED == 1)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,ARCHER,LAST_EVENT,1,5,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX118_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX118_ACTIVATED == 2)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,BARBARIAN,LAST_EVENT,1,5,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX118_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX118_ACTIVATED == 3)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,DWARFA,LAST_EVENT,1,5,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX118_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX118_ACTIVATED == 4)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,FAIRY,LAST_EVENT,1,5,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX118_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX118_ACTIVATED == 5)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,GIANT,LAST_EVENT,1,5,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX118_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX118_ACTIVATED == 6)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,MONK,LAST_EVENT,1,5,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX118_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX118_ACTIVATED == 7)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,SAMURAI,LAST_EVENT,1,5,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX118_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX118_ACTIVATED == 8)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,THIEF,LAST_EVENT,1,5,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX118_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX118_ACTIVATED == 9)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,WITCH,LAST_EVENT,1,5,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX118_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX118_ACTIVATED == 10)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,WIZARD,LAST_EVENT,1,5,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX118_ACTIVATED,0)
	ENDIF
ENDIF

REM # "Evil Box: Summon a random creature to join your ranks."
IF(PLAYER0,BOX19_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,19,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	RANDOMISE_FLAG(PLAYER0,BOX119_ACTIVATED,8)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX19_ACTIVATED,0)
ENDIF

REM # The pool of creature can vary between map.
IF(PLAYER0,BOX119_ACTIVATED != 0)
	IF(PLAYER0,BOX119_ACTIVATED == 1)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,BILE_DEMON,LAST_EVENT,1,5,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX119_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX119_ACTIVATED == 2)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,DARK_MISTRESS,LAST_EVENT,1,5,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX119_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX119_ACTIVATED == 3)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,DRAGON,LAST_EVENT,1,5,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX119_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX119_ACTIVATED == 4)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,HELL_HOUND,LAST_EVENT,1,5,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX119_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX119_ACTIVATED == 5)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,ORC,LAST_EVENT,1,5,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX119_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX119_ACTIVATED == 6)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,SORCEROR,LAST_EVENT,1,5,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX119_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX119_ACTIVATED == 7)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,TENTACLE,LAST_EVENT,1,5,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX119_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX119_ACTIVATED == 8)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,TROLL,LAST_EVENT,1,5,0)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX119_ACTIVATED,0)
	ENDIF
ENDIF

REM # "Necromancy Box: Raise a squad of undead at the site of the last battle to join your ranks."
REM # The type of undead can vary between map.
IF(PLAYER0,BOX20_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,20,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	ADD_CREATURE_TO_LEVEL(PLAYER0,SKELETON,COMBAT,2,3,0)
	NEXT_COMMAND_REUSABLE
	ADD_CREATURE_TO_LEVEL(PLAYER0,GHOST,COMBAT,2,3,0)
	NEXT_COMMAND_REUSABLE
	ADD_CREATURE_TO_LEVEL(PLAYER0,VAMPIRE,COMBAT,1,3,0)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX20_ACTIVATED,0)
ENDIF

REM # "Anger Box: All the minions get angry."
IF(PLAYER0,BOX21_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,21,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	CHANGE_CREATURES_ANNOYANCE(ALL_PLAYERS,ANY_CREATURE,SET,10000)
	NEXT_COMMAND_REUSABLE
	CHANGE_CREATURES_ANNOYANCE(ALL_PLAYERS,IMP,SET,10000)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX21_ACTIVATED,0)
ENDIF

REM # "Happy Box: All friendly minions get happy."
IF(PLAYER0,BOX22_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,22,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	CHANGE_CREATURES_ANNOYANCE(PLAYER0,ANY_CREATURE,SET,0)
	NEXT_COMMAND_REUSABLE
	CHANGE_CREATURES_ANNOYANCE(PLAYER0,IMP,SET,0)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX22_ACTIVATED,0)
ENDIF

REM # "Dungeon Box: Fully restores your Dungeon Heart."
IF(PLAYER0,BOX23_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,23,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	ADD_HEART_HEALTH(PLAYER0,30000,0)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX23_ACTIVATED,0)
ENDIF

REM # "Keeper Box: Set all buffs effects on all friendly minions."
IF(PLAYER0,BOX24_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,24,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,ANY_CREATURE,SPELL_HEAL,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,ANY_CREATURE,SPELL_ARMOUR,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,ANY_CREATURE,SPELL_REBOUND,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,ANY_CREATURE,SPELL_SPEED,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,ANY_CREATURE,SPELL_FLIGHT,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,ANY_CREATURE,SPELL_SIGHT,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,IMP,SPELL_HEAL,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,IMP,SPELL_ARMOUR,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,IMP,SPELL_REBOUND,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,IMP,SPELL_SPEED,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,IMP,SPELL_FLIGHT,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,IMP,SPELL_SIGHT,1)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX24_ACTIVATED,0)
ENDIF

REM # "Pandora's Box: There's no telling what this will do."
REM # Can trigger any effect above, in addition it can trigger unique events such as:
REM # "Madness: All the minions get mad psycho."
REM # "Oops!: A clumsy imp tripped and spilled their coffee on you, slap 'em all!"
REM # "Heroic Assault: Summon a squad of heroes to destroy you."
REM # "Rebellion: All friendly minions get angry. Your minions may turn against you, last 12 seconds."
REM # "Diverted Wrath: Cast Lightning on your territory at random friendly minions, last 12 seconds."
REM # "Collapse: Cast Cave-In on your territory at random friendly minions, last 12 seconds."
REM # "Backlash of Conquest: An Avatar has betrayed the heroes and joined you, unaware that a deadly army hunts you both."
REM # "Ragnarok: Kill all your minions then summon as many Knights to join your ranks, then set all buffs effects on them."
IF(PLAYER0,BOX25_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,COMBAT,25,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	RANDOMISE_FLAG(PLAYER0,BOX125_ACTIVATED,32)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX25_ACTIVATED,0)
ENDIF

REM # Note: if you use quick inf/obj you need to start with ID 33, as the ID from 1 to 32 are used here.
IF(PLAYER0,BOX125_ACTIVATED != 0)
	IF(PLAYER0,BOX125_ACTIVATED == 1)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(1,"Pandora's Box turned into Frostbite Box: Cast Freeze on all hostile minions.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX1_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 2)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(2,"Pandora's Box turned into Protect Box: Cast Armour on all friendly minions.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX2_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 3)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(3,"Pandora's Box turned into Shell Box: Cast Rebound on all friendly minions.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX3_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 4)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(4,"Pandora's Box turned into Cure Box: Cast Heal on all friendly minions.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX4_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 5)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(5,"Pandora's Box turned into Vanish Box: Cast Invisibility on all friendly minions.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX5_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 6)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(6,"Pandora's Box turned into Warp Box: Teleport all hostile minions to their lair.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX6_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 7)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(7,"Pandora's Box turned into Rescue Box: Teleport your own minions to their lair.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX7_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 8)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(8,"Pandora's Box turned into Cease-fire Box: Teleport all minions to their lair.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX8_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 9)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(9,"Pandora's Box turned into Haste Box: Cast Speed on all friendly minions.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX9_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 10)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(10,"Pandora's Box turned into Web Box: Cast Slow on all hostile minions.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX10_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 11)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(11,"Pandora's Box turned into Illumination Box: Cast Light on all minions.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX11_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 12)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(12,"Pandora's Box turned into Float Box: Cast Flight on all friendly minions.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX12_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 13)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(13,"Pandora's Box turned into Vision Box: Cast Sight on all friendly minions.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX13_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 14)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(14,"Pandora's Box turned into Plague Box: Cast Disease on all hostile minions.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX14_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 15)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(15,"Pandora's Box turned into Hex Box: Cast Chicken on all hostile minions.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX15_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 16)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(16,"Pandora's Box turned into Wrath Box: Cast Lightning on your territory at random hostile minions, last 12 seconds.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX16_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 17)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(17,"Pandora's Box turned into Rockfall Box: Cast Cave-In on your territory at random hostile minions, last 12 seconds.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX17_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 18)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(18,"Pandora's Box turned into Heroic Box: Summon a random hero to join your ranks.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX18_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 19)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(19,"Pandora's Box turned into Evil Box: Summon a random creature to join your ranks.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX19_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 20)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(20,"Pandora's Box turned into Necromancy Box: Raise a squad of undead at the site of the last battle to join your ranks.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX20_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 21)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(21,"Pandora's Box turned into Anger Box: All the minions get angry.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX21_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 22)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(22,"Pandora's Box turned into Happy Box: All friendly minions get happy.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX22_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 23)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(23,"Pandora's Box turned into Dungeon Box: Fully restores your Dungeon Heart.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX23_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 24)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(24,"Pandora's Box turned into Keeper Box: Set all buffs effects on all friendly minions.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX24_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 25)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(25,"Pandora's Box turned into Madness: All the minions get mad psycho.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX225_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 26)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(26,"Pandora's Box turned into Oops!: A clumsy imp tripped and spilled their coffee on you, slap 'em all!",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX226_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 27)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(27,"Pandora's Box turned into Heroic Assault: Summon a squad of heroes to destroy you.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX227_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 28)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(28,"Pandora's Box turned into Rebellion: All friendly minions get angry. Your minions may turn against you, last 12 seconds.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX228_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 29)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(29,"Pandora's Box turned into Diverted Wrath: Cast Lightning on your territory at random friendly minions, last 12 seconds.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX229_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 30)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(30,"Pandora's Box turned into Collapse: Cast Cave-In on your territory at random friendly minions, last 12 seconds.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX230_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 31)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(31,"Pandora's Box turned into Backlash of Conquest: An Avatar has betrayed the heroes and joined you, unaware that a deadly army hunts you both.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX231_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
	IF(PLAYER0,BOX125_ACTIVATED == 32)
		NEXT_COMMAND_REUSABLE
		QUICK_INFORMATION(32,"Pandora's Box turned into Ragnarok: Kill all your minions then summon as many Knights to join your ranks, then set all buffs effects on them.",ALL_PLAYERS)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX232_ACTIVATED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX125_ACTIVATED,0)
	ENDIF
ENDIF

REM # "Madness: All the minions get mad psycho."
IF(PLAYER0,BOX225_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,225,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(ALL_PLAYERS,ANY_CREATURE,SPELL_FEAR,1)
	NEXT_COMMAND_REUSABLE
	USE_SPELL_ON_PLAYERS_CREATURES(ALL_PLAYERS,IMP,SPELL_FEAR,1)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX225_ACTIVATED,0)
ENDIF

REM # "Oops!: A clumsy imp tripped and spilled their coffee on you, slap 'em all!"
IF(PLAYER0,BOX226_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,226,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX126_ACTIVATED,32)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX226_ACTIVATED,0)
ENDIF

REM # Oops!'s effect happen every game turn until BOX126_ACTIVATED flag reach 0.
IF(PLAYER0,BOX126_ACTIVATED > 0)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER0,ANY_CREATURE,ANYWHERE,PLAYER0,POWER_SLAP,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER0,IMP,ANYWHERE,PLAYER0,POWER_SLAP,1,1)
	NEXT_COMMAND_REUSABLE
	ADD_TO_FLAG(PLAYER0,BOX126_ACTIVATED,-1)
ENDIF

REM # "Heroic Assault: Summon a squad of heroes to destroy you."
IF(PLAYER0,BOX227_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,227,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HRCSSLT,LAST_EVENT,1)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX227_ACTIVATED,0)
ENDIF

REM # "Rebellion: All friendly minions get angry. Your minions may turn against you, last 12 seconds."
IF(PLAYER0,BOX228_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,228,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	CHANGE_CREATURES_ANNOYANCE(PLAYER0,ANY_CREATURE,INCREASE,10000)
	NEXT_COMMAND_REUSABLE
	ADD_TO_FLAG(PLAYER0,BOX127_ACTIVATED,255)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX228_ACTIVATED,0)
ENDIF

REM # Until BOX127_ACTIVATED flag reach 0 there is a chance a minion turn against its owner.
REM # To change duration see above and replace 255 (average 12 seconds) with any value you want (range 1-255).
IF(PLAYER0,BOX127_ACTIVATED > 0)
	IF(PLAYER0,BOX127_ACTIVATED != PLAYER0,BOX128_ACTIVATED)
		NEXT_COMMAND_REUSABLE
		CHANGE_CREATURES_ANNOYANCE(PLAYER0,ANY_CREATURE,DECREASE,32)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER0,BOX127_ACTIVATED,-1)
		NEXT_COMMAND_REUSABLE
		RANDOMISE_FLAG(PLAYER0,BOX128_ACTIVATED,255)
	ENDIF
	IF(PLAYER0,BOX127_ACTIVATED == PLAYER0,BOX128_ACTIVATED)
		NEXT_COMMAND_REUSABLE
		CHANGE_CREATURE_OWNER(PLAYER0,ANY_CREATURE,ANYWHERE,PLAYER_GOOD)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER0,BOX128_ACTIVATED,0)
	ENDIF
ENDIF

REM # "Diverted Wrath: Cast Lightning on your territory at random friendly minions, last 12 seconds."
IF(PLAYER0,BOX229_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,229,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	ADD_TO_FLAG(PLAYER0,BOX129_ACTIVATED,255)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX229_ACTIVATED,0)
ENDIF

REM # Diverted Wrath's effect happen every game turn until BOX129_ACTIVATED flag reach 0.
REM # To change duration see above and replace 255 (average 12 seconds) with any value you want (range 1-255).
IF(PLAYER0,BOX129_ACTIVATED > 0)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER0,ANY_CREATURE,ON_FRIENDLY_GROUND,PLAYER0,POWER_LIGHTNING,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER0,IMP,ON_FRIENDLY_GROUND,PLAYER0,POWER_LIGHTNING,1,1)
	NEXT_COMMAND_REUSABLE
	ADD_TO_FLAG(PLAYER0,BOX129_ACTIVATED,-1)
ENDIF

REM # "Collapse: Cast Cave-In on your territory at random friendly minions, last 12 seconds."
IF(PLAYER0,BOX230_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,230,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	ADD_TO_FLAG(PLAYER0,BOX130_ACTIVATED,255)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX230_ACTIVATED,0)
ENDIF

REM # Collapse's effect happen every game turn until BOX130_ACTIVATED flag reach 0.
REM # To change duration see above and replace 255 (average 12 seconds) with any value you want (range 1-255).
IF(PLAYER0,BOX130_ACTIVATED > 0)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER0,ANY_CREATURE,ON_FRIENDLY_GROUND,PLAYER0,POWER_CAVE_IN,1,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER0,IMP,ON_FRIENDLY_GROUND,PLAYER0,POWER_CAVE_IN,1,1)
	NEXT_COMMAND_REUSABLE
	ADD_TO_FLAG(PLAYER0,BOX130_ACTIVATED,-1)
ENDIF

REM # "Backlash of Conquest: An Avatar has betrayed the heroes and joined you, unaware that a deadly army hunts you both."
IF(PLAYER0,BOX231_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,231,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	ADD_CREATURE_TO_LEVEL(PLAYER0,AVATAR,LAST_EVENT,1,10,0)
	NEXT_COMMAND_REUSABLE
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,CNQST_01,COMBAT,1)
	NEXT_COMMAND_REUSABLE
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,CNQST_02,COMBAT,1)
	NEXT_COMMAND_REUSABLE
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,CNQST_03,COMBAT,1)
	NEXT_COMMAND_REUSABLE
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,CNQST_04,COMBAT,1)
	NEXT_COMMAND_REUSABLE
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,CNQST_05,COMBAT,1)
	NEXT_COMMAND_REUSABLE
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,CNQST_06,COMBAT,1)
	NEXT_COMMAND_REUSABLE
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,CNQST_07,COMBAT,1)
	NEXT_COMMAND_REUSABLE
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,CNQST_08,COMBAT,1)
	NEXT_COMMAND_REUSABLE
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,CNQST_09,COMBAT,1)
	NEXT_COMMAND_REUSABLE
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,CNQST_10,COMBAT,1)
	NEXT_COMMAND_REUSABLE
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,CNQST_11,COMBAT,1)
	NEXT_COMMAND_REUSABLE
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,CNQST_12,COMBAT,1)
	NEXT_COMMAND_REUSABLE
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,CNQST_13,COMBAT,1)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX231_ACTIVATED,0)
ENDIF

REM # "Ragnarok: Kill all your minions then summon as many Knights to join your ranks, then set all buffs effects on them."
IF(PLAYER0,BOX232_ACTIVATED > 0)
	REM # For the demonstration each time the player use a special box, respawn it.
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,LAST_EVENT,232,PLAYER_NEUTRAL)
	REM # Remove the two lines above for a normal gameplay.
	NEXT_COMMAND_REUSABLE
	COMPUTE_FLAG(PLAYER0,BOX32_ACTIVATED,INCREASE,PLAYER0,TOTAL_CREATURES,1)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX232_ACTIVATED,0)
ENDIF

REM # Ragnarok's effect to kill all your minions.
IF(PLAYER0,BOX32_ACTIVATED > 0)
	NEXT_COMMAND_REUSABLE
	KILL_CREATURE(PLAYER0,ANY_CREATURE,LEAST_EXPERIENCED,1)
	NEXT_COMMAND_REUSABLE
	ADD_TO_FLAG(PLAYER0,BOX132_ACTIVATED,1)
	NEXT_COMMAND_REUSABLE
	ADD_TO_FLAG(PLAYER0,BOX32_ACTIVATED,-1)
ENDIF

REM # Ragnarok's effect to summon a buffed Knight for each killed minions by the above condition.
IF(PLAYER0,BOX132_ACTIVATED > 0)
	IF(PLAYER0,BOX32_ACTIVATED == 0)
		NEXT_COMMAND_REUSABLE
		ADD_CREATURE_TO_LEVEL(PLAYER0,KNIGHT,LAST_EVENT,1,10,0)
		NEXT_COMMAND_REUSABLE
		USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,KNIGHT,SPELL_ARMOUR,10)
		NEXT_COMMAND_REUSABLE
		USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,KNIGHT,SPELL_REBOUND,10)
		NEXT_COMMAND_REUSABLE
		USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,KNIGHT,SPELL_SPEED,10)
		NEXT_COMMAND_REUSABLE
		USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,KNIGHT,SPELL_FLIGHT,10)
		NEXT_COMMAND_REUSABLE
		USE_SPELL_ON_PLAYERS_CREATURES(PLAYER0,KNIGHT,SPELL_SIGHT,10)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER0,BOX132_ACTIVATED,-1)
	ENDIF
ENDIF

REM # Map's specifics behaviours start from this point.
QUICK_OBJECTIVE(0,"Welcome to the Mysterious Box Demo! There are up to 32 wacky effects to discover. Each box has its own quirky tooltip. Just click to activate and watch it respawn so you can try again and again. Want to win? Oh honey, winning doesn't live here! This is a demo, not a prize factory, you cheeky monkey!",ALL_PLAYERS)

REM # Compute all players TOTAL_CREATURES and COUNT_CREATURES_AT_ACTION_POINT.
IF(PLAYER_GOOD,GAME_TURN > 0)
	NEXT_COMMAND_REUSABLE
	COMPUTE_FLAG(PLAYER_NEUTRAL,CAMPAIGN_FLAG0,SET,PLAYER_GOOD,TOTAL_CREATURES,0)
	NEXT_COMMAND_REUSABLE
	COMPUTE_FLAG(PLAYER_NEUTRAL,CAMPAIGN_FLAG0,INCREASE,PLAYER0,TOTAL_CREATURES,0)
	NEXT_COMMAND_REUSABLE
	COMPUTE_FLAG(PLAYER_NEUTRAL,CAMPAIGN_FLAG0,INCREASE,PLAYER1,TOTAL_CREATURES,0)
	NEXT_COMMAND_REUSABLE
	COMPUTE_FLAG(PLAYER_NEUTRAL,CAMPAIGN_FLAG0,INCREASE,PLAYER2,TOTAL_CREATURES,0)
	NEXT_COMMAND_REUSABLE
	COMPUTE_FLAG(PLAYER_NEUTRAL,CAMPAIGN_FLAG0,INCREASE,PLAYER3,TOTAL_CREATURES,0)
	NEXT_COMMAND_REUSABLE
	COMPUTE_FLAG(PLAYER_NEUTRAL,CAMPAIGN_FLAG0,INCREASE,PLAYER4,TOTAL_CREATURES,0)
	NEXT_COMMAND_REUSABLE
	COMPUTE_FLAG(PLAYER_NEUTRAL,CAMPAIGN_FLAG0,INCREASE,PLAYER5,TOTAL_CREATURES,0)
	NEXT_COMMAND_REUSABLE
	COMPUTE_FLAG(PLAYER_NEUTRAL,CAMPAIGN_FLAG0,INCREASE,PLAYER6,TOTAL_CREATURES,0)
	NEXT_COMMAND_REUSABLE
	COMPUTE_FLAG(PLAYER_NEUTRAL,CAMPAIGN_FLAG7,SET,PLAYER_GOOD,FLAG0,0)
	NEXT_COMMAND_REUSABLE
	COMPUTE_FLAG(PLAYER_NEUTRAL,CAMPAIGN_FLAG7,INCREASE,PLAYER_NEUTRAL,FLAG0,0)
	NEXT_COMMAND_REUSABLE
	COMPUTE_FLAG(PLAYER_NEUTRAL,CAMPAIGN_FLAG7,INCREASE,PLAYER0,FLAG0,0)
	NEXT_COMMAND_REUSABLE
	COMPUTE_FLAG(PLAYER_NEUTRAL,CAMPAIGN_FLAG7,INCREASE,PLAYER1,FLAG0,0)
	NEXT_COMMAND_REUSABLE
	COMPUTE_FLAG(PLAYER_NEUTRAL,CAMPAIGN_FLAG7,INCREASE,PLAYER2,FLAG0,0)
	NEXT_COMMAND_REUSABLE
	COMPUTE_FLAG(PLAYER_NEUTRAL,CAMPAIGN_FLAG7,INCREASE,PLAYER3,FLAG0,0)
	NEXT_COMMAND_REUSABLE
	COMPUTE_FLAG(PLAYER_NEUTRAL,CAMPAIGN_FLAG7,INCREASE,PLAYER4,FLAG0,0)
	NEXT_COMMAND_REUSABLE
	COMPUTE_FLAG(PLAYER_NEUTRAL,CAMPAIGN_FLAG7,INCREASE,PLAYER5,FLAG0,0)
	NEXT_COMMAND_REUSABLE
	COMPUTE_FLAG(PLAYER_NEUTRAL,CAMPAIGN_FLAG7,INCREASE,PLAYER6,FLAG0,0)
	USE_POWER_AT_LOCATION(PLAYER0,PLAYER0,POWER_CALL_TO_ARMS,1,1)
	USE_POWER_AT_LOCATION(PLAYER1,PLAYER0,POWER_CALL_TO_ARMS,1,1)
	USE_POWER_AT_LOCATION(PLAYER2,PLAYER0,POWER_CALL_TO_ARMS,1,1)
	USE_POWER_AT_LOCATION(PLAYER3,PLAYER0,POWER_CALL_TO_ARMS,1,1)
	USE_POWER_AT_LOCATION(PLAYER4,PLAYER0,POWER_CALL_TO_ARMS,1,1)
	USE_POWER_AT_LOCATION(PLAYER5,PLAYER0,POWER_CALL_TO_ARMS,1,1)
	USE_POWER_AT_LOCATION(PLAYER6,PLAYER0,POWER_CALL_TO_ARMS,1,1)
	USE_POWER_AT_LOCATION(PLAYER_GOOD,PLAYER0,POWER_CALL_TO_ARMS,1,1)
ENDIF

REM # Main Loop.
IF(PLAYER_NEUTRAL,CAMPAIGN_FLAG0 < 510)
	IF(PLAYER_NEUTRAL,CAMPAIGN_FLAG7 > 0)
		SET_TIMER(PLAYER_NEUTRAL,TIMER7)
		NEXT_COMMAND_REUSABLE
		RANDOMISE_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,32)
	ENDIF
	IF(PLAYER_NEUTRAL,CAMPAIGN_FLAG7 > 0)
		IF(PLAYER_NEUTRAL,BOX32_ACTIVATED != 0)
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 1)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,ARCHER,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 2)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,AVATAR,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 3)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,BARBARIAN,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 4)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,BILE_DEMON,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 5)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,BUG,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 6)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,DARK_MISTRESS,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 7)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,DEMONSPAWN,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 8)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,DRAGON,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 9)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,DRUID,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 10)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,DWARFA,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 11)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,FAIRY,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 12)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,FLY,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 13)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,GHOST,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 14)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,GIANT,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 15)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,HELL_HOUND,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 16)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,HORNY,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 17)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,KNIGHT,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 18)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,MONK,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 19)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,ORC,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 20)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,SAMURAI,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 21)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,SKELETON,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 22)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,SORCEROR,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 23)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,SPIDER,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 24)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,TENTACLE,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 25)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,THIEF,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 26)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,TIME_MAGE,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 27)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,TROLL,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 28)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,VAMPIRE,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 29)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,WITCH,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 30)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,WIZARD,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 31)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,THIEF,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
			IF(PLAYER_NEUTRAL,BOX32_ACTIVATED == 32)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER_NEUTRAL,HORNY,9,1,1,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER_NEUTRAL,BOX32_ACTIVATED,0)
			ENDIF
		ENDIF
	ENDIF
	IF(PLAYER_NEUTRAL,CAMPAIGN_FLAG0 > 8)
		IF(PLAYER_NEUTRAL,TIMER7 > PLAYER_NEUTRAL,CAMPAIGN_FLAG0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER_GOOD,BOX0_ACTIVATED,8)
			NEXT_COMMAND_REUSABLE
			SET_TIMER(PLAYER_NEUTRAL,TIMER7)
		ENDIF
	ENDIF
	IF(PLAYER_GOOD,BOX0_ACTIVATED != 0)
		IF(PLAYER_GOOD,BOX0_ACTIVATED == 1)
			NEXT_COMMAND_REUSABLE
			ADD_TO_FLAG(PLAYER0,BOX255_ACTIVATED,1)
			NEXT_COMMAND_REUSABLE
			ADD_TO_FLAG(PLAYER1,BOX255_ACTIVATED,1)
			NEXT_COMMAND_REUSABLE
			ADD_TO_FLAG(PLAYER2,BOX255_ACTIVATED,1)
			NEXT_COMMAND_REUSABLE
			ADD_TO_FLAG(PLAYER3,BOX255_ACTIVATED,1)
			NEXT_COMMAND_REUSABLE
			ADD_TO_FLAG(PLAYER4,BOX255_ACTIVATED,1)
			NEXT_COMMAND_REUSABLE
			ADD_TO_FLAG(PLAYER5,BOX255_ACTIVATED,1)
			NEXT_COMMAND_REUSABLE
			ADD_TO_FLAG(PLAYER6,BOX255_ACTIVATED,1)
			NEXT_COMMAND_REUSABLE
			ADD_TO_FLAG(PLAYER_GOOD,BOX255_ACTIVATED,1)
			NEXT_COMMAND_REUSABLE
			ADD_TO_FLAG(PLAYER_NEUTRAL,BOX255_ACTIVATED,1)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER_GOOD,BOX0_ACTIVATED,0)
		ENDIF
		IF(PLAYER_GOOD,BOX0_ACTIVATED == 2)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER0,BOX200_ACTIVATED,2)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER0,BOX255_ACTIVATED,INCREASE,PLAYER0,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER1,BOX200_ACTIVATED,2)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER1,BOX255_ACTIVATED,INCREASE,PLAYER1,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER2,BOX200_ACTIVATED,2)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER2,BOX255_ACTIVATED,INCREASE,PLAYER2,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER3,BOX200_ACTIVATED,2)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER3,BOX255_ACTIVATED,INCREASE,PLAYER3,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER4,BOX200_ACTIVATED,2)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER4,BOX255_ACTIVATED,INCREASE,PLAYER4,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER5,BOX200_ACTIVATED,2)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER5,BOX255_ACTIVATED,INCREASE,PLAYER5,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER6,BOX200_ACTIVATED,2)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER6,BOX255_ACTIVATED,INCREASE,PLAYER6,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER_GOOD,BOX200_ACTIVATED,2)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER_GOOD,BOX255_ACTIVATED,INCREASE,PLAYER_GOOD,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER_NEUTRAL,BOX200_ACTIVATED,2)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER_NEUTRAL,BOX255_ACTIVATED,INCREASE,PLAYER_NEUTRAL,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER_GOOD,BOX0_ACTIVATED,0)
		ENDIF
		IF(PLAYER_GOOD,BOX0_ACTIVATED == 3)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER0,BOX200_ACTIVATED,3)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER0,BOX255_ACTIVATED,INCREASE,PLAYER0,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER1,BOX200_ACTIVATED,3)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER1,BOX255_ACTIVATED,INCREASE,PLAYER1,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER2,BOX200_ACTIVATED,3)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER2,BOX255_ACTIVATED,INCREASE,PLAYER2,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER3,BOX200_ACTIVATED,3)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER3,BOX255_ACTIVATED,INCREASE,PLAYER3,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER4,BOX200_ACTIVATED,3)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER4,BOX255_ACTIVATED,INCREASE,PLAYER4,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER5,BOX200_ACTIVATED,3)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER5,BOX255_ACTIVATED,INCREASE,PLAYER5,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER6,BOX200_ACTIVATED,3)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER6,BOX255_ACTIVATED,INCREASE,PLAYER6,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER_GOOD,BOX200_ACTIVATED,3)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER_GOOD,BOX255_ACTIVATED,INCREASE,PLAYER_GOOD,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER_NEUTRAL,BOX200_ACTIVATED,3)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER_NEUTRAL,BOX255_ACTIVATED,INCREASE,PLAYER_NEUTRAL,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER_GOOD,BOX0_ACTIVATED,0)
		ENDIF
		IF(PLAYER_GOOD,BOX0_ACTIVATED == 4)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER0,BOX200_ACTIVATED,4)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER0,BOX255_ACTIVATED,INCREASE,PLAYER0,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER1,BOX200_ACTIVATED,4)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER1,BOX255_ACTIVATED,INCREASE,PLAYER1,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER2,BOX200_ACTIVATED,4)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER2,BOX255_ACTIVATED,INCREASE,PLAYER2,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER3,BOX200_ACTIVATED,4)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER3,BOX255_ACTIVATED,INCREASE,PLAYER3,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER4,BOX200_ACTIVATED,4)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER4,BOX255_ACTIVATED,INCREASE,PLAYER4,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER5,BOX200_ACTIVATED,4)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER5,BOX255_ACTIVATED,INCREASE,PLAYER5,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER6,BOX200_ACTIVATED,4)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER6,BOX255_ACTIVATED,INCREASE,PLAYER6,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER_GOOD,BOX200_ACTIVATED,4)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER_GOOD,BOX255_ACTIVATED,INCREASE,PLAYER_GOOD,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER_NEUTRAL,BOX200_ACTIVATED,4)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER_NEUTRAL,BOX255_ACTIVATED,INCREASE,PLAYER_NEUTRAL,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER_GOOD,BOX0_ACTIVATED,0)
		ENDIF
		IF(PLAYER_GOOD,BOX0_ACTIVATED == 5)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER0,BOX200_ACTIVATED,5)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER0,BOX255_ACTIVATED,INCREASE,PLAYER0,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER1,BOX200_ACTIVATED,5)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER1,BOX255_ACTIVATED,INCREASE,PLAYER1,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER2,BOX200_ACTIVATED,5)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER2,BOX255_ACTIVATED,INCREASE,PLAYER2,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER3,BOX200_ACTIVATED,5)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER3,BOX255_ACTIVATED,INCREASE,PLAYER3,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER4,BOX200_ACTIVATED,5)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER4,BOX255_ACTIVATED,INCREASE,PLAYER4,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER5,BOX200_ACTIVATED,5)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER5,BOX255_ACTIVATED,INCREASE,PLAYER5,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER6,BOX200_ACTIVATED,5)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER6,BOX255_ACTIVATED,INCREASE,PLAYER6,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER_GOOD,BOX200_ACTIVATED,5)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER_GOOD,BOX255_ACTIVATED,INCREASE,PLAYER_GOOD,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER_NEUTRAL,BOX200_ACTIVATED,5)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER_NEUTRAL,BOX255_ACTIVATED,INCREASE,PLAYER_NEUTRAL,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER_GOOD,BOX0_ACTIVATED,0)
		ENDIF
		IF(PLAYER_GOOD,BOX0_ACTIVATED == 6)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER0,BOX200_ACTIVATED,6)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER0,BOX255_ACTIVATED,INCREASE,PLAYER0,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER1,BOX200_ACTIVATED,6)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER1,BOX255_ACTIVATED,INCREASE,PLAYER1,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER2,BOX200_ACTIVATED,6)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER2,BOX255_ACTIVATED,INCREASE,PLAYER2,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER3,BOX200_ACTIVATED,6)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER3,BOX255_ACTIVATED,INCREASE,PLAYER3,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER4,BOX200_ACTIVATED,6)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER4,BOX255_ACTIVATED,INCREASE,PLAYER4,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER5,BOX200_ACTIVATED,6)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER5,BOX255_ACTIVATED,INCREASE,PLAYER5,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER6,BOX200_ACTIVATED,6)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER6,BOX255_ACTIVATED,INCREASE,PLAYER6,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER_GOOD,BOX200_ACTIVATED,6)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER_GOOD,BOX255_ACTIVATED,INCREASE,PLAYER_GOOD,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER_NEUTRAL,BOX200_ACTIVATED,6)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER_NEUTRAL,BOX255_ACTIVATED,INCREASE,PLAYER_NEUTRAL,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER_GOOD,BOX0_ACTIVATED,0)
		ENDIF
		IF(PLAYER_GOOD,BOX0_ACTIVATED == 7)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER0,BOX200_ACTIVATED,7)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER0,BOX255_ACTIVATED,INCREASE,PLAYER0,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER1,BOX200_ACTIVATED,7)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER1,BOX255_ACTIVATED,INCREASE,PLAYER1,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER2,BOX200_ACTIVATED,7)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER2,BOX255_ACTIVATED,INCREASE,PLAYER2,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER3,BOX200_ACTIVATED,7)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER3,BOX255_ACTIVATED,INCREASE,PLAYER3,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER4,BOX200_ACTIVATED,7)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER4,BOX255_ACTIVATED,INCREASE,PLAYER4,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER5,BOX200_ACTIVATED,7)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER5,BOX255_ACTIVATED,INCREASE,PLAYER5,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER6,BOX200_ACTIVATED,7)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER6,BOX255_ACTIVATED,INCREASE,PLAYER6,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER_GOOD,BOX200_ACTIVATED,7)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER_GOOD,BOX255_ACTIVATED,INCREASE,PLAYER_GOOD,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER_NEUTRAL,BOX200_ACTIVATED,7)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER_NEUTRAL,BOX255_ACTIVATED,INCREASE,PLAYER_NEUTRAL,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER_GOOD,BOX0_ACTIVATED,0)
		ENDIF
		IF(PLAYER_GOOD,BOX0_ACTIVATED == 2)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER0,BOX200_ACTIVATED,8)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER0,BOX255_ACTIVATED,INCREASE,PLAYER0,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER1,BOX200_ACTIVATED,8)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER1,BOX255_ACTIVATED,INCREASE,PLAYER1,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER2,BOX200_ACTIVATED,8)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER2,BOX255_ACTIVATED,INCREASE,PLAYER2,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER3,BOX200_ACTIVATED,8)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER3,BOX255_ACTIVATED,INCREASE,PLAYER3,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER4,BOX200_ACTIVATED,8)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER4,BOX255_ACTIVATED,INCREASE,PLAYER4,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER5,BOX200_ACTIVATED,8)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER5,BOX255_ACTIVATED,INCREASE,PLAYER5,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER6,BOX200_ACTIVATED,8)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER6,BOX255_ACTIVATED,INCREASE,PLAYER6,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER_GOOD,BOX200_ACTIVATED,8)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER_GOOD,BOX255_ACTIVATED,INCREASE,PLAYER_GOOD,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			RANDOMISE_FLAG(PLAYER_NEUTRAL,BOX200_ACTIVATED,8)
			NEXT_COMMAND_REUSABLE
			COMPUTE_FLAG(PLAYER_NEUTRAL,BOX255_ACTIVATED,INCREASE,PLAYER_NEUTRAL,BOX200_ACTIVATED,0)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER_GOOD,BOX0_ACTIVATED,0)
		ENDIF
	ENDIF
ENDIF

REM # Loop for PLAYER0.
IF(PLAYER0,DUNGEON_DESTROYED == 0)
	IF(PLAYER_GOOD,GAME_TURN > 0)
		SET_TIMER(PLAYER0,TIMER0)
		NEXT_COMMAND_REUSABLE
		COMPUTE_FLAG(PLAYER0,FLAG7,SET,PLAYER0,TOTAL_CREATURES,0)
		NEXT_COMMAND_REUSABLE
		COMPUTE_FLAG(PLAYER0,FLAG7,MULTIPLY,PLAYER0,TOTAL_CREATURES,0)
		NEXT_COMMAND_REUSABLE
		RANDOMISE_FLAG(PLAYER0,FLAG7)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER0,FLAG7,20)
	ENDIF
	IF(PLAYER0,TIMER0 > PLAYER0,FLAG7)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER0,FLAG0,1)
		NEXT_COMMAND_REUSABLE
		SET_TIMER(PLAYER0,TIMER0)
	ENDIF
	IF(PLAYER0,TOTAL_CREATURES > 0)
		IF(PLAYER0,BOX255_ACTIVATED > 0)
			NEXT_COMMAND_REUSABLE
			LEVEL_UP_CREATURE(PLAYER0,ANY_CREATURE,LEAST_EXPERIENCED,1)
			NEXT_COMMAND_REUSABLE
			ADD_TO_FLAG(PLAYER0,BOX255_ACTIVATED,-1)
		ENDIF
	ENDIF
ENDIF

REM # Loop for PLAYER1.
IF(PLAYER_GOOD,GAME_TURN > 0)
	IF(PLAYER_GOOD,GAME_TURN > 0)
		SET_TIMER(PLAYER1,TIMER0)
		NEXT_COMMAND_REUSABLE
		COMPUTE_FLAG(PLAYER1,FLAG7,SET,PLAYER1,TOTAL_CREATURES,0)
		NEXT_COMMAND_REUSABLE
		COMPUTE_FLAG(PLAYER1,FLAG7,MULTIPLY,PLAYER1,TOTAL_CREATURES,0)
		NEXT_COMMAND_REUSABLE
		RANDOMISE_FLAG(PLAYER1,FLAG7)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER1,FLAG7,20)
	ENDIF
	IF(PLAYER1,TIMER0 > PLAYER1,FLAG7)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER1,FLAG0,1)
		NEXT_COMMAND_REUSABLE
		SET_TIMER(PLAYER1,TIMER0)
	ENDIF
	IF(PLAYER1,TOTAL_CREATURES > 0)
		IF(PLAYER1,BOX255_ACTIVATED > 0)
			NEXT_COMMAND_REUSABLE
			LEVEL_UP_CREATURE(PLAYER1,ANY_CREATURE,LEAST_EXPERIENCED,1)
			NEXT_COMMAND_REUSABLE
			ADD_TO_FLAG(PLAYER1,BOX255_ACTIVATED,-1)
		ENDIF
	ENDIF
ENDIF

REM # Loop for PLAYER2.
IF(PLAYER_GOOD,GAME_TURN > 0)
	IF(PLAYER_GOOD,GAME_TURN > 0)
		SET_TIMER(PLAYER2,TIMER0)
		NEXT_COMMAND_REUSABLE
		COMPUTE_FLAG(PLAYER2,FLAG7,SET,PLAYER2,TOTAL_CREATURES,0)
		NEXT_COMMAND_REUSABLE
		COMPUTE_FLAG(PLAYER2,FLAG7,MULTIPLY,PLAYER2,TOTAL_CREATURES,0)
		NEXT_COMMAND_REUSABLE
		RANDOMISE_FLAG(PLAYER2,FLAG7)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER2,FLAG7,20)
	ENDIF
	IF(PLAYER2,TIMER0 > PLAYER2,FLAG7)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER2,FLAG0,1)
		NEXT_COMMAND_REUSABLE
		SET_TIMER(PLAYER2,TIMER0)
	ENDIF
	IF(PLAYER2,TOTAL_CREATURES > 0)
		IF(PLAYER2,BOX255_ACTIVATED > 0)
			NEXT_COMMAND_REUSABLE
			LEVEL_UP_CREATURE(PLAYER2,ANY_CREATURE,LEAST_EXPERIENCED,1)
			NEXT_COMMAND_REUSABLE
			ADD_TO_FLAG(PLAYER2,BOX255_ACTIVATED,-1)
		ENDIF
	ENDIF
ENDIF

REM # Loop for PLAYER3.
IF(PLAYER_GOOD,GAME_TURN > 0)
	IF(PLAYER_GOOD,GAME_TURN > 0)
		SET_TIMER(PLAYER3,TIMER0)
		NEXT_COMMAND_REUSABLE
		COMPUTE_FLAG(PLAYER3,FLAG7,SET,PLAYER3,TOTAL_CREATURES,0)
		NEXT_COMMAND_REUSABLE
		COMPUTE_FLAG(PLAYER3,FLAG7,MULTIPLY,PLAYER3,TOTAL_CREATURES,0)
		NEXT_COMMAND_REUSABLE
		RANDOMISE_FLAG(PLAYER3,FLAG7)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER3,FLAG7,20)
	ENDIF
	IF(PLAYER3,TIMER0 > PLAYER3,FLAG7)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER3,FLAG0,1)
		NEXT_COMMAND_REUSABLE
		SET_TIMER(PLAYER3,TIMER0)
	ENDIF
	IF(PLAYER3,TOTAL_CREATURES > 0)
		IF(PLAYER3,BOX255_ACTIVATED > 0)
			NEXT_COMMAND_REUSABLE
			LEVEL_UP_CREATURE(PLAYER3,ANY_CREATURE,LEAST_EXPERIENCED,1)
			NEXT_COMMAND_REUSABLE
			ADD_TO_FLAG(PLAYER3,BOX255_ACTIVATED,-1)
		ENDIF
	ENDIF
ENDIF

REM # Loop for PLAYER4.
IF(PLAYER_GOOD,GAME_TURN > 0)
	IF(PLAYER_GOOD,GAME_TURN > 0)
		SET_TIMER(PLAYER4,TIMER0)
		NEXT_COMMAND_REUSABLE
		COMPUTE_FLAG(PLAYER4,FLAG7,SET,PLAYER4,TOTAL_CREATURES,0)
		NEXT_COMMAND_REUSABLE
		COMPUTE_FLAG(PLAYER4,FLAG7,MULTIPLY,PLAYER4,TOTAL_CREATURES,0)
		NEXT_COMMAND_REUSABLE
		RANDOMISE_FLAG(PLAYER4,FLAG7)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER4,FLAG7,20)
	ENDIF
	IF(PLAYER4,TIMER0 > PLAYER4,FLAG7)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER4,FLAG0,1)
		NEXT_COMMAND_REUSABLE
		SET_TIMER(PLAYER4,TIMER0)
	ENDIF
	IF(PLAYER4,TOTAL_CREATURES > 0)
		IF(PLAYER4,BOX255_ACTIVATED > 0)
			NEXT_COMMAND_REUSABLE
			LEVEL_UP_CREATURE(PLAYER4,ANY_CREATURE,LEAST_EXPERIENCED,1)
			NEXT_COMMAND_REUSABLE
			ADD_TO_FLAG(PLAYER4,BOX255_ACTIVATED,-1)
		ENDIF
	ENDIF
ENDIF

REM # Loop for PLAYER5.
IF(PLAYER_GOOD,GAME_TURN > 0)
	IF(PLAYER_GOOD,GAME_TURN > 0)
		SET_TIMER(PLAYER5,TIMER0)
		NEXT_COMMAND_REUSABLE
		COMPUTE_FLAG(PLAYER5,FLAG7,SET,PLAYER5,TOTAL_CREATURES,0)
		NEXT_COMMAND_REUSABLE
		COMPUTE_FLAG(PLAYER5,FLAG7,MULTIPLY,PLAYER5,TOTAL_CREATURES,0)
		NEXT_COMMAND_REUSABLE
		RANDOMISE_FLAG(PLAYER5,FLAG7)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER5,FLAG7,20)
	ENDIF
	IF(PLAYER5,TIMER0 > PLAYER5,FLAG7)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER5,FLAG0,1)
		NEXT_COMMAND_REUSABLE
		SET_TIMER(PLAYER5,TIMER0)
	ENDIF
	IF(PLAYER5,TOTAL_CREATURES > 0)
		IF(PLAYER5,BOX255_ACTIVATED > 0)
			NEXT_COMMAND_REUSABLE
			LEVEL_UP_CREATURE(PLAYER5,ANY_CREATURE,LEAST_EXPERIENCED,1)
			NEXT_COMMAND_REUSABLE
			ADD_TO_FLAG(PLAYER5,BOX255_ACTIVATED,-1)
		ENDIF
	ENDIF
ENDIF

REM # Loop for PLAYER6.
IF(PLAYER_GOOD,GAME_TURN > 0)
	IF(PLAYER_GOOD,GAME_TURN > 0)
		SET_TIMER(PLAYER6,TIMER0)
		NEXT_COMMAND_REUSABLE
		COMPUTE_FLAG(PLAYER6,FLAG7,SET,PLAYER6,TOTAL_CREATURES,0)
		NEXT_COMMAND_REUSABLE
		COMPUTE_FLAG(PLAYER6,FLAG7,MULTIPLY,PLAYER6,TOTAL_CREATURES,0)
		NEXT_COMMAND_REUSABLE
		RANDOMISE_FLAG(PLAYER6,FLAG7)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER6,FLAG7,20)
	ENDIF
	IF(PLAYER6,TIMER0 > PLAYER6,FLAG7)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER6,FLAG0,1)
		NEXT_COMMAND_REUSABLE
		SET_TIMER(PLAYER6,TIMER0)
	ENDIF
	IF(PLAYER6,TOTAL_CREATURES > 0)
		IF(PLAYER6,BOX255_ACTIVATED > 0)
			NEXT_COMMAND_REUSABLE
			LEVEL_UP_CREATURE(PLAYER6,ANY_CREATURE,LEAST_EXPERIENCED,1)
			NEXT_COMMAND_REUSABLE
			ADD_TO_FLAG(PLAYER6,BOX255_ACTIVATED,-1)
		ENDIF
	ENDIF
ENDIF

REM # Loop for PLAYER_GOOD - A.
IF(PLAYER_GOOD,GAME_TURN > 0)
	IF(PLAYER_GOOD,GAME_TURN > 0)
		SET_TIMER(PLAYER_GOOD,TIMER0)
		NEXT_COMMAND_REUSABLE
		COMPUTE_FLAG(PLAYER_GOOD,FLAG7,SET,PLAYER_GOOD,TOTAL_CREATURES,0)
		NEXT_COMMAND_REUSABLE
		COMPUTE_FLAG(PLAYER_GOOD,FLAG7,MULTIPLY,PLAYER_GOOD,TOTAL_CREATURES,0)
		NEXT_COMMAND_REUSABLE
		RANDOMISE_FLAG(PLAYER_GOOD,FLAG7)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER_GOOD,FLAG7,20)
	ENDIF
	IF(PLAYER_GOOD,TIMER0 > PLAYER_GOOD,FLAG7)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER_GOOD,FLAG0,1)
		NEXT_COMMAND_REUSABLE
		SET_TIMER(PLAYER_GOOD,TIMER0)
	ENDIF
	IF(PLAYER_GOOD,TOTAL_CREATURES > 0)
		IF(PLAYER_GOOD,BOX255_ACTIVATED > 0)
			NEXT_COMMAND_REUSABLE
			LEVEL_UP_CREATURE(PLAYER_GOOD,ANY_CREATURE,LEAST_EXPERIENCED,1)
			NEXT_COMMAND_REUSABLE
			ADD_TO_FLAG(PLAYER_GOOD,BOX255_ACTIVATED,-1)
		ENDIF
	ENDIF
ENDIF

REM # Loop for PLAYER_GOOD - B.
IF(PLAYER_GOOD,GAME_TURN > 0)
	IF(PLAYER_GOOD,GAME_TURN > 0)
		SET_TIMER(PLAYER_NEUTRAL,TIMER0)
		NEXT_COMMAND_REUSABLE
		COMPUTE_FLAG(PLAYER_NEUTRAL,FLAG7,SET,PLAYER_GOOD,TOTAL_CREATURES,0)
		NEXT_COMMAND_REUSABLE
		COMPUTE_FLAG(PLAYER_NEUTRAL,FLAG7,MULTIPLY,PLAYER_GOOD,TOTAL_CREATURES,0)
		NEXT_COMMAND_REUSABLE
		RANDOMISE_FLAG(PLAYER_NEUTRAL,FLAG7)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER_NEUTRAL,FLAG7,20)
	ENDIF
	IF(PLAYER_NEUTRAL,TIMER0 > PLAYER_NEUTRAL,FLAG7)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER_NEUTRAL,FLAG0,1)
		NEXT_COMMAND_REUSABLE
		SET_TIMER(PLAYER_NEUTRAL,TIMER0)
	ENDIF
	IF(PLAYER_GOOD,TOTAL_CREATURES > 0)
		IF(PLAYER_NEUTRAL,BOX255_ACTIVATED > 0)
			NEXT_COMMAND_REUSABLE
			LEVEL_UP_CREATURE(PLAYER_GOOD,ANY_CREATURE,LEAST_EXPERIENCED,1)
			NEXT_COMMAND_REUSABLE
			ADD_TO_FLAG(PLAYER_NEUTRAL,BOX255_ACTIVATED,-1)
		ENDIF
	ENDIF
ENDIF

REM # Move Creature.
IF(PLAYER_GOOD,GAME_TURN > 0)
	IF(PLAYER0,FLAG0 > 0)
		NEXT_COMMAND_REUSABLE
		MOVE_CREATURE(PLAYER_NEUTRAL,ANY_CREATURE,AT_ACTION_POINT[9],1,PLAYER0)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER0,FLAG0,-1)
	ENDIF
	IF(PLAYER1,FLAG0 > 0)
		NEXT_COMMAND_REUSABLE
		MOVE_CREATURE(PLAYER_NEUTRAL,ANY_CREATURE,AT_ACTION_POINT[9],1,-1)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER1,FLAG0,-1)
	ENDIF
	IF(PLAYER2,FLAG0 > 0)
		NEXT_COMMAND_REUSABLE
		MOVE_CREATURE(PLAYER_NEUTRAL,ANY_CREATURE,AT_ACTION_POINT[9],1,-2)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER2,FLAG0,-1)
	ENDIF
	IF(PLAYER3,FLAG0 > 0)
		NEXT_COMMAND_REUSABLE
		MOVE_CREATURE(PLAYER_NEUTRAL,ANY_CREATURE,AT_ACTION_POINT[9],1,-3)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER3,FLAG0,-1)
	ENDIF
	IF(PLAYER4,FLAG0 > 0)
		NEXT_COMMAND_REUSABLE
		MOVE_CREATURE(PLAYER_NEUTRAL,ANY_CREATURE,AT_ACTION_POINT[9],1,-4)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER4,FLAG0,-1)
	ENDIF
	IF(PLAYER5,FLAG0 > 0)
		NEXT_COMMAND_REUSABLE
		MOVE_CREATURE(PLAYER_NEUTRAL,ANY_CREATURE,AT_ACTION_POINT[9],1,-5)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER5,FLAG0,-1)
	ENDIF
	IF(PLAYER6,FLAG0 > 0)
		NEXT_COMMAND_REUSABLE
		MOVE_CREATURE(PLAYER_NEUTRAL,ANY_CREATURE,AT_ACTION_POINT[9],1,-6)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER6,FLAG0,-1)
	ENDIF
	IF(PLAYER_GOOD,FLAG0 > 0)
		NEXT_COMMAND_REUSABLE
		MOVE_CREATURE(PLAYER_NEUTRAL,ANY_CREATURE,AT_ACTION_POINT[9],1,-7)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER_GOOD,FLAG0,-1)
	ENDIF
	IF(PLAYER_NEUTRAL,FLAG0 > 0)
		NEXT_COMMAND_REUSABLE
		MOVE_CREATURE(PLAYER_NEUTRAL,ANY_CREATURE,AT_ACTION_POINT[9],1,-8)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER_NEUTRAL,FLAG0,-1)
	ENDIF
ENDIF

REM # Change Creature Owner.
IF(PLAYER_GOOD,GAME_TURN > 0)
	IF(PLAYER0,FLAG0 > 0)
		NEXT_COMMAND_REUSABLE
		CHANGE_CREATURE_OWNER(PLAYER_NEUTRAL,ANY_CREATURE,AT_ACTION_POINT[10],PLAYER0)
	ENDIF
	IF(PLAYER1,FLAG0 > 0)
		NEXT_COMMAND_REUSABLE
		CHANGE_CREATURE_OWNER(PLAYER_NEUTRAL,ANY_CREATURE,AT_ACTION_POINT[1],PLAYER1)
	ENDIF
	IF(PLAYER2,FLAG0 > 0)
		NEXT_COMMAND_REUSABLE
		CHANGE_CREATURE_OWNER(PLAYER_NEUTRAL,ANY_CREATURE,AT_ACTION_POINT[2],PLAYER2)
	ENDIF
	IF(PLAYER3,FLAG0 > 0)
		NEXT_COMMAND_REUSABLE
		CHANGE_CREATURE_OWNER(PLAYER_NEUTRAL,ANY_CREATURE,AT_ACTION_POINT[3],PLAYER3)
	ENDIF
	IF(PLAYER4,FLAG0 > 0)
		NEXT_COMMAND_REUSABLE
		CHANGE_CREATURE_OWNER(PLAYER_NEUTRAL,ANY_CREATURE,AT_ACTION_POINT[4],PLAYER4)
	ENDIF
	IF(PLAYER5,FLAG0 > 0)
		NEXT_COMMAND_REUSABLE
		CHANGE_CREATURE_OWNER(PLAYER_NEUTRAL,ANY_CREATURE,AT_ACTION_POINT[5],PLAYER5)
	ENDIF
	IF(PLAYER6,FLAG0 > 0)
		NEXT_COMMAND_REUSABLE
		CHANGE_CREATURE_OWNER(PLAYER_NEUTRAL,ANY_CREATURE,AT_ACTION_POINT[6],PLAYER6)
	ENDIF
	IF(PLAYER_GOOD,FLAG0 > 0)
		NEXT_COMMAND_REUSABLE
		CHANGE_CREATURE_OWNER(PLAYER_NEUTRAL,ANY_CREATURE,AT_ACTION_POINT[7],PLAYER_GOOD)
	ENDIF
	IF(PLAYER_NEUTRAL,FLAG0 > 0)
		NEXT_COMMAND_REUSABLE
		CHANGE_CREATURE_OWNER(PLAYER_NEUTRAL,ANY_CREATURE,AT_ACTION_POINT[8],PLAYER_GOOD)
	ENDIF
ENDIF

REM # Win Condition.
IF(PLAYER0,DUNGEON_DESTROYED == 1)
	WIN_GAME
ENDIF