REM KDK Level 10

SET_GENERATE_SPEED(600)

MAX_CREATURES(PLAYER0,33)
MAX_CREATURES(PLAYER1,26)

START_MONEY(PLAYER0,54000)
START_MONEY(PLAYER1,65555)

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)

ADD_CREATURE_TO_POOL(DARK_MISTRESS,8)
ADD_CREATURE_TO_POOL(SORCEROR,13)
ADD_CREATURE_TO_POOL(BILE_DEMON,3)
ADD_CREATURE_TO_POOL(HELL_HOUND,3)
ADD_CREATURE_TO_POOL(DRAGON,4)
ADD_CREATURE_TO_POOL(ORC,1)

REM Creature_Availability

CREATURE_AVAILABLE(ALL_PLAYERS,DARK_MISTRESS,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,SORCEROR,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,BILE_DEMON,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,HELL_HOUND,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,DRAGON,1,1)
CREATURE_AVAILABLE(ALL_PLAYERS,ORC,1,1)

REM Room_Availability

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,0)
ROOM_AVAILABLE(PLAYER0,RESEARCH,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,WORKSHOP,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,GUARD_POST,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,BRIDGE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,PRISON,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,TORTURE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,TEMPLE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,GRAVEYARD,1,0)
ROOM_AVAILABLE(PLAYER1,RESEARCH,1,1)

REM Spells

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(ALL_PLAYERS,POWER_LIGHTNING,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_PROTECT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CONCEAL,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_DISEASE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CAVE_IN,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CHICKEN,1,0)

REM doors & traps


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



REM -------------------------------------------------------------------------------------------------------------------------------------------

REM CREATE_TEXT(1,100"THIS IS A FIERY REALM.  TREAD CAREFULLY.  CONQUER THE RIVAL KEEPER TO RULE THIS LAND.")
DISPLAY_OBJECTIVE(100,PLAYER0)


IF(PLAYER1,DUNGEON_DESTROYED == 1)
    REM CREATE_TEXT(2,101"CONGRATULATIONS.  THIS LAND AND ITS INHABITANTS WILL NOW BEND TO YOUR WILL.")
    DISPLAY_OBJECTIVE(101,PLAYER0)
    WIN_GAME
ENDIF

IF_AVAILABLE(PLAYER0,BOULDER == 1)
    REM CREATE_TEXT(8,90"YOU HAVE A BOULDER TRAP MANUFACTURED.  PUT THESE DOWN IN CORRIDORS AND WATCH THEM CRUSH ALL CREATURES IN ITS PATH.")
    DISPLAY_INFORMATION(90,PLAYER0)
ENDIF

IF_AVAILABLE(PLAYER0,POWER_CAVE_IN == 1)
REM CREATE_TEXT(1,91"YOU HAVE RESEARCHED THE CAVE IN SPELL.  USE IT TO BLOCK OFF PASSAGES AND REPAIR DUNGEON BREACHES.  BEWARE, HOWEVER, AS THE ROCKFALL WILL CRUSH TO DEATH ALL CREATURES BENEATH IT.")
    REM DISPLAY_INFORMATION(91,PLAYER0)
ENDIF

IF(PLAYER0,SCAVENGER > 0)
REM CREATE_TEXT(2,92"YOU HAVE RESEARCHED A SCAVENGER ROOM.  PLACE CREATURES WITHIN TO CONVERT OVER CREATURES OF THAT TYPE FROM ENEMY DUNGEON KEEPERS.  IF THERE ARE NO ENEMY KEEPERS, CREATURES WILL JOIN YOU FROM THE SURFACE.")
    DISPLAY_INFORMATION(92,PLAYER0)
    ROOM_AVAILABLE(PLAYER0,SCAVENGER,1,1)
ENDIF

IF(PLAYER0,DRAGON > 0)
    REM CREATE_TEXT(3,93"A DRAGON HAS JOINED YOU, LURED TO YOU BY YOUR GREAT WEALTH.")
    DISPLAY_INFORMATION(93,PLAYER0)
ENDIF

IF(PLAYER0,HELL_HOUND > 0)
    REM CREATE_TEXT(6,94"A HELL HOUND HAS JOINED YOU, ATTRACTED BY YOUR SCAVENGER ROOM.")
    DISPLAY_INFORMATION(94,PLAYER0)
ENDIF
