1
0

419_svi 26 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065
  1. # svi
  2. <<<<<<< 419_svi
  3. if $ARGS[0] = 'poor':
  4. set minut += 20
  5. if selfPornvidDVDCarry > 0:
  6. act 'Give him one of your amaeur porn videos':
  7. set selfPornvidDVDCarry -= 1
  8. set bfA += 1
  9. end
  10. end
  11. if Venera >= 3:
  12. set bfA = 0
  13. '<<$boyA>> you saw signs of venereal disease and dumped you.'
  14. act 'Leave': gt $HouseLocation
  15. exit
  16. end
  17. if sweat > 1:
  18. !вспотели
  19. set bfA -= 1
  20. if harakBoyA = 0: '<<$boyA>> tells you that he appeared urgent business.'
  21. if harakBoyA = 1: '<<$boyA>> wrinkles her nose in disgust and tells you that he appeared urgent business.'
  22. if harakBoyA = 2: '<<$boyA>> tells you that you would not hurt to wash.'
  23. if harakBoyA = 3: '<<$boyA>> tells you that it appeared urgent business.'
  24. if harakBoyA = 4: '<<$boyA>> wrinkles her nose in disgust and tells you that she appeared urgent business.'
  25. if harakBoyA = 5: '<<$boyA>> tells you that you would not hurt to wash.'
  26. act 'Leave': gt $HouseLocation
  27. exit
  28. end
  29. if vatnik = 2:
  30. !ватник
  31. set bfA -= 1
  32. if harakBoyA = 0: '<<$boyA>> tells you that he appeared urgent business.'
  33. if harakBoyA = 1: '<<$boyA>> scornfully looks at you and tells you that they have any urgent matters.'
  34. if harakBoyA = 2: '<<$boyA>> tells you that you are in rags like a scarecrow.'
  35. if harakBoyA = 3: '<<$boyA>> tells you that it appeared urgent business.'
  36. if harakBoyA = 4: '<<$boyA>> scornfully looks at you and tells you that she had her urgent business.'
  37. if harakBoyA = 5: '<<$boyA>> tells you that you are in rags like a scarecrow.'
  38. act 'Leave': gt $HouseLocation
  39. exit
  40. end
  41. if harakBoyA > 0 and izvrat = 0 and (cumface > 0 or cumlip > 0):
  42. set bfA = 0
  43. '<<$boyA>> you saw traces of semen. He called you slut had severed relations with you.'
  44. act 'Leave': gt $HouseLocation
  45. exit
  46. end
  47. if daya < 10 and boyonceA = 0:
  48. !конфетно букетный период
  49. set vstrand = RAND(0,2)
  50. if vstrand = 0:
  51. '<<$boyA>> offers a walk in the park.'
  52. act 'Walk in the park':
  53. cla
  54. set minut += 60
  55. set fat += 1
  56. set bfA += 1
  57. 'You walked in the park with a guy. <<$boyA>> telling stories and jokes hunted.'
  58. act 'To invite':
  59. cla
  60. if dayA < 3: set bfA -= 1
  61. gt 'svidan','kvartA'
  62. end
  63. act 'Say goodbye and go home':
  64. cla
  65. set bfA += 1
  66. gt $HouseLocation
  67. end
  68. end
  69. act 'Refuse':
  70. cla
  71. set bfA -= 1
  72. gt $HouseLocation
  73. end
  74. end
  75. if vstrand = 1:
  76. '<<$boyA>> offers to go to the cinema.'
  77. act 'Go to the cinema':
  78. cla
  79. set minut += 60
  80. set fat += 1
  81. set bfA += 1
  82. 'You went to the cinema for a new movie. <<$boyA>> hug you.'
  83. act 'Hug his hand':
  84. cla
  85. 'You watch a movie guy hugging hand. Finally the film ends.'
  86. set bfA += 1
  87. act 'To invite':
  88. cla
  89. if dayA < 3: set bfA -= 1
  90. gt 'svidan','kvartA'
  91. end
  92. act 'Say goodbye and go home':
  93. cla
  94. set bfA += 1
  95. gt $HouseLocation
  96. end
  97. end
  98. end
  99. act 'Refuse':
  100. cla
  101. set bfA -= 1
  102. gt $HouseLocation
  103. end
  104. end
  105. if vstrand = 2:
  106. '<<$boyA>> offers a drink pivasika in porch.'
  107. act 'Drink beer':
  108. cla
  109. set minut += 60
  110. set fat += 1
  111. set bfA += 1
  112. '<<$boyA>> bought pivasika and crackers and you went with him to the porch, where drinking and fun chatting.'
  113. act 'To invite':
  114. cla
  115. if dayA < 3: set bfA -= 1
  116. gt 'svidan','kvartA'
  117. end
  118. act 'Say goodbye and go home':
  119. cla
  120. set bfA += 1
  121. gt $HouseLocation
  122. end
  123. end
  124. act 'Refuse':
  125. cla
  126. set bfA -= 1
  127. gt $HouseLocation
  128. end
  129. end
  130. end
  131. if daya >= 10 and boyonceA = 0:
  132. '<<$boyA>> says he´s a grown man and he is not satisfied platonic relationship.'
  133. act 'Leave':
  134. cla
  135. set bfA = 0
  136. gt $HouseLocation
  137. end
  138. act 'Agrees to have sex':
  139. cla
  140. *clr
  141. set minut += 20
  142. 'You agreed to have sex. <<$boyA>> happy.'
  143. act 'Go to your apartment': gt 'svidan','kvartA'
  144. act 'Go into the bushes': gt 'svidan','kustA'
  145. end
  146. exit
  147. end
  148. if dayA > 15: gs 'boylove','haer'
  149. if dayA > 30: gs 'boylove','figure'
  150. if dayA > 60: gs 'boylove','tits'
  151. if boyonceA > 0:
  152. '<<$boyA>> offers to hang out in the stairwell with pivasikom.'
  153. act 'Potusit':
  154. cla
  155. set minut += 60
  156. set fat += 1
  157. set bfA += 1
  158. 'You drank beer in the stairwell with her boyfriend. <<$boyA>> hugged you and said that he wants you.'
  159. act 'Go to your apartment': gt 'svidan','kvartA'
  160. act 'Go into the bushes': gt 'svidan','kustA'
  161. end
  162. act 'Refuse':
  163. cla
  164. set bfA -= 1
  165. gt $HouseLocation
  166. end
  167. end
  168. =======
  169. if $ARGS[0]='poor':
  170. set minut = minut + 20
  171. if Venera >= 3:
  172. set bfA = 0
  173. '<<$boyA>> you saw signs of venereal disease and left you.'
  174. act 'Get_Away':gt'street'
  175. exit
  176. end
  177. if sweat > 1:
  178. !sweating
  179. set bfA = bfA - 1
  180. if harakBoyA = 0:'<<$boyA>> tells you, that he appeared urgent business.'
  181. if harakBoyA = 1:'<<$boyA>> wrinkles her nose in disgust and tells you, that he appeared urgent business.'
  182. if harakBoyA = 2:'<<$boyA>> tells you, you would do well to wash.'
  183. if harakBoyA = 3:'<<$boyA>> tells you, that it appeared urgent business.'
  184. if harakBoyA = 4:'<<$boyA>> wrinkles her nose in disgust and tells you, that it appeared urgent business.'
  185. if harakBoyA = 5:'<<$boyA>> tells you, you would do well to wash.'
  186. act 'Get_Away':gt'street'
  187. exit
  188. end
  189. if vatnik = 2:
  190. !quilted_jacket
  191. set bfA = bfA - 1
  192. if harakBoyA = 0:'<<$boyA>> tells you, that he appeared urgent business.'
  193. if harakBoyA = 1:'<<$boyA>> scornfully looks at you and tells you, that he appeared urgent business.'
  194. if harakBoyA = 2:'<<$boyA>> tells you, that in this rags you are like a scarecrow.'
  195. if harakBoyA = 3:'<<$boyA>> tells you, that it appeared urgent business.'
  196. if harakBoyA = 4:'<<$boyA>> scornfully looks at you and tells you, that it appeared urgent business.'
  197. if harakBoyA = 5:'<<$boyA>> tells you, that in this rags you are like a scarecrow.'
  198. act 'Get_Away':gt'street'
  199. exit
  200. end
  201. if harakBoyA>0 and izvrat=0 and (cumface > 0 or cumlip > 0):
  202. set bfA = 0
  203. '<<$boyA>> I saw you on the traces of semen. He called you slut have cut ties with you.'
  204. act 'Get_Away':gt'street'
  205. exit
  206. end
  207. if daya < 10 and boyonceA = 0:
  208. !candy buketny period
  209. set vstrand = RAND (0,2)
  210. if vstrand = 0:
  211. '<<$boyA>> offers a walk in the park.'
  212. act 'Walk in the park':
  213. cla
  214. set minut = minut + 60
  215. set fat = fat + 1
  216. set bfA = bfA + 1
  217. 'You walk in the park with a guy. <<$boyA>> telling stories and jokes hunted.'
  218. act 'To invite':
  219. cla
  220. if dayA < 3:set bfA = bfA - 1
  221. gt'svidan','kvartA'
  222. end
  223. act 'Say goodbye and go home':
  224. cla
  225. set bfA = bfA + 1
  226. gt'street'
  227. end
  228. end
  229. act 'Opt_Out':
  230. cla
  231. set bfA = bfA - 1
  232. gt'street'
  233. end
  234. end
  235. if vstrand = 1:
  236. '<<$boyA>> offers to go to the cinema.'
  237. act 'Go to the cinema':
  238. cla
  239. set minut = minut + 60
  240. set fat = fat + 1
  241. set bfA = bfA + 1
  242. 'You went to the cinema to a new film. <<$boyA>> hug you.'
  243. act 'Hug his hand':
  244. cla
  245. 'You watch a movie hugging Man `s hand. Finally.'
  246. set bfA = bfA + 1
  247. act 'To invite':
  248. cla
  249. if dayA < 3:set bfA = bfA - 1
  250. gt'svidan','kvartA'
  251. end
  252. act 'Say goodbye and go home':
  253. cla
  254. set bfA = bfA + 1
  255. gt'street'
  256. end
  257. end
  258. end
  259. act 'Opt_Out':
  260. cla
  261. set bfA = bfA - 1
  262. gt'street'
  263. end
  264. end
  265. if vstrand = 2:
  266. '<<$boyA>> offers pivasika drink in the stairwell.'
  267. act 'drink beer':
  268. cla
  269. set minut = minut + 60
  270. set fat = fat + 1
  271. set bfA = bfA + 1
  272. '<<$boyA>> pivasika bought and crackers and you went with him into the entrance, where drinking and fun chatting.'
  273. act 'To invite':
  274. cla
  275. if dayA < 3:set bfA = bfA - 1
  276. gt'svidan','kvartA'
  277. end
  278. act 'Say goodbye and go home':
  279. cla
  280. set bfA = bfA + 1
  281. gt'street'
  282. end
  283. end
  284. act 'Opt_Out':
  285. cla
  286. set bfA = bfA - 1
  287. gt'street'
  288. end
  289. end
  290. end
  291. if daya >= 10 and boyonceA = 0:
  292. '<<$boyA>> speaks, that he was a grown man .'
  293. act 'leave':
  294. cla
  295. set bfA = 0
  296. gt'street'
  297. end
  298. act 'Agreed to have sex':
  299. cla
  300. *clr
  301. set minut = minut + 20
  302. 'You agreed to have sex. <<$boyA>> delighted.'
  303. act 'Go to your apartment':gt'svidan','kvartA'
  304. act 'Go into the bushes':gt'svidan','kustA'
  305. end
  306. exit
  307. end
  308. if dayA > 15:gs'boylove','haer'
  309. if dayA > 30:gs'boylove','figure'
  310. if dayA > 60:gs'boylove','tits'
  311. if boyonceA > 0:
  312. '<<$boyA>> offers to hang out in the stairwell with pivasikom.'
  313. act 'hang_out':
  314. cla
  315. set minut = minut + 60
  316. set fat = fat + 1
  317. set bfA = bfA + 1
  318. 'You drank beer in the hallway with her boyfriend. <<$boyA>> hugged you and said, he wants you.'
  319. act 'Go to your apartment':gt'svidan','kvartA'
  320. act 'Go into the bushes':gt'svidan','kustA'
  321. end
  322. act 'Opt_Out':
  323. cla
  324. set bfA = bfA - 1
  325. gt'street'
  326. end
  327. end
  328. >>>>>>> 419_svi
  329. end
  330. <<<<<<< 419_svi
  331. if $ARGS[0] = 'norm':
  332. set minut += 20
  333. if Venera >= 3:
  334. set bfA = 0
  335. '<<$boyA>> you saw signs of venereal disease and dumped you.'
  336. act 'Leave': gt $HouseLocation
  337. exit
  338. end
  339. if sweat > 1:
  340. !вспотели
  341. set bfA -= 1
  342. if harakBoyA = 0: '<<$boyA>> tells you that he appeared urgent business.'
  343. if harakBoyA = 1: '<<$boyA>> wrinkles her nose in disgust and tells you that he appeared urgent business.'
  344. if harakBoyA = 2: '<<$boyA>> tells you that you would not hurt to wash.'
  345. act 'Leave': gt $HouseLocation
  346. exit
  347. end
  348. if vatnik = 2:
  349. !ватник
  350. set bfA -= 1
  351. if harakBoyA = 0: '<<$boyA>> tells you that he appeared urgent business.'
  352. if harakBoyA = 1: '<<$boyA>> scornfully looks at you and tells you that they have any urgent matters.'
  353. if harakBoyA = 2: '<<$boyA>> tells you that you are in rags like a scarecrow.'
  354. act 'Leave': gt $HouseLocation
  355. exit
  356. end
  357. if harakBoyA > 0 and izvrat = 0 and (cumface > 0 or cumlip > 0):
  358. set bfA = 0
  359. '<<$boyA>> you saw traces of semen. He called you slut had severed relations with you.'
  360. act 'Leave': gt $HouseLocation
  361. exit
  362. end
  363. if daya < 10 and boyonceA = 0:
  364. !конфетно букетный период
  365. set vstrand = RAND(0,2)
  366. if vstrand = 0:
  367. '<<$boyA>> offers to go to the cafe.'
  368. act 'Go to the cafe':
  369. cla
  370. set minut += 60
  371. set fat += 1
  372. set bfA += 1
  373. 'You went to a cafe with a guy. <<$boyA>> telling stories and jokes hunted.'
  374. act 'To invite':
  375. cla
  376. if dayA < 3: set bfA -= 1
  377. gt 'svidan','kvartA'
  378. end
  379. act 'Say goodbye and go home':
  380. cla
  381. set bfA += 1
  382. gt $HouseLocation
  383. end
  384. end
  385. act 'Refuse':
  386. cla
  387. set bfA -= 1
  388. gt $HouseLocation
  389. end
  390. end
  391. if vstrand = 1:
  392. '<<$boyA>> offers to go to the cinema.'
  393. act 'Go to the cinema':
  394. cla
  395. set minut += 60
  396. set fat += 1
  397. set bfA += 1
  398. 'You went to the cinema for a new movie. <<$boyA>> hug you.'
  399. act 'Hug his hand':
  400. cla
  401. 'You watch a movie guy hugging hand. Finally the film ends.'
  402. set bfA += 1
  403. act 'To invite':
  404. cla
  405. if dayA < 3: set bfA -= 1
  406. gt 'svidan','kvartA'
  407. end
  408. act 'Say goodbye and go home':
  409. cla
  410. set bfA += 1
  411. gt $HouseLocation
  412. end
  413. end
  414. end
  415. act 'Refuse':
  416. cla
  417. set bfA -= 1
  418. gt $HouseLocation
  419. end
  420. end
  421. if vstrand = 2:
  422. '<<$boyA>> provides for a walk.'
  423. act 'Walk':
  424. cla
  425. set minut += 60
  426. set fat += 1
  427. set bfA += 1
  428. '<<$boyA>> to take you by the arm and you were walking down the street talking.'
  429. act 'To invite':
  430. cla
  431. if dayA < 3: set bfA -= 1
  432. gt 'svidan','kvartA'
  433. end
  434. act 'Say goodbye and go home':
  435. cla
  436. set bfA += 1
  437. gt $HouseLocation
  438. end
  439. end
  440. act 'Refuse':
  441. cla
  442. set bfA -= 1
  443. gt $HouseLocation
  444. end
  445. end
  446. end
  447. if daya >= 10 and boyonceA = 0:
  448. '<<$boyA>> says he´s a grown man and he is not satisfied platonic relationship.'
  449. act 'Leave':
  450. cla
  451. set bfA = 0
  452. gt $HouseLocation
  453. end
  454. act 'Agrees to have sex':
  455. cla
  456. *clr
  457. set minut += 20
  458. 'You agreed to have sex. <<$boyA>> happy.'
  459. act 'Go to your apartment': gt 'svidan','kvartA'
  460. act 'Go in his car': gt 'svidan','carA'
  461. end
  462. exit
  463. end
  464. if dayA > 12 and skin < 2: set bfA -= 1
  465. if dayA > 12: gs 'boylove','haer'
  466. if dayA > 24: gs 'boylove','figure'
  467. if dayA > 48: gs 'boylove','tits'
  468. if dayA > 22 and glaraz < 1: set bfA -= 1
  469. if dayA > 40 and lip < 1: set bfA -= 1
  470. if boyonceA > 0:
  471. '<<$boyA>> offers sit in a cafe.'
  472. act 'The cafe':
  473. cla
  474. set minut += 60
  475. set fat += 1
  476. set bfA += 1
  477. '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.'
  478. act 'Go to your apartment': gt 'svidan','kvartA'
  479. act 'Go in his car': gt 'svidan','carA'
  480. end
  481. act 'Refuse':
  482. cla
  483. set bfA -= 1
  484. gt $HouseLocation
  485. end
  486. end
  487. =======
  488. if $ARGS[0]='norm':
  489. set minut = minut + 20
  490. if Venera >= 3:
  491. set bfA = 0
  492. '<<$boyA>> you saw signs of venereal disease and left you.'
  493. act 'Get_Away':gt'street'
  494. exit
  495. end
  496. if sweat > 1:
  497. !sweating
  498. set bfA = bfA - 1
  499. if harakBoyA = 0:'<<$boyA>> tells you, that he appeared urgent business.'
  500. if harakBoyA = 1:'<<$boyA>> wrinkles her nose in disgust and tells you, that he appeared urgent business.'
  501. if harakBoyA = 2:'<<$boyA>> tells you, you would do well to wash.'
  502. act 'Get_Away':gt'street'
  503. exit
  504. end
  505. if vatnik = 2:
  506. !quilted_jacket
  507. set bfA = bfA - 1
  508. if harakBoyA = 0:'<<$boyA>> tells you, that he appeared urgent business.'
  509. if harakBoyA = 1:'<<$boyA>> scornfully looks at you and tells you, that he appeared urgent business.'
  510. if harakBoyA = 2:'<<$boyA>> tells you, that in this rags you are like a scarecrow.'
  511. act 'Get_Away':gt'street'
  512. exit
  513. end
  514. if harakBoyA >0 and izvrat=0 and (cumface > 0 or cumlip > 0):
  515. set bfA = 0
  516. '<<$boyA>> I saw you on the traces of semen. He called you slut have cut ties with you.'
  517. act 'Get_Away':gt'street'
  518. exit
  519. end
  520. if daya < 10 and boyonceA = 0:
  521. !candy buketny period
  522. set vstrand = RAND (0,2)
  523. if vstrand = 0:
  524. '<<$boyA>> offers go to the cafe.'
  525. act 'Go to the cafe':
  526. cla
  527. set minut = minut + 60
  528. set fat = fat + 1
  529. set bfA = bfA + 1
  530. 'You went to a cafe with a guy. <<$boyA>> telling stories and jokes hunted.'
  531. act 'To invite':
  532. cla
  533. if dayA < 3:set bfA = bfA - 1
  534. gt'svidan','kvartA'
  535. end
  536. act 'Say goodbye and go home':
  537. cla
  538. set bfA = bfA + 1
  539. gt'street'
  540. end
  541. end
  542. act 'Opt_Out':
  543. cla
  544. set bfA = bfA - 1
  545. gt'street'
  546. end
  547. end
  548. if vstrand = 1:
  549. '<<$boyA>> offers to go to the cinema.'
  550. act 'Go to the cinema':
  551. cla
  552. set minut = minut + 60
  553. set fat = fat + 1
  554. set bfA = bfA + 1
  555. 'You went to the cinema to a new film. <<$boyA>> hug you.'
  556. act 'Hug his hand':
  557. cla
  558. 'You watch a movie hugging Man `s hand. Finally.'
  559. set bfA = bfA + 1
  560. act 'To invite':
  561. cla
  562. if dayA < 3:set bfA = bfA - 1
  563. gt'svidan','kvartA'
  564. end
  565. act 'Say goodbye and go home':
  566. cla
  567. set bfA = bfA + 1
  568. gt'street'
  569. end
  570. end
  571. end
  572. act 'Opt_Out':
  573. cla
  574. set bfA = bfA - 1
  575. gt'street'
  576. end
  577. end
  578. if vstrand = 2:
  579. '<<$boyA>> offers a walk.'
  580. act 'walk':
  581. cla
  582. set minut = minut + 60
  583. set fat = fat + 1
  584. set bfA = bfA + 1
  585. '<<$boyA>> took you by the arm and you`re walking down the street talking.'
  586. act 'To invite':
  587. cla
  588. if dayA < 3:set bfA = bfA - 1
  589. gt'svidan','kvartA'
  590. end
  591. act 'Say goodbye and go home':
  592. cla
  593. set bfA = bfA + 1
  594. gt'street'
  595. end
  596. end
  597. act 'Opt_Out':
  598. cla
  599. set bfA = bfA - 1
  600. gt'street'
  601. end
  602. end
  603. end
  604. if daya >= 10 and boyonceA = 0:
  605. '<<$boyA>> speaks, that he was a grown man .'
  606. act 'leave':
  607. cla
  608. set bfA = 0
  609. gt'street'
  610. end
  611. act 'Agreed to have sex':
  612. cla
  613. *clr
  614. set minut = minut + 20
  615. 'You agreed to have sex. <<$boyA>> delighted.'
  616. act 'Go to your apartment':gt'svidan','kvartA'
  617. act 'To go to his car':gt'svidan','carA'
  618. end
  619. exit
  620. end
  621. if dayA > 12 and skin < 2:set bfA = bfA - 1
  622. if dayA > 12:gs'boylove','haer'
  623. if dayA > 24:gs'boylove','figure'
  624. if dayA > 48:gs'boylove','tits'
  625. if dayA > 22 and glaraz < 1:set bfA = bfA - 1
  626. if dayA > 40 and lip < 1:set bfA = bfA - 1
  627. if boyonceA > 0:
  628. '<<$boyA>> offers sit in a cafe.'
  629. act 'The CafГ©':
  630. cla
  631. set minut = minut + 60
  632. set fat = fat + 1
  633. set bfA = bfA + 1
  634. 'You`ve come to the cafe, <<$boyA>> ordered a full table and you were sitting talking and having fun. <<$boyA>> hugged you and said, he wants you.'
  635. act 'Go to your apartment':gt'svidan','kvartA'
  636. act 'To go to his car':gt'svidan','carA'
  637. end
  638. act 'Opt_Out':
  639. cla
  640. set bfA = bfA - 1
  641. gt'street'
  642. end
  643. end
  644. >>>>>>> 419_svi
  645. end
  646. <<<<<<< 419_svi
  647. if $ARGS[0] = 'reach':
  648. set minut += 20
  649. if Venera >= 3:
  650. set bfA = 0
  651. '<<$boyA>> you saw signs of venereal disease and dumped you.'
  652. act 'Leave': gt $HouseLocation
  653. exit
  654. end
  655. if sweat > 1:
  656. !вспотели
  657. set bfA -= 1
  658. if harakBoyA = 0: '<<$boyA>> tells you that he appeared urgent business.'
  659. if harakBoyA = 1: '<<$boyA>> wrinkles her nose in disgust and tells you that he appeared urgent business.'
  660. if harakBoyA = 2: '<<$boyA>> tells you that you would not hurt to wash.'
  661. act 'Leave': gt $HouseLocation
  662. exit
  663. end
  664. if vatnik = 2:
  665. !ватник
  666. set bfA -= 1
  667. if harakBoyA = 0: '<<$boyA>> tells you that he appeared urgent business.'
  668. if harakBoyA = 1: '<<$boyA>> scornfully looks at you and tells you that they have any urgent matters.'
  669. if harakBoyA = 2: '<<$boyA>> tells you that you are in rags like a scarecrow.'
  670. act 'Leave': gt $HouseLocation
  671. exit
  672. end
  673. if harakBoyA > 0 and izvrat = 0 and (cumface > 0 or cumlip > 0):
  674. set bfA = 0
  675. '<<$boyA>> you saw traces of semen. He called you slut had severed relations with you.'
  676. act 'Leave': gt $HouseLocation
  677. exit
  678. end
  679. if dayA > 5 and skin < 3: set bfA -= 1
  680. if dayA > 10: gs 'boylove','haer'
  681. if dayA > 20: gs 'boylove','figure'
  682. if dayA > 30: gs 'boylove','tits'
  683. if dayA > 10 and glaraz < 2: set bfA -= 1
  684. if dayA > 6 and lip < 2: set bfA -= 1
  685. if dayA > 8 and resnic < 1: set bfA -= 1
  686. if daya < 10 and boyonceA = 0:
  687. !конфетно букетный период
  688. set vstrand = RAND(0,2)
  689. if vstrand = 0:
  690. '<<$boyA>> offers to go to the cafe.'
  691. act 'Go to the cafe':
  692. cla
  693. set minut += 60
  694. set fat += 1
  695. set bfA += 1
  696. 'You went to a cafe with a guy. <<$boyA>> telling stories and jokes hunted.'
  697. act 'To invite':
  698. cla
  699. if dayA < 3: set bfA -= 1
  700. gt 'svidan','kvartA'
  701. end
  702. act 'Say goodbye and go home':
  703. cla
  704. set bfA += 1
  705. gt $HouseLocation
  706. end
  707. end
  708. act 'Refuse':
  709. cla
  710. set bfA -= 1
  711. gt $HouseLocation
  712. end
  713. end
  714. if vstrand = 1:
  715. '<<$boyA>> offers to go to the cinema.'
  716. act 'Go to the cinema':
  717. cla
  718. set minut += 60
  719. set fat += 1
  720. set bfA += 1
  721. 'You went to the cinema for a new movie. <<$boyA>> hug you.'
  722. act 'Hug his hand':
  723. cla
  724. 'You watch a movie guy hugging hand. Finally the film ends.'
  725. set bfA += 1
  726. act 'To invite':
  727. cla
  728. if dayA < 3: set bfA -= 1
  729. gt 'svidan','kvartA'
  730. end
  731. act 'Say goodbye and go home':
  732. cla
  733. set bfA += 1
  734. gt $HouseLocation
  735. end
  736. end
  737. end
  738. act 'Refuse':
  739. cla
  740. set bfA -= 1
  741. gt $HouseLocation
  742. end
  743. end
  744. if vstrand = 2:
  745. '<<$boyA>> offers to go to the restaurant.'
  746. act 'Go to the restaurant':
  747. cla
  748. set minut += 60
  749. set fat += 1
  750. set bfA += 1
  751. '<<$boyA>> has led you to the restaurant. There waiter quickly covered table and you sat enjoying the food, wine and socializing'
  752. act 'To invite':
  753. cla
  754. if dayA < 3: set bfA -= 1
  755. gt 'svidan','kvartA'
  756. end
  757. act 'Say goodbye and go home':
  758. cla
  759. set bfA += 1
  760. gt $HouseLocation
  761. end
  762. end
  763. act 'Refuse':
  764. cla
  765. set bfA -= 1
  766. gt $HouseLocation
  767. end
  768. end
  769. end
  770. if daya >= 10 and boyonceA = 0:
  771. '<<$boyA>> says he´s a grown man and he is not satisfied platonic relationship.'
  772. act 'Leave':
  773. cla
  774. set bfA = 0
  775. gt $HouseLocation
  776. end
  777. act 'Agrees to have sex':
  778. cla
  779. *clr
  780. set minut += 20
  781. 'You agreed to have sex. <<$boyA>> happy.'
  782. act 'Go to your apartment': gt 'svidan','kvartA'
  783. act 'Go to him': gt 'svidan','hisA'
  784. end
  785. exit
  786. end
  787. if boyonceA > 0:
  788. '<<$boyA>> offers sit in a cafe.'
  789. act 'The cafe':
  790. cla
  791. set minut += 60
  792. set fat += 1
  793. set bfA += 1
  794. '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.'
  795. act 'Go to your apartment': gt 'svidan','kvartA'
  796. act 'Go to him': gt 'svidan','hisA'
  797. end
  798. act 'Refuse':
  799. cla
  800. set bfA -= 1
  801. gt $HouseLocation
  802. end
  803. end
  804. =======
  805. if $ARGS[0]='reach':
  806. set minut = minut + 20
  807. if Venera >= 3:
  808. set bfA = 0
  809. '<<$boyA>> you saw signs of venereal disease and left you.'
  810. act 'Get_Away':gt'street'
  811. exit
  812. end
  813. if sweat > 1:
  814. !sweating
  815. set bfA = bfA - 1
  816. if harakBoyA = 0:'<<$boyA>> tells you, that he appeared urgent business.'
  817. if harakBoyA = 1:'<<$boyA>> wrinkles her nose in disgust and tells you, that he appeared urgent business.'
  818. if harakBoyA = 2:'<<$boyA>> tells you, you would do well to wash.'
  819. act 'Get_Away':gt'street'
  820. exit
  821. end
  822. if vatnik = 2:
  823. !quilted_jacket
  824. set bfA = bfA - 1
  825. if harakBoyA = 0:'<<$boyA>> tells you, that he appeared urgent business.'
  826. if harakBoyA = 1:'<<$boyA>> scornfully looks at you and tells you, that he appeared urgent business.'
  827. if harakBoyA = 2:'<<$boyA>> tells you, that in this rags you are like a scarecrow.'
  828. act 'Get_Away':gt'street'
  829. exit
  830. end
  831. if harakBoyA>0 and izvrat=0 and (cumface > 0 or cumlip > 0):
  832. set bfA = 0
  833. '<<$boyA>> I saw you on the traces of semen. He called you slut have cut ties with you.'
  834. act 'Get_Away':gt'street'
  835. exit
  836. end
  837. if dayA > 5 and skin < 3:set bfA = bfA - 1
  838. if dayA > 10:gs'boylove','haer'
  839. if dayA > 20:gs'boylove','figure'
  840. if dayA > 30:gs'boylove','tits'
  841. if dayA > 10 and glaraz < 2:set bfA = bfA - 1
  842. if dayA > 6 and lip < 2:set bfA = bfA - 1
  843. if dayA > 8 and resnic < 1:set bfA = bfA - 1
  844. if daya < 10 and boyonceA = 0:
  845. !candy buketny period
  846. set vstrand = RAND (0,2)
  847. if vstrand = 0:
  848. '<<$boyA>> offers go to the cafe.'
  849. act 'Go to the cafe':
  850. cla
  851. set minut = minut + 60
  852. set fat = fat + 1
  853. set bfA = bfA + 1
  854. 'You went to a cafe with a guy. <<$boyA>> telling stories and jokes hunted.'
  855. act 'To invite':
  856. cla
  857. if dayA < 3:set bfA = bfA - 1
  858. gt'svidan','kvartA'
  859. end
  860. act 'Say goodbye and go home':
  861. cla
  862. set bfA = bfA + 1
  863. gt'street'
  864. end
  865. end
  866. act 'Opt_Out':
  867. cla
  868. set bfA = bfA - 1
  869. gt'street'
  870. end
  871. end
  872. if vstrand = 1:
  873. '<<$boyA>> offers to go to the cinema.'
  874. act 'Go to the cinema':
  875. cla
  876. set minut = minut + 60
  877. set fat = fat + 1
  878. set bfA = bfA + 1
  879. 'You went to the cinema to a new film. <<$boyA>> hug you.'
  880. act 'Hug his hand':
  881. cla
  882. 'You watch a movie hugging Man `s hand. Finally.'
  883. set bfA = bfA + 1
  884. act 'To invite':
  885. cla
  886. if dayA < 3:set bfA = bfA - 1
  887. gt'svidan','kvartA'
  888. end
  889. act 'Say goodbye and go home':
  890. cla
  891. set bfA = bfA + 1
  892. gt'street'
  893. end
  894. end
  895. end
  896. act 'Opt_Out':
  897. cla
  898. set bfA = bfA - 1
  899. gt'street'
  900. end
  901. end
  902. if vstrand = 2:
  903. '<<$boyA>> offers go to a restaurant.'
  904. act 'Go to a restaurant':
  905. cla
  906. set minut = minut + 60
  907. set fat = fat + 1
  908. set bfA = bfA + 1
  909. '<<$boyA>> brought you to the restaurant. There waiter quickly covered the table and you were sitting enjoying a meal, wine and socializing'
  910. act 'To invite':
  911. cla
  912. if dayA < 3:set bfA = bfA - 1
  913. gt'svidan','kvartA'
  914. end
  915. act 'Say goodbye and go home':
  916. cla
  917. set bfA = bfA + 1
  918. gt'street'
  919. end
  920. end
  921. act 'Opt_Out':
  922. cla
  923. set bfA = bfA - 1
  924. gt'street'
  925. end
  926. end
  927. end
  928. if daya >= 10 and boyonceA = 0:
  929. '<<$boyA>> speaks, that he was a grown man .'
  930. act 'leave':
  931. cla
  932. set bfA = 0
  933. gt'street'
  934. end
  935. act 'Agreed to have sex':
  936. cla
  937. *clr
  938. set minut = minut + 20
  939. 'You agreed to have sex. <<$boyA>> delighted.'
  940. act 'Go to your apartment':gt'svidan','kvartA'
  941. act 'Go to him':gt'svidan','hisA'
  942. end
  943. exit
  944. end
  945. if boyonceA > 0:
  946. '<<$boyA>> offers sit in a cafe.'
  947. act 'The CafГ©':
  948. cla
  949. set minut = minut + 60
  950. set fat = fat + 1
  951. set bfA = bfA + 1
  952. 'You`ve come to the cafe, <<$boyA>> ordered a full table and you were sitting talking and having fun. <<$boyA>> hugged you and said, he wants you.'
  953. act 'Go to your apartment':gt'svidan','kvartA'
  954. act 'Go to him':gt'svidan','hisA'
  955. end
  956. act 'Opt_Out':
  957. cla
  958. set bfA = bfA - 1
  959. gt'street'
  960. end
  961. end
  962. >>>>>>> 419_svi
  963. end
  964. --- svi ---------------------------------