LEVEL_VERSION(1)
RUN_AFTER_VICTORY(1)

SET_GENERATE_SPEED(500)

COMPUTER_PLAYER(PLAYER1,0)
SET_COMPUTER_PROCESS(PLAYER1,"BUILD A TREASURE ROOM",-10,4,4,2,7)
SET_COMPUTER_PROCESS(PLAYER1,"BUILD A HATCHERY",-20,5,5,13,14)
SET_COMPUTER_PROCESS(PLAYER1,"BUILD A RESEARCH ROOM",-30,5,5,3,2)
SET_COMPUTER_PROCESS(PLAYER1,"BUILD A TRAINING ROOM",-40,3,3,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,4,4,11,5)
SET_COMPUTER_PROCESS(PLAYER1,"BUILD A SCAVENGER ROOM",-110,3,3,9,10)

START_MONEY(PLAYER0,3000)
START_MONEY(PLAYER1,800000)

SET_FLAG(PLAYER_GOOD,BOX219_ACTIVATED,30)
MAX_CREATURES(PLAYER0,30)
MAX_CREATURES(PLAYER1,32)

ADD_CREATURE_TO_POOL(SKELETON,20)
ADD_CREATURE_TO_POOL(SPIDER,10)
ADD_CREATURE_TO_POOL(SORCEROR,1)

CREATURE_AVAILABLE(PLAYER1,SKELETON,1,0)
CREATURE_AVAILABLE(PLAYER1,SPIDER,1,0)
CREATURE_AVAILABLE(PLAYER1,SORCEROR,1,0)

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

MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HAND,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SLAP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_IMP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HOLD_AUDIENCE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CONCEAL,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_SPEED,1,0)
MAGIC_AVAILABLE(PLAYER1,POWER_SPEED,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(PLAYER1,POWER_CALL_TO_ARMS,1,1)
MAGIC_AVAILABLE(PLAYER1,POWER_CAVE_IN,1,0)
MAGIC_AVAILABLE(PLAYER1,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(PLAYER1,POWER_SIGHT,1,1)
MAGIC_AVAILABLE(PLAYER1,POWER_PROTECT,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_OBEY,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_ARMAGEDDON,1,0)

DOOR_AVAILABLE(ALL_PLAYERS,WOOD,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,BRACED,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,STEEL,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,MAGIC,1,0)
TRAP_AVAILABLE(PLAYER0,ALARM,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,POISON_GAS,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,LIGHTNING,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,WORD_OF_POWER,1,0)

CREATE_PARTY(WIZZIES)
	ADD_TO_PARTY(WIZZIES,WIZARD,2,500,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(WIZZIES,WIZARD,2,500,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(WIZZIES,WIZARD,2,500,ATTACK_ENEMIES,0)

CREATE_PARTY(PIXIES)
	ADD_TO_PARTY(PIXIES,FAIRY,8,700,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(PIXIES,FAIRY,8,700,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(PIXIES,FAIRY,8,700,ATTACK_ENEMIES,0)

CREATE_PARTY(DWARVES)
	ADD_TO_PARTY(DWARVES,DWARFA,4,500,STEAL_GOLD,0)
	ADD_TO_PARTY(DWARVES,DWARFA,4,500,STEAL_GOLD,0)
	ADD_TO_PARTY(DWARVES,DWARFA,4,500,STEAL_GOLD,0)
	ADD_TO_PARTY(DWARVES,DWARFA,4,500,STEAL_GOLD,0)

CREATE_PARTY(SAMMIES)
	ADD_TO_PARTY(SAMMIES,SAMURAI,6,1500,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(SAMMIES,SAMURAI,6,1500,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(SAMMIES,SAMURAI,6,1500,ATTACK_ENEMIES,0)

CREATE_PARTY(LANDLORD)
	ADD_TO_PARTY(LANDLORD,KNIGHT,9,1500,ATTACK_ENEMIES,0)

IF(PLAYER1,WORKSHOP >= 108)
	SET_TIMER(PLAYER1,TIMER1)
ENDIF

IF(PLAYER1,TIMER1 >= 180)
	ROOM_AVAILABLE(PLAYER1,WORKSHOP,0,0)
ENDIF

IF(PLAYER1,TREASURE >= 180)
	SET_TIMER(PLAYER1,TIMER2)
ENDIF

IF(PLAYER1,TIMER2 >= 180)
	ROOM_AVAILABLE(PLAYER1,TREASURE,0,0)
ENDIF

DISPLAY_OBJECTIVE(154,ALL_PLAYERS)

IF(PLAYER0,PRISON > 0)
	ROOM_AVAILABLE(ALL_PLAYERS,PRISON,1,1)
ENDIF

IF(PLAYER0,TORTURE > 0)
	ROOM_AVAILABLE(ALL_PLAYERS,TORTURE,1,1)
ENDIF

IF(PLAYER0,LAIR > 0)
	ROOM_AVAILABLE(ALL_PLAYERS,LAIR,1,1)
ENDIF

IF(PLAYER0,GARDEN > 0)
	ROOM_AVAILABLE(ALL_PLAYERS,GARDEN,1,1)
ENDIF

IF(PLAYER0,TRAINING > 0)
	ROOM_AVAILABLE(ALL_PLAYERS,TRAINING,1,1)
ENDIF

IF(PLAYER0,GRAVEYARD > 0)
	ROOM_AVAILABLE(ALL_PLAYERS,GRAVEYARD,1,1)
ENDIF

IF(PLAYER0,RESEARCH > 0)
	ROOM_AVAILABLE(ALL_PLAYERS,RESEARCH,1,1)
ENDIF

IF(PLAYER0,TREASURE > 0)
	ROOM_AVAILABLE(ALL_PLAYERS,TREASURE,1,1)
ENDIF

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

IF(PLAYER0,TEMPLE > 0)
	ROOM_AVAILABLE(ALL_PLAYERS,TEMPLE,1,0)
ENDIF

IF(PLAYER0,SAMURAI > 0)
	ADD_CREATURE_TO_POOL(SAMURAI,3)
	CREATURE_AVAILABLE(PLAYER0,SAMURAI,1,0)
	DISPLAY_INFORMATION(156,ALL_PLAYERS)
ENDIF

IF_ACTION_POINT(1,PLAYER0)
	DISPLAY_INFORMATION(157,ALL_PLAYERS)
ENDIF

IF_ACTION_POINT(2,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,WIZZIES,2,1)
ENDIF

IF_ACTION_POINT(3,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,SAMMIES,8,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,SAMMIES,9,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,PIXIES,-3,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,LANDLORD,3,1)
ENDIF

IF_ACTION_POINT(4,PLAYER0)
	DISPLAY_INFORMATION(158,4)
ENDIF

IF_ACTION_POINT(5,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,DWARVES,5,1)
ENDIF

IF_ACTION_POINT(6,PLAYER0)
	DISPLAY_INFORMATION(159,6)
ENDIF
	
IF_ACTION_POINT(10,PLAYER0)
	DISPLAY_INFORMATION(160,10)
	SET_TIMER(PLAYER1,TIMER3)
	IF_AVAILABLE(PLAYER0,BOULDER >= 1)
		TUTORIAL_FLASH_BUTTON(53,-1)
	ENDIF
ENDIF

IF(PLAYER_GOOD,DUNGEON_DESTROYED == 1)
	SET_CREATURE_TENDENCIES(PLAYER1,IMPRISON,1)
	SET_FLAG(PLAYER1,FLAG2,1)
ENDIF

IF_ACTION_POINT(7,PLAYER0)
	SET_FLAG(PLAYER1,FLAG2,1)
ENDIF

IF(PLAYER1,TIMER3 >= 24000)
	SET_FLAG(PLAYER1,FLAG2,1)
ENDIF

IF(PLAYER1,FLAG2 == 1)
	ADD_GOLD_TO_PLAYER(PLAYER1,-700000)
ENDIF

IF(PLAYER1,DUNGEON_DESTROYED == 1)
	DISPLAY_OBJECTIVE(155,ALL_PLAYERS)
	WIN_GAME
ENDIF

ADD_CREATURE_TO_LEVEL(PLAYER1,HORNY,PLAYER1,1,8,0)
ADD_CREATURE_TO_LEVEL(PLAYER1,SKELETON,PLAYER1,1,10,0)
ADD_CREATURE_TO_LEVEL(PLAYER1,SKELETON,PLAYER1,1,1,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
	CHANGE_CREATURES_ANNOYANCE(PLAYER1,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,HORNY < 1)
			NEXT_COMMAND_REUSABLE
			ADD_CREATURE_TO_LEVEL(PLAYER1,HORNY,PLAYER1,1,8,0)
			NEXT_COMMAND_REUSABLE
			SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
		ENDIF
		IF(PLAYER1,HORNY >= 1)
			IF(PLAYER1,TOTAL_CREATURES < 8)
				NEXT_COMMAND_REUSABLE
				ADD_CREATURE_TO_LEVEL(PLAYER1,SKELETON,PLAYER1,1,10,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
			ENDIF
			IF(PLAYER1,TOTAL_CREATURES >= 8)
				IF(PLAYER1,TOTAL_CREATURES < 32)
					NEXT_COMMAND_REUSABLE
					ADD_CREATURE_TO_LEVEL(PLAYER1,SKELETON,PLAYER1,1,1,0)
					NEXT_COMMAND_REUSABLE
					SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
				ENDIF
				IF(PLAYER1,TOTAL_CREATURES >= 32)
					NEXT_COMMAND_REUSABLE
					SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
				ENDIF
			ENDIF
		ENDIF
	ENDIF
ENDIF