lover 2.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124
  1. # lover
  2. if $ARGS[0] = 'add':
  3. i = arrsize('pcs_lovers')
  4. $lover[i] = $boy
  5. $loverdesc[i] = $boydesc
  6. loverbodyrand[i] = boybodyrand
  7. $loverbody[i] = $boybody
  8. loverbodrand[i] = boybodrand
  9. $loverbod[i] = $boybod
  10. loverfacerand[i] = boyfacerand
  11. $loverface[i] = $boyface
  12. loverdick[i] = dick
  13. $loverdick_girth[i] = $dick_girth
  14. loversilaVag[i] = silaVag
  15. loverfinance[i] = finance
  16. vneshlover[i] = vneshBoy
  17. $loverClo[i] = $boyClo
  18. figurlover[i] = figurBoy
  19. titlover[i] = titBoy
  20. hairlover[i] = hairBoy
  21. haraklover[i] = harakBoy
  22. loverday[i] = daystart
  23. loverrelation[i] = 3
  24. loverdays[i] = 0
  25. boyonce[i] = 0
  26. loverizvrat[i] = izvrat
  27. giftDay[i] = 0
  28. giftNum[i] = 0
  29. loverlove[i] = 0
  30. loverscompliance[i] = 0
  31. lover_picture[i] = picrand
  32. meethour[i] = 0
  33. svidanie[i] = 0
  34. meetday[i] = 0
  35. !!new preferences
  36. clotTypePref[i] = clotTypePrefTmp
  37. clotQualPref[i] = clotQualPrefTmp
  38. clotTopPref[i] = clotTopPrefTmp
  39. bottShorPref[i] = bottShorPrefTmp
  40. clotThinPref[i] = clotThinPrefTmp
  41. bimbPref[i] = bimbPrefTmp
  42. pierPref[i] = pierPrefTmp
  43. tattPref[i] = tattPrefTmp
  44. lipsPref[i] = lipsPrefTmp
  45. bodyPref[i] = bodyPrefTmp
  46. makePref[i] = makePrefTmp
  47. IQPref[i] = IQPrefTmp
  48. loverGender[i] = loverGenderTmp
  49. !! making sure lover has pronouns
  50. gs 'pronouns', loverGender[i], 0
  51. $loverXe[i] = $xe[0]
  52. $loverXec[i] = $xec[0]
  53. $loverXem[i] = $xem[0]
  54. $loverXemc[i] = $xemc[0]
  55. $loverXyr[i] = $xyr[0]
  56. $loverXyrc[i] = $xyrc[0]
  57. $loverXyrs[i] = $xyrs[0]
  58. $loverXyrsc[i] = $xyrsc[0]
  59. $loverXemself[i] = $xemself[0]
  60. $loverXemselfc[i] = $xemselfc[0]
  61. pcs_lovers[i] = 1
  62. pcs_lover +=1
  63. end
  64. if $ARGS[0] = 'remove':
  65. i = ARGS[1]
  66. killvar '$lover', i
  67. killvar '$loverdesc', i
  68. killvar 'loverbodyrand', i
  69. killvar '$loverbody', i
  70. killvar 'loverbodrand', i
  71. killvar '$loverbod', i
  72. killvar 'loverfacerand', i
  73. killvar '$loverface', i
  74. killvar 'loverdick', i
  75. killvar '$loverdick_girth', i
  76. killvar 'loversilaVag', i
  77. killvar 'loverfinance', i
  78. killvar 'vneshlover', i
  79. killvar '$loverClo', i
  80. killvar 'figurlover', i
  81. killvar 'titlover', i
  82. killvar 'hairlover', i
  83. killvar 'haraklover', i
  84. killvar 'loverday', i
  85. killvar 'loverrelation', i
  86. killvar 'loverdays', i
  87. killvar 'boyonce', i
  88. killvar 'loverizvrat', i
  89. killvar 'giftDay', i
  90. killvar 'giftNum', i
  91. killvar 'loverlove', i
  92. killvar 'loverscompliance', i
  93. killvar 'lover_picture', i
  94. killvar 'meethour', i
  95. killvar 'svidanie', i
  96. killvar 'meetday', i
  97. !!new preferences
  98. killvar 'clotTypePref', i
  99. killvar 'clotQualPref', i
  100. killvar 'clotTopPref', i
  101. killvar 'bottShorPref', i
  102. killvar 'clotThinPref', i
  103. killvar 'bimbPref', i
  104. killvar 'pierPref', i
  105. killvar 'tattPref', i
  106. killvar 'lipsPref', i
  107. killvar 'bodyPref', i
  108. killvar 'makePref', i
  109. killvar 'IQPref', i
  110. killvar 'pcs_lovers', i
  111. pcs_lover -=1
  112. end
  113. --- lover ---------------------------------