npcpreservec 7.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163
  1. # npcpreservec
  2. !! {It expects a 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_vit[$npclastsaved] = npc_vit[$npctemp]
  29. npc_str[$npclastsaved] = npc_str[$npctemp]
  30. npc_int[$npclastsaved] = npc_int[$npctemp]
  31. npc_agil[$npclastsaved] = npc_agil[$npctemp]
  32. npc_spirit[$npclastsaved] = npc_spirit[$npctemp]
  33. npc_mag[$npclastsaved] = npc_mag[$npctemp]
  34. npc_drunk[$npclastsaved] = npc_drunk[$npctemp]
  35. npc_undies[$npclastsaved] = npc_undies[$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_app[$npclastsaved] = npc_app[$npctemp]
  53. npc_lipstick[$npclastsaved] = npc_lipstick[$npctemp]
  54. npc_makeup[$npclastsaved] = npc_makeup[$npctemp]
  55. npc_sweat[$npclastsaved] = npc_sweat[$npctemp]
  56. npc_dye[$npclastsaved] = npc_dye[$npctemp]
  57. npc_hair[$npclastsaved] = npc_hair[$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_pubes[$npclastsaved] = npc_pubes[$npctemp]
  67. npc_hairlng[$npclastsaved] = npc_hairlng[$npctemp]
  68. npc_haircol[$npclastsaved] = npc_haircol[$npctemp]
  69. npc_haircurl[$npclastsaved] = npc_haircurl[$npctemp]
  70. npc_tan[$npclastsaved] = npc_tan[$npctemp]
  71. npc_lip[$npclastsaved] = npc_lip[$npctemp]
  72. npc_lashes[$npclastsaved] = npc_lashes[$npctemp]
  73. npc_eyesize[$npclastsaved] = npc_eyesize[$npctemp]
  74. npc_eyecol[$npclastsaved] = npc_eyecol[$npctemp]
  75. npc_dom[$npclastsaved] = npc_dom[$npctemp]
  76. npc_sub[$npclastsaved] = npc_sub[$npctemp]
  77. npc_glasses[$npclastsaved] = npc_glasses[$npctemp]
  78. npc_grades[$npclastsaved] = npc_grades[$npctemp]
  79. npc_run[$npclastsaved] = npc_run[$npctemp]
  80. npc_vball[$npclastsaved] = npc_vball[$npctemp]
  81. npc_nerd[$npclastsaved] = npc_nerd[$npctemp]
  82. npc_shoot[$npclastsaved] = npc_shoot[$npctemp]
  83. npc_sew[$npclastsaved] = npc_sew[$npctemp]
  84. npc_serve[$npclastsaved] = npc_serve[$npctemp]
  85. npc_chess[$npclastsaved] = npc_chess[$npctemp]
  86. npc_dnc[$npclastsaved] = npc_dnc[$npctemp]
  87. npc_erodnc[$npclastsaved] = npc_erodnc[$npctemp]
  88. npc_jab[$npclastsaved] = npc_jab[$npctemp]
  89. npc_punch[$npclastsaved] = npc_punch[$npctemp]
  90. npc_kick[$npclastsaved] = npc_kick[$npctemp]
  91. npc_def[$npclastsaved] = npc_def[$npctemp]
  92. npc_sing[$npclastsaved] = npc_sing[$npctemp]
  93. npc_teach[$npclastsaved] = npc_teach[$npctemp]
  94. npc_Qstlvl[$npclastsaved] = npc_Qstlvl[$npctemp]
  95. npc_rel[$npclastsaved] = npc_rel[$npctemp]
  96. npc_love[$npclastsaved] = npc_love[$npctemp]
  97. npc_job[$npclastsaved] = npc_job[$npctemp]
  98. npc_cloc[$npclastsaved] = npc_cloc[$npctemp]
  99. $npc_dad[$npclastsaved] = $npc_dad[$npctemp]
  100. $npc_mom[$npclastsaved] = $npc_mom[$npctemp]
  101. $npc_pic[$npclastsaved] = $npc_pic[$npctemp]
  102. npc_herpes[$npclastsaved] = npc_herpes[$npctemp]
  103. npc_syph[$npclastsaved] = npc_syph[$npctemp]
  104. npc_gon[$npclastsaved] = npc_gon[$npctemp]
  105. npc_chlam[$npclastsaved] = npc_chlam[$npctemp]
  106. npc_Hiv[$npclastsaved] = npc_Hiv[$npctemp]
  107. npc_genwart[$npclastsaved] = npc_genwart[$npctemp]
  108. npc_Thrush[$npclastsaved] = npc_Thrush[$npctemp]
  109. npc_Malen[$npclastsaved] = npc_Malen[$npctemp]
  110. npc_Chem[$npclastsaved] = npc_Chem[$npctemp]
  111. npc_Clothpref[$npclastsaved] = npc_Clothpref[$npctemp]
  112. $npc_PersType[$npclastsaved] = $npc_PersType[$npctemp]
  113. $npc_dna[$npclastsaved] = $npc_dna[$npctemp]
  114. ! {This checks the miscellanious arrays for the Entry and changes it to the new Array B.}
  115. :npctempmloop
  116. npctemp2 = arrpos('$cumarrnam', $npctemp)
  117. if npctemp2 >= 0: $cumarrnam[npctemp2] = $npclastsaved & jump 'npctempmloop'
  118. npctemp2 = arrpos('$sparrnam', $npctemp)
  119. if npctemp2 >= 0: $sparrnam[npctemp2] = $npclastsaved & jump 'npctempmloop'
  120. npctemp2 = arrpos('$cumfthname', $npctemp)
  121. if npctemp2 >= 0: $cumfthname[npctemp2] = $npclastsaved & jump 'npctempmloop'
  122. npctemp2 = arrpos('$cumfthnames', $npctemp)
  123. if npctemp2 >= 0: $cumfthnames[npctemp2] = $npclastsaved & jump 'npctempmloop'
  124. npctemp2 = arrpos('$wombpotfath', $npctemp)
  125. if npctemp2 >= 0: $wombpotfath[npctemp2] = $npclastsaved & jump 'npctempmloop'
  126. npctemp2 = arrpos('$cumfathlotto', $npctemp)
  127. if npctemp2 >= 0: $cumfathlotto[npctemp2] = $npclastsaved & jump 'npctempmloop'
  128. npctemp2 = arrpos('$ChildFath', $npctemp)
  129. if npctemp2 >= 0: $ChildFath[npctemp2] = $npclastsaved & jump 'npctempmloop'
  130. npctemp2 = arrpos('$ChildThFath', $npctemp)
  131. if npctemp2 >= 0: $ChildThFath[npctemp2] = $npclastsaved & jump 'npctempmloop'
  132. ! {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.}
  133. if $pcs_firstpart = $npctemp: $pcs_firstpart = $npclastsaved
  134. if $pcs_lastpart = $npctemp: $pcs_lastpart = $npclastsaved
  135. !! :npctempaloop
  136. !! $npctemp2 = arrpos('$npc_firstpart', $npctemp)
  137. !! if $npc_firstpart[$npctemp2] = $npctemp: $npc_firstpart[$npctemp2] = $npclastsaved & jump 'npctempaloop'
  138. !! $npctemp2 = arrpos('$npc_lastpart', $npctemp)
  139. !! if $npc_lastpart[$npctemp2] = $npctemp: $npc_lastpart[$npctemp2] = $npclastsaved & jump 'npctempaloop'
  140. !! $npctemp2 = arrpos('$npc_kidpater', $npctemp)
  141. !! if $npc_kidpater[$npctemp2] = $npctemp: $npc_kidpater[$npctemp2] = $npclastsaved & jump 'npctempaloop'
  142. !! $npctemp2 = arrpos('$npc_dad', $npctemp)
  143. !! if $npc_dad[$npctemp2] = $npctemp: $npc_dad[$npctemp2] = $npclastsaved & jump 'npctempaloop'
  144. !! $npctemp2 = arrpos('$npc_mom', $npctemp)
  145. !! if $npc_mom[$npctemp2] = $npctemp: $npc_mom[$npctemp2] = $npclastsaved & jump 'npctempaloop'
  146. ! {This clears the Entry in Array C}
  147. gs 'npccleanc', $npctemp
  148. end
  149. !! Preserves npclastsavedn. Giving the last numerical B array saved.
  150. npclastsavedn = mid($npclastsaved, 2)
  151. killvar 'npctemp2'
  152. killvar '$npctemp2'
  153. killvar '$npctemp'
  154. --- npcpreservec ---------------------------------