LEVEL_VERSION(1)
RUN_AFTER_VICTORY(1)

SET_GENERATE_SPEED(750)

COMPUTER_PLAYER(PLAYER1,0)
SET_COMPUTER_CHECKS(PLAYER1,"CHECK FOR NEUTRAL PLACES",15000,0,0,0,65000)
SET_COMPUTER_CHECKS(PLAYER1,"CHECK FOR QUICK ATTACK",700,70,3000,8,12500)
SET_COMPUTER_PROCESS(PLAYER1,"ATTACK SAFE ATTACK",-1,100,17,100,0)
SET_COMPUTER_PROCESS(PLAYER1,"ATTACK PLAN 1",-1,100,17,100,0)
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)

START_MONEY(PLAYER0,27500)
START_MONEY(PLAYER1,40000)

SET_FLAG(PLAYER_GOOD,BOX219_ACTIVATED,16)
MAX_CREATURES(PLAYER0,16)
MAX_CREATURES(PLAYER1,17)

ADD_CREATURE_TO_POOL(ORC,20)
ADD_CREATURE_TO_POOL(BILE_DEMON,2)
ADD_CREATURE_TO_POOL(DARK_MISTRESS,30)
ADD_CREATURE_TO_POOL(SORCEROR,21)
ADD_CREATURE_TO_POOL(DRAGON,35)
ADD_CREATURE_TO_POOL(HELL_HOUND,40)

CREATURE_AVAILABLE(PLAYER1,ORC,1,0)
CREATURE_AVAILABLE(PLAYER1,BILE_DEMON,1,0)
CREATURE_AVAILABLE(PLAYER1,DARK_MISTRESS,1,0)
CREATURE_AVAILABLE(PLAYER1,SORCEROR,1,0)
CREATURE_AVAILABLE(PLAYER1,DRAGON,1,0)
CREATURE_AVAILABLE(PLAYER1,HELL_HOUND,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,BRIDGE,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,WORKSHOP,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,GUARD_POST,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,BARRACKS,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,PRISON,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,TORTURE,1,0)
ROOM_AVAILABLE(PLAYER0,TEMPLE,1,0)
ROOM_AVAILABLE(PLAYER1,TEMPLE,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,GRAVEYARD,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,SCAVENGER,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,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_OBEY,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CONCEAL,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HOLD_AUDIENCE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_LIGHTNING,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_PROTECT,1,0)
MAGIC_AVAILABLE(PLAYER1,POWER_CHICKEN,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CAVE_IN,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_DISEASE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_ARMAGEDDON,1,0)

TRAP_AVAILABLE(ALL_PLAYERS,ALARM,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,POISON_GAS,1,0)
TRAP_AVAILABLE(ALL_PLAYERS,WORD_OF_POWER,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,STEEL,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,MAGIC,1,0)
TRAP_AVAILABLE(PLAYER1,LAVA,1,0)

CREATE_PARTY(THIEFGUARD)
	ADD_TO_PARTY(THIEFGUARD,ARCHER,5,750,DEFEND_PARTY,0)
	ADD_TO_PARTY(THIEFGUARD,ARCHER,5,750,DEFEND_PARTY,0)
	ADD_TO_PARTY(THIEFGUARD,ARCHER,5,750,DEFEND_PARTY,0)
	ADD_TO_PARTY(THIEFGUARD,THIEF,7,1750,ATTACK_DUNGEON_HEART,0)

CREATE_PARTY(DWARVES)
	ADD_TO_PARTY(DWARVES,DWARFA,5,800,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(DWARVES,DWARFA,5,800,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(DWARVES,DWARFA,5,800,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(DWARVES,DWARFA,5,800,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(DWARVES,ARCHER,5,800,ATTACK_ENEMIES,0)

CREATE_PARTY(BARBS)
	ADD_TO_PARTY(BARBS,BARBARIAN,6,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(BARBS,BARBARIAN,6,1000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(BARBS,BARBARIAN,6,1000,ATTACK_ENEMIES,0)

CREATE_PARTY(WIZARDS)
	ADD_TO_PARTY(WIZARDS,WIZARD,5,1200,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(WIZARDS,WIZARD,5,1200,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(WIZARDS,WIZARD,5,1200,ATTACK_ENEMIES,0)

CREATE_PARTY(GIANTGUARD)
	ADD_TO_PARTY(GIANTGUARD,GIANT,8,2000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(GIANTGUARD,ARCHER,2,300,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(GIANTGUARD,ARCHER,2,300,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(GIANTGUARD,ARCHER,2,300,ATTACK_ENEMIES,0)

CREATE_PARTY(THIEVES)
	ADD_TO_PARTY(THIEVES,THIEF,7,2000,STEAL_GOLD,0)
	ADD_TO_PARTY(THIEVES,THIEF,6,2000,STEAL_GOLD,0)
	ADD_TO_PARTY(THIEVES,THIEF,6,2000,STEAL_GOLD,0)
	ADD_TO_PARTY(THIEVES,THIEF,6,2000,STEAL_GOLD,0)

CREATE_PARTY(WITCHES)
	ADD_TO_PARTY(WITCHES,WITCH,4,1200,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(WITCHES,WITCH,4,1200,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(WITCHES,WITCH,4,1200,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(WITCHES,WITCH,4,1200,ATTACK_ENEMIES,0)

CREATE_PARTY(ELITE)
	ADD_TO_PARTY(ELITE,SAMURAI,9,4000,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(ELITE,WIZARD,8,2000,STEAL_SPELLS,0)
	ADD_TO_PARTY(ELITE,BARBARIAN,8,2000,STEAL_GOLD,0)
	ADD_TO_PARTY(ELITE,GIANT,7,2000,STEAL_SPELLS,0)

CREATE_PARTY(TRANSFER)
	ADD_TO_PARTY(TRANSFER,GHOST,2,666,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TRANSFER,GHOST,2,666,ATTACK_ENEMIES,0)
	ADD_TO_PARTY(TRANSFER,GHOST,2,666,ATTACK_ENEMIES,0)

DISPLAY_OBJECTIVE(125,ALL_PLAYERS)

IF(PLAYER0,ENTRANCE >= 18)
	SET_FLAG(PLAYER_GOOD,BOX219_ACTIVATED,18)
	MAX_CREATURES(PLAYER0,18)
ENDIF

IF(PLAYER0,GAME_TURN >= 100)
	DISPLAY_INFORMATION(120,ALL_PLAYERS)
ENDIF

IF(PLAYER0,GAME_TURN >= 5000)
	DISPLAY_INFORMATION(126,ALL_PLAYERS)
ENDIF

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

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

IF_ACTION_POINT(4,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,DWARVES,-1,1)
	SET_TIMER(PLAYER_GOOD,TIMER0)
ENDIF

IF(PLAYER_GOOD,TIMER0 >= 1500)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,BARBS,-1,1)
ENDIF

IF_ACTION_POINT(7,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,WIZARDS,-4,1)
ENDIF

IF_ACTION_POINT(6,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,GIANTGUARD,-5,1)
ENDIF

IF_ACTION_POINT(5,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,THIEVES,-3,1)
ENDIF

IF_ACTION_POINT(3,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,WITCHES,-2,1)
ENDIF

IF_ACTION_POINT(8,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,BARBS,9,1)
ENDIF

IF_AVAILABLE(PLAYER0,POWER_CONCEAL >= 1)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ELITE,DRAWFROM(10,11,12),DUNGEON,0,6,500)
ENDIF

IF(PLAYER_GOOD,GAME_TURN >= 12000)
	SET_FLAG(PLAYER0,FLAG7,1)
ENDIF

IF(PLAYER0,FLAG7 <= 0)
	IF(PLAYER1,HEART_HEALTH <= 28000)
		SET_FLAG(PLAYER0,FLAG7,2)
	ENDIF
	IF(PLAYER1,BATTLES_LOST >= 4)
		SET_FLAG(PLAYER0,FLAG7,2)
	ENDIF
ENDIF

IF(PLAYER0,FLAG7 == 1)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ELITE,DRAWFROM(10,11,12),DUNGEON,0,6,500)
ENDIF

IF(PLAYER0,FLAG7 == 2)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ELITE,-4,DUNGEON,0,6,500)
	IF_SLAB_TYPE(60,58,DRAPE_WALL)
		CHANGE_SLAB_TYPE(60,58,PATH)
	ENDIF
	IF_SLAB_TYPE(61,58,DRAPE_WALL)
		CHANGE_SLAB_TYPE(61,58,PRETTY_PATH)
	ENDIF
	ALLY_PLAYERS(PLAYER1,PLAYER_GOOD,1)
ENDIF

IF(PLAYER1,TOTAL_CREATURES >= 17)
	IF_AVAILABLE(PLAYER1,POWER_CONCEAL >= 1)
		ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ELITE,DRAWFROM(10,11,12),DUNGEON,1,6,500)
	ENDIF
ENDIF

IF(PLAYER1,DUNGEON_DESTROYED == 1)
	SET_TIMER(PLAYER0,TIMER0)
ENDIF

IF(PLAYER0,TIMER0 >= 30)
	WIN_GAME
ENDIF

IF(PLAYER0,CREATURES_ANNOYED >= 1)
	SET_FLAG(PLAYER0,FLAG1,1)
	ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,TRANSFER,DRAWFROM(10,11,12),DUNGEON_HEART,0,2,666)
	HIDE_HERO_GATE(-6,1)
ENDIF

IF(PLAYER1,DUNGEON_DESTROYED == 1)
	IF(PLAYER0,FLAG1 == 0)
		ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,TRANSFER,-6,DUNGEON_HEART,0,2,666)
	ENDIF
ENDIF

ADD_CREATURE_TO_LEVEL(PLAYER1,ORC,PLAYER1,1,7,0)
ADD_CREATURE_TO_LEVEL(PLAYER1,ORC,PLAYER1,1,5,0)
ADD_CREATURE_TO_LEVEL(PLAYER1,ORC,PLAYER1,1,3,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
IF(PLAYER0,CAMPAIGN_FLAG0 == 8)
	NEXT_COMMAND_REUSABLE
	COMPUTE_FLAG(PLAYER_GOOD,BOX0_ACTIVATED,INCREASE,PLAYER0,TUNNELLER,0)
	NEXT_COMMAND_REUSABLE
	COMPUTE_FLAG(PLAYER_GOOD,BOX8_ACTIVATED,INCREASE,PLAYER0,TUNNELLER,0)
	IF(PLAYER_GOOD,BOX0_ACTIVATED >= 255)
		NEXT_COMMAND_REUSABLE
		KILL_CREATURE(PLAYER1,ANY_CREATURE,LEAST_EXPERIENCED,1)
		NEXT_COMMAND_REUSABLE
		KILL_CREATURE(PLAYER_GOOD,ANY_CREATURE,LEAST_EXPERIENCED,1)
		NEXT_COMMAND_REUSABLE
		SET_FLAG(PLAYER_GOOD,BOX0_ACTIVATED,0)
	ENDIF
	IF(PLAYER_GOOD,BOX8_ACTIVATED > 128)
		NEXT_COMMAND_REUSABLE
		ADD_HEART_HEALTH(PLAYER1,-128)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER_GOOD,BOX8_ACTIVATED,-128)
	ENDIF
	IF(PLAYER_GOOD,BOX8_ACTIVATED > 32)
		NEXT_COMMAND_REUSABLE
		ADD_HEART_HEALTH(PLAYER1,-32)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER_GOOD,BOX8_ACTIVATED,-32)
	ENDIF
	IF(PLAYER_GOOD,BOX8_ACTIVATED > 8)
		NEXT_COMMAND_REUSABLE
		ADD_HEART_HEALTH(PLAYER1,-8)
		NEXT_COMMAND_REUSABLE
		ADD_TO_FLAG(PLAYER_GOOD,BOX8_ACTIVATED,-8)
	ENDIF
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)
	SET_TIMER(PLAYER_GOOD,TIMER5)
ENDIF
IF(PLAYER_GOOD,TIMER5 >= PLAYER_GOOD,BOX219_ACTIVATED)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER0,FLY,LEAST_EXP_FIGHTING,PLAYER0,POWER_TIME_BOMB,9,1)
	NEXT_COMMAND_REUSABLE
	USE_POWER_ON_CREATURE(PLAYER0,FLY,MOST_EXP_FIGHTING,PLAYER0,POWER_TIME_BOMB,9,1)
	NEXT_COMMAND_REUSABLE
	SET_TIMER(PLAYER_GOOD,TIMER5)
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)
	SET_CREATURE_CONFIGURATION(BUG,Health,500)
	SET_CREATURE_CONFIGURATION(BUG,HealRequirement,75)
	SET_CREATURE_CONFIGURATION(BUG,HealThreshold,150)
	SET_CREATURE_CONFIGURATION(BUG,FearWounded,0)
	SET_CREATURE_CONFIGURATION(BUG,FearStronger,30000)
	SET_CREATURE_CONFIGURATION(BUG,Strength,50)
	SET_CREATURE_CONFIGURATION(BUG,Armour,50)
	SET_CREATURE_CONFIGURATION(BUG,Dexterity,110)
	SET_CREATURE_CONFIGURATION(BUG,Defence,120)
	SET_CREATURE_CONFIGURATION(BUG,Luck,20)
	SET_CREATURE_CONFIGURATION(BUG,Recovery,10)
	SET_CREATURE_CONFIGURATION(BUG,HungerRate,0)
	SET_CREATURE_CONFIGURATION(BUG,HungerFill,0)
	SET_CREATURE_CONFIGURATION(BUG,HurtByLava,0)
	SET_CREATURE_CONFIGURATION(BUG,BaseSpeed,96)
	SET_CREATURE_CONFIGURATION(BUG,GoldHold,32767)
	SET_CREATURE_CONFIGURATION(BUG,SlapsToKill,0)
	SET_CREATURE_CONFIGURATION(BUG,DamageToBoulder,256)
	SET_CREATURE_INSTANCE(BUG,1,SWING_WEAPON_FIST,1)
	SET_CREATURE_INSTANCE(BUG,2,ARMOUR,2)
	SET_CREATURE_INSTANCE(BUG,3,HEAL,3)
	SET_CREATURE_INSTANCE(BUG,5,SPEED,5)
	SET_CREATURE_INSTANCE(BUG,7,FREEZE,7)
	SET_CREATURE_INSTANCE(BUG,10,TELEPORT,10)
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)
	SET_CREATURE_CONFIGURATION(SPIDER,Health,800)
	SET_CREATURE_CONFIGURATION(SPIDER,HealRequirement,75)
	SET_CREATURE_CONFIGURATION(SPIDER,HealThreshold,150)
	SET_CREATURE_CONFIGURATION(SPIDER,FearWounded,0)
	SET_CREATURE_CONFIGURATION(SPIDER,FearStronger,30000)
	SET_CREATURE_CONFIGURATION(SPIDER,Strength,80)
	SET_CREATURE_CONFIGURATION(SPIDER,Armour,60)
	SET_CREATURE_CONFIGURATION(SPIDER,Dexterity,120)
	SET_CREATURE_CONFIGURATION(SPIDER,Defence,150)
	SET_CREATURE_CONFIGURATION(SPIDER,Luck,15)
	SET_CREATURE_CONFIGURATION(SPIDER,Recovery,10)
	SET_CREATURE_CONFIGURATION(SPIDER,HurtByLava,0)
	SET_CREATURE_CONFIGURATION(SPIDER,BaseSpeed,96)
	SET_CREATURE_INSTANCE(SPIDER,1,SWING_WEAPON_FIST,1)
	SET_CREATURE_INSTANCE(SPIDER,2,SLOW,2)
	SET_CREATURE_INSTANCE(SPIDER,3,HEAL,3)
	SET_CREATURE_INSTANCE(SPIDER,4,FREEZE,4)
	SET_CREATURE_INSTANCE(SPIDER,5,SPEED,5)
	SET_CREATURE_INSTANCE(SPIDER,8,HAILSTORM,8)
	SET_CREATURE_INSTANCE(SPIDER,10,TELEPORT,10)
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,7,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,ORC,PLAYER1,1,5,0)
				NEXT_COMMAND_REUSABLE
				SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
			ENDIF
			IF(PLAYER1,TOTAL_CREATURES >= 8)
				IF(PLAYER1,TOTAL_CREATURES < 17)
					NEXT_COMMAND_REUSABLE
					ADD_CREATURE_TO_LEVEL(PLAYER1,ORC,PLAYER1,1,3,0)
					NEXT_COMMAND_REUSABLE
					SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
				ENDIF
				IF(PLAYER1,TOTAL_CREATURES >= 17)
					NEXT_COMMAND_REUSABLE
					SET_FLAG(PLAYER0,BOX100_ACTIVATED,0)
				ENDIF
			ENDIF
		ENDIF
	ENDIF
ENDIF