REM ********************************************
REM	            Imp Roulette
REM             Script for Level 224
REM		    Steve Tupper
REM ********************************************


REM ************************************
REM ********** SETUP COMMANDS **********
REM ************************************

REM *** Number of turns wait for new creature (max 12 turns per second depending on computer speed) ***
SET_GENERATE_SPEED(2160)

REM *** money sart with - duh ***
START_MONEY(PLAYER0, 36000)

REM *** remember max of 255 in all dungeons on level at any time ***
MAX_CREATURES(PLAYER0, 20)


REM ********** Set up rooms, traps, doors and magic **********

REM *** rooms available to players also ENTRANCE but don't need here ***
ROOM_AVAILABLE(PLAYER0, TREASURE,  1, 0)
ROOM_AVAILABLE(PLAYER0, RESEARCH,  1, 0)
ROOM_AVAILABLE(PLAYER0, TRAINING,  1, 0)
ROOM_AVAILABLE(PLAYER0, WORKSHOP,  1, 0)
ROOM_AVAILABLE(PLAYER0, SCAVENGER, 1, 0)
ROOM_AVAILABLE(PLAYER0, TEMPLE,    1, 0)
ROOM_AVAILABLE(PLAYER0, TORTURE,   1, 0)
ROOM_AVAILABLE(PLAYER0, GRAVEYARD, 1, 0)
ROOM_AVAILABLE(PLAYER0, BARRACKS,  1, 0)
ROOM_AVAILABLE(PLAYER0, GARDEN,    1, 0)
ROOM_AVAILABLE(PLAYER0, LAIR,      1, 0)
ROOM_AVAILABLE(PLAYER0, GUARD_POST,1, 0)

REM *** spells available to players ***
MAGIC_AVAILABLE(PLAYER0, POWER_IMP,          0, 0)
MAGIC_AVAILABLE(PLAYER0, POWER_OBEY,         1, 0)
MAGIC_AVAILABLE(PLAYER0, POWER_SIGHT,        0, 0)
MAGIC_AVAILABLE(PLAYER0, POWER_CALL_TO_ARMS, 1, 0)
MAGIC_AVAILABLE(PLAYER0, POWER_CAVE_IN,      1, 0)
MAGIC_AVAILABLE(PLAYER0, POWER_HEAL_CREATURE,1, 0)
MAGIC_AVAILABLE(PLAYER0, POWER_HOLD_AUDIENCE,1, 0)
MAGIC_AVAILABLE(PLAYER0, POWER_LIGHTNING,    1, 0)
MAGIC_AVAILABLE(PLAYER0, POWER_SPEED,        1, 0)
MAGIC_AVAILABLE(PLAYER0, POWER_PROTECT,      1, 0)
MAGIC_AVAILABLE(PLAYER0, POWER_CONCEAL,      1, 0)
MAGIC_AVAILABLE(PLAYER0, POWER_DISEASE,      0, 0)
MAGIC_AVAILABLE(PLAYER0, POWER_CHICKEN,      0, 0)
MAGIC_AVAILABLE(PLAYER0, POWER_DESTROY_WALLS,1, 0)
MAGIC_AVAILABLE(PLAYER0, POWER_ARMAGEDDON,   0, 0)

REM *** doors available to players ***
DOOR_AVAILABLE(PLAYER0, WOOD,  1, 0)
DOOR_AVAILABLE(PLAYER0, BRACED,1, 0)
DOOR_AVAILABLE(PLAYER0, STEEL, 1, 0)
DOOR_AVAILABLE(PLAYER0, MAGIC, 1, 0)

REM *** traps available to players ***
TRAP_AVAILABLE(PLAYER0, BOULDER,      1, 0)
TRAP_AVAILABLE(PLAYER0, ALARM,        1, 0)
TRAP_AVAILABLE(PLAYER0, POISON_GAS,   1, 0)
TRAP_AVAILABLE(PLAYER0, LIGHTNING,    1, 0)
TRAP_AVAILABLE(PLAYER0, WORD_OF_POWER,1, 0)
TRAP_AVAILABLE(PLAYER0, LAVA,         1, 0)


REM ********** Set up creature information **********

REM *** remember to have enough to cover all players ***
ADD_CREATURE_TO_POOL(TROLL,        1)
ADD_CREATURE_TO_POOL(DRAGON,       1)
ADD_CREATURE_TO_POOL(DEMONSPAWN,   1)
ADD_CREATURE_TO_POOL(FLY,          1)
ADD_CREATURE_TO_POOL(DARK_MISTRESS,1)
ADD_CREATURE_TO_POOL(SORCEROR,     1)
ADD_CREATURE_TO_POOL(BILE_DEMON,   1)
ADD_CREATURE_TO_POOL(BUG,          1)
ADD_CREATURE_TO_POOL(SPIDER,       1)
ADD_CREATURE_TO_POOL(HELL_HOUND,   1)
ADD_CREATURE_TO_POOL(ORC,          1)
ADD_CREATURE_TO_POOL(SKELETON,     1)
ADD_CREATURE_TO_POOL(VAMPIRE,      1)
ADD_CREATURE_TO_POOL(GHOST,        1)
ADD_CREATURE_TO_POOL(TENTACLE,     1)
ADD_CREATURE_TO_POOL(HORNY,        1)

REM *** the 1 field must be in here ***
CREATURE_AVAILABLE(PLAYER0,TROLL,        1, 1)
CREATURE_AVAILABLE(PLAYER0,DRAGON,       1, 1)
CREATURE_AVAILABLE(PLAYER0,DEMONSPAWN,   1, 1)
CREATURE_AVAILABLE(PLAYER0,FLY,          1, 1)
CREATURE_AVAILABLE(PLAYER0,DARK_MISTRESS,1, 1)
CREATURE_AVAILABLE(PLAYER0,SORCEROR,     1, 1)
CREATURE_AVAILABLE(PLAYER0,BILE_DEMON,   1, 1)
CREATURE_AVAILABLE(PLAYER0,BUG,          1, 1)
CREATURE_AVAILABLE(PLAYER0,SPIDER,       1, 1)
CREATURE_AVAILABLE(PLAYER0,HELL_HOUND,   1, 1)
CREATURE_AVAILABLE(PLAYER0,ORC,          1, 1)
CREATURE_AVAILABLE(PLAYER0,SKELETON,     1, 1)
CREATURE_AVAILABLE(PLAYER0,VAMPIRE,      1, 1)
CREATURE_AVAILABLE(PLAYER0,GHOST,        1, 1)
CREATURE_AVAILABLE(PLAYER0,HORNY,        1, 1)
CREATURE_AVAILABLE(PLAYER0,TENTACLE,     1, 1)


REM ************************************************
REM ********** CONDITIONS & GAME COMMANDS **********
REM ************************************************

QUICK_OBJECTIVE(0, "The Dark Gods have brought you here evil one - it is a sport that they enjoy to play with their champions. Treat it as a test - only two keepers before you have suceeded in this game, the mighty Razon and a keeper from centuries before.", PLAYER0)
IF(PLAYER0, GAME_TURN > 3600)
   QUICK_INFORMATION(1, "The rules are simple keeper, at the heart of this realm lies a dungeon heart - destroy it and you win but beware each segment holds a danger, defeat that danger and you will be rewarded. Look after your imps - they are your currency")
ENDIF


REM *** condition = room, trap, door, creature or spell ***
IF_ACTION_POINT(1, PLAYER0)
   ROOM_AVAILABLE(PLAYER0, PRISON,    1, 0)
ENDIF

IF_ACTION_POINT(2, PLAYER0)
   ROOM_AVAILABLE(PLAYER0, BRIDGE,    1, 0)
ENDIF


REM ************************************************
REM ********** WIN / LOSE GAME CONDITIONS **********
REM ************************************************

REM *** Win or lose condition ***
IF(PLAYER_GOOD, DUNGEON_DESTROYED == 1)
   WIN_GAME
ENDIF
