1
0

npcpreservec.qsrc 6.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135
  1. # npcpreservec
  2. !! {It expects an Args containing a C array index}
  3. !! {This initializes the array and acts as a gate to deny bad calls.}
  4. $npctemp = $ARGS[0]
  5. if mid($npctemp,1,1) = 'C':
  6. :npcsavebsanityloop
  7. i = 0
  8. $npclastsaved = 'B' + '<<barraynumber>>'
  9. $npctemparrb = 'B' + '<<(barraynumber)-(1)>>'
  10. if $npc_PersType[$npctemparrb] = '' and barraynumber > 0:
  11. barraynumber -= 1
  12. i = 1
  13. elseif $npc_PersType[$npclastsaved] = '':
  14. i = 0
  15. else
  16. barraynumber += 1
  17. i = 1
  18. end
  19. if i = 1: jump 'npcsavebsanityloop'
  20. barraynumber += 1
  21. ! {This copies the array from Array C to Array B}
  22. $npc_firstname[$npclastsaved] = $npc_firstname[$npctemp]
  23. $npc_nickname[$npclastsaved] = $npc_nickname[$npctemp]
  24. $npc_lastname[$npclastsaved] = $npc_lastname[$npctemp]
  25. $npc_usedname[$npclastsaved] = $npc_usedname[$npctemp]
  26. $npc_notes[$npclastsaved] = $npc_notes[$npctemp]
  27. npc_dob[$npclastsaved] = npc_dob[$npctemp]
  28. npc_vital[$npclastsaved] = npc_vital[$npctemp]
  29. npc_stren[$npclastsaved] = npc_stren[$npctemp]
  30. npc_intel[$npclastsaved] = npc_intel[$npctemp]
  31. npc_agil[$npclastsaved] = npc_agil[$npctemp]
  32. npc_sprt[$npclastsaved] = npc_sprt[$npctemp]
  33. npc_magik[$npclastsaved] = npc_magik[$npctemp]
  34. npc_drunk[$npclastsaved] = npc_drunk[$npctemp]
  35. npc_pantys[$npclastsaved] = npc_pantys[$npctemp]
  36. npc_cyc[$npclastsaved] = npc_cyc[$npctemp]
  37. npc_fert[$npclastsaved] = npc_fert[$npctemp]
  38. $npc_firstpart[$npclastsaved] = $npc_firstpart[$npctemp]
  39. $npc_lastpart[$npclastsaved] = $npc_lastpart[$npctemp]
  40. $npc_kidpater[$npclastsaved] = $npc_kidpater[$npctemp]
  41. npc_gender[$npclastsaved] = npc_gender[$npctemp]
  42. $npc_thdick[$npclastsaved] = $npc_thdick[$npctemp]
  43. npc_dick[$npclastsaved] = npc_dick[$npctemp]
  44. npc_sexskill[$npclastsaved] = npc_sexskill[$npctemp]
  45. npc_spermpot[$npclastsaved] = npc_spermpot[$npctemp]
  46. npc_vag[$npclastsaved] = npc_vag[$npctemp]
  47. npc_ass[$npclastsaved] = npc_ass[$npctemp]
  48. npc_hymen[$npclastsaved] = npc_hymen[$npctemp]
  49. npc_horny[$npclastsaved] = npc_horny[$npctemp]
  50. npc_Pavrep[$npclastsaved] = npc_Pavrep[$npctemp]
  51. npc_Godrep[$npclastsaved] = npc_Godrep[$npctemp]
  52. npc_apprnc[$npclastsaved] = npc_apprnc[$npctemp]
  53. npc_lipbalm[$npclastsaved] = npc_lipbalm[$npctemp]
  54. npc_makeup[$npclastsaved] = npc_makeup[$npctemp]
  55. npc_sweat[$npclastsaved] = npc_sweat[$npctemp]
  56. npc_dye[$npclastsaved] = npc_dye[$npctemp]
  57. npc_hairbsh[$npclastsaved] = npc_hairbsh[$npctemp]
  58. npc_skin[$npclastsaved] = npc_skin[$npctemp]
  59. npc_bodyhair[$npclastsaved] = npc_bodyhair[$npctemp]
  60. npc_breath[$npclastsaved] = npc_breath[$npctemp]
  61. npc_hipcurv[$npclastsaved] = npc_hipcurv[$npctemp]
  62. npc_hgt[$npclastsaved] = npc_hgt[$npctemp]
  63. npc_bust[$npclastsaved] = npc_bust[$npctemp]
  64. npc_nips[$npclastsaved] = npc_nips[$npctemp]
  65. npc_fat[$npclastsaved] = npc_fat[$npctemp]
  66. npc_haircol[$npclastsaved] = npc_haircol[$npctemp]
  67. npc_tan[$npclastsaved] = npc_tan[$npctemp]
  68. npc_lip[$npclastsaved] = npc_lip[$npctemp]
  69. npc_lashes[$npclastsaved] = npc_lashes[$npctemp]
  70. npc_eyesize[$npclastsaved] = npc_eyesize[$npctemp]
  71. npc_eyecol[$npclastsaved] = npc_eyecol[$npctemp]
  72. npc_dom[$npclastsaved] = npc_dom[$npctemp]
  73. npc_sub[$npclastsaved] = npc_sub[$npctemp]
  74. npc_QW[$npclastsaved] = npc_QW[$npctemp]
  75. npc_rel[$npclastsaved] = npc_rel[$npctemp]
  76. npc_love[$npclastsaved] = npc_love[$npctemp]
  77. npc_job[$npclastsaved] = npc_job[$npctemp]
  78. npc_cloc[$npclastsaved] = npc_cloc[$npctemp]
  79. $npc_dad[$npclastsaved] = $npc_dad[$npctemp]
  80. $npc_mom[$npclastsaved] = $npc_mom[$npctemp]
  81. $npc_pic[$npclastsaved] = $npc_pic[$npctemp]
  82. npc_Chem[$npclastsaved] = npc_Chem[$npctemp]
  83. npc_Clothpref[$npclastsaved] = npc_Clothpref[$npctemp]
  84. $npc_PersType[$npclastsaved] = $npc_PersType[$npctemp]
  85. $npc_dna[$npclastsaved] = $npc_dna[$npctemp]
  86. ! {This checks the miscellanious arrays for the Entry and changes it to the new Array B.}
  87. :npctempmloop
  88. npctemp2 = arrpos('$cumarrnam', $npctemp)
  89. if npctemp2 >= 0: $cumarrnam[npctemp2] = $npclastsaved & jump 'npctempmloop'
  90. npctemp2 = arrpos('$sparrnam', $npctemp)
  91. if npctemp2 >= 0: $sparrnam[npctemp2] = $npclastsaved & jump 'npctempmloop'
  92. npctemp2 = arrpos('$cumfthname', $npctemp)
  93. if npctemp2 >= 0: $cumfthname[npctemp2] = $npclastsaved & jump 'npctempmloop'
  94. npctemp2 = arrpos('$cumfthnames', $npctemp)
  95. if npctemp2 >= 0: $cumfthnames[npctemp2] = $npclastsaved & jump 'npctempmloop'
  96. npctemp2 = arrpos('$wombpotfath', $npctemp)
  97. if npctemp2 >= 0: $wombpotfath[npctemp2] = $npclastsaved & jump 'npctempmloop'
  98. npctemp2 = arrpos('$cumfathlotto', $npctemp)
  99. if npctemp2 >= 0: $cumfathlotto[npctemp2] = $npclastsaved & jump 'npctempmloop'
  100. npctemp2 = arrpos('$ChildFath', $npctemp)
  101. if npctemp2 >= 0: $ChildFath[npctemp2] = $npclastsaved & jump 'npctempmloop'
  102. npctemp2 = arrpos('$ChildThFath', $npctemp)
  103. if npctemp2 >= 0: $ChildThFath[npctemp2] = $npclastsaved & jump 'npctempmloop'
  104. ! {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.}
  105. if $pcs_firstpart = $npctemp: $pcs_firstpart = $npclastsaved
  106. if $pcs_lastpart = $npctemp: $pcs_lastpart = $npclastsaved
  107. !! :npctempaloop
  108. !! $npctemp2 = arrpos('$npc_firstpart', $npctemp)
  109. !! if $npc_firstpart[$npctemp2] = $npctemp: $npc_firstpart[$npctemp2] = $npclastsaved & jump 'npctempaloop'
  110. !! $npctemp2 = arrpos('$npc_lastpart', $npctemp)
  111. !! if $npc_lastpart[$npctemp2] = $npctemp: $npc_lastpart[$npctemp2] = $npclastsaved & jump 'npctempaloop'
  112. !! $npctemp2 = arrpos('$npc_kidpater', $npctemp)
  113. !! if $npc_kidpater[$npctemp2] = $npctemp: $npc_kidpater[$npctemp2] = $npclastsaved & jump 'npctempaloop'
  114. !! $npctemp2 = arrpos('$npc_dad', $npctemp)
  115. !! if $npc_dad[$npctemp2] = $npctemp: $npc_dad[$npctemp2] = $npclastsaved & jump 'npctempaloop'
  116. !! $npctemp2 = arrpos('$npc_mom', $npctemp)
  117. !! if $npc_mom[$npctemp2] = $npctemp: $npc_mom[$npctemp2] = $npclastsaved & jump 'npctempaloop'
  118. ! {This clears the Entry in Array C}
  119. gs 'npccleanc', $npctemp
  120. end
  121. !! Preserves npclastsavedn. Giving the last numerical B array saved.
  122. npclastsavedn = mid($npclastsaved, 2)
  123. killvar 'npctemp2'
  124. killvar '$npctemp2'
  125. killvar '$npctemp'
  126. --- npcpreservec ---------------------------------