REM ********************************************
REM		James Tupper
REM             Script for Level 223
REM		Numptys Anus
REM ********************************************

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


REM ********** Set up player information **********

REM *** reasonably long delay 1 minute ***
SET_GENERATE_SPEED(720)

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


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

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

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

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


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

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


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

REM *** remember to have enough to cover all players ***
ADD_CREATURE_TO_POOL(TROLL,        10)
ADD_CREATURE_TO_POOL(DARK_MISTRESS, 8)
ADD_CREATURE_TO_POOL(SORCEROR,     15)
ADD_CREATURE_TO_POOL(SPIDER,       25)
ADD_CREATURE_TO_POOL(HELL_HOUND,   10)
ADD_CREATURE_TO_POOL(ORC,          25)
ADD_CREATURE_TO_POOL(SAMURAI,       3)
ADD_CREATURE_TO_POOL(FLY,          25)
ADD_CREATURE_TO_POOL(BUG,          25)
ADD_CREATURE_TO_POOL(BILE_DEMON,   10)
ADD_CREATURE_TO_POOL(DRAGON,        5)
ADD_CREATURE_TO_POOL(DEMONSPAWN    30)

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,WIZARD,       1, 1)
CREATURE_AVAILABLE(PLAYER0,SAMURAI,      1, 1)


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


REM *** Might require this to be in an IF statement, also needs to be less than certain number of characters to appear ? = 1 - 30. Cannot use ALL_PLAYERS ***
QUICK_OBJECTIVE(1, "Numpty the Dwarf is back...again! This time he has sworn not to be defeated! It will take an army of great strength and wisdom to defeat him this time. The rains have fallen heavily in certain parts of the realm, so make sure you take your umbrella! On the east side a volcano has spilt lava into Numptys domain...unfortunatly this has made the poison dwarf stronger....approach with caution keeper!", PLAYER0)


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

REM *** Win or lose condition ***
IF(PLAYER0, ALL_DUNGEONS_DESTROYED == 1)
   WIN_GAME
ENDIF
