REM ********************************************
REM
REM Imp o Mania
REM
REM ********************************************

REM Level created by Mr U 06/04/98 with the official DK-editor
REM final version for the net 06/07/98

REM A single player map for Dungeon Keeper and/or Deeper Dungeons
REM note: make use of your "never-dying" imps!
REM for contact (bugs found, ideas for improving the map etc.):
REM email: udo.weiler@cyberfun.de
REM ... or have a look at Fizzbans keep!

REM --- the setup

REM copied from regular DK lvl10
COMPUTER_PLAYER(PLAYER1,0)
SET_COMPUTER_CHECKS(PLAYER1,"CHECK FOR QUICK ATTACK",700,70,3000,8,12500)
SET_COMPUTER_PROCESS(PLAYER1,"ATTACK SAFE ATTACK",0,70,8,70,0)
SET_COMPUTER_PROCESS(PLAYER1,"ATTACK PLAN 1",0,70,8,70,0)

SET_GENERATE_SPEED(180)

START_MONEY(PLAYER0,5000)
START_MONEY(PLAYER1,6000)

MAX_CREATURES(PLAYER0,14)
MAX_CREATURES(PLAYER1,17)

ADD_CREATURE_TO_POOL(DEMONSPAWN,22)
ADD_CREATURE_TO_POOL(GIANT,8)
ADD_CREATURE_TO_POOL(WIZARD,8)
ADD_CREATURE_TO_POOL(WITCH,12)
ADD_CREATURE_TO_POOL(BARBARIAN,12)

CREATURE_AVAILABLE(ALL_PLAYERS,DEMONSPAWN,1,1)

CREATURE_AVAILABLE(PLAYER0,WIZARD,1,1)
CREATURE_AVAILABLE(PLAYER0,GIANT,1,1)

CREATURE_AVAILABLE(PLAYER1,WITCH,1,1)
CREATURE_AVAILABLE(PLAYER1,BARBARIAN,1,1)


ROOM_AVAILABLE(ALL_PLAYERS,LAIR,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,GARDEN,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,RESEARCH,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,TRAINING,1,1)
ROOM_AVAILABLE(ALL_PLAYERS,GUARD_POST,1,1)

MAGIC_AVAILABLE(ALL_PLAYERS,POWER_OBEY,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)

MAGIC_AVAILABLE(PLAYER0,POWER_CAVE_IN,1,0)

MAGIC_AVAILABLE(PLAYER1,POWER_IMP,1,1)
MAGIC_AVAILABLE(PLAYER1,POWER_LIGHTNING,1,0)
MAGIC_AVAILABLE(PLAYER1,POWER_CALL_TO_ARMS,1,0)

REM --- code maintaining the reincarnating imps

IF(PLAYER0,TOTAL_IMPS <= 4)
    NEXT_COMMAND_REUSABLE
    ADD_CREATURE_TO_LEVEL(PLAYER0,IMP,PLAYER0,1,3,0)
ENDIF

REM --- fresh creatures for blue player!

IF_ACTION_POINT(1,PLAYER0)
    IF(PLAYER1,TOTAL_CREATURES <= 5)
        ADD_CREATURE_TO_LEVEL(PLAYER1,WITCH,1,3,6,1200)
        ADD_CREATURE_TO_LEVEL(PLAYER1,BARBARIAN,1,5,6,1000)
    ENDIF
ENDIF

REM --- winning the game

IF(PLAYER1,DUNGEON_DESTROYED == 1)
    WIN_GAME
ENDIF
