lover_meet.qsrc 41 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047
  1. # lover_meet
  2. !2021/05/02
  3. if $ARGS[0] = 'start':
  4. menu_off = 1
  5. $location_type = 'event'
  6. minut += 15
  7. loverdays[lover_number] += 1
  8. svidanie[lover_number] = 0
  9. giftNum = giftNum[lover_number]
  10. gs 'themes', 'indoors'
  11. gs 'lover_pronouns'
  12. gs 'lover_pref'
  13. gs 'stat'
  14. !!This keeps track in the change action what it plans to change
  15. $changeFind = ''
  16. !!How many days until the lover starts to comment.
  17. clotDay = 3
  18. bodyDay = 7
  19. !!How many days until they want you to change.
  20. pierDay = 7
  21. tattDay = 7
  22. lipsDay = 9
  23. titsDay = 12
  24. figureDay = 15
  25. !! This is the start of the usual talk
  26. !!character 0 - soft, 1 -norm 2 - aggressor
  27. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  28. if haraklover[lover_number] = 0:
  29. if loverrelation[lover_number] > 70:
  30. randchan = rand(0, 2)
  31. if randchan = 0:
  32. $greet = 'says with love in <<$tXyr>> eyes, "Hey <<$pcs_nickname>>."'
  33. elseif randchan = 1:
  34. $greet = 'says lovingly, "Hello love. I''m glad so see you."'
  35. elseif randchan = 2:
  36. $greet = 'says quietly while looking into your eyes, "Hello love." '
  37. end
  38. elseif loverrelation[lover_number] > 20:
  39. randchan = rand(0, 1)
  40. if randchan = 0:
  41. $greet = 'says with a faint smile, "Hey <<$pcs_nickname>>."'
  42. elseif randchan = 1:
  43. $greet = 'says with a smile, "Hi <<$pcs_nickname>>."'
  44. end
  45. else
  46. $greet = 'says, "Hi <<$pcs_firstname>>."'
  47. end
  48. end
  49. if haraklover[lover_number] = 1:
  50. if loverrelation[lover_number] > 70:
  51. randchan = rand(0, 2)
  52. if randchan = 0:
  53. $greet = 'says, "Hey love. I am so happy to see you."'
  54. elseif randchan = 1:
  55. $greet = 'says intimately, "Hello my angel."'
  56. elseif randchan = 2:
  57. $greet = 'says while admiring you, "Hello <<$pcs_nickname>> beautiful."'
  58. end
  59. elseif loverrelation[lover_number] > 20:
  60. randchan = rand(0, 1)
  61. if randchan = 0:
  62. $greet = 'says with a smile, "Hey <<$pcs_nickname>>, glad to see you."'
  63. elseif randchan = 1:
  64. $greet = 'says with a soft tone, "Hello beautiful."'
  65. end
  66. else
  67. $greet = 'says, "Hello <<$pcs_nickname>>."'
  68. end
  69. end
  70. if haraklover[lover_number] = 2:
  71. if loverrelation[lover_number] > 70:
  72. randchan = rand(0, 2)
  73. if randchan = 0:
  74. $greet = 'says with a loving voice, "Theres my sexy gal."'
  75. elseif randchan = 1:
  76. $greet = 'says with a toothful grin, "There is my goddess."'
  77. elseif randchan = 2:
  78. $greet = 'says with a rather loud enduring voice, "Hey babe!"'
  79. end
  80. elseif loverrelation[lover_number] > 20:
  81. randchan = rand(0, 1)
  82. if randchan = 0:
  83. $greet = 'says with a grin, "Hey <<$pcs_nickname>>."'
  84. elseif randchan = 1:
  85. $greet = 'says with a chuckle, "Hey''ya <<$pcs_nickname>>."'
  86. end
  87. else
  88. $greet = 'says, "Hey <<$pcs_nickname>>."'
  89. end
  90. end
  91. gs 'lover_love'
  92. !! QUEST VARIABLES!!! WOOOT ALMOST TIME!
  93. didPushAway = 0
  94. !!How beautiful you are
  95. if pcs_skin < 20:
  96. loverrelation[lover_number] -= 2 & $meetskin = 'looking at <<$tXyr>> feet'
  97. elseif pcs_skin < 40:
  98. loverrelation[lover_number] -= 1 & $meetskin = 'giving you a quick glance'
  99. elseif pcs_skin < 60:
  100. $meetskin = 'looking at you'
  101. elseif pcs_skin < 80:
  102. loverrelation[lover_number] += 1 & $meetskin = 'smiling at you'
  103. else
  104. loverrelation[lover_number] += 2 & $meetskin = 'smiling at you'
  105. end
  106. !! Your lip size
  107. if pcs_lip = 0:$meetlip = 'thin lips'
  108. if pcs_lip = 1:$meetlip = 'soft lips'
  109. if pcs_lip = 2:$meetlip = 'plump lips'
  110. if pcs_lip = 3:$meetlip = 'large, plump lips'
  111. if pcs_lip = 4:$meetlip = 'thick and huge lips'
  112. if loverfinance[lover_number] = 0:$clom = 'dressed in a tracksuit.'
  113. if loverfinance[lover_number] = 1:$clom = 'dressed in jeans and a sweater.'
  114. if loverfinance[lover_number] = 2 and loverGender[lover_number] = 0:$clom = 'dressed in a respectable and expensive jacket.'
  115. if loverfinance[lover_number] = 2 and loverGender[lover_number] = 1:$clom = 'dressed in a beautiful and expensive dress.'
  116. !!Greeting start
  117. 'At the entrance <<$meetskin>> stands <<$loverdesc[lover_number]>>. <<$tXec>> comes over to you and <<$greet>>'
  118. gs 'lover_likes', 'hairPref'
  119. gs 'lover_likes', 'makePrefTmp'
  120. if haraklover[lover_number] = 0:'<<$loverdesc[lover_number]>> looks like a timid and not very confident young <<$loverGenderName>> <<$clom>>'
  121. if haraklover[lover_number] = 1:'<<$loverdesc[lover_number]>> looks like an average young <<$loverGenderName>> <<$clom>>'
  122. if haraklover[lover_number] = 2:'<<$loverdesc[lover_number]>> looks like a cocky and brash young <<$loverGenderName>> <<$clom>>'
  123. !!This is to reset the like part later
  124. likeCount = 0
  125. like1 = 99
  126. like2 = 99
  127. like3 = 99
  128. !! This is the greeting kissy part
  129. if haraklover[lover_number] >= 0:
  130. if loverrelation[lover_number] > -20:
  131. loverrelation[lover_number] += 0
  132. '<<$loverdesc[lover_number]>> gets close to you, and you can tell by <<$tXyr>> body movements <<$tXe>> wants to kiss you.'
  133. act 'Kiss with tongue':
  134. *clr & cla
  135. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  136. 'You take the initiative and when <<$tXe>> opens <<$tXyr>> mouth you thrust your tongue into <<$tXyr>> mouth.'
  137. gs 'arousal', 'kiss', 5
  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. gt 'din_npc', '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. gt 'din_npc', '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. gt 'din_npc', '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/headshots_generic/'+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. gt 'din_npc', '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. gt 'din_npc', '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/headshots_generic/'+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. gt 'din_npc', '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. gt 'din_npc', '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. gt 'din_npc', '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/headshots_generic/'+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. else
  382. act 'Continue': xgt 'lover_meet', 'likes'
  383. end
  384. else
  385. act 'Continue': xgt 'lover_meet', 'likes'
  386. end
  387. end
  388. if $ARGS[0] = 'likes':
  389. cla
  390. if loverdays[lover_number] >= clotDay:
  391. gs 'lover_likes', 'clothesPref'
  392. end
  393. if loverdays[lover_number] >= bodyDay:
  394. gs 'lover_likes', 'bodyPrefTmp'
  395. end
  396. xgt 'lover_meet', 'actions'
  397. end
  398. if $ARGS[0] = 'actions':
  399. act 'Can I ask you how you think I look?':
  400. *clr & cla
  401. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  402. '<<$loverdesc[lover_number]>> says "If you insist" and tells you exactly how <<$tXe>> thinks you look based on what <<$tXe>> likes:'
  403. gs 'lover_likes', 'allPref'
  404. act 'Okay, lets talk about something else': xgt 'lover_meet', 'actions'
  405. end
  406. act 'What do you want to do today?':
  407. *clr & cla
  408. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  409. 'You tell <<$tXem>> you would rather <<$tXem>> decide what we do today.'
  410. if haraklover[lover_number] = 0:
  411. loverrelation[lover_number] += 0
  412. 'Not used to being given the opportunity to choose, <<$tXe>> thinks what to do...'
  413. elseif haraklover[lover_number] = 1:
  414. loverrelation[lover_number] += 0
  415. '<<$tXec>> thinks about what to do today.'
  416. elseif haraklover[lover_number] = 2:
  417. loverrelation[lover_number] += 1
  418. 'You can tell <<$tXe>> is happy you gave <<$tXem>> the ability to choose what to do today.'
  419. end
  420. !!This is the choice maker!
  421. !!Willpower checks for resistance
  422. if loverscompliance[lover_number] <=2:
  423. $loverResist = 'easy'
  424. elseif loverscompliance[lover_number] <=4:
  425. $loverResist = 'medium'
  426. else
  427. $loverResist = 'hard'
  428. end
  429. gs 'willpower', 'misc', 'self', $loverResist
  430. $lover_meet['ChangeActions'] = {
  431. !$ARGS[0] = name of thing being changed
  432. !$ARGS[1] = Parameter for lover_change procedure
  433. $lover_meet['ChangeName'] = $ARGS[0]
  434. $lover_meet['ChangeParamName'] = $ARGS[1]
  435. if will_cost <= pcs_willpwr:
  436. act 'I like my <<$lover_meet["ChangeName"]>> just the way it is (<<will_cost>> Willpower)':
  437. *clr & cla
  438. gs 'willpower', 'pay', 'self'
  439. gs 'stat'
  440. loverrelation[lover_number] -=3
  441. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  442. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  443. gt 'din_npc', 'go_home'
  444. end
  445. else
  446. act 'I like my <<$lover_meet["ChangeName"]>> just the way it is (<font color="red"><<will_cost>> Willpower</font>)':'<br><font color="red">You don''t have enough willpower to use this action.</font>'
  447. end
  448. act 'Agree with <<$tXem>> to change your <<$lover_meet["ChangeName"]>>': gt 'lover_change', '<<$lover_meet["ChangeParamName"]>>'
  449. }
  450. if loverfinance[lover_number] = 0:
  451. !! 0 - change player, 1 - beer in stairwell, 2 - walk in park,
  452. randchan = rand(0, 2)
  453. !! 1 = does like, 0 = not like
  454. if (pierWearCount >= pierPrefTmpMin and pierWearCount <= pierPrefTmpMax) or pierPrefTmp = 0:
  455. pierCheck = 1
  456. else
  457. pierCheck = 0
  458. end
  459. if (tattCount >= tattPrefTmpMin and tattCount <= tattPrefTmpMax) or tattPrefTmp = 0:
  460. tattCheck = 1
  461. else
  462. tattCheck = 0
  463. end
  464. if (makeupSetting = makePrefTmp) or makePrefTmp = 0:
  465. makeupCheck = 1
  466. else
  467. makeupCheck = 0
  468. end
  469. if pcs_haircol = hairPref:
  470. hairCheck = 1
  471. else
  472. hairCheck = 0
  473. end
  474. if (pierWearCount >= pierPrefTmpMin and pierWearCount <= pierPrefTmpMax) or pierPrefTmp = 0:
  475. pierCheck = 1
  476. else
  477. pierCheck = 0
  478. end
  479. if (tattCount >= tattPrefTmpMin and tattCount <= tattPrefTmpMax) or tattPrefTmp = 0:
  480. tattCheck = 1
  481. else
  482. tattCheck = 0
  483. end
  484. if randchan = 0 and (pierCheck + tattCheck + makeupCheck + hairCheck) = 4: randchan = rand(1, 2)
  485. if randchan = 0:
  486. *clr & cla
  487. !!Some things you can change.
  488. !!loverfinance[lover_number] = 0 - hair, makeup, tattoo, piercings.
  489. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  490. if haraklover[lover_number] = 0:
  491. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  492. elseif haraklover[lover_number] = 1:
  493. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  494. elseif haraklover[lover_number] = 2:
  495. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  496. end
  497. '"Whats up <<$loverdesc[lover_number]>>?"'
  498. '"There is just a trait about you that bugs me, can we change that?"'
  499. 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.'
  500. gs 'lover_likes', 'compliance'
  501. '"And what did you want to change about me?"'
  502. !!This is to make a last check on how many piercings they are WEARING
  503. gs 'lover_likes', 'checkPier'
  504. if pcs_haircol ! hairPref:
  505. *clr & cla
  506. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  507. '<<$loverdesc[lover_number]>> looks at your hair and says, "can we get your hair dyed?"'
  508. dynamic $lover_meet['ChangeActions'], 'hair', 'Hair'
  509. elseif makeupSetting ! makePrefTmp and makePrefTmp ! 0:
  510. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  511. '<<$loverdesc[lover_number]>> thinks about it and says "Can you wear <<$makePrefTmp>> from now on?"'
  512. dynamic $lover_meet['ChangeActions'], 'makeup', 'Make'
  513. elseif pierWearCount < pierPrefTmpMin or pierWearCount > pierPrefTmpMax and pierPrefTmp ! 0 and pierDay <= loverdays[lover_number]:
  514. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  515. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of piercings.'
  516. if pierWearCount < pierPrefTmpMin:
  517. '<<$tXec>> tells you that you should have more piercings.'
  518. else
  519. '<<$tXec>> tells you that you should have less piercings.'
  520. end
  521. dynamic $lover_meet['ChangeActions'], 'piercings', 'Pier'
  522. elseif tattCount < tattPrefTmpMin or tattCount > tattPrefTmpMax and tattPrefTmp ! 0 and tattDay <= loverdays[lover_number]:
  523. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  524. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of tattoos.'
  525. if tattCount < tattPrefTmpMin:
  526. '<<$tXec>> tells you that you should have more tattoos.'
  527. else
  528. '<<$tXec>> tells you that you should have less tattoos.'
  529. end
  530. dynamic $lover_meet['ChangeActions'], 'tattoos', 'Tatt'
  531. else
  532. *clr & cla
  533. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  534. 'Erm... Nothing...'
  535. act 'Well then...': xgt 'lover_meet', 'actions'
  536. end
  537. elseif randchan = 1 and loverGender[lover_number] = 0:
  538. *clr & cla
  539. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  540. '<<$loverdesc[lover_number]>> suggest you and <<$tXem>> drink a beer in the stairwell.'
  541. act 'Sorry, but I need to go':
  542. cla
  543. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  544. gt 'din_npc', 'go_home'
  545. end
  546. act 'Go with <<$tXem>>':gt 'podezdM', 'start'
  547. elseif randchan = 2 or loverGender[lover_number] = 1:
  548. *clr & cla
  549. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  550. '<<$loverdesc[lover_number]>> suggests that you take a walk in the park.'
  551. act 'Sorry, but I need to go':
  552. cla
  553. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  554. gt 'din_npc', 'go_home'
  555. end
  556. act 'Go with <<$tXem>>':
  557. if loverGender[lover_number] = 0: gt 'parkM', 'start'
  558. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'parksvid'
  559. end
  560. end
  561. elseif loverfinance[lover_number] = 1:
  562. *clr & cla
  563. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  564. !! 0 - change player, 1 - go to the movies, 2 - walk in park, 3 , suggests that you go to a cafe.
  565. randchan = rand(0, 3)
  566. !! 1 = does like, 0 = not like
  567. if (pierWearCount >= pierPrefTmpMin and pierWearCount <= pierPrefTmpMax) or pierPrefTmp = 0:
  568. pierCheck = 1
  569. else
  570. pierCheck = 0
  571. end
  572. if (tattCount >= tattPrefTmpMin and tattCount <= tattPrefTmpMax) or tattPrefTmp = 0:
  573. tattCheck = 1
  574. else
  575. tattCheck = 0
  576. end
  577. if (makeupSetting = makePrefTmp) or makePrefTmp = 0:
  578. makeupCheck = 1
  579. else
  580. makeupCheck = 0
  581. end
  582. if pcs_haircol = hairPref:
  583. hairCheck = 1
  584. else
  585. hairCheck = 0
  586. end
  587. if tits >= titMin and tits <= titMax:
  588. titCheck = 1
  589. else
  590. titCheck = 0
  591. end
  592. if pcs_lip >= lipsPrefTmpMin and tits <= lipsPrefTmpMax:
  593. lipsCheck = 1
  594. else
  595. lipsCheck = 0
  596. end
  597. if randchan = 0 and (pierCheck + tattCheck + makeupCheck + hairCheck + titCheck + lipsCheck) = 6:
  598. 'Takes one look at your body and loves every part of it.'
  599. randchan = rand(1, 3)
  600. end
  601. if randchan = 0:
  602. *clr & cla
  603. !!Some things you can change.
  604. !!loverfinance[lover_number] = 1 - hair, makeup, tattoo, piercings, lips, tits.
  605. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  606. if haraklover[lover_number] = 0:
  607. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  608. elseif haraklover[lover_number] = 1:
  609. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  610. elseif haraklover[lover_number] = 2:
  611. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  612. end
  613. '"Whats up <<$loverdesc[lover_number]>>?"'
  614. '"There is just a trait about you that bugs me, can we change that?"'
  615. 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.'
  616. gs 'lover_likes', 'compliance'
  617. '"And what did you want to change about me?"'
  618. !!This is to make a last check on how many piercings they are WEARING
  619. gs 'lover_likes', 'checkPier'
  620. if pcs_haircol ! hairPref:
  621. '<<$loverdesc[lover_number]>> looks at your hair and says, "can we get your hair dyed?"'
  622. dynamic $lover_meet['ChangeActions'], 'hair', 'Hair'
  623. elseif makeupSetting ! makePrefTmp and makePrefTmp ! 0:
  624. *clr & cla
  625. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  626. '<<$loverdesc[lover_number]>> thinks about it and says "Can you wear <<$makePrefTmp>> from now on?"'
  627. dynamic $lover_meet['ChangeActions'], 'makeup', 'Make'
  628. elseif pierWearCount < pierPrefTmpMin or pierWearCount > pierPrefTmpMax and pierPrefTmp ! 0 and pierDay <= loverdays[lover_number]:
  629. *clr & cla
  630. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  631. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of piercings.'
  632. if pierWearCount < pierPrefTmpMin:
  633. '<<$tXec>> tells you that you should have more piercings.'
  634. else
  635. '<<$tXec>> tells you that you should have less piercings.'
  636. end
  637. dynamic $lover_meet['ChangeActions'], 'piercings', 'Pier'
  638. elseif tattCount < tattPrefTmpMin or tattCount > tattPrefTmpMax and tattPrefTmp ! 0 and tattDay <= loverdays[lover_number]:
  639. *clr & cla
  640. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  641. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of tattoos.'
  642. dynamic $lover_meet['ChangeActions'], 'tattoos', 'Tatt'
  643. elseif pcs_lip < lipsPrefTmpMin or pcs_lip > lipsPrefTmpMax and lipsDay <= loverdays[lover_number]:
  644. *clr & cla
  645. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  646. '<<$loverdesc[lover_number]>> tells you your lips are just not the right size.'
  647. if pcs_lip < lipsPrefTmpMin:
  648. '<<$tXec>> tells you that you should get lip injections.'
  649. else
  650. '<<$tXec>> tells you that you should have lip reduction.'
  651. end
  652. dynamic $lover_meet['ChangeActions'], 'lips', 'Lips'
  653. elseif tits < titMin or tits > titMax and titsDay <= loverdays[lover_number]:
  654. *clr & cla
  655. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  656. '<<$loverdesc[lover_number]>> tells you your breasts are just not right.'
  657. if tits < titMin:
  658. '<<$tXec>> tells you that you should get breast implants.'
  659. else
  660. '<<$tXec>> tells you that you should have a breast reduction.'
  661. end
  662. dynamic $lover_meet['ChangeActions'], 'breasts', 'Tits'
  663. else
  664. *clr & cla
  665. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  666. '"Erm... Nothing..."'
  667. act '"Well then..."': xgt 'lover_meet', 'actions'
  668. end
  669. elseif randchan = 1:
  670. *clr & cla
  671. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  672. '<<$loverdesc[lover_number]>> suggests that you go to the movies.'
  673. act 'Sorry, but I need to go':
  674. cla
  675. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  676. gt 'din_npc', 'go_home'
  677. end
  678. act 'Go with <<$tXem>>':
  679. if loverGender[lover_number] = 0: gt 'kinoM', 'start'
  680. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kinosvid'
  681. end
  682. elseif randchan = 2:
  683. *clr & cla
  684. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  685. '<<$loverdesc[lover_number]>> suggest that you take a walk in the park'
  686. act 'Sorry, but I need to go':
  687. cla
  688. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  689. gt 'din_npc', 'go_home'
  690. end
  691. act 'Go with <<$tXem>>':
  692. if loverGender[lover_number] = 0: gt 'parkM', 'start'
  693. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'parksvid'
  694. end
  695. elseif randchan = 3:
  696. *clr & cla
  697. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  698. '<<$loverdesc[lover_number]>> suggests that you go to a cafe.'
  699. act 'Sorry, but I need to go':
  700. cla
  701. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  702. gt 'din_npc', 'go_home'
  703. end
  704. act 'Go with <<$tXem>>':
  705. if loverGender[lover_number] = 0: gt 'kafeM', 'start'
  706. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kafesvid'
  707. end
  708. end
  709. elseif loverfinance[lover_number] = 2:
  710. *clr & cla
  711. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  712. !!Some things you can change.
  713. !!loverfinance[lover_number] = 2 - hair, makeup, tattoo, piercings, lips, tits
  714. !! 0 - change player, 1 - go to a cafe, 2 - go to a restaurant, 3 - to the movies.
  715. randchan = rand(0, 3)
  716. !! 1 = does like, 0 = not like
  717. if (pierWearCount >= pierPrefTmpMin and pierWearCount <= pierPrefTmpMax) or pierPrefTmp = 0:
  718. pierCheck = 1
  719. else
  720. pierCheck = 0
  721. end
  722. if (tattCount >= tattPrefTmpMin and tattCount <= tattPrefTmpMax) or tattPrefTmp = 0:
  723. tattCheck = 1
  724. else
  725. tattCheck = 0
  726. end
  727. if (makeupSetting = makePrefTmp) or makePrefTmp = 0:
  728. makeupCheck = 1
  729. else
  730. makeupCheck = 0
  731. end
  732. if pcs_haircol = hairPref:
  733. hairCheck = 1
  734. else
  735. hairCheck = 0
  736. end
  737. if tits >= titMin and tits <= titMax:
  738. titCheck = 1
  739. else
  740. titCheck = 0
  741. end
  742. if pcs_lip >= lipsPrefTmpMin and tits <= lipsPrefTmpMax:
  743. lipsCheck = 1
  744. else
  745. lipsCheck = 0
  746. end
  747. if salocatnow <= figurePrefMax:
  748. figureCheck = 1
  749. else
  750. figureCheck = 0
  751. end
  752. if randchan = 0 and (pierCheck + tattCheck + makeupCheck + hairCheck + titCheck + lipsCheck + figureCheck) = 7:
  753. 'Takes one look at your body and loves every part of it.'
  754. randchan = rand(1, 3)
  755. end
  756. if randchan = 0:
  757. *clr & cla
  758. !!Some things you can change.
  759. !!loverfinance[lover_number] = 2 - hair, makeup, tattoo, piercings, lips, tits, figure.
  760. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  761. if haraklover[lover_number] = 0:
  762. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  763. elseif haraklover[lover_number] = 1:
  764. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  765. elseif haraklover[lover_number] = 2:
  766. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  767. end
  768. '"Whats up <<$loverdesc[lover_number]>>?"'
  769. '"There is just a trait about you that bugs me, can we change that?"'
  770. 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.'
  771. gs 'lover_likes', 'compliance'
  772. '"And what did you want to change about me?"'
  773. !!This is to make a last check on how many piercings they are WEARING
  774. gs 'lover_likes', 'checkPier'
  775. if pcs_haircol ! hairPref:
  776. '<<$loverdesc[lover_number]>> looks at your hair and says, "can we get your hair dyed?"'
  777. dynamic $lover_meet['ChangeActions'], 'hair', 'Hair'
  778. elseif makeupSetting ! makePrefTmp and makePrefTmp ! 0:
  779. '<<$loverdesc[lover_number]>> thinks about it and says "Can you wear <<$makePrefTmp>> from now on?"'
  780. dynamic $lover_meet['ChangeActions'], 'makeup', 'Make'
  781. elseif pierWearCount < pierPrefTmpMin or pierWearCount > pierPrefTmpMax and pierPrefTmp ! 0 and pierDay <= loverdays[lover_number]:
  782. *clr & cla
  783. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  784. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of piercings.'
  785. if pierWearCount < pierPrefTmpMin:
  786. '<<$tXec>> tells you that you should have more piercings.'
  787. else
  788. '<<$tXec>> tells you that you should have less piercings.'
  789. end
  790. dynamic $lover_meet['ChangeActions'], 'piercings', 'Pier'
  791. elseif tattCount < tattPrefTmpMin or tattCount > tattPrefTmpMax and tattPrefTmp ! 0 and tattDay <= loverdays[lover_number]:
  792. *clr & cla
  793. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  794. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of tattoos.'
  795. if tattCount < tattPrefTmpMin:
  796. '<<$tXec>> tells you that you should have more tattoos.'
  797. else
  798. '<<$tXec>> tells you that you should have less tattoos.'
  799. end
  800. dynamic $lover_meet['ChangeActions'], 'tattoos', 'Tatt'
  801. elseif pcs_lip < lipsPrefTmpMin or pcs_lip > lipsPrefTmpMax and lipsDay <= loverdays[lover_number]:
  802. *clr & cla
  803. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  804. '<<$loverdesc[lover_number]>> tells you your lips are just not the right size.'
  805. if pcs_lip < lipsPrefTmpMin:
  806. '<<$tXec>> tells you that you should get lip injections.'
  807. else
  808. '<<$tXec>> tells you that you should have lip reduction.'
  809. end
  810. dynamic $lover_meet['ChangeActions'], 'lips', 'Lips'
  811. elseif tits < titMin or tits > titMax and titsDay <= loverdays[lover_number]:
  812. *clr & cla
  813. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  814. '<<$loverdesc[lover_number]>> tells you your breasts are just not right.'
  815. if tits < titMin:
  816. '<<$tXec>> tells you that you should get breast implants.'
  817. else
  818. '<<$tXec>> tells you that you should have a breast reduction.'
  819. end
  820. dynamic $lover_meet['ChangeActions'], 'breasts', 'Tits'
  821. elseif salocatnow > figurePrefMax and figureDay <= loverdays[lover_number]:
  822. *clr & cla
  823. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  824. '<<$loverdesc[lover_number]>> tells you your body is just too thick.'
  825. '<<$tXec>> offers to pay for you to get lyposuction.'
  826. dynamic $lover_meet['ChangeActions'], 'body weight', 'Figure'
  827. else
  828. *clr & cla
  829. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  830. '"Erm... Nothing..."'
  831. act '"Well then..."': xgt 'lover_meet', 'actions'
  832. end
  833. elseif randchan = 1:
  834. *clr & cla
  835. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  836. '<<$loverdesc[lover_number]>> suggests that you go to a cafe.'
  837. act 'Sorry, but I need to leave':
  838. cla
  839. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  840. gt 'din_npc', 'go_home'
  841. end
  842. act 'Go with <<$tXem>>':
  843. if loverGender[lover_number] = 0: gt 'kafeM', 'start'
  844. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kafesvid'
  845. end
  846. exit
  847. elseif randchan = 2:
  848. *clr & cla
  849. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  850. '<<$loverdesc[lover_number]>> suggests that you go to a restaurant.'
  851. act 'Sorry, but I need to leave':
  852. cla
  853. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  854. gt 'din_npc', 'go_home'
  855. end
  856. act 'Go with <<$tXem>>':
  857. if loverGender[lover_number] = 0: gt 'restoranM', 'start'
  858. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kafesvid'
  859. end
  860. exit
  861. elseif randchan = 3:
  862. *clr & cla
  863. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  864. '<<$loverdesc[lover_number]>> suggests that you go to the movies.'
  865. act 'Sorry, but I need to go':
  866. cla
  867. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  868. gt 'din_npc', 'go_home'
  869. end
  870. act 'Go with <<$tXem>>':
  871. if loverGender[lover_number] = 0: gt 'kinoM', 'start'
  872. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kinosvid'
  873. end
  874. exit
  875. end
  876. end
  877. end
  878. act 'I want to do something today':
  879. *clr & cla
  880. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  881. '"What do you want to do?", <<$tXe>> asks'
  882. if loverGender[lover_number] = 0:
  883. act '"Let''s go just relax in the stairwell and drink some beer."': gt 'podezdM', 'start'
  884. act '"Let''s take a walk in the park"': gt 'parkM', 'start'
  885. act '"Let''s go see a movie"': gt 'kinoM', 'start'
  886. act '"Let''s go to the cafe."': gt 'kafeM', 'start'
  887. elseif loverGender[lover_number] = 1:
  888. $telsob = '<<$loverdesc[lover_number]>>'
  889. if month > 5 and temper > 20 and sunWeather = 1:
  890. act 'Invite to the park': gt 'parksvid'
  891. end
  892. act 'Invite to a movie': gt 'kinosvid'
  893. act 'Invite to the pool hall': gt 'billsvid'
  894. act 'Invite to the cafe': gt 'kafesvid'
  895. act 'Invite to the casino': gt 'kazinosvid'
  896. end
  897. act 'Never mind...':
  898. gt 'lover_meet', 'actions'
  899. exit
  900. end
  901. end
  902. act 'I think we should break up...':
  903. *clr & cla
  904. '<center><img <<$set_imgh>> src="images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg"></center>'
  905. '<<$tXec>> looks hurt, but you insist it is for the best. You both say goodbye and part ways.'
  906. gs 'lover', 'remove', lover_number
  907. act 'Continue':
  908. gt 'din_npc', 'go_home'
  909. exit
  910. end
  911. end
  912. end
  913. --- lover_meet ---------------------------------