extended_succubus/locations/mod_extended_succubus_pav_lair_first_time.qsrc

# mod_extended_succubus_pav_lair_first_time

$SeenAll = 'You feel like you''ve seen everything you need here. '

if $ARGS[0] = 'stairs':
    $prevloc = 'mod_extended_succubus_pav_lair_first_time'
    'Up the stairs, you see a corridors with 2 doors on the left, one on the right and one at the end.'
    *nl
    '<center><img <<$set_imgh>> src="mod\extended_succubus\images\locations\pavlovsk\park\deep\lair\upstairs.jpg"></center>'
    if $ARGS[1] = 'bedroom':
        ExtSucMod['bedroom_checked'] = 1
        $bedroom_description = '
    As soon as you enter the room, you''re amazed by its beauty.
    It''s a bedroom... No, a royal bedroom!
    Everything seems rich there, a comfy bed and high quality furnitures
    You smile to yourself : "Here I have everything I need to make a proper bedroom"
    Although the cave have been uninhabited for a while, everything seems to be in a pristine state (Magic! Tadaam!)
    '
    elseif $ARGS[1] = 'kitchen':
        ExtSucMod['kitchen_checked'] = 1
        $kitchen_description = '
    You''re entering into what seems to be a kitchen
    There''s everything a kitchen needs : a fireplace to cook some food, a table, shelves and even a magical storage to keep what''s inside cold
    '
    elseif $ARGS[1] = 'throne':
        ExtSucMod['throne_checked'] = 1
        $throne_description = '
    In this room, you find only one thing :
    A throne...
    <i>Your</i> throne.
    You slowly walks toward it and sits. You smiles : "I feel like I''m a queen"
    '
    elseif $ARGS[1] = 'blocked':
        ExtSucMod['blocked_checked'] = 1
        $blocked_description = '
    You''re not going very far in that tunnel.
    It''s blocked by stones.
    '
    end

    if ExtSucMod['bedroom_checked'] = 1:
        *nl
        '<center><img <<$set_imgh>> src="mod\extended_succubus\images\locations\pavlovsk\park\deep\lair\bedroom.jpg"></center>'
        '<<$bedroom_description>>'
    else
        act 'Check the door on the right':gt 'mod_extended_succubus_pav_lair_first_time', 'stairs', 'bedroom'
    end

    if ExtSucMod['kitchen_checked'] = 1:
        *nl
        '<center><img <<$set_imgh>> src="mod\extended_succubus\images\locations\pavlovsk\park\deep\lair\kitchen.jpg"></center>'
        '<<$kitchen_description>>'
    else
        act 'Check the first door on the left':gt 'mod_extended_succubus_pav_lair_first_time', 'stairs', 'kitchen'
    end

    if ExtSucMod['blocked_checked'] = 1:
        *nl
        '<center><img <<$set_imgh>> src="mod\extended_succubus\images\locations\pavlovsk\park\deep\lair\blocked.png"></center>'
        '<<$blocked_description>>'
    else
        act 'Check the second door on the left':gt 'mod_extended_succubus_pav_lair_first_time', 'stairs', 'blocked'
    end

    if ExtSucMod['throne_checked'] = 1:
        *nl
        '<center><img <<$set_imgh>> src="mod\extended_succubus\images\locations\pavlovsk\park\deep\lair\throne.jpg"></center>'
        '<<$throne_description>>'
    else
        act 'Check the door at the end of the corridor':gt 'mod_extended_succubus_pav_lair_first_time', 'stairs', 'throne'
    end
    if ExtSucMod['throne_checked'] + ExtSucMod['throne_checked'] + ExtSucMod['throne_checked'] + ExtSucMod['throne_checked'] >= 4:
        ExtSucMod['stairs_checked'] = 1
    else
        $SeenAll = ''
    end

    killvar '$bedroom_description'
    killvar '$kitchen_description'
    killvar '$blocked_description'
    killvar '$throne_description'
else
    $prevloc = 'mod_extended_succubus_pav_lair_entrance'
    if $ARGS[0] = 'lake':
        ExtSucMod['lake_checked'] = 1
        $lake_description = '
    You walk down to the lake and sits next to it.
    You trace your fingers against the surface of the water and smiles as you feel how it''s deliciously warm :
    "This is not just a lake, but a hotspring."
    '
    elseif $ARGS[0] = 'alcoves':
        ExtSucMod['alcoves_checked'] = 1
        $alcoves_description = '
    The walls have been dug to create many rooms all around.
    The rooms are all the same : against the back wall are solidly fixed shackles and below them, a pile of straw.
    "There were prisonners here? Or perhaps slaves...."
    '
    end

    '<center><img <<$set_imgh>> src="mod\extended_succubus\images\locations\pavlovsk\park\deep\lair\cave.jpg"></center>'
    'You enter the cave and take a look around. You''re astonished by the view.'
    *nl
    'The air is deliciously warm.'
    *nl
    'The cave is circular and seems to have been arranged. Some people lived here, for sure.'
    *nl
    'At its center, you can see a waterfall feeding a little inner basin. A quick look tells you that the water, clear like crystal, seems shallow.'
    if ExtSucMod['lake_checked'] = 1:
        *nl
        '<center><img <<$set_imgh>> src="mod\extended_succubus\images\locations\pavlovsk\park\deep\lair\lake.png"></center>'
    else
        act 'Check the lake':gt 'mod_extended_succubus_pav_lair_first_time', 'lake'
    end
    '<<$lake_description>>'
    'All around the cave you can see alcoves.'
    *nl
    '<center><img <<$set_imgh>> src="mod\extended_succubus\images\locations\pavlovsk\park\deep\lair\alcoves.jpg"></center>'
    '<<$alcoves_description>>'
    if ExtSucMod['alcoves_checked'] = 1:
        *nl
        '<center><img <<$set_imgh>> src="mod\extended_succubus\images\locations\pavlovsk\park\deep\lair\shackles.jpg"></center>'
    else
        act 'Check the alcoves':gt 'mod_extended_succubus_pav_lair_first_time', 'alcoves'
    end
    ' At the opposite side of the entrance, there are stairs going up.'
    *nl
    '<center><img <<$set_imgh>> src="mod\extended_succubus\images\locations\pavlovsk\park\deep\lair\stairs.jpg"></center>'
    if ExtSucMod['stairs_checked'] = 0:
        act 'Move up the stairs':gt 'mod_extended_succubus_pav_lair_first_time', 'stairs'
    end

    if ExtSucMod['bedroom_checked'] + ExtSucMod['alcoves_checked'] + ExtSucMod['stairs_checked'] >= 3:
        ExtSucMod['hasfoundlair'] = 1
    else
        $SeenAll = ''
    end

    killvar '$lake_description'
    killvar '$alcoves_description'
end

act '<<$SeenAll>>Move back':gt $prevloc, 'start'

--- mod_extended_succubus_pav_lair_first_time ---------------------------------