glife/locations/ballet_secrets.qsrc

# ballet_secrets
!! Author: Hooded Silence
!! Date Created: Nov, 2023
!! Version: .01
!! Author: Hooded Silence
!! A dance shop which includes ballet, gymnastics and physio-therapy sources. Alternative path to ballet or dance career in second year and first.
!! TBC - NPCs to be created

$default_img_path = 'locations/pushkin/ballet_secrets/'

if $ARGS[0] = 'init':
  *clr & cla
  gs 'shortgs', 'setloc', 'ballet_secrets', $ARGS[0] 
  $location_type = 'public_indoors'
  $setloc['StageTitle'] = 'Ballet Secrets'
  $setloc['StageImage'] =  '<<$default_img_path>>ballet-shop-window'
  $location_type = 'public_indoors'
  gs 'themes', 'indoors'
  gs 'core_library', 'stage_title'
  minut += 5
  gs 'stat'
  if week < 7 and hour >= 9 and hour <= 17:
    'You enter the shop and greeted by a riot of displays showcasing ballet and other dance equipment. A woman is sewing something in the corner and glances at you before continuing.'
    if balletqw['ballet_secrets'] = 1:
      act 'Approach the woman': gt $loc, 'first_visit'
    else
      act 'Enter studio area': gt $loc, 'reception'
      !! act 'Talk to assistant':
      !! act'Look at equipment'
      !! act 'look at dance wear'
      act 'Leave shop': gt 'pushkin_sq'
    end
  else
    'You look at the shop window and realise it''s closed, there is a security door to the left of you that allows you access the studio areas if you are a member.'
    if balletqw['membership'] >= daystart:
      act 'Swipe membership card': gt $loc, 'reception'
    end
  end

end

!! Intro

if $ARGS[0] = 'first_visit':
  balletqw['ballet_secrets_visit'] = 1
  balletqw['shoe_order'] = daystart + 14
  $setloc['StageImage'] =  '<<$default_img_path>>ballet_secrets_fitting_1'
  minut += 60
  gs 'core_library', 'stage_title'
  gs 'stat'

  'You are greeted by a middle aged woman. "Hello, how may I help you?" She askes politely.'
  '"Hello, I am <<$pcs_firstname>> <<$pcs_lastname>>. I am part of the ballet school intake." you give her a smile and hand over the schools letter as proof.'
  'The woman smiles warmly, "Ah you are the new students for this year?" she claps her hands and then takes yours, "Come, come we must measure your feet and order your shoes"'
  'Before you say anything she''s dragging you through the shop towards the back we are are greeted by a wall of shoes and there is pictures on the wall signed by dancers with shoes next to them. You look at the woman.'
  '"Yes, they are all dancers who are or have been clients of our establishment", she noticed your gaze and explains with pride."We will only provide the best for the school."'
  !! Set up gate for sponsored or not, not implemented system needs to be added to the end of year assessment.
  '"But where are my manners I am Darya Pushkina, I am the owner of this shop and facilies" she exclaims, "now to your fitting grabbing a tape measure and fitting tools for your feet"'
  'For the next hour Madam Pushkina bombards you with questions of whether you want leather or cotton fabric, how many satin shoes and a myriad other questions before she finally relents.'
  '"Of course as you are aware the school is sponsoring these costs, but only for the first year she says and you will need to manage your own equipment after this.", Madame Pushkina advises.'
  '"Is there anything else you neeed? No? Good, I will see you again in two weeks for your final shoe fitting. I would like to extend my congratulations and wish you a successful career Ms. <<$pcs_lastname>>."'
  act 'Leave': gt 'pushkin_sq'
  act 'Return to shop': gt $loc, 'init'
  

end
!! Services

!! Sports Area - Req Membership card

if $ARGS[0] = 'reception':
  gs 'shortgs', 'setloc', 'ballet_secrets', $ARGS[0] 
  $location_type = 'public_indoors'
  $setloc['StageTitle'] = 'Ballet Secrets - Reception'
  $setloc['StageImage'] =  '<<$default_img_path>>reception'
  $location_type = 'public_indoors'
  gs 'themes', 'indoors'
  gs 'core_library', 'stage_title'
  minut += 5
  gs 'stat'
  'As you enter you are greeted warmly by the gym staff. The gym has an industrial feel reflecting the buildng being converted from an old factory.'

  'There is a <a href="exec: gt ''food'', ''watercooler''">drinking fountain</a> near the doors to the gym hall to refill your water bottle.'
 

  act 'Return to shop': gt $loc, 'init'
  act 'Changing rooms': gt $loc, 'changing_room'
  !! if membership not active:
  if balletqw['membership'] = 0 or balletqw['membership'] < daystart:
    act 'Discuss membership': gt $loc, 'enrol'
  elseif hour <= 15 and $clothingworntype = 'danilovich_outfits' and $shoeworntype = 'danilovich' and pcs_stam >= stammax / 5 and pcs_energy >= 20:
    !! link to services:
    !! if membership active
    !! act 'Attend Physio': gt $loc, 'physio'
    !! act 'Attend a gymnastics class.': gt $loc, 'gymnastics_courses'
    !! act 'Attend a dance class': gt $loc, 'ballet_courses'
    act 'Attend a yoga class': gt $loc, 'yoga_courses'
  elseif hour >= 16:
    'All the evening classes have started today, you need to be here before 16:00 to ensure you can attend.'
  end
end
if $ARGS[0]= 'enrol':
  
	$epayments['method'] = ''
	$epayments['item_variable'] = ''
	$epayments['description'] = 'gym facilities access'
	$epayments['loc'] = 'ballet_secrets'
	$epayments['loc_arg'] = 'reception'
	$epayments['banner']= 'locations/<<$default_img_path>>reception.jpg'
  gs 'core_library', 'stage_title'
  minut += 30
  gs 'stat'

  if balletqw['membership'] = 0:
    'You approach the reception to discuss membership to the gym.'
  elseif balletqw['membership'] ! 0:
    'You approach the reception to renew your membership.'
  end
  act 'Return to the studio entrance': gt $loc, 'reception'

  'The gym offers a weekly or monthly subscription for of 1,500<b> ₽</b>  or 5,000<b> ₽</b> respectively to use the facilities with some courses included. Physio appointments are charged seperately.'
  'The subscriptions includes classes in gymnastics, yoga and introductory ballet. For advanced classes there is an additional instructor charge. A physical trainer is on hand to assist at all times if you so need one.'
  'We also have a small café which attracts a members discount and your membership card can purchase items directly from the vending machine which will be billed to your account.'

  if money >= 5000 or karta + bankDebtLimit >= 5000:
    '<td> <a href="exec: epayments[''value''] = 5000 & balletqw[''membership''] = daystart + 30  & gs ''shortgs'',''payments'' ">Purchase a monthly subscription for 5,000<b> ₽</b></a></td>'
  end
  if money >= 1500 or karta + bankDebtLimit >= 1500:
    '<td> <a href="exec: epayments[''value''] = 1500 & balletqw[''membership''] = daystart + 7  & gs ''shortgs'',''payments'' ">Purchase a weekly subscription for 1,500<b> ₽</b></a></td>'
	end
end

if $ARGS[0] = 'changing_room':
  menu_off = 0
  gs 'shortgs', 'setloc', 'ballet_secrets', $ARGS[0] 
	$location_type = 'private'
	$locclass = 'changingroom'
  gs 'themes', 'indoors'
  minut += 5
  gs 'stat'
  '<center><h2>Changing Room</h2></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/locker.jpg"></center>'

  act 'Return to the studio reception': gt $loc, 'reception'
  if mc_inventory['shampoo'] > 0:
		act 'Take a shower (0:15)':
			cla
			*clr
			menu_off = 1
			minut += 15
			pcs_horny += 1
			pcs_hairbsh = 0
			pcs_makeup = 1
			if pcs_inhib < 15:inhib_exp += rand(1,2)
			dynamic $showerdin
			'<center><video autoplay loop src="images/shared/home/bathroom/dush.mp4"></video></center>'
			'You go into the bathroom and turn on the shower. You lather your body and wash in the shower.'
			if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'

			act 'Get out of the shower':gt $loc, 'changing_room'

		end
	else
		'<font color="red">You''ve run out of shampoo and will have to buy some more before you can wash yourself.</font>'
	end

	act 'Use mirror':
		cla
		gt 'mirror', 'start'
	end

	act 'Change outfit':
		cla
		gt 'wardrobe', 'start'
	end

	gs 'wardrobe', 'default_sport_options'

  if mc_inventory['deodorant'] > 0 and deodorant_on = 0:
		'Your deodorant will last you for <b><<mc_inventory[''deodorant'']>></b> more '+iif(mc_inventory['deodorant'] =  1, 'application.', 'applications.')
		act 'Apply deodorant (0:01)':
			*clr & cla
			menu_off = 1
			minut += 1
			mc_inventory['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
	dynamic $tampon
  
end

!! Physiotherapy
if $ARGS[0] = 'physio':
  gs 'shortgs', 'setloc', 'ballet_secrets', $ARGS[0] 
  $location_type = 'public_indoors'
  $setloc['StageTitle'] = 'Ballet Secrets - Physio'
  $setloc['StageImage'] =  '<<$default_img_path>>physio'
  $location_type = 'public_indoors'
  gs 'themes', 'indoors'
  gs 'core_library', 'stage_title'

  !! write attendance spiel 
  act 'Leave': gt 'pushkin_sq'
end

!! Gymnastics

if $ARGS[0] = 'gymnastics_courses':
  gs 'shortgs', 'setloc', 'ballet_secrets', $ARGS[0] 
  $location_type = 'public_indoors'
  $setloc['StageTitle'] = 'Ballet Secrets - Gymnastics Class'
  $setloc['StageImage'] =  '<<$default_img_path>>gymnastics'
  $location_type = 'public_indoors'
  gs 'themes', 'indoors'
  gs 'core_library', 'stage_title'

  !! write attendance spiel and some random reactions for post-exercise such that was a great workout, you didn''t feel you did well today
  act 'Leave': gt 'pushkin_sq'
end

!! Ballet Courses Easy, Intermediate and advanced
if $ARGS[0] = 'ballet_courses':
  gs 'shortgs', 'setloc', 'ballet_secrets', $ARGS[0] 
  $location_type = 'public_indoors'
  $setloc['StageTitle'] = 'Ballet Secrets - Courses'
  $setloc['StageImage'] =  '<<$default_img_path>>ballet_class'
  $location_type = 'public_indoors'
  gs 'themes', 'indoors'
  gs 'core_library', 'stage_title'
end

  !! Gymnastics

if $ARGS[0] = 'yoga_courses':
  gs 'shortgs', 'setloc', 'ballet_secrets', $ARGS[0] 
  $location_type = 'public_indoors'
  $setloc['StageTitle'] = 'Ballet Secrets - Yoga Class'
  $setloc['StageImage'] =  '<<$default_img_path>>yoga_class'
  $location_type = 'public_indoors'
  gs 'themes', 'indoors'
  gs 'core_library', 'stage_title'
  minut += 5
  gs 'stat'
  if balletqw['yoga_session'] ! daystart:
    act 'Attend Yoga Class':
      cla
      balletqw['yoga_session'] = daystart
      lesson_tier = rand(1,3)
      if lesson_tier = 1:
        gs 'exercise', 'tier1', 60, 'sprt', 'agil'
      'You spend sixty minutes in an easy going class today, leaving you feeling refreshed and ready to face the world again.'
      elseif lesson_tier = 2:
        'You spend sixty minutes with your instructor today correcting your poses and providing advice on how you can improve, leaving you feeling tired and some muscle aches from the exercises.'
        gs 'exercise', 'tier2', 60, 'sprt', 'agil'
      else 
        gs 'exercise', 'tier3', 60, 'sprt', 'agil', 'stren'
        'Today''s sixty minutes was challenging with the instructor taking the class through some of the more demanding positions. Leaving many of your yoga buddies look more than a little bit ragged after todays session.'
      end
      pcs_willpwr += rand(1,lesson_tier)
      !! Set minor pain to reflect exercising

      gs 'pain', 2, 'legL', 'stretch'
      gs 'pain', 2, 'legR', 'stretch'
      gs 'pain', 2, 'shoulders', 'stretch'
      gs 'pain', 2, 'armL', 'stretch'
      gs 'pain', 2, 'armR', 'stretch'
      gs 'pain', 2, 'back', 'stretch'
      gs 'pain', 2, 'chest', 'stretch'

      killvar 'lesson_tier'
      act 'Return to the studio reception': gt $loc, 'reception'
    end
  else 
    'There is another fitness class in progress and no more yoga sessions today.'
  end
  act 'Return to the studio reception': gt $loc, 'reception'
end 

!! Shopping
if $ARGS[0] = 'clothing':
  gs 'shortgs', 'setloc', 'ballet_secrets', $ARGS[0] 
  $location_type = 'public_indoors'
  $setloc['StageTitle'] = 'Ballet Secrets - Dancewear'
  $setloc['StageImage'] =  '<<$default_img_path>>sports_shop'
  $location_type = 'public_indoors'
  gs 'themes', 'indoors'
  gs 'core_library', 'stage_title'
  act 'Leave': gt 'pushkin_sq'
end

!! Custom Tutus for quests/shows, ballet shoe fitting, clothing, physio items, portable ballet equipment (barre) etc.
if $ARGS[0] = 'quest':
  gs 'shortgs', 'setloc', 'ballet_secrets', $ARGS[0] 
  $location_type = 'public_indoors'
  $setloc['StageTitle'] = 'Ballet Secrets'
  $setloc['StageImage'] =  '<<$default_img_path>>quest'
  $location_type = 'public_indoors'
  gs 'themes', 'indoors'
  gs 'core_library', 'stage_title'
  act 'Leave': gt 'pushkin_sq'
end

if $ARGS[0] = 'food':
  gs 'shortgs', 'setloc', 'ballet_secrets', $ARGS[0] 
  $location_type = 'public_indoors'
  $setloc['StageTitle'] = 'Food Court'
  $setloc['StageImage'] =  '<<$default_img_path>>food_court'
  $location_type = 'public_indoors'
  gs 'themes', 'indoors'
  gs 'core_library', 'stage_title'

  'There is a small area set aside for vending machines to provide drinks and food. '
  act 'Leave': gt 'pushkin_sq'
end
--- ballet_secrets ---------------------------------