1
0

lover_meet.qsrc 40 KB

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