| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129 |
- # 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]
- if mid($npctemp,1,1) = 'C':
- :npcsavebsanityloop
- i = 0
- $npclastsaved = 'B' + '<<barraynumber>>'
- $npctemparrb = 'B' + '<<(barraynumber)-(1)>>'
- if $npc_PersType[$npctemparrb] = '' and barraynumber > 0:
- barraynumber -= 1
- i = 1
- elseif $npc_PersType[$npclastsaved] = '':
- i = 0
- else
- barraynumber += 1
- i = 1
- end
- if i = 1: jump 'npcsavebsanityloop'
- barraynumber += 1
-
- ! {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]
-
- 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_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_bust[$npclastsaved] = npc_bust[$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_perv[$npclastsaved] = npc_perv[$npctemp]
- npc_outfit[$npclastsaved] = npc_outfit[$npctemp]
- npc_finance[$npclastsaved] = npc_finance[$npctemp]
- $npc_occupation[$npclastsaved] = $npc_occupation[$npctemp]
- npc_intel[$npclastsaved] = npc_intel[$npctemp]
- npc_humor[$npclastsaved] = npc_humor[$npctemp]
- npc_fav_pos[$npclastsaved] = npc_fav_pos[$npctemp]
- npc_tit_pref[$npclastsaved] = npc_tit_pref[$npctemp]
- npc_style[$npclastsaved] = npc_style[$npctemp]
- npc_addit[$npclastsaved] = npc_addit[$npctemp]
- npc_doors[$npclastsaved] = npc_doors[$npctemp]
- npc_goal[$npclastsaved] = npc_goal[$npctemp]
- npc_fidelity[$npclastsaved] = npc_fidelity[$npctemp]
- npc_lover_days[$npclastsaved] = 0
- npc_lover_keys[$npclastsaved] = 0
- npc_residence[$npclastsaved] = npc_residence[$npctemp]
- ! {This checks the miscellanious arrays for the Entry and changes it to the new Array B.}
- :npctempmloop
- npctemp2 = arrpos('$cumarrnam', $npctemp)
- if npctemp2 >= 0: $cumarrnam[npctemp2] = $npclastsaved & jump 'npctempmloop'
- npctemp2 = arrpos('$sparrnam', $npctemp)
- if npctemp2 >= 0: $sparrnam[npctemp2] = $npclastsaved & jump 'npctempmloop'
- npctemp2 = arrpos('$cumfthname', $npctemp)
- if npctemp2 >= 0: $cumfthname[npctemp2] = $npclastsaved & jump 'npctempmloop'
- npctemp2 = arrpos('$cumfthnames', $npctemp)
- if npctemp2 >= 0: $cumfthnames[npctemp2] = $npclastsaved & jump 'npctempmloop'
- npctemp2 = arrpos('$wombpotfath', $npctemp)
- if npctemp2 >= 0: $wombpotfath[npctemp2] = $npclastsaved & jump 'npctempmloop'
- npctemp2 = arrpos('$cumfathlotto', $npctemp)
- if npctemp2 >= 0: $cumfathlotto[npctemp2] = $npclastsaved & jump 'npctempmloop'
- npctemp2 = arrpos('$ChildFath', $npctemp)
- if npctemp2 >= 0: $ChildFath[npctemp2] = $npclastsaved & jump 'npctempmloop'
- npctemp2 = arrpos('$ChildThFath', $npctemp)
- if npctemp2 >= 0: $ChildThFath[npctemp2] = $npclastsaved & jump 'npctempmloop'
- ! {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 = mid($npclastsaved, 2)
- killvar 'npctemp2'
- killvar '$npctemp2'
- killvar '$npctemp'
- --- npcpreservec ---------------------------------
|
