meet 77 KB

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