glife/locations/preCUST.qsrc

# preCUST
!2020/10/14/Gwen
cls
gs 'themes', 'indoors'

!!Body Customization and Initializations
if $ARGS[0] = 'BeforeCust':
!!	This is a placeholder at the moment
end

!!******************** TG Start Body Customization Menu ******************************
if $ARGS[0] = 'TGStart':
	$start_type = 'tg'
!!	This is to bypass the next part if the avatar system was used
!!	It will be changed to bypass the head options, once more body options are added
	if player_avatar = 1: gt 'preCUST', 'Done', 'TGS'

!!	Just hair and eye color here for now; the dialog will be update as more options are added
	'<center><b><font color = maroon>CHARACTER CUSTOMIZATION</font></b></center>'
	'<center><img <<$set_imgh>> src="images/system/intro/shared/character_creation_pic1.jpg"></center>'
	'As you drift in unconsciousness, an impression of a woman forms in your mind. Many aspects of her appearance are indistinct, but there are some things you can make out.'
	'She is fairly tall.'
	*nl
	'<center>Customize your:</center>'
	'<center><a href="exec:gs ''preCUST'', ''hair''"><img src="images/system/intro/shared/hair icon.png"></a> <a href="exec:gs ''begin'', ''eyes''"><img src="images/system/intro/shared/eye icon.png"></a></center>'
	*nl
	'Everything else about her is fuzzy...'

	act 'Done': gt 'preCUST', 'Done', 'TGS'
end

!!******************** SG Start Body Customization Menu ******************************
if $ARGS[0] = 'SGStart':
	$start_type = 'sgs'
!!	This is to bypass the next part if the avatar system was used
!!	It will be changed to bypass the head options, once more body options are added
	if player_avatar = 1: gt 'preCUST', 'Done', 'SGS'

	'<center><b><font color = maroon>CHARACTER CUSTOMIZATION</font></b></center>'
	'<center><img <<$set_imgh>> src="images/system/intro/shared/character_creation_pic1.jpg"></center>'
	*nl
	'<center>Customize your:</center>'
	'<center><a href="exec:gs ''preCUST'', ''hair''"><img src="images/system/intro/shared/hair icon.png"></a> <a href="exec:gs ''begin'', ''eyes''"><img src="images/system/intro/shared/eye icon.png"></a></center>'

	act 'Done': gt 'preCUST', 'Done', 'SGS'
end

!!******************** NT Start Body Customization Menu ******************************
if $ARGS[0] = 'NTStart':
	$start_type = 'nt'
!!	This is to bypass the next part if the avatar system was used
!!	It will be changed to bypass the head options, once more body options are added
!!  It is using the TG done to complete and the magikDostup to split at the end
	NTstart = 1
	
	!!Default Names
	$pcs_firstname = 'Svetlana'
	$pcs_lastname = 'Lebedev'
	$pcs_nickname = 'Sveta'

	!!Player names are set here
	$temp_firstname = '<<$pcs_firstname>>'
	$pcs_firstname = input("What is your first name? (Leave blank for Svetlana)")
	if $pcs_firstname = '':$pcs_firstname = '<<$temp_firstname>>'
	killvar '$temp_firstname'

	$temp_lastname = '<<$pcs_lastname>>'
	$pcs_lastname = input("What is your family name? (Leave blank for Lebedev)")
	if $pcs_lastname = '':$pcs_lastname = '<<$temp_lastname>>'
	killvar '$temp_lastname'

	$temp_nickname = '<<$pcs_nickname>>'
	$pcs_nickname = input("What is your nickname? (Leave blank for Sveta)")
	if $pcs_nickname = '':$pcs_nickname = '<<$temp_nickname>>'
	killvar '$temp_nickname'
	if player_avatar = 1:
		act 'Continue': gt 'preCUST', 'Done', 'NT'
	else
		gs 'preCUST', 'NTStart2'
	end
end

if $ARGS[0] = 'NTStart2':
	pcs_hairlng = 100

!!	Just hair and eye color here for now; the dialog will be update as more options are added
	'<center><b><font color = maroon>CHARACTER CUSTOMIZATION</font></b></center>'
	'<center><img <<$set_imgh>> src="images/system/intro/shared/character_creation_pic1.jpg"></center>'
	'As you look in the mirror, your face comes into focus. Some aspects of your appearance are already set, you can define the others now.'
	'You are fairly tall.'
	*nl
	'<center>Customize your:</center>'
	'<center><a href="exec:gs ''preCUST'', ''hair''"><img src="images/system/intro/shared/hair icon.png"></a> <a href="exec:gs ''begin'', ''eyes''"><img src="images/system/intro/shared/eye icon.png"></a></center>'
	
	act 'Done': gt 'preCUST', 'Done', 'NT'
end

!!******************** Start Body Customization options ******************************

if $ARGS[0] = 'hair':
	if pcs_haircol = 0: 'Your hair is <a href="exec:pcs_haircol = 1 & gt ''preCUST'', ''hair''">black</a>.'
	if pcs_haircol = 1: 'Your hair is <a href="exec:pcs_haircol = 2 & gt ''preCUST'', ''hair''">brown</a>.'
	if pcs_haircol = 2: 'Your hair is <a href="exec:pcs_haircol = 3 & gt ''preCUST'', ''hair''">red</a>.'
	if pcs_haircol = 3: 'Your hair is <a href="exec:pcs_haircol = 0 & gt ''preCUST'', ''hair''">blonde</a>.'
	if defcurly = 0:'And it''s naturally <a href="exec:defcurly = 1 & curly = 2147483647 & gt ''preCUST'', ''hair''">straight</a>.'
	if defcurly = 1:'And it''s naturally <a href="exec:defcurly = 0 & curly = 0 & gt ''preCUST'', ''hair''">curly</a>.'

	nathcol = pcs_haircol
	pcs_pubecol = pcs_haircol & pcs_pubecol[1] = 1
	
	if $start_type = 'tg':
		act 'Done': gt 'preCUST', 'TGStart'
	elseif $start_type = 'nt':
		act 'Done': gt 'preCUST', 'NTStart2'
	else
		act 'Done': gt 'preCUST', 'SGStart'
	end
end

!!******************** Final variable setting and initializations ***********************
if $ARGS[0] = 'Done':
!!	Top area for things that need to be done before setting the variables for either start
	year = 2016

	BDSMfilm = 0
	pornstudio = 0
	pfilmSTOP = 0

	thinkpreg = 0
	denypreg = 0
	pertemp = 1
	pillcvrt = 1
	
	pcs_naturallashes = pcs_lashes
	
!!	Initializing elasticity
	vshrink = 1
	vshrinkdays = 6
	ashrink = 1
	ashrinkdays = 3

	fairycurse = -1

	$excer_name[1] = 'Default 1'
	$excer_name[2] = 'Default 2'
	$excer_name[3] = 'Default 3'
	$excer_name[4] = 'Default 4'
	$excer_name[5] = 'Default 5'

	gs 'fight', 'Wrestlergen'

	monthsend[1] = 31
	if ((year mod 4 = 0) and (year mod 100 ! 0)) or (year mod 400 = 0): 
		Leapyear = 1 & monthsend[2] = 29
	else
		Leapyear = 0 & monthsend[2] = 28
	end
	monthsend[3] = 31
	monthsend[4] = 30
	monthsend[5] = 31
	monthsend[6] = 30
	monthsend[7] = 31
	monthsend[8] = 31
	monthsend[9] = 30
	monthsend[10] = 31
	monthsend[11] = 30
	monthsend[12] = 31

	$monthName[1] = 'January'
	$monthName[2] = 'February'
	$monthName[3] = 'March'
	$monthName[4] = 'April'
	$monthName[5] = 'May'
	$monthName[6] = 'June'
	$monthName[7] = 'July'
	$monthName[8] = 'August'
	$monthName[9] = 'September'
	$monthName[10] = 'October' 
	$monthName[11] = 'November'
	$monthName[12] = 'December'
	$month = $monthName[month]
	
	gs 'telefon', 'setup'

!!	TG Start Specific Variable Setting
	if $ARGS[1] = 'TGS':
		age = 18
		month = 5
		$month = 'May'
		day = 4
		week = 3
		hour = 13
		if player_avatar = 0:
			birthyear = year - age
			birthmonth = 4
			birthday = 1
		end

!!		Body
		pcs_hgt = 170
		salo = 60
		dick = 0
!!		Stats
		pcs_stren = 10
		strenbuf = 10
		pcs_agil = 10
		agilbuf = 10
		pcs_vital = 10
		vitalbuf = 10
		pcs_intel = 10
		pcs_sprt = 10
		pcs_react = 10
		pcs_chrsm = 10
		pcs_prcptn = 10
		pcs_magik = 0
		money = 16500
		pcs_pubes = 30
		pcs_leghair = 12
		pcs_makeup = 1
		home_owned[1] = 1

!!		Maruda Hair Mod
		pcs_hairlng = 17
!!		***********
		cltarelka = 1
		fairy = 10
		eda = 5
		poroshok = 5
		shampoo = 5
		tampon = 2
		pcs_energy = 100
		pcs_hydra = 100
		pcs_sleep = 100
		willpowermax = 150

!!		Starting Option Adjustments
!!		The TG Background options would be aplied here

!!		***********

	end

!!	NT Start Specific Variable Setting
	if $ARGS[1] = 'NT':
		age = 18
		month = 5
		$month = 'May'
		day = 4
		week = 3
		hour = 13
		if player_avatar = 0:
			birthyear = year - age
			birthmonth = 4
			birthday = 1
		end

!!		Body
		pcs_hgt = 170
		salo = 60
		dick = 0
!!		Stats
		pcs_stren = 20
		strenbuf = 20
		pcs_agil = 15
		agilbuf = 15
		pcs_vital = 25
		vitalbuf = 25
		pcs_intel = 30
		pcs_sprt = 25
		pcs_react = 25
		pcs_chrsm = 15
		pcs_prcptn = 40
		money = 13000
		pcs_pubes = 30
		pcs_leghair = 12
		pcs_makeup = 5
		cheap_purses[7] = 1
		$currentpursetype = 'cheap'
		currentpursenumber = 7
		bag = 1
		home_owned[1] = 1

		pcs_inhib = 15
		pcs_heels = 20
		pcs_makupskl = 15
		pcs_artskls = 15
		pcs_compskl = 20
		pcs_comphckng = 10
		pcs_chess = 15
		pcs_danc = 30
		cltarelka = 1
		fairy = 10
		eda = 5
		poroshok = 5
		shampoo = 20
		tampon = 15
		pcs_energy = 100
		pcs_hydra = 100
		pcs_sleep = 100
		willpowermax = 100

!!		Starting Option Adjustments
!!		The TG Background options would be aplied here

!!		***********

	end

!!	SG Start Specific Variable Setting
	if $ARGS[1] = 'CSB': money = 5000
	if $ARGS[1] = 'SGS' or $ARGS[1] = 'CSB':
		school[6] = 1
		sisboyday = -2
		home_owned[1] = 0
		cltarelka = 0
		fairy = 0
		eda = 0
		poroshok = 0
		shampoo = 0

		hcolmotherremember = pcs_haircol
		hcolfatherremember = pcs_haircol
		hcolfronce = 1

		!!Setting Kolkas birthday based off the PCs
		koldobtmp_d = rand(1,28)
		koldobtmp_y = birthyear
		koldobtmp_m = birthmonth + 11
		if koldobtmp_m > 12:
			koldobtmp_y += 1
			koldobtmp_m -= 12
		end
		npc_dob['A34'] = koldobtmp_y * 10000
		npc_dob['A34'] += koldobtmp_m * 100
		npc_dob['A34'] += koldobtmp_d
		killvar 'koldobtmp_d' & killvar 'koldobtmp_m' & killvar 'koldobtmp_y'

		$holyday += ', <b><<kanicont>> days left.</b>'
	end
		
!!*************************
!!	Final Initializations

	VersionCheck = 5030

	pcs_dob = birthyear * 10000
	pcs_dob += (birthmonth * 100)
	pcs_dob += birthday

	age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
	if ((month * 100) + day) < pcs_dob mod 10000: age -= 1
		
	if age < 17:
		vidage = age
	else
		vidage = age - 1
	end

	vidageday = 300

	pcs_health = pcs_vital * 10 + pcs_stren * 5
	pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5
	pcs_mana = (pcs_intel * pcs_magik) + pcs_magik * 100 + pcs_vital * 10 + rikudo
	pcs_mood = 100
	pcs_stam = 100

	nathcol = pcs_haircol
	pcs_pubecol = pcs_haircol & pcs_pubecol[1] = 1
	oldsavepcs_haircol = 1

	gs 'body_shape', 'initial'

!! Adding underwear and default shoes and assigning them

	if $ARGS[1] ! 'CSB' and goth_clothing ! 1:
		cheap_panties[37] = 1
		cheap_bras[11] = 1
		$pantyworntype = 'cheap'
		pantywornnumber = 37
		$braworntype = 'cheap'
		brawornnumber = 11
		sgandm[6] = 1
		strainers[21] = 1
		$shoeworntype = 'gandm'
		shoewornnumber = 6
	end
	
!!	Starting clothing set
	if NTstart = 1:
		cheap[161] = 1
		cheapH[161] = 100
		cheapB[161] = pcs_hips
		exercise[29] = 1
		exerciseH[29] = 100
		cheap[370] = 1
		cheapH[370] = 100
		cheapB[370] = pcs_hips
		swimwear[3] = 1
		swimwearH[3] = 60
		swimwearB[3] = pcs_hips
		sportsclothingnumber = 29
		gs 'clothing', 'wear', 'cheap', 370
	elseif goth_clothing = 1:
		kats_panties[44] = 1
		kats_bras[28] = 1
		$pantyworntype = 'kats'
		pantywornnumber = 44
		$braworntype = 'kats'
		brawornnumber = 28
		exercise[45] = 1
		exerciseH[45] = 100
		strainers[21] = 1
		sgandm[43] = 1
		shoewornnumber = 43
		$shoeworntype = 'gandm'
		average[70] = 1
		averageH[70] = 100
		averageB[70] = pcs_hips
		cheap[60] = 1
		cheapH[60] = 100
		cheapB[60] = pcs_hips
		sportsclothingnumber = 45
		gs 'clothing', 'wear', 'average', 70
	elseif $ARGS[1] = 'CSB':
		cheap_panties[5] = 1
		cheap_bras[12] = 1
		$pantyworntype = 'cheap'
		pantywornnumber = 5
		$braworntype = 'cheap'
		brawornnumber = 12
		exercise[4] = 1
		exerciseH[4] = 100
		strainers[21] = 1
		sgandm[43] = 1
		shoewornnumber = 43
		$shoeworntype = 'gandm'
		cheap[397] = 1
		cheapH[397] = 100
		cheapB[397] = pcs_hips
		cheap[355] = 1
		cheapH[355] = 100
		cheapB[355] = pcs_hips
		sportsclothingnumber = 4
		gs 'clothing', 'wear', 'cheap', 355
	elseif pcs_inhib < 5:
		cheap[15] = 1
		cheapH[15] = 100
		cheapB[15] = pcs_hips
		exercise[4] = 1
		exerciseH[4] = 100
		cheap[36] = 1
		cheapH[36] = 100
		cheapB[36] = pcs_hips
		sportsclothingnumber = 4
		gs 'clothing', 'wear', 'cheap', 15
	elseif pcs_inhib < 10:
		cheap[48] = 1
		cheapH[48] = 100
		cheapB[48] = pcs_hips
		exercise[4] = 1
		exerciseH[4] = 100
		cheap[83] = 1
		cheapH[83] = 100
		cheapB[83] = pcs_hips
		sportsclothingnumber = 4
		gs 'clothing', 'wear', 'cheap', 48
	elseif pcs_inhib < 15:
		cheap[20] = 1
		cheapH[20] = 100
		cheapB[20] = pcs_hips
		exercise[4] = 1
		exerciseH[4] = 100
		cheap[70] = 1
		cheapH[70] = 100
		cheapB[70] = pcs_hips
		sportsclothingnumber = 4
		gs 'clothing', 'wear', 'cheap', 20
	elseif pcs_inhib < 20:
		cheap[32] = 1
		cheapH[32] = 100
		cheapB[32] = pcs_hips
		exercise[4] = 1
		exerciseH[4] = 100
		cheap[62] = 1
		cheapH[62] = 100
		cheapB[62] = pcs_hips
		sportsclothingnumber = 4
		gs 'clothing', 'wear', 'cheap', 32
	elseif pcs_inhib < 25:
		cheap[4] = 1
		cheapH[4] = 100
		cheapB[4] = pcs_hips
		exercise[4] = 1
		exerciseH[4] = 100
		cheap[41] = 1
		cheapH[41] = 100
		cheapB[41] = pcs_hips
		sportsclothingnumber = 4
		gs 'clothing', 'wear', 'cheap', 41
	elseif pcs_inhib < 30:
		cheap[50] = 1
		cheapH[50] = 100
		cheapB[50] = pcs_hips
		exercise[4] = 1
		exerciseH[4] = 100
		cheap[81] = 1
		cheapH[81] = 100
		cheapB[81] = pcs_hips
		sportsclothingnumber = 4
		gs 'clothing', 'wear', 'cheap', 50
	elseif pcs_inhib < 35:
		cheap[82] = 1
		cheapH[82] = 100
		cheapB[82] = pcs_hips
		exercise[4] = 1
		exerciseH[4] = 100
		cheap[43] = 1
		cheapH[43] = 100
		cheapB[43] = pcs_hips
		sportsclothingnumber = 4
		gs 'clothing', 'wear', 'cheap', 43
	elseif pcs_inhib < 40:
		cheap[43] = 1
		cheapH[43] = 100
		cheapB[43] = pcs_hips
		exercise[4] = 1
		exerciseH[4] = 100
		cheap[73] = 1
		cheapH[73] = 100
		cheapB[73] = pcs_hips
		sportsclothingnumber = 4
		gs 'clothing', 'wear', 'cheap', 43
	elseif pcs_inhib < 45:
		cheap[226] = 1
		cheapH[226] = 100
		cheapB[226] = pcs_hips
		exercise[95] = 1
		exerciseH[95] = 100
		cheap[236] = 1
		cheapH[236] = 100
		cheapB[236] = pcs_hips
		sportsclothingnumber = 95
		gs 'clothing', 'wear', 'cheap', 226
	elseif pcs_inhib < 50:
		cheap[292] = 1
		cheapH[292] = 100
		cheapB[292] = pcs_hips
		exercise[94] = 1
		exerciseH[94] = 100
		cheap[148] = 1
		cheapH[148] = 100
		cheapB[148] = pcs_hips
		sportsclothingnumber = 94
		gs 'clothing', 'wear', 'cheap', 148
	else
		cheap[118] = 1
		cheapH[118] = 100
		cheapB[118] = pcs_hips
		exercise[58] = 1
		exerciseH[58] = 100
		cheap[136] = 1
		cheapH[136] = 100
		cheapB[136] = pcs_hips
		swimwear[24] = 1
		swimwearH[24] = 60
		swimwearB[24] = pcs_hips
		sportsclothingnumber = 58
		gs 'clothing', 'wear', 'cheap', 118
	end
	if swim_start = 58:
		swimwear[58] = 1
		swimwearH[58] = 60
		swimwearB[58] = pcs_hips
	elseif swim_start = 98:
		swimwear[98] = 1
		swimwearH[98] = 60
		swimwearB[98] = pcs_hips
	elseif swim_start = 69:
		swimwear[69] = 1
		swimwearH[69] = 60
		swimwearB[69] = pcs_hips
	end
	
!!setting default exercise outfit and setting coats
	if school_clothing = 1:
		killvar 'school_clothing'
		alternative[55] = 1
		alternativeH[55] = 120
		alternativeB[55] = pcs_hips
		sportspantynumber = 44
		sportsbranumber = 28
		$sportsbratype = 'kats'
		$sportspantytype = 'kats'
		coat[14] = 1
		coatH[14] = 200
		defaultcoat = 14
		sportscoat = 14
	else
		if $ARGS[1] ! 'CSB':
			sportspantynumber = 37
			sportsbranumber = 11
		else
			sportspantynumber = 5
			sportsbranumber = 12
		end
		$sportsbratype = 'cheap'
		$sportspantytype = 'cheap'
		coat[5] = 1
		coatH[5] = 200
		defaultcoat = 5
		sportscoat = 5
		if school_clothing = 2:
			school[10] = 1
			schoolH[10] = 120
			schoolB[10] = pcs_hips
		elseif school_clothing = 3:
			school[63] = 1
			schoolH[63] = 120
			schoolB[63] = pcs_hips
		elseif school_clothing = 4:
			alternative[19] = 1
			alternativeH[19] = 120
			alternativeB[19] = pcs_hips
		elseif school_clothing = 5:
			school[25] = 1
			schoolH[25] = 120
			schoolB[25] = pcs_hips
		elseif school_clothing = 6:
			school[26] = 1
			schoolH[26] = 120
			schoolB[26] = pcs_hips
		elseif school_clothing = 7:
			school[26] = 1
			schoolH[26] = 120
			schoolB[26] = pcs_hips
			exercise[32] = 1
			exerciseH[32] = 100			
			sportsclothingnumber = 32
			strainers[17] = 1
			strainers[21] = 0
			sport_bras[1] = 1
			sport_brasS[1] = 0
			$sportsbratype = 'sport'
			sportsbranumber = 1
			sport_panties[1] = 1
			sport_pantiesS[1] = 0
			$sportspantytype = 'sport'
			sportspantynumber = 1
		end
		killvar 'school_clothing'
	end
	if strainers[17] = 1:
		sportsshoenumber = 17
	else
		sportsshoenumber = 21
	end
	$sportspursetype = $currentpursetype
	sportspursenumber = currentpursenumber
	$sports_clothing_name = 'default sports outfit'

	killvar 'swim_start'
		
!!	**********

	gs 'daystart'
	gs 'din_pav'
	gs 'din_npc'
	gs 'dinSex2'
	gs 'dina'
	gs 'din_van'
	gs 'din_bad'
	gs 'dinSex'
	!! KEY! I merged 'dinBoroda' with 'clener' and removed the dynamics. This line was at the end of dinBoroda, so I moved it here just in case. Sicaa
	rikudootvet = 1415
	gs 'BanSexType'

	gs 'outdoors', 'weather'

	menoage = rand(40,50)
	temprand = rand(0,10)
	
	if temprand = 0:
		menoage += rand(0,5)
	
	elseif temprand < 4:
		menoage += rand(3,10)
	
	elseif temprand < 9:
		menoage += rand(5,12)
	
	else
		menoage += rand(7,13)
	
	end

!!Setting up period start and turning on auto tracking if not on hardcore difficulty
	daylastperiod = daystart
	temprand = rand(1,3)
	if temprand = 1:
		cycle = 1
		EggRH = rand(1,149)
		FocH = EggRH + 4*24
		mesec = 0
		unfertegg = 0
		ferteggage = 0
		Ovulate = 0
		LutH = 0
		daylastperiod -= FocH/24
	elseif temprand = 2:
		lastovulation = daystart
		cycle = 2
		unfertegg = 1
		ferteggage = rand(0,44)
		Ovulate = (rand(24,44) - ferteggage)
		if Ovulate <= 0: Ovulate = 1
		mesec = 0
		EggRH = 0
		FocH = 0
		LutH = 0
		daylastperiod -= 10+(ferteggage/24)
	elseif temprand = 3:
		cycle = 3
		LutH = rand(0,300)
		ferteggage = 36 + LutH
		mesec = 0
		EggRH = 0
		FocH = 0
		unfertegg = 0
		Ovulate = 0
		daylastperiod -= 10+(ferteggage/24)
	end
	
	if daylastperiod + 4 > daystart:
		lastmens = daylastperiod - 20
	else
		lastmens = daylastperiod+4
	end

	if difficulty = 4:
		cyccustom = 0
	else
		cyccustom = 1
	end
	
	pcs_horny = 0
	killvar 'opPRE'
	killvar 'tgs_skipinto'
	gs 'stat'
	showstat 0
	showobjs 0
	if $ARGS[1] = 'NT':
		gt 'preNT'
	elseif $ARGS[1] = 'TGS':
		gt 'preTG', 'sleepPRE'
	elseif $ARGS[1] = 'CSB':
		gt 'preCSB', 'intro_0'
	else
		gt 'preALT', 'One'
	end
end

--- preCUST ---------------------------------