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