glife/locations/intro_initialization_city.qsrc

# intro_initialization_city
!!*************************
!!	Final Initializations
!!	Top area for things that need to be done before setting the variables for either start

hour = 13
day = 21
week = 1
month = 8
year = 2017

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'

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'

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

vidage = age - 1

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', 'initial'

!! Adding underwear and default shoes and assigning them

cheap_panties[1] = 1
cheap_bras[1] = 1
$pantyworntype = 'cheap'
pantywornnumber = 1
$braworntype = 'cheap'
brawornnumber = 1
gm_shoe[6] = 1
$shoeworntype = 'gm'
shoewornnumber = 6

!!	Starting clothing set
cheap_panties[12] = 1
cheap_bras[12] = 1
danilovich_outfits[81] = 1
danilovich_outfits_h[81] = 100
danilovich_shoe[21] = 1
gm_shoe[9] = 1
gm_outfits[30] = 1
gm_outfits_h[30] = 100
gm_outfits_b[30] = pcs_hips
cats_dress[1] = 1
cats_dress_h[1] = 100
cats_dress_b[1] = pcs_hips

if goth_clothing = 1:
	kats_panties[28] = 1
	kats_bras[28] = 1
	$pantyworntype = 'kats'
	pantywornnumber = 28
	$braworntype = 'kats'
	brawornnumber = 28
	danilovich_outfits[91] = 1
	danilovich_outfits_h[91] = 100
	shoewornnumber = 9
	$shoeworntype = 'gm'
	dolls_dress[7] = 1
	dolls_dress_h[7] = 100
	dolls_dress_b[7] = pcs_hips
	dolls_shoe[1] = 1
	bomba_dress[4] = 1
	bomba_dress_h[4] = 100
	bomba_dress_b[4] = pcs_hips
	bomba_dress[23] = 1
	bomba_dress_h[23] = 100
	bomba_dress_b[23] = pcs_hips
	bomba_outfits[16] = 1
	bomba_outfits_h[16] = 100
	bomba_outfits_b[16] = pcs_hips
	bomba_outfits[31] = 1
	bomba_outfits_h[31] = 100
	bomba_outfits_b[31] = pcs_hips
	sportsclothingnumber = 91
	gs 'clothing', 'wear', 'bomba_dress', 4
elseif pcs_inhib < 5:
	gm_outfits[30] = 1
	gm_outfits_h[30] = 100
	gm_outfits_b[30] = pcs_hips
	gm_outfits[2] = 1
	gm_outfits_h[2] = 100
	gm_outfits_b[2] = pcs_hips
	gm_outfits[54] = 1
	gm_outfits_h[54] = 100
	gm_outfits_b[54] = pcs_hips
	coco_outfits[5] = 1
	coco_outfits_h[5] = 100
	coco_outfits_b[5] = pcs_hips
	danilovich_outfits[81] = 1
	danilovich_outfits_h[81] = 100
	cats_dress[14] = 1
	cats_dress_h[14] = 100
	cats_dress_b[14] = pcs_hips
	sportsclothingnumber = 81
	gs 'clothing', 'wear', 'cats_dress', 1
elseif pcs_inhib < 10:
	gm_outfits[15] = 1
	gm_outfits_h[15] = 100
	gm_outfits_b[15] = pcs_hips
	danilovich_outfits[76] = 1
	danilovich_outfits_h[76] = 100
	flamingos_outfits[9] = 1
	flamingos_outfits_h[9] = 100
	flamingos_outfits_b[9] = pcs_hips
	nerdvana_outfits[38] = 1
	nerdvana_outfits_h[38] = 100
	nerdvana_outfits_b[38] = pcs_hips
	gm_office[11] = 1
	gm_office_h[11] = 100
	gm_office_b[11] = pcs_hips
	gm_dress[4] = 1
	gm_dress_h[4] = 100
	gm_dress_b[4] = pcs_hips
	sportsclothingnumber = 76
	gs 'clothing', 'wear', 'gm_dress', 4
elseif pcs_inhib < 15:
	gm_outfits[58] = 1
	gm_outfits_h[58] = 100
	gm_outfits_b[58] = pcs_hips
	danilovich_outfits[106] = 1
	danilovich_outfits_h[106] = 100
	gm_dress[7] = 1
	gm_dress_h[7] = 100
	gm_dress_b[7] = pcs_hips
	gm_dress[16] = 1
	gm_dress_h[16] = 100
	gm_dress_b[16] = pcs_hips
	dolls_outfits[12] = 1
	dolls_outfits_h[12] = 100
	dolls_outfits_b[12] = pcs_hips
	dolls_outfits[3] = 1
	dolls_outfits_h[3] = 100
	dolls_outfits_b[3] = pcs_hips
	sportsclothingnumber = 106
	gs 'clothing', 'wear', 'gm_dress', 7
elseif pcs_inhib < 20:
	gm_outfits[55] = 1
	gm_outfits_h[55] = 100
	gm_outfits_b[55] = pcs_hips
	danilovich_outfits[102] = 1
	danilovich_outfits_h[102] = 100
	danilovich_outfits[64] = 1
	danilovich_outfits_h[64] = 100
	flamingos_dress[109] = 1
	flamingos_dress_h[109] = 100
	flamingos_dress_b[109] = pcs_hips
	gm_outfits[99] = 1
	gm_outfits_h[99] = 100
	gm_outfits_b[99] = pcs_hips
	gm_dress[7] = 1
	gm_dress_h[7] = 100
	gm_dress_b[7] = pcs_hips
	sportsclothingnumber = 43
	gs 'clothing', 'wear', 'gm_outfits', 99
elseif pcs_inhib < 25:
	gm_outfits[58] = 1
	gm_outfits_h[58] = 100
	gm_outfits_b[58] = pcs_hips
	gm_outfits[181] = 1
	gm_outfits_h[181] = 100
	gm_outfits_b[181] = pcs_hips
	bomba_outfits[1] = 1
	bomba_outfits_h[1] = 100
	bomba_outfits_b[1] = pcs_hips
	flamingos_dress[59] = 1
	flamingos_dress_h[59] = 100
	flamingos_dress_b[59] = pcs_hips
	danilovich_outfits[87] = 1
	danilovich_outfits_h[87] = 100
	gm_dress[39] = 1
	gm_dress_h[39] = 100
	gm_dress_b[39] = pcs_hips
	sportsclothingnumber = 1
	gs 'clothing', 'wear', 'flamingos_dress', 59
elseif pcs_inhib < 30:
	gm_outfits[91] = 1
	gm_outfits_h[91] = 100
	gm_outfits_b[91] = pcs_hips
	danilovich_outfits[96] = 1
	danilovich_outfits_h[96] = 100
	flamingos_dress[89] = 1
	flamingos_dress_h[89] = 100
	flamingos_dress_b[89] = pcs_hips
	fashionista_outfits[17] = 1
	fashionista_outfits_h[17] = 100
	fashionista_outfits_b[17] = pcs_hips
	scandalicious_dress[2] = 1
	scandalicious_dress_h[2] = 100
	scandalicious_dress_b[2] = pcs_hips
	gm_dress[57] = 1
	gm_dress_h[57] = 100
	gm_dress_b[57] = pcs_hips
	sportsclothingnumber = 48
	gs 'clothing', 'wear', 'flamingos_dress', 89
elseif pcs_inhib < 35:
	gm_outfits[95] = 1
	gm_outfits_h[95] = 100
	gm_outfits_b[95] = pcs_hips
	danilovich_outfits[48] = 1
	danilovich_outfits_h[48] = 100
	scandalicious_dress[18] = 1
	scandalicious_dress_h[18] = 100
	scandalicious_dress_b[18] = pcs_hips
	dolls_outfits[36] = 1
	dolls_outfits_h[36] = 100
	dolls_outfits_b[36] = pcs_hips
	cats_dress[67] = 1
	cats_dress_h[67] = 100
	cats_dress_b[67] = pcs_hips
	gm_dress[63] = 1
	gm_dress_h[63] = 100
	gm_dress_b[63] = pcs_hips
	sportsclothingnumber = 40
	gs 'clothing', 'wear', 'dolls_outfits', 36
elseif pcs_inhib < 40:
	gm_outfits[124] = 1
	gm_outfits_h[124] = 100
	gm_outfits_b[124] = pcs_hips
	danilovich_outfits[45] = 1
	danilovich_outfits_h[45] = 100
	scandalicious_dress[45] = 1
	scandalicious_dress_h[45] = 100
	scandalicious_dress_b[45] = pcs_hips
	cats_dress[203] = 1
	cats_dress_h[203] = 100
	cats_dress_b[203] = pcs_hips
	cats_outfits[196] = 1
	cats_outfits_h[196] = 100
	cats_outfits_b[196] = pcs_hips
	gm_dress[89] = 1
	gm_dress_h[89] = 100
	gm_dress_b[89] = pcs_hips
	sportsclothingnumber = 45
	gs 'clothing', 'wear', 'cats_dress', 203
elseif pcs_inhib < 45:
	gm_outfits[131] = 1
	gm_outfits_h[131] = 100
	gm_outfits_b[131] = pcs_hips
	danilovich_outfits[38] = 1
	danilovich_outfits_h[38] = 100
	scandalicious_dress[7] = 1
	scandalicious_dress_h[7] = 100
	scandalicious_dress_b[7] = pcs_hips
	market_outfits[2] = 1
	market_outfits_h[2] = 40
	market_outfits_b[2] = pcs_hips
	cats_dress[219] = 1
	cats_dress_h[219] = 100
	cats_dress_b[219] = pcs_hips
	gm_dress[109] = 1
	gm_dress_h[109] = 100
	gm_dress_b[109] = pcs_hips
	sportsclothingnumber = 38
	gs 'clothing', 'wear', 'market_outfits', 2
elseif pcs_inhib < 50:
	gm_outfits[145] = 1
	gm_outfits_h[145] = 100
	gm_outfits_b[145] = pcs_hips
	danilovich_outfits[17] = 1
	danilovich_outfits_h[17] = 100
	scandalicious_dress[96] = 1
	scandalicious_dress_h[96] = 100
	scandalicious_dress_b[96] = pcs_hips
	market_outfits[10] = 1
	market_outfits_h[10] = 40
	market_outfits_b[10] = pcs_hips
	nerdvana_outfits[60] = 1
	nerdvana_outfits_h[60] = 100
	nerdvana_outfits_b[60] = pcs_hips
	gm_dress[123] = 1
	gm_dress_h[123] = 100
	gm_dress_b[123] = pcs_hips
	sportsclothingnumber = 143
	gs 'clothing', 'wear', 'scandalicious_dress', 96
else
	gm_outfits[149] = 1
	gm_outfits_h[149] = 100
	gm_outfits_b[149] = pcs_hips
	danilovich_outfits[15] = 1
	danilovich_outfits_h[15] = 100
	scandalicious_dress[46] = 1
	scandalicious_dress_h[46] = 100
	scandalicious_dress_b[46] = pcs_hips
	scandalicious_outfits[16] = 1
	scandalicious_outfits_h[16] = 100
	scandalicious_outfits_b[16] = pcs_hips
	market_outfits[12] = 1
	market_outfits_h[12] = 40
	market_outfits_b[12] = pcs_hips
	market_outfits
	gm_dress[149] = 1
	gm_dress_h[149] = 100
	gm_dress_b[149] = pcs_hips
	scandalicious_bikinis[55] = 1
	scandalicious_bikinis_h[55] = 60
	scandalicious_bikinis_b[55] = pcs_hips
	sportsclothingnumber = 15
	gs 'clothing', 'wear', 'scandalicious_dress', 46
end

if swim_start = 99:
	allure_swimsuit[99] = 1
	allure_swimsuit_h[99] = 60
	allure_swimsuit_b[99] = pcs_hips
elseif swim_start = 1:
	danilovich_swimsuit[1] = 1
	danilovich_swimsuit_h[1] = 60
	danilovich_swimsuit_b[1] = pcs_hips
end

if danilovich_shoe[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

--- intro_initialization_city ---------------------------------