1
0

Komp 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493
  1. # Komp
  2. if $ARGS[0] = 'start':
  3. cla
  4. clr
  5. elektro += 5
  6. gs 'stat'
  7. '<center><img src="images/pics/komp.jpg"></center>'
  8. 'With the computer happily welcomes you start window.'
  9. act 'Play Patience (0:15)':gt 'Komp', 'pasians'
  10. if GameCD > 0:act 'Play Disopl':gt 'KGDstart'
  11. if GameCD2 > 0:act 'Play SunDead':gt 'KGZstart'
  12. if GameCD3 > 0:act 'Play Albido':gt 'FSstart'
  13. !!act 'SunReview of the Dead':gt 'KGZstart'
  14. if internet > 0:
  15. internet = internetM / 60
  16. 'You''ve got <<internet>> hours of Internet'
  17. act 'Browser':gt 'Komp', 'brows'
  18. end
  19. if karta >= 10:
  20. 'You can pay online through your bank account. 1 hour internet costs 10 rubles. On account of <<karta>>rubles.'
  21. act 'Pay online bank account':
  22. cla
  23. intinp = input ("How much money to put on the internet? (h = 10 rubles)")
  24. if intinp <= 0 or intinp * 10 > karta:
  25. 'Invalid amount.'
  26. elseif intinp * 10 <= karta:
  27. inttime = intinp * 10
  28. karta -= inttime
  29. internetM += intinp * 60
  30. internet = internetM / 60
  31. 'You paid <<inttime>> hours of Internet, you now have <<internet>> hours of the Internet. Your account was removed <<intinp>> rubles.'
  32. end
  33. act 'Get out of the payment system':gt 'Komp', 'start'
  34. end
  35. end
  36. act 'Shut down the computer':
  37. cla
  38. gt 'Komp', 'fin'
  39. end
  40. end
  41. if $ARGS[0] = 'brows':
  42. cla
  43. clr
  44. *clr
  45. gs 'stat'
  46. '<center><img src="images/pics/komp.jpg"></center>'
  47. 'You entered into a search engine.'
  48. act 'Apartment repair site (0:15)':gt 'Komp', 'remont'
  49. if housr = 1 and husband = 0:act 'Rent your apartment':gt 'Komp', 'sale'
  50. act 'Porno (0:15)':gt 'Komp', 'porno'
  51. act 'Singles (0:15)':gt 'Komp', 'znak'
  52. if hour < 20 and hour > 7:act 'Jobs.su':gt 'Komp', 'rabota'
  53. act 'Cable TV services (0:15)':gt 'Komp', 'kabtv'
  54. act 'Online game':gt 'KGstart'
  55. if shantfoto > 0:act 'Search photos heroine in "In the ass."':gt 'Komp', 'foto'
  56. act 'Exit the browser':gt 'Komp', 'start'
  57. end
  58. if $ARGS[0] = 'sale':
  59. cla
  60. clr
  61. *clr
  62. minut += 2
  63. gs 'stat'
  64. '<center><img src="images/pics/komp.jpg"></center>'
  65. 'You are logged in to the site for free ads.'
  66. if obkvsdam = 0 and housrA = 1:
  67. act 'Rent out your apartment':obkvsdam = 1 & gt 'Komp', 'sale'
  68. elseif obkvsdam > 0:
  69. act 'Check responses to your ad':
  70. cla
  71. if obkvsdam = 1:
  72. 'No one has responded to your apartment ad'
  73. elseif obkvsdam > 1:
  74. if obkvsdam = 2:predsumm = 7000
  75. if obkvsdam = 2:predsumm = 8000
  76. if obkvsdam = 2:predsumm = 9000
  77. if obkvsdam = 2:predsumm = 10000
  78. 'Want to stay in your apartment for a month (<<predsumm>> rubles).'
  79. act 'Rent':
  80. sdaday = day
  81. sdamonth = month + 1
  82. housr = 0
  83. money += predsumm
  84. gt 'Komp', 'start'
  85. end
  86. end
  87. act 'Leave':gt 'Komp', 'start'
  88. end
  89. end
  90. act 'Leave':gt 'Komp', 'start'
  91. end
  92. if $ARGS[0] = 'remont':
  93. cla
  94. clr
  95. *clr
  96. minut += 15
  97. internetM -= 60
  98. elektro += 3
  99. gs 'stat'
  100. '<center><img src="images/pics/komp.jpg"></center>'
  101. 'You are logged in apartment repairs.'
  102. if housr = 1:
  103. if rembedr = 0:
  104. act 'Refurbished bedrooms (50,000 rubles)':
  105. if money >= 50000:
  106. cla
  107. rembedr = 1
  108. money -= 50000
  109. 'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
  110. else
  111. cla
  112. 'Unfortunately, you will not have enough money.'
  113. end
  114. act 'Leave':gt 'Komp', 'remont'
  115. end
  116. end
  117. if remsitr = 0:
  118. act 'Renovate hall (50,000 rubles)':
  119. if money >= 50000:
  120. cla
  121. remsitr = 1
  122. money -= 50000
  123. 'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
  124. else
  125. cla
  126. 'Unfortunately, you will not have enough money.'
  127. end
  128. act 'Leave':gt 'Komp', 'remont'
  129. end
  130. end
  131. if remkorr = 0:
  132. act 'Repair corridor (50,000 rubles)':
  133. if money >= 50000:
  134. cla
  135. remkorr = 1
  136. money -= 50000
  137. 'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
  138. else
  139. cla
  140. 'Unfortunately, you will not have enough money.'
  141. end
  142. act 'Leave':gt 'Komp', 'remont'
  143. end
  144. end
  145. if remvanr = 0:
  146. act 'Renovate the bathroom (50,000 rubles)':
  147. if money >= 50000:
  148. cla
  149. remvanr = 1
  150. money -= 50000
  151. 'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
  152. else
  153. cla
  154. 'Unfortunately, you will not have enough money.'
  155. end
  156. act 'Leave':gt 'Komp', 'remont'
  157. end
  158. end
  159. if remkuhr = 0:
  160. act 'Renovate a kitchen (50,000 rubles)':
  161. if money >= 50000:
  162. cla
  163. remkuhr = 1
  164. money -= 50000
  165. 'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
  166. else
  167. cla
  168. 'Unfortunately, you will not have enough money.'
  169. end
  170. act 'Leave':gt 'Komp', 'remont'
  171. end
  172. end
  173. end
  174. act 'Leave':gt 'Komp', 'start'
  175. end
  176. if $ARGS[0] = 'porno':
  177. cla
  178. clr
  179. *clr
  180. minut += 15
  181. internetM -= 60
  182. manna += 5
  183. elektro += 3
  184. willpower += rand(5, 10)
  185. manna += rand(10, 50)
  186. horny += 5
  187. gs 'stat'
  188. '<center><img src="images/pics/komp.jpg"></center>'
  189. 'You went to a porn site.'
  190. $pornomastr = {
  191. cls
  192. minut += 15
  193. sweat += 1
  194. horny += rand(10, 25)
  195. if divanmastr = 0:divanmastr = 1 & mastr += 1
  196. gs 'stat'
  197. '<center><img src="images/pics/kompmas.jpg"></center>'
  198. 'You get comfortable in front of the computer with one hand and began to fondle her breasts, a finger of the other hand you started rubbing and stroking a small bump between his legs that responded to the touch of pleasant languor covering your entire body.'
  199. if horny >= 100:
  200. orgasm += 1
  201. horny = 0
  202. 'Suddenly a nice cramp brought your body and you covered powerful orgasm from which you groan.'
  203. end
  204. act 'Finish':divanmastr = 0 & gt 'Komp', 'porno'
  205. if horny >= 50:act 'Proceed':dynamic $pornomastr
  206. }
  207. act 'Watch porn':
  208. cla
  209. '<center><img src="images/etogame/porno.jpg"></center>'
  210. gt 'Komp', 'porno'
  211. end
  212. if horny >= 50:act 'Masturbate (0:15)':dynamic $pornomastr
  213. act 'Leave':gt 'Komp', 'start'
  214. end
  215. if $ARGS[0] = 'pasians':
  216. cla
  217. clr
  218. *clr
  219. minut += 15
  220. manna += 5
  221. elektro += 3
  222. willpower += rand(5, 10)
  223. manna += rand(10, 50)
  224. gs 'stat'
  225. '<center><img src="images/pics/komp.jpg"></center>'
  226. 'You entertained for an hour unfolding of solitaire on the computer.'
  227. act 'Lay another 15 minutes':gt 'Komp', 'pasians'
  228. act 'Close Solitaire':gt 'Komp', 'start'
  229. end
  230. if $ARGS[0] = 'znak':
  231. cla
  232. clr
  233. *clr
  234. minut += 15
  235. internetM -= 60
  236. manna += 5
  237. elektro += 3
  238. gs 'stat'
  239. '<center><img src="images/pics/komp.jpg"></center>'
  240. 'You are logged on to a dating site.'
  241. 'Selection of boys is only possible if there is no boyfriend.'
  242. if bfA <= 0:
  243. act 'To pick up a guy with a gentle disposition':
  244. cla
  245. gs 'boy'
  246. gs 'boyfrend', 'start'
  247. stopboy = 0
  248. harakBoyA = 0
  249. 'You wrote a guy named <<$boyA>>and talked with him and left him number hoping that he will call you.'
  250. act 'Leave':gt 'Komp', 'start'
  251. end
  252. act 'To pick up a guy with a common character':
  253. cla
  254. gs 'boy'
  255. gs 'boyfrend', 'start'
  256. stopboy = 0
  257. harakBoyA = 1
  258. 'You wrote a guy named <<$boyA>>and talked with him and left him number hoping that he will call you.'
  259. act 'Leave':gt 'Komp', 'start'
  260. end
  261. act 'To pick up a guy with a strong character':
  262. cla
  263. gs 'boy'
  264. gs 'boyfrend', 'start'
  265. stopboy = 0
  266. harakBoyA = 2
  267. 'You wrote a guy named <<$boyA>>and talked with him and left him number hoping that he will call you.'
  268. act 'Leave':gt 'Komp', 'start'
  269. end
  270. end
  271. if gor_dorm = 8:
  272. act 'Pick of suitors for Eugenia':
  273. cla
  274. gor_dorm = 9
  275. 'You shoveled dozens of profiles, Before choosing a suitable in all respects candidates and sent them a letter with a proposal to meet.'
  276. 'Now we have to wait her turn, what_is-anything with them or not.'
  277. act 'Leave':gt 'Komp', 'start'
  278. end
  279. end
  280. act 'Leave':gt 'Komp', 'start'
  281. end
  282. if $ARGS[0] = 'kabtv':
  283. cla
  284. clr
  285. *clr
  286. minut += 15
  287. internetM -= 60
  288. elektro += 3
  289. gs 'stat'
  290. '<center><img src="images/pics/komp.jpg"></center>'
  291. 'You are logged in to the website provider of cable TV.'
  292. if kabel = 1:
  293. 'Do you have a cable TV (subscription fee of 300 rubles per month lifted the 25th day of)'
  294. act 'Abandon cable TV':
  295. cla
  296. kabel = 1
  297. money -= 300
  298. 'You have disconnected cable channels, paying the current month'
  299. gt 'Komp', 'kabtv'
  300. end
  301. elseif kabel = 0 and TV = 1:
  302. 'You do not have a cable TV'
  303. act 'Connect cable TV':
  304. cla
  305. 'Unfortunately for viewing cable television requires a more modern TV'
  306. gt 'Komp', 'kabtv'
  307. end
  308. elseif kabel = 0 and TV >= 2:
  309. 'You do not have a cable TV'
  310. act 'Connect Cable TV (300 rubles per month)':
  311. cla
  312. kabel = 1
  313. 'You hooked up cable TV services'
  314. gt 'Komp', 'kabtv'
  315. end
  316. end
  317. act 'Leave':gt 'Komp', 'start'
  318. end
  319. if $ARGS[0] = 'foto':
  320. cla
  321. *clr
  322. internetM -= 60
  323. elektro += 3
  324. gs 'stat'
  325. '<center><img src="images/pics/komp.jpg"></center>'
  326. 'You are logged in to the social network "in the ass."'
  327. if shantfoto > 0:
  328. act 'Search':
  329. cla
  330. minut += 60
  331. fotsearchrand = rand(0, 10)
  332. if fotsearchrand <= 7:
  333. 'You did not find anyone, maybe better luck later.'
  334. act 'Finish':gt 'Komp', 'foto'
  335. end
  336. if fotsearchrand > 7:
  337. shantfoto -= 1
  338. 'You found the heroine a photo shoot'
  339. gerofotorand = rand(0, 100)
  340. if gerofotorand > 30:
  341. 'Judging by the photos on her page this poor girl and take her with nothing.'
  342. act 'Finish':gt 'Komp', 'foto'
  343. end
  344. if gerofotorand >= 5 and gerofotorand <= 30:
  345. shantsr += 1
  346. 'Judging by the photos on her page is non-existent girl from the middle classes. You send her photo and asked to be transferred to your account 5000.'
  347. act 'Finish':gt 'Komp', 'foto'
  348. end
  349. if gerofotorand < 5:
  350. shantbog += 1
  351. 'Judging by the photos on her page is very secured lady. You send her photo and asked to be transferred to your account 30000.'
  352. act 'Finish':gt 'Komp', 'foto'
  353. end
  354. end
  355. end
  356. end
  357. act 'Browser':gt 'Komp', 'brows'
  358. end
  359. if $ARGS[0] = 'rabota':
  360. cla
  361. *clr
  362. minut += 60
  363. internetM -= 60
  364. komprabota = rand(0, 10)
  365. gs 'stat'
  366. '<center><img src="images/pics/komp.jpg"></center>'
  367. if komprabota = 0:
  368. 'You found an ad:"Wanted girl model looks for advertising underwear, cash on filming zavershinii 2000 rubles."'
  369. if vnesh < 30:
  370. 'But you are under this description does not fit'
  371. elseif vnesh >= 30:
  372. act 'Go at':gt 'qjob', 'var1'
  373. end
  374. if hour < 20 and hour > 7:act 'Search more':gt 'Komp', 'rabota'
  375. act 'Finish':gt 'Komp', 'brows'
  376. elseif komprabota = 1:
  377. 'You found an ad:"Wanted girl model looks for advertising underwear, cash on filming zavershinii 2000 rubles."'
  378. if vnesh < 30:'But you are under this description does not fit'
  379. if vnesh >= 30:
  380. act 'Go at':gt 'qjob', 'var2'
  381. end
  382. if hour < 20 and hour > 7:act 'Search more':gt 'Komp', 'rabota'
  383. act 'Finish':gt 'Komp', 'brows'
  384. elseif komprabota > 1 and komprabota < 5:
  385. 'You found an ad:"The artist is required naturschitsa, simpotichnoy appearance, cash 1, 000 rubles."'
  386. if vnesh < 15:
  387. 'But you are under this description does not fit'
  388. elseif vnesh >= 15:
  389. act 'Go at':gt 'qjob', 'var3'
  390. end
  391. if hour < 20 and hour > 7:act 'Search more':gt 'Komp', 'rabota'
  392. act 'Finish':gt 'Komp', 'brows'
  393. elseif komprabota > 4:
  394. 'You did not find anything suitable.'
  395. if hour < 20 and hour > 7:act 'Search more':gt 'Komp', 'rabota'
  396. act 'Finish':gt 'Komp', 'brows'
  397. end
  398. end
  399. if $ARGS[0] = 'fin':gt $locM, $metkaM
  400. --- Komp ---------------------------------