REM ********************************************
REM
REM            Script for Level 37 - Necronaro
REM
REM ********************************************
REM Generated using Dungeon Scripter V0.84.
REM Created by Stubbjax.
REM ********************************************

REM ************** SETUP - GENERAL *************

SET_GENERATE_SPEED(400)
MAX_CREATURES(PLAYER0,25)
MAX_CREATURES(PLAYER1,30)
START_MONEY(PLAYER0,9000)
START_MONEY(PLAYER1,9000)
COMPUTER_PLAYER(PLAYER1,0)

REM ************* SETUP - CREATURES ************

ADD_CREATURE_TO_POOL(BUG,20)
ADD_CREATURE_TO_POOL(SPIDER,20)
ADD_CREATURE_TO_POOL(TROLL,30)
ADD_CREATURE_TO_POOL(HELL_HOUND,10)
ADD_CREATURE_TO_POOL(ORC,10)
ADD_CREATURE_TO_POOL(BILE_DEMON,20)
ADD_CREATURE_TO_POOL(DRAGON,20)
ADD_CREATURE_TO_POOL(SORCEROR,20)
ADD_CREATURE_TO_POOL(DARK_MISTRESS,10)
ADD_CREATURE_TO_POOL(THIEF,35)

CREATURE_AVAILABLE(PLAYER1,BUG,1,1)
CREATURE_AVAILABLE(PLAYER1,SPIDER,1,1)
CREATURE_AVAILABLE(PLAYER1,TROLL,1,1)
CREATURE_AVAILABLE(PLAYER1,HELL_HOUND,1,1)
CREATURE_AVAILABLE(PLAYER1,ORC,1,1)
CREATURE_AVAILABLE(PLAYER1,BILE_DEMON,1,1)
CREATURE_AVAILABLE(PLAYER1,DRAGON,1,1)
CREATURE_AVAILABLE(PLAYER1,SORCEROR,1,1)
CREATURE_AVAILABLE(PLAYER1,DARK_MISTRESS,1,1)
CREATURE_AVAILABLE(PLAYER0,THIEF,1,1)

REM *************** SETUP - ROOMS **************

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

REM ************** SETUP - SPELLS **************

MAGIC_AVAILABLE(PLAYER0,POWER_IMP,1,0)
MAGIC_AVAILABLE(PLAYER1,POWER_IMP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SIGHT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_OBEY,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_CAVE_IN,1,0)
MAGIC_AVAILABLE(PLAYER1,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_LIGHTNING,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_PROTECT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CHICKEN,1,0)
MAGIC_AVAILABLE(PLAYER1,POWER_DISEASE,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_DESTROY_WALLS,1,0)

REM *********** SETUP - TRAPS & DOORS **********

TRAP_AVAILABLE(ALL_PLAYERS,ALARM,1,0)
TRAP_AVAILABLE(PLAYER1,LIGHTNING,1,0)
TRAP_AVAILABLE(PLAYER0,BOULDER,1,0)
TRAP_AVAILABLE(PLAYER1,WORD_OF_POWER,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,WOOD,1,0)
DOOR_AVAILABLE(ALL_PLAYERS,BRACED,1,0)

CREATE_PARTY(REAPERS)
    ADD_TO_PARTY(REAPERS,HORNY,10,500,ATTACK_ENEMIES,0)
    ADD_TO_PARTY(REAPERS,HORNY,10,500,ATTACK_ENEMIES,0)

REM ****************************************************************************

QUICK_OBJECTIVE(1,"A Keeper by the name of Lucifer controls the crossing point here to the last standing Realms of Valhalla. Some Squatter creatures prowl the crossing. They shouldn't be a problem, but you can only attract thiefs into this realm, who will prove useless. However, there is a Graveyard nearby...",PLAYER0)
ENDIF

SET_FLAG(PLAYER0,FLAG0,1)

SET_TIMER(PLAYER_GOOD,TIMER1)
ENDIF

IF_ACTION_POINT(1,PLAYER0)
ADD_PARTY_TO_LEVEL(PLAYER1,HORNY,1,1)
ENDIF

IF(PLAYER_GOOD,TIMER1 >= 300)
QUICK_INFORMATION(2,"You will need better creatures than thiefs to take on Lucifer, Keeper. Sacrifice thier corpses in the graveyard to turn them into vampires. Do the same for the Prison to gain some skeletons. You'll need creatures that can ressurect themselves if need be. You could be almost unstopable if you do. I'm looking forward to this, Master.",PLAYER0)
ENDIF

IF(PLAYER_GOOD,TIMER1 >= 600)
QUICK_INFORMATION(3,"It seems as though that certain rooms are available while others need to be researched. Find a way to gain some Vampires that can do this for you. They make Excellent researchers.",PLAYER0)
ENDIF

IF(PLAYER0,THIEF  == 4)
QUICK_INFORMATION(4,"Remember, that your thiefs are only here for Sacrificial purposes. Amass a huge Army of the Undead, before taking on Lucifer.",PLAYER0)
ENDIF


IF(PLAYER0,FLAG0 == 1)
   IF(PLAYER_GOOD,TOTAL_CREATURES == 0)
       IF(PLAYER1,DUNGEON_DESTROYED ==1)
QUICK_OBJECTIVE(5,"Who would have thought that the Prince of Darkness, Lucifer himself would fall to creatures that have already bypassed death and immortality. I can hear the gushing of blood from the slurping of our Vampires. Now the only thing that remains to defeat is the sickening Good.",PLAYER0)
    WIN_GAME   
   ENDIF
      ENDIF
        ENDIF