1
0

lover_meet.qsrc 87 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842
  1. # lover_meet
  2. if $ARGS[0] = 'start':
  3. menu_off = 1
  4. $location_type = 'event'
  5. minut += 15
  6. loverdays[lover_number] += 1
  7. svidanie[lover_number] = 0
  8. giftNum = giftNum[lover_number]
  9. gs 'themes', 'indoors'
  10. gs 'lover_pronouns'
  11. gs 'lover_pref'
  12. gs 'stat'
  13. !!This keeps track in the change action what it plans to change
  14. $changeFind = ''
  15. !!How many days until the lover starts to comment.
  16. clotDay = 3
  17. bodyDay = 7
  18. !!How many days until they want you to change.
  19. pierDay = 7
  20. tattDay = 7
  21. lipsDay = 9
  22. titsDay = 12
  23. figureDay = 15
  24. !! This is the start of the usual talk
  25. !!character 0 - soft, 1 -norm 2 - aggressor
  26. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  27. if haraklover[lover_number] = 0:
  28. if loverrelation[lover_number] > 70:
  29. randchan = rand(0, 2)
  30. if randchan = 0:
  31. $greet = 'says with love in <<$tXyr>> eyes, "Hey <<$pcs_nickname>>."'
  32. elseif randchan = 1:
  33. $greet = 'says lovingly, "Hello love. I''m glad so see you."'
  34. elseif randchan = 2:
  35. $greet = 'says quietly while looking into your eyes, "Hello love." '
  36. end
  37. elseif loverrelation[lover_number] > 20:
  38. randchan = rand(0, 1)
  39. if randchan = 0:
  40. $greet = 'says with a faint smile,"Hey <<$pcs_nickname>>."'
  41. elseif randchan = 1:
  42. $greet = 'says with a smile , "Hi <<$pcs_nickname>>."'
  43. end
  44. else
  45. $greet = 'says, "Hi <<$pcs_firstname>>."'
  46. end
  47. end
  48. if haraklover[lover_number] = 1:
  49. if loverrelation[lover_number] > 70:
  50. randchan = rand(0, 2)
  51. if randchan = 0:
  52. $greet = 'says, "Hey love. I am so happy to see you."'
  53. elseif randchan = 1:
  54. $greet = 'says intimately, "Hello my angel."'
  55. elseif randchan = 2:
  56. $greet = 'says while admiring you, "Hello <<$pcs_nickname>> beautiful."'
  57. end
  58. elseif loverrelation[lover_number] > 20:
  59. randchan = rand(0, 1)
  60. if randchan = 0:
  61. $greet = 'says with a smile, "Hey <<$pcs_nickname>>, glad to see you."'
  62. elseif randchan = 1:
  63. $greet = 'says with a soft tone, "Hello beautiful."'
  64. end
  65. else
  66. $greet = 'says, "Hello <<$pcs_nickname>>."'
  67. end
  68. end
  69. if haraklover[lover_number] = 2:
  70. if loverrelation[lover_number] > 70:
  71. randchan = rand(0, 2)
  72. if randchan = 0:
  73. $greet = 'says with a loving voice, "Theres my sexy gal."'
  74. elseif randchan = 1:
  75. $greet = 'says with a toothful grin, "There is my goddess."'
  76. elseif randchan = 2:
  77. $greet = 'says with a rather loud enduring voice, "Hey babe!"'
  78. end
  79. elseif loverrelation[lover_number] > 20:
  80. randchan = rand(0, 1)
  81. if randchan = 0:
  82. $greet = 'says with a grin, "Hey <<$pcs_nickname>>."'
  83. elseif randchan = 1:
  84. $greet = 'says with a chuckle, "Hey''ya <<$pcs_nickname>>."'
  85. end
  86. else
  87. $greet = 'says, "Hey <<$pcs_nickname>>."'
  88. end
  89. end
  90. gs 'lover_love'
  91. !! QUEST VARIABLES!!! WOOOT ALMOST TIME!
  92. didPushAway = 0
  93. !!How beautiful you are
  94. if pcs_skin < 20:
  95. loverrelation[lover_number] -= 2 & $meetskin = 'looking at <<$tXyr>> feet'
  96. elseif pcs_skin < 40:
  97. loverrelation[lover_number] -= 1 & $meetskin = 'giving you a quick glance'
  98. elseif pcs_skin < 60:
  99. $meetskin = 'looking at you'
  100. elseif pcs_skin < 80:
  101. loverrelation[lover_number] += 1 & $meetskin = 'smiling at you'
  102. else
  103. loverrelation[lover_number] += 2 & $meetskin = 'smiling at you'
  104. end
  105. !! Your lip size
  106. if pcs_lip = 0:$meetlip = 'thin lips'
  107. if pcs_lip = 1:$meetlip = 'soft lips'
  108. if pcs_lip = 2:$meetlip = 'plump lips'
  109. if pcs_lip = 3:$meetlip = 'large, plump lips'
  110. if pcs_lip = 4:$meetlip = 'thick and huge lips'
  111. if loverfinance[lover_number] = 0:$clom = 'dressed in a tracksuit.'
  112. if loverfinance[lover_number] = 1:$clom = 'dressed in jeans and a sweater.'
  113. if loverfinance[lover_number] = 2 and loverGender[lover_number] = 0:$clom = 'dressed in a respectable and expensive jacket.'
  114. if loverfinance[lover_number] = 2 and loverGender[lover_number] = 1:$clom = 'dressed in a beautiful and expensive dress.'
  115. !!Greeting start
  116. 'At the entrance <<$meetskin>> stands <<$loverdesc[lover_number]>>. <<$tXec>> comes over to you and <<$greet>>'
  117. gs 'lover_likes', 'hairPref'
  118. gs 'lover_likes', 'makePrefTmp'
  119. if haraklover[lover_number] = 0:'<<$loverdesc[lover_number]>> looks like a timid and not very confident young <<$loverGenderName>> <<$clom>>'
  120. if haraklover[lover_number] = 1:'<<$loverdesc[lover_number]>> looks like an average young <<$loverGenderName>> <<$clom>>'
  121. if haraklover[lover_number] = 2:'<<$loverdesc[lover_number]>> looks like a cocky and brash young <<$loverGenderName>> <<$clom>>'
  122. !!This is to reset the like part later
  123. likeCount = 0
  124. like1 = 99
  125. like2 = 99
  126. like3 = 99
  127. !! This is the greeting kissy part
  128. if haraklover[lover_number] >= 0:
  129. if loverrelation[lover_number] > -20:
  130. loverrelation[lover_number] += 0
  131. '<<$loverdesc[lover_number]>> gets close to you, and you can tell by <<$tXyr>> body movements <<$tXe>> wants to kiss you.'
  132. act 'Kiss with tongue':
  133. *clr & cla
  134. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  135. 'You take the initiative and when <<$tXe>> opens <<$tXyr>> mouth you thrust your tongue into <<$tXyr>> mouth.'
  136. gs 'arousal', 'kiss', 5
  137. pcs_dom += 1
  138. pcs_mood += 10
  139. gs 'stat'
  140. if venera > 4:
  141. gs 'lover', 'remove', lover_number
  142. '<<$loverdesc[lover_number]>> 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."'
  143. pcs_mood -= 20
  144. dynamic $go_home
  145. exit
  146. elseif venera < 4 and cumloc[11] = 0 and (cumloc[6] = 0 and cumloc[7] = 0):
  147. if haraklover[lover_number] = 0:
  148. loverrelation[lover_number] += 2
  149. 'Normally this would have made <<$tXem>> feel uncomfortable, but as you pull away <<$tXe>> smiles and sighs contently.'
  150. elseif haraklover[lover_number] = 1:
  151. loverrelation[lover_number] += 1
  152. '<<$tXec>> goes with it a blink and in moments your tongues are intertwined.'
  153. elseif haraklover[lover_number] = 2:
  154. 'It seems as <<$loverdesc[lover_number]>> had the same idea, as <<$tXe>> pushes <<$tXyr>> tongue into your mouth as much as you push into <<$tXyr>>.'
  155. loverrelation[lover_number] += 2
  156. else
  157. 'This should not fire off at all: TongueKiss'
  158. end
  159. elseif (cumloc[11] = 1 or cumloc[6] = 1 or cumloc[7] = 1) and pervConstant = 1 and loverGender[lover_number] = 0:
  160. if cumloc[11] = 1:
  161. if haraklover[lover_number] = 0:
  162. loverrelation[lover_number] += 2
  163. pcs_horny += 5
  164. '<<$tXec>> can see sperm on your face, but underneath <<$tXyr>> shy demener you know that it only turns <<$tXem>> on.'
  165. elseif haraklover[lover_number] = 1:
  166. loverrelation[lover_number] += 2
  167. pcs_horny += 5
  168. '<<$tXec>> can see sperm on your face, but you know that it only turns <<$tXem>> on more.'
  169. elseif haraklover[lover_number] = 2:
  170. '<<$tXec>> can see sperm on your face, but by the bulge in <<$tXyr>> pants you know it only turns <<$tXem>> on.'
  171. end
  172. elseif (cumloc[6] = 1 or cumloc[7] = 1):
  173. if haraklover[lover_number] = 0:
  174. loverrelation[lover_number] += 2
  175. pcs_horny += 5
  176. '<<$tXec>> can see sperm on your ass, but underneath <<$tXyr>> shy demener you know that it only turns <<$tXem>> on.'
  177. elseif haraklover[lover_number] = 1:
  178. loverrelation[lover_number] += 2
  179. pcs_horny += 5
  180. '<<$tXec>> can see sperm on your ass, but you know that it only turns <<$tXem>> on more.'
  181. elseif haraklover[lover_number] = 2:
  182. loverrelation[lover_number] += 3
  183. pcs_horny += 5
  184. '<<$tXec>> can see sperm on your ass, but by the bulge in <<$tXyr>> pants you know it only turns <<$tXem>> on.'
  185. end
  186. end
  187. elseif (cumloc[11] = 1 or cumloc[6] = 1 or cumloc[7] = 1) and (pervConstant ! 1 or loverGender[lover_number] = 0):
  188. if cumloc[11] = 1:
  189. gs 'lover', 'remove', lover_number
  190. '<<$tXec>> notices the sperm on your face, "H-Hey- <<$pcs_firstname>>! What the...?! You dirty whore!", <<$tXe>> then pushes you out of <<$tXyr>> face. "We are through, I don''t want to see your face again!'
  191. pcs_mood -= 20
  192. dynamic $go_home
  193. exit
  194. elseif (cumloc[6] = 1 or cumloc[7] = 1):
  195. loverrelation[lover_number] += 2
  196. '<<$tXec>> notices the sperm on your ass, "<<$pcs_firstname>>! What the...?! You dirty whore!", <<$tXe>> then pushes you away. "We are through, I don''t want to see your face again!'
  197. pcs_mood -= 20
  198. dynamic $go_home
  199. exit
  200. end
  201. end
  202. act 'Continue': xgt 'lover_meet', 'likes'
  203. end
  204. act 'Kiss with lips':
  205. *clr & cla
  206. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  207. 'You press your <<$meetlip>> softly against <<$tXyr>>, and for a split second time seems to stop.'
  208. pcs_mood += 10
  209. if cumloc[11] = 0 and (cumloc[6] = 0 and cumloc[7] = 0):
  210. if haraklover[lover_number] = 0:
  211. loverrelation[lover_number] += 2
  212. '<<$tXec>> wraps arms around you, you both stay like this for at least a couple of seconds and as you pull away <<$tXe>> looks into your eyes and smiles.'
  213. gs 'arousal', 'kiss', 5
  214. gs 'stat'
  215. elseif haraklover[lover_number] = 1:
  216. loverrelation[lover_number] += 2
  217. '<<$tXec>> kisses you back with such skill it turns you on.'
  218. gs 'arousal', 'kiss', 5
  219. gs 'stat'
  220. elseif haraklover[lover_number] = 2:
  221. loverrelation[lover_number] += 2
  222. '<<$tXec>> kisses you back with such passion you feel a tingle within you.'
  223. gs 'arousal', 'kiss', 5
  224. gs 'stat'
  225. end
  226. elseif (cumloc[11] = 1 or cumloc[6] = 1 or cumloc[7] = 1 or cumloc[12] = 1) and pervConstant = 1:
  227. if cumloc[11] = 1:
  228. if haraklover[lover_number] = 0:
  229. loverrelation[lover_number] += 2
  230. pcs_horny += 5
  231. '<<$tXec>> can see sperm on your face, but underneath <<$tXyr>> shy demener you know that it only turns <<$tXem>> on.'
  232. elseif haraklover[lover_number] = 1:
  233. loverrelation[lover_number] += 2
  234. pcs_horny += 5
  235. '<<$tXec>> can see sperm on your face, but you know that it only turns <<$tXem>> on more.'
  236. elseif haraklover[lover_number] = 2:
  237. loverrelation[lover_number] += 3
  238. pcs_horny += 5
  239. '<<$tXec>> can see sperm on your face, but by the bulge in <<$tXyr>> pants you know it only turns <<$tXem>> on.'
  240. end
  241. elseif (cumloc[6] = 1 or cumloc[7] = 1):
  242. if haraklover[lover_number] = 0:
  243. loverrelation[lover_number] += 2
  244. pcs_horny += 5
  245. '<<$tXec>> can see sperm on your ass, but underneath <<$tXyr>> shy demener you know that it only turns <<$tXem>> on.'
  246. elseif haraklover[lover_number] = 1:
  247. loverrelation[lover_number] += 2
  248. pcs_horny += 5
  249. '<<$tXec>> can see sperm on your ass, but you know that it only turns <<$tXem>> on more.'
  250. elseif haraklover[lover_number] = 2:
  251. loverrelation[lover_number] += 3
  252. pcs_horny += 5
  253. '<<$tXec>> can see sperm on your ass, but by the bulge in <<$tXyr>> pants you know it only turns <<$tXem>> on.'
  254. end
  255. elseif cumloc[12] = 1:
  256. if haraklover[lover_number] = 0:
  257. loverrelation[lover_number] += 2
  258. pcs_horny += 5
  259. '<<$tXec>> can smell the scent of sperm on you, but underneath <<$tXyr>> shy demener you know that it only turns <<$tXem>> on.'
  260. elseif haraklover[lover_number] = 1:
  261. loverrelation[lover_number] += 2
  262. pcs_horny += 5
  263. '<<$tXec>> can smell the scent of sperm on you, but you know that it only turns <<$tXem>> on more.'
  264. elseif haraklover[lover_number] = 2:
  265. loverrelation[lover_number] += 3
  266. pcs_horny += 5
  267. '<<$tXec>> can smell the scent of sperm on you, but you know by the bulge in <<$tXyr>> pants it only turns <<$tXem>> on more.'
  268. end
  269. end
  270. else
  271. if (cumloc[11] = 1 or cumloc[6] = 1 or cumloc[7] = 1) and pervConstant ! 1:
  272. if cumloc[11] = 1:
  273. gs 'lover', 'remove', lover_number
  274. '<<$tXec>> notices the sperm on your face, "<<$pcs_firstname>>! What the...?! You dirty whore!", <<$tXe>> then pushes you out of <<$tXyr>> face. "We are through, I don''t want to see your face again!'
  275. pcs_mood -= 20
  276. dynamic $go_home
  277. exit
  278. elseif (cumloc[6] = 1 or cumloc[7] = 1):
  279. gs 'lover', 'remove', lover_number
  280. '<<$tXec>> notices the sperm on your ass, "<<$pcs_firstname>>! What the...?! You dirty whore!", <<$tXe>> then pushes you away. "We are through, I don''t want to see your face again!'
  281. pcs_mood -= 20
  282. dynamic $go_home
  283. exit
  284. end
  285. end
  286. end
  287. act 'Continue': xgt 'lover_meet', 'likes'
  288. end
  289. act 'Hint for a kiss on the cheek':
  290. *clr & cla
  291. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  292. 'You make a cute pouty face and turn your cheek toward <<$loverdesc[lover_number]>>. <<$tXec>> understands and though <<$tXe>> wanted to kiss you, <<$tXe>> settles with giving you a peck on the cheek'
  293. pcs_mood += 10
  294. if cumloc[11] = 0 and (cumloc[6] = 0 and cumloc[7] = 0):
  295. if haraklover[lover_number] = 0:
  296. loverrelation[lover_number] += 2
  297. '<<$tXec>> gives you a soft kiss on the cheek, and you can tell <<$tXe>> finds this act very cute.'
  298. gs 'arousal', 'kiss', 5
  299. gs 'stat'
  300. elseif haraklover[lover_number] = 1:
  301. loverrelation[lover_number] += 1
  302. '<<$tXec>> kisses you on the cheek and before <<$tXe>> pulls away you feel a quick kiss on the forhead.'
  303. gs 'arousal', 'kiss', 5
  304. gs 'stat'
  305. elseif haraklover[lover_number] = 2:
  306. loverrelation[lover_number] += 0
  307. 'Though you can tell <<$tXe>> is a bit disappointed, <<$tXe>> gives you a kiss on the cheek. As <<$tXe>> pulls away <<$tXe>> gives your ass a quick squeeze.'
  308. gs 'arousal', 'kiss', 5
  309. gs 'stat'
  310. end
  311. elseif (cumloc[11] = 1 or cumloc[6] = 1 or cumloc[7] = 1 or cumloc[12] = 1) and pervConstant = 1:
  312. if cumloc[11] = 1:
  313. if haraklover[lover_number] = 0:
  314. loverrelation[lover_number] += 2
  315. pcs_horny += 5
  316. '<<$tXec>> can see sperm on your face, but underneath <<$tXyr>> shy demener you know that it only turns <<$tXem>> on.'
  317. elseif haraklover[lover_number] = 1:
  318. loverrelation[lover_number] += 2
  319. pcs_horny += 5
  320. '<<$tXec>> can see sperm on your face, but you know that it only turns <<$tXem>> on more.'
  321. elseif haraklover[lover_number] = 2:
  322. loverrelation[lover_number] += 3
  323. pcs_horny += 5
  324. '<<$tXec>> can see sperm on your face, but by the bulge in <<$tXyr>> pants you know it only turns <<$tXem>> on.'
  325. end
  326. elseif (cumloc[6] = 1 or cumloc[7] = 1):
  327. if haraklover[lover_number] = 0:
  328. loverrelation[lover_number] += 1
  329. pcs_horny += 5
  330. '<<$tXec>> can see sperm on your ass, but underneath <<$tXyr>> shy demener you know that it only turns <<$tXem>> on.'
  331. elseif haraklover[lover_number] = 1:
  332. loverrelation[lover_number] += 1
  333. pcs_horny += 5
  334. '<<$tXec>> can see sperm on your ass, but you know that it only turns <<$tXem>> on more.'
  335. elseif haraklover[lover_number] = 2:
  336. loverrelation[lover_number] += 1
  337. pcs_horny += 5
  338. '<<$tXec>> can see sperm on your ass, but by the bulge in <<$tXyr>> pants you know it only turns <<$tXem>> on.'
  339. end
  340. end
  341. elseif (cumloc[11] = 1 or cumloc[6] = 1 or cumloc[7] = 1) and pervConstant ! 1:
  342. if cumloc[11] = 1:
  343. gs 'lover', 'remove', lover_number
  344. '<<$tXec>> notices the sperm on your face, "H-Hey- <<$pcs_firstname>>! What the...?! You dirty whore!", <<$tXe>> then pushes you out of <<$tXyr>> face. "We are through, I don''t want to see your face again!'
  345. pcs_mood -= 20
  346. dynamic $go_home
  347. exit
  348. elseif (cumloc[6] = 1 or cumloc[7] = 1):
  349. gs 'lover', 'remove', lover_number
  350. '<<$tXec>> notices the sperm on your ass, "H-Hey- <<$pcs_firstname>>! What the...?! You dirty whore!", <<$tXe>> then pushes you away. "We are through, I don''t want to see your face again!'
  351. pcs_mood -= 20
  352. dynamic $go_home
  353. exit
  354. elseif (cumloc[6] = 1 or cumloc[7] = 1):
  355. gs 'lover', 'remove', lover_number
  356. '<<$tXec>> realizes your mouth smells like sperm, "H-Hey- <<$pcs_firstname>>! What the...?! You dirty whore!", <<$tXe>> then pushes you away. "We are through, I don''t want to see your face again!"'
  357. pcs_mood -= 20
  358. dynamic $go_home
  359. exit
  360. end
  361. end
  362. act 'Continue': xgt 'lover_meet', 'likes'
  363. end
  364. act 'Push <<$tXyr>> face away':
  365. *clr & cla
  366. didPushAway = 1
  367. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  368. 'Maybe you had a bad day, maybe you don''t want a kiss, you rudely push <<$tXyr>> face away, and by the looks of it, hurting <<$tXyr>> feelings in the process.'
  369. if haraklover[lover_number] = 0:
  370. loverrelation[lover_number] -= 7
  371. '<<$tXec>> stands there slightly embarrassed, and you can tell this hurt your relationship a good amount.'
  372. elseif haraklover[lover_number] = 1:
  373. loverrelation[lover_number] -= 5
  374. '<<$tXec>> looks at you slightly concerned, but backs off and gives you your space.'
  375. elseif haraklover[lover_number] = 2:
  376. loverrelation[lover_number] -= 10
  377. '<<$tXec>> begins to get angry, <<$tXe>> takes a deep breath and gives you space.'
  378. end
  379. act 'Continue': xgt 'lover_meet', 'likes'
  380. end
  381. end
  382. end
  383. end
  384. if $ARGS[0] = 'likes':
  385. cla
  386. if loverdays[lover_number] >= clotDay:
  387. gs 'lover_likes', 'clothesPref'
  388. end
  389. if loverdays[lover_number] >= bodyDay:
  390. gs 'lover_likes', 'bodyPrefTmp'
  391. end
  392. xgt 'lover_meet', 'actions'
  393. end
  394. if $ARGS[0] = 'actions':
  395. act 'Can I ask you how you think I look?':
  396. *clr & cla
  397. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  398. '<<$loverdesc[lover_number]>> says "If you insist" and tells you exactly how <<$tXe>> thinks you look based on what <<$tXe>> likes:'
  399. gs 'lover_likes', 'allPref'
  400. act 'Okay, lets talk about something else': xgt 'lover_meet', 'actions'
  401. end
  402. act 'What do you want to do today?':
  403. *clr & cla
  404. if rand(0,1) = 0: sub += 1
  405. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  406. 'You tell <<$tXem>> you would rather <<$tXem>> decide what we do today.'
  407. if haraklover[lover_number] = 0:
  408. loverrelation[lover_number] += 0
  409. 'Not used to being given the opportunity to choose, <<$tXe>> thinks what to do...'
  410. elseif haraklover[lover_number] = 1:
  411. loverrelation[lover_number] += 0
  412. '<<$tXec>> thinks about what to do today.'
  413. elseif haraklover[lover_number] = 2:
  414. loverrelation[lover_number] += 1
  415. 'You can tell <<$tXe>> is happy you gave <<$tXem>> the ability to choose what to do today.'
  416. end
  417. !!This is the choice maker!
  418. if loverfinance[lover_number] = 0:
  419. !! 0 - change player, 1 - beer in stairwell, 2 - walk in park,
  420. randchan = rand(0, 2)
  421. !! 1 = does like, 0 = not like
  422. if (pierWearCount >= pierPrefTmpMin and pierWearCount <= pierPrefTmpMax) or pierPrefTmp = 0:
  423. pierCheck = 1
  424. else
  425. pierCheck = 0
  426. end
  427. if (tattCount >= tattPrefTmpMin and tattCount <= tattPrefTmpMax) or tattPrefTmp = 0:
  428. tattCheck = 1
  429. else
  430. tattCheck = 0
  431. end
  432. if (makeupSetting = makePrefTmp) or makePrefTmp = 0:
  433. makeupCheck = 1
  434. else
  435. makeupCheck = 0
  436. end
  437. if pcs_haircol = hairPref:
  438. hairCheck = 1
  439. else
  440. hairCheck = 0
  441. end
  442. if (pierWearCount >= pierPrefTmpMin and pierWearCount <= pierPrefTmpMax) or pierPrefTmp = 0:
  443. pierCheck = 1
  444. else
  445. pierCheck = 0
  446. end
  447. if (tattCount >= tattPrefTmpMin and tattCount <= tattPrefTmpMax) or tattPrefTmp = 0:
  448. tattCheck = 1
  449. else
  450. tattCheck = 0
  451. end
  452. if randchan = 0 and (pierCheck + tattCheck + makeupCheck + hairCheck) = 4: randchan = rand(1, 2)
  453. if randchan = 0:
  454. *clr & cla
  455. !!Some things you can change.
  456. !!loverfinance[lover_number] = 0 - hair, makeup, tattoo, piercings.
  457. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  458. if haraklover[lover_number] = 0:
  459. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  460. elseif haraklover[lover_number] = 1:
  461. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  462. elseif haraklover[lover_number] = 2:
  463. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  464. end
  465. '"Whats up <<$loverdesc[lover_number]>>?"'
  466. '"There is just a trait about you that bugs me, can we change that?"'
  467. if loverscompliance[lover_number] > 0: 'You know you have changed for <<$tXem>> before, and you want to avoid to changing into something you are not.'
  468. gs 'lover_likes', 'compliance'
  469. '"And what did you want to change about me?"'
  470. !!This is to make a last check on how many piercings they are WEARING
  471. gs 'lover_likes', 'checkPier'
  472. if pcs_haircol ! hairPref:
  473. *clr & cla
  474. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  475. '<<$loverdesc[lover_number]>> looks at your hair and says, "can we get your hair dyed?"'
  476. !!act 'I''d rather not...':
  477. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  478. act 'I like my hair just the way it is':
  479. *clr & cla
  480. loverrelation[lover_number] -= 3
  481. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  482. '<<$loverdesc[lover_number]>> tries to push you to change it, but you are not that submissive to be pressured by <<$tXem>>, nor do your emotions make you make a choice you may regret.'
  483. dynamic $go_home
  484. end
  485. act 'Go with <<$tXem>>': gt 'lover_change', 'Hair'
  486. exit
  487. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  488. act 'You think to yourself, its not like I like <<$tXem>> THAT much...':
  489. *clr & cla
  490. pcs_dom += 1
  491. loverrelation[lover_number] -=3
  492. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  493. '<<$loverdesc[lover_number]>> <<$tXe>> realizes you adoration for <<$tXem>> isn''t enough to pressure you to do that. <<$tXec>> tells you <<$tXe>> has something to do and heads off'
  494. dynamic $go_home
  495. end
  496. exit
  497. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  498. act 'Your personality is not something that can be dominated that easily, and you brush <<$tXem>> off, telling <<$tXem>> you are who you are':
  499. *clr & cla
  500. pcs_dom += 1
  501. loverrelation[lover_number] -=3
  502. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  503. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  504. dynamic $go_home
  505. end
  506. act 'Go with <<$tXem>>': gt 'lover_change', 'Hair'
  507. exit
  508. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  509. act 'You mumble "I would rather not..."':
  510. *clr & cla
  511. loverrelation[lover_number] -= 2
  512. wantRand = rand(0, 100)
  513. wantRand -= 4*loverscompliance[lover_number]
  514. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  515. if wantRand > sub:
  516. '<<$loverdesc[lover_number]>> tries to push you to change it, but you successfully inform <<$tXem>> that you do not want to. This makes <<$tXem>> rather upset.'
  517. *nl
  518. dynamic $go_home
  519. elseif wantRand <= sub:
  520. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeanor, and you give in. <<$tXec>> smiles happily and takes you to the salon.'
  521. sub += 2
  522. loverrelation[lover_number] += 5
  523. act 'Go to Salon': gt 'lover_change', 'Hair'
  524. end
  525. end
  526. act 'Go with <<$tXem>>': gt 'lover_change', 'Hair'
  527. end
  528. elseif makeupSetting ! makePrefTmp and makePrefTmp ! 0:
  529. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  530. '<<$loverdesc[lover_number]>> thinks about it and says "Can you wear <<$makePrefTmp>> from now on?"'
  531. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  532. act 'I like my makeup just the way it is':
  533. *clr & cla
  534. loverrelation[lover_number] -= 3
  535. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  536. '<<$loverdesc[lover_number]>> tries to push you to change it, but you are not that submissive to be pressured by <<$tXem>>, nor do your emotions make you make a choice you may regret.'
  537. dynamic $go_home
  538. end
  539. act 'Agree to change the makeup you usually wear': gt 'lover_change', 'Make'
  540. exit
  541. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  542. act 'You think to yourself, its not like I like <<$tXem>> THAT much...':
  543. *clr & cla
  544. pcs_dom += 1
  545. loverrelation[lover_number] -=3
  546. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  547. '<<$loverdesc[lover_number]>> <<$tXe>> realizes you adoration for <<$tXem>> isn''t enough to pressure you to do that. You can tell that <<$tXe>> is bummed when <<$tXe>> tells you <<$tXe>> has something to do and heads off.'
  548. dynamic $go_home
  549. end
  550. exit
  551. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  552. act 'Your personality is not something that can be dominated that easily, and you brush <<$tXem>> off, telling <<$tXem>> you like the makeup you usually wear':
  553. *clr & cla
  554. pcs_dom += 1
  555. loverrelation[lover_number] -=3
  556. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  557. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  558. dynamic $go_home
  559. end
  560. act 'Agree to change the makeup you usually wear': gt 'lover_change', 'Make'
  561. exit
  562. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  563. act 'You mumble "What''s wrong with my makeup...?"':
  564. *clr & cla
  565. loverrelation[lover_number] -= 2
  566. wantRand = rand(0, 100)
  567. wantRand -= 4*loverscompliance[lover_number]
  568. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  569. if wantRand > sub:
  570. '<<$loverdesc[lover_number]>> tries to push you to change it, but you successfully inform <<$tXem>> that you do not want to. This makes <<$tXem>> rather upset.'
  571. *nl
  572. dynamic $go_home
  573. elseif wantRand <= sub:
  574. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeanor, and you give in. You tell <<$tXem>> from now on you will wear <<$makePrefTmp>>.'
  575. sub += 2
  576. loverrelation[lover_number] += 5
  577. act 'Continue': gt 'lover_change', 'Make'
  578. end
  579. end
  580. act 'Agree to change the makeup you usually wear': gt 'lover_change', 'Make'
  581. end
  582. elseif pierWearCount < pierPrefTmpMin or pierWearCount > pierPrefTmpMax and pierPrefTmp ! 0 and pierDay <= loverdays[lover_number]:
  583. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  584. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of piercings.'
  585. if pierWearCount < pierPrefTmpMin:
  586. '<<$tXec>> tells you that you should have more piercings.'
  587. else
  588. '<<$tXec>> tells you that you should have less piercings.'
  589. end
  590. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  591. act 'I am not going to change my piercings!':
  592. *clr & cla
  593. loverrelation[lover_number] -= 3
  594. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  595. '<<$loverdesc[lover_number]>> tries to push you to change it, but you are not that submissive to be pressured by <<$tXem>>, nor do your emotions make you make a choice you may regret.'
  596. dynamic $go_home
  597. end
  598. act 'Agree to change the amount of piercings you have': gt 'lover_change', 'Pier'
  599. exit
  600. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  601. act 'You think to yourself, its not like I like <<$tXem>> THAT much...':
  602. *clr & cla
  603. pcs_dom += 1
  604. loverrelation[lover_number] -=3
  605. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  606. '<<$loverdesc[lover_number]>> <<$tXe>> realizes you adoration for <<$tXem>> isn''t enough to pressure you to do that. <<$tXec>> tells you <<$tXe>> has something to do and heads off'
  607. dynamic $go_home
  608. end
  609. exit
  610. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  611. act 'Your personality is not something that can be dominated that easily, and you brush <<$tXem>> off, telling <<$tXem>> you are who you are':
  612. *clr & cla
  613. pcs_dom += 1
  614. loverrelation[lover_number] -=3
  615. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  616. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  617. dynamic $go_home
  618. end
  619. act 'Agree to change the amount of piercings you have': gt 'lover_change', 'Pier'
  620. exit
  621. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  622. act 'You mumble "I would rather not..."':
  623. *clr & cla
  624. loverrelation[lover_number] -= 2
  625. wantRand = rand(0, 100)
  626. wantRand -= 4*loverscompliance[lover_number]
  627. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  628. if wantRand > sub:
  629. '<<$loverdesc[lover_number]>> tries to push you to change the amount of piercings you have, but you successfully inform <<$tXem>> that you do not want to. This makes <<$tXem>> rather upset.'
  630. *nl
  631. dynamic $go_home
  632. elseif wantRand <= sub:
  633. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeanor, and you give in. <<$tXec>> smiles happily and then gets down to how to get the right amount of piercings.'
  634. sub += 2
  635. loverrelation[lover_number] += 5
  636. act 'Continue': gt 'lover_change', 'Pier'
  637. end
  638. end
  639. act 'Agree to change the amount of piercings you have': gt 'lover_change', 'Pier'
  640. end
  641. elseif tattCount < tattPrefTmpMin or tattCount > tattPrefTmpMax and tattPrefTmp ! 0 and tattDay <= loverdays[lover_number]:
  642. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  643. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of tattoos.'
  644. if tattCount < tattPrefTmpMin:
  645. '<<$tXec>> tells you that you should have more tattoos.'
  646. else
  647. '<<$tXec>> tells you that you should have less tattoos.'
  648. end
  649. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  650. act 'I am not going to change my tattoos!':
  651. *clr & cla
  652. loverrelation[lover_number] -= 3
  653. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  654. '<<$loverdesc[lover_number]>> tries to push you to change it, but you are not that submissive to be pressured by <<$tXem>>, nor do your emotions make you make a choice you may regret.'
  655. dynamic $go_home
  656. end
  657. act 'Agree to change the amount of tattoos you have': gt 'lover_change', 'Tatt'
  658. exit
  659. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  660. act 'You think to yourself, its not like I like <<$tXem>> THAT much...':
  661. *clr & cla
  662. pcs_dom += 1
  663. loverrelation[lover_number] -=3
  664. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  665. '<<$loverdesc[lover_number]>> <<$tXe>> realizes you adoration for <<$tXem>> isn''t enough to pressure you to do that. <<$tXec>> tells you <<$tXe>> has something to do and heads off'
  666. dynamic $go_home
  667. end
  668. exit
  669. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  670. act 'Your personality is not something that can be dominated that easily, and you brush <<$tXem>> off, telling <<$tXem>> you are who you are':
  671. *clr & cla
  672. pcs_dom += 1
  673. loverrelation[lover_number] -=3
  674. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  675. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  676. dynamic $go_home
  677. end
  678. act 'Agree to change the amount of tattoos you have': gt 'lover_change', 'Tatt'
  679. exit
  680. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  681. act 'You mumble "I would rather not..."':
  682. *clr & cla
  683. loverrelation[lover_number] -= 2
  684. wantRand = rand(0, 100)
  685. wantRand -= 4*loverscompliance[lover_number]
  686. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  687. if wantRand > sub:
  688. '<<$loverdesc[lover_number]>> tries to push you to change the amount of tattoos you have, but you successfully inform <<$tXem>> that you do not want to. This makes <<$tXem>> rather upset.'
  689. *nl
  690. dynamic $go_home
  691. elseif wantRand <= sub:
  692. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeanor, and you give in. <<$tXec>> smiles happily then starts to take you to the tattoo parlor to get the right amount of tattoos.'
  693. sub += 2
  694. loverrelation[lover_number] += 5
  695. act 'Go to tattoo parlor': gt 'lover_change', 'Tatt'
  696. end
  697. end
  698. act 'Agree to change the amount of tattoos you have': gt 'lover_change', 'Tatt'
  699. end
  700. else
  701. *clr & cla
  702. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  703. 'Erm... Nothing...'
  704. act 'Well then...': xgt 'lover_meet', 'actions'
  705. end
  706. elseif randchan = 1 and loverGender[lover_number] = 0:
  707. *clr & cla
  708. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  709. '<<$loverdesc[lover_number]>> suggest you and <<$tXem>> drink a beer in the stairwell.'
  710. act 'Sorry, but I need to go':
  711. cla
  712. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  713. dynamic $go_home
  714. end
  715. act 'Go with <<$tXem>>':gt 'podezdM', 'start'
  716. elseif randchan = 2 or loverGender[lover_number] = 1:
  717. *clr & cla
  718. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  719. '<<$loverdesc[lover_number]>> suggests that you take a walk in the park.'
  720. act 'Sorry, but I need to go':
  721. cla
  722. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  723. dynamic $go_home
  724. end
  725. act 'Go with <<$tXem>>':
  726. if loverGender[lover_number] = 0: gt 'parkM', 'start'
  727. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'parksvid'
  728. end
  729. end
  730. elseif loverfinance[lover_number] = 1:
  731. *clr & cla
  732. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  733. !! 0 - change player, 1 - go to the movies, 2 - walk in park, 3 , suggests that you go to a cafe.
  734. randchan = rand(0, 3)
  735. !! 1 = does like, 0 = not like
  736. if (pierWearCount >= pierPrefTmpMin and pierWearCount <= pierPrefTmpMax) or pierPrefTmp = 0:
  737. pierCheck = 1
  738. else
  739. pierCheck = 0
  740. end
  741. if (tattCount >= tattPrefTmpMin and tattCount <= tattPrefTmpMax) or tattPrefTmp = 0:
  742. tattCheck = 1
  743. else
  744. tattCheck = 0
  745. end
  746. if (makeupSetting = makePrefTmp) or makePrefTmp = 0:
  747. makeupCheck = 1
  748. else
  749. makeupCheck = 0
  750. end
  751. if pcs_haircol = hairPref:
  752. hairCheck = 1
  753. else
  754. hairCheck = 0
  755. end
  756. if tits >= titMin and tits <= titMax:
  757. titCheck = 1
  758. else
  759. titCheck = 0
  760. end
  761. if pcs_lips >= lipsPrefTmpMin and tits <= lipsPrefTmpMax:
  762. lipsCheck = 1
  763. else
  764. lipsCheck = 0
  765. end
  766. if randchan = 0 and (pierCheck + tattCheck + makeupCheck + hairCheck + titCheck + lipsCheck) = 6:
  767. 'Takes one look at your body and loves every part of it.'
  768. randchan = rand(1, 3)
  769. end
  770. if randchan = 0:
  771. *clr & cla
  772. !!Some things you can change.
  773. !!loverfinance[lover_number] = 1 - hair, makeup, tattoo, piercings, lips, tits.
  774. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  775. if haraklover[lover_number] = 0:
  776. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  777. elseif haraklover[lover_number] = 1:
  778. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  779. elseif haraklover[lover_number] = 2:
  780. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  781. end
  782. '"Whats up <<$loverdesc[lover_number]>>?"'
  783. '"There is just a trait about you that bugs me, can we change that?"'
  784. if loverscompliance[lover_number] > 0: 'You know you have changed for <<$tXem>> before, and you want to avoid to changing into something you are not.'
  785. gs 'lover_likes', 'compliance'
  786. '"And what did you want to change about me?"'
  787. !!This is to make a last check on how many piercings they are WEARING
  788. gs 'lover_likes', 'checkPier'
  789. if pcs_haircol ! hairPref:
  790. '<<$loverdesc[lover_number]>> looks at your hair and says, "can we get your hair dyed?"'
  791. !!act 'I''d rather not...':
  792. if sub < 20 and loverrelation[lover_number] < 60 and compliance < 6:
  793. act 'I like my hair just the way it is':
  794. *clr & cla
  795. loverrelation[lover_number] -= 3
  796. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  797. '<<$loverdesc[lover_number]>> tries to push you to change it, but you are not that submissive to be pressured by <<$tXem>>, nor do your emotions make you make a choice you may regret.'
  798. dynamic $go_home
  799. end
  800. act 'Go with <<$tXem>>': gt 'lover_change', 'Hair'
  801. exit
  802. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  803. act 'You think to yourself, its not like I like <<$tXem>> THAT much...':
  804. *clr & cla
  805. pcs_dom += 1
  806. loverrelation[lover_number] -= 3
  807. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  808. '<<$loverdesc[lover_number]>> <<$tXe>> realizes you adoration for <<$tXem>> isn''t enough to pressure you to do that. <<$tXec>> tells you <<$tXe>> has something to do and heads off'
  809. dynamic $go_home
  810. end
  811. exit
  812. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  813. act 'Your personality is not something that can be dominated that easily, and you brush <<$tXem>> off, telling <<$tXem>> you are who you are':
  814. *clr & cla
  815. pcs_dom += 1
  816. loverrelation[lover_number] -=3
  817. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  818. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  819. dynamic $go_home
  820. end
  821. act 'Go with <<$tXem>>': gt 'lover_change', 'Hair'
  822. exit
  823. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  824. act 'You mumble "I would rather not..."':
  825. *clr & cla
  826. loverrelation[lover_number] -= 2
  827. wantRand = rand(0, 100)
  828. wantRand -= 4*loverscompliance[lover_number]
  829. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  830. if wantRand > sub:
  831. '<<$loverdesc[lover_number]>> tries to push you to change it, but you successfully inform <<$tXem>> that you do not want to. This makes <<$tXem>> rather upset.'
  832. *nl
  833. dynamic $go_home
  834. elseif wantRand <= sub:
  835. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeanor, and you give in. <<$tXec>> smiles happily and takes you to the salon.'
  836. sub += 2
  837. loverrelation[lover_number] += 5
  838. act 'Go to Salon': gt 'lover_change', 'Hair'
  839. end
  840. end
  841. act 'Go with <<$tXem>>': gt 'lover_change', 'Hair'
  842. end
  843. elseif makeupSetting ! makePrefTmp and makePrefTmp ! 0:
  844. *clr & cla
  845. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  846. '<<$loverdesc[lover_number]>> thinks about it and says "Can you wear <<$makePrefTmp>> from now on?"'
  847. !!act 'I''d rather not...':
  848. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  849. act 'I like my makeup just the way it is':
  850. *clr & cla
  851. loverrelation[lover_number] -= 3
  852. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  853. '<<$loverdesc[lover_number]>> tries to push you to change it, but you are not that submissive to be pressured by <<$tXem>>, nor do your emotions make you make a choice you may regret.'
  854. dynamic $go_home
  855. end
  856. act 'Agree to change the makeup you usually wear': gt 'lover_change', 'Make'
  857. exit
  858. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  859. act 'You think to yourself, its not like I like <<$tXem>> THAT much...':
  860. *clr & cla
  861. pcs_dom += 1
  862. loverrelation[lover_number] -= 3
  863. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  864. '<<$loverdesc[lover_number]>> <<$tXe>> realizes you adoration for <<$tXem>> isn''t enough to pressure you to do that. You can tell that <<$tXe>> is bummed when <<$tXe>> tells you <<$tXe>> has something to do and heads off.'
  865. dynamic $go_home
  866. end
  867. exit
  868. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  869. act 'Your personality is not something that can be dominated that easily, and you brush <<$tXem>> off, telling <<$tXem>> you like the makeup you usually wear':
  870. *clr & cla
  871. pcs_dom += 1
  872. loverrelation[lover_number] -= 3
  873. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  874. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  875. dynamic $go_home
  876. end
  877. act 'Agree to change the makeup you usually wear': gt 'lover_change', 'Make'
  878. exit
  879. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  880. act 'You mumble "What''s wrong with my makeup...?"':
  881. *clr & cla
  882. loverrelation[lover_number] -= 2
  883. wantRand = rand(0, 100)
  884. wantRand -= 4*loverscompliance[lover_number]
  885. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  886. if wantRand > sub:
  887. '<<$loverdesc[lover_number]>> tries to push you to change it, but you successfully inform <<$tXem>> that you do not want to. This makes <<$tXem>> rather upset.'
  888. *nl
  889. dynamic $go_home
  890. elseif wantRand <= sub:
  891. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeanor, and you give in. You tell <<$tXem>> from now on you will wear <<$makePrefTmp>>.'
  892. sub += 2
  893. loverrelation[lover_number] += 5
  894. act 'Continue': gt 'lover_change', 'Make'
  895. end
  896. end
  897. act 'Agree to change the makeup you usually wear': gt 'lover_change', 'Make'
  898. end
  899. elseif pierWearCount < pierPrefTmpMin or pierWearCount > pierPrefTmpMax and pierPrefTmp ! 0 and pierDay <= loverdays[lover_number]:
  900. *clr & cla
  901. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  902. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of piercings.'
  903. if pierWearCount < pierPrefTmpMin:
  904. '<<$tXec>> tells you that you should have more piercings.'
  905. else
  906. '<<$tXec>> tells you that you should have less piercings.'
  907. end
  908. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  909. act 'I am not going to change my piercings!':
  910. *clr & cla
  911. loverrelation[lover_number] -= 3
  912. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  913. '<<$loverdesc[lover_number]>> tries to push you to change it, but you are not that submissive to be pressured by <<$tXem>>, nor do your emotions make you make a choice you may regret.'
  914. dynamic $go_home
  915. end
  916. act 'Agree to change the amount of piercings you have': gt 'lover_change', 'Pier'
  917. exit
  918. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  919. act 'You think to yourself, its not like I like <<$tXem>> THAT much...':
  920. *clr & cla
  921. pcs_dom += 1
  922. loverrelation[lover_number] -= 3
  923. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  924. '<<$loverdesc[lover_number]>> <<$tXe>> realizes you adoration for <<$tXem>> isn''t enough to pressure you to do that. <<$tXec>> tells you <<$tXe>> has something to do and heads off'
  925. dynamic $go_home
  926. end
  927. exit
  928. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  929. act 'Your personality is not something that can be dominated that easily, and you brush <<$tXem>> off, telling <<$tXem>> you are who you are':
  930. *clr & cla
  931. pcs_dom += 1
  932. loverrelation[lover_number] -= 3
  933. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  934. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  935. dynamic $go_home
  936. end
  937. act 'Agree to change the amount of piercings you have': gt 'lover_change', 'Pier'
  938. exit
  939. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  940. act 'You mumble "I would rather not..."':
  941. *clr & cla
  942. loverrelation[lover_number] -= 2
  943. wantRand = rand(0, 100)
  944. wantRand -= 4*loverscompliance[lover_number]
  945. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  946. if wantRand > sub:
  947. '<<$loverdesc[lover_number]>> tries to push you to change the amount of piercings you have, but you successfully inform <<$tXem>> that you do not want to. This makes <<$tXem>> rather upset.'
  948. *nl
  949. dynamic $go_home
  950. elseif wantRand <= sub:
  951. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeanor, and you give in. <<$tXec>> smiles happily and then gets down to how to get the right amount of piercings.'
  952. sub += 2
  953. loverrelation[lover_number] += 5
  954. act 'Continue': gt 'lover_change', 'Pier'
  955. end
  956. end
  957. act 'Agree to change the amount of piercings you have': gt 'lover_change', 'Pier'
  958. end
  959. elseif tattCount < tattPrefTmpMin or tattCount > tattPrefTmpMax and tattPrefTmp ! 0 and tattDay <= loverdays[lover_number]:
  960. *clr & cla
  961. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  962. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of tattoos.'
  963. if tattCount < tattPrefTmpMin:
  964. '<<$tXec>> tells you that you should have more tattoos.'
  965. else
  966. '<<$tXec>> tells you that you should have less tattoos.'
  967. end
  968. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  969. act 'I am not going to change my tattoos!':
  970. *clr & cla
  971. loverrelation[lover_number] -= 3
  972. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  973. '<<$loverdesc[lover_number]>> tries to push you to change it, but you are not that submissive to be pressured by <<$tXem>>, nor do your emotions make you make a choice you may regret.'
  974. dynamic $go_home
  975. end
  976. act 'Agree to change the amount of tattoos you have': gt 'lover_change', 'Tatt'
  977. exit
  978. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  979. act 'You think to yourself, its not like I like <<$tXem>> THAT much...':
  980. *clr & cla
  981. pcs_dom += 1
  982. loverrelation[lover_number] -= 3
  983. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  984. '<<$loverdesc[lover_number]>> <<$tXe>> realizes you adoration for <<$tXem>> isn''t enough to pressure you to do that. <<$tXec>> tells you <<$tXe>> has something to do and heads off'
  985. dynamic $go_home
  986. end
  987. exit
  988. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  989. act 'Your personality is not something that can be dominated that easily, and you brush <<$tXem>> off, telling <<$tXem>> you are who you are':
  990. *clr & cla
  991. pcs_dom += 1
  992. loverrelation[lover_number] -= 3
  993. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  994. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  995. dynamic $go_home
  996. end
  997. act 'Agree to change the amount of tattoos you have': gt 'lover_change', 'Tatt'
  998. exit
  999. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1000. act 'You mumble "I would rather not..."':
  1001. *clr & cla
  1002. loverrelation[lover_number] -= 2
  1003. wantRand = rand(0, 100)
  1004. wantRand -= 4*loverscompliance[lover_number]
  1005. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1006. if wantRand > sub:
  1007. '<<$loverdesc[lover_number]>> tries to push you to change the amount of tattoos you have, but you successfully inform <<$tXem>> that you do not want to. This makes <<$tXem>> rather upset.'
  1008. *nl
  1009. dynamic $go_home
  1010. elseif wantRand <= sub:
  1011. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeanor, and you give in. <<$tXec>> smiles happily then starts to take you to the tattoo parlor to get the right amount of tattoos.'
  1012. sub += 2
  1013. loverrelation[lover_number] += 5
  1014. act 'Go to tattoo parlor': gt 'lover_change', 'Tatt'
  1015. end
  1016. end
  1017. act 'Agree to change the amount of tattoos you have': gt 'lover_change', 'Tatt'
  1018. end
  1019. elseif pcs_lip < lipsPrefTmpMin or pcs_lip > lipsPrefTmpMax and lipsDay <= loverdays[lover_number]:
  1020. *clr & cla
  1021. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1022. '<<$loverdesc[lover_number]>> tells you your lips are just not the right size.'
  1023. if pcs_lip < lipsPrefTmpMin:
  1024. '<<$tXec>> tells you that you should get lip injections.'
  1025. else
  1026. '<<$tXec>> tells you that you should have lip reduction.'
  1027. end
  1028. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1029. act '"My lips are fine the way they are!", you say slightly offended':
  1030. *clr & cla
  1031. loverrelation[lover_number] -= 3
  1032. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1033. '<<$loverdesc[lover_number]>> tries to push you to change your lip size, but you are not that submissive to be pressured by <<$tXem>>, nor do your emotions make you make a choice you may regret.'
  1034. dynamic $go_home
  1035. end
  1036. act 'Go with <<$tXem>>': gt 'lover_change', 'Lips'
  1037. exit
  1038. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1039. act 'You think to yourself, its not like I like <<$tXem>> THAT much to get work done on my lips':
  1040. *clr & cla
  1041. pcs_dom += 1
  1042. loverrelation[lover_number] -= 3
  1043. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1044. '<<$loverdesc[lover_number]>> <<$tXe>> realizes you adoration for <<$tXem>> isn''t enough to pressure you to get work done on your lips. <<$tXec>> tells you <<$tXe>> has something to do and heads off.'
  1045. dynamic $go_home
  1046. end
  1047. exit
  1048. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1049. act 'Your personality is not something that can be dominated that easily, and you brush <<$tXem>> off, telling <<$tXem>> that you decide what size lips you look good with':
  1050. *clr & cla
  1051. pcs_dom += 1
  1052. loverrelation[lover_number] -= 3
  1053. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1054. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  1055. dynamic $go_home
  1056. end
  1057. act 'Go with <<$tXem>>': gt 'lover_change', 'Lips'
  1058. exit
  1059. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1060. act 'You squeek, "But I like the size of my lips..."':
  1061. *clr & cla
  1062. loverrelation[lover_number] -= 2
  1063. wantRand = rand(0, 100)
  1064. wantRand -= 4*loverscompliance[lover_number]
  1065. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1066. if wantRand > sub:
  1067. '<<$loverdesc[lover_number]>> tries to push you to change the size, but you successfully tell <<$tXem>> that you do not want to. This makes <<$tXem>> rather upset.'
  1068. *nl
  1069. dynamic $go_home
  1070. elseif wantRand <= sub:
  1071. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeanor, and you give in. <<$tXec>> grins widely and takes you to the clinic.'
  1072. sub += 4
  1073. loverrelation[lover_number] += 5
  1074. act 'Go to the clinic': gt 'lover_change', 'Lips'
  1075. end
  1076. end
  1077. act 'Go with <<$tXem>>': gt 'lover_change', 'Lips'
  1078. end
  1079. elseif tits < titMin or tits > titMax and titsDay <= loverdays[lover_number]:
  1080. *clr & cla
  1081. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1082. '<<$loverdesc[lover_number]>> tells you your breasts are just not right.'
  1083. if tits < titMin:
  1084. '<<$tXec>> tells you that you should get breast implants.'
  1085. else
  1086. '<<$tXec>> tells you that you should have a breast reduction.'
  1087. end
  1088. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1089. act '"My breasts are fine the way they are!", you say slightly offended':
  1090. *clr & cla
  1091. loverrelation[lover_number] -= 3
  1092. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1093. '<<$loverdesc[lover_number]>> tries to push you to change your breast size, but you are not that submissive to be pressured by <<$tXem>>, nor do your emotions make you make a choice you may regret.'
  1094. dynamic $go_home
  1095. end
  1096. act 'Go with <<$tXem>>': gt 'lover_change', 'Tits'
  1097. exit
  1098. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1099. act 'You think to yourself, its not like I like <<$tXem>> THAT much to get work done on my breasts':
  1100. *clr & cla
  1101. pcs_dom += 1
  1102. loverrelation[lover_number] -= 3
  1103. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1104. '<<$loverdesc[lover_number]>> <<$tXe>> realizes you adoration for <<$tXem>> isn''t enough to pressure you to get work done on your breasts. <<$tXec>> tells you <<$tXe>> has something to do and heads off.'
  1105. dynamic $go_home
  1106. end
  1107. exit
  1108. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1109. act 'Your personality is not something that can be dominated that easily, and you brush <<$tXem>> off, telling <<$tXem>> that you decide what size breasts you look good with':
  1110. *clr & cla
  1111. pcs_dom += 1
  1112. loverrelation[lover_number] -= 3
  1113. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1114. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  1115. dynamic $go_home
  1116. end
  1117. act 'Go with <<$tXem>>': gt 'lover_change', 'Tits'
  1118. exit
  1119. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1120. act 'You squeek, "But I like the size of my breasts..."':
  1121. *clr & cla
  1122. loverrelation[lover_number] -= 2
  1123. wantRand = rand(0, 100)
  1124. wantRand -= 4*loverscompliance[lover_number]
  1125. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1126. if wantRand > sub:
  1127. '<<$loverdesc[lover_number]>> tries to push you to change the size, but you successfully tell <<$tXem>> that you do not want to. This makes <<$tXem>> rather upset.'
  1128. *nl
  1129. dynamic $go_home
  1130. elseif wantRand <= sub:
  1131. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeanor, and you give in. <<$tXec>> grins widely and takes you to the clinic.'
  1132. sub += 4
  1133. loverrelation[lover_number] += 5
  1134. act 'Go to the clinic': gt 'lover_change', 'Tits'
  1135. end
  1136. end
  1137. act 'Go with <<$tXem>>': gt 'lover_change', 'Tits'
  1138. end
  1139. else
  1140. *clr & cla
  1141. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1142. '"Erm... Nothing..."'
  1143. act '"Well then..."': xgt 'lover_meet', 'actions'
  1144. end
  1145. elseif randchan = 1:
  1146. *clr & cla
  1147. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1148. '<<$loverdesc[lover_number]>> suggests that you go to the movies.'
  1149. act 'Sorry, but I need to go':
  1150. cla
  1151. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  1152. dynamic $go_home
  1153. end
  1154. act 'Go with <<$tXem>>':
  1155. if loverGender[lover_number] = 0: gt 'kinoM', 'start'
  1156. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kinosvid'
  1157. end
  1158. elseif randchan = 2:
  1159. *clr & cla
  1160. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1161. '<<$loverdesc[lover_number]>> suggest that you take a walk in the park'
  1162. act 'Sorry, but I need to go':
  1163. cla
  1164. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  1165. dynamic $go_home
  1166. end
  1167. act 'Go with <<$tXem>>':
  1168. if loverGender[lover_number] = 0: gt 'parkM', 'start'
  1169. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'parksvid'
  1170. end
  1171. elseif randchan = 3:
  1172. *clr & cla
  1173. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1174. '<<$loverdesc[lover_number]>> suggests that you go to a cafe.'
  1175. act 'Sorry, but I need to go':
  1176. cla
  1177. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  1178. dynamic $go_home
  1179. end
  1180. act 'Go with <<$tXem>>':
  1181. if loverGender[lover_number] = 0: gt 'kafeM', 'start'
  1182. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kafesvid'
  1183. end
  1184. end
  1185. elseif loverfinance[lover_number] = 2:
  1186. *clr & cla
  1187. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1188. !!Some things you can change.
  1189. !!loverfinance[lover_number] = 2 - hair, makeup, tattoo, piercings, lips, tits
  1190. !! 0 - change player, 1 - go to a cafe, 2 - go to a restaurant, 3 - to the movies.
  1191. randchan = rand(0, 3)
  1192. !! 1 = does like, 0 = not like
  1193. if (pierWearCount >= pierPrefTmpMin and pierWearCount <= pierPrefTmpMax) or pierPrefTmp = 0:
  1194. pierCheck = 1
  1195. else
  1196. pierCheck = 0
  1197. end
  1198. if (tattCount >= tattPrefTmpMin and tattCount <= tattPrefTmpMax) or tattPrefTmp = 0:
  1199. tattCheck = 1
  1200. else
  1201. tattCheck = 0
  1202. end
  1203. if (makeupSetting = makePrefTmp) or makePrefTmp = 0:
  1204. makeupCheck = 1
  1205. else
  1206. makeupCheck = 0
  1207. end
  1208. if pcs_haircol = hairPref:
  1209. hairCheck = 1
  1210. else
  1211. hairCheck = 0
  1212. end
  1213. if tits >= titMin and tits <= titMax:
  1214. titCheck = 1
  1215. else
  1216. titCheck = 0
  1217. end
  1218. if pcs_lips >= lipsPrefTmpMin and tits <= lipsPrefTmpMax:
  1219. lipsCheck = 1
  1220. else
  1221. lipsCheck = 0
  1222. end
  1223. if salocatnow <= figurePrefMax:
  1224. figureCheck = 1
  1225. else
  1226. figureCheck = 0
  1227. end
  1228. if randchan = 0 and (pierCheck + tattCheck + makeupCheck + hairCheck + titCheck + lipsCheck + figureCheck) = 7:
  1229. 'Takes one look at your body and loves every part of it.'
  1230. randchan = rand(1, 3)
  1231. end
  1232. if randchan = 0:
  1233. *clr & cla
  1234. !!Some things you can change.
  1235. !!loverfinance[lover_number] = 2 - hair, makeup, tattoo, piercings, lips, tits, figure.
  1236. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1237. if haraklover[lover_number] = 0:
  1238. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  1239. elseif haraklover[lover_number] = 1:
  1240. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  1241. elseif haraklover[lover_number] = 2:
  1242. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  1243. end
  1244. '"Whats up <<$loverdesc[lover_number]>>?"'
  1245. '"There is just a trait about you that bugs me, can we change that?"'
  1246. if loverscompliance[lover_number] > 0: 'You know you have changed for <<$tXem>> before, and you want to avoid to changing into something you are not.'
  1247. gs 'lover_likes', 'compliance'
  1248. '"And what did you want to change about me?"'
  1249. !!This is to make a last check on how many piercings they are WEARING
  1250. gs 'lover_likes', 'checkPier'
  1251. if pcs_haircol ! hairPref:
  1252. '<<$loverdesc[lover_number]>> looks at your hair and says, "can we get your hair dyed?"'
  1253. !!act 'I''d rather not...':
  1254. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1255. act 'I like my hair just the way it is':
  1256. *clr & cla
  1257. loverrelation[lover_number] -= 3
  1258. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1259. '<<$loverdesc[lover_number]>> tries to push you to change it, but you are not that submissive to be pressured by <<$tXem>>, nor do your emotions make you make a choice you may regret.'
  1260. dynamic $go_home
  1261. end
  1262. act 'Go with <<$tXem>>': gt 'lover_change', 'Hair'
  1263. exit
  1264. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1265. act 'You think to yourself, its not like I like <<$tXem>> THAT much...':
  1266. *clr & cla
  1267. pcs_dom += 1
  1268. loverrelation[lover_number] -= 3
  1269. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1270. '<<$loverdesc[lover_number]>> <<$tXe>> realizes you adoration for <<$tXem>> isn''t enough to pressure you to do that. <<$tXec>> tells you <<$tXe>> has something to do and heads off'
  1271. dynamic $go_home
  1272. end
  1273. exit
  1274. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1275. act 'Your personality is not something that can be dominated that easily, and you brush <<$tXem>> off, telling <<$tXem>> you are who you are':
  1276. *clr & cla
  1277. pcs_dom += 1
  1278. loverrelation[lover_number] -= 3
  1279. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1280. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  1281. dynamic $go_home
  1282. end
  1283. act 'Go with <<$tXem>>': gt 'lover_change', 'Hair'
  1284. exit
  1285. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1286. act 'You mumble "I would rather not..."':
  1287. *clr & cla
  1288. loverrelation[lover_number] -= 2
  1289. wantRand = rand(0, 100)
  1290. wantRand -= 4*loverscompliance[lover_number]
  1291. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1292. if wantRand > sub:
  1293. '<<$loverdesc[lover_number]>> tries to push you to change it, but you successfully inform <<$tXem>> that you do not want to. This makes <<$tXem>> rather upset.'
  1294. *nl
  1295. dynamic $go_home
  1296. elseif wantRand <= sub:
  1297. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeanor, and you give in. <<$tXec>> smiles happily and takes you to the salon.'
  1298. sub += 2
  1299. loverrelation[lover_number] += 5
  1300. act 'Go to Salon': gt 'lover_change', 'Hair'
  1301. end
  1302. end
  1303. act 'Go with <<$tXem>>': gt 'lover_change', 'Hair'
  1304. end
  1305. elseif makeupSetting ! makePrefTmp and makePrefTmp ! 0:
  1306. '<<$loverdesc[lover_number]>> thinks about it and says "Can you wear <<$makePrefTmp>> from now on?"'
  1307. !!act 'I''d rather not...':
  1308. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1309. act 'I like my makeup just the way it is':
  1310. *clr & cla
  1311. loverrelation[lover_number] -= 3
  1312. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1313. '<<$loverdesc[lover_number]>> tries to push you to change it, but you are not that submissive to be pressured by <<$tXem>>, nor do your emotions make you make a choice you may regret.'
  1314. dynamic $go_home
  1315. end
  1316. act 'Agree to change the makeup you usually wear': gt 'lover_change', 'Make'
  1317. exit
  1318. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1319. act 'You think to yourself, its not like I like <<$tXem>> THAT much...':
  1320. *clr & cla
  1321. pcs_dom += 1
  1322. loverrelation[lover_number] -= 3
  1323. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1324. '<<$loverdesc[lover_number]>> <<$tXe>> realizes you adoration for <<$tXem>> isn''t enough to pressure you to do that. You can tell that <<$tXe>> is bummed when <<$tXe>> tells you <<$tXe>> has something to do and heads off.'
  1325. dynamic $go_home
  1326. end
  1327. exit
  1328. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1329. act 'Your personality is not something that can be dominated that easily, and you brush <<$tXem>> off, telling <<$tXem>> you like the makeup you usually wear':
  1330. *clr & cla
  1331. pcs_dom += 1
  1332. loverrelation[lover_number] -= 3
  1333. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1334. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  1335. dynamic $go_home
  1336. end
  1337. act 'Agree to change the makeup you usually wear': gt 'lover_change', 'Make'
  1338. exit
  1339. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1340. act 'You mumble "What''s wrong with my makeup...?"':
  1341. *clr & cla
  1342. loverrelation[lover_number] -= 2
  1343. wantRand = rand(0, 100)
  1344. wantRand -= 4*loverscompliance[lover_number]
  1345. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1346. if wantRand > sub:
  1347. '<<$loverdesc[lover_number]>> tries to push you to change it, but you successfully inform <<$tXem>> that you do not want to. This makes <<$tXem>> rather upset.'
  1348. *nl
  1349. dynamic $go_home
  1350. elseif wantRand <= sub:
  1351. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeanor, and you give in. You tell <<$tXem>> from now on you will wear <<$makePrefTmp>>.'
  1352. sub += 2
  1353. loverrelation[lover_number] += 5
  1354. act 'Continue': gt 'lover_change', 'Make'
  1355. end
  1356. end
  1357. act 'Agree to change the makeup you usually wear': gt 'lover_change', 'Make'
  1358. end
  1359. elseif pierWearCount < pierPrefTmpMin or pierWearCount > pierPrefTmpMax and pierPrefTmp ! 0 and pierDay <= loverdays[lover_number]:
  1360. *clr & cla
  1361. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1362. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of piercings.'
  1363. if pierWearCount < pierPrefTmpMin:
  1364. '<<$tXec>> tells you that you should have more piercings.'
  1365. else
  1366. '<<$tXec>> tells you that you should have less piercings.'
  1367. end
  1368. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1369. act 'I am not going to change my piercings!':
  1370. *clr & cla
  1371. loverrelation[lover_number] -= 3
  1372. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1373. '<<$loverdesc[lover_number]>> tries to push you to change it, but you are not that submissive to be pressured by <<$tXem>>, nor do your emotions make you make a choice you may regret.'
  1374. dynamic $go_home
  1375. end
  1376. act 'Agree to change the amount of piercings you have': gt 'lover_change', 'Pier'
  1377. exit
  1378. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1379. act 'You think to yourself, its not like I like <<$tXem>> THAT much...':
  1380. *clr & cla
  1381. pcs_dom += 1
  1382. loverrelation[lover_number] -= 3
  1383. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1384. '<<$loverdesc[lover_number]>> <<$tXe>> realizes you adoration for <<$tXem>> isn''t enough to pressure you to do that. <<$tXec>> tells you <<$tXe>> has something to do and heads off'
  1385. dynamic $go_home
  1386. end
  1387. exit
  1388. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1389. act 'Your personality is not something that can be dominated that easily, and you brush <<$tXem>> off, telling <<$tXem>> you are who you are':
  1390. *clr & cla
  1391. pcs_dom += 1
  1392. loverrelation[lover_number] -= 3
  1393. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1394. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  1395. dynamic $go_home
  1396. end
  1397. act 'Agree to change the amount of piercings you have': gt 'lover_change', 'Pier'
  1398. exit
  1399. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1400. act 'You mumble "I would rather not..."':
  1401. *clr & cla
  1402. loverrelation[lover_number] -= 2
  1403. wantRand = rand(0, 100)
  1404. wantRand -= 4*loverscompliance[lover_number]
  1405. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1406. if wantRand > sub:
  1407. '<<$loverdesc[lover_number]>> tries to push you to change the amount of piercings you have, but you successfully inform <<$tXem>> that you do not want to. This makes <<$tXem>> rather upset.'
  1408. *nl
  1409. dynamic $go_home
  1410. elseif wantRand <= sub:
  1411. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeanor, and you give in. <<$tXec>> smiles happily and then gets down to how to get the right amount of piercings.'
  1412. sub += 2
  1413. loverrelation[lover_number] += 5
  1414. act 'Continue': gt 'lover_change', 'Pier'
  1415. end
  1416. end
  1417. act 'Agree to change the amount of piercings you have': gt 'lover_change', 'Pier'
  1418. end
  1419. elseif tattCount < tattPrefTmpMin or tattCount > tattPrefTmpMax and tattPrefTmp ! 0 and tattDay <= loverdays[lover_number]:
  1420. *clr & cla
  1421. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1422. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of tattoos.'
  1423. if tattCount < tattPrefTmpMin:
  1424. '<<$tXec>> tells you that you should have more tattoos.'
  1425. else
  1426. '<<$tXec>> tells you that you should have less tattoos.'
  1427. end
  1428. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1429. act 'I am not going to change my tattoos!':
  1430. *clr & cla
  1431. loverrelation[lover_number] -= 3
  1432. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1433. '<<$loverdesc[lover_number]>> tries to push you to change it, but you are not that submissive to be pressured by <<$tXem>>, nor do your emotions make you make a choice you may regret.'
  1434. dynamic $go_home
  1435. end
  1436. act 'Agree to change the amount of tattoos you have': gt 'lover_change', 'Tatt'
  1437. exit
  1438. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1439. act 'You think to yourself, its not like I like <<$tXem>> THAT much...':
  1440. *clr & cla
  1441. pcs_dom += 1
  1442. loverrelation[lover_number] -= 3
  1443. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1444. '<<$loverdesc[lover_number]>> <<$tXe>> realizes you adoration for <<$tXem>> isn''t enough to pressure you to do that. <<$tXec>> tells you <<$tXe>> has something to do and heads off'
  1445. dynamic $go_home
  1446. end
  1447. exit
  1448. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1449. act 'Your personality is not something that can be dominated that easily, and you brush <<$tXem>> off, telling <<$tXem>> you are who you are':
  1450. *clr & cla
  1451. pcs_dom += 1
  1452. loverrelation[lover_number] -= 3
  1453. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1454. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  1455. dynamic $go_home
  1456. end
  1457. act 'Agree to change the amount of tattoos you have': gt 'lover_change', 'Tatt'
  1458. exit
  1459. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1460. act 'You mumble "I would rather not..."':
  1461. *clr & cla
  1462. loverrelation[lover_number] -= 2
  1463. wantRand = rand(0, 100)
  1464. wantRand -= 4*loverscompliance[lover_number]
  1465. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1466. if wantRand > sub:
  1467. '<<$loverdesc[lover_number]>> tries to push you to change the amount of tattoos you have, but you successfully inform <<$tXem>> that you do not want to. This makes <<$tXem>> rather upset.'
  1468. *nl
  1469. dynamic $go_home
  1470. elseif wantRand <= sub:
  1471. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeanor, and you give in. <<$tXec>> smiles happily then starts to take you to the tattoo parlor to get the right amount of tattoos.'
  1472. sub += 2
  1473. loverrelation[lover_number] += 5
  1474. act 'Go to tattoo parlor': gt 'lover_change', 'Tatt'
  1475. end
  1476. end
  1477. act 'Agree to change the amount of tattoos you have': gt 'lover_change', 'Tatt'
  1478. end
  1479. elseif pcs_lip < lipsPrefTmpMin or pcs_lip > lipsPrefTmpMax and lipsDay <= loverdays[lover_number]:
  1480. *clr & cla
  1481. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1482. '<<$loverdesc[lover_number]>> tells you your lips are just not the right size.'
  1483. if pcs_lip < lipsPrefTmpMin:
  1484. '<<$tXec>> tells you that you should get lip injections.'
  1485. else
  1486. '<<$tXec>> tells you that you should have lip reduction.'
  1487. end
  1488. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1489. act '"My lips are fine the way they are!", you say slightly offended':
  1490. *clr & cla
  1491. loverrelation[lover_number] -= 3
  1492. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1493. '<<$loverdesc[lover_number]>> tries to push you to change your lip size, but you are not that submissive to be pressured by <<$tXem>>, nor do your emotions make you make a choice you may regret.'
  1494. dynamic $go_home
  1495. end
  1496. act 'Go with <<$tXem>>': gt 'lover_change', 'Lips'
  1497. exit
  1498. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1499. act 'You think to yourself, its not like I like <<$tXem>> THAT much to get work done on my lips':
  1500. *clr & cla
  1501. pcs_dom += 1
  1502. loverrelation[lover_number] -= 3
  1503. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1504. '<<$loverdesc[lover_number]>> <<$tXe>> realizes you adoration for <<$tXem>> isn''t enough to pressure you to get work done on your lips. <<$tXec>> tells you <<$tXe>> has something to do and heads off.'
  1505. dynamic $go_home
  1506. end
  1507. exit
  1508. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1509. act 'Your personality is not something that can be dominated that easily, and you brush <<$tXem>> off, telling <<$tXem>> that you decide what size lips you look good with':
  1510. *clr & cla
  1511. pcs_dom += 1
  1512. loverrelation[lover_number] -= 3
  1513. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1514. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  1515. dynamic $go_home
  1516. end
  1517. act 'Go with <<$tXem>>': gt 'lover_change', 'Lips'
  1518. exit
  1519. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1520. act 'You squeek, "But I like the size of my lips..."':
  1521. *clr & cla
  1522. loverrelation[lover_number] -= 2
  1523. wantRand = rand(0, 100)
  1524. wantRand -= 4*loverscompliance[lover_number]
  1525. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1526. if wantRand > sub:
  1527. '<<$loverdesc[lover_number]>> tries to push you to change the size, but you successfully tell <<$tXem>> that you do not want to. This makes <<$tXem>> rather upset.'
  1528. *nl
  1529. dynamic $go_home
  1530. elseif wantRand <= sub:
  1531. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeanor, and you give in. <<$tXec>> grins widely and takes you to the clinic.'
  1532. sub += 4
  1533. loverrelation[lover_number] += 5
  1534. act 'Go to the clinic': gt 'lover_change', 'Lips'
  1535. end
  1536. end
  1537. act 'Go with <<$tXem>>': gt 'lover_change', 'Lips'
  1538. end
  1539. elseif tits < titMin or tits > titMax and titsDay <= loverdays[lover_number]:
  1540. *clr & cla
  1541. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1542. '<<$loverdesc[lover_number]>> tells you your breasts are just not right.'
  1543. if tits < titMin:
  1544. '<<$tXec>> tells you that you should get breast implants.'
  1545. else
  1546. '<<$tXec>> tells you that you should have a breast reduction.'
  1547. end
  1548. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1549. act '"My breasts are fine the way they are!", you say slightly offended':
  1550. *clr & cla
  1551. loverrelation[lover_number] -= 3
  1552. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1553. '<<$loverdesc[lover_number]>> tries to push you to change your breast size, but you are not that submissive to be pressured by <<$tXem>>, nor do your emotions make you make a choice you may regret.'
  1554. dynamic $go_home
  1555. end
  1556. act 'Go with <<$tXem>>': gt 'lover_change', 'Tits'
  1557. exit
  1558. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1559. act 'You think to yourself, its not like I like <<$tXem>> THAT much to get work done on my breasts':
  1560. *clr & cla
  1561. pcs_dom += 1
  1562. loverrelation[lover_number] -= 3
  1563. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1564. '<<$loverdesc[lover_number]>> <<$tXe>> realizes you adoration for <<$tXem>> isn''t enough to pressure you to get work done on your breasts. <<$tXec>> tells you <<$tXe>> has something to do and heads off.'
  1565. dynamic $go_home
  1566. end
  1567. exit
  1568. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1569. act 'Your personality is not something that can be dominated that easily, and you brush <<$tXem>> off, telling <<$tXem>> that you decide what size breasts you look good with':
  1570. *clr & cla
  1571. pcs_dom += 1
  1572. loverrelation[lover_number] -= 3
  1573. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1574. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  1575. dynamic $go_home
  1576. end
  1577. act 'Go with <<$tXem>>': gt 'lover_change', 'Tits'
  1578. exit
  1579. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1580. act 'You squeek, "But I like the size of my breasts..."':
  1581. *clr & cla
  1582. loverrelation[lover_number] -= 2
  1583. wantRand = rand(0, 100)
  1584. wantRand -= 4*loverscompliance[lover_number]
  1585. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1586. if wantRand > sub:
  1587. '<<$loverdesc[lover_number]>> tries to push you to change the size, but you successfully tell <<$tXem>> that you do not want to. This makes <<$tXem>> rather upset.'
  1588. *nl
  1589. dynamic $go_home
  1590. elseif wantRand <= sub:
  1591. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeanor, and you give in. <<$tXec>> grins widely and takes you to the clinic.'
  1592. sub += 4
  1593. loverrelation[lover_number] += 5
  1594. act 'Go to the clinic': gt 'lover_change', 'Tits'
  1595. end
  1596. end
  1597. act 'Go with <<$tXem>>': gt 'lover_change', 'Tits'
  1598. end
  1599. elseif salocatnow > figurePrefMax and figureDay <= loverdays[lover_number]:
  1600. *clr & cla
  1601. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1602. '<<$loverdesc[lover_number]>> tells you your body is just too thick.'
  1603. '<<$tXec>> offers to pay for you to get lyposuction.'
  1604. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1605. act '"My body weight is fine the way it is!", you say slightly offended':
  1606. *clr & cla
  1607. loverrelation[lover_number] -= 3
  1608. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1609. '<<$loverdesc[lover_number]>> tries to push you to change your body weight, but you are not that submissive to be pressured by <<$tXem>>, nor do your emotions make you make a choice you may regret.'
  1610. dynamic $go_home
  1611. end
  1612. act 'Go with <<$tXem>>': gt 'lover_change', 'Figure'
  1613. exit
  1614. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1615. act 'You think to yourself, its not like I like <<$tXem>> THAT much to get lyposuction':
  1616. *clr & cla
  1617. pcs_dom += 1
  1618. loverrelation[lover_number] -= 3
  1619. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1620. '<<$loverdesc[lover_number]>> <<$tXe>> realizes you adoration for <<$tXem>> isn''t enough to pressure you to get work done on your weight. <<$tXec>> tells you <<$tXe>> has something to do and heads off.'
  1621. dynamic $go_home
  1622. end
  1623. exit
  1624. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1625. act 'Your personality is not something that can be dominated that easily, and you brush <<$tXem>> off, telling <<$tXem>> that you decide what size your body looks good at':
  1626. *clr & cla
  1627. pcs_dom += 1
  1628. loverrelation[lover_number] -= 3
  1629. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1630. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  1631. dynamic $go_home
  1632. end
  1633. act 'Go with <<$tXem>>': gt 'lover_change', 'Figure'
  1634. exit
  1635. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1636. act 'You squeek, "But I like being this weight..."':
  1637. *clr & cla
  1638. loverrelation[lover_number] -= 2
  1639. wantRand = rand(0, 100)
  1640. wantRand -= 4*loverscompliance[lover_number]
  1641. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1642. if wantRand > sub:
  1643. '<<$loverdesc[lover_number]>> tries to push you to change your weight, but you successfully tell <<$tXem>> that you do not want to. This makes <<$tXem>> rather upset.'
  1644. *nl
  1645. dynamic $go_home
  1646. elseif wantRand <= sub:
  1647. '<<$loverdesc[lover_number]>> keeps up the pressure, and because of your demeanor, and you give in. <<$tXec>> grins widely and takes you to the clinic.'
  1648. sub += 4
  1649. loverrelation[lover_number] += 5
  1650. act 'Go to the clinic': gt 'lover_change', 'Figure'
  1651. end
  1652. end
  1653. act 'Go with <<$tXem>>': gt 'lover_change', 'Figure'
  1654. end
  1655. else
  1656. *clr & cla
  1657. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1658. '"Erm... Nothing..."'
  1659. act '"Well then..."': xgt 'lover_meet', 'actions'
  1660. end
  1661. elseif randchan = 1:
  1662. *clr & cla
  1663. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1664. '<<$loverdesc[lover_number]>> suggests that you go to a cafe.'
  1665. act 'Sorry, but I need to leave':
  1666. cla
  1667. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  1668. dynamic $go_home
  1669. end
  1670. act 'Go with <<$tXem>>':
  1671. if loverGender[lover_number] = 0: gt 'kafeM', 'start'
  1672. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kafesvid'
  1673. end
  1674. exit
  1675. elseif randchan = 2:
  1676. *clr & cla
  1677. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1678. '<<$loverdesc[lover_number]>> suggests that you go to a restaurant.'
  1679. act 'Sorry, but I need to leave':
  1680. cla
  1681. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  1682. dynamic $go_home
  1683. end
  1684. act 'Go with <<$tXem>>':
  1685. if loverGender[lover_number] = 0: gt 'restoranM', 'start'
  1686. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kafesvid'
  1687. end
  1688. exit
  1689. elseif randchan = 3:
  1690. *clr & cla
  1691. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1692. '<<$loverdesc[lover_number]>> suggests that you go to the movies.'
  1693. act 'Sorry, but I need to go':
  1694. cla
  1695. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  1696. dynamic $go_home
  1697. end
  1698. act 'Go with <<$tXem>>':
  1699. if loverGender[lover_number] = 0: gt 'kinoM', 'start'
  1700. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kinosvid'
  1701. end
  1702. exit
  1703. end
  1704. end
  1705. end
  1706. act 'I want to do something today':
  1707. *clr & cla
  1708. if rand(0,1): pcs_dom += 1
  1709. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1710. '"What do you want to do?", <<$tXe>> asks'
  1711. if loverGender[lover_number] = 0:
  1712. act '"Let''s go just relax in the stairwell and drink some beer."': gt 'podezdM', 'start'
  1713. act '"Let''s take a walk in the park"': gt 'parkM', 'start'
  1714. act '"Let''s go see a movie"': gt 'kinoM', 'start'
  1715. act '"Let''s go to the cafe."': gt 'kafeM', 'start'
  1716. elseif loverGender[lover_number] = 1:
  1717. $telsob = '<<$loverdesc[lover_number]>>'
  1718. if month > 5 and temper > 20 and sunWeather = 1:
  1719. act 'Invite to the park': gt 'parksvid'
  1720. end
  1721. act 'Invite to a movie': gt 'kinosvid'
  1722. act 'Invite to the pool hall': gt 'billsvid'
  1723. act 'Invite to the cafe': gt 'kafesvid'
  1724. act 'Invite to the casino': gt 'kazinosvid'
  1725. end
  1726. act 'Never mind...':
  1727. gt 'lover_meet', 'actions'
  1728. exit
  1729. end
  1730. end
  1731. act 'I think we should break up...':
  1732. *clr & cla
  1733. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1734. '<<$tXec>> looks hurt, but you insist it is for the best. You both say goodbye and part ways.'
  1735. gs 'lover', 'remove', lover_number
  1736. act 'Continue':
  1737. dynamic $go_home
  1738. exit
  1739. end
  1740. end
  1741. end
  1742. --- lover_meet ---------------------------------