glife/locations/core_library.qsrc

# core_library
!! Date Created: 17th Sept, 2022
!! Modified date:
!! Version: .01 - initial release
!! Version: .02 - refactoring to streamline content start, new standardised locations function for kitchen and bathroom test code
!! Author: Hooded Silence

!! Ballet School Initiator - This class is to act as a gateway to the various locations for the ballet school

if $ARGS[0] = 'init':
	!! Summer School

	!! $start_type['cat'] is the mc backstry, mod_ballet[beta] is a test variable to initiate regardless
	if $start_type['cat'] = 'dancer':
		!! Parents Home Triggers
		if $loc = 'kuhrPar':
			if ((daystart >= 158 and daystart <= 198) and mod_ballet['letter'] = 0) or (daystart >= 198 and balletqw['school'] > 1):
				gs 'pushkin_ballet_init', 'start'
			end
		end

		!! Pavlovsk
		if $loc = 'gdksport':
			!! Close down Starlets
			if mod_ballet['letter'] = 1 and (month = 7 or (month = 6 and day > 6)):
				if AlbinaQW['StarletsJoined'] > 0 and AlbinaQW['StarletsShutDown'] = 0 and npc_pregtalk['A23'] = 0 and AlbinaQW['startletsday'] ! daystart:
					if hour = 15 and starlets_on = 1:
						act 'Tell Albina about the letter' : gt 'pushkin_ballet_evt', 'starlets'
					end
				end
			end
			!! Dance job?
		end

		if $loc = 'pav_commcenter':
			if month = 7 and day = 3 and (hour >= 16 and hour < 17) and mod_ballet['letter'] = 1:
				! Pre-flight - travel to school dorms
				act '<b>Travel to the ballet school</b>': gt 'pushkin_ballet_res', 'start'
			end
		end

		!! Pushkin

		!! Theatre

		!! Other Events
	end
end

!! --- Generic shared Locations and classes ---

!! like SetLoc, to reduce code bloat and memorisation of header title and images.
!! Project: allow for scene changes on the fly rather than static content based on story?
!! Set two var, third if you need to change the ext.:

!! $setloc[''StageTitle'']: Var to set up $loc h1 header
!! $setloc[''StageImage'']: Var to set up $loc image - set 1 to randomise
if $ARGS[0] = 'stage_title':
	*clr & cla
	'<center><h2><<$setloc[''StageTitle'']>></h2></center>'
	'<center><img <<$set_imgh>> src="images/<<$setloc[''StageImage'']>>"></center>'
end

if $ARGS[0] = 'corridor':
	if frost > 0: frost = 0
	music_loop = 0
	menu_off = 0
	CLOSE ALL
	gs 'themes', 'indoors'
	if $location_type = 'private':
	elseif $location_type = 'public':
	end
end

if $ARGS[0] = 'bathroom':
	!! Location facilities
	if $location_type = 'private':
		'Your accommodation for the week has the luxury of a private shower and a bath. There''s a poster on the wall promoting the health benefits of ice baths and other advice on looking after your body.'
		*nl
		'There is a shower, toilet, sink, and a <a href="exec:gt ''mirror'',''start''">mirror</a> where you can ' + iif(pcs_hairbsh = 0,'<a href="exec:gt ''mirror'',''brush''">brush</a>','brush') + ' your hair.'

		gs 'din_van', 'private'
	elseif $location_type = 'public':
		act 'Take a shower':
			*clr & cla
			pcs_hairbsh = 0
			pcs_makeup = 1
			minut += 10
			pcs_mood += 10
			noshampoo = 1
			dynamic $showerdin
			gs 'stat'
			'You grab a quick shower, but you wish you could stay longer in the shower to let the heat soak into your muscles.'

			act 'Continue' : gt $loc, $loc_arg
		end
		'There is a shower and <a href="exec:gt ''mirror'',''start''">mirrors</a> where you can ' + iif(pcs_hairbsh = 0,'<a href="exec:gt ''mirror'',''brush''">brush</a>','brush') + ' your hair.'

	elseif $location_type = 'communal':
	end
!! Default facilities
	dynamic $basin
	dynamic $tampon
	if pcs_hairbsh = 0: act 'Brush your hair': gt 'mirror', 'brush'
	if deodorant > 0 and deodorant_on = 0:
		'Your deodorant will last you for <b><<deodorant>></b> more '+iif(deodorant = 1, 'application.', 'applications.')
		act 'Apply deodorant (0:01)':
			*clr & cla
			menu_off = 1
			minut += 1
			deodorant -= 1
			gs 'sweat', 'deo'
			iif(func('body_din','pregnancyVisibility') = 1, '<center><img <<$set_imgh>> src="images/shared/home/bathroom/deodorant_preg.jpg"></center>', '<center><img <<$set_imgh>> src="images/shared/home/bathroom/deodorant.jpg"></center>')
			'You apply deodorant to your armpits. It will keep you feeling fresh and clean for longer.'
			act 'Continue': menu_off = 0 & gt $loc, $loc_arg
		end
	end
end

if $ARGS[0] = 'kitchen':
	!! Location facilities
	if $location_type = 'private':
		!! Home or parents kitchen
		dynamic $edasnack
		dynamic $sandwich
		dynamic $pranik
		dynamic $fatdel
		dynamic $lekarstvo
		dynamic $vitamin
	elseif $location_type = 'public_indoors':
		!! canteen type location
	elseif $location_type = 'communal':
		!! shared or communal kitchen
		dynamic $edasnack
		dynamic $sandwich
		dynamic $pranik
		dynamic $vitamin
	end
	!! Default facilities
	dynamic $driwater
	dynamic $dritea
	dynamic $fill_bottle
end

if $ARGS[0] = 'bedroom':
!! Default facilities
	if $location_type = 'private':
		if pcs_horny >= 50:
			act 'Masturbate':gt 'selfplay', 'start'
		end
	elseif $location_type = 'guest':
	elseif $location_type = 'private_shared':
	end
	act 'Relax on your bed': gt 'bed', 'start'
	act 'Open wardrobe': gt 'wardrobe', 'start'
	gs 'library_functions', 'set_home_read_acts'
	gs 'exercise', 'start'
end
--- core_library ---------------------------------