svi 16 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617
  1. # svi
  2. if $ARGS[0] = 'poor':
  3. minut += 20
  4. if Venera >= 3:
  5. loverrelation[lover_number] = 0
  6. '<<$loverdesc[lover_number]>> you saw signs of venereal disease and dumped you.'
  7. act 'Leave':dynamic $brodilr
  8. exit
  9. end
  10. if pcs_sweat > 24:
  11. !!sweating
  12. loverrelation[lover_number] -= 1
  13. if haraklover[lover_number] = 0:'<<$loverdesc[lover_number]>> tells you that he appeared urgent business.'
  14. if haraklover[lover_number] = 1:'<<$loverdesc[lover_number]>> wrinkles her nose in disgust and tells you that he appeared urgent business.'
  15. if haraklover[lover_number] = 2:'<<$loverdesc[lover_number]>> tells you that you would not hurt to wash.'
  16. if haraklover[lover_number] = 3:'<<$loverdesc[lover_number]>> tells you that it appeared urgent business.'
  17. if haraklover[lover_number] = 4:'<<$loverdesc[lover_number]>> wrinkles her nose in disgust and tells you that she appeared urgent business.'
  18. if haraklover[lover_number] = 5:'<<$loverdesc[lover_number]>> tells you that you would not hurt to wash.'
  19. act 'Leave':dynamic $brodilr
  20. exit
  21. end
  22. if temper < 0 and defaultcoat = 5:
  23. !!quilted_jacket
  24. loverrelation[lover_number] -= 1
  25. if haraklover[lover_number] = 0:'<<$loverdesc[lover_number]>> tells you that he appeared urgent business.'
  26. if haraklover[lover_number] = 1:'<<$loverdesc[lover_number]>> scornfully looks at you and tells you that they have any urgent matters.'
  27. if haraklover[lover_number] = 2:'<<$loverdesc[lover_number]>> tells you that you are in rags like a scarecrow.'
  28. if haraklover[lover_number] = 3:'<<$loverdesc[lover_number]>> tells you that it appeared urgent business.'
  29. if haraklover[lover_number] = 4:'<<$loverdesc[lover_number]>> scornfully looks at you and tells you that she had her urgent business.'
  30. if haraklover[lover_number] = 5:'<<$loverdesc[lover_number]>> tells you that you are in rags like a scarecrow.'
  31. act 'Leave':dynamic $brodilr
  32. exit
  33. end
  34. if haraklover[lover_number] > 0 and izvrat = 0 and cumloc[11] = 1:
  35. loverrelation[lover_number] = 0
  36. '<<$loverdesc[lover_number]>> you saw traces of semen. He called you slut had severed relations with you.'
  37. act 'Leave':dynamic $brodilr
  38. exit
  39. end
  40. if loverdays[lover_number] < 10 and boyonce[lover_number] = 0:
  41. !!candy buketny period
  42. vstrand = rand(0, 2)
  43. if vstrand = 0:
  44. '<<$loverdesc[lover_number]>> offers a walk in the park.'
  45. act 'Walk in the park':
  46. cla
  47. minut += 60
  48. fat += 1
  49. loverrelation[lover_number] += 1
  50. 'You walked in the park with a guy. <<$loverdesc[lover_number]>> telling stories and jokes hunted.'
  51. act 'To invite':
  52. cla
  53. if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1
  54. gt 'svidan', 'kvartA'
  55. end
  56. act 'Say goodbye and go home':
  57. cla
  58. loverrelation[lover_number] += 1
  59. dynamic $brodilr
  60. end
  61. end
  62. act 'Refuse':
  63. cla
  64. loverrelation[lover_number] -= 1
  65. dynamic $brodilr
  66. end
  67. elseif vstrand = 1:
  68. '<<$loverdesc[lover_number]>> offers to go to the cinema.'
  69. act 'Go to the cinema':
  70. cla
  71. minut += 60
  72. fat += 1
  73. loverrelation[lover_number] += 1
  74. 'You went to the cinema for a new movie. <<$loverdesc[lover_number]>> hug you.'
  75. act 'Hold his hand':
  76. cla
  77. loverrelation[lover_number] += 1
  78. 'You watch a movie while holding hand. Finally the film ends.'
  79. act 'To invite':
  80. cla
  81. if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1
  82. gt 'svidan', 'kvartA'
  83. end
  84. act 'Say goodbye and go home':
  85. cla
  86. loverrelation[lover_number] += 1
  87. dynamic $brodilr
  88. end
  89. end
  90. end
  91. act 'Refuse':
  92. cla
  93. loverrelation[lover_number] -= 1
  94. dynamic $brodilr
  95. end
  96. elseif vstrand = 2:
  97. '<<$loverdesc[lover_number]>> offers beers on the porch.'
  98. act 'Drink beer':
  99. cla
  100. minut += 60
  101. fat += 1
  102. loverrelation[lover_number] += 1
  103. '<<$loverdesc[lover_number]>> bought beers and crackers and you went with him to the porch, where drinking and fun chatting.'
  104. act 'To invite':
  105. cla
  106. if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1
  107. gt 'svidan', 'kvartA'
  108. end
  109. act 'Say goodbye and go home':
  110. cla
  111. loverrelation[lover_number] += 1
  112. dynamic $brodilr
  113. end
  114. end
  115. act 'Refuse':
  116. cla
  117. loverrelation[lover_number] -= 1
  118. dynamic $brodilr
  119. end
  120. end
  121. elseif loverdays[lover_number] >= 10 and boyonce[lover_number] = 0:
  122. '<<$loverdesc[lover_number]>> says he''s a grown man and he is not satisfied platonic relationship.'
  123. act 'Leave':
  124. cla
  125. loverrelation[lover_number] = 0
  126. dynamic $brodilr
  127. end
  128. act 'Agrees to have sex':
  129. cla
  130. *clr
  131. minut += 20
  132. 'You agreed to have sex. <<$loverdesc[lover_number]>> happy.'
  133. act 'Go to your apartment':gt 'svidan', 'kvartA'
  134. act 'Go into the bushes':gt 'svidan', 'kustA'
  135. end
  136. exit
  137. end
  138. if loverdays[lover_number] > 15:gs 'boylove', 'haer'
  139. if loverdays[lover_number] > 30:gs 'boylove', 'figure'
  140. if loverdays[lover_number] > 60:gs 'boylove', 'tits'
  141. if boyonce[lover_number] > 0:
  142. '<<$loverdesc[lover_number]>> offers to hang out in the stairwell with pivasikom.'
  143. act 'Potusit':
  144. cla
  145. minut += 60
  146. fat += 1
  147. loverrelation[lover_number] += 1
  148. 'You drank beer in the stairwell with her boyfriend. <<$loverdesc[lover_number]>> hugged you and said that he wants you.'
  149. act 'Go to your apartment':gt 'svidan', 'kvartA'
  150. act 'Go into the bushes':gt 'svidan', 'kustA'
  151. end
  152. act 'Refuse':
  153. cla
  154. loverrelation[lover_number] -= 1
  155. dynamic $brodilr
  156. end
  157. end
  158. end
  159. if $ARGS[0] = 'norm':
  160. minut += 20
  161. if Venera >= 3:
  162. loverrelation[lover_number] = 0
  163. '<<$loverdesc[lover_number]>> you saw signs of venereal disease and dumped you.'
  164. act 'Leave':dynamic $brodilr
  165. exit
  166. end
  167. if pcs_sweat > 24:
  168. !!sweating
  169. loverrelation[lover_number] -= 1
  170. if haraklover[lover_number] = 0:'<<$loverdesc[lover_number]>> tells you that he appeared urgent business.'
  171. if haraklover[lover_number] = 1:'<<$loverdesc[lover_number]>> wrinkles her nose in disgust and tells you that he appeared urgent business.'
  172. if haraklover[lover_number] = 2:'<<$loverdesc[lover_number]>> tells you that you would not hurt to wash.'
  173. act 'Leave':dynamic $brodilr
  174. exit
  175. end
  176. if temper < 0 and defaultcoat = 5:
  177. !!quilted_jacket
  178. loverrelation[lover_number] -= 1
  179. if haraklover[lover_number] = 0:'<<$loverdesc[lover_number]>> tells you that he appeared urgent business.'
  180. if haraklover[lover_number] = 1:'<<$loverdesc[lover_number]>> scornfully looks at you and tells you that they have any urgent matters.'
  181. if haraklover[lover_number] = 2:'<<$loverdesc[lover_number]>> tells you that you are in rags like a scarecrow.'
  182. act 'Leave':dynamic $brodilr
  183. exit
  184. end
  185. if haraklover[lover_number] > 0 and izvrat = 0 and cumloc[11] = 1:
  186. loverrelation[lover_number] = 0
  187. '<<$loverdesc[lover_number]>> you saw traces of semen. He called you slut had severed relations with you.'
  188. act 'Leave':dynamic $brodilr
  189. exit
  190. end
  191. if loverdays[lover_number] < 10 and boyonce[lover_number] = 0:
  192. !!candy buketny period
  193. vstrand = rand(0, 2)
  194. if vstrand = 0:
  195. '<<$loverdesc[lover_number]>> offers to go to the cafe.'
  196. act 'Go to the cafe':
  197. cla
  198. minut += 60
  199. fat += 1
  200. loverrelation[lover_number] += 1
  201. 'You went to a cafe with a guy. <<$loverdesc[lover_number]>> telling stories and jokes hunted.'
  202. act 'To invite':
  203. cla
  204. if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1
  205. gt 'svidan', 'kvartA'
  206. end
  207. act 'Say goodbye and go home':
  208. cla
  209. loverrelation[lover_number] += 1
  210. dynamic $brodilr
  211. end
  212. end
  213. act 'Refuse':
  214. cla
  215. loverrelation[lover_number] -= 1
  216. dynamic $brodilr
  217. end
  218. elseif vstrand = 1:
  219. '<<$loverdesc[lover_number]>> offers to go to the cinema.'
  220. act 'Go to the cinema':
  221. cla
  222. minut += 60
  223. fat += 1
  224. loverrelation[lover_number] += 1
  225. 'You went to the cinema for a new movie. <<$loverdesc[lover_number]>> hug you.'
  226. act 'Hug his hand':
  227. cla
  228. loverrelation[lover_number] += 1
  229. 'You watch a movie guy hugging hand. Finally the film ends.'
  230. act 'To invite':
  231. cla
  232. if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1
  233. gt 'svidan', 'kvartA'
  234. end
  235. act 'Say goodbye and go home':
  236. cla
  237. loverrelation[lover_number] += 1
  238. dynamic $brodilr
  239. end
  240. end
  241. end
  242. act 'Refuse':
  243. cla
  244. loverrelation[lover_number] -= 1
  245. dynamic $brodilr
  246. end
  247. elseif vstrand = 2:
  248. '<<$loverdesc[lover_number]>> provides for a walk.'
  249. act 'Walk':
  250. cla
  251. minut += 60
  252. fat += 1
  253. loverrelation[lover_number] += 1
  254. '<<$loverdesc[lover_number]>> to take you by the arm and you were walking down the street talking.'
  255. act 'To invite':
  256. cla
  257. if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1
  258. gt 'svidan', 'kvartA'
  259. end
  260. act 'Say goodbye and go home':
  261. cla
  262. loverrelation[lover_number] += 1
  263. dynamic $brodilr
  264. end
  265. end
  266. act 'Refuse':
  267. cla
  268. loverrelation[lover_number] -= 1
  269. dynamic $brodilr
  270. end
  271. end
  272. elseif loverdays[lover_number] >= 10 and boyonce[lover_number] = 0:
  273. '<<$loverdesc[lover_number]>> says he''s a grown man and he is not satisfied with a platonic relationship.'
  274. act 'Leave':
  275. cla
  276. loverrelation[lover_number] = 0
  277. dynamic $brodilr
  278. end
  279. act 'Agrees to have sex':
  280. cla
  281. *clr
  282. minut += 20
  283. 'You agreed to have sex. <<$loverdesc[lover_number]>> is happy.'
  284. act 'Go to your apartment':gt 'svidan', 'kvartA'
  285. act 'Go in his car':gt 'svidan', 'carA'
  286. end
  287. exit
  288. end
  289. if loverdays[lover_number] > 12 and pcs_skin < 40:loverrelation[lover_number] -= 1
  290. if loverdays[lover_number] > 12:gs 'boylove', 'haer'
  291. if loverdays[lover_number] > 24:gs 'boylove', 'figure'
  292. if loverdays[lover_number] > 48:gs 'boylove', 'tits'
  293. if loverdays[lover_number] > 22 and pcs_eyesize < 1:loverrelation[lover_number] -= 1
  294. if loverdays[lover_number] > 40 and pcs_lip < 1:loverrelation[lover_number] -= 1
  295. if boyonce[lover_number] > 0:
  296. '<<$loverdesc[lover_number]>> suggests going to a cafe.'
  297. act 'The cafe':
  298. cla
  299. minut += 60
  300. fat += 1
  301. loverrelation[lover_number] += 1
  302. 'You find a table and <<$loverdesc[lover_number]>> orders for you both. You enjoy some playful banter. <<$loverdesc[lover_number]>> hugs you and says that he wants you.'
  303. act 'Go to your apartment':gt 'svidan', 'kvartA'
  304. act 'Go in his car':gt 'svidan', 'carA'
  305. end
  306. act 'Refuse':
  307. cla
  308. loverrelation[lover_number] -= 1
  309. dynamic $brodilr
  310. end
  311. end
  312. end
  313. if $ARGS[0] = 'reach':
  314. minut += 20
  315. if Venera >= 3:
  316. loverrelation[lover_number] = 0
  317. '<<$loverdesc[lover_number]>> says you show signs of venereal disease and dumps you.'
  318. act 'Leave':dynamic $brodilr
  319. exit
  320. end
  321. if pcs_sweat > 24:
  322. !!вsweating
  323. loverrelation[lover_number] -= 1
  324. if haraklover[lover_number] = 0:'<<$loverdesc[lover_number]>> tells you that he has some urgent business.'
  325. if haraklover[lover_number] = 1:'<<$loverdesc[lover_number]>> wrinkles her nose in disgust and tells you that he has some urgent business.'
  326. if haraklover[lover_number] = 2:'<<$loverdesc[lover_number]>> tells you that it would not hurt to wash.'
  327. act 'Leave':dynamic $brodilr
  328. exit
  329. end
  330. if temper < 0 and defaultcoat = 5:
  331. !!quilted_jacket
  332. loverrelation[lover_number] -= 1
  333. if haraklover[lover_number] = 0:'<<$loverdesc[lover_number]>> tells you that he has urgent business.'
  334. if haraklover[lover_number] = 1:'<<$loverdesc[lover_number]>> scornfully looks at you and tells you that they have urgent matters to attend to.'
  335. if haraklover[lover_number] = 2:'<<$loverdesc[lover_number]>> tells you that you look like a scarecrow in those rags.'
  336. act 'Leave':dynamic $brodilr
  337. exit
  338. end
  339. if haraklover[lover_number] > 0 and izvrat = 0 and cumloc[11] = 1:
  340. loverrelation[lover_number] = 0
  341. '<<$loverdesc[lover_number]>> sees traces of semen. He calls you a Slut and severs relations with you.'
  342. act 'Leave':dynamic $brodilr
  343. exit
  344. end
  345. if loverdays[lover_number] > 5 and pcs_skin < 60:loverrelation[lover_number] -= 1
  346. if loverdays[lover_number] > 10:gs 'boylove', 'haer'
  347. if loverdays[lover_number] > 20:gs 'boylove', 'figure'
  348. if loverdays[lover_number] > 30:gs 'boylove', 'tits'
  349. if loverdays[lover_number] > 10 and pcs_eyesize < 2:loverrelation[lover_number] -= 1
  350. if loverdays[lover_number] > 6 and pcs_lip < 2:loverrelation[lover_number] -= 1
  351. if loverdays[lover_number] > 8 and pcs_lashes < 1:loverrelation[lover_number] -= 1
  352. if loverdays[lover_number] < 10 and boyonce[lover_number] = 0:
  353. !!candy buketny period
  354. vstrand = rand(0, 2)
  355. if vstrand = 0:
  356. '<<$loverdesc[lover_number]>> offers to go to the cafe.'
  357. act 'Go to the cafe':
  358. cla
  359. minut += 60
  360. fat += 1
  361. loverrelation[lover_number] += 1
  362. 'You go to a cafe with <<$loverdesc[lover_number]>> who entertains you with jokes and hunting stories.'
  363. act 'To invite':
  364. cla
  365. if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1
  366. gt 'svidan', 'kvartA'
  367. end
  368. act 'Say goodbye and go home':
  369. cla
  370. loverrelation[lover_number] += 1
  371. dynamic $brodilr
  372. end
  373. end
  374. act 'Refuse':
  375. cla
  376. loverrelation[lover_number] -= 1
  377. dynamic $brodilr
  378. end
  379. elseif vstrand = 1:
  380. '<<$loverdesc[lover_number]>> offers to go to the cinema.'
  381. act 'Go to the cinema':
  382. cla
  383. minut += 60
  384. fat += 1
  385. loverrelation[lover_number] += 1
  386. 'You went to the cinema for a new movie. <<$loverdesc[lover_number]>> hug you.'
  387. act 'Hold his hand':
  388. cla
  389. loverrelation[lover_number] += 1
  390. 'You watch a movie guy holding hand. Finally the film ends.'
  391. act 'To invite':
  392. cla
  393. if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1
  394. gt 'svidan', 'kvartA'
  395. end
  396. act 'Say goodbye and go home':
  397. cla
  398. loverrelation[lover_number] += 1
  399. dynamic $brodilr
  400. end
  401. end
  402. end
  403. act 'Refuse':
  404. cla
  405. loverrelation[lover_number] -= 1
  406. dynamic $brodilr
  407. end
  408. elseif vstrand = 2:
  409. '<<$loverdesc[lover_number]>> offers to go to the restaurant.'
  410. act 'Go to the restaurant':
  411. cla
  412. minut += 60
  413. fat += 1
  414. loverrelation[lover_number] += 1
  415. '<<$loverdesc[lover_number]>> has led you to the restaurant. There waiter quickly covered table and you sat enjoying the food, wine and socializing'
  416. act 'To invite':
  417. cla
  418. if loverdays[lover_number] < 3:loverrelation[lover_number] -= 1
  419. gt 'svidan', 'kvartA'
  420. end
  421. act 'Say goodbye and go home':
  422. cla
  423. loverrelation[lover_number] += 1
  424. dynamic $brodilr
  425. end
  426. end
  427. act 'Refuse':
  428. cla
  429. loverrelation[lover_number] -= 1
  430. dynamic $brodilr
  431. end
  432. end
  433. elseif loverdays[lover_number] >= 10 and boyonce[lover_number] = 0:
  434. '<<$loverdesc[lover_number]>> says he''s a grown man and he is not satisfied with a platonic relationship.'
  435. act 'Leave':
  436. cla
  437. loverrelation[lover_number] = 0
  438. dynamic $brodilr
  439. end
  440. act 'Agree to sex':
  441. cla
  442. *clr
  443. minut += 20
  444. 'You agree to have sex. <<$loverdesc[lover_number]>> happy.'
  445. act 'Go to your apartment':gt 'svidan', 'kvartA'
  446. act 'Go to him':gt 'svidan', 'hisA'
  447. end
  448. exit
  449. elseif boyonce[lover_number] > 0:
  450. '<<$loverdesc[lover_number]>> offers sit in a cafe.'
  451. act 'The cafe':
  452. cla
  453. minut += 60
  454. fat += 1
  455. loverrelation[lover_number] += 1
  456. 'You came to the cafe <<$loverdesc[lover_number]>> ordered a full table and you sat talking and having fun. <<$loverdesc[lover_number]>> hugs you and says that he wants you.'
  457. act 'Go to your apartment':gt 'svidan', 'kvartA'
  458. act 'Go to him':gt 'svidan', 'hisA'
  459. end
  460. act 'Refuse':
  461. cla
  462. loverrelation[lover_number] -= 1
  463. dynamic $brodilr
  464. end
  465. end
  466. end
  467. --- svi ---------------------------------