svi 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599
  1. # svi
  2. if $ARGS[0] = 'poor':
  3. minut += 20
  4. if Venera >= 3:
  5. bfA = 0
  6. '<<$boyA>> you saw signs of venereal disease and dumped you.'
  7. act 'Leave':dynamic $brodilr
  8. exit
  9. end
  10. if sweat > 24:
  11. !!sweating
  12. bfA -= 1
  13. if harakBoyA = 0:'<<$boyA>> tells you that he appeared urgent business.'
  14. if harakBoyA = 1:'<<$boyA>> wrinkles her nose in disgust and tells you that he appeared urgent business.'
  15. if harakBoyA = 2:'<<$boyA>> tells you that you would not hurt to wash.'
  16. if harakBoyA = 3:'<<$boyA>> tells you that it appeared urgent business.'
  17. if harakBoyA = 4:'<<$boyA>> wrinkles her nose in disgust and tells you that she appeared urgent business.'
  18. if harakBoyA = 5:'<<$boyA>> 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. bfA -= 1
  25. if harakBoyA = 0:'<<$boyA>> tells you that he appeared urgent business.'
  26. if harakBoyA = 1:'<<$boyA>> scornfully looks at you and tells you that they have any urgent matters.'
  27. if harakBoyA = 2:'<<$boyA>> tells you that you are in rags like a scarecrow.'
  28. if harakBoyA = 3:'<<$boyA>> tells you that it appeared urgent business.'
  29. if harakBoyA = 4:'<<$boyA>> scornfully looks at you and tells you that she had her urgent business.'
  30. if harakBoyA = 5:'<<$boyA>> tells you that you are in rags like a scarecrow.'
  31. act 'Leave':dynamic $brodilr
  32. exit
  33. end
  34. if harakBoyA > 0 and izvrat = 0 and spdirtyv > 0:
  35. bfA = 0
  36. '<<$boyA>> 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 daya < 10 and boyonceA = 0:
  41. !!candy buketny period
  42. vstrand = rand(0, 2)
  43. if vstrand = 0:
  44. '<<$boyA>> offers a walk in the park.'
  45. act 'Walk in the park':
  46. cla
  47. minut += 60
  48. fat += 1
  49. bfA += 1
  50. 'You walked in the park with a guy. <<$boyA>> telling stories and jokes hunted.'
  51. act 'To invite':
  52. cla
  53. if dayA < 3:bfA -= 1
  54. gt 'svidan', 'kvartA'
  55. end
  56. act 'Say goodbye and go home':
  57. cla
  58. bfA += 1
  59. dynamic $brodilr
  60. end
  61. end
  62. act 'Refuse':
  63. cla
  64. bfA -= 1
  65. dynamic $brodilr
  66. end
  67. elseif vstrand = 1:
  68. '<<$boyA>> offers to go to the cinema.'
  69. act 'Go to the cinema':
  70. cla
  71. minut += 60
  72. fat += 1
  73. bfA += 1
  74. 'You went to the cinema for a new movie. <<$boyA>> hug you.'
  75. act 'Hug his hand':
  76. cla
  77. bfA += 1
  78. 'You watch a movie guy hugging hand. Finally the film ends.'
  79. act 'To invite':
  80. cla
  81. if dayA < 3:bfA -= 1
  82. gt 'svidan', 'kvartA'
  83. end
  84. act 'Say goodbye and go home':
  85. cla
  86. bfA += 1
  87. dynamic $brodilr
  88. end
  89. end
  90. end
  91. act 'Refuse':
  92. cla
  93. bfA -= 1
  94. dynamic $brodilr
  95. end
  96. elseif vstrand = 2:
  97. '<<$boyA>> offers a drink pivasika in porch.'
  98. act 'Drink beer':
  99. cla
  100. minut += 60
  101. fat += 1
  102. bfA += 1
  103. '<<$boyA>> bought pivasika and crackers and you went with him to the porch, where drinking and fun chatting.'
  104. act 'To invite':
  105. cla
  106. if dayA < 3:bfA -= 1
  107. gt 'svidan', 'kvartA'
  108. end
  109. act 'Say goodbye and go home':
  110. cla
  111. bfA += 1
  112. dynamic $brodilr
  113. end
  114. end
  115. act 'Refuse':
  116. cla
  117. bfA -= 1
  118. dynamic $brodilr
  119. end
  120. end
  121. elseif daya >= 10 and boyonceA = 0:
  122. '<<$boyA>> says he''s a grown man and he is not satisfied platonic relationship.'
  123. act 'Leave':
  124. cla
  125. bfA = 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. <<$boyA>> 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 dayA > 15:gs 'boylove', 'haer'
  139. if dayA > 30:gs 'boylove', 'figure'
  140. if dayA > 60:gs 'boylove', 'tits'
  141. if boyonceA > 0:
  142. '<<$boyA>> offers to hang out in the stairwell with pivasikom.'
  143. act 'Potusit':
  144. cla
  145. minut += 60
  146. fat += 1
  147. bfA += 1
  148. 'You drank beer in the stairwell with her boyfriend. <<$boyA>> 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. bfA -= 1
  155. dynamic $brodilr
  156. end
  157. end
  158. end
  159. if $ARGS[0] = 'norm':
  160. minut += 20
  161. if Venera >= 3:
  162. bfA = 0
  163. '<<$boyA>> you saw signs of venereal disease and dumped you.'
  164. act 'Leave':dynamic $brodilr
  165. exit
  166. end
  167. if sweat > 24:
  168. !!sweating
  169. bfA -= 1
  170. if harakBoyA = 0:'<<$boyA>> tells you that he appeared urgent business.'
  171. if harakBoyA = 1:'<<$boyA>> wrinkles her nose in disgust and tells you that he appeared urgent business.'
  172. if harakBoyA = 2:'<<$boyA>> 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. bfA -= 1
  179. if harakBoyA = 0:'<<$boyA>> tells you that he appeared urgent business.'
  180. if harakBoyA = 1:'<<$boyA>> scornfully looks at you and tells you that they have any urgent matters.'
  181. if harakBoyA = 2:'<<$boyA>> tells you that you are in rags like a scarecrow.'
  182. act 'Leave':dynamic $brodilr
  183. exit
  184. end
  185. if harakBoyA > 0 and izvrat = 0 and spdirtyv > 0:
  186. bfA = 0
  187. '<<$boyA>> 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 daya < 10 and boyonceA = 0:
  192. !!candy buketny period
  193. vstrand = rand(0, 2)
  194. if vstrand = 0:
  195. '<<$boyA>> offers to go to the cafe.'
  196. act 'Go to the cafe':
  197. cla
  198. minut += 60
  199. fat += 1
  200. bfA += 1
  201. 'You went to a cafe with a guy. <<$boyA>> telling stories and jokes hunted.'
  202. act 'To invite':
  203. cla
  204. if dayA < 3:bfA -= 1
  205. gt 'svidan', 'kvartA'
  206. end
  207. act 'Say goodbye and go home':
  208. cla
  209. bfA += 1
  210. dynamic $brodilr
  211. end
  212. end
  213. act 'Refuse':
  214. cla
  215. bfA -= 1
  216. dynamic $brodilr
  217. end
  218. elseif vstrand = 1:
  219. '<<$boyA>> offers to go to the cinema.'
  220. act 'Go to the cinema':
  221. cla
  222. minut += 60
  223. fat += 1
  224. bfA += 1
  225. 'You went to the cinema for a new movie. <<$boyA>> hug you.'
  226. act 'Hug his hand':
  227. cla
  228. bfA += 1
  229. 'You watch a movie guy hugging hand. Finally the film ends.'
  230. act 'To invite':
  231. cla
  232. if dayA < 3:bfA -= 1
  233. gt 'svidan', 'kvartA'
  234. end
  235. act 'Say goodbye and go home':
  236. cla
  237. bfA += 1
  238. dynamic $brodilr
  239. end
  240. end
  241. end
  242. act 'Refuse':
  243. cla
  244. bfA -= 1
  245. dynamic $brodilr
  246. end
  247. elseif vstrand = 2:
  248. '<<$boyA>> provides for a walk.'
  249. act 'Walk':
  250. cla
  251. minut += 60
  252. fat += 1
  253. bfA += 1
  254. '<<$boyA>> to take you by the arm and you were walking down the street talking.'
  255. act 'To invite':
  256. cla
  257. if dayA < 3:bfA -= 1
  258. gt 'svidan', 'kvartA'
  259. end
  260. act 'Say goodbye and go home':
  261. cla
  262. bfA += 1
  263. dynamic $brodilr
  264. end
  265. end
  266. act 'Refuse':
  267. cla
  268. bfA -= 1
  269. dynamic $brodilr
  270. end
  271. end
  272. elseif daya >= 10 and boyonceA = 0:
  273. '<<$boyA>> says he''s a grown man and he is not satisfied platonic relationship.'
  274. act 'Leave':
  275. cla
  276. bfA = 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. <<$boyA>> 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 dayA > 12 and skinvan < 40:bfA -= 1
  290. if dayA > 12:gs 'boylove', 'haer'
  291. if dayA > 24:gs 'boylove', 'figure'
  292. if dayA > 48:gs 'boylove', 'tits'
  293. if dayA > 22 and glaraz < 1:bfA -= 1
  294. if dayA > 40 and lip < 1:bfA -= 1
  295. if boyonceA > 0:
  296. '<<$boyA>> offers sit in a cafe.'
  297. act 'The cafe':
  298. cla
  299. minut += 60
  300. fat += 1
  301. bfA += 1
  302. 'You came to the cafe <<$boyA>> ordered a full table and you sat talking and having fun. <<$boyA>> hugged you and said 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. bfA -= 1
  309. dynamic $brodilr
  310. end
  311. end
  312. end
  313. if $ARGS[0] = 'reach':
  314. minut += 20
  315. if Venera >= 3:
  316. bfA = 0
  317. '<<$boyA>> you saw signs of venereal disease and dumped you.'
  318. act 'Leave':dynamic $brodilr
  319. exit
  320. end
  321. if sweat > 24:
  322. !!вsweating
  323. bfA -= 1
  324. if harakBoyA = 0:'<<$boyA>> tells you that he appeared urgent business.'
  325. if harakBoyA = 1:'<<$boyA>> wrinkles her nose in disgust and tells you that he appeared urgent business.'
  326. if harakBoyA = 2:'<<$boyA>> tells you that you 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. bfA -= 1
  333. if harakBoyA = 0:'<<$boyA>> tells you that he appeared urgent business.'
  334. if harakBoyA = 1:'<<$boyA>> scornfully looks at you and tells you that they have any urgent matters.'
  335. if harakBoyA = 2:'<<$boyA>> tells you that you are in rags like a scarecrow.'
  336. act 'Leave':dynamic $brodilr
  337. exit
  338. end
  339. if harakBoyA > 0 and izvrat = 0 and spdirtyv > 0:
  340. bfA = 0
  341. '<<$boyA>> you saw traces of semen. He called you slut had severed relations with you.'
  342. act 'Leave':dynamic $brodilr
  343. exit
  344. end
  345. if dayA > 5 and skinvan < 60:bfA -= 1
  346. if dayA > 10:gs 'boylove', 'haer'
  347. if dayA > 20:gs 'boylove', 'figure'
  348. if dayA > 30:gs 'boylove', 'tits'
  349. if dayA > 10 and glaraz < 2:bfA -= 1
  350. if dayA > 6 and lip < 2:bfA -= 1
  351. if dayA > 8 and resnic < 1:bfA -= 1
  352. if daya < 10 and boyonceA = 0:
  353. !!candy buketny period
  354. vstrand = rand(0, 2)
  355. if vstrand = 0:
  356. '<<$boyA>> offers to go to the cafe.'
  357. act 'Go to the cafe':
  358. cla
  359. minut += 60
  360. fat += 1
  361. bfA += 1
  362. 'You went to a cafe with a guy. <<$boyA>> telling stories and jokes hunted.'
  363. act 'To invite':
  364. cla
  365. if dayA < 3:bfA -= 1
  366. gt 'svidan', 'kvartA'
  367. end
  368. act 'Say goodbye and go home':
  369. cla
  370. bfA += 1
  371. dynamic $brodilr
  372. end
  373. end
  374. act 'Refuse':
  375. cla
  376. bfA -= 1
  377. dynamic $brodilr
  378. end
  379. elseif vstrand = 1:
  380. '<<$boyA>> offers to go to the cinema.'
  381. act 'Go to the cinema':
  382. cla
  383. minut += 60
  384. fat += 1
  385. bfA += 1
  386. 'You went to the cinema for a new movie. <<$boyA>> hug you.'
  387. act 'Hug his hand':
  388. cla
  389. bfA += 1
  390. 'You watch a movie guy hugging hand. Finally the film ends.'
  391. act 'To invite':
  392. cla
  393. if dayA < 3:bfA -= 1
  394. gt 'svidan', 'kvartA'
  395. end
  396. act 'Say goodbye and go home':
  397. cla
  398. bfA += 1
  399. dynamic $brodilr
  400. end
  401. end
  402. end
  403. act 'Refuse':
  404. cla
  405. bfA -= 1
  406. dynamic $brodilr
  407. end
  408. elseif vstrand = 2:
  409. '<<$boyA>> offers to go to the restaurant.'
  410. act 'Go to the restaurant':
  411. cla
  412. minut += 60
  413. fat += 1
  414. bfA += 1
  415. '<<$boyA>> 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 dayA < 3:bfA -= 1
  419. gt 'svidan', 'kvartA'
  420. end
  421. act 'Say goodbye and go home':
  422. cla
  423. bfA += 1
  424. dynamic $brodilr
  425. end
  426. end
  427. act 'Refuse':
  428. cla
  429. bfA -= 1
  430. dynamic $brodilr
  431. end
  432. end
  433. elseif daya >= 10 and boyonceA = 0:
  434. '<<$boyA>> says he''s a grown man and he is not satisfied platonic relationship.'
  435. act 'Leave':
  436. cla
  437. bfA = 0
  438. dynamic $brodilr
  439. end
  440. act 'Agrees to have sex':
  441. cla
  442. *clr
  443. minut += 20
  444. 'You agreed to have sex. <<$boyA>> happy.'
  445. act 'Go to your apartment':gt 'svidan', 'kvartA'
  446. act 'Go to him':gt 'svidan', 'hisA'
  447. end
  448. exit
  449. elseif boyonceA > 0:
  450. '<<$boyA>> offers sit in a cafe.'
  451. act 'The cafe':
  452. cla
  453. minut += 60
  454. fat += 1
  455. bfA += 1
  456. 'You came to the cafe <<$boyA>> ordered a full table and you sat talking and having fun. <<$boyA>> hugged you and said 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. bfA -= 1
  463. dynamic $brodilr
  464. end
  465. end
  466. end
  467. --- svi ---------------------------------