lover_meet.qsrc 41 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047
  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_mood += 10
  138. gs 'stat'
  139. if venera > 4:
  140. gs 'lover', 'remove', lover_number
  141. '<<$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."'
  142. pcs_mood -= 20
  143. dynamic $go_home
  144. exit
  145. elseif venera < 4 and cumloc[11] = 0 and (cumloc[6] = 0 and cumloc[7] = 0):
  146. if haraklover[lover_number] = 0:
  147. loverrelation[lover_number] += 2
  148. 'Normally this would have made <<$tXem>> feel uncomfortable, but as you pull away <<$tXe>> smiles and sighs contently.'
  149. elseif haraklover[lover_number] = 1:
  150. loverrelation[lover_number] += 1
  151. '<<$tXec>> goes with it a blink and in moments your tongues are intertwined.'
  152. elseif haraklover[lover_number] = 2:
  153. '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>>.'
  154. loverrelation[lover_number] += 2
  155. else
  156. 'This should not fire off at all: TongueKiss'
  157. end
  158. elseif (cumloc[11] = 1 or cumloc[6] = 1 or cumloc[7] = 1) and pervConstant = 1 and loverGender[lover_number] = 0:
  159. if cumloc[11] = 1:
  160. if haraklover[lover_number] = 0:
  161. loverrelation[lover_number] += 2
  162. pcs_horny += 5
  163. '<<$tXec>> can see sperm on your face, but underneath <<$tXyr>> shy demener you know that it only turns <<$tXem>> on.'
  164. elseif haraklover[lover_number] = 1:
  165. loverrelation[lover_number] += 2
  166. pcs_horny += 5
  167. '<<$tXec>> can see sperm on your face, but you know that it only turns <<$tXem>> on more.'
  168. elseif haraklover[lover_number] = 2:
  169. '<<$tXec>> can see sperm on your face, but by the bulge in <<$tXyr>> pants you know it only turns <<$tXem>> on.'
  170. end
  171. elseif (cumloc[6] = 1 or cumloc[7] = 1):
  172. if haraklover[lover_number] = 0:
  173. loverrelation[lover_number] += 2
  174. pcs_horny += 5
  175. '<<$tXec>> can see sperm on your ass, but underneath <<$tXyr>> shy demener you know that it only turns <<$tXem>> on.'
  176. elseif haraklover[lover_number] = 1:
  177. loverrelation[lover_number] += 2
  178. pcs_horny += 5
  179. '<<$tXec>> can see sperm on your ass, but you know that it only turns <<$tXem>> on more.'
  180. elseif haraklover[lover_number] = 2:
  181. loverrelation[lover_number] += 3
  182. pcs_horny += 5
  183. '<<$tXec>> can see sperm on your ass, but by the bulge in <<$tXyr>> pants you know it only turns <<$tXem>> on.'
  184. end
  185. end
  186. elseif (cumloc[11] = 1 or cumloc[6] = 1 or cumloc[7] = 1) and (pervConstant ! 1 or loverGender[lover_number] = 0):
  187. if cumloc[11] = 1:
  188. gs 'lover', 'remove', lover_number
  189. '<<$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!'
  190. pcs_mood -= 20
  191. dynamic $go_home
  192. exit
  193. elseif (cumloc[6] = 1 or cumloc[7] = 1):
  194. loverrelation[lover_number] += 2
  195. '<<$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!'
  196. pcs_mood -= 20
  197. dynamic $go_home
  198. exit
  199. end
  200. end
  201. act 'Continue': xgt 'lover_meet', 'likes'
  202. end
  203. act 'Kiss with lips':
  204. *clr & cla
  205. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  206. 'You press your <<$meetlip>> softly against <<$tXyr>>, and for a split second time seems to stop.'
  207. pcs_mood += 10
  208. if cumloc[11] = 0 and (cumloc[6] = 0 and cumloc[7] = 0):
  209. if haraklover[lover_number] = 0:
  210. loverrelation[lover_number] += 2
  211. '<<$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.'
  212. gs 'arousal', 'kiss', 5
  213. gs 'stat'
  214. elseif haraklover[lover_number] = 1:
  215. loverrelation[lover_number] += 2
  216. '<<$tXec>> kisses you back with such skill it turns you on.'
  217. gs 'arousal', 'kiss', 5
  218. gs 'stat'
  219. elseif haraklover[lover_number] = 2:
  220. loverrelation[lover_number] += 2
  221. '<<$tXec>> kisses you back with such passion you feel a tingle within you.'
  222. gs 'arousal', 'kiss', 5
  223. gs 'stat'
  224. end
  225. elseif (cumloc[11] = 1 or cumloc[6] = 1 or cumloc[7] = 1 or cumloc[12] = 1) and pervConstant = 1:
  226. if cumloc[11] = 1:
  227. if haraklover[lover_number] = 0:
  228. loverrelation[lover_number] += 2
  229. pcs_horny += 5
  230. '<<$tXec>> can see sperm on your face, but underneath <<$tXyr>> shy demener you know that it only turns <<$tXem>> on.'
  231. elseif haraklover[lover_number] = 1:
  232. loverrelation[lover_number] += 2
  233. pcs_horny += 5
  234. '<<$tXec>> can see sperm on your face, but you know that it only turns <<$tXem>> on more.'
  235. elseif haraklover[lover_number] = 2:
  236. loverrelation[lover_number] += 3
  237. pcs_horny += 5
  238. '<<$tXec>> can see sperm on your face, but by the bulge in <<$tXyr>> pants you know it only turns <<$tXem>> on.'
  239. end
  240. elseif (cumloc[6] = 1 or cumloc[7] = 1):
  241. if haraklover[lover_number] = 0:
  242. loverrelation[lover_number] += 2
  243. pcs_horny += 5
  244. '<<$tXec>> can see sperm on your ass, but underneath <<$tXyr>> shy demener you know that it only turns <<$tXem>> on.'
  245. elseif haraklover[lover_number] = 1:
  246. loverrelation[lover_number] += 2
  247. pcs_horny += 5
  248. '<<$tXec>> can see sperm on your ass, but you know that it only turns <<$tXem>> on more.'
  249. elseif haraklover[lover_number] = 2:
  250. loverrelation[lover_number] += 3
  251. pcs_horny += 5
  252. '<<$tXec>> can see sperm on your ass, but by the bulge in <<$tXyr>> pants you know it only turns <<$tXem>> on.'
  253. end
  254. elseif cumloc[12] = 1:
  255. if haraklover[lover_number] = 0:
  256. loverrelation[lover_number] += 2
  257. pcs_horny += 5
  258. '<<$tXec>> can smell the scent of sperm on you, but underneath <<$tXyr>> shy demener you know that it only turns <<$tXem>> on.'
  259. elseif haraklover[lover_number] = 1:
  260. loverrelation[lover_number] += 2
  261. pcs_horny += 5
  262. '<<$tXec>> can smell the scent of sperm on you, but you know that it only turns <<$tXem>> on more.'
  263. elseif haraklover[lover_number] = 2:
  264. loverrelation[lover_number] += 3
  265. pcs_horny += 5
  266. '<<$tXec>> can smell the scent of sperm on you, but you know by the bulge in <<$tXyr>> pants it only turns <<$tXem>> on more.'
  267. end
  268. end
  269. else
  270. if (cumloc[11] = 1 or cumloc[6] = 1 or cumloc[7] = 1) and pervConstant ! 1:
  271. if cumloc[11] = 1:
  272. gs 'lover', 'remove', lover_number
  273. '<<$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!'
  274. pcs_mood -= 20
  275. dynamic $go_home
  276. exit
  277. elseif (cumloc[6] = 1 or cumloc[7] = 1):
  278. gs 'lover', 'remove', lover_number
  279. '<<$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!'
  280. pcs_mood -= 20
  281. dynamic $go_home
  282. exit
  283. end
  284. end
  285. end
  286. act 'Continue': xgt 'lover_meet', 'likes'
  287. end
  288. act 'Hint for a kiss on the cheek':
  289. *clr & cla
  290. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  291. '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'
  292. pcs_mood += 10
  293. if cumloc[11] = 0 and (cumloc[6] = 0 and cumloc[7] = 0):
  294. if haraklover[lover_number] = 0:
  295. loverrelation[lover_number] += 2
  296. '<<$tXec>> gives you a soft kiss on the cheek, and you can tell <<$tXe>> finds this act very cute.'
  297. gs 'arousal', 'kiss', 5
  298. gs 'stat'
  299. elseif haraklover[lover_number] = 1:
  300. loverrelation[lover_number] += 1
  301. '<<$tXec>> kisses you on the cheek and before <<$tXe>> pulls away you feel a quick kiss on the forhead.'
  302. gs 'arousal', 'kiss', 5
  303. gs 'stat'
  304. elseif haraklover[lover_number] = 2:
  305. loverrelation[lover_number] += 0
  306. '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.'
  307. gs 'arousal', 'kiss', 5
  308. gs 'stat'
  309. end
  310. elseif (cumloc[11] = 1 or cumloc[6] = 1 or cumloc[7] = 1 or cumloc[12] = 1) and pervConstant = 1:
  311. if cumloc[11] = 1:
  312. if haraklover[lover_number] = 0:
  313. loverrelation[lover_number] += 2
  314. pcs_horny += 5
  315. '<<$tXec>> can see sperm on your face, but underneath <<$tXyr>> shy demener you know that it only turns <<$tXem>> on.'
  316. elseif haraklover[lover_number] = 1:
  317. loverrelation[lover_number] += 2
  318. pcs_horny += 5
  319. '<<$tXec>> can see sperm on your face, but you know that it only turns <<$tXem>> on more.'
  320. elseif haraklover[lover_number] = 2:
  321. loverrelation[lover_number] += 3
  322. pcs_horny += 5
  323. '<<$tXec>> can see sperm on your face, but by the bulge in <<$tXyr>> pants you know it only turns <<$tXem>> on.'
  324. end
  325. elseif (cumloc[6] = 1 or cumloc[7] = 1):
  326. if haraklover[lover_number] = 0:
  327. loverrelation[lover_number] += 1
  328. pcs_horny += 5
  329. '<<$tXec>> can see sperm on your ass, but underneath <<$tXyr>> shy demener you know that it only turns <<$tXem>> on.'
  330. elseif haraklover[lover_number] = 1:
  331. loverrelation[lover_number] += 1
  332. pcs_horny += 5
  333. '<<$tXec>> can see sperm on your ass, but you know that it only turns <<$tXem>> on more.'
  334. elseif haraklover[lover_number] = 2:
  335. loverrelation[lover_number] += 1
  336. pcs_horny += 5
  337. '<<$tXec>> can see sperm on your ass, but by the bulge in <<$tXyr>> pants you know it only turns <<$tXem>> on.'
  338. end
  339. end
  340. elseif (cumloc[11] = 1 or cumloc[6] = 1 or cumloc[7] = 1) and pervConstant ! 1:
  341. if cumloc[11] = 1:
  342. gs 'lover', 'remove', lover_number
  343. '<<$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!'
  344. pcs_mood -= 20
  345. dynamic $go_home
  346. exit
  347. elseif (cumloc[6] = 1 or cumloc[7] = 1):
  348. gs 'lover', 'remove', lover_number
  349. '<<$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!'
  350. pcs_mood -= 20
  351. dynamic $go_home
  352. exit
  353. elseif (cumloc[6] = 1 or cumloc[7] = 1):
  354. gs 'lover', 'remove', lover_number
  355. '<<$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!"'
  356. pcs_mood -= 20
  357. dynamic $go_home
  358. exit
  359. end
  360. end
  361. act 'Continue': xgt 'lover_meet', 'likes'
  362. end
  363. act 'Push <<$tXyr>> face away':
  364. *clr & cla
  365. didPushAway = 1
  366. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  367. '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.'
  368. if haraklover[lover_number] = 0:
  369. loverrelation[lover_number] -= 7
  370. '<<$tXec>> stands there slightly embarrassed, and you can tell this hurt your relationship a good amount.'
  371. elseif haraklover[lover_number] = 1:
  372. loverrelation[lover_number] -= 5
  373. '<<$tXec>> looks at you slightly concerned, but backs off and gives you your space.'
  374. elseif haraklover[lover_number] = 2:
  375. loverrelation[lover_number] -= 10
  376. '<<$tXec>> begins to get angry, <<$tXe>> takes a deep breath and gives you space.'
  377. end
  378. act 'Continue': xgt 'lover_meet', 'likes'
  379. end
  380. else
  381. act 'Continue': xgt 'lover_meet', 'likes'
  382. end
  383. else
  384. act 'Continue': xgt 'lover_meet', 'likes'
  385. end
  386. end
  387. if $ARGS[0] = 'likes':
  388. cla
  389. if loverdays[lover_number] >= clotDay:
  390. gs 'lover_likes', 'clothesPref'
  391. end
  392. if loverdays[lover_number] >= bodyDay:
  393. gs 'lover_likes', 'bodyPrefTmp'
  394. end
  395. xgt 'lover_meet', 'actions'
  396. end
  397. if $ARGS[0] = 'actions':
  398. act 'Can I ask you how you think I look?':
  399. *clr & cla
  400. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  401. '<<$loverdesc[lover_number]>> says "If you insist" and tells you exactly how <<$tXe>> thinks you look based on what <<$tXe>> likes:'
  402. gs 'lover_likes', 'allPref'
  403. act 'Okay, lets talk about something else': xgt 'lover_meet', 'actions'
  404. end
  405. act 'What do you want to do today?':
  406. *clr & cla
  407. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  408. 'You tell <<$tXem>> you would rather <<$tXem>> decide what we do today.'
  409. if haraklover[lover_number] = 0:
  410. loverrelation[lover_number] += 0
  411. 'Not used to being given the opportunity to choose, <<$tXe>> thinks what to do...'
  412. elseif haraklover[lover_number] = 1:
  413. loverrelation[lover_number] += 0
  414. '<<$tXec>> thinks about what to do today.'
  415. elseif haraklover[lover_number] = 2:
  416. loverrelation[lover_number] += 1
  417. 'You can tell <<$tXe>> is happy you gave <<$tXem>> the ability to choose what to do today.'
  418. end
  419. !!This is the choice maker!
  420. !!Willpower checks for resistance
  421. if loverscompliance[lover_number] <=2:
  422. $loverResist = 'easy'
  423. elseif loverscompliance[lover_number] <=4:
  424. $loverResist = 'medium'
  425. else
  426. $loverResist = 'hard'
  427. end
  428. gs 'willpower', 'misc', 'self', $loverResist
  429. $lover_meet['ChangeActions'] = {
  430. !$ARGS[0] = name of thing being changed
  431. !$ARGS[1] = Parameter for lover_change procedure
  432. $lover_meet['ChangeName'] = $ARGS[0]
  433. $lover_meet['ChangeParamName'] = $ARGS[1]
  434. if will_cost <= pcs_willpwr:
  435. act 'I like my <<$lover_meet["ChangeName"]>> just the way it is (<<will_cost>> Willpower)':
  436. *clr & cla
  437. gs 'willpower', 'pay', 'self'
  438. gs 'stat'
  439. loverrelation[lover_number] -=3
  440. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  441. '<<$loverdesc[lover_number]>> realizes you will not give in this situation, and walks away mumbling to <<$tXemself>>.'
  442. dynamic $go_home
  443. end
  444. else
  445. 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>'
  446. end
  447. act 'Agree with <<$tXem>> to change your <<$lover_meet["ChangeName"]>>': gt 'lover_change', '<<$lover_meet["ChangeParamName"]>>'
  448. }
  449. if loverfinance[lover_number] = 0:
  450. !! 0 - change player, 1 - beer in stairwell, 2 - walk in park,
  451. randchan = rand(0, 2)
  452. !! 1 = does like, 0 = not like
  453. if (pierWearCount >= pierPrefTmpMin and pierWearCount <= pierPrefTmpMax) or pierPrefTmp = 0:
  454. pierCheck = 1
  455. else
  456. pierCheck = 0
  457. end
  458. if (tattCount >= tattPrefTmpMin and tattCount <= tattPrefTmpMax) or tattPrefTmp = 0:
  459. tattCheck = 1
  460. else
  461. tattCheck = 0
  462. end
  463. if (makeupSetting = makePrefTmp) or makePrefTmp = 0:
  464. makeupCheck = 1
  465. else
  466. makeupCheck = 0
  467. end
  468. if pcs_haircol = hairPref:
  469. hairCheck = 1
  470. else
  471. hairCheck = 0
  472. end
  473. if (pierWearCount >= pierPrefTmpMin and pierWearCount <= pierPrefTmpMax) or pierPrefTmp = 0:
  474. pierCheck = 1
  475. else
  476. pierCheck = 0
  477. end
  478. if (tattCount >= tattPrefTmpMin and tattCount <= tattPrefTmpMax) or tattPrefTmp = 0:
  479. tattCheck = 1
  480. else
  481. tattCheck = 0
  482. end
  483. if randchan = 0 and (pierCheck + tattCheck + makeupCheck + hairCheck) = 4: randchan = rand(1, 2)
  484. if randchan = 0:
  485. *clr & cla
  486. !!Some things you can change.
  487. !!loverfinance[lover_number] = 0 - hair, makeup, tattoo, piercings.
  488. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  489. if haraklover[lover_number] = 0:
  490. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  491. elseif haraklover[lover_number] = 1:
  492. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  493. elseif haraklover[lover_number] = 2:
  494. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  495. end
  496. '"Whats up <<$loverdesc[lover_number]>>?"'
  497. '"There is just a trait about you that bugs me, can we change that?"'
  498. 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.'
  499. gs 'lover_likes', 'compliance'
  500. '"And what did you want to change about me?"'
  501. !!This is to make a last check on how many piercings they are WEARING
  502. gs 'lover_likes', 'checkPier'
  503. if pcs_haircol ! hairPref:
  504. *clr & cla
  505. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  506. '<<$loverdesc[lover_number]>> looks at your hair and says, "can we get your hair dyed?"'
  507. dynamic $lover_meet['ChangeActions'], 'hair', 'Hair'
  508. elseif makeupSetting ! makePrefTmp and makePrefTmp ! 0:
  509. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  510. '<<$loverdesc[lover_number]>> thinks about it and says "Can you wear <<$makePrefTmp>> from now on?"'
  511. dynamic $lover_meet['ChangeActions'], 'makeup', 'Make'
  512. elseif pierWearCount < pierPrefTmpMin or pierWearCount > pierPrefTmpMax and pierPrefTmp ! 0 and pierDay <= loverdays[lover_number]:
  513. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  514. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of piercings.'
  515. if pierWearCount < pierPrefTmpMin:
  516. '<<$tXec>> tells you that you should have more piercings.'
  517. else
  518. '<<$tXec>> tells you that you should have less piercings.'
  519. end
  520. dynamic $lover_meet['ChangeActions'], 'piercings', 'Pier'
  521. elseif tattCount < tattPrefTmpMin or tattCount > tattPrefTmpMax and tattPrefTmp ! 0 and tattDay <= loverdays[lover_number]:
  522. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  523. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of tattoos.'
  524. if tattCount < tattPrefTmpMin:
  525. '<<$tXec>> tells you that you should have more tattoos.'
  526. else
  527. '<<$tXec>> tells you that you should have less tattoos.'
  528. end
  529. dynamic $lover_meet['ChangeActions'], 'tattoos', 'Tatt'
  530. else
  531. *clr & cla
  532. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  533. 'Erm... Nothing...'
  534. act 'Well then...': xgt 'lover_meet', 'actions'
  535. end
  536. elseif randchan = 1 and loverGender[lover_number] = 0:
  537. *clr & cla
  538. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  539. '<<$loverdesc[lover_number]>> suggest you and <<$tXem>> drink a beer in the stairwell.'
  540. act 'Sorry, but I need to go':
  541. cla
  542. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  543. dynamic $go_home
  544. end
  545. act 'Go with <<$tXem>>':gt 'podezdM', 'start'
  546. elseif randchan = 2 or loverGender[lover_number] = 1:
  547. *clr & cla
  548. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  549. '<<$loverdesc[lover_number]>> suggests that you take a walk in the park.'
  550. act 'Sorry, but I need to go':
  551. cla
  552. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  553. dynamic $go_home
  554. end
  555. act 'Go with <<$tXem>>':
  556. if loverGender[lover_number] = 0: gt 'parkM', 'start'
  557. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'parksvid'
  558. end
  559. end
  560. elseif loverfinance[lover_number] = 1:
  561. *clr & cla
  562. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  563. !! 0 - change player, 1 - go to the movies, 2 - walk in park, 3 , suggests that you go to a cafe.
  564. randchan = rand(0, 3)
  565. !! 1 = does like, 0 = not like
  566. if (pierWearCount >= pierPrefTmpMin and pierWearCount <= pierPrefTmpMax) or pierPrefTmp = 0:
  567. pierCheck = 1
  568. else
  569. pierCheck = 0
  570. end
  571. if (tattCount >= tattPrefTmpMin and tattCount <= tattPrefTmpMax) or tattPrefTmp = 0:
  572. tattCheck = 1
  573. else
  574. tattCheck = 0
  575. end
  576. if (makeupSetting = makePrefTmp) or makePrefTmp = 0:
  577. makeupCheck = 1
  578. else
  579. makeupCheck = 0
  580. end
  581. if pcs_haircol = hairPref:
  582. hairCheck = 1
  583. else
  584. hairCheck = 0
  585. end
  586. if tits >= titMin and tits <= titMax:
  587. titCheck = 1
  588. else
  589. titCheck = 0
  590. end
  591. if pcs_lips >= lipsPrefTmpMin and tits <= lipsPrefTmpMax:
  592. lipsCheck = 1
  593. else
  594. lipsCheck = 0
  595. end
  596. if randchan = 0 and (pierCheck + tattCheck + makeupCheck + hairCheck + titCheck + lipsCheck) = 6:
  597. 'Takes one look at your body and loves every part of it.'
  598. randchan = rand(1, 3)
  599. end
  600. if randchan = 0:
  601. *clr & cla
  602. !!Some things you can change.
  603. !!loverfinance[lover_number] = 1 - hair, makeup, tattoo, piercings, lips, tits.
  604. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  605. if haraklover[lover_number] = 0:
  606. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  607. elseif haraklover[lover_number] = 1:
  608. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  609. elseif haraklover[lover_number] = 2:
  610. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  611. end
  612. '"Whats up <<$loverdesc[lover_number]>>?"'
  613. '"There is just a trait about you that bugs me, can we change that?"'
  614. 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.'
  615. gs 'lover_likes', 'compliance'
  616. '"And what did you want to change about me?"'
  617. !!This is to make a last check on how many piercings they are WEARING
  618. gs 'lover_likes', 'checkPier'
  619. if pcs_haircol ! hairPref:
  620. '<<$loverdesc[lover_number]>> looks at your hair and says, "can we get your hair dyed?"'
  621. dynamic $lover_meet['ChangeActions'], 'hair', 'Hair'
  622. elseif makeupSetting ! makePrefTmp and makePrefTmp ! 0:
  623. *clr & cla
  624. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  625. '<<$loverdesc[lover_number]>> thinks about it and says "Can you wear <<$makePrefTmp>> from now on?"'
  626. dynamic $lover_meet['ChangeActions'], 'makeup', 'Make'
  627. elseif pierWearCount < pierPrefTmpMin or pierWearCount > pierPrefTmpMax and pierPrefTmp ! 0 and pierDay <= loverdays[lover_number]:
  628. *clr & cla
  629. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  630. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of piercings.'
  631. if pierWearCount < pierPrefTmpMin:
  632. '<<$tXec>> tells you that you should have more piercings.'
  633. else
  634. '<<$tXec>> tells you that you should have less piercings.'
  635. end
  636. dynamic $lover_meet['ChangeActions'], 'piercings', 'Pier'
  637. elseif tattCount < tattPrefTmpMin or tattCount > tattPrefTmpMax and tattPrefTmp ! 0 and tattDay <= loverdays[lover_number]:
  638. *clr & cla
  639. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  640. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of tattoos.'
  641. dynamic $lover_meet['ChangeActions'], 'tattoos', 'Tatt'
  642. elseif pcs_lip < lipsPrefTmpMin or pcs_lip > lipsPrefTmpMax and lipsDay <= loverdays[lover_number]:
  643. *clr & cla
  644. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  645. '<<$loverdesc[lover_number]>> tells you your lips are just not the right size.'
  646. if pcs_lip < lipsPrefTmpMin:
  647. '<<$tXec>> tells you that you should get lip injections.'
  648. else
  649. '<<$tXec>> tells you that you should have lip reduction.'
  650. end
  651. dynamic $lover_meet['ChangeActions'], 'lips', 'Lips'
  652. elseif tits < titMin or tits > titMax and titsDay <= loverdays[lover_number]:
  653. *clr & cla
  654. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  655. '<<$loverdesc[lover_number]>> tells you your breasts are just not right.'
  656. if tits < titMin:
  657. '<<$tXec>> tells you that you should get breast implants.'
  658. else
  659. '<<$tXec>> tells you that you should have a breast reduction.'
  660. end
  661. dynamic $lover_meet['ChangeActions'], 'breasts', 'Tits'
  662. else
  663. *clr & cla
  664. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  665. '"Erm... Nothing..."'
  666. act '"Well then..."': xgt 'lover_meet', 'actions'
  667. end
  668. elseif randchan = 1:
  669. *clr & cla
  670. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  671. '<<$loverdesc[lover_number]>> suggests that you go to the movies.'
  672. act 'Sorry, but I need to go':
  673. cla
  674. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  675. dynamic $go_home
  676. end
  677. act 'Go with <<$tXem>>':
  678. if loverGender[lover_number] = 0: gt 'kinoM', 'start'
  679. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kinosvid'
  680. end
  681. elseif randchan = 2:
  682. *clr & cla
  683. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  684. '<<$loverdesc[lover_number]>> suggest that you take a walk in the park'
  685. act 'Sorry, but I need to go':
  686. cla
  687. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  688. dynamic $go_home
  689. end
  690. act 'Go with <<$tXem>>':
  691. if loverGender[lover_number] = 0: gt 'parkM', 'start'
  692. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'parksvid'
  693. end
  694. elseif randchan = 3:
  695. *clr & cla
  696. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  697. '<<$loverdesc[lover_number]>> suggests that you go to a cafe.'
  698. act 'Sorry, but I need to go':
  699. cla
  700. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  701. dynamic $go_home
  702. end
  703. act 'Go with <<$tXem>>':
  704. if loverGender[lover_number] = 0: gt 'kafeM', 'start'
  705. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kafesvid'
  706. end
  707. end
  708. elseif loverfinance[lover_number] = 2:
  709. *clr & cla
  710. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  711. !!Some things you can change.
  712. !!loverfinance[lover_number] = 2 - hair, makeup, tattoo, piercings, lips, tits
  713. !! 0 - change player, 1 - go to a cafe, 2 - go to a restaurant, 3 - to the movies.
  714. randchan = rand(0, 3)
  715. !! 1 = does like, 0 = not like
  716. if (pierWearCount >= pierPrefTmpMin and pierWearCount <= pierPrefTmpMax) or pierPrefTmp = 0:
  717. pierCheck = 1
  718. else
  719. pierCheck = 0
  720. end
  721. if (tattCount >= tattPrefTmpMin and tattCount <= tattPrefTmpMax) or tattPrefTmp = 0:
  722. tattCheck = 1
  723. else
  724. tattCheck = 0
  725. end
  726. if (makeupSetting = makePrefTmp) or makePrefTmp = 0:
  727. makeupCheck = 1
  728. else
  729. makeupCheck = 0
  730. end
  731. if pcs_haircol = hairPref:
  732. hairCheck = 1
  733. else
  734. hairCheck = 0
  735. end
  736. if tits >= titMin and tits <= titMax:
  737. titCheck = 1
  738. else
  739. titCheck = 0
  740. end
  741. if pcs_lips >= lipsPrefTmpMin and tits <= lipsPrefTmpMax:
  742. lipsCheck = 1
  743. else
  744. lipsCheck = 0
  745. end
  746. if salocatnow <= figurePrefMax:
  747. figureCheck = 1
  748. else
  749. figureCheck = 0
  750. end
  751. if randchan = 0 and (pierCheck + tattCheck + makeupCheck + hairCheck + titCheck + lipsCheck + figureCheck) = 7:
  752. 'Takes one look at your body and loves every part of it.'
  753. randchan = rand(1, 3)
  754. end
  755. if randchan = 0:
  756. *clr & cla
  757. !!Some things you can change.
  758. !!loverfinance[lover_number] = 2 - hair, makeup, tattoo, piercings, lips, tits, figure.
  759. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  760. if haraklover[lover_number] = 0:
  761. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  762. elseif haraklover[lover_number] = 1:
  763. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  764. elseif haraklover[lover_number] = 2:
  765. '"Actually can I talk to you about something?", <<$loverdesc[lover_number]>> asks you.'
  766. end
  767. '"Whats up <<$loverdesc[lover_number]>>?"'
  768. '"There is just a trait about you that bugs me, can we change that?"'
  769. 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.'
  770. gs 'lover_likes', 'compliance'
  771. '"And what did you want to change about me?"'
  772. !!This is to make a last check on how many piercings they are WEARING
  773. gs 'lover_likes', 'checkPier'
  774. if pcs_haircol ! hairPref:
  775. '<<$loverdesc[lover_number]>> looks at your hair and says, "can we get your hair dyed?"'
  776. dynamic $lover_meet['ChangeActions'], 'hair', 'Hair'
  777. elseif makeupSetting ! makePrefTmp and makePrefTmp ! 0:
  778. '<<$loverdesc[lover_number]>> thinks about it and says "Can you wear <<$makePrefTmp>> from now on?"'
  779. dynamic $lover_meet['ChangeActions'], 'makeup', 'Make'
  780. elseif pierWearCount < pierPrefTmpMin or pierWearCount > pierPrefTmpMax and pierPrefTmp ! 0 and pierDay <= loverdays[lover_number]:
  781. *clr & cla
  782. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  783. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of piercings.'
  784. if pierWearCount < pierPrefTmpMin:
  785. '<<$tXec>> tells you that you should have more piercings.'
  786. else
  787. '<<$tXec>> tells you that you should have less piercings.'
  788. end
  789. dynamic $lover_meet['ChangeActions'], 'piercings', 'Pier'
  790. elseif tattCount < tattPrefTmpMin or tattCount > tattPrefTmpMax and tattPrefTmp ! 0 and tattDay <= loverdays[lover_number]:
  791. *clr & cla
  792. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  793. '<<$loverdesc[lover_number]>> talks about how you just don''t have the right amount of tattoos.'
  794. if tattCount < tattPrefTmpMin:
  795. '<<$tXec>> tells you that you should have more tattoos.'
  796. else
  797. '<<$tXec>> tells you that you should have less tattoos.'
  798. end
  799. dynamic $lover_meet['ChangeActions'], 'tattoos', 'Tatt'
  800. elseif pcs_lip < lipsPrefTmpMin or pcs_lip > lipsPrefTmpMax and lipsDay <= loverdays[lover_number]:
  801. *clr & cla
  802. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  803. '<<$loverdesc[lover_number]>> tells you your lips are just not the right size.'
  804. if pcs_lip < lipsPrefTmpMin:
  805. '<<$tXec>> tells you that you should get lip injections.'
  806. else
  807. '<<$tXec>> tells you that you should have lip reduction.'
  808. end
  809. dynamic $lover_meet['ChangeActions'], 'lips', 'Lips'
  810. elseif tits < titMin or tits > titMax and titsDay <= loverdays[lover_number]:
  811. *clr & cla
  812. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  813. '<<$loverdesc[lover_number]>> tells you your breasts are just not right.'
  814. if tits < titMin:
  815. '<<$tXec>> tells you that you should get breast implants.'
  816. else
  817. '<<$tXec>> tells you that you should have a breast reduction.'
  818. end
  819. dynamic $lover_meet['ChangeActions'], 'breasts', 'Tits'
  820. elseif salocatnow > figurePrefMax and figureDay <= loverdays[lover_number]:
  821. *clr & cla
  822. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  823. '<<$loverdesc[lover_number]>> tells you your body is just too thick.'
  824. '<<$tXec>> offers to pay for you to get lyposuction.'
  825. dynamic $lover_meet['ChangeActions'], 'body weight', 'Figure'
  826. else
  827. *clr & cla
  828. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  829. '"Erm... Nothing..."'
  830. act '"Well then..."': xgt 'lover_meet', 'actions'
  831. end
  832. elseif randchan = 1:
  833. *clr & cla
  834. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  835. '<<$loverdesc[lover_number]>> suggests that you go to a cafe.'
  836. act 'Sorry, but I need to leave':
  837. cla
  838. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  839. dynamic $go_home
  840. end
  841. act 'Go with <<$tXem>>':
  842. if loverGender[lover_number] = 0: gt 'kafeM', 'start'
  843. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kafesvid'
  844. end
  845. exit
  846. elseif randchan = 2:
  847. *clr & cla
  848. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  849. '<<$loverdesc[lover_number]>> suggests that you go to a restaurant.'
  850. act 'Sorry, but I need to leave':
  851. cla
  852. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  853. dynamic $go_home
  854. end
  855. act 'Go with <<$tXem>>':
  856. if loverGender[lover_number] = 0: gt 'restoranM', 'start'
  857. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kafesvid'
  858. end
  859. exit
  860. elseif randchan = 3:
  861. *clr & cla
  862. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  863. '<<$loverdesc[lover_number]>> suggests that you go to the movies.'
  864. act 'Sorry, but I need to go':
  865. cla
  866. loverrelation[lover_number] -= (haraklover[lover_number] + 1)
  867. dynamic $go_home
  868. end
  869. act 'Go with <<$tXem>>':
  870. if loverGender[lover_number] = 0: gt 'kinoM', 'start'
  871. if loverGender[lover_number] = 1: $telsob = '<<$loverdesc[lover_number]>>' & gt 'kinosvid'
  872. end
  873. exit
  874. end
  875. end
  876. end
  877. act 'I want to do something today':
  878. *clr & cla
  879. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  880. '"What do you want to do?", <<$tXe>> asks'
  881. if loverGender[lover_number] = 0:
  882. act '"Let''s go just relax in the stairwell and drink some beer."': gt 'podezdM', 'start'
  883. act '"Let''s take a walk in the park"': gt 'parkM', 'start'
  884. act '"Let''s go see a movie"': gt 'kinoM', 'start'
  885. act '"Let''s go to the cafe."': gt 'kafeM', 'start'
  886. elseif loverGender[lover_number] = 1:
  887. $telsob = '<<$loverdesc[lover_number]>>'
  888. if month > 5 and temper > 20 and sunWeather = 1:
  889. act 'Invite to the park': gt 'parksvid'
  890. end
  891. act 'Invite to a movie': gt 'kinosvid'
  892. act 'Invite to the pool hall': gt 'billsvid'
  893. act 'Invite to the cafe': gt 'kafesvid'
  894. act 'Invite to the casino': gt 'kazinosvid'
  895. end
  896. act 'Never mind...':
  897. gt 'lover_meet', 'actions'
  898. exit
  899. end
  900. end
  901. act 'I think we should break up...':
  902. *clr & cla
  903. '<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picture[lover_number]+'.jpg"></center>'
  904. '<<$tXec>> looks hurt, but you insist it is for the best. You both say goodbye and part ways.'
  905. gs 'lover', 'remove', lover_number
  906. act 'Continue':
  907. dynamic $go_home
  908. exit
  909. end
  910. end
  911. end
  912. --- lover_meet ---------------------------------