LEVEL_VERSION(1)
RUN_AFTER_VICTORY(1)

SET_GENERATE_SPEED(500)

COMPUTER_PLAYER(PLAYER1,0)
COMPUTER_PLAYER(PLAYER2,0)
SET_COMPUTER_GLOBALS(PLAYER1,60,1,1,1,1900,1)
SET_COMPUTER_GLOBALS(PLAYER2,70,1,2,1,1700,1)
SET_COMPUTER_CHECKS(PLAYER1,"CHECK FOR NEUTRAL PLACES",1000,0,0,0,30000)
SET_COMPUTER_PROCESS(PLAYER1,"BUILD A TREASURE ROOM",-10,4,4,2,7)
SET_COMPUTER_PROCESS(PLAYER1,"BUILD A HATCHERY",-20,6,6,13,14)
SET_COMPUTER_PROCESS(PLAYER1,"BUILD A RESEARCH ROOM",-30,5,5,3,2)
SET_COMPUTER_PROCESS(PLAYER1,"BUILD A TRAINING ROOM",-40,4,4,6,13)
SET_COMPUTER_PROCESS(PLAYER1,"BUILD A WORKSHOP ROOM",-50,7,7,8,13)
SET_COMPUTER_PROCESS(PLAYER1,"BUILD A BARRACK ROOM",-60,3,3,12,2)
SET_COMPUTER_PROCESS(PLAYER1,"BUILD A PRISON ROOM",-70,4,4,4,12)
SET_COMPUTER_PROCESS(PLAYER1,"BUILD A TORTURE ROOM",-80,4,4,5,4)
SET_COMPUTER_PROCESS(PLAYER1,"BUILD A TEMPLE ROOM",-90,3,3,10,3)
SET_COMPUTER_PROCESS(PLAYER1,"BUILD A GRAVEYARD ROOM",-100,6,6,11,5)
SET_COMPUTER_PROCESS(PLAYER1,"BUILD A SCAVENGER ROOM",-110,3,3,9,10)
SET_COMPUTER_PROCESS(PLAYER2,"BUILD A TREASURE ROOM",-10,4,4,2,7)
SET_COMPUTER_PROCESS(PLAYER2,"BUILD A HATCHERY",-20,6,6,13,14)
SET_COMPUTER_PROCESS(PLAYER2,"BUILD A RESEARCH ROOM",-30,5,5,3,2)
SET_COMPUTER_PROCESS(PLAYER2,"BUILD A TRAINING ROOM",-40,4,4,6,13)
SET_COMPUTER_PROCESS(PLAYER2,"BUILD A WORKSHOP ROOM",-50,7,7,8,13)
SET_COMPUTER_PROCESS(PLAYER2,"BUILD A BARRACK ROOM",-60,3,3,12,2)
SET_COMPUTER_PROCESS(PLAYER2,"BUILD A PRISON ROOM",-70,4,4,4,12)
SET_COMPUTER_PROCESS(PLAYER2,"BUILD A TORTURE ROOM",-80,4,4,5,4)
SET_COMPUTER_PROCESS(PLAYER2,"BUILD A TEMPLE ROOM",-90,3,3,10,3)
SET_COMPUTER_PROCESS(PLAYER2,"BUILD A GRAVEYARD ROOM",-100,6,6,11,5)
SET_COMPUTER_PROCESS(PLAYER2,"BUILD A SCAVENGER ROOM",-110,3,3,9,10)

ALLY_PLAYERS(PLAYER1,PLAYER2,1)

START_MONEY(PLAYER0,3000)
START_MONEY(PLAYER1,7500)
START_MONEY(PLAYER2,7500)

SET_FLAG(PLAYER_GOOD,BOX219_ACTIVATED,20)
MAX_CREATURES(PLAYER0,20)
MAX_CREATURES(PLAYER1,22)
MAX_CREATURES(PLAYER2,22)

ADD_CREATURE_TO_POOL(HELL_HOUND,50)
ADD_CREATURE_TO_POOL(DARK_MISTRESS,40)
ADD_CREATURE_TO_POOL(SORCEROR,40)
ADD_CREATURE_TO_POOL(BILE_DEMON,40)
ADD_CREATURE_TO_POOL(DRAGON,40)
ADD_CREATURE_TO_POOL(ORC,40)

CREATURE_AVAILABLE(PLAYER1,HELL_HOUND,1,0)
CREATURE_AVAILABLE(PLAYER1,DARK_MISTRESS,1,0)
CREATURE_AVAILABLE(PLAYER1,SORCEROR,1,0)
CREATURE_AVAILABLE(PLAYER1,BILE_DEMON,1,0)
CREATURE_AVAILABLE(PLAYER1,DRAGON,1,0)
CREATURE_AVAILABLE(PLAYER1,ORC,1,0)
CREATURE_AVAILABLE(PLAYER2,HELL_HOUND,1,0)
CREATURE_AVAILABLE(PLAYER2,DARK_MISTRESS,1,0)
CREATURE_AVAILABLE(PLAYER2,SORCEROR,1,0)
CREATURE_AVAILABLE(PLAYER2,BILE_DEMON,1,0)
CREATURE_AVAILABLE(PLAYER2,DRAGON,1,0)
CREATURE_AVAILABLE(PLAYER2,ORC,1,0)

ROOM_AVAILABLE(ALL_PLAYERS,TREASURE,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,LAIR,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,GARDEN,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,TRAINING,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,RESEARCH,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,BARRACKS,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,GUARD_POST,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,BRIDGE,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,PRISON,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,TORTURE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,SCAVENGER,1,0)
ROOM_AVAILABLE(PLAYER0,TEMPLE,1,0)
ROOM_AVAILABLE(PLAYER1,TEMPLE,1,1)
ROOM_AVAILABLE(PLAYER2,TEMPLE,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,GRAVEYARD,1,0)

MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HAND,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_IMP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SLAP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SIGHT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_LIGHTNING,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_PROTECT,1,0)
MAGIC_AVAILABLE(PLAYER1,POWER_CONCEAL,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_DISEASE,1,0)
MAGIC_AVAILABLE(PLAYER2,POWER_CAVE_IN,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CHICKEN,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_DESTROY_WALLS,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_OBEY,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_ARMAGEDDON,1,0)

DOOR_AVAILABLE(ALL_PLAYERS,WOOD,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,ALARM,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,BRACED,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,POISON_GAS,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,STEEL,1,0)
TRAP_AVAILABLE(PLAYER1,BOULDER,1,0)
TRAP_AVAILABLE(PLAYER2,BOULDER,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,MAGIC,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,LIGHTNING,1,0)

IF(PLAYER1,PRISON >= 9)
	SET_CREATURE_TENDENCIES(PLAYER1,IMPRISON,1)
ENDIF

IF(PLAYER2,PRISON >= 9)
	SET_CREATURE_TENDENCIES(PLAYER2,IMPRISON,1)
ENDIF

DISPLAY_OBJECTIVE(108,ALL_PLAYERS)

IF(PLAYER0,WORKSHOP > 0)
	ROOM_AVAILABLE(PLAYER0,WORKSHOP,1,1)
ENDIF

IF(PLAYER1,DUNGEON_DESTROYED == 1)
	IF(PLAYER2,DUNGEON_DESTROYED == 1)
		DISPLAY_OBJECTIVE(111,ALL_PLAYERS)
		SET_FLAG(PLAYER_GOOD,FLAG0,1)
	ENDIF
ENDIF

IF_ACTION_POINT(1,PLAYER0)
	SET_TIMER(PLAYER0,TIMER3)
	ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,WIZARD,-1,5,8,0)
ENDIF

IF(PLAYER_GOOD,FLAG0 == 1)
	IF(PLAYER0,TIMER3 >= 200)
		IF_CONTROLS(PLAYER_GOOD,WIZARD <= 0)
			ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,KNIGHT,-1,1,10,1000000)
			ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,GIANT,-1,4,7,1000)
			SET_TIMER(PLAYER0,TIMER2)
		ENDIF
	ENDIF
ENDIF

IF(PLAYER0,TIMER2 >= 200)
	IF_CONTROLS(PLAYER_GOOD,KNIGHT <= 0)
		DISPLAY_OBJECTIVE(112,ALL_PLAYERS)
		WIN_GAME
	ENDIF
ENDIF	

IF_ACTION_POINT(2,PLAYER0)
	ROOM_AVAILABLE(PLAYER0,BRIDGE,0,0)
	TUTORIAL_FLASH_BUTTON(18,100)
ENDIF

ADD_CREATURE_TO_LEVEL(PLAYER1,SORCEROR,PLAYER1,1,10,0)
ADD_CREATURE_TO_LEVEL(PLAYER1,SORCEROR,PLAYER1,1,3,0)
ADD_CREATURE_TO_LEVEL(PLAYER1,SORCEROR,PLAYER1,1,2,0)
ADD_CREATURE_TO_LEVEL(PLAYER2,DRUID,PLAYER2,1,10,0)
ADD_CREATURE_TO_LEVEL(PLAYER2,DRUID,PLAYER2,1,3,0)
ADD_CREATURE_TO_LEVEL(PLAYER2,DRUID,PLAYER2,1,2,0)

REM # A Kind Only - WIZARD.
IF(PLAYER0,CAMPAIGN_FLAG0 == 1)
	ADD_CREATURE_TO_POOL(WIZARD,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,WIZARD,1,1)
	CREATURE_AVAILABLE(PLAYER0,WIZARD,1,32)
	SET_CREATURE_CONFIGURATION(WIZARD,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(WIZARD,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(WIZARD,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(WIZARD,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(WIZARD,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,WIZARD)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,WIZARD)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,WIZARD)
ENDIF

REM # A Kind Only - BARBARIAN.
IF(PLAYER0,CAMPAIGN_FLAG0 == 2)
	ADD_CREATURE_TO_POOL(BARBARIAN,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,BARBARIAN,1,1)
	CREATURE_AVAILABLE(PLAYER0,BARBARIAN,1,32)
	SET_CREATURE_CONFIGURATION(BARBARIAN,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(BARBARIAN,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(BARBARIAN,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(BARBARIAN,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(BARBARIAN,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,BARBARIAN)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,BARBARIAN)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,BARBARIAN)
ENDIF

REM # A Kind Only - ARCHER.
IF(PLAYER0,CAMPAIGN_FLAG0 == 3)
	ADD_CREATURE_TO_POOL(ARCHER,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,ARCHER,1,1)
	CREATURE_AVAILABLE(PLAYER0,ARCHER,1,32)
	SET_CREATURE_CONFIGURATION(ARCHER,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(ARCHER,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(ARCHER,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(ARCHER,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(ARCHER,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,ARCHER)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,ARCHER)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,ARCHER)
ENDIF

REM # A Kind Only - MONK.
IF(PLAYER0,CAMPAIGN_FLAG0 == 4)
	ADD_CREATURE_TO_POOL(MONK,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,MONK,1,1)
	CREATURE_AVAILABLE(PLAYER0,MONK,1,32)
	SET_CREATURE_CONFIGURATION(MONK,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(MONK,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(MONK,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(MONK,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(MONK,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,MONK)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,MONK)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,MONK)
ENDIF

REM # A Kind Only - DWARFA.
IF(PLAYER0,CAMPAIGN_FLAG0 == 5)
	ADD_CREATURE_TO_POOL(DWARFA,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,DWARFA,1,1)
	CREATURE_AVAILABLE(PLAYER0,DWARFA,1,32)
	SET_CREATURE_CONFIGURATION(DWARFA,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(DWARFA,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(DWARFA,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(DWARFA,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(DWARFA,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,DWARFA)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,DWARFA)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,DWARFA)
ENDIF

REM # A Kind Only - KNIGHT.
IF(PLAYER0,CAMPAIGN_FLAG0 == 6)
	ADD_CREATURE_TO_POOL(KNIGHT,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,KNIGHT,1,1)
	CREATURE_AVAILABLE(PLAYER0,KNIGHT,1,32)
	SET_CREATURE_CONFIGURATION(KNIGHT,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(KNIGHT,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(KNIGHT,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(KNIGHT,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(KNIGHT,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,KNIGHT)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,KNIGHT)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,KNIGHT)
ENDIF

REM # A Kind Only - AVATAR.
IF(PLAYER0,CAMPAIGN_FLAG0 == 7)
	ADD_CREATURE_TO_POOL(AVATAR,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,AVATAR,1,1)
	SET_CREATURE_CONFIGURATION(AVATAR,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(AVATAR,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(AVATAR,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(AVATAR,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(AVATAR,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,AVATAR)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,AVATAR)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,AVATAR)
ENDIF

REM # A Kind Only - TUNNELLER.
IF(PLAYER0,CAMPAIGN_FLAG0 == 8)
	ADD_CREATURE_TO_POOL(TUNNELLER,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,TUNNELLER,1,1)
	CREATURE_AVAILABLE(PLAYER0,TUNNELLER,1,32)
	SET_CREATURE_CONFIGURATION(TUNNELLER,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(TUNNELLER,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(TUNNELLER,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(TUNNELLER,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(TUNNELLER,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,TUNNELLER)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,TUNNELLER)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,TUNNELLER)
ENDIF

REM # A Kind Only - WITCH.
IF(PLAYER0,CAMPAIGN_FLAG0 == 9)
	ADD_CREATURE_TO_POOL(WITCH,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,WITCH,1,1)
	CREATURE_AVAILABLE(PLAYER0,WITCH,1,32)
	SET_CREATURE_CONFIGURATION(WITCH,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(WITCH,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(WITCH,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(WITCH,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(WITCH,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,WITCH)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,WITCH)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,WITCH)
ENDIF

REM # A Kind Only - GIANT.
IF(PLAYER0,CAMPAIGN_FLAG0 == 10)
	ADD_CREATURE_TO_POOL(GIANT,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,GIANT,1,1)
	CREATURE_AVAILABLE(PLAYER0,GIANT,1,32)
	SET_CREATURE_CONFIGURATION(GIANT,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(GIANT,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(GIANT,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(GIANT,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(GIANT,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,GIANT)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,GIANT)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,GIANT)
ENDIF

REM # A Kind Only - FAIRY.
IF(PLAYER0,CAMPAIGN_FLAG0 == 11)
	ADD_CREATURE_TO_POOL(FAIRY,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,FAIRY,1,1)
	CREATURE_AVAILABLE(PLAYER0,FAIRY,1,32)
	SET_CREATURE_CONFIGURATION(FAIRY,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(FAIRY,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(FAIRY,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(FAIRY,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(FAIRY,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,FAIRY)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,FAIRY)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,FAIRY)
ENDIF

REM # A Kind Only - THIEF.
IF(PLAYER0,CAMPAIGN_FLAG0 == 12)
	ADD_CREATURE_TO_POOL(THIEF,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,THIEF,1,1)
	CREATURE_AVAILABLE(PLAYER0,THIEF,1,32)
	SET_CREATURE_CONFIGURATION(THIEF,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(THIEF,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(THIEF,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(THIEF,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(THIEF,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,THIEF)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,THIEF)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,THIEF)
ENDIF

REM # A Kind Only - SAMURAI.
IF(PLAYER0,CAMPAIGN_FLAG0 == 13)
	ADD_CREATURE_TO_POOL(SAMURAI,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,SAMURAI,1,1)
	CREATURE_AVAILABLE(PLAYER0,SAMURAI,1,32)
	SET_CREATURE_CONFIGURATION(SAMURAI,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(SAMURAI,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(SAMURAI,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(SAMURAI,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(SAMURAI,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,SAMURAI)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,SAMURAI)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,SAMURAI)
ENDIF

REM # A Kind Only - HORNY.
IF(PLAYER0,CAMPAIGN_FLAG0 == 14)
	ADD_CREATURE_TO_POOL(HORNY,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,HORNY,1,1)
	CREATURE_AVAILABLE(PLAYER0,HORNY,1,7)
	SET_CREATURE_CONFIGURATION(HORNY,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(HORNY,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(HORNY,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(HORNY,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(HORNY,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,HORNY)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,HORNY)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,HORNY)
ENDIF

REM # A Kind Only - SKELETON.
IF(PLAYER0,CAMPAIGN_FLAG0 == 15)
	ADD_CREATURE_TO_POOL(SKELETON,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,SKELETON,1,1)
	CREATURE_AVAILABLE(PLAYER0,SKELETON,1,32)
	SET_CREATURE_CONFIGURATION(SKELETON,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(SKELETON,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(SKELETON,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(SKELETON,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(SKELETON,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,SKELETON)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,SKELETON)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,SKELETON)
ENDIF

REM # A Kind Only - TROLL.
IF(PLAYER0,CAMPAIGN_FLAG0 == 16)
	ADD_CREATURE_TO_POOL(TROLL,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,TROLL,1,1)
	CREATURE_AVAILABLE(PLAYER0,TROLL,1,32)
	SET_CREATURE_CONFIGURATION(TROLL,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(TROLL,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(TROLL,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(TROLL,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(TROLL,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,TROLL)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,TROLL)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,TROLL)
ENDIF

REM # A Kind Only - DRAGON.
IF(PLAYER0,CAMPAIGN_FLAG0 == 17)
	ADD_CREATURE_TO_POOL(DRAGON,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,DRAGON,1,1)
	CREATURE_AVAILABLE(PLAYER0,DRAGON,1,32)
	SET_CREATURE_CONFIGURATION(DRAGON,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(DRAGON,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(DRAGON,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(DRAGON,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(DRAGON,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,DRAGON)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,DRAGON)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,DRAGON)
ENDIF

REM # A Kind Only - DEMONSPAWN.
IF(PLAYER0,CAMPAIGN_FLAG0 == 18)
	ADD_CREATURE_TO_POOL(DEMONSPAWN,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,DEMONSPAWN,1,1)
	CREATURE_AVAILABLE(PLAYER0,DEMONSPAWN,1,32)
	SET_CREATURE_CONFIGURATION(DEMONSPAWN,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(DEMONSPAWN,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(DEMONSPAWN,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(DEMONSPAWN,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(DEMONSPAWN,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,DEMONSPAWN)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,DEMONSPAWN)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,DEMONSPAWN)
ENDIF

REM # A Kind Only - FLY.
IF(PLAYER0,CAMPAIGN_FLAG0 == 19)
	ADD_CREATURE_TO_POOL(FLY,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,FLY,1,1)
	CREATURE_AVAILABLE(PLAYER0,FLY,1,32)
	SET_CREATURE_CONFIGURATION(FLY,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(FLY,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(FLY,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(FLY,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(FLY,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,FLY)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,FLY)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,FLY)
ENDIF

REM # A Kind Only - DARK_MISTRESS.
IF(PLAYER0,CAMPAIGN_FLAG0 == 20)
	ADD_CREATURE_TO_POOL(DARK_MISTRESS,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,DARK_MISTRESS,1,1)
	CREATURE_AVAILABLE(PLAYER0,DARK_MISTRESS,1,32)
	SET_CREATURE_CONFIGURATION(DARK_MISTRESS,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(DARK_MISTRESS,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(DARK_MISTRESS,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(DARK_MISTRESS,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(DARK_MISTRESS,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,DARK_MISTRESS)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,DARK_MISTRESS)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,DARK_MISTRESS)
ENDIF

REM # A Kind Only - SORCEROR.
IF(PLAYER0,CAMPAIGN_FLAG0 == 21)
	ADD_CREATURE_TO_POOL(SORCEROR,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,SORCEROR,1,1)
	CREATURE_AVAILABLE(PLAYER0,SORCEROR,1,32)
	SET_CREATURE_CONFIGURATION(SORCEROR,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(SORCEROR,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(SORCEROR,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(SORCEROR,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(SORCEROR,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,SORCEROR)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,SORCEROR)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,SORCEROR)
ENDIF

REM # A Kind Only - BILE_DEMON.
IF(PLAYER0,CAMPAIGN_FLAG0 == 22)
	ADD_CREATURE_TO_POOL(BILE_DEMON,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,BILE_DEMON,1,1)
	CREATURE_AVAILABLE(PLAYER0,BILE_DEMON,1,32)
	SET_CREATURE_CONFIGURATION(BILE_DEMON,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(BILE_DEMON,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(BILE_DEMON,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(BILE_DEMON,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(BILE_DEMON,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,BILE_DEMON)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,BILE_DEMON)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,BILE_DEMON)
ENDIF

REM # A Kind Only - BUG.
IF(PLAYER0,CAMPAIGN_FLAG0 == 23)
	ADD_CREATURE_TO_POOL(BUG,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,BUG,1,1)
	CREATURE_AVAILABLE(PLAYER0,BUG,1,32)
	SET_CREATURE_CONFIGURATION(BUG,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(BUG,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(BUG,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(BUG,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(BUG,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,BUG)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,BUG)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,BUG)
ENDIF

REM # A Kind Only - VAMPIRE.
IF(PLAYER0,CAMPAIGN_FLAG0 == 24)
	ADD_CREATURE_TO_POOL(VAMPIRE,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,VAMPIRE,1,1)
	CREATURE_AVAILABLE(PLAYER0,VAMPIRE,1,32)
	SET_CREATURE_CONFIGURATION(VAMPIRE,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(VAMPIRE,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(VAMPIRE,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(VAMPIRE,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(VAMPIRE,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,VAMPIRE)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,VAMPIRE)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,VAMPIRE)
ENDIF

REM # A Kind Only - SPIDER.
IF(PLAYER0,CAMPAIGN_FLAG0 == 25)
	ADD_CREATURE_TO_POOL(SPIDER,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,SPIDER,1,1)
	CREATURE_AVAILABLE(PLAYER0,SPIDER,1,32)
	SET_CREATURE_CONFIGURATION(SPIDER,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(SPIDER,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(SPIDER,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(SPIDER,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(SPIDER,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,SPIDER)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,SPIDER)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,SPIDER)
ENDIF

REM # A Kind Only - HELL_HOUND.
IF(PLAYER0,CAMPAIGN_FLAG0 == 26)
	ADD_CREATURE_TO_POOL(HELL_HOUND,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,HELL_HOUND,1,1)
	CREATURE_AVAILABLE(PLAYER0,HELL_HOUND,1,32)
	SET_CREATURE_CONFIGURATION(HELL_HOUND,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(HELL_HOUND,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(HELL_HOUND,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(HELL_HOUND,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(HELL_HOUND,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,HELL_HOUND)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,HELL_HOUND)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,HELL_HOUND)
ENDIF

REM # A Kind Only - GHOST.
IF(PLAYER0,CAMPAIGN_FLAG0 == 27)
	ADD_CREATURE_TO_POOL(GHOST,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,GHOST,1,1)
	CREATURE_AVAILABLE(PLAYER0,GHOST,1,32)
	SET_CREATURE_CONFIGURATION(GHOST,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(GHOST,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(GHOST,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(GHOST,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(GHOST,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,GHOST)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,GHOST)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,GHOST)
ENDIF

REM # A Kind Only - TENTACLE.
IF(PLAYER0,CAMPAIGN_FLAG0 == 28)
	ADD_CREATURE_TO_POOL(TENTACLE,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,TENTACLE,1,1)
	CREATURE_AVAILABLE(PLAYER0,TENTACLE,1,32)
	SET_CREATURE_CONFIGURATION(TENTACLE,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(TENTACLE,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(TENTACLE,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(TENTACLE,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(TENTACLE,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,TENTACLE)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,TENTACLE)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,TENTACLE)
ENDIF

REM # A Kind Only - ORC.
IF(PLAYER0,CAMPAIGN_FLAG0 == 29)
	ADD_CREATURE_TO_POOL(ORC,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,ORC,1,1)
	CREATURE_AVAILABLE(PLAYER0,ORC,1,32)
	SET_CREATURE_CONFIGURATION(ORC,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(ORC,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(ORC,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(ORC,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(ORC,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,ORC)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,ORC)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,ORC)
ENDIF

REM # A Kind Only - TIME_MAGE.
IF(PLAYER0,CAMPAIGN_FLAG0 == 30)
	ADD_CREATURE_TO_POOL(TIME_MAGE,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,TIME_MAGE,1,1)
	CREATURE_AVAILABLE(PLAYER0,TIME_MAGE,1,32)
	SET_CREATURE_CONFIGURATION(TIME_MAGE,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(TIME_MAGE,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(TIME_MAGE,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(TIME_MAGE,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(TIME_MAGE,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,TIME_MAGE)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,TIME_MAGE)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,TIME_MAGE)
ENDIF

REM # A Kind Only - DRUID.
IF(PLAYER0,CAMPAIGN_FLAG0 == 31)
	ADD_CREATURE_TO_POOL(DRUID,255)
	CREATURE_AVAILABLE(ALL_PLAYERS,DRUID,1,1)
	CREATURE_AVAILABLE(PLAYER0,DRUID,1,32)
	SET_CREATURE_CONFIGURATION(DRUID,TrainingValue,8)
	SET_CREATURE_CONFIGURATION(DRUID,PrimaryJobs,FIGHT)
	SET_CREATURE_CONFIGURATION(DRUID,SecondaryJobs,TRAIN,EXPLORE)
	SET_CREATURE_CONFIGURATION(DRUID,NotDoJobs,FREEZE_PRISONERS)
	SET_CREATURE_CONFIGURATION(DRUID,StressfulJobs,KINKY_TORTURE)
	SET_ROOM_CONFIGURATION(PRISON,CreatureCreation,DRUID)
	SET_ROOM_CONFIGURATION(TORTURE,CreatureCreation,DRUID)
	SET_ROOM_CONFIGURATION(GRAVEYARD,CreatureCreation,DRUID)
ENDIF

REM # A Kind Only - ALL.
IF(PLAYER_GOOD,CAMPAIGN_FLAG0 > 0)
	RANDOMISE_FLAG(PLAYER0,CAMPAIGN_FLAG0,32)
ENDIF
IF(PLAYER0,CAMPAIGN_FLAG0 == 32)
	NEXT_COMMAND_REUSABLE
	RANDOMISE_FLAG(PLAYER0,CAMPAIGN_FLAG0,32)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER_GOOD,CAMPAIGN_FLAG0,1)
ENDIF

REM # A Kind Only - Increase Entrance Level.
IF(PLAYER_GOOD,GAME_TURN >= 1200)
	CREATURE_ENTRANCE_LEVEL(ALL_PLAYERS,2)
ENDIF
IF(PLAYER_GOOD,GAME_TURN >= 6000)
	CREATURE_ENTRANCE_LEVEL(ALL_PLAYERS,3)
ENDIF
IF(PLAYER_GOOD,GAME_TURN >= 30000)
	CREATURE_ENTRANCE_LEVEL(ALL_PLAYERS,4)
ENDIF
IF(PLAYER_GOOD,GAME_TURN >= 150000)
	CREATURE_ENTRANCE_LEVEL(ALL_PLAYERS,5)
ENDIF

REM # A Kind Only - Annoyance penalty for AI.
SET_TIMER(PLAYER_GOOD,TIMER7)
IF(PLAYER_GOOD,TIMER7 > 20)
	NEXT_COMMAND_REUSABLE
	ADD_TO_FLAG(PLAYER0,BOX100_ACTIVATED,1)
	NEXT_COMMAND_REUSABLE
	ADD_TO_FLAG(PLAYER0,BOX200_ACTIVATED,1)
	NEXT_COMMAND_REUSABLE
	CHANGE_CREATURES_ANNOYANCE(PLAYER1,ANY_CREATURE,INCREASE,40)
	NEXT_COMMAND_REUSABLE
	CHANGE_CREATURES_ANNOYANCE(PLAYER2,ANY_CREATURE,INCREASE,40)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER_GOOD,TIMER7)
ENDIF

REM # A Kind Only - Add Creature for AI.
IF(PLAYER1,DUNGEON_DESTROYED == 0)
	IF(PLAYER0,BOX100_ACTIVATED >= 255)
		IF(PLAYER1,SORCEROR < 1)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER1,SORCEROR,PLAYER1,1,10,0)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
		ENDIF
		IF(PLAYER1,SORCEROR >= 1)
			IF(PLAYER1,TOTAL_CREATURES < 8)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER1,SORCEROR,PLAYER1,1,3,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
			ENDIF
			IF(PLAYER1,TOTAL_CREATURES >= 8)
				IF(PLAYER1,TOTAL_CREATURES < 22)
					NEXT_COMMAND_REUSABLE
					ADD_CREATURE_TO_LEVEL(PLAYER1,SORCEROR,PLAYER1,1,2,0)
					NEXT_COMMAND_REUSABLE
					SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
				ENDIF
				IF(PLAYER1,TOTAL_CREATURES >= 22)
					NEXT_COMMAND_REUSABLE
					SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
				ENDIF
			ENDIF
		ENDIF
	ENDIF
ENDIF
IF(PLAYER2,DUNGEON_DESTROYED == 0)
	IF(PLAYER0,BOX200_ACTIVATED >= 255)
		IF(PLAYER2,DRUID < 1)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER2,DRUID,PLAYER2,1,10,0)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER0,BOX200_ACTIVATED,0)
		ENDIF
		IF(PLAYER2,DRUID >= 1)
			IF(PLAYER2,TOTAL_CREATURES < 8)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER2,DRUID,PLAYER2,1,3,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER0,BOX200_ACTIVATED,0)
			ENDIF
			IF(PLAYER2,TOTAL_CREATURES >= 8)
				IF(PLAYER2,TOTAL_CREATURES < 22)
					NEXT_COMMAND_REUSABLE
					ADD_CREATURE_TO_LEVEL(PLAYER2,DRUID,PLAYER2,1,2,0)
					NEXT_COMMAND_REUSABLE
					SET_FLAG(PLAYER0,BOX200_ACTIVATED,0)
				ENDIF
				IF(PLAYER2,TOTAL_CREATURES >= 22)
					NEXT_COMMAND_REUSABLE
					SET_FLAG(PLAYER0,BOX200_ACTIVATED,0)
				ENDIF
			ENDIF
		ENDIF
	ENDIF
ENDIF