meet 77 KB

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