glife/locations/intro_initialization.qsrc

# intro_initialization

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 'time', 'init_monthnames'
gs 'time', 'init_monthends'
gs 'time', 'init_weeknames'

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

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
makeup['base'] = 1

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

gs 'body', 'initial'

gs 'time', 'update_date'
gs 'yearstart'
gs 'din_pav'
gs 'din_npc'
gs 'dinSex2'
gs 'dina'
gs 'din_van'
gs 'din_bad'
gs 'dinSex'

gs 'newspaper', 'cikl'
!! 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:
	cheatVars['track_period'] = 0
else
	cheatVars['track_period'] = 1
end
cheatVars['enema'] = 1
cheatVars['auto_tampons'] = 1

!! give everyone some shampoo
mc_inventory['shampoo'] +=  10

pcs_horny = 0
killvar 'opPRE'
killvar 'tgs_skipinto'
gs 'stat'
showstat 0
showobjs 0

if pcs_nerd > 0: lastreadday = daystart - 1


ml_delparcoQW['Stage'] = 0
ml_delparcoQW['Zariyah Trust'] = 50


gs 'body', 'Update_Body'
gs 'body', 'DailyUpdate'
pcs_stam = stammax

--- intro_initialization ---------------------------------