1
0

lover_meet.qsrc 40 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042
  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. !!Willpower checks for resistance
  419. if loverscompliance[lover_number] <=2:
  420. $loverResist = 'easy'
  421. elseif loverscompliance[lover_number] <=4:
  422. $loverResist = 'medium'
  423. else
  424. $loverResist = 'hard'
  425. end
  426. gs 'willpower', 'misc', 'self', $loverResist
  427. $lover_meet['ChangeActions'] = {
  428. !$ARGS[0] = name of thing being changed
  429. !$ARGS[1] = Parameter for lover_change procedure
  430. $lover_meet['ChangeName'] = $ARGS[0]
  431. $lover_meet['ChangeParamName'] = $ARGS[1]
  432. if will_cost <= pcs_willpwr:
  433. act 'I like my <<$lover_meet["ChangeName"]>> just the way it is (<<will_cost>> Willpower)':
  434. *clr & cla
  435. gs 'willpower', 'pay', 'self'
  436. gs 'stat'
  437. !pcs_dom += 1
  438. loverrelation[lover_number] -=3
  439. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  440. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  441. dynamic $go_home
  442. end
  443. else
  444. 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>'
  445. end
  446. act 'Agree with <<$tXem>> to change your <<$lover_meet["ChangeName"]>>': gt 'lover_change', '<<$lover_meet["ChangeParamName"]>>'
  447. }
  448. if loverfinance[lover_number] = 0:
  449. !! 0 - change player, 1 - beer in stairwell, 2 - walk in park,
  450. randchan = rand(0, 2)
  451. !! 1 = does like, 0 = not like
  452. if (pierWearCount >= pierPrefTmpMin and pierWearCount <= pierPrefTmpMax) or pierPrefTmp = 0:
  453. pierCheck = 1
  454. else
  455. pierCheck = 0
  456. end
  457. if (tattCount >= tattPrefTmpMin and tattCount <= tattPrefTmpMax) or tattPrefTmp = 0:
  458. tattCheck = 1
  459. else
  460. tattCheck = 0
  461. end
  462. if (makeupSetting = makePrefTmp) or makePrefTmp = 0:
  463. makeupCheck = 1
  464. else
  465. makeupCheck = 0
  466. end
  467. if pcs_haircol = hairPref:
  468. hairCheck = 1
  469. else
  470. hairCheck = 0
  471. end
  472. if (pierWearCount >= pierPrefTmpMin and pierWearCount <= pierPrefTmpMax) or pierPrefTmp = 0:
  473. pierCheck = 1
  474. else
  475. pierCheck = 0
  476. end
  477. if (tattCount >= tattPrefTmpMin and tattCount <= tattPrefTmpMax) or tattPrefTmp = 0:
  478. tattCheck = 1
  479. else
  480. tattCheck = 0
  481. end
  482. if randchan = 0 and (pierCheck + tattCheck + makeupCheck + hairCheck) = 4: randchan = rand(1, 2)
  483. if randchan = 0:
  484. *clr & cla
  485. !!Some things you can change.
  486. !!loverfinance[lover_number] = 0 - hair, makeup, tattoo, piercings.
  487. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  488. if haraklover[lover_number] = 0:
  489. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  490. elseif haraklover[lover_number] = 1:
  491. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  492. elseif haraklover[lover_number] = 2:
  493. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  494. end
  495. '"Whats up <<$loverdesc[lover_number]>>?"'
  496. '"There is just a trait about you that bugs me, can we change that?"'
  497. 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.'
  498. gs 'lover_likes', 'compliance'
  499. '"And what did you want to change about me?"'
  500. !!This is to make a last check on how many piercings they are WEARING
  501. gs 'lover_likes', 'checkPier'
  502. if pcs_haircol ! hairPref:
  503. *clr & cla
  504. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  505. '<<$loverdesc[lover_number]>> looks at your hair and says, "can we get your hair dyed?"'
  506. dynamic $lover_meet['ChangeActions'], 'hair', 'Hair'
  507. elseif makeupSetting ! makePrefTmp and makePrefTmp ! 0:
  508. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  509. '<<$loverdesc[lover_number]>> thinks about it and says "Can you wear <<$makePrefTmp>> from now on?"'
  510. dynamic $lover_meet['ChangeActions'], 'makeup', 'Make'
  511. elseif pierWearCount < pierPrefTmpMin or pierWearCount > pierPrefTmpMax and pierPrefTmp ! 0 and pierDay <= loverdays[lover_number]:
  512. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  513. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of piercings.'
  514. if pierWearCount < pierPrefTmpMin:
  515. '<<$tXec>> tells you that you should have more piercings.'
  516. else
  517. '<<$tXec>> tells you that you should have less piercings.'
  518. end
  519. dynamic $lover_meet['ChangeActions'], 'piercings', 'Pier'
  520. elseif tattCount < tattPrefTmpMin or tattCount > tattPrefTmpMax and tattPrefTmp ! 0 and tattDay <= loverdays[lover_number]:
  521. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  522. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of tattoos.'
  523. if tattCount < tattPrefTmpMin:
  524. '<<$tXec>> tells you that you should have more tattoos.'
  525. else
  526. '<<$tXec>> tells you that you should have less tattoos.'
  527. end
  528. dynamic $lover_meet['ChangeActions'], 'tattoos', 'Tatt'
  529. else
  530. *clr & cla
  531. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  532. 'Erm... Nothing...'
  533. act 'Well then...': xgt 'lover_meet', 'actions'
  534. end
  535. elseif randchan = 1 and loverGender[lover_number] = 0:
  536. *clr & cla
  537. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  538. '<<$loverdesc[lover_number]>> suggest you and <<$tXem>> drink a beer in the stairwell.'
  539. act 'Sorry, but I need to go':
  540. cla
  541. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  542. dynamic $go_home
  543. end
  544. act 'Go with <<$tXem>>':gt 'podezdM', 'start'
  545. elseif randchan = 2 or loverGender[lover_number] = 1:
  546. *clr & cla
  547. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  548. '<<$loverdesc[lover_number]>> suggests that you take a walk in the park.'
  549. act 'Sorry, but I need to go':
  550. cla
  551. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  552. dynamic $go_home
  553. end
  554. act 'Go with <<$tXem>>':
  555. if loverGender[lover_number] = 0: gt 'parkM', 'start'
  556. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'parksvid'
  557. end
  558. end
  559. elseif loverfinance[lover_number] = 1:
  560. *clr & cla
  561. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  562. !! 0 - change player, 1 - go to the movies, 2 - walk in park, 3 , suggests that you go to a cafe.
  563. randchan = rand(0, 3)
  564. !! 1 = does like, 0 = not like
  565. if (pierWearCount >= pierPrefTmpMin and pierWearCount <= pierPrefTmpMax) or pierPrefTmp = 0:
  566. pierCheck = 1
  567. else
  568. pierCheck = 0
  569. end
  570. if (tattCount >= tattPrefTmpMin and tattCount <= tattPrefTmpMax) or tattPrefTmp = 0:
  571. tattCheck = 1
  572. else
  573. tattCheck = 0
  574. end
  575. if (makeupSetting = makePrefTmp) or makePrefTmp = 0:
  576. makeupCheck = 1
  577. else
  578. makeupCheck = 0
  579. end
  580. if pcs_haircol = hairPref:
  581. hairCheck = 1
  582. else
  583. hairCheck = 0
  584. end
  585. if tits >= titMin and tits <= titMax:
  586. titCheck = 1
  587. else
  588. titCheck = 0
  589. end
  590. if pcs_lips >= lipsPrefTmpMin and tits <= lipsPrefTmpMax:
  591. lipsCheck = 1
  592. else
  593. lipsCheck = 0
  594. end
  595. if randchan = 0 and (pierCheck + tattCheck + makeupCheck + hairCheck + titCheck + lipsCheck) = 6:
  596. 'Takes one look at your body and loves every part of it.'
  597. randchan = rand(1, 3)
  598. end
  599. if randchan = 0:
  600. *clr & cla
  601. !!Some things you can change.
  602. !!loverfinance[lover_number] = 1 - hair, makeup, tattoo, piercings, lips, tits.
  603. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  604. if haraklover[lover_number] = 0:
  605. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  606. elseif haraklover[lover_number] = 1:
  607. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  608. elseif haraklover[lover_number] = 2:
  609. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  610. end
  611. '"Whats up <<$loverdesc[lover_number]>>?"'
  612. '"There is just a trait about you that bugs me, can we change that?"'
  613. 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.'
  614. gs 'lover_likes', 'compliance'
  615. '"And what did you want to change about me?"'
  616. !!This is to make a last check on how many piercings they are WEARING
  617. gs 'lover_likes', 'checkPier'
  618. if pcs_haircol ! hairPref:
  619. '<<$loverdesc[lover_number]>> looks at your hair and says, "can we get your hair dyed?"'
  620. dynamic $lover_meet['ChangeActions'], 'hair', 'Hair'
  621. elseif makeupSetting ! makePrefTmp and makePrefTmp ! 0:
  622. *clr & cla
  623. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  624. '<<$loverdesc[lover_number]>> thinks about it and says "Can you wear <<$makePrefTmp>> from now on?"'
  625. dynamic $lover_meet['ChangeActions'], 'makeup', 'Make'
  626. elseif pierWearCount < pierPrefTmpMin or pierWearCount > pierPrefTmpMax and pierPrefTmp ! 0 and pierDay <= loverdays[lover_number]:
  627. *clr & cla
  628. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  629. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of piercings.'
  630. if pierWearCount < pierPrefTmpMin:
  631. '<<$tXec>> tells you that you should have more piercings.'
  632. else
  633. '<<$tXec>> tells you that you should have less piercings.'
  634. end
  635. dynamic $lover_meet['ChangeActions'], 'piercings', 'Pier'
  636. elseif tattCount < tattPrefTmpMin or tattCount > tattPrefTmpMax and tattPrefTmp ! 0 and tattDay <= loverdays[lover_number]:
  637. *clr & cla
  638. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  639. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of tattoos.'
  640. dynamic $lover_meet['ChangeActions'], 'tattoos', 'Tatt'
  641. elseif pcs_lip < lipsPrefTmpMin or pcs_lip > lipsPrefTmpMax and lipsDay <= loverdays[lover_number]:
  642. *clr & cla
  643. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  644. '<<$loverdesc[lover_number]>> tells you your lips are just not the right size.'
  645. if pcs_lip < lipsPrefTmpMin:
  646. '<<$tXec>> tells you that you should get lip injections.'
  647. else
  648. '<<$tXec>> tells you that you should have lip reduction.'
  649. end
  650. dynamic $lover_meet['ChangeActions'], 'lips', 'Lips'
  651. elseif tits < titMin or tits > titMax and titsDay <= loverdays[lover_number]:
  652. *clr & cla
  653. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  654. '<<$loverdesc[lover_number]>> tells you your breasts are just not right.'
  655. if tits < titMin:
  656. '<<$tXec>> tells you that you should get breast implants.'
  657. else
  658. '<<$tXec>> tells you that you should have a breast reduction.'
  659. end
  660. dynamic $lover_meet['ChangeActions'], 'breasts', 'Tits'
  661. else
  662. *clr & cla
  663. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  664. '"Erm... Nothing..."'
  665. act '"Well then..."': xgt 'lover_meet', 'actions'
  666. end
  667. elseif randchan = 1:
  668. *clr & cla
  669. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  670. '<<$loverdesc[lover_number]>> suggests that you go to the movies.'
  671. act 'Sorry, but I need to go':
  672. cla
  673. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  674. dynamic $go_home
  675. end
  676. act 'Go with <<$tXem>>':
  677. if loverGender[lover_number] = 0: gt 'kinoM', 'start'
  678. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kinosvid'
  679. end
  680. elseif randchan = 2:
  681. *clr & cla
  682. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  683. '<<$loverdesc[lover_number]>> suggest that you take a walk in the park'
  684. act 'Sorry, but I need to go':
  685. cla
  686. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  687. dynamic $go_home
  688. end
  689. act 'Go with <<$tXem>>':
  690. if loverGender[lover_number] = 0: gt 'parkM', 'start'
  691. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'parksvid'
  692. end
  693. elseif randchan = 3:
  694. *clr & cla
  695. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  696. '<<$loverdesc[lover_number]>> suggests that you go to a cafe.'
  697. act 'Sorry, but I need to go':
  698. cla
  699. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  700. dynamic $go_home
  701. end
  702. act 'Go with <<$tXem>>':
  703. if loverGender[lover_number] = 0: gt 'kafeM', 'start'
  704. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kafesvid'
  705. end
  706. end
  707. elseif loverfinance[lover_number] = 2:
  708. *clr & cla
  709. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  710. !!Some things you can change.
  711. !!loverfinance[lover_number] = 2 - hair, makeup, tattoo, piercings, lips, tits
  712. !! 0 - change player, 1 - go to a cafe, 2 - go to a restaurant, 3 - to the movies.
  713. randchan = rand(0, 3)
  714. !! 1 = does like, 0 = not like
  715. if (pierWearCount >= pierPrefTmpMin and pierWearCount <= pierPrefTmpMax) or pierPrefTmp = 0:
  716. pierCheck = 1
  717. else
  718. pierCheck = 0
  719. end
  720. if (tattCount >= tattPrefTmpMin and tattCount <= tattPrefTmpMax) or tattPrefTmp = 0:
  721. tattCheck = 1
  722. else
  723. tattCheck = 0
  724. end
  725. if (makeupSetting = makePrefTmp) or makePrefTmp = 0:
  726. makeupCheck = 1
  727. else
  728. makeupCheck = 0
  729. end
  730. if pcs_haircol = hairPref:
  731. hairCheck = 1
  732. else
  733. hairCheck = 0
  734. end
  735. if tits >= titMin and tits <= titMax:
  736. titCheck = 1
  737. else
  738. titCheck = 0
  739. end
  740. if pcs_lips >= lipsPrefTmpMin and tits <= lipsPrefTmpMax:
  741. lipsCheck = 1
  742. else
  743. lipsCheck = 0
  744. end
  745. if salocatnow <= figurePrefMax:
  746. figureCheck = 1
  747. else
  748. figureCheck = 0
  749. end
  750. if randchan = 0 and (pierCheck + tattCheck + makeupCheck + hairCheck + titCheck + lipsCheck + figureCheck) = 7:
  751. 'Takes one look at your body and loves every part of it.'
  752. randchan = rand(1, 3)
  753. end
  754. if randchan = 0:
  755. *clr & cla
  756. !!Some things you can change.
  757. !!loverfinance[lover_number] = 2 - hair, makeup, tattoo, piercings, lips, tits, figure.
  758. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  759. if haraklover[lover_number] = 0:
  760. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  761. elseif haraklover[lover_number] = 1:
  762. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  763. elseif haraklover[lover_number] = 2:
  764. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  765. end
  766. '"Whats up <<$loverdesc[lover_number]>>?"'
  767. '"There is just a trait about you that bugs me, can we change that?"'
  768. 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.'
  769. gs 'lover_likes', 'compliance'
  770. '"And what did you want to change about me?"'
  771. !!This is to make a last check on how many piercings they are WEARING
  772. gs 'lover_likes', 'checkPier'
  773. if pcs_haircol ! hairPref:
  774. '<<$loverdesc[lover_number]>> looks at your hair and says, "can we get your hair dyed?"'
  775. dynamic $lover_meet['ChangeActions'], 'hair', 'Hair'
  776. elseif makeupSetting ! makePrefTmp and makePrefTmp ! 0:
  777. '<<$loverdesc[lover_number]>> thinks about it and says "Can you wear <<$makePrefTmp>> from now on?"'
  778. dynamic $lover_meet['ChangeActions'], 'makeup', 'Make'
  779. elseif pierWearCount < pierPrefTmpMin or pierWearCount > pierPrefTmpMax and pierPrefTmp ! 0 and pierDay <= loverdays[lover_number]:
  780. *clr & cla
  781. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  782. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of piercings.'
  783. if pierWearCount < pierPrefTmpMin:
  784. '<<$tXec>> tells you that you should have more piercings.'
  785. else
  786. '<<$tXec>> tells you that you should have less piercings.'
  787. end
  788. dynamic $lover_meet['ChangeActions'], 'piercings', 'Pier'
  789. elseif tattCount < tattPrefTmpMin or tattCount > tattPrefTmpMax and tattPrefTmp ! 0 and tattDay <= loverdays[lover_number]:
  790. *clr & cla
  791. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  792. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of tattoos.'
  793. if tattCount < tattPrefTmpMin:
  794. '<<$tXec>> tells you that you should have more tattoos.'
  795. else
  796. '<<$tXec>> tells you that you should have less tattoos.'
  797. end
  798. dynamic $lover_meet['ChangeActions'], 'tattoos', 'Tatt'
  799. elseif pcs_lip < lipsPrefTmpMin or pcs_lip > lipsPrefTmpMax and lipsDay <= loverdays[lover_number]:
  800. *clr & cla
  801. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  802. '<<$loverdesc[lover_number]>> tells you your lips are just not the right size.'
  803. if pcs_lip < lipsPrefTmpMin:
  804. '<<$tXec>> tells you that you should get lip injections.'
  805. else
  806. '<<$tXec>> tells you that you should have lip reduction.'
  807. end
  808. dynamic $lover_meet['ChangeActions'], 'lips', 'Lips'
  809. elseif tits < titMin or tits > titMax and titsDay <= loverdays[lover_number]:
  810. *clr & cla
  811. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  812. '<<$loverdesc[lover_number]>> tells you your breasts are just not right.'
  813. if tits < titMin:
  814. '<<$tXec>> tells you that you should get breast implants.'
  815. else
  816. '<<$tXec>> tells you that you should have a breast reduction.'
  817. end
  818. dynamic $lover_meet['ChangeActions'], 'breasts', 'Tits'
  819. elseif salocatnow > figurePrefMax and figureDay <= loverdays[lover_number]:
  820. *clr & cla
  821. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  822. '<<$loverdesc[lover_number]>> tells you your body is just too thick.'
  823. '<<$tXec>> offers to pay for you to get lyposuction.'
  824. dynamic $lover_meet['ChangeActions'], 'body weight', 'Figure'
  825. end
  826. elseif randchan = 1:
  827. *clr & cla
  828. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  829. '<<$loverdesc[lover_number]>> suggests that you go to a cafe.'
  830. act 'Sorry, but I need to leave':
  831. cla
  832. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  833. dynamic $go_home
  834. end
  835. act 'Go with <<$tXem>>':
  836. if loverGender[lover_number] = 0: gt 'kafeM', 'start'
  837. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kafesvid'
  838. end
  839. exit
  840. elseif randchan = 2:
  841. *clr & cla
  842. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  843. '<<$loverdesc[lover_number]>> suggests that you go to a restaurant.'
  844. act 'Sorry, but I need to leave':
  845. cla
  846. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  847. dynamic $go_home
  848. end
  849. act 'Go with <<$tXem>>':
  850. if loverGender[lover_number] = 0: gt 'restoranM', 'start'
  851. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kafesvid'
  852. end
  853. exit
  854. elseif randchan = 3:
  855. *clr & cla
  856. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  857. '<<$loverdesc[lover_number]>> suggests that you go to the movies.'
  858. act 'Sorry, but I need to go':
  859. cla
  860. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  861. dynamic $go_home
  862. end
  863. act 'Go with <<$tXem>>':
  864. if loverGender[lover_number] = 0: gt 'kinoM', 'start'
  865. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kinosvid'
  866. end
  867. exit
  868. end
  869. end
  870. end
  871. act 'I want to do something today':
  872. *clr & cla
  873. !if rand(0,1): pcs_dom += 1
  874. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  875. '"What do you want to do?", <<$tXe>> asks'
  876. if loverGender[lover_number] = 0:
  877. act '"Let''s go just relax in the stairwell and drink some beer."': gt 'podezdM', 'start'
  878. act '"Let''s take a walk in the park"': gt 'parkM', 'start'
  879. act '"Let''s go see a movie"': gt 'kinoM', 'start'
  880. act '"Let''s go to the cafe."': gt 'kafeM', 'start'
  881. elseif loverGender[lover_number] = 1:
  882. $telsob = '<<$loverdesc[lover_number]>>'
  883. if month > 5 and temper > 20 and sunWeather = 1:
  884. act 'Invite to the park': gt 'parksvid'
  885. end
  886. act 'Invite to a movie': gt 'kinosvid'
  887. act 'Invite to the pool hall': gt 'billsvid'
  888. act 'Invite to the cafe': gt 'kafesvid'
  889. act 'Invite to the casino': gt 'kazinosvid'
  890. end
  891. act 'Never mind...':
  892. gt 'lover_meet', 'actions'
  893. exit
  894. end
  895. end
  896. act 'I think we should break up...':
  897. *clr & cla
  898. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  899. '<<$tXec>> looks hurt, but you insist it is for the best. You both say goodbye and part ways.'
  900. gs 'lover', 'remove', lover_number
  901. act 'Continue':
  902. dynamic $go_home
  903. exit
  904. end
  905. end
  906. end
  907. --- lover_meet ---------------------------------