meet 86 KB

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