REM *** 
REM *** PLAYER_GOOD,TIMER0  =>  Heldentor-Timer
REM *** 

LEVEL_VERSION(1)
SET_GENERATE_SPEED(400)

RUN_AFTER_VICTORY(1)
SET_ROOM_CONFIGURATION(SCAVENGER,Roles,0)
SET_CREATURE_CONFIGURATION(FLY,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(BUG,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(DEMONSPAWN,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(TROLL,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(SPIDER,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(HELL_HOUND,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(TENTACLE,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(SORCEROR,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(ORC,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(BILE_DEMON,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(DRAGON,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(DARK_MISTRESS,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(DRUID,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(THIEF,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(TUNNELLER,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(DWARFA,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(ARCHER,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(BARBARIAN,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(MONK,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(FAIRY,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(WITCH,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(WIZARD,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(GIANT,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(SAMURAI,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(TIME_MAGE,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(VAMPIRE,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(KNIGHT,NotDoJobs,SCAVENGE)
SET_CREATURE_CONFIGURATION(AVATAR,NotDoJobs,SCAVENGE)

SET_CREATURE_CONFIGURATION(VAMPIRE,PrimaryJobs,RESEARCH)
SET_CREATURE_CONFIGURATION(VAMPIRE,SecondaryJobs,NONE)


ADD_CREATURE_TO_POOL(FLY,50)
ADD_CREATURE_TO_POOL(BUG,50)
ADD_CREATURE_TO_POOL(DEMONSPAWN,50)
ADD_CREATURE_TO_POOL(TROLL,50)
ADD_CREATURE_TO_POOL(SPIDER,50)
ADD_CREATURE_TO_POOL(HELL_HOUND,50)
ADD_CREATURE_TO_POOL(TENTACLE,50)
ADD_CREATURE_TO_POOL(SORCEROR,50)
ADD_CREATURE_TO_POOL(ORC,50)
ADD_CREATURE_TO_POOL(BILE_DEMON,50)
ADD_CREATURE_TO_POOL(DRAGON,50)
ADD_CREATURE_TO_POOL(DARK_MISTRESS,50)
ADD_CREATURE_TO_POOL(DRUID,50)
ADD_CREATURE_TO_POOL(THIEF,50)
ADD_CREATURE_TO_POOL(TUNNELLER,50)
ADD_CREATURE_TO_POOL(DWARFA,50)
ADD_CREATURE_TO_POOL(ARCHER,50)
ADD_CREATURE_TO_POOL(BARBARIAN,50)
ADD_CREATURE_TO_POOL(MONK,50)
ADD_CREATURE_TO_POOL(FAIRY,50)
ADD_CREATURE_TO_POOL(WITCH,50)
ADD_CREATURE_TO_POOL(WIZARD,50)
ADD_CREATURE_TO_POOL(GIANT,50)
ADD_CREATURE_TO_POOL(SAMURAI,50)
ADD_CREATURE_TO_POOL(TIME_MAGE,50)
ADD_CREATURE_TO_POOL(VAMPIRE,50)
ADD_CREATURE_TO_POOL(KNIGHT,50)

START_MONEY(PLAYER0,60000)
MAX_CREATURES(PLAYER0,30)
CREATURE_AVAILABLE(PLAYER0,FLY,1,0)
CREATURE_AVAILABLE(PLAYER0,BUG,1,0)
CREATURE_AVAILABLE(PLAYER0,DEMONSPAWN,1,0)
CREATURE_AVAILABLE(PLAYER0,TROLL,1,0)
CREATURE_AVAILABLE(PLAYER0,SPIDER,1,0)
CREATURE_AVAILABLE(PLAYER0,HELL_HOUND,1,0)
CREATURE_AVAILABLE(PLAYER0,TENTACLE,1,0)
CREATURE_AVAILABLE(PLAYER0,SORCEROR,1,0)
CREATURE_AVAILABLE(PLAYER0,ORC,1,0)
CREATURE_AVAILABLE(PLAYER0,BILE_DEMON,1,0)
CREATURE_AVAILABLE(PLAYER0,DRAGON,1,0)
CREATURE_AVAILABLE(PLAYER0,DARK_MISTRESS,1,0)
CREATURE_AVAILABLE(PLAYER0,THIEF,1,0)
CREATURE_AVAILABLE(PLAYER0,TUNNELLER,1,0)
CREATURE_AVAILABLE(PLAYER0,DWARFA,1,0)
CREATURE_AVAILABLE(PLAYER0,ARCHER,1,0)
CREATURE_AVAILABLE(PLAYER0,BARBARIAN,1,0)
CREATURE_AVAILABLE(PLAYER0,MONK,1,0)
CREATURE_AVAILABLE(PLAYER0,FAIRY,1,0)
CREATURE_AVAILABLE(PLAYER0,WITCH,1,0)
CREATURE_AVAILABLE(PLAYER0,WIZARD,1,0)
CREATURE_AVAILABLE(PLAYER0,GIANT,1,0)
CREATURE_AVAILABLE(PLAYER0,SAMURAI,1,0)
ROOM_AVAILABLE(PLAYER0,TREASURE,1,1)
ROOM_AVAILABLE(PLAYER0,LAIR,1,1)
ROOM_AVAILABLE(PLAYER0,GARDEN,1,1)
ROOM_AVAILABLE(PLAYER0,TRAINING,1,1)
ROOM_AVAILABLE(PLAYER0,RESEARCH,1,1)
ROOM_AVAILABLE(PLAYER0,BRIDGE,1,0)
ROOM_AVAILABLE(PLAYER0,GUARD_POST,1,0)
ROOM_AVAILABLE(PLAYER0,WORKSHOP,1,0)
ROOM_AVAILABLE(PLAYER0,PRISON,1,0)
ROOM_AVAILABLE(PLAYER0,TORTURE,1,0)
ROOM_AVAILABLE(PLAYER0,BARRACKS,1,0)
ROOM_AVAILABLE(PLAYER0,TEMPLE,1,0)
ROOM_AVAILABLE(PLAYER0,GRAVEYARD,1,0)
ROOM_AVAILABLE(PLAYER0,SCAVENGER,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_HAND,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_SLAP,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_POSSESS,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_IMP,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_SPEED,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_OBEY,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_CONCEAL,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_HOLD_AUDIENCE,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_PROTECT,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_DISEASE,1,0)
TRAP_AVAILABLE(PLAYER0,LIGHTNING,1,0)
TRAP_AVAILABLE(PLAYER0,LAVA,1,0)
TRAP_AVAILABLE(PLAYER0,WORD_OF_POWER,1,0)
DOOR_AVAILABLE(PLAYER0,STEEL,1,0)
DOOR_AVAILABLE(PLAYER0,MAGIC,1,0)


REM ***** Setup Gelb *****
COMPUTER_PLAYER(PLAYER3,1)
START_MONEY(PLAYER3,1)
MAX_CREATURES(PLAYER3,0)
MAGIC_AVAILABLE(PLAYER3,POWER_HAND,0,0)
MAGIC_AVAILABLE(PLAYER3,POWER_SLAP,0,0)
MAGIC_AVAILABLE(PLAYER3,POWER_POSSESS,0,0)
MAGIC_AVAILABLE(PLAYER3,POWER_IMP,0,0)
SET_COMPUTER_PROCESS(PLAYER3,"DIG TO CLOSE GOLD",0,10000000000,10000000000,5,20)
IF_ACTION_POINT(5,PLAYER0)
	ADD_CREATURE_TO_LEVEL(PLAYER3,SKELETON,PLAYER3,12,10,5000)
	ADD_CREATURE_TO_LEVEL(PLAYER3,SKELETON,PLAYER3,12,9,5000)
	ADD_CREATURE_TO_LEVEL(PLAYER3,SKELETON,PLAYER3,6,8,5000)
ENDIF
IF_ACTION_POINT(6,PLAYER0)
	REVEAL_MAP_RECT(PLAYER0,142,310,40,40)
ENDIF
IF_SLAB_TYPE(60,110,PRETTY_PATH)
	KILL_CREATURE(PLAYER3,IMP,ANYWHERE,48)
ENDIF
IF(PLAYER3,DUNGEON_DESTROYED==1)
	CHANGE_SLAB_TYPE(59,105,PATH)
	CHANGE_SLAB_TYPE(59,106,PATH)
	CHANGE_SLAB_TYPE(59,107,PATH)
	CHANGE_SLAB_TYPE(61,105,PATH)
	CHANGE_SLAB_TYPE(61,106,PATH)
	CHANGE_SLAB_TYPE(61,107,PATH)
	CREATE_EFFECT_AT_POS(EFFECT_DIRT_RUBBLE_BIG,178,316)
	CREATE_EFFECT_AT_POS(EFFECT_DIRT_RUBBLE_BIG,184,316)
	CREATE_EFFECT_AT_POS(EFFECT_DIRT_RUBBLE_BIG,178,322)
	CREATE_EFFECT_AT_POS(EFFECT_DIRT_RUBBLE_BIG,184,322)
	CHANGE_SLAB_TYPE(41,97,HARD)
	CHANGE_SLAB_TYPE(42,97,HARD)
	CHANGE_SLAB_TYPE(43,97,HARD)
	CHANGE_SLAB_TYPE(44,97,HARD)
	CHANGE_SLAB_TYPE(45,97,HARD)
	CHANGE_SLAB_TYPE(46,97,HARD)
	CHANGE_SLAB_TYPE(47,97,HARD)
	CHANGE_SLAB_TYPE(48,97,HARD)
	CHANGE_SLAB_TYPE(49,97,HARD)
	CHANGE_SLAB_TYPE(50,97,HARD)
	CHANGE_SLAB_TYPE(51,97,HARD)
	CHANGE_SLAB_TYPE(52,97,HARD)
	CHANGE_SLAB_TYPE(53,97,HARD)
	CHANGE_SLAB_TYPE(41,98,HARD)
	CHANGE_SLAB_TYPE(42,98,HARD)
	CHANGE_SLAB_TYPE(43,98,HARD)
	CHANGE_SLAB_TYPE(44,98,HARD)
	CHANGE_SLAB_TYPE(45,98,HARD)
	CHANGE_SLAB_TYPE(46,98,HARD)
	CHANGE_SLAB_TYPE(47,98,HARD)
	CHANGE_SLAB_TYPE(48,98,HARD)
	CHANGE_SLAB_TYPE(49,98,HARD)
	CHANGE_SLAB_TYPE(50,98,HARD)
	CHANGE_SLAB_TYPE(51,98,HARD)
	CHANGE_SLAB_TYPE(52,98,HARD)
	CHANGE_SLAB_TYPE(53,98,HARD)
	CHANGE_SLAB_TYPE(41,99,HARD)
	CHANGE_SLAB_TYPE(42,99,HARD)
	CHANGE_SLAB_TYPE(43,99,HARD)
	CHANGE_SLAB_TYPE(44,99,HARD)
	CHANGE_SLAB_TYPE(45,99,HARD)
	CHANGE_SLAB_TYPE(46,99,HARD)
	CHANGE_SLAB_TYPE(47,99,HARD)
	CHANGE_SLAB_TYPE(48,99,HARD)
	CHANGE_SLAB_TYPE(49,99,HARD)
	CHANGE_SLAB_TYPE(50,99,HARD)
	CHANGE_SLAB_TYPE(51,99,HARD)
	CHANGE_SLAB_TYPE(52,99,HARD)
	CHANGE_SLAB_TYPE(53,99,HARD)
	CHANGE_SLAB_TYPE(41,100,HARD)
	CHANGE_SLAB_TYPE(42,100,HARD)
	CHANGE_SLAB_TYPE(43,100,HARD)
	CHANGE_SLAB_TYPE(44,100,HARD)
	CHANGE_SLAB_TYPE(45,100,HARD)
	CHANGE_SLAB_TYPE(46,100,HARD)
	CHANGE_SLAB_TYPE(47,100,HARD)
	CHANGE_SLAB_TYPE(48,100,HARD)
	CHANGE_SLAB_TYPE(49,100,HARD)
	CHANGE_SLAB_TYPE(50,100,HARD)
	CHANGE_SLAB_TYPE(51,100,HARD)
	CHANGE_SLAB_TYPE(52,100,HARD)
	CHANGE_SLAB_TYPE(53,100,HARD)
	CHANGE_SLAB_TYPE(41,101,HARD)
	CHANGE_SLAB_TYPE(42,101,HARD)
	CHANGE_SLAB_TYPE(43,101,HARD)
	CHANGE_SLAB_TYPE(44,101,HARD)
	CHANGE_SLAB_TYPE(45,101,HARD)
	CHANGE_SLAB_TYPE(46,101,HARD)
	CHANGE_SLAB_TYPE(47,101,HARD)
	CHANGE_SLAB_TYPE(48,101,HARD)
	CHANGE_SLAB_TYPE(49,101,HARD)
	CHANGE_SLAB_TYPE(50,101,HARD)
	CHANGE_SLAB_TYPE(51,101,HARD)
	CHANGE_SLAB_TYPE(52,101,HARD)
	CHANGE_SLAB_TYPE(53,101,HARD)
	CHANGE_SLAB_TYPE(41,102,HARD)
	CHANGE_SLAB_TYPE(42,102,HARD)
	CHANGE_SLAB_TYPE(43,102,HARD)
	CHANGE_SLAB_TYPE(44,102,HARD)
	CHANGE_SLAB_TYPE(45,102,HARD)
	CHANGE_SLAB_TYPE(46,102,HARD)
	CHANGE_SLAB_TYPE(47,102,HARD)
	CHANGE_SLAB_TYPE(48,102,HARD)
	CHANGE_SLAB_TYPE(49,102,HARD)
	CHANGE_SLAB_TYPE(50,102,HARD)
	CHANGE_SLAB_TYPE(51,102,HARD)
	CHANGE_SLAB_TYPE(52,102,HARD)
	CHANGE_SLAB_TYPE(53,102,HARD)
	CHANGE_SLAB_TYPE(41,103,HARD)
	CHANGE_SLAB_TYPE(42,103,HARD)
	CHANGE_SLAB_TYPE(43,103,HARD)
	CHANGE_SLAB_TYPE(44,103,HARD)
	CHANGE_SLAB_TYPE(45,103,HARD)
	CHANGE_SLAB_TYPE(46,103,HARD)
	CHANGE_SLAB_TYPE(47,103,HARD)
	CHANGE_SLAB_TYPE(48,103,HARD)
	CHANGE_SLAB_TYPE(49,103,HARD)
	CHANGE_SLAB_TYPE(50,103,HARD)
	CHANGE_SLAB_TYPE(51,103,HARD)
	CHANGE_SLAB_TYPE(52,103,HARD)
	CHANGE_SLAB_TYPE(53,103,HARD)
	CHANGE_SLAB_TYPE(41,104,HARD)
	CHANGE_SLAB_TYPE(42,104,HARD)
	CHANGE_SLAB_TYPE(43,104,HARD)
	CHANGE_SLAB_TYPE(44,104,HARD)
	CHANGE_SLAB_TYPE(45,104,HARD)
	CHANGE_SLAB_TYPE(46,104,HARD)
	CHANGE_SLAB_TYPE(47,104,HARD)
	CHANGE_SLAB_TYPE(48,104,HARD)
	CHANGE_SLAB_TYPE(49,104,HARD)
	CHANGE_SLAB_TYPE(50,104,HARD)
	CHANGE_SLAB_TYPE(51,104,HARD)
	CHANGE_SLAB_TYPE(52,104,HARD)
	CHANGE_SLAB_TYPE(53,104,HARD)
	CHANGE_SLAB_TYPE(41,105,HARD)
	CHANGE_SLAB_TYPE(42,105,HARD)
	CHANGE_SLAB_TYPE(43,105,HARD)
	CHANGE_SLAB_TYPE(44,105,HARD)
	CHANGE_SLAB_TYPE(45,105,HARD)
	CHANGE_SLAB_TYPE(46,105,HARD)
	CHANGE_SLAB_TYPE(47,105,HARD)
	CHANGE_SLAB_TYPE(48,105,HARD)
	CHANGE_SLAB_TYPE(49,105,HARD)
	CHANGE_SLAB_TYPE(50,105,HARD)
	CHANGE_SLAB_TYPE(51,105,HARD)
	CHANGE_SLAB_TYPE(52,105,HARD)
	CHANGE_SLAB_TYPE(53,105,HARD)
	CHANGE_SLAB_TYPE(41,106,HARD)
	CHANGE_SLAB_TYPE(42,106,HARD)
	CHANGE_SLAB_TYPE(43,106,HARD)
	CHANGE_SLAB_TYPE(44,106,HARD)
	CHANGE_SLAB_TYPE(45,106,HARD)
	CHANGE_SLAB_TYPE(46,106,HARD)
	CHANGE_SLAB_TYPE(47,106,HARD)
	CHANGE_SLAB_TYPE(48,106,HARD)
	CHANGE_SLAB_TYPE(49,106,HARD)
	CHANGE_SLAB_TYPE(50,106,HARD)
	CHANGE_SLAB_TYPE(51,106,HARD)
	CHANGE_SLAB_TYPE(52,106,HARD)
	CHANGE_SLAB_TYPE(53,106,HARD)
	CHANGE_SLAB_TYPE(41,107,HARD)
	CHANGE_SLAB_TYPE(42,107,HARD)
	CHANGE_SLAB_TYPE(43,107,HARD)
	CHANGE_SLAB_TYPE(44,107,HARD)
	CHANGE_SLAB_TYPE(45,107,HARD)
	CHANGE_SLAB_TYPE(46,107,HARD)
	CHANGE_SLAB_TYPE(47,107,HARD)
	CHANGE_SLAB_TYPE(48,107,HARD)
	CHANGE_SLAB_TYPE(49,107,HARD)
	CHANGE_SLAB_TYPE(50,107,HARD)
	CHANGE_SLAB_TYPE(51,107,HARD)
	CHANGE_SLAB_TYPE(52,107,HARD)
	CHANGE_SLAB_TYPE(53,107,HARD)
	CHANGE_SLAB_TYPE(41,108,HARD)
	CHANGE_SLAB_TYPE(42,108,HARD)
	CHANGE_SLAB_TYPE(43,108,HARD)
	CHANGE_SLAB_TYPE(44,108,HARD)
	CHANGE_SLAB_TYPE(45,108,HARD)
	CHANGE_SLAB_TYPE(46,108,HARD)
	CHANGE_SLAB_TYPE(47,108,HARD)
	CHANGE_SLAB_TYPE(48,108,HARD)
	CHANGE_SLAB_TYPE(49,108,HARD)
	CHANGE_SLAB_TYPE(50,108,HARD)
	CHANGE_SLAB_TYPE(51,108,HARD)
	CHANGE_SLAB_TYPE(52,108,HARD)
	CHANGE_SLAB_TYPE(53,108,HARD)
	CHANGE_SLAB_TYPE(41,109,HARD)
	CHANGE_SLAB_TYPE(42,109,HARD)
	CHANGE_SLAB_TYPE(43,109,HARD)
	CHANGE_SLAB_TYPE(44,109,HARD)
	CHANGE_SLAB_TYPE(45,109,HARD)
	CHANGE_SLAB_TYPE(46,109,HARD)
	CHANGE_SLAB_TYPE(47,109,HARD)
	CHANGE_SLAB_TYPE(48,109,HARD)
	CHANGE_SLAB_TYPE(49,109,HARD)
	CHANGE_SLAB_TYPE(50,109,HARD)
	CHANGE_SLAB_TYPE(51,109,HARD)
	CHANGE_SLAB_TYPE(52,109,HARD)
	CHANGE_SLAB_TYPE(53,109,HARD)
ENDIF

REM ***** Setup Lila *****
COMPUTER_PLAYER(PLAYER4,1)
START_MONEY(PLAYER4,99999999)
CREATURE_ENTRANCE_LEVEL(PLAYER4,10)
MAX_CREATURES(PLAYER4,30)
CREATURE_AVAILABLE(PLAYER4,DWARFA,1,2)
CREATURE_AVAILABLE(PLAYER4,ARCHER,1,2)
CREATURE_AVAILABLE(PLAYER4,BARBARIAN,1,2)
CREATURE_AVAILABLE(PLAYER4,MONK,1,5)
CREATURE_AVAILABLE(PLAYER4,FAIRY,1,2)
CREATURE_AVAILABLE(PLAYER4,WITCH,1,2)
CREATURE_AVAILABLE(PLAYER4,WIZARD,1,0)
CREATURE_AVAILABLE(PLAYER4,GIANT,1,5)
CREATURE_AVAILABLE(PLAYER4,SAMURAI,1,5)
CREATURE_AVAILABLE(PLAYER4,TIME_MAGE,1,5)
CREATURE_AVAILABLE(PLAYER4,KNIGHT,1,5)
MAGIC_AVAILABLE(PLAYER4,POWER_HAND,1,1)
MAGIC_AVAILABLE(PLAYER4,POWER_HOLD_AUDIENCE,1,0)
MAGIC_AVAILABLE(PLAYER4,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(PLAYER4,POWER_PROTECT,1,0)

REM ***** Setup Schwarz *****
COMPUTER_PLAYER(PLAYER5,1)
START_MONEY(PLAYER5,99999999)
CREATURE_ENTRANCE_LEVEL(PLAYER5,10)
MAX_CREATURES(PLAYER5,30)
CREATURE_AVAILABLE(PLAYER5,DARK_MISTRESS,1,100)
CREATURE_AVAILABLE(PLAYER5,DRUID,1,100)
CREATURE_AVAILABLE(PLAYER5,HELL_HOUND,1,100)
CREATURE_AVAILABLE(PLAYER5,WITCH,1,2)
CREATURE_AVAILABLE(PLAYER5,VAMPIRE,1,4)
MAGIC_AVAILABLE(PLAYER5,POWER_HAND,1,1)
MAGIC_AVAILABLE(PLAYER5,POWER_SLAP,1,1)
MAGIC_AVAILABLE(PLAYER5,POWER_SPEED,1,0)
MAGIC_AVAILABLE(PLAYER5,POWER_OBEY,1,0)
MAGIC_AVAILABLE(PLAYER5,POWER_CONCEAL,1,0)
MAGIC_AVAILABLE(PLAYER5,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(PLAYER5,POWER_CALL_TO_ARMS,1,1)
MAGIC_AVAILABLE(PLAYER5,POWER_PROTECT,1,0)
MAGIC_AVAILABLE(PLAYER5,POWER_DISEASE,1,0)

REM ***** Setup Orange *****
COMPUTER_PLAYER(PLAYER6,1)
START_MONEY(PLAYER6,99999999)
MAGIC_AVAILABLE(PLAYER6,POWER_SPEED,1,0)
MAGIC_AVAILABLE(PLAYER6,POWER_OBEY,1,0)
MAGIC_AVAILABLE(PLAYER6,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(PLAYER6,POWER_CONCEAL,1,0)
MAGIC_AVAILABLE(PLAYER6,POWER_CAVE_IN,1,0)
MAGIC_AVAILABLE(PLAYER6,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(PLAYER6,POWER_LIGHTNING,1,0)
MAGIC_AVAILABLE(PLAYER6,POWER_PROTECT,1,0)



QUICK_INFORMATION(1,"You have mastered all variants... Good job! Now you have all the rooms and creatures at your disposal. Are you wondering why your Dungeon Heart is so huge? Because it will be the final battlefield! Prepare yourselves and build the strongest army possible to consolidate your rule once and for all!")

REVEAL_MAP_RECT(PLAYER0,256,486,40,40)

IF(PLAYER0,RESEARCH>0)
	QUICK_INFORMATION(2,"In order to make it not boring, there are some    changes in this realm:                            - The Scavenger Room attracts creatures through  the entrance, but it cannot be used for scavenging.  - Sight of Evil spell disabled                       - Lightning spell disabled                          - Cave In spell disabled                           - Chicken spell disabled                          - Boulder trap disabled                         ")
ENDIF

SET_FLAG(PLAYER4,FLAG0,0)
IF_AVAILABLE(PLAYER0,POWER_ARMAGEDDON>0)
	QUICK_OBJECTIVE(4,"          There you have ARMAGEDDON!            Now the final battle can begin...")
ENDIF




CREATE_PARTY(HELDENA)
ADD_TO_PARTY(HELDENA,SAMURAI,2,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(HELDENA,ARCHER,1,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HELDENA,ARCHER,1,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HELDENA,BARBARIAN,1,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HELDENA,BARBARIAN,1,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HELDENA,WIZARD,1,0,DEFEND_PARTY,0)
CREATE_PARTY(HELDENB)
ADD_TO_PARTY(HELDENB,SAMURAI,4,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(HELDENB,ARCHER,2,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HELDENB,ARCHER,2,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HELDENB,BARBARIAN,2,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HELDENB,BARBARIAN,2,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HELDENB,WIZARD,2,0,DEFEND_PARTY,0)
CREATE_PARTY(HELDENC)
ADD_TO_PARTY(HELDENC,SAMURAI,6,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(HELDENC,ARCHER,3,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HELDENC,ARCHER,3,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HELDENC,BARBARIAN,3,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HELDENC,BARBARIAN,3,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HELDENC,WIZARD,3,0,DEFEND_PARTY,0)
CREATE_PARTY(HELDEND)
ADD_TO_PARTY(HELDEND,SAMURAI,8,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(HELDEND,ARCHER,4,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HELDEND,ARCHER,4,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HELDEND,BARBARIAN,4,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HELDEND,BARBARIAN,4,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HELDEND,WIZARD,4,0,DEFEND_PARTY,0)
CREATE_PARTY(HELDENE)
ADD_TO_PARTY(HELDENE,SAMURAI,10,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(HELDENE,ARCHER,5,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HELDENE,ARCHER,5,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HELDENE,BARBARIAN,5,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HELDENE,BARBARIAN,5,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HELDENE,WIZARD,5,0,DEFEND_PARTY,0)
CREATE_PARTY(HELDENF)
ADD_TO_PARTY(HELDENF,KNIGHT,10,0,ATTACK_DUNGEON_HEART,0)
ADD_TO_PARTY(HELDENF,SAMURAI,8,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HELDENF,SAMURAI,8,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HELDENF,ARCHER,6,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HELDENF,ARCHER,6,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HELDENF,BARBARIAN,6,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HELDENF,BARBARIAN,6,0,DEFEND_PARTY,0)
ADD_TO_PARTY(HELDENF,WIZARD,6,0,DEFEND_PARTY,0)
IF_ACTION_POINT(2,PLAYER0)
	SET_TIMER(PLAYER_GOOD,TIMER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDENA,-1,1)
ENDIF
IF(PLAYER_GOOD,TIMER0>=1500)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDENA,-1,1)
ENDIF
IF(PLAYER_GOOD,TIMER0>=3000)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDENA,-1,1)
ENDIF
IF(PLAYER_GOOD,TIMER0>=4500)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDENB,-1,1)
ENDIF
IF(PLAYER_GOOD,TIMER0>=6000)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDENB,-1,1)
ENDIF
IF(PLAYER_GOOD,TIMER0>=7500)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDENB,-1,1)
ENDIF
IF(PLAYER_GOOD,TIMER0>=9000)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDENC,-1,1)
ENDIF
IF(PLAYER_GOOD,TIMER0>=10500)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDENC,-1,1)
ENDIF
IF(PLAYER_GOOD,TIMER0>=12000)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDENC,-1,1)
ENDIF
IF(PLAYER_GOOD,TIMER0>=13500)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDEND,-1,1)
ENDIF
IF(PLAYER_GOOD,TIMER0>=15000)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDEND,-1,1)
ENDIF
IF(PLAYER_GOOD,TIMER0>=16500)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDEND,-1,1)
ENDIF
IF(PLAYER_GOOD,TIMER0>=18000)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDENE,-1,1)
ENDIF
IF(PLAYER_GOOD,TIMER0>=19500)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDENE,-1,1)
ENDIF
IF(PLAYER_GOOD,TIMER0>=21000)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDENE,-1,1)
ENDIF
IF(PLAYER_GOOD,TIMER0>=22500)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDENA,-1,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDENE,-1,1)
ENDIF
IF(PLAYER_GOOD,TIMER0>=24000)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDENB,-1,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDENE,-1,1)
ENDIF
IF(PLAYER_GOOD,TIMER0>=25500)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDENA,-1,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDENE,-1,1)
ENDIF
IF(PLAYER_GOOD,TIMER0>=27000)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDENC,-1,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDENE,-1,1)
ENDIF
IF(PLAYER_GOOD,TIMER0>=28500)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDEND,-1,1)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDENE,-1,1)
ENDIF
IF(PLAYER_GOOD,TIMER0>=30000)
	QUICK_MESSAGE(3, "The final wave...",NONE)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDENE,-1,2)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,HELDENF,-1,1)
ENDIF
IF(PLAYER_GOOD,TIMER0>=30100)
	CREATE_EFFECT(EFFECT_WORD_OF_POWER,-1)
	CREATE_EFFECT(EFFECT_SPANGLE_WHITE,-1)
	CHANGE_SLAB_TYPE(85,116,HARD_FLOOR)
	HIDE_HERO_GATE(-1,1)
	IF(PLAYER_GOOD,TOTAL_CREATURES==0)
		ADD_TO_FLAG(PLAYER_GOOD,FLAG0,1)
	ENDIF
ENDIF



SET_FLAG(PLAYER_GOOD,FLAG0,0)

CREATE_PARTY(ALLTOGETHER)
ADD_TO_PARTY(ALLTOGETHER,FLY,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,BUG,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,DEMONSPAWN,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,TROLL,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,SPIDER,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,HELL_HOUND,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,TENTACLE,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,SORCEROR,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,ORC,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,BILE_DEMON,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,DRAGON,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,DARK_MISTRESS,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,GHOST,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,SKELETON,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,HORNY,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,THIEF,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,TUNNELLER,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,DWARFA,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,ARCHER,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,BARBARIAN,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,MONK,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,FAIRY,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,WITCH,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,WIZARD,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,GIANT,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,SAMURAI,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,KNIGHT,10,0,DEFEND_PARTY,0)
ADD_TO_PARTY(ALLTOGETHER,AVATAR,10,0,ATTACK_DUNGEON_HEART,0)
IF_ACTION_POINT(1,PLAYER0)
	ADD_PARTY_TO_LEVEL(PLAYER_GOOD,ALLTOGETHER,1,1)
	ADD_TO_FLAG(PLAYER_GOOD,FLAG0,1)
ENDIF

SET_BOX_TOOLTIP(0," Play as Red ")
SET_BOX_TOOLTIP(1," Play as Blue ")
SET_BOX_TOOLTIP(2," Play as Green ")
SET_BOX_TOOLTIP(3," Play as Yellow ")
SET_BOX_TOOLTIP(4," Play as Purple ")
SET_BOX_TOOLTIP(5," Play as Black ")
SET_BOX_TOOLTIP(6," Play as White ")
SET_BOX_TOOLTIP(7," Play as Orange ")
IF(PLAYER0, BOX0_ACTIVATED == 1)
	NEXT_COMMAND_REUSABLE
	SET_PLAYER_COLOR(PLAYER0,RED)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,10,0)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX0_ACTIVATED,0)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,FLAG7,1)
ENDIF
IF(PLAYER0, BOX1_ACTIVATED == 1)
	NEXT_COMMAND_REUSABLE
	SET_PLAYER_COLOR(PLAYER0,BLUE)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,11,1)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX1_ACTIVATED,0)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,FLAG7,1)
ENDIF
IF(PLAYER0, BOX2_ACTIVATED == 1)
	NEXT_COMMAND_REUSABLE
	SET_PLAYER_COLOR(PLAYER0,GREEN)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,12,2)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX2_ACTIVATED,0)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,FLAG7,1)
ENDIF
IF(PLAYER0, BOX3_ACTIVATED == 1)
	NEXT_COMMAND_REUSABLE
	SET_PLAYER_COLOR(PLAYER0,YELLOW)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,13,3)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX3_ACTIVATED,0)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,FLAG7,1)
ENDIF
IF(PLAYER0, BOX4_ACTIVATED == 1)
	NEXT_COMMAND_REUSABLE
	SET_PLAYER_COLOR(PLAYER0,PURPLE)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,14,4)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX4_ACTIVATED,0)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,FLAG7,1)
ENDIF
IF(PLAYER0, BOX5_ACTIVATED == 1)
	NEXT_COMMAND_REUSABLE
	SET_PLAYER_COLOR(PLAYER0,BLACK)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,15,5)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX5_ACTIVATED,0)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,FLAG7,1)
ENDIF
IF(PLAYER0, BOX6_ACTIVATED == 1)
	NEXT_COMMAND_REUSABLE
	SET_PLAYER_COLOR(PLAYER0,WHITE)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,16,6)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX6_ACTIVATED,0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL_AT_POS(HEARTFLAME_WHITE,250,433,0,PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL_AT_POS(HEARTFLAME_WHITE,253,433,0,PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL_AT_POS(HEARTFLAME_WHITE,259,433,0,PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL_AT_POS(HEARTFLAME_WHITE,262,433,0,PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL_AT_POS(HEARTFLAME_WHITE,250,463,0,PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL_AT_POS(HEARTFLAME_WHITE,253,463,0,PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL_AT_POS(HEARTFLAME_WHITE,259,463,0,PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL_AT_POS(HEARTFLAME_WHITE,262,463,0,PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL_AT_POS(HEARTFLAME_WHITE,241,442,0,PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL_AT_POS(HEARTFLAME_WHITE,241,445,0,PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL_AT_POS(HEARTFLAME_WHITE,241,451,0,PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL_AT_POS(HEARTFLAME_WHITE,241,454,0,PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL_AT_POS(HEARTFLAME_WHITE,271,442,0,PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL_AT_POS(HEARTFLAME_WHITE,271,445,0,PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL_AT_POS(HEARTFLAME_WHITE,271,451,0,PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL_AT_POS(HEARTFLAME_WHITE,271,454,0,PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL_AT_POS(HEARTFLAME_WHITE,247,439,0,PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL_AT_POS(HEARTFLAME_WHITE,265,439,0,PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL_AT_POS(HEARTFLAME_WHITE,247,457,0,PLAYER0)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL_AT_POS(HEARTFLAME_WHITE,265,457,0,PLAYER0)
ENDIF
IF(PLAYER0, BOX7_ACTIVATED == 1)
	NEXT_COMMAND_REUSABLE
	SET_PLAYER_COLOR(PLAYER0,ORANGE)
	NEXT_COMMAND_REUSABLE
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,17,7)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,BOX7_ACTIVATED,0)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,FLAG7,1)
ENDIF
IF(PLAYER0,FLAG7 == 1)
	NEXT_COMMAND_REUSABLE
	CHANGE_SLAB_TYPE(83,154,HEART_PEDESTAL)
	NEXT_COMMAND_REUSABLE
	CHANGE_SLAB_TYPE(84,154,HEART_PEDESTAL)
	NEXT_COMMAND_REUSABLE
	CHANGE_SLAB_TYPE(86,154,HEART_PEDESTAL)
	NEXT_COMMAND_REUSABLE
	CHANGE_SLAB_TYPE(87,154,HEART_PEDESTAL)
	NEXT_COMMAND_REUSABLE
	CHANGE_SLAB_TYPE(82,152,HEART_PEDESTAL)
	NEXT_COMMAND_REUSABLE
	CHANGE_SLAB_TYPE(88,152,HEART_PEDESTAL)
	NEXT_COMMAND_REUSABLE
	CHANGE_SLAB_TYPE(80,150,HEART_PEDESTAL)
	NEXT_COMMAND_REUSABLE
	CHANGE_SLAB_TYPE(80,151,HEART_PEDESTAL)
	NEXT_COMMAND_REUSABLE
	CHANGE_SLAB_TYPE(80,147,HEART_PEDESTAL)
	NEXT_COMMAND_REUSABLE
	CHANGE_SLAB_TYPE(80,148,HEART_PEDESTAL)
	NEXT_COMMAND_REUSABLE
	CHANGE_SLAB_TYPE(90,150,HEART_PEDESTAL)
	NEXT_COMMAND_REUSABLE
	CHANGE_SLAB_TYPE(90,151,HEART_PEDESTAL)
	NEXT_COMMAND_REUSABLE
	CHANGE_SLAB_TYPE(90,147,HEART_PEDESTAL)
	NEXT_COMMAND_REUSABLE
	CHANGE_SLAB_TYPE(90,148,HEART_PEDESTAL)
	NEXT_COMMAND_REUSABLE
	CHANGE_SLAB_TYPE(82,146,HEART_PEDESTAL)
	NEXT_COMMAND_REUSABLE
	CHANGE_SLAB_TYPE(88,146,HEART_PEDESTAL)
	NEXT_COMMAND_REUSABLE
	CHANGE_SLAB_TYPE(83,144,HEART_PEDESTAL)
	NEXT_COMMAND_REUSABLE
	CHANGE_SLAB_TYPE(84,144,HEART_PEDESTAL)
	NEXT_COMMAND_REUSABLE
	CHANGE_SLAB_TYPE(86,144,HEART_PEDESTAL)
	NEXT_COMMAND_REUSABLE
	CHANGE_SLAB_TYPE(87,144,HEART_PEDESTAL)
	NEXT_COMMAND_REUSABLE
	SET_FLAG(PLAYER0,FLAG7,0)
	NEXT_COMMAND_REUSABLE
	PLAY_MESSAGE(PLAYER0,SPEECH,80)   REM "So be it!"
ENDIF
IF(PLAYER3,DUNGEON_DESTROYED==1)
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,13,3)
ENDIF
IF(PLAYER4,DUNGEON_DESTROYED==1)
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,14,4)
ENDIF
IF(PLAYER5,DUNGEON_DESTROYED==1)
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,15,5)
ENDIF
IF(PLAYER_GOOD,FLAG0 == 2)
	IF(PLAYER_GOOD,AVATAR==0)
		ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,16,6)
	ENDIF
ENDIF

REM ***** WIN-EVENT ***** 
IF(PLAYER6,DUNGEON_DESTROYED==1)
	WIN_GAME
	ADD_OBJECT_TO_LEVEL(SPECBOX_CUSTOM,17,7)
ENDIF

REM ***** IMP-DECKEL ***** 
IF(PLAYER0,IMP >= 50)
	QUICK_MESSAGE(0, "50 Imps are more than enough!",IMP)
	NEXT_COMMAND_REUSABLE
	MAGIC_AVAILABLE(PLAYER0,POWER_IMP,0,0)
ENDIF
IF(PLAYER0,IMP < 50)
	NEXT_COMMAND_REUSABLE
	MAGIC_AVAILABLE(PLAYER0,POWER_IMP,1,1)
ENDIF

SET_BOX_TOOLTIP(0," Imps Gain Teleport")
IF(PLAYER0, BOX0_ACTIVATED == 1)
	PLAY_MESSAGE(PLAYER0,SOUND,488)		REM imphapy.wav
	PLAY_MESSAGE(PLAYER0,SPEECH,83)		REM "... mit Erfahrung gesegnet"
	SET_CREATURE_INSTANCE(IMP,10,TELEPORT,1)
ENDIF