glife/locations/saveupdater

# saveupdater


if VersionCheck < 504:
    gs 'npcstatic1'
    gs 'npcstatic2'
    gs 'npcstatic3'
    gs 'npcstatic4'
	pcs_dob = birthyear * 10000
	pcs_dob += birthmonth * 100
	pcs_dob += birthday
	pcs_horny = horny
	pcs_stren = stren
	pcs_agil  = agil
	pcs_vital = vital
	pcs_intel = intel
	pcs_haircol = hcol
	npc_rel['A28'] = father
	npc_rel['A29'] = mother
	npc_rel['A33'] = sister
	npc_rel['A34'] = brother
	pcs_grades = Suspeh
	pcs_tan = tan
	pcs_vball = volleyboll
	pcs_hairlng = hairlength
	pcs_haircol = hcol
	pcs_nerd = nerdism
	pcs_dom = dom
	$pcs_firstname = $name
	$pcs_nickname = $nickname
	$pcs_lastname = $surname
	$pcs_usedname = $nickname
	VersionCheck = 5030
	npc_QW['A33'] = sisboyQW
	npc_QW['A34'] = brotherQW
	npc_QW['A29'] = motherQW
	npc_QW['A89'] = barmenshameet
	npc_rel['A89'] = JenyaLC
	LCEugenefirst = JenyaLCfirst
	killvar 'sisboyQW'
	killvar 'brotherQW'
	killvar 'motherQW'
	killvar 'barmenshameet'
	killvar 'JenyaLC'
	killvar 'JenyaLCfirst'
	killvar 'horny'
	killvar 'stren'
	killvar 'agil'
	killvar 'vital'
	killvar 'intel'
	killvar 'hcol'
	killvar 'father'
	killvar 'mother'
	killvar 'sister'
	killvar 'brother'
	killvar 'Suspeh'
	killvar 'tan'
	killvar 'volleyboll'
	killvar 'hairlength'
	killvar 'hcol'
	killvar 'nerdism'
	killvar 'dom'
	killvar '$name'
	killvar '$nickname'
	killvar '$surname'
	killvar '$boy'
	$boy = 'D0'

	!!The following part update the cum related arrays from an old savegame to the new MGX format.
	cycletemp = 0
	:cumarrupd
	if cycletemp < arrsize('$cumarrnam'):
		tempnpcid = arrpos('$Astat_usedname', $cumarrnam[cycletemp])
		if tempnpcid > 0:
			MSG '<br><b><font color="teal">DEBUG: Legacy name in save updated from <<$cumarrnam[cycletemp]>> to A<<tempnpcid>></font></b>'
			$cumarrnam[cycletemp] = 'A<<tempnpcid>>'
		elseif cumarrkno[cycletemp] > 0:
			MSG '<br><b><font color="red">WARNING: Unable to upgrade correctly cum entry <<cycletemp>> with name <<$cumarrnam[cycletemp]>></font></b>'
			gs 'npcgeneratec', 0, $cumarrnam[cycletemp], rand(18,60)
			$cumarrnam[cycletemp] = $npclastgenerated
		else
			gs 'npcgeneratec', 0, $cumarrnam[cycletemp], rand(18,60)
			$cumarrnam[cycletemp] = $npclastgenerated
		end
		cycletemp += 1
		jump 'cumarrupd'
	end
	cycletemp = 0
	:sparrupd
	if cycletemp < arrsize('$sparrnam'):
		tempnpcid = arrpos('$Astat_usedname', $sparrnam[cycletemp])
		if tempnpcid > 0:
			MSG '<br><b><font color="teal">DEBUG: Legacy name in save updated from <<$sparrnam[cycletemp]>> to A<<tempnpcid>></font></b>'
			$sparrnam[cycletemp] = 'A<<tempnpcid>>'
		elseif sparrkno[cycletemp] > 0:
			MSG '<br><b><font color="red">WARNING: Unable to upgrade correctly spatter entry <<cycletemp>> with name <<$sparrnam[cycletemp]>></font></b>'
			gs 'npcgeneratec', 0, $sparrnam[cycletemp], rand(18,60)
			$sparrnam[cycletemp] = $npclastgenerated
		else
			gs 'npcgeneratec', 0, $sparrnam[cycletemp], rand(18,60)
			$sparrnam[cycletemp] = $npclastgenerated
		end
		cycletemp +=1
		jump 'sparrupd'
	end
	cycletemp = 0
	:cumcbcupd
	if cycletemp < arrsize('$ChildFath'):
		tempnpcid = arrpos('$Astat_usedname', $ChildFath[cycletemp])
		if tempnpcid > 0:
			MSG '<br><b><font color="teal">DEBUG: Legacy name in save updated from <<$ChildFath[cycletemp]>> to A<<tempnpcid>></font></b>'
			$ChildFath[cycletemp] = 'A<<tempnpcid>>'
		else
			MSG '<br><b><font color="red">WARNING: Unable to upgrade correctly father entry <<cycletemp>> with name <<$ChildFath[cycletemp]>></font></b>'
			gs 'npcgeneratec', 0, $ChildFath[cycletemp], rand(18,60)
			$ChildFath[cycletemp] = $npclastgenerated
		end
		tempnpcid = arrpos('$Astat_usedname', $ChildThFath[cycletemp])
		if tempnpcid > 0:
			MSG '<br><b><font color="teal">DEBUG: Legacy name in save updated from <<$ChildThFath[cycletemp]>> to A<<tempnpcid>></font></b>'
			$ChildThFath[cycletemp] = 'A<<tempnpcid>>'
		else
			MSG '<br><b><font color="red">WARNING: Unable to upgrade correctly tought father entry <<cycletemp>> with name <<$ChildThFath[cycletemp]>></font></b>'
			$ChildThFath[cycletemp] = 'unknown'
		end
		cycletemp +=1
		jump 'cumcbcupd'
	end
	cycletemp = 0
	:wombpotupd
	if cycletemp < arrsize('$wombpotfath'):
		tempnpcid = arrpos('$Astat_usedname', $wombpotfath[cycletemp])
		if tempnpcid > 0:
			MSG '<br><b><font color="teal">DEBUG: Legacy name in save updated from <<$wombpotfath[cycletemp]>> to A<<tempnpcid>></font></b>'
			$wombpotfath[cycletemp] = 'A<<tempnpcid>>'
		elseif $wombpotfath[cycletemp] = 'Unknown':
			$wombpotfath[cycletemp] = 'unknown'
		else
			MSG '<br><b><font color="red">WARNING: Unable to upgrade correctly father entry <<cycletemp>> with name <<$wombpotfath[cycletemp]>></font></b>'
			gs 'npcgeneratec', 0, $wombpotfath[cycletemp], rand(18,60)
			$wombpotfath[cycletemp] = $npclastgenerated
		end
		cycletemp +=1
		jump 'wombpotupd'
	end
	cycletemp = 0
	:cumfthupd
		if cycletemp < arrsize('$cumfthname'):
		tempnpcid = arrpos('$Astat_usedname', $cumfthname[cycletemp])
		if tempnpcid > 0:
			MSG '<br><b><font color="teal">DEBUG: Legacy name in save updated from <<$cumfthname[cycletemp]>> to A<<tempnpcid>></font></b>'
			$cumfthname[cycletemp] = 'A<<tempnpcid>>'
		else
			MSG '<br><b><font color="red">WARNING: Unable to upgrade correctly father entry <<cycletemp>> with name <<$cumfthname[cycletemp]>></font></b>'
			gs 'npcgeneratec', 0, $cumfthname[cycletemp], rand(18,60)
			$cumfthname[cycletemp] = $npclastgenerated
		end
		cycletemp +=1
		jump 'cumfthupd'
	end
end

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

if Astat_horny[0] > 0: pcs_horny = Astat_horny[0]
if Astat_stren[0] > 0: pcs_stren = Astat_stren[0]
if Astat_agil[0] > 0: pcs_agil = Astat_agil[0]
if Astat_vital[0] > 0: pcs_vital = Astat_vital[0]
if Astat_intel[0] > 0: pcs_intel = Astat_intel[0]
if Astat_haircol[0] > 0: pcs_haircol = Astat_haircol[0]
if Astat_grades[0] > 0: pcs_grades = Astat_grades[0]
if Astat_tan[0] > 0: pcs_tan = Astat_tan[0]
if Astat_vball[0] > 0: pcs_vball = Astat_vball[0]
if Astat_hairlng[0] > 0: pcs_hairlng = Astat_hairlng[0]
if Astat_dom[0] > 0: pcs_dom = Astat_dom[0]
if Astat_nerd[0] > 0: pcs_nerd = Astat_nerd[0]
if $Astat_firstname[0] ! '': $pcs_firstname = $Astat_firstname[0]
if $Astat_nickname[0] ! '': $pcs_nickname = $Astat_nickname[0]
if $Astat_lastname[0] ! '': $pcs_lastname = $Astat_lastname[0]

if horny > 0: pcs_horny += horny & killvar 'horny'
if stren > 0: stren_exp += stren & killvar 'stren'
if agil > 0: agil_exp += agil & killvar 'agil'
if vital > 0: vital_exp += vital & killvar 'vital'
if intel > 0: intel_exp += intel & killvar 'intel'
if hcol > 0: pcs_haircol += hcol & killvar 'hcol'
if Suspeh > 0: pcs_grades += Suspeh & killvar 'Suspeh'
if tan > 0: pcs_tan += tan & killvar 'tan'
if volleyboll > 0: vball_exp += volleyboll & killvar 'volleyboll'
if hairlength > 0: pcs_hairlng += hairlength & killvar 'hairlength'
if dom > 0: pcs_dom += dom & killvar 'dom'
if $name ! '': $pcs_firstname = $name & killvar '$name'
if $nickname ! '': $pcs_nickname = $nickname & killvar '$nickname'
if $surname ! '': $pcs_lastname = $surname & killvar '$surname'
if beg > 0: pcs_run = beg & killvar 'beg'
if dance > 0: pcs_danc = dance & killvar 'dance'
if will > 0: pcs_sprt = will & killvar 'will'
if magik > 0: pcs_magik = magik & killvar 'magik'
if react > 0: pcs_react = react & killvar 'react'
if chess > 0: pcs_chess = chess & killvar 'chess'
if Jab > 0: pcs_jab = Jab & killvar 'Jab'
if Kik > 0: pcs_kick = Kik & killvar 'Kik'
if KikDef > 0: pcs_def = KikDef & killvar 'KikDef'
if oficiant > 0: pcs_servng = oficiant & killvar 'oficiant'
if poledance > 0: pcs_dancpol = poledance & killvar 'poledance'
if poSkill > 0: pcs_sewng = poSkill & killvar 'poSkill'
if Punch > 0: pcs_punch = Punch & killvar 'Punch'
if shoot > 0: pcs_shoot = shoot & killvar 'shoot'
if stripdance > 0: pcs_dancero = stripdance & killvar 'stripdance'
if vokal > 0: pcs_vokal = vokal & killvar 'vokal'
if glacol > 0: pcs_eyecol = glacol & killvar 'glacol'
if glaraz > 0: pcs_eyesize = glaraz & killvar 'glaraz'
if grudi > 0: pcs_bust = grudi & killvar 'grudi'
if leghair > 0: pcs_leghair = leghair & killvar 'leghair'
if lip > 0: pcs_lip = lip & killvar 'lip'
if lobok > 0: pcs_pubes = lobok & killvar 'lobok'
if nipple_size > 0: pcs_nips = nipple_size & killvar 'nipple_size'
if resnic > 0: pcs_lashes = resnic & killvar 'resnic'
if rost > 0: pcs_hgt = rost & killvar 'rost'
if skinvan > 0: pcs_skin = skinvan & killvar 'skinvan'
if fbreath > 0: pcs_breath = fbreath & killvar 'fbreath'
if hapri > 0: pcs_hairbsh = hapri & killvar 'hapri'
if lipbalmstat > 0: pcs_lipbalm = lipbalmstat & killvar 'lipbalmstat'
if mop > 0: pcs_makeup = mop & killvar 'mop'
if sweat > 0: pcs_sweat = sweat & killvar 'sweat'
if vnesh > 0: pcs_apprnc = vnesh & killvar 'vnesh'
if anus > 0: pcs_ass = anus & killvar 'anus'
if mood > 0: pcs_mood = mood & killvar 'mood'
if manna > 0: pcs_manna = manna & killvar 'manna'
if health > 0: pcs_health = health & killvar 'health'
if willpower > 0: pcs_willpwr = willpower & killvar 'willpower'
if energy > 0: pcs_energy = energy & killvar 'energy'
if son > 0: pcs_sleep = son & killvar 'son'
if bedra > 0: pcs_hips = bedra & killvar 'bedra'
if talia > 0: pcs_waist = talia & killvar 'talia'
if grutal > 0: pcs_band = grutal & killvar 'grutal'
if titK > 0: pcs_cupsize = titK & killvar 'titK'
if ves > 0: pcs_weight = ves & killvar 'ves'
if throat > 0: pcs_throat = throat & killvar 'throat'
if vagina > 0: pcs_vag = vagina & killvar 'vagina'
if zub > 0: pcs_teeth = zub & killvar 'zub'

killvar 'Astat'

if JenyaLCfirst > 0: LCEugenefirst = JenyaLCfirst & killvar 'JenyaLCfirst'
if JenyaLC > 0:npc_rel['A89'] = JenyaLC & killvar 'JenyaLC'
if barmenshameet > 0: npc_Qstlvl['A89'] = barmenshameet & killvar 'barmenshameet'


--- saveupdater ---------------------------------