meet 77 KB

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