REM ********************************************
REM		      Steve Tupper
REM             Script for Level 212
REM			Chalice
REM ********************************************


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


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

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

REM *** agressiveness = 0 everything on, 1 small aggressive, 3 small defensive, 4 large defensive, 5 large aggressive, 10 medium all rounder ***
COMPUTER_PLAYER(PLAYER1, 4)
COMPUTER_PLAYER(PLAYER2, 5)
COMPUTER_PLAYER(PLAYER3, 10)

REM *** money sart with - duh ***
START_MONEY(PLAYER0, 10000)
START_MONEY(PLAYER1, 5000)
START_MONEY(PLAYER2, 10000)
START_MONEY(PLAYER3, 1000)

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


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

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

REM *** spells available to players ***
MAGIC_AVAILABLE(ALL_PLAYERS, POWER_IMP,          1, 1)
MAGIC_AVAILABLE(ALL_PLAYERS, POWER_OBEY,         1, 0)
MAGIC_AVAILABLE(ALL_PLAYERS, POWER_SIGHT,        1, 0)
MAGIC_AVAILABLE(ALL_PLAYERS, POWER_CALL_TO_ARMS, 1, 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,1, 0)
MAGIC_AVAILABLE(ALL_PLAYERS, POWER_LIGHTNING,    1, 0)
MAGIC_AVAILABLE(ALL_PLAYERS, POWER_SPEED,        1, 0)
MAGIC_AVAILABLE(ALL_PLAYERS, POWER_PROTECT,      1, 0)
MAGIC_AVAILABLE(ALL_PLAYERS, POWER_CONCEAL,      1, 1)
MAGIC_AVAILABLE(ALL_PLAYERS, POWER_DISEASE,      1, 0)
MAGIC_AVAILABLE(ALL_PLAYERS, POWER_CHICKEN,      1, 0)
MAGIC_AVAILABLE(ALL_PLAYERS, POWER_DESTROY_WALLS,1, 0)
MAGIC_AVAILABLE(ALL_PLAYERS, POWER_ARMAGEDDON,   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(PLAYER3,     BOULDER,      1, 0)
TRAP_AVAILABLE(ALL_PLAYERS, ALARM,        1, 0)
TRAP_AVAILABLE(ALL_PLAYERS, POISON_GAS,   1, 0)
TRAP_AVAILABLE(ALL_PLAYERS, LIGHTNING,    1, 0)
TRAP_AVAILABLE(ALL_PLAYERS, WORD_OF_POWER,1, 0)


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

REM *** remember to have enough to cover all players ***
ADD_CREATURE_TO_POOL(TROLL,        5)
ADD_CREATURE_TO_POOL(DRAGON,       5)
ADD_CREATURE_TO_POOL(DEMONSPAWN,   20)
ADD_CREATURE_TO_POOL(FLY,          4)
ADD_CREATURE_TO_POOL(DARK_MISTRESS,5)
ADD_CREATURE_TO_POOL(SORCEROR,     20)
ADD_CREATURE_TO_POOL(BILE_DEMON,   5)
ADD_CREATURE_TO_POOL(BUG,          20)
ADD_CREATURE_TO_POOL(SPIDER,       10)
ADD_CREATURE_TO_POOL(HELL_HOUND,   20)
ADD_CREATURE_TO_POOL(ORC,          10)
REM *** normally good creatures ***
ADD_CREATURE_TO_POOL(WIZARD,       1)
ADD_CREATURE_TO_POOL(BARBARIAN,    1)
ADD_CREATURE_TO_POOL(ARCHER,       1)
ADD_CREATURE_TO_POOL(MONK,         1)
ADD_CREATURE_TO_POOL(DWARFA,        1)
ADD_CREATURE_TO_POOL(KNIGHT,       1)
ADD_CREATURE_TO_POOL(WITCH,        1)
ADD_CREATURE_TO_POOL(GIANT,        1)
ADD_CREATURE_TO_POOL(FAIRY,        1)
ADD_CREATURE_TO_POOL(THIEF,        1)
ADD_CREATURE_TO_POOL(SAMURAI,      1)
REM *** special types - may not work - if you know that they do then move them up above ***
ADD_CREATURE_TO_POOL(SKELETON,     1)
ADD_CREATURE_TO_POOL(VAMPIRE,      1)
ADD_CREATURE_TO_POOL(GHOST,        1)
ADD_CREATURE_TO_POOL(TENTACLE,     4)
ADD_CREATURE_TO_POOL(HORNY,        1)
ADD_CREATURE_TO_POOL(TUNNELLER,    1)

REM *** the 1 field must be in here ***
CREATURE_AVAILABLE(ALL_PLAYERS,TROLL,        1, 1)
CREATURE_AVAILABLE(ALL_PLAYERS,DRAGON,       1, 1)
CREATURE_AVAILABLE(ALL_PLAYERS,DEMONSPAWN,   1, 1)
CREATURE_AVAILABLE(ALL_PLAYERS,FLY,          1, 1)
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,BUG,          1, 1)
CREATURE_AVAILABLE(ALL_PLAYERS,SPIDER,       1, 1)
CREATURE_AVAILABLE(ALL_PLAYERS,HELL_HOUND,   1, 1)
CREATURE_AVAILABLE(ALL_PLAYERS,ORC,          1, 1)
REM *** normally good creatures ***
CREATURE_AVAILABLE(PLAYER0,WIZARD,       1, 1)
CREATURE_AVAILABLE(PLAYER0,BARBARIAN,    1, 1)
CREATURE_AVAILABLE(PLAYER0,ARCHER,       1, 1)
CREATURE_AVAILABLE(PLAYER0,MONK,         1, 1)
CREATURE_AVAILABLE(PLAYER0,DWARFA,        1, 1)
CREATURE_AVAILABLE(PLAYER0,KNIGHT,       1, 1)
CREATURE_AVAILABLE(PLAYER0,WITCH,        1, 1)
CREATURE_AVAILABLE(PLAYER0,GIANT,        1, 1)
CREATURE_AVAILABLE(PLAYER0,FAIRY,        1, 1)
CREATURE_AVAILABLE(PLAYER0,THIEF,        1, 1)
CREATURE_AVAILABLE(PLAYER0,SAMURAI,      1, 1)
REM *** You may need these for prisons, torture, temples and graveyards also remember sorceror for temple ***
CREATURE_AVAILABLE(ALL_PLAYERS,SKELETON,     1, 0)
CREATURE_AVAILABLE(ALL_PLAYERS,VAMPIRE,      1, 0)
CREATURE_AVAILABLE(ALL_PLAYERS,GHOST,        1, 0)
CREATURE_AVAILABLE(ALL_PLAYERS,HORNY,        1, 0)
REM *** special types - may not work - if you know that they do then move them up above ***
CREATURE_AVAILABLE(ALL_PLAYERS,TENTACLE,     1, 1)
CREATURE_AVAILABLE(ALL_PLAYERS,TUNNELLER,    1, 1)



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

REM *** if PLAYER? creature sets foot near action pt ***
IF_ACTION_POINT(1, PLAYER0)
   ADD_CREATURE_TO_LEVEL(PLAYER_GOOD, AVATAR, -1, 3, 10, 100000)
ENDIF

QUICK_OBJECTIVE(1, "Ye Gods! What strange magic is this?", PLAYER0)

IF(PLAYER0, GAME_TURN > 360)
   QUICK_INFORMATION(2, "After a brief communication with the dark ones, it appears that you have been brought here to face your most powerful rivals on equal terms! You have all the resources you need available to you now smite them my lord")
ENDIF

IF(PLAYER0, GAME_TURN > 5000)
   QUICK_INFORMATION(3, "Of course, it wouldn't be right if you didn't cheat a bit, it is all the gods can expect surely? So here, your most loyal servant has been summoned!")
   ADD_CREATURE_TO_LEVEL(PLAYER0, IMP, 2, 1, 10, 1000)
ENDIF


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

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