meet 86 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450
  1. # meet
  2. if $ARGS[0] = 'start':
  3. minut += 15
  4. loverdays[lover_number] += 1
  5. svidanie[lover_number] = 0
  6. giftNum = giftNum[lover_number]
  7. if night_mode = 1:
  8. fcolor = rgb(255, 255, 255)
  9. bcolor = rgb(0, 0, 0)
  10. lcolor = rgb(106, 90, 205)
  11. else
  12. fcolor = rgb(0, 0, 0)
  13. bcolor = rgb(255, 255, 255)
  14. lcolor = rgb(106, 90, 205)
  15. end
  16. gs 'boyStat', $lover[lover_number]
  17. !!$boybody = 1 - tall, 2 - average, 3 - short
  18. $boybody = $loverbody[lover_number]
  19. !!$boybod = 1 - thin, 2 - athletic, 3 - chunky, 4 - fat
  20. $boybod = $loverbod[lover_number]
  21. $boyface = $loverface[lover_number]
  22. !! sexual force of 0 prior_to 2
  23. silaVag = loversilaVag[lover_number]
  24. !!security, is responsible for the money and requirements 0 beggar, 1 middle_peasant 2 rich
  25. finance = loverfinance[lover_number]
  26. !!check in appearance, a parameter vnesh
  27. vneshBoy = vneshlover[lover_number]
  28. $boyClo = $loverClo[lover_number]
  29. !!0 - 0 to 2, 1 - 3 to 5, 2, 5 to 6
  30. !! These variables will be compared to the player value 'salocatnow'.
  31. figurBoy = figurelover[lover_number]
  32. if figurBoy = 0:
  33. figurePrefMin = 0
  34. figurePrefMax = 2
  35. elseif figurBoy = 1:
  36. figurePrefMin = 3
  37. figurePrefMax = 4
  38. elseif figurBoy = 2:
  39. figurePrefMin = 5
  40. figurePrefMax = 77
  41. else
  42. figurePrefMin = 0
  43. figurePrefMax = 99
  44. end
  45. !!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4
  46. titBoy = titlover[lover_number]
  47. if titBoy = 0:
  48. titMin = 0
  49. titMax = 3
  50. elseif titBoy = 1:
  51. titMin = 3
  52. titMax = 4
  53. elseif titBoy = 2:
  54. titMin = 5
  55. titMax = 999
  56. end
  57. !!favorite hair color 0 - black, 1 - brown, 2 - redhead, 3 - blonde
  58. hairBoy = hairlover[lover_number]
  59. !!character 0 - soft, 1 -norm 2 - aggressor
  60. harakBoy = haraklover[lover_number]
  61. !!perversity
  62. izvrat = loverizvrat[lover_number]
  63. husb_birth_year = year - boyage
  64. husbAge = boyage
  65. !!new preferences
  66. !!renaming perversity constant
  67. pervConstant = izvrat
  68. !!This is for clothing type preference
  69. !!0 - none, 1 - cheap, 2 - average, 3 - formal, 4 - fetish.
  70. clotTypePref = clotTypePref[lover_number]
  71. !!This is for the quality of clothing
  72. !! 0 - no preference, 1 - 1 to 4 units cheap to average (Locked if formal chosen), 2 - 5 to 7 units expensive to ballroom quality (Locked if fetish is chosen)
  73. clotQualPref = clotQualPref[lover_number]
  74. !!Need to add modifiers based on breast size, where larger breasts end up forcing the player to show more cleavage than those with smaller breasts.
  75. !! 0 - no preference, 1 - 1 to 2 or neckline to moderate, 2 - 3 to 4 or heavy to severe, 3 - 5 to 7 or buldging to outpouring
  76. !! The breast size must be adjusted either when the action is being calculeted or we can base it on their ideal breast size :titBoy + 0/3 depending on the players breast size
  77. !! How much they want to see your chest USE THIS FOR NOW
  78. !! 0 - no preference, 1 - 1 neckline , 2 - 2 or moderate, 3 - 3 to 4 or heavy to severe
  79. !! It doesn''t matter if your poor or rich, everyone loves tits.
  80. clotTopPref = clotTopPref[lover_number]
  81. !!This part helps calculate the constant to add to the
  82. !!This is to set the max/min of the clotTop variables. This is so you dont need to go through the code changing individual numbers.
  83. if clotTopPref = 1:
  84. clotTopMin = 1
  85. clotTopMax = 4
  86. elseif clotTopPref = 2:
  87. clotTopMin = 3
  88. clotTopMax = 5
  89. elseif clotTopPref = 3:
  90. clotTopMin = 5
  91. clotTopMax = 7
  92. else
  93. clotTopMin = 0
  94. clotTopMax = 999
  95. end
  96. !!THIS IS THE EQUATION FOR THE TIT ADDITION
  97. if tits < 2:
  98. titConstant = 0
  99. elseif tits >= 2 and tits < 4:
  100. titConstant = 1
  101. elseif tits >= 4 and tits < 6:
  102. titConstant = 2
  103. elseif tits >= 6:
  104. titConstant = 3
  105. else
  106. titConstant = 0
  107. end
  108. !! This is for pants and skirt shortness and will be grouped together as such.
  109. !! 0 - no preference, 1 - 1 to 2 units or ankle to calf length, 2 - 3 to 5 units or knee to miniskirt, 3 - 5 units to 6 or slut to hoe.
  110. bottShorPref = bottShorPref[lover_number]
  111. !!This is to set the max/min of the bottShor variables. This is so you dont need to go through the code changing individual numbers.
  112. if bottShorPref = 1:
  113. bottShorMin = 0
  114. bottShorMax = 2
  115. elseif bottShorPref = 2:
  116. bottShorMin = 3
  117. bottShorMax = 5
  118. elseif bottShorPref = 3:
  119. bottShorMin = 5
  120. bottShorMax = 6
  121. else
  122. bottShorMin = 0
  123. bottShorMax = 999
  124. end
  125. !! This is for clothes thinness.
  126. !! 0 - no preference, 1 - 0 to 2 (Conservative), 2 - 3 to 4 (Moderate), 3 - 4 to 6 (really thin)
  127. !! I see the moderate to really thin overlapping. Its intentional.
  128. !!This is to set the max/min of the clotThinness variables. This is so you dont need to go through the code changing individual numbers.
  129. clotThinPref = clotThinPref[lover_number]
  130. if clotThinPref = 1:
  131. clotThinMin = 0
  132. clotThinMax = 2
  133. elseif clotThinPref = 2:
  134. clotThinMin = 3
  135. clotThinMax = 4
  136. elseif clotThinPref = 3:
  137. clotThinMin = 4
  138. clotThinMax = 6
  139. else
  140. pierPrefMin = 0
  141. clotThinMax = 999
  142. end
  143. !!This is to find out if they want you to wear bimbo clothing
  144. !! 0 - no preference, 1 - Prefers bimbo clothing.
  145. bimbPref = bimbPref[lover_number]
  146. !!This is to find out if they want you to wear piercings.
  147. !! 0 - no preference, 1 - 0 to 2 piercings, 2 - 3 to 5 piercings, 3 - 6 or more piercings.
  148. pierPref = pierPref[lover_number]
  149. !!This is to set the max min
  150. if pierPref = 1:
  151. pierPrefMin = 0
  152. pierPrefMax = 2
  153. elseif pierPref = 2:
  154. pierPrefMin = 3
  155. pierPrefMax = 5
  156. elseif pierPref = 3:
  157. pierPrefMin = 6
  158. pierPrefMax = 999
  159. else
  160. pierPrefMin = 0
  161. pierPrefMax = 999
  162. end
  163. !!This is to find out if they want you to have tattoos.
  164. !! 0 - no preference, 1 - 0 to 2 tattoos, 2 - 3 to 5 tattoos, 3 - 6 or more tattoos.
  165. tattPref = tattPref[lover_number]
  166. !!This is to set the max min for tattoos
  167. if tattPref = 1:
  168. tattPrefMin = 0
  169. tattPrefMax = 2
  170. elseif tattPref = 2:
  171. tattPrefMin = 3
  172. tattPrefMax = 5
  173. elseif tattPref = 3:
  174. tattPrefMin = 6
  175. tattPrefMax = 999
  176. else
  177. tattPrefMin = 0
  178. tattPrefMax = 999
  179. end
  180. !!This is to find out how big they want your lips.
  181. !! 0 - no preference, 1 - 2 to 3 units (average) , 2 - 4 units (THIC lips)
  182. lipsPref = lipsPref[lover_number]
  183. if lipsPref = 1:
  184. lipsPrefMin = 2
  185. lipsPrefMax = 3
  186. elseif lipsPref = 2:
  187. lipsPrefMin = 3
  188. lipsPrefMax = 99
  189. else
  190. lipsPrefMin = 0
  191. lipsPrefMax = 99
  192. end
  193. !!This is to find out how big they want YOU.
  194. !! 0 - no preference, 1 - 1 to 3 units (Skinny) , 2 - 3 to 6 units (Average), 3 - 6 + units (THIC)
  195. !! Notice how this one overlaps. I believe that it should because changing ones weight is very hard.
  196. bodyPref = bodyPref[lover_number]
  197. !!This is to find out how much makeup they want you to wear.
  198. !! 0 - no preference, 1 - 1 (light makeup) , 2 - 2 (moderate makeup), 3 - 3(heavy makeup)
  199. makePref = makePref[lover_number]
  200. !! This is to see if they like a ditz, average, or a smartypants
  201. !!0 - no preference, 1 - 1 to 30 intelligence, 2 - 30 to 85 intelligence, 3 - 85 + intelligence.
  202. IQPref = IQPref[lover_number]
  203. !!This is the new hair color preference
  204. !! 0 - black, 1 - brown, 2 - redhead, 3 - blonde, 4 - no preference,
  205. hairPref = hairBoy
  206. !!This keeps track in the change action what it plans to change
  207. $changeFind = ''
  208. !!This keeps track on how many
  209. !!How many days until the boyfriend starts to comment.
  210. clotDay = 3
  211. bodyDay = 7
  212. !!How many days until he wants you to change.
  213. pierDay = 7
  214. tattDay = 7
  215. lipsDay = 9
  216. titsDay = 12
  217. figureDay = 15
  218. if loverlove[lover_number] = 3:
  219. '<<$loverdesc[lover_number]>> has hired a wedding limousine and it''s outside waiting for you. This is it, you are getting married today.'
  220. act 'Sit in the limousine':
  221. cla
  222. 'You get into the limo, and it drives off. Soon you arrive at the wedding, <<$loverdesc[lover_number]>> is waiting for you as you walk down the aisle.'
  223. act 'Marry husband':
  224. cla
  225. minut += 60
  226. loverslove[lover_number] = 0
  227. gs 'boyfrend','remove',lover_number
  228. husband = 100
  229. husbanday = 0
  230. $husName = $lover[lover_number]
  231. $husHair = $loverface[lover_number]
  232. $husBody = $loverbod[lover_number]
  233. $husFat = $loverbod[lover_number]
  234. husDick = loverdick[lover_number]
  235. harakHusb = haraklover[lover_number]
  236. izvratH = loverizvrat[lover_number]
  237. silavagH = loversilaVag[lover_number]
  238. husbFin = loverfinance[lover_number]
  239. husbandMark = 1
  240. 'The wedding reception takes place at a cafe. There aren''t many guests since neither you nor the groom have that many friends or family members. There is a lot of congratulations, toasts, merrymaking and crying. By the evening, everybody is drunk and you and your husband stagger into a taxi, which takes you home.'
  241. act 'Wedding night':gt 'husbsex', 'room'
  242. end
  243. end
  244. exit
  245. elseif loverlove[lover_number] = 2:
  246. '<<$loverdesc[lover_number]>> looks very excited and suddenly pulls a ring out of a box.'
  247. '<<$loverdesc[lover_number]>> says "<<$pcs_nickname>>. I offer you my hand and heart. Would you marry me?"'
  248. act 'No (turn him down)':
  249. minut += 60
  250. gs 'boyfrend','remove',lover_number
  251. pregtalk = 0
  252. dynamic $go_home
  253. end
  254. act 'Yes':
  255. cla
  256. 'You agree and put the ring on your finger. <<$loverdesc[lover_number]>> rejoices and happily hugs and kisses you.'
  257. '<<$loverdesc[lover_number]>> says "Now you need to find a wedding dress."'
  258. act 'Go looking for the dress':
  259. cla
  260. minut += 60
  261. loverlove[lover_number] = 3
  262. 'You get into a taxi with your soon to be husband and go to the store to choose a dress. You choose an expensive and luxurious dress. <<$loverdesc[lover_number]>> pays for the purchase.'
  263. 'After a long day you feel tired and ask <<$loverdesc[lover_number]>> to drive you home, warning him that the next time you''ll meet you will get married.'
  264. dynamic $go_home
  265. end
  266. end
  267. exit
  268. end
  269. if pcs_makeup > 1 and ($clothingworntype = 'expensive' or $clothingworntype = 'formal') and curly > 0 and loverlove[lover_number] = 1 and haraklover[lover_number] = 0:
  270. '<<$loverdesc[lover_number]>> looks very excited. He decides that you are now ready to meet his mother.'
  271. act 'Meet the parents':gt 'love', 'mother'
  272. exit
  273. elseif pcs_makeup > 1 and ($clothingworntype = 'expensive' or $clothingworntype = 'formal') and curly > 0 and loverlove[lover_number] = 1 and haraklover[lover_number] = 1 and $pantyworntype ! 'none':
  274. '<<$loverdesc[lover_number]>> examins you and decides that you are ready to meet his friends.'
  275. act 'Meet his friends':gt 'love', 'frends'
  276. exit
  277. end
  278. !!I WILL START HERE!
  279. !!0 - none, 1 - cheap, 2 - average, 3 - formal, 4 - fetish.
  280. if clotTypePref = 0:
  281. $clotTypePref = ''
  282. elseif clotTypePref = 1:
  283. $clotTypePref = 'cheap'
  284. elseif clotTypePref = 2:
  285. $clotTypePref = 'average'
  286. elseif clotTypePref = 3:
  287. $clotTypePref = 'formal'
  288. elseif clotTypePref = 4:
  289. $clotTypePref = 'fetish'
  290. end
  291. !! 0 - no preference, 1 - 1 to 4 units cheap to average (Locked if formal chosen), 2 - 5 to 7 units expensive to ballroom quality (Locked if fetish is chosen)
  292. if clotQualPref = 0:
  293. $clotQualPref = 'any type of'
  294. elseif clotQualPref = 1:
  295. $clotQualPref = 'anything but expensive'
  296. elseif clotQualPref = 2:
  297. $clotQualPref = 'expensive'
  298. end
  299. !! 0 - no preference, 1 - 1 to 2 or neckline to moderate, 2 - 3 to 4 or heavy to severe, 3 - 5 to 7 or buldging to outpouring
  300. if clotTopPref = 0:
  301. $clotTopPref = 'any amount of'
  302. elseif clotTopPref = 1:
  303. $clotTopPref = 'a little bit of'
  304. elseif clotTopPref = 2:
  305. $clotTopPref = 'a lot of'
  306. elseif clotTopPref = 3:
  307. $clotTopPref = 'a huge amount of'
  308. end
  309. !! 0 - no preference, 1 - 1 to 2 units or ankle to calf length, 2 - 3 to 4 units or knee to miniskirt, 3 - 5 units to 6 or slut to hoe.
  310. if bottShorPref = 0:
  311. $bottShorPref= 'any length'
  312. elseif bottShorPref = 1:
  313. $bottShorPref= 'modest length'
  314. elseif bottShorPref = 2:
  315. $bottShorPref= 'slightly short length'
  316. elseif bottShorPref = 3:
  317. $bottShorPref= 'really short length'
  318. end
  319. !! 0 - no preference, 1 - 0 to 2 (Conservative), 2 - 3 to 4 (Moderate), 3 - 4 to 6 (really thin)
  320. if clotThinPref = 0:
  321. $clotThinPref= ''
  322. elseif clotThinPref = 1:
  323. $clotThinPref= 'thick'
  324. elseif clotThinPref = 2:
  325. $clotThinPref= 'a little thin'
  326. elseif clotThinPref = 3:
  327. $clotThinPref= 'really thin or even see through'
  328. end
  329. !! 0 - no preference, 1 - Prefers bimbo clothing.
  330. if bimbPref = 0:
  331. $bimboPref = ''
  332. else
  333. $bimboPref = 'a bimbo'
  334. end
  335. !! 0 - no preference, 1 - 0 to 2 piercings, 2 - 3 to 5 piercings, 3 - 6 or more piercings.
  336. if pierPref = 0:
  337. $pierPref = 'any amount'
  338. elseif pierPref = 1:
  339. $pierPref = 'a couple'
  340. elseif pierPref = 2:
  341. $pierPref = 'a good amount'
  342. elseif pierPref = 3:
  343. $pierPref = 'a lot'
  344. end
  345. !! 0 - no preference, 1 - 0 to 2 tattoos, 2 - 3 to 5 tattoos, 3 - 6 or more tattoos.
  346. if tattPref = 0:
  347. $tattPref = 'any amount'
  348. elseif tattPref = 1:
  349. $tattPref = 'a couple'
  350. elseif tattPref = 2:
  351. $tattPref = 'a good amount'
  352. elseif tattPref = 3:
  353. $tattPref = 'a lot'
  354. end
  355. !! 0 - no preference, 1 - 2 to 3 units (average) , 2 - 4 units (THIC lips)
  356. if lipsPref = 0:
  357. $lipsPref = 'any sized lips'
  358. elseif lipsPref = 1:
  359. $lipsPref = 'average sized lips'
  360. elseif lipsPref = 2:
  361. $lipsPref = 'thick lips'
  362. end
  363. !!This is the Players lip description, this allows flexibility when writing
  364. if pcs_lip = 0:
  365. $lipDesc = 'thin'
  366. elseif pcs_lip = 1:
  367. $lipDesc = 'soft'
  368. elseif pcs_lip = 2:
  369. $lipDesc = 'plump'
  370. elseif pcs_lip = 3:
  371. $lipDesc = 'juicy'
  372. elseif pcs_lip = 4:
  373. $lipDesc = 'thick'
  374. end
  375. !! 0 - no preference, 1 - 1 to 3 units (Skinny) , 2 - 3 to 6 units (Average), 3 - 6 + units (THIC)
  376. if bodyPref = 0:
  377. $bodyPref = 'any weight'
  378. elseif bodyPref = 1:
  379. $bodyPref = 'should be skinny'
  380. elseif bodyPref = 2:
  381. $bodyPref = ' should be not to skinny or fat'
  382. elseif bodyPref = 3:
  383. $bodyPref = 'should be thick and curvy'
  384. end
  385. !! 0 - no preference, 1 - 1 (light makeup) , 2 - 2 (moderate makeup), 3 - 3(heavy makeup)
  386. if makePref = 0:
  387. $makePref = 'any amount of makeup'
  388. elseif makePref = 1:
  389. $makePref = 'a sutle amount of makeup'
  390. elseif makePref = 2:
  391. $makePref = 'a good amount of makeup'
  392. elseif makePref = 3:
  393. $makePref = 'a heavy amount of makeup'
  394. end
  395. !!0 - no preference, 1 - 1 to 30 intelligence, 2 - 30 to 85 intelligence, 3 - 85 + intelligence.
  396. if IQPref = 0:
  397. $IQPref = 'nice'
  398. elseif IQPref = 1:
  399. $IQPref = 'ditzy'
  400. elseif IQPref = 2:
  401. $IQPref = 'with at least a little brain power'
  402. elseif IQPref = 3:
  403. $IQPref = 'genius'
  404. end
  405. !! 0 - black, 1 - brown, 2 - redhead, 3 - blonde, 4 - no preference,
  406. if hairPref = 0:
  407. $hairPref = 'black'
  408. elseif hairPref = 1:
  409. $hairPref = 'brown'
  410. elseif hairPref = 2:
  411. $hairPref = 'redhead'
  412. elseif hairPref = 3:
  413. $hairPref = 'blond'
  414. elseif hairPref = 4:
  415. $hairPref = 'any color'
  416. end
  417. !!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4
  418. if titBoy = 0:
  419. $titBoy = 'petite breasts'
  420. elseif titBoy = 1:
  421. $titBoy = 'good sized breasts'
  422. elseif titBoy = 2:
  423. $titBoy = 'huge breasts'
  424. end
  425. if pcs_hairbsh = 1 and curly > 0:
  426. loverrelation[lover_number] += 2 &
  427. $meetHair = 'Your hair looks very beautiful.'
  428. end
  429. if pcs_hairbsh = 1 and curly = 0:
  430. loverrelation[lover_number] += 1
  431. $meetHair = 'You have pretty hair today.'
  432. end
  433. if pcs_hairbsh = 0:
  434. loverrelation[lover_number] -= 1
  435. $meetHair = 'You look like you were in a hurry.'
  436. end
  437. !!This are generic things your boyfriend will call you based on how much he likes you.
  438. if loverrelation[lover_number] > 80:
  439. randchan = rand(0,2)
  440. if randchan = 0 and haraklover[lover_number] ! 0:
  441. $giveNick = 'angel'
  442. elseif randchan = 1:
  443. $giveNick = 'beautiful'
  444. elseif randchan = 2:
  445. $giveNick = 'love'
  446. end
  447. elseif loverrelation[lover_number] > 20:
  448. randchan = rand(0,1)
  449. if randchan = 0:
  450. $giveNick = 'babe'
  451. elseif randchan = 1:
  452. $giveNick = '<<$pcs_nickname>>'
  453. end
  454. else
  455. $giveNick = '<<$pcs_firstname>>'
  456. end
  457. !! This is the start of the usual talk
  458. !!character 0 - soft, 1 -norm 2 - aggressor
  459. if haraklover[lover_number] = 0:
  460. if loverrelation[lover_number] > 70:
  461. randchan = rand(0, 1)
  462. if randchan = 0:
  463. $greet = 'says with love in his eyes, "Hey <<$pcs_nickname>>."'
  464. elseif randchan = 1:
  465. $greet = 'says lovingly, "Hello love. I''m glad so see you."'
  466. else
  467. $greet = 'says quietly while looking into your eyes, "Hello love." '
  468. end
  469. elseif loverrelation[lover_number] > 20:
  470. randchan = rand(0, 1)
  471. if randchan = 0:
  472. $greet = 'says with a faint smile,"Hey <<$pcs_nickname>>."'
  473. elseif randchan = 1:
  474. $greet = 'says with a smile , "Hi <<$pcs_nickname>>."'
  475. end
  476. else
  477. $greet = 'says, "Hi <<$pcs_firstname>>."'
  478. end
  479. end
  480. if haraklover[lover_number] = 1:
  481. if loverrelation[lover_number] > 70:
  482. randchan = rand(0, 1)
  483. if randchan = 0:
  484. $greet = 'says, "Hey love. I am so happy to see you."'
  485. elseif randchan = 1:
  486. $greet = 'says intimately, "Hello my angel."'
  487. else
  488. $greet = 'says while admiring you, "Hello <<$pcs_nickname>> beautiful."'
  489. end
  490. elseif loverrelation[lover_number] > 20:
  491. randchan = rand(0, 1)
  492. if randchan = 0:
  493. $greet = 'says with a smile, "Hey <<$pcs_nickname>>, glad to see you."'
  494. elseif randchan = 1:
  495. $greet = 'says with a soft tone, "Hello beautiful."'
  496. end
  497. else
  498. $greet = 'says, "Hello <<$pcs_nickname>>."'
  499. end
  500. end
  501. if haraklover[lover_number] = 2:
  502. if loverrelation[lover_number] > 70:
  503. randchan = rand(0, 1)
  504. if randchan = 0:
  505. $greet = 'says with a loving voice, "Theres my sexy gal."'
  506. elseif randchan = 1:
  507. $greet = 'says with a toothful grin, "There is my goddess."'
  508. else
  509. $greet = 'says with a rather loud enduring voice, "Hey babe!"'
  510. end
  511. elseif loverrelation[lover_number] > 20:
  512. randchan = rand(0, 1)
  513. if randchan = 0:
  514. $greet = 'says with a grin, "Hey <<$pcs_nickname>>."'
  515. elseif randchan = 1:
  516. $greet = 'says with a chuckle, "Hey''ya <<$pcs_nickname>>."'
  517. end
  518. else
  519. $greet = 'says, "Hey <<$pcs_nickname>>."'
  520. end
  521. end
  522. !! QUEST VARIABLES!!! WOOOT ALMOST TIME!
  523. didPushAway = 0
  524. !!How beautiful you are
  525. if pcs_skin < 20:
  526. loverrelation[lover_number] -= 2 & $meetskin = 'looking at his feet'
  527. elseif pcs_skin < 40:
  528. loverrelation[lover_number] -= 1 & $meetskin = 'giving you a quick glance'
  529. elseif pcs_skin < 60:
  530. $meetskin = 'looking at you'
  531. elseif pcs_skin < 80:
  532. loverrelation[lover_number] += 1 & $meetskin = 'smiling at you'
  533. else
  534. loverrelation[lover_number] += 2 & $meetskin = 'smiling at you'
  535. end
  536. !! Your lip size
  537. if pcs_lip = 0:$meetlip = 'thin lips'
  538. if pcs_lip = 1:$meetlip = 'soft lips'
  539. if pcs_lip = 2:$meetlip = 'plump lips'
  540. if pcs_lip = 3:$meetlip = 'large, plump lips'
  541. if pcs_lip = 4:$meetlip = 'thick and huge lips'
  542. if loverfinance[lover_number] = 0:$clom = 'dressed in a tracksuit.'
  543. if loverfinance[lover_number] = 1:$clom = 'dressed in jeans and a sweater.'
  544. if loverfinance[lover_number] = 2:$clom = 'dressed in a respectable and expensive jacket.'
  545. !!Greeting start
  546. 'At the entrance <<$meetskin>> stands <<$loverdesc[lover_number]>>. He comes over to you and <<$greet>>'
  547. gs 'boy_likes', 'hairPref'
  548. gs 'boy_likes', 'makePref'
  549. if haraklover[lover_number] = 0:'<<$loverdesc[lover_number]>> looks like a timid and not very confident young man <<$clom>>'
  550. if haraklover[lover_number] = 1:'<<$loverdesc[lover_number]>> looks like a average young man <<$clom>>'
  551. if haraklover[lover_number] = 2:'<<$loverdesc[lover_number]>> looks like a cocky and brash young man <<$clom>>'
  552. !!This is to reset the like part later
  553. likeCount = 0
  554. like1 = 99
  555. like2 = 99
  556. like3 = 99
  557. !! This is the greeting kissy kissy part
  558. if haraklover[lover_number] >= 0:
  559. if loverrelation[lover_number] > -20:
  560. loverrelation[lover_number] += 0
  561. '<<$loverdesc[lover_number]>> gets close to you, and you can tell by his body movements he wants to kiss you.'
  562. act 'Kiss with tongue':
  563. *clr
  564. 'You take the initiative and when he opens his mouth you thrust your tongue into his mouth.'
  565. gs 'arousal', 'kiss', 5
  566. pcs_dom += 1
  567. pcs_mood += 10
  568. gs 'stat'
  569. if venera > 4:
  570. gs 'boyfrend','remove',lover_number
  571. '<<$loverdesc[lover_number]>> takes a closer look at you and says, "What is wrong with your lips? They are very sore. Is that genital herpes? I better go, I do not want to get infected. I''m sorry, goodbye."'
  572. pcs_mood -= 20
  573. dynamic $go_home
  574. exit
  575. elseif venera < 4 and cumloc[11] = 0 and (cumloc[6] = 0 and cumloc[7] = 0):
  576. if haraklover[lover_number] = 0:
  577. loverrelation[lover_number] += 2
  578. 'Normally this would have made him feel uncomfortable, but as you pull away he smiles and sighs contently.'
  579. elseif haraklover[lover_number] = 1:
  580. loverrelation[lover_number] += 1
  581. 'He goes with it a blink and in moments your tongues are intertwined.'
  582. elseif haraklover[lover_number] = 2:
  583. 'It seems as <<$loverdesc[lover_number]>> had the same idea, as he pushes his tongue into your mouth as much as you push into his.'
  584. loverrelation[lover_number] += 2
  585. else
  586. 'This should not fire off at all: TongueKiss'
  587. end
  588. elseif cumloc[11] = 1 or (cumloc[6] = 1 or cumloc[7] = 1) and pervConstant = 1:
  589. if cumloc[11] = 1:
  590. if haraklover[lover_number] = 0:
  591. loverrelation[lover_number] += 2
  592. pcs_horny += 5
  593. 'He can see sperm on your face, but underneath his shy demener you know that it only turns him on.'
  594. elseif haraklover[lover_number] = 1:
  595. loverrelation[lover_number] += 2
  596. pcs_horny += 5
  597. 'He can see sperm on your face, but you know that it only turns him on more.'
  598. elseif haraklover[lover_number] = 2:
  599. 'He can see sperm on your face, but by the bulge in his pants you know it only turns him on.'
  600. end
  601. elseif (cumloc[6] = 1 or cumloc[7] = 1):
  602. if haraklover[lover_number] = 0:
  603. loverrelation[lover_number] += 2
  604. pcs_horny += 5
  605. 'He can see sperm on your ass, but underneath his shy demener you know that it only turns him on.'
  606. elseif haraklover[lover_number] = 1:
  607. loverrelation[lover_number] += 2
  608. pcs_horny += 5
  609. 'He can see sperm on your ass, but you know that it only turns him on more.'
  610. elseif haraklover[lover_number] = 2:
  611. loverrelation[lover_number] += 3
  612. pcs_horny += 5
  613. 'He can see sperm on your ass, but by the bulge in his pants you know it only turns him on.'
  614. end
  615. end
  616. elseif cumloc[11] = 1 or (cumloc[6] = 1 or cumloc[7] = 1) and pervConstant ! 1:
  617. if cumloc[11] = 1:
  618. gs 'boyfrend','remove',lover_number
  619. 'He notices the sperm on your face, "H-Hey- <<$pcs_firstname>>! What the...?! You dirty whore!", he then pushes you out of his face. "We are through, I don''t want to see your face again!'
  620. pcs_mood -= 20
  621. dynamic $go_home
  622. exit
  623. elseif (cumloc[6] = 1 or cumloc[7] = 1):
  624. loverrelation[lover_number] += 2
  625. 'He notices the sperm on your ass, "<<$pcs_firstname>>! What the...?! You dirty whore!", he then pushes you away. "We are through, I don''t want to see your face again!'
  626. pcs_mood -= 20
  627. dynamic $go_home
  628. exit
  629. end
  630. end
  631. cla
  632. act 'Continue':
  633. xgt 'meet', 'likes'
  634. end
  635. exit
  636. end
  637. act 'Kiss with lips':
  638. *clr
  639. 'You press your <<$meetlip>> softly against his, and for a split second time seems to stop.'
  640. pcs_mood += 10
  641. if cumloc[11] = 0 and (cumloc[6] = 0 and cumloc[7] = 0):
  642. if haraklover[lover_number] = 0:
  643. loverrelation[lover_number] += 2
  644. 'He wraps arms around you, you both stay like this for at least a couple of seconds and as you pull away he looks into your eyes and smiles.'
  645. gs 'arousal', 'kiss', 5
  646. gs 'stat'
  647. elseif haraklover[lover_number] = 1:
  648. loverrelation[lover_number] += 2
  649. 'He kisses you back with such skill it turns you on.'
  650. gs 'arousal', 'kiss', 5
  651. gs 'stat'
  652. elseif haraklover[lover_number] = 2:
  653. loverrelation[lover_number] += 2
  654. 'He kisses you back with such passion you feel a tingle within you.'
  655. gs 'arousal', 'kiss', 5
  656. gs 'stat'
  657. end
  658. elseif cumloc[11] = 1 or (cumloc[6] = 1 or cumloc[7] = 1) or cumloc[12] = 1 and pervConstant = 1:
  659. if cumloc[11] = 1:
  660. if haraklover[lover_number] = 0:
  661. loverrelation[lover_number] += 2
  662. pcs_horny += 5
  663. 'He can see sperm on your face, but underneath his shy demener you know that it only turns him on.'
  664. elseif haraklover[lover_number] = 1:
  665. loverrelation[lover_number] += 2
  666. pcs_horny += 5
  667. 'He can see sperm on your face, but you know that it only turns him on more.'
  668. elseif haraklover[lover_number] = 2:
  669. loverrelation[lover_number] += 3
  670. pcs_horny += 5
  671. 'He can see sperm on your face, but by the bulge in his pants you know it only turns him on.'
  672. end
  673. elseif (cumloc[6] = 1 or cumloc[7] = 1):
  674. if haraklover[lover_number] = 0:
  675. loverrelation[lover_number] += 2
  676. pcs_horny += 5
  677. 'He can see sperm on your ass, but underneath his shy demener you know that it only turns him on.'
  678. elseif haraklover[lover_number] = 1:
  679. loverrelation[lover_number] += 2
  680. pcs_horny += 5
  681. 'He can see sperm on your ass, but you know that it only turns him on more.'
  682. elseif haraklover[lover_number] = 2:
  683. loverrelation[lover_number] += 3
  684. pcs_horny += 5
  685. 'He can see sperm on your ass, but by the bulge in his pants you know it only turns him on.'
  686. end
  687. elseif cumloc[12] = 1:
  688. if haraklover[lover_number] = 0:
  689. loverrelation[lover_number] += 2
  690. pcs_horny += 5
  691. 'He can smell the scent of sperm on you, but underneath his shy demener you know that it only turns him on.'
  692. elseif haraklover[lover_number] = 1:
  693. loverrelation[lover_number] += 2
  694. pcs_horny += 5
  695. 'He can smell the scent of sperm on you, but you know that it only turns him on more.'
  696. elseif haraklover[lover_number] = 2:
  697. loverrelation[lover_number] += 3
  698. pcs_horny += 5
  699. 'He can smell the scent of sperm on you, but you know by the bulge in his pants it only turns him on more.'
  700. end
  701. end
  702. else
  703. if cumloc[11] = 1 or (cumloc[6] = 1 or cumloc[7] = 1) and pervConstant ! 1:
  704. if cumloc[11] = 1:
  705. gs 'boyfrend','remove',lover_number
  706. 'He notices the sperm on your face, "<<$pcs_firstname>>! What the...?! You dirty whore!", he then pushes you out of his face. "We are through, I don''t want to see your face again!'
  707. pcs_mood -= 20
  708. dynamic $go_home
  709. exit
  710. elseif (cumloc[6] = 1 or cumloc[7] = 1):
  711. gs 'boyfrend','remove',lover_number
  712. 'He notices the sperm on your ass, "<<$pcs_firstname>>! What the...?! You dirty whore!", he then pushes you away. "We are through, I don''t want to see your face again!'
  713. pcs_mood -= 20
  714. dynamic $go_home
  715. exit
  716. end
  717. end
  718. end
  719. cla
  720. act 'Continue':
  721. xgt 'meet', 'likes'
  722. end
  723. exit
  724. end
  725. act 'Hint for a kiss on the cheek':
  726. *clr
  727. 'You make a cute pouty face and turn your cheek toward <<$loverdesc[lover_number]>>. He understands and though he wanted to kiss you, he settles with giving you a peck on the cheek'
  728. pcs_mood += 10
  729. if cumloc[11] = 0 and (cumloc[6] = 0 and cumloc[7] = 0):
  730. if haraklover[lover_number] = 0:
  731. loverrelation[lover_number] += 2
  732. 'He gives you a soft kiss on the cheek, and you can tell he finds this act very cute.'
  733. gs 'arousal', 'kiss', 5
  734. gs 'stat'
  735. elseif haraklover[lover_number] = 1:
  736. loverrelation[lover_number] += 1
  737. 'He kisses you on the cheek and before he pulls away you feel a quick kiss on the forhead.'
  738. gs 'arousal', 'kiss', 5
  739. gs 'stat'
  740. elseif haraklover[lover_number] = 2:
  741. loverrelation[lover_number] += 0
  742. 'Though you can tell he is a bit disappointed, he gives you a kiss on the cheek. As he pulls away he gives your ass a quick squeeze.'
  743. gs 'arousal', 'kiss', 5
  744. gs 'stat'
  745. end
  746. elseif cumloc[11] = 1 or (cumloc[6] = 1 or cumloc[7] = 1) or cumloc[12] = 1 and pervConstant = 1:
  747. if cumloc[11] = 1:
  748. if haraklover[lover_number] = 0:
  749. loverrelation[lover_number] += 2
  750. pcs_horny += 5
  751. 'He can see sperm on your face, but underneath his shy demener you know that it only turns him on.'
  752. elseif haraklover[lover_number] = 1:
  753. loverrelation[lover_number] += 2
  754. pcs_horny += 5
  755. 'He can see sperm on your face, but you know that it only turns him on more.'
  756. elseif haraklover[lover_number] = 2:
  757. loverrelation[lover_number] += 3
  758. pcs_horny += 5
  759. 'He can see sperm on your face, but by the bulge in his pants you know it only turns him on.'
  760. end
  761. elseif (cumloc[6] = 1 or cumloc[7] = 1):
  762. if haraklover[lover_number] = 0:
  763. loverrelation[lover_number] += 1
  764. pcs_horny += 5
  765. 'He can see sperm on your ass, but underneath his shy demener you know that it only turns him on.'
  766. elseif haraklover[lover_number] = 1:
  767. loverrelation[lover_number] += 1
  768. pcs_horny += 5
  769. 'He can see sperm on your ass, but you know that it only turns him on more.'
  770. elseif haraklover[lover_number] = 2:
  771. loverrelation[lover_number] += 1
  772. pcs_horny += 5
  773. 'He can see sperm on your ass, but by the bulge in his pants you know it only turns him on.'
  774. end
  775. end
  776. elseif cumloc[11] = 1 or (cumloc[6] = 1 or cumloc[7] = 1) and pervConstant ! 1:
  777. if cumloc[11] = 1:
  778. gs 'boyfrend','remove',lover_number
  779. 'He notices the sperm on your face, "H-Hey- <<$pcs_firstname>>! What the...?! You dirty whore!", he then pushes you out of his face. "We are through, I don''t want to see your face again!'
  780. pcs_mood -= 20
  781. dynamic $go_home
  782. exit
  783. elseif (cumloc[6] = 1 or cumloc[7] = 1):
  784. gs 'boyfrend','remove',lover_number
  785. 'He notices the sperm on your ass, "H-Hey- <<$pcs_firstname>>! What the...?! You dirty whore!", he then pushes you away. "We are through, I don''t want to see your face again!'
  786. pcs_mood -= 20
  787. dynamic $go_home
  788. exit
  789. elseif (cumloc[6] = 1 or cumloc[7] = 1):
  790. gs 'boyfrend','remove',lover_number
  791. 'He realizes your mouth smells like sperm, "H-Hey- <<$pcs_firstname>>! What the...?! You dirty whore!", he then pushes you away. "We are through, I don''t want to see your face again!'
  792. pcs_mood -= 20
  793. dynamic $go_home
  794. exit
  795. end
  796. end
  797. cla
  798. act 'Continue':
  799. xgt 'meet', 'likes'
  800. end
  801. exit
  802. end
  803. act 'Push his face away':
  804. *clr
  805. didPushAway = 1
  806. 'Maybe you had a bad day, maybe you don''t want a kiss, you rudely push his face away, and by the looks of it, hurting his feelings in the process.'
  807. if haraklover[lover_number] = 0:
  808. loverrelation[lover_number] -= 7
  809. 'He stands there slightly embarrassed, and you can tell this hurt your relationship a good amount.'
  810. elseif haraklover[lover_number] = 1:
  811. loverrelation[lover_number] -= 5
  812. 'He looks at you slightly concerned, but backs off and gives you your space.'
  813. elseif haraklover[lover_number] = 2:
  814. loverrelation[lover_number] -= 10
  815. 'He begins to get angry, he takes a deep breath and gives you space.'
  816. end
  817. cla
  818. act 'Continue':
  819. xgt 'meet', 'likes'
  820. end
  821. exit
  822. end
  823. end
  824. end
  825. end
  826. if $ARGS[0] = 'likes':
  827. cla
  828. if loverdays[lover_number] >= clotDay:
  829. gs 'boy_likes', 'clothesPref'
  830. end
  831. if loverdays[lover_number] >= bodyDay:
  832. gs 'boy_likes', 'bodyPref'
  833. end
  834. xgt 'meet', 'actions'
  835. end
  836. if $ARGS[0] = 'actions':
  837. cls
  838. act 'Can I ask you how you think I look?':
  839. '<<$loverdesc[lover_number]>> says "If you insist" and tells you exactly how he thinks you look based on what he likes:'
  840. gs 'boy_likes', 'allPref'
  841. act 'Okay, lets talk about something else':
  842. xgt 'meet', 'actions'
  843. end
  844. end
  845. act 'What do you want to do today?':
  846. cla
  847. randchan = rand(0, 1)
  848. if randchan = 0:
  849. sub += 1
  850. end
  851. 'You tell him you would rather him decide what we do today.'
  852. if haraklover[lover_number] = 0:
  853. loverrelation[lover_number] += 0
  854. 'Not used to being given the opportunity to choose, he thinks what to do...'
  855. elseif haraklover[lover_number] = 1:
  856. loverrelation[lover_number] += 0
  857. 'He thinks about what to do today.'
  858. elseif haraklover[lover_number] = 2:
  859. loverrelation[lover_number] += 1
  860. 'You can tell he is happy you gave him the ability to choose what to do today.'
  861. end
  862. !!This is the choice maker!
  863. if loverfinance[lover_number] = 0:
  864. !! 0 - change player, 1 - beer in stairwell, 2 - walk in park,
  865. randchan = rand(0, 2)
  866. !! 1 = does like, 0 = not like
  867. if (pierWearCount >= pierPrefMin and pierWearCount <= pierPrefMax) or pierPref = 0:
  868. pierCheck = 1
  869. else
  870. pierCheck = 0
  871. end
  872. if (tattCount >= tattPrefMin and tattCount <= tattPrefMax) or tattPref = 0:
  873. tattCheck = 1
  874. else
  875. tattCheck = 0
  876. end
  877. if (makeupSetting = makePref) or makePref = 0:
  878. makeupCheck = 1
  879. else
  880. makeupCheck = 0
  881. end
  882. if pcs_haircol = hairPref:
  883. hairCheck = 1
  884. else
  885. hairCheck = 0
  886. end
  887. if (pierWearCount >= pierPrefMin and pierWearCount <= pierPrefMax) or pierPref = 0:
  888. pierCheck = 1
  889. else
  890. pierCheck = 0
  891. end
  892. if (tattCount >= tattPrefMin and tattCount <= tattPrefMax) or tattPref = 0:
  893. tattCheck = 1
  894. else
  895. tattCheck = 0
  896. end
  897. if randchan = 0 and (pierCheck + tattCheck + makeupCheck + hairCheck) = 4:
  898. randchan = rand(1, 2)
  899. end
  900. if randchan = 0:
  901. cls
  902. !!Some things you can change.
  903. !!loverfinance[lover_number] = 0 - hair, makeup, tattoo, piercings.
  904. if haraklover[lover_number] = 0:
  905. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  906. elseif haraklover[lover_number] = 1:
  907. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  908. elseif haraklover[lover_number] = 2:
  909. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  910. end
  911. '"Whats up <<$loverdesc[lover_number]>>?"'
  912. '"There is just a trait about you that bugs me, can we change that?"'
  913. if loverscompliance[lover_number] > 0:
  914. 'You know you have changed for him before, and you want to avoid to changing into something you are not.'
  915. end
  916. gs 'boy_likes', 'compliance'
  917. '"And what did you want to change about me?"'
  918. !!This is to make a last check on how many piercings they are WEARING
  919. gs 'boy_likes', 'checkPier'
  920. if pcs_haircol ! hairPref:
  921. '<<$loverdesc[lover_number]>> looks at your hair and says, "can we get your hair dyed?"'
  922. !!act 'I''d rather not...':
  923. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  924. act 'I like my hair just the way it is':
  925. cla
  926. cls
  927. loverrelation[lover_number] -= 3
  928. '<<$loverdesc[lover_number]>> tries to push you to change it, but you are not that submissive to be pressured by him, nor do your emotions make you make a choice you may regret.'
  929. dynamic $go_home
  930. end
  931. act 'Go with him':
  932. gt 'boy_likes', 'changeHair'
  933. end
  934. exit
  935. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  936. act 'You think to yourself, its not like I like him THAT much...':
  937. cla
  938. pcs_dom += 1
  939. loverrelation[lover_number] -=3
  940. '<<$loverdesc[lover_number]>> he realizes you adoration for him isn''t enough to pressure you to do that. He tells you he has something to do and heads off'
  941. dynamic $go_home
  942. end
  943. exit
  944. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  945. act 'Your personality is not something that can be dominated that easily, and you brush him off, telling him you are who you are':
  946. cla
  947. pcs_dom += 1
  948. loverrelation[lover_number] -=3
  949. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to himself.'
  950. dynamic $go_home
  951. end
  952. exit
  953. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  954. act 'You mumble "I would rather not..."':
  955. cla
  956. loverrelation[lover_number] -= 2
  957. wantRand = rand(0, 100)
  958. wantRand -= 4*loverscompliance[lover_number]
  959. if wantRand > sub:
  960. cla
  961. '<<$loverdesc[lover_number]>> tries to push you to change it, but you successfully inform him that you do not want to. This makes him rather upset.'
  962. ''
  963. dynamic $go_home
  964. exit
  965. elseif wantRand <= sub:
  966. cla
  967. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeaner, and you give in. He smiles happily and takes you to the salon.'
  968. sub += 2
  969. loverrelation[lover_number] += 5
  970. act 'Go to Salon':
  971. gt 'boy_likes', 'changeHair'
  972. end
  973. exit
  974. end
  975. end
  976. end
  977. elseif makeupSetting ! makePref and makePref ! 0:
  978. '<<$loverdesc[lover_number]>> thinks about it and says "Can you wear <<$makePref>> from now on?"'
  979. !!act 'I''d rather not...':
  980. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  981. act 'I like my makeup just the way it is':
  982. cla
  983. cls
  984. loverrelation[lover_number] -= 3
  985. '<<$loverdesc[lover_number]>> tries to push you to change it, but you are not that submissive to be pressured by him, nor do your emotions make you make a choice you may regret.'
  986. dynamic $go_home
  987. end
  988. act 'Agree to change the makeup you usually wear':
  989. gt 'boy_likes', 'changeMake'
  990. end
  991. exit
  992. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  993. act 'You think to yourself, its not like I like him THAT much...':
  994. cla
  995. pcs_dom += 1
  996. loverrelation[lover_number] -=3
  997. '<<$loverdesc[lover_number]>> he realizes you adoration for him isn''t enough to pressure you to do that. You can tell that he is bummed when he tells you he has something to do and heads off.'
  998. dynamic $go_home
  999. end
  1000. exit
  1001. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1002. act 'Your personality is not something that can be dominated that easily, and you brush him off, telling him you like the makeup you usually wear':
  1003. cla
  1004. pcs_dom += 1
  1005. loverrelation[lover_number] -=3
  1006. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to himself.'
  1007. dynamic $go_home
  1008. end
  1009. exit
  1010. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1011. act 'You mumble "What''s wrong with my makeup...?"':
  1012. cla
  1013. loverrelation[lover_number] -= 2
  1014. wantRand = rand(0, 100)
  1015. wantRand -= 4*loverscompliance[lover_number]
  1016. if wantRand > sub:
  1017. cla
  1018. '<<$loverdesc[lover_number]>> tries to push you to change it, but you successfully inform him that you do not want to. This makes him rather upset.'
  1019. ''
  1020. dynamic $go_home
  1021. exit
  1022. elseif wantRand <= sub:
  1023. cla
  1024. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeaner, and you give in. You tell him from now on you will wear <<$makePref>>.'
  1025. sub += 2
  1026. loverrelation[lover_number] += 5
  1027. act 'Continue':
  1028. gt 'boy_likes', 'changeMake'
  1029. end
  1030. exit
  1031. end
  1032. end
  1033. end
  1034. elseif pierWearCount < pierPrefMin or pierWearCount > pierPrefMax and pierPref ! 0 and pierDay <= loverdays[lover_number]:
  1035. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of piercings.'
  1036. if pierWearCount < pierPrefMin:
  1037. 'He tells you that you should have more piercings.'
  1038. else
  1039. 'He tells you that you should have less piercings.'
  1040. end
  1041. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1042. act 'I am not going to change my piercings!':
  1043. cla
  1044. cls
  1045. loverrelation[lover_number] -= 3
  1046. '<<$loverdesc[lover_number]>> tries to push you to change it, but you are not that submissive to be pressured by him, nor do your emotions make you make a choice you may regret.'
  1047. dynamic $go_home
  1048. end
  1049. act 'Agree to change the amount of piercings you have':
  1050. gt 'boy_likes', 'changePier'
  1051. end
  1052. exit
  1053. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1054. act 'You think to yourself, its not like I like him THAT much...':
  1055. cla
  1056. pcs_dom += 1
  1057. loverrelation[lover_number] -=3
  1058. '<<$loverdesc[lover_number]>> he realizes you adoration for him isn''t enough to pressure you to do that. He tells you he has something to do and heads off'
  1059. dynamic $go_home
  1060. end
  1061. exit
  1062. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1063. act 'Your personality is not something that can be dominated that easily, and you brush him off, telling him you are who you are':
  1064. cla
  1065. pcs_dom += 1
  1066. loverrelation[lover_number] -=3
  1067. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to himself.'
  1068. dynamic $go_home
  1069. end
  1070. exit
  1071. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1072. act 'You mumble "I would rather not..."':
  1073. cla
  1074. loverrelation[lover_number] -= 2
  1075. wantRand = rand(0, 100)
  1076. wantRand -= 4*loverscompliance[lover_number]
  1077. if wantRand > sub:
  1078. cla
  1079. '<<$loverdesc[lover_number]>> tries to push you to change the amount of piercings you have, but you successfully inform him that you do not want to. This makes him rather upset.'
  1080. ''
  1081. dynamic $go_home
  1082. exit
  1083. elseif wantRand <= sub:
  1084. cla
  1085. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeaner, and you give in. He smiles happily and then gets down to how to get the right amount of piercings.'
  1086. sub += 2
  1087. loverrelation[lover_number] += 5
  1088. act 'Continue':
  1089. gt 'boy_likes', 'changePier'
  1090. end
  1091. exit
  1092. end
  1093. end
  1094. end
  1095. elseif tattCount < tattPrefMin or tattCount > tattPrefMax and tattPref ! 0 and tattDay <= loverdays[lover_number]:
  1096. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of tattoos.'
  1097. if tattCount < tattPrefMin:
  1098. 'He tells you that you should have more tattoos.'
  1099. else
  1100. 'He tells you that you should have less tattoos.'
  1101. end
  1102. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1103. act 'I am not going to change my tattoos!':
  1104. cla
  1105. cls
  1106. loverrelation[lover_number] -= 3
  1107. '<<$loverdesc[lover_number]>> tries to push you to change it, but you are not that submissive to be pressured by him, nor do your emotions make you make a choice you may regret.'
  1108. dynamic $go_home
  1109. end
  1110. act 'Agree to change the amount of tattoos you have':
  1111. gt 'boy_likes', 'changeTatt'
  1112. end
  1113. exit
  1114. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1115. act 'You think to yourself, its not like I like him THAT much...':
  1116. cla
  1117. pcs_dom += 1
  1118. loverrelation[lover_number] -=3
  1119. '<<$loverdesc[lover_number]>> he realizes you adoration for him isn''t enough to pressure you to do that. He tells you he has something to do and heads off'
  1120. dynamic $go_home
  1121. end
  1122. exit
  1123. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1124. act 'Your personality is not something that can be dominated that easily, and you brush him off, telling him you are who you are':
  1125. cla
  1126. pcs_dom += 1
  1127. loverrelation[lover_number] -=3
  1128. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to himself.'
  1129. dynamic $go_home
  1130. end
  1131. exit
  1132. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1133. act 'You mumble "I would rather not..."':
  1134. cla
  1135. loverrelation[lover_number] -= 2
  1136. wantRand = rand(0, 100)
  1137. wantRand -= 4*loverscompliance[lover_number]
  1138. if wantRand > sub:
  1139. cla
  1140. '<<$loverdesc[lover_number]>> tries to push you to change the amount of tattoos you have, but you successfully inform him that you do not want to. This makes him rather upset.'
  1141. ''
  1142. dynamic $go_home
  1143. exit
  1144. elseif wantRand <= sub:
  1145. cla
  1146. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeaner, and you give in. He smiles happily then starts to take you to the tattoo parlor to get the right amount of tattoos.'
  1147. sub += 2
  1148. loverrelation[lover_number] += 5
  1149. act 'Go to tattoo parlor':
  1150. gt 'boy_likes', 'changeTatt'
  1151. end
  1152. exit
  1153. end
  1154. end
  1155. end
  1156. else
  1157. 'Erm... Nothing..."'
  1158. act 'Well then...':
  1159. xgt 'meet', 'actions'
  1160. exit
  1161. end
  1162. end
  1163. elseif randchan = 1:
  1164. '<<$loverdesc[lover_number]>> suggest you and him drink a beer in the stairwell.'
  1165. act 'Sorry, but I need to go':
  1166. cla
  1167. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  1168. dynamic $go_home
  1169. end
  1170. act 'Go with him':gt 'podezdM', 'start'
  1171. exit
  1172. elseif randchan = 2:
  1173. '<<$loverdesc[lover_number]>> suggests that you take a walk in the park.'
  1174. act 'Sorry, but I need to go':
  1175. cla
  1176. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  1177. dynamic $go_home
  1178. end
  1179. act 'Go with him':gt 'parkM', 'start'
  1180. exit
  1181. end
  1182. elseif loverfinance[lover_number] = 1:
  1183. !! 0 - change player, 1 - go to the movies, 2 - walk in park, 3 , suggests that you go to a cafe.
  1184. randchan = rand(0, 3)
  1185. !! 1 = does like, 0 = not like
  1186. if (pierWearCount >= pierPrefMin and pierWearCount <= pierPrefMax) or pierPref = 0:
  1187. pierCheck = 1
  1188. else
  1189. pierCheck = 0
  1190. end
  1191. if (tattCount >= tattPrefMin and tattCount <= tattPrefMax) or tattPref = 0:
  1192. tattCheck = 1
  1193. else
  1194. tattCheck = 0
  1195. end
  1196. if (makeupSetting = makePref) or makePref = 0:
  1197. makeupCheck = 1
  1198. else
  1199. makeupCheck = 0
  1200. end
  1201. if pcs_haircol = hairPref:
  1202. hairCheck = 1
  1203. else
  1204. hairCheck = 0
  1205. end
  1206. if tits >= titMin and tits <= titMax:
  1207. titCheck = 1
  1208. else
  1209. titCheck = 0
  1210. end
  1211. if pcs_lips >= lipsPrefMin and tits <= lipsPrefMax:
  1212. lipsCheck = 1
  1213. else
  1214. lipsCheck = 0
  1215. end
  1216. if randchan = 0 and (pierCheck + tattCheck + makeupCheck + hairCheck + titCheck + lipsCheck) = 6:
  1217. 'Takes one look at your body and loves every part of it.'
  1218. randchan = rand(1, 3)
  1219. end
  1220. if randchan = 0:
  1221. cls
  1222. !!Some things you can change.
  1223. !!loverfinance[lover_number] = 1 - hair, makeup, tattoo, piercings, lips, tits.
  1224. if haraklover[lover_number] = 0:
  1225. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  1226. elseif haraklover[lover_number] = 1:
  1227. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  1228. elseif haraklover[lover_number] = 2:
  1229. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  1230. end
  1231. '"Whats up <<$loverdesc[lover_number]>>?"'
  1232. '"There is just a trait about you that bugs me, can we change that?"'
  1233. if loverscompliance[lover_number] > 0:
  1234. 'You know you have changed for him before, and you want to avoid to changing into something you are not.'
  1235. end
  1236. gs 'boy_likes', 'compliance'
  1237. '"And what did you want to change about me?"'
  1238. !!This is to make a last check on how many piercings they are WEARING
  1239. gs 'boy_likes', 'checkPier'
  1240. if pcs_haircol ! hairPref:
  1241. '<<$loverdesc[lover_number]>> looks at your hair and says, "can we get your hair dyed?"'
  1242. !!act 'I''d rather not...':
  1243. if sub < 20 and loverrelation[lover_number] < 60 and compliance < 6:
  1244. act 'I like my hair just the way it is':
  1245. cla
  1246. cls
  1247. loverrelation[lover_number] -= 3
  1248. '<<$loverdesc[lover_number]>> tries to push you to change it, but you are not that submissive to be pressured by him, nor do your emotions make you make a choice you may regret.'
  1249. dynamic $go_home
  1250. end
  1251. act 'Go with him':
  1252. gt 'boy_likes', 'changeHair'
  1253. end
  1254. exit
  1255. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1256. act 'You think to yourself, its not like I like him THAT much...':
  1257. cla
  1258. pcs_dom += 1
  1259. loverrelation[lover_number] -=3
  1260. '<<$loverdesc[lover_number]>> he realizes you adoration for him isn''t enough to pressure you to do that. He tells you he has something to do and heads off'
  1261. dynamic $go_home
  1262. end
  1263. exit
  1264. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1265. act 'Your personality is not something that can be dominated that easily, and you brush him off, telling him you are who you are':
  1266. cla
  1267. pcs_dom += 1
  1268. loverrelation[lover_number] -=3
  1269. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to himself.'
  1270. dynamic $go_home
  1271. end
  1272. exit
  1273. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1274. act 'You mumble "I would rather not..."':
  1275. cla
  1276. loverrelation[lover_number] -= 2
  1277. wantRand = rand(0, 100)
  1278. wantRand -= 4*loverscompliance[lover_number]
  1279. if wantRand > sub:
  1280. cla
  1281. '<<$loverdesc[lover_number]>> tries to push you to change it, but you successfully inform him that you do not want to. This makes him rather upset.'
  1282. ''
  1283. dynamic $go_home
  1284. exit
  1285. elseif wantRand <= sub:
  1286. cla
  1287. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeaner, and you give in. He smiles happily and takes you to the salon.'
  1288. sub += 2
  1289. loverrelation[lover_number] += 5
  1290. act 'Go to Salon':
  1291. gt 'boy_likes', 'changeHair'
  1292. end
  1293. exit
  1294. end
  1295. end
  1296. end
  1297. elseif makeupSetting ! makePref and makePref ! 0:
  1298. '<<$loverdesc[lover_number]>> thinks about it and says "Can you wear <<$makePref>> from now on?"'
  1299. !!act 'I''d rather not...':
  1300. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1301. act 'I like my makeup just the way it is':
  1302. cla
  1303. cls
  1304. loverrelation[lover_number] -= 3
  1305. '<<$loverdesc[lover_number]>> tries to push you to change it, but you are not that submissive to be pressured by him, nor do your emotions make you make a choice you may regret.'
  1306. dynamic $go_home
  1307. end
  1308. act 'Agree to change the makeup you usually wear':
  1309. gt 'boy_likes', 'changeMake'
  1310. end
  1311. exit
  1312. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1313. act 'You think to yourself, its not like I like him THAT much...':
  1314. cla
  1315. pcs_dom += 1
  1316. loverrelation[lover_number] -=3
  1317. '<<$loverdesc[lover_number]>> he realizes you adoration for him isn''t enough to pressure you to do that. You can tell that he is bummed when he tells you he has something to do and heads off.'
  1318. dynamic $go_home
  1319. end
  1320. exit
  1321. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1322. act 'Your personality is not something that can be dominated that easily, and you brush him off, telling him you like the makeup you usually wear':
  1323. cla
  1324. pcs_dom += 1
  1325. loverrelation[lover_number] -=3
  1326. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to himself.'
  1327. dynamic $go_home
  1328. end
  1329. exit
  1330. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1331. act 'You mumble "What''s wrong with my makeup...?"':
  1332. cla
  1333. loverrelation[lover_number] -= 2
  1334. wantRand = rand(0, 100)
  1335. wantRand -= 4*loverscompliance[lover_number]
  1336. if wantRand > sub:
  1337. cla
  1338. '<<$loverdesc[lover_number]>> tries to push you to change it, but you successfully inform him that you do not want to. This makes him rather upset.'
  1339. ''
  1340. dynamic $go_home
  1341. exit
  1342. elseif wantRand <= sub:
  1343. cla
  1344. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeaner, and you give in. You tell him from now on you will wear <<$makePref>>.'
  1345. sub += 2
  1346. loverrelation[lover_number] += 5
  1347. act 'Continue':
  1348. gt 'boy_likes', 'changeMake'
  1349. end
  1350. exit
  1351. end
  1352. end
  1353. end
  1354. elseif pierWearCount < pierPrefMin or pierWearCount > pierPrefMax and pierPref ! 0 and pierDay <= loverdays[lover_number]:
  1355. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of piercings.'
  1356. if pierWearCount < pierPrefMin:
  1357. 'He tells you that you should have more piercings.'
  1358. else
  1359. 'He tells you that you should have less piercings.'
  1360. end
  1361. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1362. act 'I am not going to change my piercings!':
  1363. cla
  1364. cls
  1365. loverrelation[lover_number] -= 3
  1366. '<<$loverdesc[lover_number]>> tries to push you to change it, but you are not that submissive to be pressured by him, nor do your emotions make you make a choice you may regret.'
  1367. dynamic $go_home
  1368. end
  1369. act 'Agree to change the amount of piercings you have':
  1370. gt 'boy_likes', 'changePier'
  1371. end
  1372. exit
  1373. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1374. act 'You think to yourself, its not like I like him THAT much...':
  1375. cla
  1376. pcs_dom += 1
  1377. loverrelation[lover_number] -=3
  1378. '<<$loverdesc[lover_number]>> he realizes you adoration for him isn''t enough to pressure you to do that. He tells you he has something to do and heads off'
  1379. dynamic $go_home
  1380. end
  1381. exit
  1382. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1383. act 'Your personality is not something that can be dominated that easily, and you brush him off, telling him you are who you are':
  1384. cla
  1385. pcs_dom += 1
  1386. loverrelation[lover_number] -=3
  1387. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to himself.'
  1388. dynamic $go_home
  1389. end
  1390. exit
  1391. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1392. act 'You mumble "I would rather not..."':
  1393. cla
  1394. loverrelation[lover_number] -= 2
  1395. wantRand = rand(0, 100)
  1396. wantRand -= 4*loverscompliance[lover_number]
  1397. if wantRand > sub:
  1398. cla
  1399. '<<$loverdesc[lover_number]>> tries to push you to change the amount of piercings you have, but you successfully inform him that you do not want to. This makes him rather upset.'
  1400. ''
  1401. dynamic $go_home
  1402. exit
  1403. elseif wantRand <= sub:
  1404. cla
  1405. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeaner, and you give in. He smiles happily and then gets down to how to get the right amount of piercings.'
  1406. sub += 2
  1407. loverrelation[lover_number] += 5
  1408. act 'Continue':
  1409. gt 'boy_likes', 'changePier'
  1410. end
  1411. exit
  1412. end
  1413. end
  1414. end
  1415. elseif tattCount < tattPrefMin or tattCount > tattPrefMax and tattPref ! 0 and tattDay <= loverdays[lover_number]:
  1416. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of tattoos.'
  1417. if tattCount < tattPrefMin:
  1418. 'He tells you that you should have more tattoos.'
  1419. else
  1420. 'He tells you that you should have less tattoos.'
  1421. end
  1422. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1423. act 'I am not going to change my tattoos!':
  1424. cla
  1425. cls
  1426. loverrelation[lover_number] -= 3
  1427. '<<$loverdesc[lover_number]>> tries to push you to change it, but you are not that submissive to be pressured by him, nor do your emotions make you make a choice you may regret.'
  1428. dynamic $go_home
  1429. end
  1430. act 'Agree to change the amount of tattoos you have':
  1431. gt 'boy_likes', 'changeTatt'
  1432. end
  1433. exit
  1434. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1435. act 'You think to yourself, its not like I like him THAT much...':
  1436. cla
  1437. pcs_dom += 1
  1438. loverrelation[lover_number] -=3
  1439. '<<$loverdesc[lover_number]>> he realizes you adoration for him isn''t enough to pressure you to do that. He tells you he has something to do and heads off'
  1440. dynamic $go_home
  1441. end
  1442. exit
  1443. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1444. act 'Your personality is not something that can be dominated that easily, and you brush him off, telling him you are who you are':
  1445. cla
  1446. pcs_dom += 1
  1447. loverrelation[lover_number] -=3
  1448. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to himself.'
  1449. dynamic $go_home
  1450. end
  1451. exit
  1452. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1453. act 'You mumble "I would rather not..."':
  1454. cla
  1455. loverrelation[lover_number] -= 2
  1456. wantRand = rand(0, 100)
  1457. wantRand -= 4*loverscompliance[lover_number]
  1458. if wantRand > sub:
  1459. cla
  1460. '<<$loverdesc[lover_number]>> tries to push you to change the amount of tattoos you have, but you successfully inform him that you do not want to. This makes him rather upset.'
  1461. ''
  1462. dynamic $go_home
  1463. exit
  1464. elseif wantRand <= sub:
  1465. cla
  1466. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeaner, and you give in. He smiles happily then starts to take you to the tattoo parlor to get the right amount of tattoos.'
  1467. sub += 2
  1468. loverrelation[lover_number] += 5
  1469. act 'Go to tattoo parlor':
  1470. gt 'boy_likes', 'changeTatt'
  1471. end
  1472. exit
  1473. end
  1474. end
  1475. end
  1476. elseif pcs_lip < lipsPrefMin or pcs_lip > lipsPrefMax and lipsDay <= loverdays[lover_number]:
  1477. '<<$loverdesc[lover_number]>> tells you your lips are just not the right size.'
  1478. if pcs_lip < lipsPrefMin:
  1479. 'He tells you that you should get lip injections.'
  1480. else
  1481. 'He tells you that you should have lip reduction.'
  1482. end
  1483. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1484. act '"My lips are fine the way they are!", you say slightly offended':
  1485. cla
  1486. cls
  1487. loverrelation[lover_number] -= 3
  1488. '<<$loverdesc[lover_number]>> tries to push you to change your lip size, but you are not that submissive to be pressured by him, nor do your emotions make you make a choice you may regret.'
  1489. dynamic $go_home
  1490. end
  1491. act 'Go with him':
  1492. gt 'boy_likes', 'changeLips'
  1493. end
  1494. exit
  1495. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1496. act 'You think to yourself, its not like I like him THAT much to get work done on my lips':
  1497. cla
  1498. pcs_dom += 1
  1499. loverrelation[lover_number] -=3
  1500. '<<$loverdesc[lover_number]>> he realizes you adoration for him isn''t enough to pressure you to get work done on your lips. He tells you he has something to do and heads off.'
  1501. dynamic $go_home
  1502. end
  1503. exit
  1504. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1505. act 'Your personality is not something that can be dominated that easily, and you brush him off, telling him that you decide what size lips you look good with':
  1506. cla
  1507. pcs_dom += 1
  1508. loverrelation[lover_number] -=3
  1509. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to himself.'
  1510. dynamic $go_home
  1511. end
  1512. exit
  1513. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1514. act 'You squeek, "But I like the size of my lips..."':
  1515. cla
  1516. loverrelation[lover_number] -= 2
  1517. wantRand = rand(0, 100)
  1518. wantRand -= 4*loverscompliance[lover_number]
  1519. if wantRand > sub:
  1520. cla
  1521. '<<$loverdesc[lover_number]>> tries to push you to change the size, but you successfully tell him that you do not want to. This makes him rather upset.'
  1522. ''
  1523. dynamic $go_home
  1524. exit
  1525. elseif wantRand <= sub:
  1526. cla
  1527. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeaner, and you give in. He grins widely and takes you to the clinic.'
  1528. sub += 4
  1529. loverrelation[lover_number] += 5
  1530. act 'Go to the clinic':
  1531. gt 'boy_likes', 'changeLips'
  1532. end
  1533. exit
  1534. end
  1535. end
  1536. end
  1537. elseif tits < titMin or tits > titMax and titsDay <= loverdays[lover_number]:
  1538. '<<$loverdesc[lover_number]>> tells you your breasts are just not right.'
  1539. if tits < titMin:
  1540. 'He tells you that you should get breast implants.'
  1541. else
  1542. 'He tells you that you should have a breast reduction.'
  1543. end
  1544. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1545. act '"My breasts are fine the way they are!", you say slightly offended':
  1546. cla
  1547. cls
  1548. loverrelation[lover_number] -= 3
  1549. '<<$loverdesc[lover_number]>> tries to push you to change your breast size, but you are not that submissive to be pressured by him, nor do your emotions make you make a choice you may regret.'
  1550. dynamic $go_home
  1551. end
  1552. act 'Go with him':
  1553. gt 'boy_likes', 'changeTits'
  1554. end
  1555. exit
  1556. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1557. act 'You think to yourself, its not like I like him THAT much to get work done on my breasts':
  1558. cla
  1559. pcs_dom += 1
  1560. loverrelation[lover_number] -=3
  1561. '<<$loverdesc[lover_number]>> he realizes you adoration for him isn''t enough to pressure you to get work done on your breasts. He tells you he has something to do and heads off.'
  1562. dynamic $go_home
  1563. end
  1564. exit
  1565. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1566. act 'Your personality is not something that can be dominated that easily, and you brush him off, telling him that you decide what size breasts you look good with':
  1567. cla
  1568. pcs_dom += 1
  1569. loverrelation[lover_number] -=3
  1570. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to himself.'
  1571. dynamic $go_home
  1572. end
  1573. exit
  1574. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1575. act 'You squeek, "But I like the size of my breasts..."':
  1576. cla
  1577. loverrelation[lover_number] -= 2
  1578. wantRand = rand(0, 100)
  1579. wantRand -= 4*loverscompliance[lover_number]
  1580. if wantRand > sub:
  1581. cla
  1582. '<<$loverdesc[lover_number]>> tries to push you to change the size, but you successfully tell him that you do not want to. This makes him rather upset.'
  1583. ''
  1584. dynamic $go_home
  1585. exit
  1586. elseif wantRand <= sub:
  1587. cla
  1588. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeaner, and you give in. He grins widely and takes you to the clinic.'
  1589. sub += 4
  1590. loverrelation[lover_number] += 5
  1591. act 'Go to the clinic':
  1592. gt 'boy_likes', 'changeTits'
  1593. end
  1594. exit
  1595. end
  1596. end
  1597. end
  1598. else
  1599. '"Erm... Nothing..."'
  1600. act '"Well then..."':
  1601. *clr
  1602. xgt 'meet', 'actions'
  1603. exit
  1604. end
  1605. end
  1606. elseif randchan = 1:
  1607. '<<$loverdesc[lover_number]>> suggests that you go to the movies.'
  1608. act 'Sorry, but I need to go':
  1609. cla
  1610. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  1611. dynamic $go_home
  1612. end
  1613. act 'Go with him':gt 'kinoM', 'start'
  1614. exit
  1615. elseif randchan = 2:
  1616. '<<$loverdesc[lover_number]>> suggest that you take a walk in the park'
  1617. act 'Sorry, but I need to go':
  1618. cla
  1619. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  1620. dynamic $go_home
  1621. end
  1622. act 'Go with him':gt 'parkM', 'start'
  1623. exit
  1624. elseif randchan = 3:
  1625. '<<$loverdesc[lover_number]>> suggests that you go to a cafe.'
  1626. act 'Sorry, but I need to go':
  1627. cla
  1628. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  1629. dynamic $go_home
  1630. end
  1631. act 'Go with him':gt 'kafeM', 'start'
  1632. exit
  1633. end
  1634. elseif loverfinance[lover_number] = 2:
  1635. !!Some things you can change.
  1636. !!loverfinance[lover_number] = 2 - hair, makeup, tattoo, piercings, lips, tits
  1637. !! 0 - change player, 1 - go to a cafe, 2 - go to a restaurant, 3 - to the movies.
  1638. randchan = rand(0, 3)
  1639. !! 1 = does like, 0 = not like
  1640. if (pierWearCount >= pierPrefMin and pierWearCount <= pierPrefMax) or pierPref = 0:
  1641. pierCheck = 1
  1642. else
  1643. pierCheck = 0
  1644. end
  1645. if (tattCount >= tattPrefMin and tattCount <= tattPrefMax) or tattPref = 0:
  1646. tattCheck = 1
  1647. else
  1648. tattCheck = 0
  1649. end
  1650. if (makeupSetting = makePref) or makePref = 0:
  1651. makeupCheck = 1
  1652. else
  1653. makeupCheck = 0
  1654. end
  1655. if pcs_haircol = hairPref:
  1656. hairCheck = 1
  1657. else
  1658. hairCheck = 0
  1659. end
  1660. if tits >= titMin and tits <= titMax:
  1661. titCheck = 1
  1662. else
  1663. titCheck = 0
  1664. end
  1665. if pcs_lips >= lipsPrefMin and tits <= lipsPrefMax:
  1666. lipsCheck = 1
  1667. else
  1668. lipsCheck = 0
  1669. end
  1670. if salocatnow <= figurePrefMax:
  1671. figureCheck = 1
  1672. else
  1673. figureCheck = 0
  1674. end
  1675. if randchan = 0 and (pierCheck + tattCheck + makeupCheck + hairCheck + titCheck + lipsCheck + figureCheck) = 7:
  1676. 'Takes one look at your body and loves every part of it.'
  1677. randchan = rand(1, 3)
  1678. end
  1679. if randchan = 0:
  1680. cls
  1681. !!Some things you can change.
  1682. !!loverfinance[lover_number] = 2 - hair, makeup, tattoo, piercings, lips, tits, figure.
  1683. if haraklover[lover_number] = 0:
  1684. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  1685. elseif haraklover[lover_number] = 1:
  1686. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  1687. elseif haraklover[lover_number] = 2:
  1688. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  1689. end
  1690. '"Whats up <<$loverdesc[lover_number]>>?"'
  1691. '"There is just a trait about you that bugs me, can we change that?"'
  1692. if loverscompliance[lover_number] > 0:
  1693. 'You know you have changed for him before, and you want to avoid to changing into something you are not.'
  1694. end
  1695. gs 'boy_likes', 'compliance'
  1696. '"And what did you want to change about me?"'
  1697. !!This is to make a last check on how many piercings they are WEARING
  1698. gs 'boy_likes', 'checkPier'
  1699. if pcs_haircol ! hairPref:
  1700. '<<$loverdesc[lover_number]>> looks at your hair and says, "can we get your hair dyed?"'
  1701. !!act 'I''d rather not...':
  1702. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1703. act 'I like my hair just the way it is':
  1704. cla
  1705. cls
  1706. loverrelation[lover_number] -= 3
  1707. '<<$loverdesc[lover_number]>> tries to push you to change it, but you are not that submissive to be pressured by him, nor do your emotions make you make a choice you may regret.'
  1708. dynamic $go_home
  1709. end
  1710. act 'Go with him':
  1711. gt 'boy_likes', 'changeHair'
  1712. end
  1713. exit
  1714. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1715. act 'You think to yourself, its not like I like him THAT much...':
  1716. cla
  1717. pcs_dom += 1
  1718. loverrelation[lover_number] -=3
  1719. '<<$loverdesc[lover_number]>> he realizes you adoration for him isn''t enough to pressure you to do that. He tells you he has something to do and heads off'
  1720. dynamic $go_home
  1721. end
  1722. exit
  1723. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1724. act 'Your personality is not something that can be dominated that easily, and you brush him off, telling him you are who you are':
  1725. cla
  1726. pcs_dom += 1
  1727. loverrelation[lover_number] -=3
  1728. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to himself.'
  1729. dynamic $go_home
  1730. end
  1731. exit
  1732. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1733. act 'You mumble "I would rather not..."':
  1734. cla
  1735. loverrelation[lover_number] -= 2
  1736. wantRand = rand(0, 100)
  1737. wantRand -= 4*loverscompliance[lover_number]
  1738. if wantRand > sub:
  1739. cla
  1740. '<<$loverdesc[lover_number]>> tries to push you to change it, but you successfully inform him that you do not want to. This makes him rather upset.'
  1741. ''
  1742. dynamic $go_home
  1743. exit
  1744. elseif wantRand <= sub:
  1745. cla
  1746. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeaner, and you give in. He smiles happily and takes you to the salon.'
  1747. sub += 2
  1748. loverrelation[lover_number] += 5
  1749. act 'Go to Salon':
  1750. gt 'boy_likes', 'changeHair'
  1751. end
  1752. exit
  1753. end
  1754. end
  1755. end
  1756. elseif makeupSetting ! makePref and makePref ! 0:
  1757. '<<$loverdesc[lover_number]>> thinks about it and says "Can you wear <<$makePref>> from now on?"'
  1758. !!act 'I''d rather not...':
  1759. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1760. act 'I like my makeup just the way it is':
  1761. cla
  1762. cls
  1763. loverrelation[lover_number] -= 3
  1764. '<<$loverdesc[lover_number]>> tries to push you to change it, but you are not that submissive to be pressured by him, nor do your emotions make you make a choice you may regret.'
  1765. dynamic $go_home
  1766. end
  1767. act 'Agree to change the makeup you usually wear':
  1768. gt 'boy_likes', 'changeMake'
  1769. end
  1770. exit
  1771. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1772. act 'You think to yourself, its not like I like him THAT much...':
  1773. cla
  1774. pcs_dom += 1
  1775. loverrelation[lover_number] -=3
  1776. '<<$loverdesc[lover_number]>> he realizes you adoration for him isn''t enough to pressure you to do that. You can tell that he is bummed when he tells you he has something to do and heads off.'
  1777. dynamic $go_home
  1778. end
  1779. exit
  1780. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1781. act 'Your personality is not something that can be dominated that easily, and you brush him off, telling him you like the makeup you usually wear':
  1782. cla
  1783. pcs_dom += 1
  1784. loverrelation[lover_number] -=3
  1785. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to himself.'
  1786. dynamic $go_home
  1787. end
  1788. exit
  1789. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1790. act 'You mumble "What''s wrong with my makeup...?"':
  1791. cla
  1792. loverrelation[lover_number] -= 2
  1793. wantRand = rand(0, 100)
  1794. wantRand -= 4*loverscompliance[lover_number]
  1795. if wantRand > sub:
  1796. cla
  1797. '<<$loverdesc[lover_number]>> tries to push you to change it, but you successfully inform him that you do not want to. This makes him rather upset.'
  1798. ''
  1799. dynamic $go_home
  1800. exit
  1801. elseif wantRand <= sub:
  1802. cla
  1803. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeaner, and you give in. You tell him from now on you will wear <<$makePref>>.'
  1804. sub += 2
  1805. loverrelation[lover_number] += 5
  1806. act 'Continue':
  1807. gt 'boy_likes', 'changeMake'
  1808. end
  1809. exit
  1810. end
  1811. end
  1812. end
  1813. elseif pierWearCount < pierPrefMin or pierWearCount > pierPrefMax and pierPref ! 0 and pierDay <= loverdays[lover_number]:
  1814. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of piercings.'
  1815. if pierWearCount < pierPrefMin:
  1816. 'He tells you that you should have more piercings.'
  1817. else
  1818. 'He tells you that you should have less piercings.'
  1819. end
  1820. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1821. act 'I am not going to change my piercings!':
  1822. cla
  1823. cls
  1824. loverrelation[lover_number] -= 3
  1825. '<<$loverdesc[lover_number]>> tries to push you to change it, but you are not that submissive to be pressured by him, nor do your emotions make you make a choice you may regret.'
  1826. dynamic $go_home
  1827. end
  1828. act 'Agree to change the amount of piercings you have':
  1829. gt 'boy_likes', 'changePier'
  1830. end
  1831. exit
  1832. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1833. act 'You think to yourself, its not like I like him THAT much...':
  1834. cla
  1835. pcs_dom += 1
  1836. loverrelation[lover_number] -=3
  1837. '<<$loverdesc[lover_number]>> he realizes you adoration for him isn''t enough to pressure you to do that. He tells you he has something to do and heads off'
  1838. dynamic $go_home
  1839. end
  1840. exit
  1841. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1842. act 'Your personality is not something that can be dominated that easily, and you brush him off, telling him you are who you are':
  1843. cla
  1844. pcs_dom += 1
  1845. loverrelation[lover_number] -=3
  1846. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to himself.'
  1847. dynamic $go_home
  1848. end
  1849. exit
  1850. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1851. act 'You mumble "I would rather not..."':
  1852. cla
  1853. loverrelation[lover_number] -= 2
  1854. wantRand = rand(0, 100)
  1855. wantRand -= 4*loverscompliance[lover_number]
  1856. if wantRand > sub:
  1857. cla
  1858. '<<$loverdesc[lover_number]>> tries to push you to change the amount of piercings you have, but you successfully inform him that you do not want to. This makes him rather upset.'
  1859. ''
  1860. dynamic $go_home
  1861. exit
  1862. elseif wantRand <= sub:
  1863. cla
  1864. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeaner, and you give in. He smiles happily and then gets down to how to get the right amount of piercings.'
  1865. sub += 2
  1866. loverrelation[lover_number] += 5
  1867. act 'Continue':
  1868. gt 'boy_likes', 'changePier'
  1869. end
  1870. exit
  1871. end
  1872. end
  1873. end
  1874. elseif tattCount < tattPrefMin or tattCount > tattPrefMax and tattPref ! 0 and tattDay <= loverdays[lover_number]:
  1875. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of tattoos.'
  1876. if tattCount < tattPrefMin:
  1877. 'He tells you that you should have more tattoos.'
  1878. else
  1879. 'He tells you that you should have less tattoos.'
  1880. end
  1881. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1882. act 'I am not going to change my tattoos!':
  1883. cla
  1884. cls
  1885. loverrelation[lover_number] -= 3
  1886. '<<$loverdesc[lover_number]>> tries to push you to change it, but you are not that submissive to be pressured by him, nor do your emotions make you make a choice you may regret.'
  1887. dynamic $go_home
  1888. end
  1889. act 'Agree to change the amount of tattoos you have':
  1890. gt 'boy_likes', 'changeTatt'
  1891. end
  1892. exit
  1893. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1894. act 'You think to yourself, its not like I like him THAT much...':
  1895. cla
  1896. pcs_dom += 1
  1897. loverrelation[lover_number] -=3
  1898. '<<$loverdesc[lover_number]>> he realizes you adoration for him isn''t enough to pressure you to do that. He tells you he has something to do and heads off'
  1899. dynamic $go_home
  1900. end
  1901. exit
  1902. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1903. act 'Your personality is not something that can be dominated that easily, and you brush him off, telling him you are who you are':
  1904. cla
  1905. pcs_dom += 1
  1906. loverrelation[lover_number] -=3
  1907. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to himself.'
  1908. dynamic $go_home
  1909. end
  1910. exit
  1911. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1912. act 'You mumble "I would rather not..."':
  1913. cla
  1914. loverrelation[lover_number] -= 2
  1915. wantRand = rand(0, 100)
  1916. wantRand -= 4*loverscompliance[lover_number]
  1917. if wantRand > sub:
  1918. cla
  1919. '<<$loverdesc[lover_number]>> tries to push you to change the amount of tattoos you have, but you successfully inform him that you do not want to. This makes him rather upset.'
  1920. ''
  1921. dynamic $go_home
  1922. exit
  1923. elseif wantRand <= sub:
  1924. cla
  1925. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeaner, and you give in. He smiles happily then starts to take you to the tattoo parlor to get the right amount of tattoos.'
  1926. sub += 2
  1927. loverrelation[lover_number] += 5
  1928. act 'Go to tattoo parlor':
  1929. gt 'boy_likes', 'changeTatt'
  1930. end
  1931. exit
  1932. end
  1933. end
  1934. end
  1935. elseif pcs_lip < lipsPrefMin or pcs_lip > lipsPrefMax and lipsDay <= loverdays[lover_number]:
  1936. '<<$loverdesc[lover_number]>> tells you your lips are just not the right size.'
  1937. if pcs_lip < lipsPrefMin:
  1938. 'He tells you that you should get lip injections.'
  1939. else
  1940. 'He tells you that you should have lip reduction.'
  1941. end
  1942. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1943. act '"My lips are fine the way they are!", you say slightly offended':
  1944. cla
  1945. cls
  1946. loverrelation[lover_number] -= 3
  1947. '<<$loverdesc[lover_number]>> tries to push you to change your lip size, but you are not that submissive to be pressured by him, nor do your emotions make you make a choice you may regret.'
  1948. dynamic $go_home
  1949. end
  1950. act 'Go with him':
  1951. gt 'boy_likes', 'changeLips'
  1952. end
  1953. exit
  1954. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1955. act 'You think to yourself, its not like I like him THAT much to get work done on my lips':
  1956. cla
  1957. pcs_dom += 1
  1958. loverrelation[lover_number] -=3
  1959. '<<$loverdesc[lover_number]>> he realizes you adoration for him isn''t enough to pressure you to get work done on your lips. He tells you he has something to do and heads off.'
  1960. dynamic $go_home
  1961. end
  1962. exit
  1963. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1964. act 'Your personality is not something that can be dominated that easily, and you brush him off, telling him that you decide what size lips you look good with':
  1965. cla
  1966. pcs_dom += 1
  1967. loverrelation[lover_number] -=3
  1968. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to himself.'
  1969. dynamic $go_home
  1970. end
  1971. exit
  1972. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1973. act 'You squeek, "But I like the size of my lips..."':
  1974. cla
  1975. loverrelation[lover_number] -= 2
  1976. wantRand = rand(0, 100)
  1977. wantRand -= 4*loverscompliance[lover_number]
  1978. if wantRand > sub:
  1979. cla
  1980. '<<$loverdesc[lover_number]>> tries to push you to change the size, but you successfully tell him that you do not want to. This makes him rather upset.'
  1981. ''
  1982. dynamic $go_home
  1983. exit
  1984. elseif wantRand <= sub:
  1985. cla
  1986. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeaner, and you give in. He grins widely and takes you to the clinic.'
  1987. sub += 4
  1988. loverrelation[lover_number] += 5
  1989. act 'Go to the clinic':
  1990. gt 'boy_likes', 'changeLips'
  1991. end
  1992. exit
  1993. end
  1994. end
  1995. end
  1996. elseif tits < titMin or tits > titMax and titsDay <= loverdays[lover_number]:
  1997. '<<$loverdesc[lover_number]>> tells you your breasts are just not right.'
  1998. if tits < titMin:
  1999. 'He tells you that you should get breast implants.'
  2000. else
  2001. 'He tells you that you should have a breast reduction.'
  2002. end
  2003. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  2004. act '"My breasts are fine the way they are!", you say slightly offended':
  2005. cla
  2006. cls
  2007. loverrelation[lover_number] -= 3
  2008. '<<$loverdesc[lover_number]>> tries to push you to change your breast size, but you are not that submissive to be pressured by him, nor do your emotions make you make a choice you may regret.'
  2009. dynamic $go_home
  2010. end
  2011. act 'Go with him':
  2012. gt 'boy_likes', 'changeTits'
  2013. end
  2014. exit
  2015. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  2016. act 'You think to yourself, its not like I like him THAT much to get work done on my breasts':
  2017. cla
  2018. pcs_dom += 1
  2019. loverrelation[lover_number] -=3
  2020. '<<$loverdesc[lover_number]>> he realizes you adoration for him isn''t enough to pressure you to get work done on your breasts. He tells you he has something to do and heads off.'
  2021. dynamic $go_home
  2022. end
  2023. exit
  2024. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  2025. act 'Your personality is not something that can be dominated that easily, and you brush him off, telling him that you decide what size breasts you look good with':
  2026. cla
  2027. pcs_dom += 1
  2028. loverrelation[lover_number] -=3
  2029. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to himself.'
  2030. dynamic $go_home
  2031. end
  2032. exit
  2033. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  2034. act 'You squeek, "But I like the size of my breasts..."':
  2035. cla
  2036. loverrelation[lover_number] -= 2
  2037. wantRand = rand(0, 100)
  2038. wantRand -= 4*loverscompliance[lover_number]
  2039. if wantRand > sub:
  2040. cla
  2041. '<<$loverdesc[lover_number]>> tries to push you to change the size, but you successfully tell him that you do not want to. This makes him rather upset.'
  2042. ''
  2043. dynamic $go_home
  2044. exit
  2045. elseif wantRand <= sub:
  2046. cla
  2047. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeaner, and you give in. He grins widely and takes you to the clinic.'
  2048. sub += 4
  2049. loverrelation[lover_number] += 5
  2050. act 'Go to the clinic':
  2051. gt 'boy_likes', 'changeTits'
  2052. end
  2053. exit
  2054. end
  2055. end
  2056. end
  2057. elseif salocatnow > figurePrefMax and figureDay <= loverdays[lover_number]:
  2058. '<<$loverdesc[lover_number]>> tells you your body is just too thick.'
  2059. 'He offers to pay for you to get lyposuction.'
  2060. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  2061. act '"My body weight is fine the way it is!", you say slightly offended':
  2062. cla
  2063. cls
  2064. loverrelation[lover_number] -= 3
  2065. '<<$loverdesc[lover_number]>> tries to push you to change your body weight, but you are not that submissive to be pressured by him, nor do your emotions make you make a choice you may regret.'
  2066. dynamic $go_home
  2067. end
  2068. act 'Go with him':
  2069. gt 'boy_likes', 'changeFigure'
  2070. end
  2071. exit
  2072. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  2073. act 'You think to yourself, its not like I like him THAT much to get lyposuction':
  2074. cla
  2075. pcs_dom += 1
  2076. loverrelation[lover_number] -=3
  2077. '<<$loverdesc[lover_number]>> he realizes you adoration for him isn''t enough to pressure you to get work done on your weight. He tells you he has something to do and heads off.'
  2078. dynamic $go_home
  2079. end
  2080. exit
  2081. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  2082. act 'Your personality is not something that can be dominated that easily, and you brush him off, telling him that you decide what size your body looks good at':
  2083. cla
  2084. pcs_dom += 1
  2085. loverrelation[lover_number] -=3
  2086. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to himself.'
  2087. dynamic $go_home
  2088. end
  2089. exit
  2090. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  2091. act 'You squeek, "But I like being this weight..."':
  2092. cla
  2093. loverrelation[lover_number] -= 2
  2094. wantRand = rand(0, 100)
  2095. wantRand -= 4*loverscompliance[lover_number]
  2096. if wantRand > sub:
  2097. cla
  2098. '<<$loverdesc[lover_number]>> tries to push you to change your weight, but you successfully tell him that you do not want to. This makes him rather upset.'
  2099. ''
  2100. dynamic $go_home
  2101. exit
  2102. elseif wantRand <= sub:
  2103. cla
  2104. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeaner, and you give in. He grins widely and takes you to the clinic.'
  2105. sub += 4
  2106. loverrelation[lover_number] += 5
  2107. act 'Go to the clinic':
  2108. gt 'boy_likes', 'changeFigure'
  2109. end
  2110. exit
  2111. end
  2112. end
  2113. end
  2114. else
  2115. '"Erm... Nothing..."'
  2116. act '"Well then..."':
  2117. *clr
  2118. xgt 'meet', 'actions'
  2119. exit
  2120. end
  2121. end
  2122. elseif randchan = 1:
  2123. '<<$loverdesc[lover_number]>> suggests that you go to a cafe.'
  2124. act 'Sorry, but I need to leave':
  2125. cla
  2126. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  2127. dynamic $go_home
  2128. end
  2129. act 'Go with him':gt 'kafeM', 'start'
  2130. exit
  2131. elseif randchan = 2:
  2132. '<<$loverdesc[lover_number]>> suggests that you go to a restaurant.'
  2133. act 'Sorry, but I need to leave':
  2134. cla
  2135. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  2136. dynamic $go_home
  2137. end
  2138. act 'Go with him':gt 'restoranM', 'start'
  2139. exit
  2140. elseif randchan = 3:
  2141. '<<$loverdesc[lover_number]>> suggests that you go to the movies.'
  2142. act 'Sorry, but I need to go':
  2143. cla
  2144. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  2145. dynamic $go_home
  2146. end
  2147. act 'Go with him':gt 'kinoM', 'start'
  2148. exit
  2149. end
  2150. end
  2151. end
  2152. act 'I want to do something today':
  2153. cla
  2154. randchan = rand(0, 1)
  2155. if randchan = 0:
  2156. pcs_dom += 1
  2157. end
  2158. '"What do you want to do?", he asks'
  2159. act '"Lets go just relax in the stairwell and drink some beer."':
  2160. act 'Go with him':gt 'podezdM', 'start'
  2161. end
  2162. act '"Lets take a walk in the park"':
  2163. act 'Go with him':gt 'parkM', 'start'
  2164. end
  2165. act '"Lets go see a movie"':
  2166. act 'Go with him':gt 'kinoM', 'start'
  2167. end
  2168. act '"Lets go to the cafe."':
  2169. act 'Go with him':gt 'kafeM', 'start'
  2170. end
  2171. act 'Never mind...':
  2172. gt 'meet', 'actions'
  2173. exit
  2174. end
  2175. end
  2176. act 'I think we should break up...':
  2177. cla
  2178. 'He looks hurt, but you insist it is for the best. You both say goodbye and part ways.'
  2179. gs 'boyfrend','remove',lover_number
  2180. act 'Continue':
  2181. dynamic $go_home
  2182. exit
  2183. end
  2184. end
  2185. end
  2186. --- meet ---------------------------------