REM ********************************************
REM		   Winters Death
REM             Script for Level 207
REM		    Steve Tupper
REM ********************************************

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


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

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

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

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,1)
ROOM_AVAILABLE(PLAYER0, BARRACKS,  1,1)
ROOM_AVAILABLE(PLAYER0, GARDEN,    1,1)
ROOM_AVAILABLE(PLAYER0, LAIR,      1,1)
ROOM_AVAILABLE(PLAYER0, BRIDGE,    1,1)
ROOM_AVAILABLE(PLAYER0, GUARD_POST,1,1)

REM *** spells available to players ***
MAGIC_AVAILABLE(PLAYER0, POWER_OBEY,         1,0)
MAGIC_AVAILABLE(PLAYER0, POWER_SIGHT,        1,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,      1,0)
MAGIC_AVAILABLE(PLAYER0, POWER_CHICKEN,      1,0)
MAGIC_AVAILABLE(PLAYER0, POWER_DESTROY_WALLS,1,0)
MAGIC_AVAILABLE(PLAYER0, POWER_ARMAGEDDON,   1,0)

REM *** doors available to players ***
DOOR_AVAILABLE(PLAYER0, WOOD,  0,8)
DOOR_AVAILABLE(PLAYER0, BRACED,0,6)
DOOR_AVAILABLE(PLAYER0, STEEL, 0,4)
DOOR_AVAILABLE(PLAYER0, MAGIC, 0,2)


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

REM *** if PLAYER? creature sets foot near action pt ***
IF_ACTION_POINT(1, PLAYER0)
   QUICK_INFORMATION(2, "The dark gods have heard of your victory over their servant and have sent powerful demons to destroy you!")
   ADD_CREATURE_TO_LEVEL(PLAYER_GOOD, BILE_DEMON,   -1, 4, 10, 1000)
   ADD_CREATURE_TO_LEVEL(PLAYER_GOOD, DARK_MISTRESS, 2, 6, 9, 1000)
   ADD_CREATURE_TO_LEVEL(PLAYER_GOOD, HORNY,         1, 3, 8, 5000)
ENDIF

IF_ACTION_POINT(2, PLAYER0)
   ADD_CREATURE_TO_LEVEL(PLAYER_GOOD, SKELETON, 2, 10, 4, 400)
ENDIF

IF_ACTION_POINT(3, PLAYER0)
   ADD_CREATURE_TO_LEVEL(PLAYER0, SPIDER, -1, 3,  7,  0)
   ADD_CREATURE_TO_LEVEL(PLAYER0, BUG,    -1, 6,  8,  0)
   ADD_CREATURE_TO_LEVEL(PLAYER0, FLY,    -1, 10, 10, 0)
   ADD_CREATURE_TO_LEVEL(PLAYER0, DRAGON, -1, 1,  6 , 4000)
   QUICK_INFORMATION(3, "You have found her! Now on hearing the news of the dark lord's betrayal your sister has used her considerable powers to summon creatures of the forest to help you.")
ENDIF


IF(PLAYER0, GAME_TURN > 60000)
   QUICK_INFORMATION(4, "The fairies of the Kordian Vales hearing of your quest from their kindred in the area have pledged their support and joined you.")
   ADD_CREATURE_TO_LEVEL(PLAYER0, FAIRY, -1, 4, 5, 10000)
ENDIF

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, "Dark times have arrived in your home village of Thistle-thorn. The lord of the land, once a good man, has turned to the forces of evil and now worships dark gods!", PLAYER0)

IF(PLAYER0, GAME_TURN > 150)
   QUICK_INFORMATION(5, "Your sister, a powerful shamanic priestess, has agreed to be held by the Lord in his mighty fortress in return for the towns and villages in the area to be left in peace, safe from his dark army. He is shrewd and knows that only she has the power to defeat him")
ENDIF
IF(PLAYER0, GAME_TURN > 200)
   QUICK_INFORMATION(6, "However, as soon as she was out of sight he raised your home to the ground and slaughtered many of your people. For this he must pay. You have some old adventuring friends who will help you, heroes that this lord has not counted on!")
ENDIF
IF(PLAYER0, GAME_TURN > 250)
   QUICK_INFORMATION(7, "You must find your sister and tell her of the lord's betrayal so that she can act. This won't be easy, his fortress has only three entrances - the main door above ground - suicide to anyone foolish enough to try, and two underground entrances.")
ENDIF
IF(PLAYER0, GAME_TURN > 300)
   QUICK_INFORMATION(8, "The land beneath the fortress is riddled with underground caves. These caves, although dangerous, lead to the other entrances to the fortress - the supply entrance, via the Ghunok river is heavily defended but a second, less known entrance leads you straight into the castle via the stronghold's graveyard, opened by the cavern's beasts to feed on the carrion")
ENDIF

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

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