meet 76 KB

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