lover_meet.qsrc 85 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809
  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. exit
  507. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  508. act 'You mumble "I would rather not..."':
  509. *clr & cla
  510. loverrelation[lover_number] -= 2
  511. wantRand = rand(0, 100)
  512. wantRand -= 4*loverscompliance[lover_number]
  513. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  514. if wantRand > sub:
  515. '<<$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.'
  516. *nl
  517. dynamic $go_home
  518. elseif wantRand <= sub:
  519. '<<$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.'
  520. sub += 2
  521. loverrelation[lover_number] += 5
  522. act 'Go to Salon': gt 'lover_change', 'Hair'
  523. end
  524. end
  525. end
  526. elseif makeupSetting ! makePrefTmp and makePrefTmp ! 0:
  527. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  528. '<<$loverdesc[lover_number]>> thinks about it and says "Can you wear <<$makePrefTmp>> from now on?"'
  529. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  530. act 'I like my makeup just the way it is':
  531. *clr & cla
  532. loverrelation[lover_number] -= 3
  533. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  534. '<<$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.'
  535. dynamic $go_home
  536. end
  537. act 'Agree to change the makeup you usually wear': gt 'lover_change', 'Make'
  538. exit
  539. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  540. act 'You think to yourself, its not like I like <<$tXem>> THAT much...':
  541. *clr & cla
  542. pcs_dom += 1
  543. loverrelation[lover_number] -=3
  544. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  545. '<<$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.'
  546. dynamic $go_home
  547. end
  548. exit
  549. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  550. 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':
  551. *clr & cla
  552. pcs_dom += 1
  553. loverrelation[lover_number] -=3
  554. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  555. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  556. dynamic $go_home
  557. end
  558. exit
  559. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  560. act 'You mumble "What''s wrong with my makeup...?"':
  561. *clr & cla
  562. loverrelation[lover_number] -= 2
  563. wantRand = rand(0, 100)
  564. wantRand -= 4*loverscompliance[lover_number]
  565. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  566. if wantRand > sub:
  567. '<<$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.'
  568. *nl
  569. dynamic $go_home
  570. elseif wantRand <= sub:
  571. '<<$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>>.'
  572. sub += 2
  573. loverrelation[lover_number] += 5
  574. act 'Continue': gt 'lover_change', 'Make'
  575. end
  576. end
  577. end
  578. elseif pierWearCount < pierPrefTmpMin or pierWearCount > pierPrefTmpMax and pierPrefTmp ! 0 and pierDay <= loverdays[lover_number]:
  579. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  580. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of piercings.'
  581. if pierWearCount < pierPrefTmpMin:
  582. '<<$tXec>> tells you that you should have more piercings.'
  583. else
  584. '<<$tXec>> tells you that you should have less piercings.'
  585. end
  586. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  587. act 'I am not going to change my piercings!':
  588. *clr & cla
  589. loverrelation[lover_number] -= 3
  590. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  591. '<<$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.'
  592. dynamic $go_home
  593. end
  594. act 'Agree to change the amount of piercings you have': gt 'lover_change', 'Pier'
  595. exit
  596. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  597. act 'You think to yourself, its not like I like <<$tXem>> THAT much...':
  598. *clr & cla
  599. pcs_dom += 1
  600. loverrelation[lover_number] -=3
  601. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  602. '<<$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'
  603. dynamic $go_home
  604. end
  605. exit
  606. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  607. act 'Your personality is not something that can be dominated that easily, and you brush <<$tXem>> off, telling <<$tXem>> you are who you are':
  608. *clr & cla
  609. pcs_dom += 1
  610. loverrelation[lover_number] -=3
  611. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  612. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  613. dynamic $go_home
  614. end
  615. exit
  616. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  617. act 'You mumble "I would rather not..."':
  618. *clr & cla
  619. loverrelation[lover_number] -= 2
  620. wantRand = rand(0, 100)
  621. wantRand -= 4*loverscompliance[lover_number]
  622. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  623. if wantRand > sub:
  624. '<<$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.'
  625. *nl
  626. dynamic $go_home
  627. elseif wantRand <= sub:
  628. '<<$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.'
  629. sub += 2
  630. loverrelation[lover_number] += 5
  631. act 'Continue': gt 'lover_change', 'Pier'
  632. end
  633. end
  634. end
  635. elseif tattCount < tattPrefTmpMin or tattCount > tattPrefTmpMax and tattPrefTmp ! 0 and tattDay <= loverdays[lover_number]:
  636. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  637. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of tattoos.'
  638. if tattCount < tattPrefTmpMin:
  639. '<<$tXec>> tells you that you should have more tattoos.'
  640. else
  641. '<<$tXec>> tells you that you should have less tattoos.'
  642. end
  643. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  644. act 'I am not going to change my tattoos!':
  645. *clr & cla
  646. loverrelation[lover_number] -= 3
  647. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  648. '<<$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.'
  649. dynamic $go_home
  650. end
  651. act 'Agree to change the amount of tattoos you have': gt 'lover_change', 'Tatt'
  652. exit
  653. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  654. act 'You think to yourself, its not like I like <<$tXem>> THAT much...':
  655. *clr & cla
  656. pcs_dom += 1
  657. loverrelation[lover_number] -=3
  658. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  659. '<<$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'
  660. dynamic $go_home
  661. end
  662. exit
  663. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  664. act 'Your personality is not something that can be dominated that easily, and you brush <<$tXem>> off, telling <<$tXem>> you are who you are':
  665. *clr & cla
  666. pcs_dom += 1
  667. loverrelation[lover_number] -=3
  668. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  669. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  670. dynamic $go_home
  671. end
  672. exit
  673. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  674. act 'You mumble "I would rather not..."':
  675. *clr & cla
  676. loverrelation[lover_number] -= 2
  677. wantRand = rand(0, 100)
  678. wantRand -= 4*loverscompliance[lover_number]
  679. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  680. if wantRand > sub:
  681. '<<$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.'
  682. *nl
  683. dynamic $go_home
  684. elseif wantRand <= sub:
  685. '<<$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.'
  686. sub += 2
  687. loverrelation[lover_number] += 5
  688. act 'Go to tattoo parlor': gt 'lover_change', 'Tatt'
  689. end
  690. end
  691. end
  692. else
  693. *clr & cla
  694. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  695. 'Erm... Nothing...'
  696. act 'Well then...': xgt 'lover_meet', 'actions'
  697. end
  698. elseif randchan = 1 and loverGender[lover_number] = 0:
  699. *clr & cla
  700. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  701. '<<$loverdesc[lover_number]>> suggest you and <<$tXem>> drink a beer in the stairwell.'
  702. act 'Sorry, but I need to go':
  703. cla
  704. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  705. dynamic $go_home
  706. end
  707. act 'Go with <<$tXem>>':gt 'podezdM', 'start'
  708. elseif randchan = 2 or loverGender[lover_number] = 1:
  709. *clr & cla
  710. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  711. '<<$loverdesc[lover_number]>> suggests that you take a walk in the park.'
  712. act 'Sorry, but I need to go':
  713. cla
  714. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  715. dynamic $go_home
  716. end
  717. act 'Go with <<$tXem>>':
  718. if loverGender[lover_number] = 0: gt 'parkM', 'start'
  719. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'parksvid'
  720. end
  721. end
  722. elseif loverfinance[lover_number] = 1:
  723. *clr & cla
  724. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  725. !! 0 - change player, 1 - go to the movies, 2 - walk in park, 3 , suggests that you go to a cafe.
  726. randchan = rand(0, 3)
  727. !! 1 = does like, 0 = not like
  728. if (pierWearCount >= pierPrefTmpMin and pierWearCount <= pierPrefTmpMax) or pierPrefTmp = 0:
  729. pierCheck = 1
  730. else
  731. pierCheck = 0
  732. end
  733. if (tattCount >= tattPrefTmpMin and tattCount <= tattPrefTmpMax) or tattPrefTmp = 0:
  734. tattCheck = 1
  735. else
  736. tattCheck = 0
  737. end
  738. if (makeupSetting = makePrefTmp) or makePrefTmp = 0:
  739. makeupCheck = 1
  740. else
  741. makeupCheck = 0
  742. end
  743. if pcs_haircol = hairPref:
  744. hairCheck = 1
  745. else
  746. hairCheck = 0
  747. end
  748. if tits >= titMin and tits <= titMax:
  749. titCheck = 1
  750. else
  751. titCheck = 0
  752. end
  753. if pcs_lips >= lipsPrefTmpMin and tits <= lipsPrefTmpMax:
  754. lipsCheck = 1
  755. else
  756. lipsCheck = 0
  757. end
  758. if randchan = 0 and (pierCheck + tattCheck + makeupCheck + hairCheck + titCheck + lipsCheck) = 6:
  759. 'Takes one look at your body and loves every part of it.'
  760. randchan = rand(1, 3)
  761. end
  762. if randchan = 0:
  763. *clr & cla
  764. !!Some things you can change.
  765. !!loverfinance[lover_number] = 1 - hair, makeup, tattoo, piercings, lips, tits.
  766. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  767. if haraklover[lover_number] = 0:
  768. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  769. elseif haraklover[lover_number] = 1:
  770. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  771. elseif haraklover[lover_number] = 2:
  772. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  773. end
  774. '"Whats up <<$loverdesc[lover_number]>>?"'
  775. '"There is just a trait about you that bugs me, can we change that?"'
  776. 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.'
  777. gs 'lover_likes', 'compliance'
  778. '"And what did you want to change about me?"'
  779. !!This is to make a last check on how many piercings they are WEARING
  780. gs 'lover_likes', 'checkPier'
  781. if pcs_haircol ! hairPref:
  782. '<<$loverdesc[lover_number]>> looks at your hair and says, "can we get your hair dyed?"'
  783. !!act 'I''d rather not...':
  784. if sub < 20 and loverrelation[lover_number] < 60 and compliance < 6:
  785. act 'I like my hair just the way it is':
  786. *clr & cla
  787. loverrelation[lover_number] -= 3
  788. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  789. '<<$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.'
  790. dynamic $go_home
  791. end
  792. act 'Go with <<$tXem>>': gt 'lover_change', 'Hair'
  793. exit
  794. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  795. act 'You think to yourself, its not like I like <<$tXem>> THAT much...':
  796. *clr & cla
  797. pcs_dom += 1
  798. loverrelation[lover_number] -= 3
  799. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  800. '<<$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'
  801. dynamic $go_home
  802. end
  803. exit
  804. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  805. act 'Your personality is not something that can be dominated that easily, and you brush <<$tXem>> off, telling <<$tXem>> you are who you are':
  806. *clr & cla
  807. pcs_dom += 1
  808. loverrelation[lover_number] -=3
  809. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  810. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  811. dynamic $go_home
  812. end
  813. exit
  814. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  815. act 'You mumble "I would rather not..."':
  816. *clr & cla
  817. loverrelation[lover_number] -= 2
  818. wantRand = rand(0, 100)
  819. wantRand -= 4*loverscompliance[lover_number]
  820. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  821. if wantRand > sub:
  822. '<<$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.'
  823. *nl
  824. dynamic $go_home
  825. elseif wantRand <= sub:
  826. '<<$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.'
  827. sub += 2
  828. loverrelation[lover_number] += 5
  829. act 'Go to Salon': gt 'lover_change', 'Hair'
  830. end
  831. end
  832. end
  833. elseif makeupSetting ! makePrefTmp and makePrefTmp ! 0:
  834. *clr & cla
  835. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  836. '<<$loverdesc[lover_number]>> thinks about it and says "Can you wear <<$makePrefTmp>> from now on?"'
  837. !!act 'I''d rather not...':
  838. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  839. act 'I like my makeup just the way it is':
  840. *clr & cla
  841. loverrelation[lover_number] -= 3
  842. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  843. '<<$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.'
  844. dynamic $go_home
  845. end
  846. act 'Agree to change the makeup you usually wear': gt 'lover_change', 'Make'
  847. exit
  848. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  849. act 'You think to yourself, its not like I like <<$tXem>> THAT much...':
  850. *clr & cla
  851. pcs_dom += 1
  852. loverrelation[lover_number] -= 3
  853. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  854. '<<$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.'
  855. dynamic $go_home
  856. end
  857. exit
  858. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  859. 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':
  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]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  865. dynamic $go_home
  866. end
  867. exit
  868. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  869. act 'You mumble "What''s wrong with my makeup...?"':
  870. *clr & cla
  871. loverrelation[lover_number] -= 2
  872. wantRand = rand(0, 100)
  873. wantRand -= 4*loverscompliance[lover_number]
  874. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  875. if wantRand > sub:
  876. '<<$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.'
  877. *nl
  878. dynamic $go_home
  879. elseif wantRand <= sub:
  880. '<<$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>>.'
  881. sub += 2
  882. loverrelation[lover_number] += 5
  883. act 'Continue': gt 'lover_change', 'Make'
  884. end
  885. end
  886. end
  887. elseif pierWearCount < pierPrefTmpMin or pierWearCount > pierPrefTmpMax and pierPrefTmp ! 0 and pierDay <= loverdays[lover_number]:
  888. *clr & cla
  889. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  890. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of piercings.'
  891. if pierWearCount < pierPrefTmpMin:
  892. '<<$tXec>> tells you that you should have more piercings.'
  893. else
  894. '<<$tXec>> tells you that you should have less piercings.'
  895. end
  896. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  897. act 'I am not going to change my piercings!':
  898. *clr & cla
  899. loverrelation[lover_number] -= 3
  900. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  901. '<<$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.'
  902. dynamic $go_home
  903. end
  904. act 'Agree to change the amount of piercings you have': gt 'lover_change', 'Pier'
  905. exit
  906. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  907. act 'You think to yourself, its not like I like <<$tXem>> THAT much...':
  908. *clr & cla
  909. pcs_dom += 1
  910. loverrelation[lover_number] -= 3
  911. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  912. '<<$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'
  913. dynamic $go_home
  914. end
  915. exit
  916. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  917. act 'Your personality is not something that can be dominated that easily, and you brush <<$tXem>> off, telling <<$tXem>> you are who you are':
  918. *clr & cla
  919. pcs_dom += 1
  920. loverrelation[lover_number] -= 3
  921. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  922. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  923. dynamic $go_home
  924. end
  925. exit
  926. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  927. act 'You mumble "I would rather not..."':
  928. *clr & cla
  929. loverrelation[lover_number] -= 2
  930. wantRand = rand(0, 100)
  931. wantRand -= 4*loverscompliance[lover_number]
  932. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  933. if wantRand > sub:
  934. '<<$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.'
  935. *nl
  936. dynamic $go_home
  937. elseif wantRand <= sub:
  938. '<<$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.'
  939. sub += 2
  940. loverrelation[lover_number] += 5
  941. act 'Continue': gt 'lover_change', 'Pier'
  942. end
  943. end
  944. end
  945. elseif tattCount < tattPrefTmpMin or tattCount > tattPrefTmpMax and tattPrefTmp ! 0 and tattDay <= loverdays[lover_number]:
  946. *clr & cla
  947. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  948. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of tattoos.'
  949. if tattCount < tattPrefTmpMin:
  950. '<<$tXec>> tells you that you should have more tattoos.'
  951. else
  952. '<<$tXec>> tells you that you should have less tattoos.'
  953. end
  954. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  955. act 'I am not going to change my tattoos!':
  956. *clr & cla
  957. loverrelation[lover_number] -= 3
  958. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  959. '<<$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.'
  960. dynamic $go_home
  961. end
  962. act 'Agree to change the amount of tattoos you have': gt 'lover_change', 'Tatt'
  963. exit
  964. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  965. act 'You think to yourself, its not like I like <<$tXem>> THAT much...':
  966. *clr & cla
  967. pcs_dom += 1
  968. loverrelation[lover_number] -= 3
  969. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  970. '<<$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'
  971. dynamic $go_home
  972. end
  973. exit
  974. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  975. act 'Your personality is not something that can be dominated that easily, and you brush <<$tXem>> off, telling <<$tXem>> you are who you are':
  976. *clr & cla
  977. pcs_dom += 1
  978. loverrelation[lover_number] -= 3
  979. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  980. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  981. dynamic $go_home
  982. end
  983. exit
  984. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  985. act 'You mumble "I would rather not..."':
  986. *clr & cla
  987. loverrelation[lover_number] -= 2
  988. wantRand = rand(0, 100)
  989. wantRand -= 4*loverscompliance[lover_number]
  990. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  991. if wantRand > sub:
  992. '<<$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.'
  993. *nl
  994. dynamic $go_home
  995. elseif wantRand <= sub:
  996. '<<$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.'
  997. sub += 2
  998. loverrelation[lover_number] += 5
  999. act 'Go to tattoo parlor': gt 'lover_change', 'Tatt'
  1000. end
  1001. end
  1002. end
  1003. elseif pcs_lip < lipsPrefTmpMin or pcs_lip > lipsPrefTmpMax and lipsDay <= loverdays[lover_number]:
  1004. *clr & cla
  1005. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1006. '<<$loverdesc[lover_number]>> tells you your lips are just not the right size.'
  1007. if pcs_lip < lipsPrefTmpMin:
  1008. '<<$tXec>> tells you that you should get lip injections.'
  1009. else
  1010. '<<$tXec>> tells you that you should have lip reduction.'
  1011. end
  1012. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1013. act '"My lips are fine the way they are!", you say slightly offended':
  1014. *clr & cla
  1015. loverrelation[lover_number] -= 3
  1016. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1017. '<<$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.'
  1018. dynamic $go_home
  1019. end
  1020. act 'Go with <<$tXem>>': gt 'lover_change', 'Lips'
  1021. exit
  1022. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1023. act 'You think to yourself, its not like I like <<$tXem>> THAT much to get work done on my lips':
  1024. *clr & cla
  1025. pcs_dom += 1
  1026. loverrelation[lover_number] -= 3
  1027. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1028. '<<$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.'
  1029. dynamic $go_home
  1030. end
  1031. exit
  1032. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1033. 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':
  1034. *clr & cla
  1035. pcs_dom += 1
  1036. loverrelation[lover_number] -= 3
  1037. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1038. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  1039. dynamic $go_home
  1040. end
  1041. exit
  1042. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1043. act 'You squeek, "But I like the size of my lips..."':
  1044. *clr & cla
  1045. loverrelation[lover_number] -= 2
  1046. wantRand = rand(0, 100)
  1047. wantRand -= 4*loverscompliance[lover_number]
  1048. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1049. if wantRand > sub:
  1050. '<<$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.'
  1051. *nl
  1052. dynamic $go_home
  1053. elseif wantRand <= sub:
  1054. '<<$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.'
  1055. sub += 4
  1056. loverrelation[lover_number] += 5
  1057. act 'Go to the clinic': gt 'lover_change', 'Lips'
  1058. end
  1059. end
  1060. end
  1061. elseif tits < titMin or tits > titMax and titsDay <= loverdays[lover_number]:
  1062. *clr & cla
  1063. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1064. '<<$loverdesc[lover_number]>> tells you your breasts are just not right.'
  1065. if tits < titMin:
  1066. '<<$tXec>> tells you that you should get breast implants.'
  1067. else
  1068. '<<$tXec>> tells you that you should have a breast reduction.'
  1069. end
  1070. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1071. act '"My breasts are fine the way they are!", you say slightly offended':
  1072. *clr & cla
  1073. loverrelation[lover_number] -= 3
  1074. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1075. '<<$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.'
  1076. dynamic $go_home
  1077. end
  1078. act 'Go with <<$tXem>>': gt 'lover_change', 'Tits'
  1079. exit
  1080. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1081. act 'You think to yourself, its not like I like <<$tXem>> THAT much to get work done on my breasts':
  1082. *clr & cla
  1083. pcs_dom += 1
  1084. loverrelation[lover_number] -= 3
  1085. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1086. '<<$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.'
  1087. dynamic $go_home
  1088. end
  1089. exit
  1090. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1091. 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':
  1092. *clr & cla
  1093. pcs_dom += 1
  1094. loverrelation[lover_number] -= 3
  1095. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1096. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  1097. dynamic $go_home
  1098. end
  1099. exit
  1100. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1101. act 'You squeek, "But I like the size of my breasts..."':
  1102. *clr & cla
  1103. loverrelation[lover_number] -= 2
  1104. wantRand = rand(0, 100)
  1105. wantRand -= 4*loverscompliance[lover_number]
  1106. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1107. if wantRand > sub:
  1108. '<<$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.'
  1109. *nl
  1110. dynamic $go_home
  1111. elseif wantRand <= sub:
  1112. '<<$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.'
  1113. sub += 4
  1114. loverrelation[lover_number] += 5
  1115. act 'Go to the clinic': gt 'lover_change', 'Tits'
  1116. end
  1117. end
  1118. end
  1119. else
  1120. *clr & cla
  1121. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1122. '"Erm... Nothing..."'
  1123. act '"Well then..."': xgt 'lover_meet', 'actions'
  1124. end
  1125. elseif randchan = 1:
  1126. *clr & cla
  1127. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1128. '<<$loverdesc[lover_number]>> suggests that you go to the movies.'
  1129. act 'Sorry, but I need to go':
  1130. cla
  1131. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  1132. dynamic $go_home
  1133. end
  1134. act 'Go with <<$tXem>>':
  1135. if loverGender[lover_number] = 0: gt 'kinoM', 'start'
  1136. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kinosvid'
  1137. end
  1138. elseif randchan = 2:
  1139. *clr & cla
  1140. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1141. '<<$loverdesc[lover_number]>> suggest that you take a walk in the park'
  1142. act 'Sorry, but I need to go':
  1143. cla
  1144. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  1145. dynamic $go_home
  1146. end
  1147. act 'Go with <<$tXem>>':
  1148. if loverGender[lover_number] = 0: gt 'parkM', 'start'
  1149. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'parksvid'
  1150. end
  1151. elseif randchan = 3:
  1152. *clr & cla
  1153. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1154. '<<$loverdesc[lover_number]>> suggests that you go to a cafe.'
  1155. act 'Sorry, but I need to go':
  1156. cla
  1157. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  1158. dynamic $go_home
  1159. end
  1160. act 'Go with <<$tXem>>':
  1161. if loverGender[lover_number] = 0: gt 'kafeM', 'start'
  1162. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kafesvid'
  1163. end
  1164. end
  1165. elseif loverfinance[lover_number] = 2:
  1166. *clr & cla
  1167. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1168. !!Some things you can change.
  1169. !!loverfinance[lover_number] = 2 - hair, makeup, tattoo, piercings, lips, tits
  1170. !! 0 - change player, 1 - go to a cafe, 2 - go to a restaurant, 3 - to the movies.
  1171. randchan = rand(0, 3)
  1172. !! 1 = does like, 0 = not like
  1173. if (pierWearCount >= pierPrefTmpMin and pierWearCount <= pierPrefTmpMax) or pierPrefTmp = 0:
  1174. pierCheck = 1
  1175. else
  1176. pierCheck = 0
  1177. end
  1178. if (tattCount >= tattPrefTmpMin and tattCount <= tattPrefTmpMax) or tattPrefTmp = 0:
  1179. tattCheck = 1
  1180. else
  1181. tattCheck = 0
  1182. end
  1183. if (makeupSetting = makePrefTmp) or makePrefTmp = 0:
  1184. makeupCheck = 1
  1185. else
  1186. makeupCheck = 0
  1187. end
  1188. if pcs_haircol = hairPref:
  1189. hairCheck = 1
  1190. else
  1191. hairCheck = 0
  1192. end
  1193. if tits >= titMin and tits <= titMax:
  1194. titCheck = 1
  1195. else
  1196. titCheck = 0
  1197. end
  1198. if pcs_lips >= lipsPrefTmpMin and tits <= lipsPrefTmpMax:
  1199. lipsCheck = 1
  1200. else
  1201. lipsCheck = 0
  1202. end
  1203. if salocatnow <= figurePrefMax:
  1204. figureCheck = 1
  1205. else
  1206. figureCheck = 0
  1207. end
  1208. if randchan = 0 and (pierCheck + tattCheck + makeupCheck + hairCheck + titCheck + lipsCheck + figureCheck) = 7:
  1209. 'Takes one look at your body and loves every part of it.'
  1210. randchan = rand(1, 3)
  1211. end
  1212. if randchan = 0:
  1213. *clr & cla
  1214. !!Some things you can change.
  1215. !!loverfinance[lover_number] = 2 - hair, makeup, tattoo, piercings, lips, tits, figure.
  1216. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1217. if haraklover[lover_number] = 0:
  1218. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  1219. elseif haraklover[lover_number] = 1:
  1220. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  1221. elseif haraklover[lover_number] = 2:
  1222. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  1223. end
  1224. '"Whats up <<$loverdesc[lover_number]>>?"'
  1225. '"There is just a trait about you that bugs me, can we change that?"'
  1226. 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.'
  1227. gs 'lover_likes', 'compliance'
  1228. '"And what did you want to change about me?"'
  1229. !!This is to make a last check on how many piercings they are WEARING
  1230. gs 'lover_likes', 'checkPier'
  1231. if pcs_haircol ! hairPref:
  1232. '<<$loverdesc[lover_number]>> looks at your hair and says, "can we get your hair dyed?"'
  1233. !!act 'I''d rather not...':
  1234. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1235. act 'I like my hair just the way it is':
  1236. *clr & cla
  1237. loverrelation[lover_number] -= 3
  1238. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1239. '<<$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.'
  1240. dynamic $go_home
  1241. end
  1242. act 'Go with <<$tXem>>': gt 'lover_change', 'Hair'
  1243. exit
  1244. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1245. act 'You think to yourself, its not like I like <<$tXem>> THAT much...':
  1246. *clr & cla
  1247. pcs_dom += 1
  1248. loverrelation[lover_number] -= 3
  1249. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1250. '<<$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'
  1251. dynamic $go_home
  1252. end
  1253. exit
  1254. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1255. act 'Your personality is not something that can be dominated that easily, and you brush <<$tXem>> off, telling <<$tXem>> you are who you are':
  1256. *clr & cla
  1257. pcs_dom += 1
  1258. loverrelation[lover_number] -= 3
  1259. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1260. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  1261. dynamic $go_home
  1262. end
  1263. exit
  1264. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1265. act 'You mumble "I would rather not..."':
  1266. *clr & cla
  1267. loverrelation[lover_number] -= 2
  1268. wantRand = rand(0, 100)
  1269. wantRand -= 4*loverscompliance[lover_number]
  1270. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1271. if wantRand > sub:
  1272. '<<$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.'
  1273. *nl
  1274. dynamic $go_home
  1275. elseif wantRand <= sub:
  1276. '<<$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.'
  1277. sub += 2
  1278. loverrelation[lover_number] += 5
  1279. act 'Go to Salon': gt 'lover_change', 'Hair'
  1280. end
  1281. end
  1282. end
  1283. elseif makeupSetting ! makePrefTmp and makePrefTmp ! 0:
  1284. '<<$loverdesc[lover_number]>> thinks about it and says "Can you wear <<$makePrefTmp>> from now on?"'
  1285. !!act 'I''d rather not...':
  1286. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1287. act 'I like my makeup just the way it is':
  1288. *clr & cla
  1289. loverrelation[lover_number] -= 3
  1290. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1291. '<<$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.'
  1292. dynamic $go_home
  1293. end
  1294. act 'Agree to change the makeup you usually wear': gt 'lover_change', 'Make'
  1295. exit
  1296. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1297. act 'You think to yourself, its not like I like <<$tXem>> THAT much...':
  1298. *clr & cla
  1299. pcs_dom += 1
  1300. loverrelation[lover_number] -= 3
  1301. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1302. '<<$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.'
  1303. dynamic $go_home
  1304. end
  1305. exit
  1306. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1307. 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':
  1308. *clr & cla
  1309. pcs_dom += 1
  1310. loverrelation[lover_number] -= 3
  1311. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1312. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  1313. dynamic $go_home
  1314. end
  1315. exit
  1316. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1317. act 'You mumble "What''s wrong with my makeup...?"':
  1318. *clr & cla
  1319. loverrelation[lover_number] -= 2
  1320. wantRand = rand(0, 100)
  1321. wantRand -= 4*loverscompliance[lover_number]
  1322. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1323. if wantRand > sub:
  1324. '<<$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.'
  1325. *nl
  1326. dynamic $go_home
  1327. elseif wantRand <= sub:
  1328. '<<$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>>.'
  1329. sub += 2
  1330. loverrelation[lover_number] += 5
  1331. act 'Continue': gt 'lover_change', 'Make'
  1332. end
  1333. end
  1334. end
  1335. elseif pierWearCount < pierPrefTmpMin or pierWearCount > pierPrefTmpMax and pierPrefTmp ! 0 and pierDay <= loverdays[lover_number]:
  1336. *clr & cla
  1337. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1338. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of piercings.'
  1339. if pierWearCount < pierPrefTmpMin:
  1340. '<<$tXec>> tells you that you should have more piercings.'
  1341. else
  1342. '<<$tXec>> tells you that you should have less piercings.'
  1343. end
  1344. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1345. act 'I am not going to change my piercings!':
  1346. *clr & cla
  1347. loverrelation[lover_number] -= 3
  1348. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1349. '<<$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.'
  1350. dynamic $go_home
  1351. end
  1352. act 'Agree to change the amount of piercings you have': gt 'lover_change', 'Pier'
  1353. exit
  1354. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1355. act 'You think to yourself, its not like I like <<$tXem>> THAT much...':
  1356. *clr & cla
  1357. pcs_dom += 1
  1358. loverrelation[lover_number] -= 3
  1359. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1360. '<<$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'
  1361. dynamic $go_home
  1362. end
  1363. exit
  1364. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1365. act 'Your personality is not something that can be dominated that easily, and you brush <<$tXem>> off, telling <<$tXem>> you are who you are':
  1366. *clr & cla
  1367. pcs_dom += 1
  1368. loverrelation[lover_number] -= 3
  1369. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1370. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  1371. dynamic $go_home
  1372. end
  1373. exit
  1374. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1375. act 'You mumble "I would rather not..."':
  1376. *clr & cla
  1377. loverrelation[lover_number] -= 2
  1378. wantRand = rand(0, 100)
  1379. wantRand -= 4*loverscompliance[lover_number]
  1380. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1381. if wantRand > sub:
  1382. '<<$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.'
  1383. *nl
  1384. dynamic $go_home
  1385. elseif wantRand <= sub:
  1386. '<<$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.'
  1387. sub += 2
  1388. loverrelation[lover_number] += 5
  1389. act 'Continue': gt 'lover_change', 'Pier'
  1390. end
  1391. end
  1392. end
  1393. elseif tattCount < tattPrefTmpMin or tattCount > tattPrefTmpMax and tattPrefTmp ! 0 and tattDay <= loverdays[lover_number]:
  1394. *clr & cla
  1395. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1396. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of tattoos.'
  1397. if tattCount < tattPrefTmpMin:
  1398. '<<$tXec>> tells you that you should have more tattoos.'
  1399. else
  1400. '<<$tXec>> tells you that you should have less tattoos.'
  1401. end
  1402. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1403. act 'I am not going to change my tattoos!':
  1404. *clr & cla
  1405. loverrelation[lover_number] -= 3
  1406. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1407. '<<$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.'
  1408. dynamic $go_home
  1409. end
  1410. act 'Agree to change the amount of tattoos you have': gt 'lover_change', 'Tatt'
  1411. exit
  1412. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1413. act 'You think to yourself, its not like I like <<$tXem>> THAT much...':
  1414. *clr & cla
  1415. pcs_dom += 1
  1416. loverrelation[lover_number] -= 3
  1417. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1418. '<<$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'
  1419. dynamic $go_home
  1420. end
  1421. exit
  1422. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1423. act 'Your personality is not something that can be dominated that easily, and you brush <<$tXem>> off, telling <<$tXem>> you are who you are':
  1424. *clr & cla
  1425. pcs_dom += 1
  1426. loverrelation[lover_number] -= 3
  1427. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1428. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  1429. dynamic $go_home
  1430. end
  1431. exit
  1432. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1433. act 'You mumble "I would rather not..."':
  1434. *clr & cla
  1435. loverrelation[lover_number] -= 2
  1436. wantRand = rand(0, 100)
  1437. wantRand -= 4*loverscompliance[lover_number]
  1438. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1439. if wantRand > sub:
  1440. '<<$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.'
  1441. *nl
  1442. dynamic $go_home
  1443. elseif wantRand <= sub:
  1444. '<<$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.'
  1445. sub += 2
  1446. loverrelation[lover_number] += 5
  1447. act 'Go to tattoo parlor': gt 'lover_change', 'Tatt'
  1448. end
  1449. end
  1450. end
  1451. elseif pcs_lip < lipsPrefTmpMin or pcs_lip > lipsPrefTmpMax and lipsDay <= loverdays[lover_number]:
  1452. *clr & cla
  1453. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1454. '<<$loverdesc[lover_number]>> tells you your lips are just not the right size.'
  1455. if pcs_lip < lipsPrefTmpMin:
  1456. '<<$tXec>> tells you that you should get lip injections.'
  1457. else
  1458. '<<$tXec>> tells you that you should have lip reduction.'
  1459. end
  1460. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1461. act '"My lips are fine the way they are!", you say slightly offended':
  1462. *clr & cla
  1463. loverrelation[lover_number] -= 3
  1464. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1465. '<<$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.'
  1466. dynamic $go_home
  1467. end
  1468. act 'Go with <<$tXem>>': gt 'lover_change', 'Lips'
  1469. exit
  1470. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1471. act 'You think to yourself, its not like I like <<$tXem>> THAT much to get work done on my lips':
  1472. *clr & cla
  1473. pcs_dom += 1
  1474. loverrelation[lover_number] -= 3
  1475. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1476. '<<$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.'
  1477. dynamic $go_home
  1478. end
  1479. exit
  1480. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1481. 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':
  1482. *clr & cla
  1483. pcs_dom += 1
  1484. loverrelation[lover_number] -= 3
  1485. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1486. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  1487. dynamic $go_home
  1488. end
  1489. exit
  1490. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1491. act 'You squeek, "But I like the size of my lips..."':
  1492. *clr & cla
  1493. loverrelation[lover_number] -= 2
  1494. wantRand = rand(0, 100)
  1495. wantRand -= 4*loverscompliance[lover_number]
  1496. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1497. if wantRand > sub:
  1498. '<<$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.'
  1499. *nl
  1500. dynamic $go_home
  1501. elseif wantRand <= sub:
  1502. '<<$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.'
  1503. sub += 4
  1504. loverrelation[lover_number] += 5
  1505. act 'Go to the clinic': gt 'lover_change', 'Lips'
  1506. end
  1507. end
  1508. end
  1509. elseif tits < titMin or tits > titMax and titsDay <= loverdays[lover_number]:
  1510. *clr & cla
  1511. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1512. '<<$loverdesc[lover_number]>> tells you your breasts are just not right.'
  1513. if tits < titMin:
  1514. '<<$tXec>> tells you that you should get breast implants.'
  1515. else
  1516. '<<$tXec>> tells you that you should have a breast reduction.'
  1517. end
  1518. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1519. act '"My breasts are fine the way they are!", you say slightly offended':
  1520. *clr & cla
  1521. loverrelation[lover_number] -= 3
  1522. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1523. '<<$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.'
  1524. dynamic $go_home
  1525. end
  1526. act 'Go with <<$tXem>>': gt 'lover_change', 'Tits'
  1527. exit
  1528. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1529. act 'You think to yourself, its not like I like <<$tXem>> THAT much to get work done on my breasts':
  1530. *clr & cla
  1531. pcs_dom += 1
  1532. loverrelation[lover_number] -= 3
  1533. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1534. '<<$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.'
  1535. dynamic $go_home
  1536. end
  1537. exit
  1538. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1539. 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':
  1540. *clr & cla
  1541. pcs_dom += 1
  1542. loverrelation[lover_number] -= 3
  1543. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1544. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  1545. dynamic $go_home
  1546. end
  1547. exit
  1548. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1549. act 'You squeek, "But I like the size of my breasts..."':
  1550. *clr & cla
  1551. loverrelation[lover_number] -= 2
  1552. wantRand = rand(0, 100)
  1553. wantRand -= 4*loverscompliance[lover_number]
  1554. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1555. if wantRand > sub:
  1556. '<<$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.'
  1557. *nl
  1558. dynamic $go_home
  1559. elseif wantRand <= sub:
  1560. '<<$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.'
  1561. sub += 4
  1562. loverrelation[lover_number] += 5
  1563. act 'Go to the clinic': gt 'lover_change', 'Tits'
  1564. end
  1565. end
  1566. end
  1567. elseif salocatnow > figurePrefMax and figureDay <= loverdays[lover_number]:
  1568. *clr & cla
  1569. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1570. '<<$loverdesc[lover_number]>> tells you your body is just too thick.'
  1571. '<<$tXec>> offers to pay for you to get lyposuction.'
  1572. if sub < 20 and loverrelation[lover_number] < 60 and loverscompliance[lover_number] < 6:
  1573. act '"My body weight is fine the way it is!", you say slightly offended':
  1574. *clr & cla
  1575. loverrelation[lover_number] -= 3
  1576. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1577. '<<$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.'
  1578. dynamic $go_home
  1579. end
  1580. act 'Go with <<$tXem>>': gt 'lover_change', 'Figure'
  1581. exit
  1582. elseif loverrelation[lover_number] <= 60 and loverscompliance[lover_number] < 6:
  1583. act 'You think to yourself, its not like I like <<$tXem>> THAT much to get lyposuction':
  1584. *clr & cla
  1585. pcs_dom += 1
  1586. loverrelation[lover_number] -= 3
  1587. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1588. '<<$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.'
  1589. dynamic $go_home
  1590. end
  1591. exit
  1592. elseif sub <= 20 and loverscompliance[lover_number] < 6:
  1593. 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':
  1594. *clr & cla
  1595. pcs_dom += 1
  1596. loverrelation[lover_number] -= 3
  1597. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1598. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  1599. dynamic $go_home
  1600. end
  1601. exit
  1602. elseif sub > 20 or loverscompliance[lover_number] >= 6:
  1603. act 'You squeek, "But I like being this weight..."':
  1604. *clr & cla
  1605. loverrelation[lover_number] -= 2
  1606. wantRand = rand(0, 100)
  1607. wantRand -= 4*loverscompliance[lover_number]
  1608. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1609. if wantRand > sub:
  1610. '<<$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.'
  1611. *nl
  1612. dynamic $go_home
  1613. elseif wantRand <= sub:
  1614. '<<$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.'
  1615. sub += 4
  1616. loverrelation[lover_number] += 5
  1617. act 'Go to the clinic': gt 'lover_change', 'Figure'
  1618. end
  1619. end
  1620. end
  1621. else
  1622. *clr & cla
  1623. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1624. '"Erm... Nothing..."'
  1625. act '"Well then..."': xgt 'lover_meet', 'actions'
  1626. end
  1627. elseif randchan = 1:
  1628. *clr & cla
  1629. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1630. '<<$loverdesc[lover_number]>> suggests that you go to a cafe.'
  1631. act 'Sorry, but I need to leave':
  1632. cla
  1633. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  1634. dynamic $go_home
  1635. end
  1636. act 'Go with <<$tXem>>':
  1637. if loverGender[lover_number] = 0: gt 'kafeM', 'start'
  1638. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kafesvid'
  1639. end
  1640. exit
  1641. elseif randchan = 2:
  1642. *clr & cla
  1643. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1644. '<<$loverdesc[lover_number]>> suggests that you go to a restaurant.'
  1645. act 'Sorry, but I need to leave':
  1646. cla
  1647. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  1648. dynamic $go_home
  1649. end
  1650. act 'Go with <<$tXem>>':
  1651. if loverGender[lover_number] = 0: gt 'restoranM', 'start'
  1652. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kafesvid'
  1653. end
  1654. exit
  1655. elseif randchan = 3:
  1656. *clr & cla
  1657. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1658. '<<$loverdesc[lover_number]>> suggests that you go to the movies.'
  1659. act 'Sorry, but I need to go':
  1660. cla
  1661. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  1662. dynamic $go_home
  1663. end
  1664. act 'Go with <<$tXem>>':
  1665. if loverGender[lover_number] = 0: gt 'kinoM', 'start'
  1666. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kinosvid'
  1667. end
  1668. exit
  1669. end
  1670. end
  1671. end
  1672. act 'I want to do something today':
  1673. *clr & cla
  1674. if rand(0,1): pcs_dom += 1
  1675. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1676. '"What do you want to do?", <<$tXe>> asks'
  1677. if loverGender[lover_number] = 0:
  1678. act '"Let''s go just relax in the stairwell and drink some beer."': gt 'podezdM', 'start'
  1679. act '"Let''s take a walk in the park"': gt 'parkM', 'start'
  1680. act '"Let''s go see a movie"': gt 'kinoM', 'start'
  1681. act '"Let''s go to the cafe."': gt 'kafeM', 'start'
  1682. elseif loverGender[lover_number] = 1:
  1683. $telsob = '<<$loverdesc[lover_number]>>'
  1684. if month > 5 and temper > 20 and sunWeather = 1:
  1685. act 'Invite to the park': gt 'parksvid'
  1686. end
  1687. act 'Invite to a movie': gt 'kinosvid'
  1688. act 'Invite to the pool hall': gt 'billsvid'
  1689. act 'Invite to the cafe': gt 'kafesvid'
  1690. act 'Invite to the casino': gt 'kazinosvid'
  1691. end
  1692. act 'Never mind...':
  1693. gt 'lover_meet', 'actions'
  1694. exit
  1695. end
  1696. end
  1697. act 'I think we should break up...':
  1698. *clr & cla
  1699. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  1700. '<<$tXec>> looks hurt, but you insist it is for the best. You both say goodbye and part ways.'
  1701. gs 'lover', 'remove', lover_number
  1702. act 'Continue':
  1703. dynamic $go_home
  1704. exit
  1705. end
  1706. end
  1707. end
  1708. --- lover_meet ---------------------------------