extended_succubus/locations/mod_extended_succubus_pav_lair_entrance.qsrc

# mod_extended_succubus_pav_lair_entrance

if $ARGS[0] = 'start':
	'You observe the small coin encased in the rock.'
	*nl
	'The creature carved on it seems ' + iif(succubusflag, 'appealing and familiar', 'scary and dangerous') + '.'
	*nl
	'<center><img <<$set_imgh>> src="mod\extended_succubus\images\locations\pavlovsk\park\deep\succubus_carving.jpg"></center>'
	act 'Touch the coin': gt 'mod_extended_succubus_pav_lair_entrance', 'touch'
elseif $ARGS[0] = 'touch':
	if succubusflag:
		'As you touch the coin, you see the rock wall opening itself, like a mouth.'
		*nl
		'You smile, not remotely afraid from what you''re seeing.'
		*nl
		'<center><img <<$set_imgh>> src="mod\extended_succubus\images\locations\pavlovsk\park\deep\lair_entrance.jpg"></center>'
		if ExtSucMod['hasfoundlair'] = 0:
			$cave_destination = 'mod_extended_succubus_pav_lair_first_time'
		else
			$cave_destination = 'mod_extended_succubus_pav_lair'
		end
		act 'Get in the cave':gt $cave_destination
		
	else
		'You''re wondering if you''ve found something magical and eager to try your discovery, you softly touch the coin.'
		*nl
		'Suddenly, well... nothing happens...'
		*nl
		'<center><img <<$set_imgh>> src="mod\extended_succubus\images\locations\misc\shrugging_woman.jpg"></center>'
	end
end

act 'Leave':gt 'pav_park', 'deeper_park'

--- mod_extended_succubus_pav_lair_entrance ---------------------------------