glife/locations/loadg

# loadg

! WD: Set variable to store Image needed HTML code

if $ImageNeededPlacholder = '':
	set $ImageNeededPlacholder = '<center><img src="images/system/image_needed.png"></center>'

end

gs 'din_pav'
gs 'dinSex2'
gs 'dina'
gs 'din_van'
gs 'din_bad'
gs 'dinSex'
gs 'dinBoroda'
gs 'BanSexType'
gs 'saveupdater'
gs 'gschool_lessons', 'npc_data'

if StoryLine = 0 and daystart_start = 0:daystart_start = 145

if vshrink = 0 and vshrinkdays = 0 and ashrink = 0 and ashrinkdays = 0:vshrink = 1 & vshrinkdays = 6 & ashrink = 1 & ashrinkdays = 3

if bankAccount = 0 and karta > 0: 
	bankAccount = 1
	
	if bankDebtLimit = 0: bankDebtLimit = 5000

end

if $cycreport_txt = '':
	temp[1] = daystart-daylastperiod
	$cycreport_txt = 'It has been <<temp[1]>> days since you last had a period.'

end

if menoage = 0:
	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

end

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]

!!if oldsavehcol = 0: 
!!commented out as its activating on new games and people should have the used it by now but not deleted in case of queries
!!DELETE in 0.6.1 or later
!!	cla
!!	cls
!!	*clr	
!!	:hcolloop
!!	'There have been changes made to the hair colour system, please indicate your character''s natural hair colour.'
!!	'Enter 0 (zero) for black, 1 (one) for brown, 2 (two) for red, or 3 (three) for blonde.'
!!	'Note: Cancelling or entering no value will default to 0, black hair.'
!!	nathcol = input("Enter the number that corresponds to your character''s natural hair colour:")
	
!!	if nathcol >= 0 or nathcol <= 3:
!!		if pcs_haircol ! nathcol: dyefade = rand(21,35)
!!		oldsavehcol = 1
		
!!		act 'Return to game': gs 'stat' & gt $CURLOC
	
!!	else
!!		'That is not a valid entry.'
!!		jump 'hcolloop'
	
!!	end

!!end

if dounspell = 0 and newbdsp = 0:
	dounspell = 1
	dounsplkil = 2
	nbsize = pcs_cupsize - silicone
	gs 'body_shape', 'hardreset'
	newbdsp = 1

end

if succubusflag = 1 and sucpcinfo = 4 and sucinfoday = 0: sucinfoday = daystart + 5 + rand(0,5)

if skin > 0: pcs_skin += 20 * skin & killvar 'skin'

if pcs_apprncbase = 0: gs 'body_shape', 'basebeautycalc', 1

if normbuffpick = 2: bodset = 2 & killvar 'normbuffpick'

:cumidloop
if arrsize('$cumarrnam') > arrsize('cumarrcnt'):
	cumarrcnt[arrsize('cumarrcnt')] = -2
	jump 'cumidloop'
end

:spidloop
if arrsize('$sparrnam') > arrsize('sparrcnt'):
	sparrcnt[arrsize('sparrcnt')] = -1
	jump 'spidloop'
end

!!For old save Succubae
if mutagenP > 0: stren_muta = mutagenP & killvar 'mutagenP'
if mutagenA > 0: agil_muta = mutagenA & killvar 'mutagenA'
if mutagenV > 0: vital_muta = mutagenV & killvar 'mutagenV'
if mutagenI > 0: intel_muta = mutagenI & killvar 'mutagenI'
if mutagenR > 0: react_muta = mutagenR & killvar 'mutagenR'
if mutagenW > 0: sprt_muta = mutagenW & killvar 'mutagenW'

!!This sets new attributes to default on saves that did not have these attributes
if pcs_chrsm <= 0: pcs_chrsm = 10
if pcs_prcptn <= 0: pcs_prcptn = 10

if pillcvrt = 0:
	pillcvrt = 1
	if tabletki > 0:
		stepa = ((tabletki*100)/28) mod 10
		stepb = ((tabletki*100)/28) - stepa
		tabletki = stepb/100
		pillsleft[0] = (stepa*28)/100
	end
end

if karinsex ! 0: TatianaSex = karinsex & killvar 'karinsex'
if karinsucsex > 0: tatisucsex += karinsucsex & killvar 'karinsucsex'
if tatianasucsex > 0: tatisucsex += tatianasucsex & killvar 'tatianasucsex'

if $excer_name[1] = '':$excer_name[1] = 'Default 1'
if $excer_name[2] = '':$excer_name[2] = 'Default 2'
if $excer_name[3] = '':$excer_name[3] = 'Default 3'
if $excer_name[4] = '':$excer_name[4] = 'Default 4'

!!-------------------------- above this line can be removed for 0.6.1 ---------------------------------

if dounspell = 1: dounsplkil = 2 & gs 'body_shape', 'hardreset'

--- loadg ---------------------------------