glife/locations/npcpreservec.qsrc

# npcpreservec
!! {It expects an Args containing a C array index}
!! {This initializes the array and acts as a gate to deny bad calls.}
$npctemp = $ARGS[0]

!! npcgen_lastrun is a flag to help track whether npcgeneratec or npcpreservec has been run last
!! npcgeneratec is 1
!! npcpreservec is 2
npcgen_lastrun = 1

if mid($npctemp,1,1) = 'C':
	:npcsavebsanityloop
	npc_scheck = 0
	$npclastsaved = 'B' + '<<barraynumber>>'
	$npctemparrb = 'B' + '<<(barraynumber)-(1)>>'
	if $npc_PersType[$npctemparrb] = '' and barraynumber > 0:
		barraynumber -= 1
		npc_scheck = 1
	elseif $npc_PersType[$npclastsaved] = '':
		npc_scheck = 0
	else
		barraynumber += 1
		npc_scheck = 1
	end
	if npc_scheck = 1: jump 'npcsavebsanityloop'
	barraynumber += 1
	killvar 'npc_scheck'

	! {This copies the array from Array C to Array B}
	$npc_firstname[$npclastsaved]		= $npc_firstname[$npctemp]
	$npc_nickname[$npclastsaved]		= $npc_nickname[$npctemp]
	$npc_lastname[$npclastsaved]		= $npc_lastname[$npctemp]
	$npc_usedname[$npclastsaved]		= $npc_usedname[$npctemp]
	$npc_notes[$npclastsaved]			= $npc_notes[$npctemp]
	$npc_pic[$npclastsaved]				= $npc_pic[$npctemp]
	lover_picrand[$npclastsaved]		= lover_picrand[$npctemp]

	npc_age[$npclastsaved]				= npc_age[$npctemp]
	npc_dob[$npclastsaved]				= npc_dob[$npctemp]
	npc_gender[$npclastsaved]			= npc_gender[$npctemp]

	npc_height[$npclastsaved]			= npc_height[$npctemp]
! npc_body
	npc_haircol[$npclastsaved]			= npc_haircol[$npctemp]
	npc_apprnc[$npclastsaved]			= npc_apprnc[$npctemp]

	npc_dick[$npclastsaved]				= npc_dick[$npctemp]
	$npc_thdick[$npclastsaved]			= $npc_thdick[$npctemp]
	npc_bust[$npclastsaved]				= npc_bust[$npctemp]
	$npc_dick_desc[$npclastsaved]		= $npc_dick_desc[$npctemp]


	npc_spermpot[$npclastsaved]			= npc_spermpot[$npctemp]
	npc_sexskill[$npclastsaved]			= npc_sexskill[$npctemp]

	npc_drunk[$npclastsaved]			= npc_drunk[$npctemp]
	npc_horny[$npclastsaved]			= npc_horny[$npctemp]

	npc_rel[$npclastsaved]				= npc_rel[$npctemp]
	npc_love[$npclastsaved]				= npc_love[$npctemp]
	npc_sex[$npclastsaved]				= npc_sex[$npctemp]
	npc_QW[$npclastsaved]				= npc_QW[$npctemp]

	$npc_perstype[$npclastsaved]		= $npc_perstype[$npctemp]
	$npc_dna[$npclastsaved]				= $npc_dna[$npctemp]

	npc_herpes[$npclastsaved]			= npc_herpes[$npctemp]
	npc_syth[$npclastsaved]				= npc_syth[$npctemp]
	npc_gon[$npclastsaved]				= npc_gon[$npctemp]
	npc_thrush[$npclastsaved]			= npc_thrush[$npctemp]

	npc_residence[$npclastsaved]		= npc_residence[$npctemp]
	npc_apt_type[$npclastsaved]			= npc_apt_type[$npctemp]
	npc_apt_number[$npclastsaved]		= npc_apt_number[$npctemp]

	$npc_apt_bedroom[$npclastsaved]		= $npc_apt_bedroom[$npctemp]
	$npc_apt_kitchen[$npclastsaved]		= $npc_apt_kitchen[$npctemp]
	$npc_apt_livingroom[$npclastsaved]	= $npc_apt_livingroom[$npctemp]
	$npc_apt_bathroom[$npclastsaved]	= $npc_apt_bathroom[$npctemp]
	$npc_apt_hall[$npclastsaved]		= $npc_apt_hall[$npctemp]
	if $npc_apt_spare[$npclastsaved]	! '':$npc_apt_spare[$npclastsaved] = $npc_apt_spare[$npctemp]

	npc_perv[$npclastsaved]				= npc_perv[$npctemp]
	npc_outfit[$npclastsaved]			= npc_outfit[$npctemp]
	npc_finance[$npclastsaved]			= npc_finance[$npctemp]
	npc_occupation[$npclastsaved]		= npc_occupation[$npctemp]
	$npc_occupation[$npclastsaved]		= $npc_occupation[$npctemp]

	npc_start_free_time[$npclastsaved]	= npc_start_free_time[$npctemp]
	npc_end_free_time[$npclastsaved]	= npc_end_free_time[$npctemp]
	npc_work_start[$npclastsaved]		= npc_work_start[$npctemp]
	npc_work_end[$npclastsaved]			= npc_work_end[$npctemp]

	npc_day_off[$npclastsaved]			= npc_day_off[$npctemp]

	npc_car[$npclastsaved]  			= npc_car[$npctemp]
	npc_intel[$npclastsaved]			= npc_intel[$npctemp]
	npc_humor[$npclastsaved]			= npc_humor[$npctemp]

	npc_style[$npclastsaved]			= npc_style[$npctemp]
	npc_smoker[$npclastsaved]			= npc_smoker[$npctemp]
	npc_mj[$npclastsaved]				= npc_mj[$npctemp]
	npc_addit[$npclastsaved]			= npc_addit[$npctemp]
	npc_doors[$npclastsaved]			= npc_doors[$npctemp]
	npc_goal[$npclastsaved]				= npc_goal[$npctemp]
	$npc_rel_goal[$npclastsaved]		= $npc_rel_goal[$npctemp]

!!	relationship ideals/stats

	npc_fidelity[$npclastsaved]			= npc_fidelity[$npctemp]
	$npc_fidelity[$npclastsaved]		= $npc_fidelity[$npctemp]
	npc_wife[$npclastsaved]				= npc_wife[$npctemp]
	npc_girlfriend[$npclastsaved]		= npc_girlfriend[$npctemp]
	npc_lover_days[$npclastsaved]		= npc_lover_days[$npctemp]
	npc_lover_keys[$npclastsaved]		= npc_lover_keys[$npctemp]

!!	traits

	npc_earlyriser[$npclastsaved]		= npc_earlyriser[$npctemp]
	npc_latesleeper[$npclastsaved]		= npc_latesleeper[$npctemp]
	npc_generous[$npclastsaved]			= npc_generous[$npctemp]
	npc_selfish[$npclastsaved]			= npc_selfish[$npctemp]
	npc_gentle[$npclastsaved]			= npc_gentle[$npctemp]
	npc_rough[$npclastsaved]			= npc_rough[$npctemp]
	npc_risktaker[$npclastsaved]		= npc_risktaker[$npctemp]
	npc_diligent[$npclastsaved]			= npc_diligent[$npctemp]
	npc_neat[$npclastsaved]				= npc_neat[$npctemp]
	npc_messy[$npclastsaved]			= npc_messy[$npctemp]
	npc_diligent[$npclastsaved]			= npc_diligent[$npctemp]

	npc_manscaped[$npclastsaved]		= npc_manscaped[$npctemp]
	npc_argumentative[$npclastsaved]	= npc_argumentative[$npctemp]
	npc_competitive[$npclastsaved]		= npc_competitive[$npctemp]
	npc_insecure[$npclastsaved]			= npc_insecure[$npctemp]
	npc_condom_conscious[$npclastsaved] = npc_condom_conscious[$npctemp]
	npc_no_condoms[$npclastsaved]		= npc_no_condoms[$npctemp]
	npc_latex_allergy[$npclastsaved]	= npc_latex_allergy[$npctemp]
	npc_caretaker[$npclastsaved]		= npc_caretaker[$npctemp]
	npc_childfree[$npclastsaved]		= npc_childfree[$npctemp]
	npc_abusive[$npclastsaved]			= npc_abusive[$npctemp]

	npc_cuddler[$npclastsaved]			= npc_cuddler[$npctemp]

!!	sex traits and stats
	npc_sexdrive[$npclastsaved]			= npc_sexdrive[$npctemp]
	npc_sex_stamina[$npclastsaved]		= npc_sex_stamina[$npctemp]

	npc_fav_pos[$npclastsaved]			= npc_fav_pos[$npctemp]
	$npc_fav_pos[$npclastsaved]			= $npc_fav_pos[$npctemp]
	npc_sex_speed[$npclastsaved]		= npc_sex_speed[$npctemp]
	npc_sex_volume[$npclastsaved]		= npc_sex_volume[$npctemp]
	npc_gentle_lover[$npclastsaved]		= npc_gentle_lover[$npctemp]
	npc_dirty_lover[$npclastsaved]		= npc_dirty_lover[$npctemp]
	npc_sensual_lover[$npclastsaved]	= npc_sensual_lover[$npctemp]
	npc_cum_pref[$npclastsaved]			= npc_cum_pref[$npctemp]
	$npc_cum_pref[$npclastsaved]		= $npc_cum_pref[$npctemp]
	npc_bukakke_fetish[$npclastsaved]	= npc_bukakke_fetish[$npctemp]
	npc_dislikes_facials[$npclastsaved]	= npc_dislikes_facials[$npctemp]
	npc_tit_pref[$npclastsaved]			= npc_tit_pref[$npctemp]
	npc_bush_pref[$npclastsaved]		= npc_bush_pref[$npctemp]
	npc_sex_spanker[$npclastsaved]		= npc_sex_spanker[$npctemp]
	npc_pussyeater[$npclastsaved]		= npc_pussyeater[$npctemp]
	npc_cum_cannon[$npclastsaved]		= npc_cum_cannon[$npctemp]
	npc_sex_filmer[$npclastsaved]		= npc_sex_filmer[$npctemp]
	npc_know_bc[$npclastsaved]			= npc_know_bc[$npctemp]
	npc_know_not_bc[$npclastsaved]		= npc_know_not_bc[$npctemp]
	npc_thinkage[$npclastsaved]			= npc_thinkage[$npctemp]
	$npc_know_pubes[$npclastsaved]		= $npc_know_pubes[$npctemp]
	npc_hj_count[$npclastsaved]			= npc_hj_count[$npctemp]
	npc_bj_count[$npclastsaved]			= npc_bj_count[$npctemp]
	npc_fuck_times[$npclastsaved]		= npc_fuck_times[$npctemp]
	virgin_taker_ID[$npclastsaved]		= virgin_taker_ID[$npctemp]

	!! This checks if you have had sex with this person before or not
	npc_sex[$npclastsaved]				= npc_sex[$npctemp]

	$npc_index[$npclastsaved]			= $npclastsaved



	! {This checks the miscellanious arrays for the Entry and changes it to the new Array B.}
	:npctempmloop1
	npctemp2 = arrpos('$cumarrnam', $npctemp)
	if npctemp2 >= 0: $cumarrnam[npctemp2] = $npclastsaved & jump 'npctempmloop1'

	:npctempmloop2
	npctemp2 = arrpos('$sparrnam', $npctemp)
	if npctemp2 >= 0: $sparrnam[npctemp2] = $npclastsaved & jump 'npctempmloop2'

	:npctempmloop3
	npctemp2 = arrpos('$wombName', $npctemp)
	if npctemp2 >= 0: $wombName[npctemp2] = $npclastsaved & jump 'npctempmloop3'

	:npctempmloop4
	npctemp2 = arrpos('$cumfathlotto', $npctemp)
	if npctemp2 >= 0: $cumfathlotto[npctemp2] = $npclastsaved & jump 'npctempmloop4'

	:npctempmloop5
	npctemp2 = arrpos('$ChildFath', $npctemp)
	if npctemp2 >= 0: $ChildFath[npctemp2] = $npclastsaved & jump 'npctempmloop5'

	! {Thic checks Array A for the Entry and changes it to the new Array B. The parts commented out don''t work and need to be replaced with something that does.}
	if $pcs_firstpart = $npctemp: $pcs_firstpart = $npclastsaved
	if $pcs_lastpart = $npctemp: $pcs_lastpart = $npclastsaved

	! {This clears the Entry in Array C}
	gs 'npccleanc', $npctemp
end
!! Preserves npclastsavedn. Giving the last numerical B array saved.
npclastsavedn = val(mid($npclastsaved, 2))

killvar 'npctemp2'
killvar '$npctemp2'
killvar '$npctemp'

--- npcpreservec ---------------------------------