1
0

Komp 52 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606
  1. # Komp
  2. if $ARGS[0] = 'start':
  3. cls
  4. elektro += 5
  5. gs 'stat'
  6. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
  7. 'Your computer boots up, and soon you''re looking at your operating system''s main screen.'
  8. act 'Play Solitaire (0:20)':gt 'Komp', 'pasians'
  9. if GameCD > 0:act 'Play Disopl':gt 'KGDstart'
  10. if GameCD2 > 0:act 'Play Sunset Dead':gt 'KGZstart'
  11. if GameCD3 > 0:act 'Play Albido':gt 'FSstart'
  12. !!act 'SunReview of the Dead':gt 'KGZstart'
  13. if student > 0 and kursovik < 100:'You should probably do some of your <a href="exec:GT ''Komp'',''kursak''">coursework</a>.'
  14. if $LOC = 'shulga_room':
  15. internet = 100000
  16. act 'Browse the internet':gt 'Komp', 'brows'
  17. else
  18. 'You have <<internet>> hours of prepaid internet access remaining.'
  19. if internet > 0:
  20. act 'Browse the internet':gt 'Komp', 'brows'
  21. end
  22. end
  23. act 'Shut your computer down':
  24. if $LOC = 'shulga_room':
  25. internet = internetS
  26. end
  27. cla
  28. gt 'Komp', 'fin'
  29. end
  30. end
  31. if $ARGS[0] = 'brows':
  32. cls
  33. gs 'stat'
  34. if internet = 0:
  35. '<center><b>Browser</b></center>'
  36. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/eror.jpg"></center>'
  37. 'You have no prepaid internet access remaining. You need to buy more, before you can go online again.'
  38. else
  39. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
  40. 'You go to your favourite start page, while you try to decide on what you want to see right now.'
  41. 'A blinking banner for a <a href="exec:GT ''Komp'',''agent''">real estate agency</a> keeps popping up in the corner.'
  42. act 'Check out an interior design website (1:00)':gt 'Komp', 'remont'
  43. if housr = 1 and husband = 0:act 'Rent your apartment out':gt 'Komp', 'sale'
  44. act 'Search for porn (1:00)':gt 'Komp', 'porno'
  45. act 'Browse a dating website (1:00)':gt 'Komp', 'znak'
  46. if hour < 20 and hour > 7:act 'Look for a job online':gt 'Komp', 'rabota'
  47. act 'Search for cable TV services (1:00)':gt 'Komp', 'kabtv'
  48. act 'Play an online game':gt 'KGstart'
  49. if bankAccount > 0: act 'Visit your bank, maybe to purchase more online time': gt 'Komp', 'bank'
  50. if shantfoto > 0:act 'Find the girl you took photos of in the park on "Assbook"':gt 'Komp', 'foto'
  51. if gor_dorm = 7:act 'Read letter from Eugene':gt 'etoexhib', 'pos91'
  52. if camwhore = 1:act 'Go to MyFreeCams.org':gt 'Komp', 'mfc'
  53. if (storyline = 1 and SchoolAtestat = 0) or student > 0:act 'Spend time studying':gt 'Komp', 'study'
  54. if sucpcinfo = 0 and succubxp > 0: act 'Research the strange feelings you''ve been having': gt 'succubus', 'kompresearch'
  55. end
  56. act '<B>Close the browser</B>':gt 'Komp','start'
  57. end
  58. if $ARGS[0] = 'sale':
  59. cla
  60. clr
  61. *clr
  62. minut += 60
  63. elektro += 3
  64. internet -= 1
  65. gs 'stat'
  66. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
  67. 'You go to a popular website where people can post advertisements for free. You could post an advertisement here.'
  68. if obkvsdam >= 1 and housr ! 0: 'You placed an advertisement to rent out your apartment. You should probably check every once in a while to see if anyone responded.'
  69. if obkvsdam = 0 and housrA = 1:
  70. act 'Rent out your apartment':obkvsdam = 1 & gt 'Komp', 'sale'
  71. elseif obkvsdam > 0:
  72. act 'Check if you got any replies':
  73. cla
  74. if obkvsdam = 1:
  75. 'No one has responded to your offer to rent out your apartment just yet.'
  76. elseif obkvsdam > 1:
  77. if obkvsdam = 2:predsumm = 7000
  78. if obkvsdam = 3:predsumm = 8000
  79. if obkvsdam = 4:predsumm = 9000
  80. if obkvsdam = 5:predsumm = 10000
  81. 'Someone wants to stay in your apartment for a month! They''re offering you <<predsumm>> <b>₽</b> in cash.'
  82. act 'Accept the offer':
  83. sdaday = day
  84. sdamonth = month + 1
  85. if sdamonth > 12:sdamonth = 1
  86. if sdaday > monthsEnd[sdamonth]:sdaday = monthsEnd[sdamonth]
  87. housr = 0
  88. karta += predsumm
  89. gt 'Komp', 'start'
  90. end
  91. end
  92. act 'Leave this website':gt 'Komp', 'brows'
  93. end
  94. end
  95. act 'Leave this website':gt 'Komp', 'brows'
  96. end
  97. if $ARGS[0] = 'remont':
  98. cla
  99. clr
  100. *clr
  101. minut += 60
  102. elektro += 3
  103. internet -= 1
  104. gs 'stat'
  105. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
  106. 'You''re currently browsing the website of a local interior designer. They claim they can remodel houses so fast, it''s done by the time you leave the computer! Surely a joke...'
  107. if housr = 1:
  108. if rembedr = 0:
  109. act 'Have them redesign your bedroom (50,000 <b>₽</b>)':
  110. cla
  111. if karta + bankDebtLimit >= 50000:
  112. rembedr = 1
  113. karta -= 50000
  114. 'When you transfer the money, you wait for a second to fill out your contact information somewhere. When you look into the hallway, you notice your new bedroom is finished already! It looks fabulous, but wait... how did they do that!?'
  115. else
  116. 'Unfortunately, you do not have enough money in your bank account.'
  117. end
  118. act 'Go back one step':gt 'Komp', 'remont'
  119. end
  120. end
  121. if remsitr = 0:
  122. act 'Renovate the living room (50,000 <b>₽</b>)':
  123. cla
  124. if karta + bankDebtLimit >= 50000:
  125. remsitr = 1
  126. karta -= 50000
  127. 'When you transfer the money, you wait for a second to fill out your contact information somewhere. When you look into the hallway, you notice the living room is finished already! It looks fabulous, but wait... how did they do that!?'
  128. else
  129. 'Unfortunately, you do not have enough money in your bank account.'
  130. end
  131. act 'Go back one step':gt 'Komp', 'remont'
  132. end
  133. end
  134. if remkorr = 0:
  135. act 'Repair hallway (50,000 <b>₽</b>)':
  136. cla
  137. if karta + bankDebtLimit >= 50000:
  138. remkorr = 1
  139. karta -= 50000
  140. 'When you transfer the money, you wait for a second to fill out your contact information somewhere. When you look into the hallway, you notice it is finished already! It looks fabulous, but wait... how did they do that!?'
  141. else
  142. 'Unfortunately, you do not have enough money in your bank account.'
  143. end
  144. act 'Go back one step':gt 'Komp', 'remont'
  145. end
  146. end
  147. if remvanr = 0:
  148. act 'Renovate the bathroom (50,000 <b>₽</b>)':
  149. cla
  150. if karta + bankDebtLimit >= 50000:
  151. remvanr = 1
  152. karta -= 50000
  153. 'When you transfer the money, you wait for a second to fill out your contact information somewhere. When you look into the hallway, you notice your new bathroom is installed already! It looks fabulous, but wait... how did they do that!?'
  154. else
  155. 'Unfortunately, you do not have enough money in your bank account.'
  156. end
  157. act 'Go back one step':gt 'Komp', 'remont'
  158. end
  159. end
  160. if remkuhr = 0:
  161. act 'Renovate the kitchen (50,000 <b>₽</b>)':
  162. cla
  163. if karta + bankDebtLimit >= 50000:
  164. remkuhr = 1
  165. karta -= 50000
  166. 'When you transfer the money, you wait for a second to fill out your contact information somewhere. When you look into the hallway, you notice the kitchen you just ordered is already installed and ready to use. It looks fabulous, but wait... how did they do that!?'
  167. else
  168. 'Unfortunately, you do not have enough money in your bank account.'
  169. end
  170. act 'Go back one step':gt 'Komp', 'remont'
  171. end
  172. end
  173. end
  174. act 'Leave this website':gt 'Komp', 'brows'
  175. end
  176. if $ARGS[0] = 'porno':
  177. cls
  178. gs 'stat'
  179. if internet = 0:
  180. '<center><b>Browser</b></center>'
  181. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/eror.jpg"></center>'
  182. 'You have no prepaid internet access remaining. You need to buy more, before you can go online again.'
  183. act '<B>Close the browser</B>':gt 'Komp','start'
  184. elseif sisterHere > 0 and sisboytrio = 0 and $loc = 'bedrPar':
  185. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
  186. 'You shouldn''t watch porn with your sister in the room, she would notice for sure!'
  187. act 'Leave this website':gt 'Komp', 'brows'
  188. else
  189. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
  190. 'You go to a porn site and browse for a few minutes, trying to find a hot video.'
  191. act 'Watch porn':
  192. cls
  193. elektro += 3
  194. pcs_willpwr += rand(5, 10)
  195. pcs_mood += rand(10, 20)
  196. internet -= 1
  197. gs 'stat'
  198. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/porno.jpg"></center>'
  199. 'You find a video you think you''d enjoy, and spend some time watching it. Wow, that girl is so lucky...'
  200. gs 'arousal', 'voyeur', 60
  201. gs 'stat'
  202. act 'The video ends...':gt 'Komp', 'porno'
  203. end
  204. if pcs_horny >= 50:act 'Masturbate (0:15)':gt 'Komp', 'masturbate'
  205. act 'Leave this website':gt 'Komp', 'brows'
  206. end
  207. end
  208. if $ARGS[0] = 'masturbate':
  209. cls
  210. internet -= 1
  211. elektro += 1
  212. pcs_sweat += 10
  213. if divanmastr = 0:
  214. divanmastr = 1
  215. stat['mast'] += 1
  216. if pcs_exhibition < 30:exhibition_exp += rand(1,3)
  217. end
  218. gs 'stat'
  219. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/kompmas.jpg"></center>'
  220. 'You get comfortable in front of your computer and with one hand begin to fondle your breasts, while you click on a link to something really dirty.'
  221. 'You let go of the mouse and start rubbing your pussy, imagining you''re the woman in the video. The fantasy and your touching are getting you all hot and bothered.'
  222. gs 'arousal', 'masturbate', 15
  223. gs 'stat'
  224. if pcs_horny >= 100:
  225. $orgasm_or = 'custom'
  226. $orgasm_txt = 'Suddenly your muscles tighten and you cum powerfully, while you stifle your moans so your neighbours won''t find out. Afterwards, you have goosebumps all over your skin. That was just what you needed!'
  227. end
  228. act 'Stop masturbating':divanmastr = 0 & gt 'Komp', 'porno'
  229. gs 'arousal', 'end'
  230. gs 'stat'
  231. if pcs_horny >= 50:act 'Masturbate some more (0:15)':gt 'Komp', 'masturbate'
  232. end
  233. if $ARGS[0] = 'pasians':
  234. cla
  235. clr
  236. *clr
  237. minut += 20
  238. elektro += 3
  239. pcs_willpwr += rand(5, 10)
  240. pcs_mood += rand(10, 20)
  241. gs 'stat'
  242. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
  243. 'You entertain yourself for about twenty minutes, playing a game of solitaire on the computer.'
  244. act 'Play for another 20 minutes':gt 'Komp', 'pasians'
  245. act 'Return to desktop':gt 'Komp', 'start'
  246. end
  247. if $ARGS[0] = 'znak':
  248. cla
  249. clr
  250. *clr
  251. minut += 60
  252. pcs_mood += 5
  253. elektro += 3
  254. internet -= 1
  255. gs 'stat'
  256. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
  257. 'You enter a dating site, and immediately see all sorts of profiles of both men and women.'
  258. 'The guys on this site are rather cute! If you''re single, you could try contacting one. Who knows, maybe you''ll meet the man of your dreams through here!'
  259. if gor_dorm = 8:
  260. act 'Pick someone suitable for Eugenia':
  261. cla
  262. gor_dorm = 9
  263. 'You click through dozens of profiles, before choosing a guy who you think would be a good match for Eugenia. You send him a message, asking if he wants to meet up somewhere.'
  264. 'Now the waiting game begins! Let''s hope you picked a nice guy for her...'
  265. act 'Leave this website':gt 'Komp', 'brows'
  266. end
  267. elseif housrA = 0:
  268. pcs_willpwr += rand(5, 10)
  269. pcs_mood += rand(5, 10)
  270. 'You spend time looking at the various profiles, but it won''t let you register unless you have your own home.'
  271. 'Still, some of the pictures were quite raunchy and the more desperate profiles were really funny.'
  272. else
  273. if pcs_lover > 3:
  274. act 'Look for a kind man':
  275. cla
  276. gs 'boy'
  277. gs 'boyfrend', 'start'
  278. stopboy = 0
  279. haraklover[lover_number] = 0
  280. 'You find a guy named <<$loverdesc[lover_number]>>, and send him your number after checking out his profile. You hope he will call you!'
  281. act 'Leave':gt 'Komp', 'brows'
  282. end
  283. act 'Look for a normal guy':
  284. cla
  285. gs 'boy'
  286. gs 'boyfrend', 'start'
  287. stopboy = 0
  288. haraklover[lover_number] = 1
  289. 'You find a guy named <<$loverdesc[lover_number]>>, and send him your number after checking out his profile. You hope he will call you!'
  290. act 'Leave':gt 'Komp', 'brows'
  291. end
  292. act 'Look for a strong man':
  293. cla
  294. gs 'boy'
  295. gs 'boyfrend', 'start'
  296. stopboy = 0
  297. haraklover[lover_number] = 2
  298. 'You find a guy named <<$loverdesc[lover_number]>>, and send him your number after checking out his profile. You hope he will call you!'
  299. act 'Leave this website':gt 'Komp', 'brows'
  300. end
  301. end
  302. end
  303. act 'Leave this website':gt 'Komp', 'brows'
  304. end
  305. if $ARGS[0] = 'kabtv':
  306. cla
  307. clr
  308. *clr
  309. minut += 60
  310. elektro += 3
  311. internet -= 1
  312. gs 'stat'
  313. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
  314. 'You check out the website of the local cable TV provider. A subscription for cable TV costs 300 <b>₽</b> per month, payable on the 25th.'
  315. ''
  316. if kabel = 1:
  317. 'You currently have a cable subscription for your TV.'
  318. act 'Cancel your cable subscription (300 <b>₽</b>)':
  319. cla
  320. kabel = 0
  321. karta -= 300
  322. 'Your subscription has been cancelled and you can no longer watch the extra channels. The cable firm charges a one-time fee of 300 <b>₽</b> for disconnecting you.'
  323. gt 'Komp', 'kabtv'
  324. end
  325. elseif kabel = 0 and TV = 1:
  326. 'You currently do not have a cable subscription for your TV.'
  327. act 'Get cable services for your TV':
  328. cla
  329. msg 'Unfortunately your TV is too old and crap for cable. You''ll have to get a modern TV first.'
  330. gt 'Komp', 'kabtv'
  331. end
  332. elseif kabel = 0 and TV >= 2:
  333. 'You currently do not have a cable subscription for your TV.'
  334. act 'Get cable services for your TV (300 <b>₽</b> per month)':
  335. cla
  336. kabel = 1
  337. msg 'Soon after you fill out the form, you get a confirmation message that your sign-up was successful. You should have the extra channels on your TV now.'
  338. gt 'Komp', 'kabtv'
  339. end
  340. else
  341. 'You don''t even have a TV!'
  342. act 'Leave this website':gt 'Komp', 'brows'
  343. end
  344. act 'Leave this website':gt 'Komp', 'brows'
  345. end
  346. if $ARGS[0] = 'foto':
  347. cla
  348. *clr
  349. elektro += 3
  350. internet -= 1
  351. gs 'stat'
  352. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
  353. 'You''re currently on Russia''s biggest social network site, "Assbook". Almost everyone has an account here, probably including the girl you took that photo of the other day!'
  354. '"Maybe if I can find her, I can blackmail her", you think to yourself. "This photo is very raunchy, after all... I bet she would hate to see it published, if she''s important!"'
  355. 'You can''t help but rub your pussy every now and then while you look at it. You''ll probably keep a copy of this for yourself, either way!'
  356. if shantfoto > 0:
  357. act 'Try to find out who she is (1:00)':
  358. cla
  359. minut += 60
  360. fotsearchrand = rand(0, 10)
  361. if fotsearchrand <= 7:
  362. 'Despite your best efforts, you don''t manage to find the girl this time.'
  363. act 'Go back to the "Assbook" main page':gt 'Komp', 'foto'
  364. end
  365. if fotsearchrand > 7:
  366. shantfoto -= 1
  367. 'Despite your best efforts, you don''t manage to... wait, that''s her! You found her!'
  368. gerofotorand = rand(0, 100)
  369. if gerofotorand > 30:
  370. 'Your dreams of making a fortune are quickly shattered when you check out her profile. Cheap clothes, few friends, lives in a poor district of the city... this girl is not worth blackmailing.'
  371. act 'Go back to the "Assbook" main page':gt 'Komp', 'foto'
  372. end
  373. if gerofotorand >= 5 and gerofotorand <= 30:
  374. shantsr += 1
  375. 'When you click through her profile, you estimate she''s an unknown middle class girl. Still, she has a lot of friends and the outfits she''s wearing in her photos look stylish... she has money to spend.'
  376. '"Why not make her spend some of it on me?" you laugh to yourself, and begin to write a private message.'
  377. 'You send her a copy of the photo with the private message, and tell her to transfer a very modest amount of 5,000 <b>₽</b> to your bank account. If she doesn''t want that photo to be sent to her entire friends list (which you secured before sending the message), the money needs to be on your bank account within 48 hours.'
  378. act 'Go back to the "Assbook" main page':gt 'Komp', 'foto'
  379. end
  380. if gerofotorand < 5:
  381. shantbog += 1
  382. 'You can barely believe it when you read her profile, this girl is a celebrity! It would be a major scandal if this photo got published!'
  383. 'You send her a copy of the photo with a private message, telling her to transfer 30,000 <b>₽</b> to your bank account. If she doesn''t want that photo to be sent to the press, the money needs to be on your bank account within 48 hours.'
  384. act 'Go back to the "Assbook" main page':gt 'Komp', 'foto'
  385. end
  386. end
  387. end
  388. end
  389. act 'Leave this website':gt 'Komp', 'brows'
  390. end
  391. if $ARGS[0] = 'rabota':
  392. cla
  393. *clr
  394. minut += 60
  395. internet -= 1
  396. komprabota = rand(0, 10)
  397. if $LOC = 'shulga_room':komprabota = rand(5, 15)
  398. gs 'stat'
  399. if internet = 0:
  400. '<center><b>Browser</b></center>'
  401. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/eror.jpg"></center>'
  402. 'You have no prepaid internet access remaining. You need to buy more, before you can go online again.'
  403. act '<B>Close the browser</B>':gt 'Komp','start'
  404. else
  405. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
  406. if komprabota = 0 and gorodokKomp = 0:
  407. 'You find a job vacancy, on a legit looking website. It reads: "Wanted! <b>URGENTLY!</b> Female underwear model, for a photoshoot. Pay: 2000 <b>₽</b> cash."'
  408. 'The description explains that they need someone today. If you decide to take this job, you will have to shut down your computer and go there right away.'
  409. if pcs_apprnc < 120:
  410. 'You consider it for a moment, but decide against it. You''re probably not pretty enough to be an underwear model.'
  411. elseif pcs_apprnc >= 120:
  412. act 'Accept the job and go there':gt 'qjob', 'var1'
  413. end
  414. if hour < 20 and hour > 7:act 'Search for more jobs':gt 'Komp', 'rabota'
  415. act 'Leave this website':gt 'Komp', 'brows'
  416. elseif komprabota = 1 and gorodokKomp = 0:
  417. 'You find a job vacancy, on a legit looking website. It reads: "Wanted! <b>URGENTLY!</b> Female underwear model, for a photoshoot. Pay: 2000 <b>₽</b> cash."'
  418. 'The description explains that they need someone today. If you decide to take this job, you will have to shut down your computer and go there right away.'
  419. if pcs_apprnc < 120:
  420. 'You consider it for a moment, but decide against it. You''re probably not pretty enough to be an underwear model.'
  421. elseif pcs_apprnc >= 120:
  422. act 'Accept the job and go there':gt 'qjob', 'var2'
  423. end
  424. if hour < 20 and hour > 7:act 'Search for more jobs':gt 'Komp', 'rabota'
  425. act 'Leave this website':gt 'Komp', 'brows'
  426. elseif komprabota > 1 and komprabota < 5 and gorodokKomp = 0:
  427. 'You find a job vacancy, on a legit looking website. It reads: "Wanted! <b>URGENTLY!</b> Good looking female model, posing for artwork. Must be able to stand still in one pose for a long time. Pay: 1000 <b>₽</b> cash."'
  428. 'The description explains that they need someone today. If you decide to take this job, you will have to shut down your computer and go there right away.'
  429. if pcs_apprnc < 60:
  430. 'You consider it for a moment, but decide against it. You''re probably not pretty enough to be a model.'
  431. elseif pcs_apprnc >= 60:
  432. act 'Accept the job and go there':gt 'qjob', 'var3'
  433. end
  434. if hour < 20 and hour > 7:act 'Search for more jobs':gt 'Komp', 'rabota'
  435. act 'Leave this website':gt 'Komp', 'brows'
  436. elseif komprabota > 4 and komprabota < 8 and pcs_intel >= 50 and camwhore = 0:
  437. 'You find a job vacancy, on a legit looking website. It reads: "Wanted! Webcam models. Flexible working hours. Click for more info."'
  438. act 'Gather more information':
  439. cls
  440. minut += 5
  441. gs 'stat'
  442. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore1.jpg"></center>'
  443. 'You click the button and get taken to the full job description.'
  444. '<i>For this job, you will have to expose your body in front of customers, fulfilling their wishes. Payment is completely based on a tip system: customers on the website can buy tokens, which they can use to tip girls they enjoy watching.'
  445. 'How much money you make is up to you: the better you are at attracting viewers, and the more you are willing to do to please them, the more likely they will be to tip you.'
  446. 'After a quick verification, you usually get paid immediately after a session ends. The tokens you earn will be converted to rubles, and paid to your bank account right away.'
  447. 'The website hides your stream for viewers from your region, so the chance of being recognized by someone you know in real life is very low.'
  448. 'If you''re interested in becoming a webcam girl, please fill in this questionnaire below.</i>'
  449. act 'Fill in the questionnaire':
  450. cls
  451. camwhore = 1
  452. mfcclients = 0
  453. camclients = 0
  454. mfccum = 0
  455. minut += 20
  456. gs 'stat'
  457. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore2.jpg"></center>'
  458. 'You fill out the questionnaire and register yourself as a webcam model. Ten minutes later, you have already been approved and you can now earn money as a webcam girl.'
  459. 'Of course, you will need a functioning webcam to do this! If you don''t have one yet, they are fairly cheap to buy at most local supermarket chains.'
  460. act 'Leave this website':gt 'Komp','brows'
  461. end
  462. act 'Leave this website':gt 'Komp','brows'
  463. end
  464. if hour < 20 and hour > 7:act 'Search for more jobs':gt 'Komp','rabota'
  465. act 'Leave this website':gt 'Komp','brows'
  466. else
  467. 'Unfortunately, you do not find any jobs you would consider doing.'
  468. if hour < 20 and hour > 7:act 'Search for more jobs':gt 'Komp','rabota'
  469. act 'Leave this website':gt 'Komp','brows'
  470. end
  471. end
  472. end
  473. if $ARGS[0] = 'study':
  474. cla
  475. *clr
  476. minut = minut + 60
  477. elektro = elektro + 3
  478. internet -= 1
  479. intel_exp += 1 + (mentats_dose - rand(0,mentats_dose))
  480. '<center><b>The Institute for Education Measurement</b></center>'
  481. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/study.jpg"></center>'
  482. 'You spend an hour on the IEM website, reading news articles and educational blogs. You feel a bit smarter afterwards.'
  483. act 'Leave this website':gt'Komp','brows'
  484. end
  485. if $ARGS[0] = 'kursak':
  486. cla
  487. *clr
  488. minut += 60
  489. elektro += 3
  490. internet -= 1
  491. pcs_mood -= 10
  492. kursovik = kursovik + RAND(pcs_intel/20,pcs_intel/10)
  493. if kursovik > 100:kursovik = 100
  494. '<center><b>Coursework</b></center>'
  495. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/kursak.jpg"></center>'
  496. 'It may be boring, but it still needs doing! You spend an hour doing coursework, and <<kursovik>>% of it is now finished.'
  497. act 'Leave this website':gt 'Komp','brows'
  498. end
  499. if $ARGS[0] = 'agent':
  500. cla
  501. clr
  502. *clr
  503. minut += 60
  504. elektro += 3
  505. internet -= 1
  506. gs 'stat'
  507. '<center><b>Real estate agency</b></center>'
  508. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/agent.jpg"></center>'
  509. 'You''re currently at the website of the largest real estate agency in the area.'
  510. 'They have apartments available in the residential district. Renting one would cost you 6000 <b>₽</b> for 30 days.'
  511. ''
  512. if ArendHouseSL > 0:'You have <B><<ArendHouseSL>> days</B> remaining on the rental of your apartment.'
  513. if karta + bankDebtLimit >= 6000 and BuyHous ! 1:
  514. act 'Rent an apartment online':
  515. cla
  516. karta -= 6000
  517. housr = 1
  518. BuyHous = 2
  519. ArendHouseSL += 30
  520. 'After a very simple procedure, you can now call an apartment in the residential district home for another 30 days. You have <B><<ArendHouseSL>> days</B> remaining on the rental of your apartment.'
  521. act 'Leave this website':gt 'Komp','brows'
  522. end
  523. end
  524. act 'Leave this website':gt 'Komp','brows'
  525. end
  526. if $ARGS[0] = 'fin':
  527. gt $loc, $metka
  528. end
  529. if $ARGS[0] = 'mfc':
  530. if mesec > 0:
  531. cls
  532. minut += 2
  533. topmfc = 1
  534. backmfc = 1
  535. tokens = 0
  536. camclients = 0
  537. gs 'stat'
  538. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore2.jpg"></center>'
  539. 'It''s that time of the month! You feel sick to your stomach and the cramps hurt pretty badly from time to time... you''re in no condition to earn money showing off your body.'
  540. act 'Leave this website':gt 'Komp','brows'
  541. elseif sisterHere = 0 or $loc ! 'bedrPar':
  542. act 'Go to your MFC homepage':
  543. cls
  544. minut += 2
  545. gs 'stat'
  546. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore3.jpg"></center>'
  547. 'You enter your own chatroom on the website. You currently have <<camclients>> viewers.'
  548. act 'Continue':gt 'komp','startpagemfc'
  549. end
  550. act 'Leave this website':
  551. cls
  552. minut += 2
  553. topmfc = 1
  554. backmfc = 1
  555. tokens = 0
  556. camclients = 0
  557. gs 'stat'
  558. gt 'Komp','brows'
  559. end
  560. elseif sisterHere > 0 and $loc = 'bedrPar':
  561. cls
  562. minut += 2
  563. topmfc = 1
  564. backmfc = 1
  565. tokens = 0
  566. camclients = 0
  567. gs 'stat'
  568. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore2.jpg"></center>'
  569. 'You can''t do any webcam activities with your sister in the room!'
  570. act 'Leave this website':gt 'Komp','brows'
  571. end
  572. end
  573. if $ARGS[0] = 'startpagemfc':
  574. if vgape > 0 or agape > 0:
  575. cls
  576. gs 'stat'
  577. 'While you sit in your chair, you can''t help but wince every time you move. You want to put up a show, but it hurts too much. And besides... you doubt your viewers would want to see you in your current state! You should heal up a bit before trying again.'
  578. act 'Collect your earnings and leave':
  579. karta += tokens/2
  580. gt 'Komp','mfc'
  581. end
  582. else
  583. cls
  584. gs 'stat'
  585. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore3.jpg"></center>'
  586. 'You casually chat with the <<camclients>> visitors currently in your chatroom. Once you turn on your webcam, things will probably get busier.'
  587. act 'Turn on your webcam':gt 'komp','waitclients'
  588. act 'Collect your earnings and leave':
  589. karta += tokens/2
  590. gt 'Komp','mfc'
  591. end
  592. end
  593. end
  594. if $ARGS[0] = 'waitclients':
  595. cls
  596. minut = minut + RAND(1,4)
  597. if mfccum = 0:
  598. pcs_mood -= RAND(0,3)
  599. elseif mfccum = 1:
  600. mfcdaycum = daystart
  601. pcs_mood -= RAND(1,3)
  602. elseif mfccum = 2:
  603. mfcdaycum = daystart
  604. pcs_mood -= RAND(2,5)
  605. elseif mfccum = 3:
  606. mfcdaycum = daystart
  607. pcs_mood -= RAND(5,8)
  608. elseif mfccum = 4:
  609. mfcdaycum = daystart
  610. pcs_mood -= RAND(5,11)
  611. elseif mfccum = 5:
  612. mfcdaycum = daystart
  613. pcs_mood -= RAND(7,12)
  614. elseif mfccum > 5:
  615. mfcdaycum = daystart
  616. pcs_mood -= RAND(10,20)
  617. end
  618. mfcclients += 1
  619. if pcs_apprnc < 100:
  620. if topmfc = 1 and backmfc = 1:
  621. if webpopular < 15:
  622. if mfcclients > 3:
  623. camclients -= RAND(1,3)
  624. else
  625. camclients += RAND(1,3)
  626. end
  627. elseif webpopular >= 15 and webpopular < 35:
  628. if mfcclients > 3:
  629. camclients -= RAND(3,5)
  630. else
  631. camclients += RAND(3,5)
  632. end
  633. elseif webpopular >= 35 and webpopular < 75:
  634. if mfcclients > 3:
  635. camclients -= RAND(4,8)
  636. else
  637. camclients += RAND(4,8)
  638. end
  639. elseif webpopular >= 75:
  640. if mfcclients > 3:
  641. camclients -= RAND(5,15)
  642. else
  643. camclients += RAND(5,15)
  644. end
  645. end
  646. chancetips = RAND(0,100)
  647. clientask = RAND(0,100)
  648. if chancetips >= 95 and camclients >= 250:
  649. if webpopular >= 50:
  650. tokens += RAND(10,30)
  651. else
  652. tokens += RAND(1,20)
  653. end
  654. end
  655. end
  656. else
  657. if topmfc = 1 and backmfc = 1:
  658. if webpopular < 15:
  659. if mfcclients > 3:
  660. camclients -= RAND(3,5)
  661. else
  662. camclients += RAND(3,5)
  663. end
  664. elseif webpopular >= 15 and webpopular < 35:
  665. if mfcclients > 3:
  666. camclients -= RAND(5,8)
  667. else
  668. camclients += RAND(5,8)
  669. end
  670. elseif webpopular >= 35 and webpopular < 75:
  671. if mfcclients > 3:
  672. camclients -= RAND(5,12)
  673. else
  674. camclients += RAND(5,12)
  675. end
  676. elseif webpopular >= 75:
  677. if mfcclients > 3:
  678. camclients -= RAND(8,15)
  679. else
  680. camclients += RAND(8,15)
  681. end
  682. end
  683. chancetips = RAND(5,100)
  684. clientask = RAND(5,100)
  685. if chancetips >= 95 and camclients >= 200:
  686. if webpopular >= 50:
  687. tokens += RAND(10,40)
  688. else
  689. tokens += RAND(1,20)
  690. end
  691. end
  692. end
  693. end
  694. if pcs_apprnc < 100:
  695. if topmfc = 0 and backmfc = 1:
  696. if webpopular < 15:
  697. if mfcclients > 3:
  698. camclients -= RAND(1,3)
  699. else
  700. camclients += RAND(1,3)
  701. end
  702. elseif webpopular >= 15 and webpopular < 35:
  703. if mfcclients > 3:
  704. camclients -= RAND(1,5)
  705. else
  706. camclients += RAND(1,5)
  707. end
  708. elseif webpopular >= 35 and webpopular < 75:
  709. if mfcclients > 3:
  710. camclients -= RAND(5,10)
  711. else
  712. camclients += RAND(5,10)
  713. end
  714. elseif webpopular >= 75:
  715. if mfcclients > 3:
  716. camclients -= RAND(6,15)
  717. else
  718. camclients += RAND(6,15)
  719. end
  720. end
  721. chancetips = RAND(5,90)
  722. clientask = RAND(5,100)
  723. if chancetips >= 85 and camclients >= 230:
  724. if webpopular >= 50:
  725. tokens += RAND(10,35)
  726. else
  727. tokens += RAND(1,20)
  728. end
  729. end
  730. end
  731. else
  732. if topmfc = 0 and backmfc = 1:
  733. if webpopular < 15:
  734. if mfcclients > 3:
  735. camclients -= RAND(3,6)
  736. else
  737. camclients += RAND(3,6)
  738. end
  739. elseif webpopular >= 15 and webpopular < 35:
  740. if mfcclients > 3:
  741. camclients -= RAND(5,10)
  742. else
  743. camclients += RAND(5,10)
  744. end
  745. elseif webpopular >= 35 and webpopular < 75:
  746. if mfcclients > 3:
  747. camclients -= RAND(7,12)
  748. else
  749. camclients += RAND(7,12)
  750. end
  751. elseif webpopular >= 75:
  752. if mfcclients > 3:
  753. camclients -= RAND(10,15)
  754. else
  755. camclients += RAND(10,15)
  756. end
  757. end
  758. chancetips = RAND(10,90)
  759. clientask = RAND(10,100)
  760. if chancetips >= 85 and camclients >= 200:
  761. if webpopular >= 50:
  762. tokens += RAND(15,35)
  763. else
  764. tokens += RAND(1,20)
  765. end
  766. end
  767. end
  768. end
  769. if pcs_apprnc < 100:
  770. if topmfc = 1 and backmfc = 0:
  771. if webpopular < 15:
  772. if mfcclients > 3:
  773. camclients -= RAND(1,3)
  774. else
  775. camclients += RAND(1,3)
  776. end
  777. elseif webpopular >= 15 and webpopular < 35:
  778. if mfcclients > 3:
  779. camclients -= RAND(2,5)
  780. else
  781. camclients += RAND(2,5)
  782. end
  783. elseif webpopular >= 35 and webpopular < 75:
  784. if mfcclients > 3:
  785. camclients -= RAND(5,15)
  786. else
  787. camclients += RAND(5,15)
  788. end
  789. elseif webpopular >= 75:
  790. if mfcclients > 3:
  791. camclients -= RAND(5,20)
  792. else
  793. camclients += RAND(5,20)
  794. end
  795. end
  796. chancetips = RAND(10,80)
  797. clientask = RAND(10,100)
  798. if chancetips >= 75 and camclients >= 200:
  799. if webpopular >= 50:
  800. tokens += RAND(10,40)
  801. else
  802. tokens += RAND(1,20)
  803. end
  804. end
  805. end
  806. else
  807. if topmfc = 1 and backmfc = 0:
  808. if webpopular < 15:
  809. if mfcclients > 3:
  810. camclients -= RAND(4,7)
  811. else
  812. camclients += RAND(4,7)
  813. end
  814. elseif webpopular >= 15 and webpopular < 35:
  815. if mfcclients > 3:
  816. camclients -= RAND(5,12)
  817. else
  818. camclients += RAND(5,12)
  819. end
  820. elseif webpopular >= 35 and webpopular < 75:
  821. if mfcclients > 3:
  822. camclients -= RAND(9,15)
  823. else
  824. camclients += RAND(9,15)
  825. end
  826. elseif webpopular >= 75:
  827. if mfcclients > 3:
  828. camclients -= RAND(15,20)
  829. else
  830. camclients += RAND(15,20)
  831. end
  832. end
  833. chancetips = RAND(15,80)
  834. clientask = RAND(15,100)
  835. if chancetips >= 75 and camclients >= 170:
  836. if webpopular >= 50:
  837. tokens += RAND(15,45)
  838. else
  839. tokens += RAND(1,20)
  840. end
  841. end
  842. end
  843. end
  844. if pcs_apprnc < 100:
  845. if topmfc = 0 and backmfc = 0:
  846. if webpopular < 15:
  847. if mfcclients > 3:
  848. camclients -= RAND(1,4)
  849. else
  850. camclients += RAND(1,4)
  851. end
  852. elseif webpopular >= 15 and webpopular < 35:
  853. if mfcclients > 3:
  854. camclients -= RAND(3,10)
  855. else
  856. camclients += RAND(3,10)
  857. end
  858. elseif webpopular >= 35 and webpopular < 75:
  859. if mfcclients > 3:
  860. camclients -= RAND(10,20)
  861. else
  862. camclients += RAND(10,20)
  863. end
  864. elseif webpopular >= 75:
  865. if mfcclients > 3:
  866. camclients -= RAND(10,30)
  867. else
  868. camclients += RAND(10,30)
  869. end
  870. end
  871. chancetips = RAND(15,50)
  872. clientask = RAND(15,100)
  873. if chancetips >= 45 and camclients >= 150:
  874. if webpopular >= 50:
  875. tokens += RAND(20,50)
  876. else
  877. tokens += RAND(5,25)
  878. end
  879. end
  880. end
  881. else
  882. if topmfc = 0 and backmfc = 0:
  883. if webpopular < 15:
  884. if mfcclients > 3:
  885. camclients -= RAND(3,8)
  886. else
  887. camclients += RAND(3,8)
  888. end
  889. elseif webpopular >= 15 and webpopular < 35:
  890. if mfcclients > 3:
  891. camclients -= RAND(3,15)
  892. else
  893. camclients += RAND(3,15)
  894. end
  895. elseif webpopular >= 35 and webpopular < 75:
  896. if mfcclients > 3:
  897. camclients -= RAND(10,20)
  898. else
  899. camclients += RAND(10,20)
  900. end
  901. elseif webpopular >= 75:
  902. if mfcclients > 3:
  903. camclients -= RAND(10,30)
  904. else
  905. camclients += RAND(10,30)
  906. end
  907. end
  908. chancetips = RAND(20,50)
  909. clientask = RAND(20,100)
  910. if chancetips >= 45 and camclients >= 100:
  911. if webpopular >= 50:
  912. tokens += RAND(30,50)
  913. else
  914. tokens += RAND(10,30)
  915. end
  916. end
  917. end
  918. end
  919. if camclients <= 0:camclients = 0
  920. gs 'stat'
  921. if topmfc = 1 and backmfc = 1:
  922. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore3.jpg"></center>'
  923. end
  924. if topmfc = 0 and backmfc = 1:
  925. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore4.jpg"></center>'
  926. end
  927. if topmfc = 1 and backmfc = 0:
  928. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore5.jpg"></center>'
  929. end
  930. if topmfc = 0 and backmfc = 0:
  931. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore6.jpg"></center>'
  932. end
  933. tokenpay = tokens / 2
  934. 'You take a moment of rest, and just chat casually with your <<camclients>> visitors.'
  935. 'You have earned <<tokens>> tokens so far this session, which amounts to <<tokenpay>> <b>₽</b>.'
  936. act 'Wait for more visitors':gt 'komp','waitclients'
  937. if topmfc = 1 and clientask >= 98:
  938. cls
  939. gs 'stat'
  940. 'One of your visitors really wants to see your boobs! He''s willing to leave you some tokens as a tip, if you take off your bra right now...'
  941. act 'Remove your bra':
  942. cls
  943. webpopular += 1
  944. topmfc = 0
  945. if webpopular < 15:
  946. tokens += RAND(10,25)
  947. elseif webpopular >= 15 and webpopular < 35:
  948. tokens += RAND(15,25)
  949. elseif webpopular >= 35 and webpopular < 75:
  950. tokens += RAND(25,50)
  951. elseif webpopular >= 75:
  952. tokens += RAND(50,150)
  953. end
  954. gs 'stat'
  955. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore7.jpg"></center>'
  956. 'You stand up and lean forward, so your boobs are in full view of the camera. You slowly take off your bra and give the camera a sweet smile.'
  957. 'While you sit back down and toss your bra to the ground, you hear the donation sound several times. Your visitors enjoyed that!'
  958. gs 'arousal', 'porn', 2, 'exhibitionism'
  959. gs 'stat'
  960. act 'Continue':gt 'Komp','waitclients'
  961. end
  962. act 'Refuse to take off your bra':
  963. cls
  964. webpopular -= 1
  965. gt 'Komp','waitclients'
  966. end
  967. end
  968. if backmfc = 1 and clientask >= 96 and clientask < 98:
  969. cls
  970. 'One of the visitors asks you to remove your panties, and show your bare pussy to the camera. A second visitor chimes in, adding some extra tokens to the offer.'
  971. act 'Take off your panties':
  972. cls
  973. mfcclients = 0
  974. webpopular += 1
  975. backmfc = 0
  976. if webpopular < 15:
  977. tokens += RAND(10,25)
  978. elseif webpopular >= 15 and webpopular < 35:
  979. tokens += RAND(15,25)
  980. elseif webpopular >= 35 and webpopular < 75:
  981. tokens += RAND(25,50)
  982. elseif webpopular >= 75:
  983. tokens += RAND(50,150)
  984. end
  985. gs 'stat'
  986. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore8.jpg"></center>'
  987. 'You make a show of pointing the camera at your groin, and slowly push your panties down your legs. The chat explodes for a moment, with several visitors complimenting your body, and a few more making lewd comments on what they would do to you if they were with you right now.'
  988. 'As promised, you receive some tokens.'
  989. gs 'arousal', 'porn', 2, 'exhibitionism'
  990. gs 'stat'
  991. act 'Continue':gt 'Komp','waitclients'
  992. end
  993. act 'Refuse to take off your panties':
  994. cls
  995. webpopular -= 1
  996. gt 'Komp','waitclients'
  997. end
  998. end
  999. if topmfc = 0 and clientask >= 94 and clientask < 96:
  1000. cls
  1001. 'One of the visitors types: "Play with those titties, girl! I''ll pay!"'
  1002. act 'Play with your boobs':
  1003. cls
  1004. mfcclients = 0
  1005. webpopular += 1
  1006. backmfc = 0
  1007. if webpopular < 15:
  1008. tokens += RAND(15,25)
  1009. elseif webpopular >= 15 and webpopular < 35:
  1010. tokens += RAND(20,30)
  1011. elseif webpopular >= 35 and webpopular < 75:
  1012. tokens += RAND(50,100)
  1013. elseif webpopular >= 75:
  1014. tokens += RAND(50,150)
  1015. end
  1016. gs 'stat'
  1017. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore10.jpg"></center>'
  1018. 'You adjust your camera and lie down on your bed, and start to knead your tits and pinch your nipples playfully. When you hear the donation sound, you smile sweetly at the camera and thank the person who donated personally, immediately prompting a second visitor to donate as well.'
  1019. gs 'arousal', 'porn', 2, 'exhibitionism'
  1020. gs 'stat'
  1021. act 'Continue':gt 'Komp','waitclients'
  1022. end
  1023. act 'Refuse to play with your boobs':
  1024. cls
  1025. webpopular -= 1
  1026. gt 'Komp','waitclients'
  1027. end
  1028. end
  1029. if backmfc = 0 and clientask = 93:
  1030. cls
  1031. '"Let''s see that sweet cunt of yours again, whore!" one of your visitors says.'
  1032. 'He''s kinda rude about it, but then again... he''s willing to pay.'
  1033. act 'Do it':
  1034. cls
  1035. mfcclients = 0
  1036. webpopular += 1
  1037. if webpopular < 15:
  1038. tokens += RAND(20,25)
  1039. elseif webpopular >= 15 and webpopular < 35:
  1040. tokens += RAND(25,50)
  1041. elseif webpopular >= 35 and webpopular < 75:
  1042. tokens += RAND(50,100)
  1043. elseif webpopular >= 75:
  1044. tokens += RAND(100,150)
  1045. end
  1046. gs 'stat'
  1047. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore12.jpg"></center>'
  1048. 'You lie down comfortably and put your hand between your legs, gently rubbing your labia with your fingers. You put some effort into showing how wet you are already, which is met with some enthusiastic chatter.'
  1049. gs 'arousal', 'porn', 2, 'exhibitionism'
  1050. gs 'stat'
  1051. if pcs_horny >= 100:
  1052. mfccum += 1
  1053. pcs_mood = 100
  1054. gs 'stat'
  1055. $orgasm_or = 'custom'
  1056. $orgasm_txt = 'You groan despite yourself, and realize you''re about to have an orgasm on camera! Deciding it''s too late to stop, you flick your fingers over your clit several more times and moan loudly as your whole body begins to tremble. When you look at the chat again, you see a mixture of compliments and lewd comments on your show. Either way: they loved it!'
  1057. end
  1058. act 'Continue':gt 'Komp','waitclients'
  1059. end
  1060. act 'Ignore him':
  1061. cls
  1062. webpopular -= 1
  1063. gt 'Komp','waitclients'
  1064. end
  1065. end
  1066. if backmfc = 0 and clientask = 92:
  1067. cls
  1068. 'One of the visitors asks very politely: "Uh, hi! Could you please show me your vagina up close?"'
  1069. act 'Show him your vagina':
  1070. cls
  1071. mfcclients = 0
  1072. webpopular += 1
  1073. if webpopular < 15:
  1074. tokens += RAND(10,25)
  1075. elseif webpopular >= 15 and webpopular < 35:
  1076. tokens += RAND(15,25)
  1077. elseif webpopular >= 35 and webpopular < 75:
  1078. tokens += RAND(25,50)
  1079. elseif webpopular >= 75:
  1080. tokens += RAND(50,150)
  1081. end
  1082. gs 'stat'
  1083. if analplugIN = 1:
  1084. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore19.jpg"></center>'
  1085. end
  1086. if pcs_vag = 0 and analplugIN = 0:
  1087. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore18.jpg"></center>'
  1088. end
  1089. if pcs_vag > 0 and pcs_vag <= 10 and analplugIN = 0:
  1090. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore13.jpg"></center>'
  1091. end
  1092. if pcs_vag > 10 and pcs_vag <= 15 and analplugIN = 0:
  1093. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore14.jpg"></center>'
  1094. end
  1095. if pcs_vag > 15 and pcs_vag <= 25 and analplugIN = 0:
  1096. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore15.jpg"></center>'
  1097. end
  1098. if pcs_vag > 25 and pcs_vag <= 35 and analplugIN = 0:
  1099. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore16.jpg"></center>'
  1100. end
  1101. if pcs_vag > 35 and analplugIN = 0:
  1102. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore17.jpg"></center>'
  1103. end
  1104. 'Aww, what a sweetheart! You smile at the camera and do what your client wants. He delivers on his promise as well, sending some tokens your way. The rest of the chat is thanking him too, everyone wanted to see that!'
  1105. gs 'arousal', 'porn', 2, 'exhibitionism'
  1106. gs 'stat'
  1107. act 'Continue':gt 'Komp','waitclients'
  1108. end
  1109. act 'Ignore him':
  1110. cls
  1111. webpopular -= 1
  1112. gt 'Komp','waitclients'
  1113. end
  1114. end
  1115. if backmfc = 0 and pcs_ass >= 30 and webpopular >= 50 and clientask = 91:
  1116. cls
  1117. 'One of the visitors makes several comments on how badly he wants to fuck your ass, and then offers you tokens to show your anus to him...'
  1118. act 'Show them your battered sphincter':
  1119. cls
  1120. mfcclients = 0
  1121. webpopular += 2
  1122. backmfc = 0
  1123. if pcs_apprnc > 100:
  1124. tokens += RAND(50,100)
  1125. else
  1126. tokens += RAND(40,75)
  1127. end
  1128. if webpopular < 15:
  1129. tokens += RAND(25,50)
  1130. elseif webpopular >= 15 and webpopular < 35:
  1131. tokens += RAND(50,100)
  1132. elseif webpopular >= 35 and webpopular < 75:
  1133. tokens += RAND(100,150)
  1134. elseif webpopular >= 75:
  1135. tokens += RAND(100,200)
  1136. end
  1137. gs 'stat'
  1138. if analplugIN = 0:
  1139. if cumsumass > 39:
  1140. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore74.jpg"></center>'
  1141. 'You turn your back to the camera and pull your ass cheeks aside, showing everyone your battered anus. When you push softly, you suddenly hear the chat exploding.'
  1142. '"Oh my god, is that sperm!?" someone wonders.'
  1143. '"Definitely! What a whore!" someone else adds.'
  1144. '"I''d love to add my load to that!" a third one laughs.'
  1145. 'Oh no! Your face turns a deep red... you''re so ashamed right now! You try to calm the chat down, but the vulgar comments just keep coming and coming.'
  1146. 'At least the visitor who promised to donate did, so you''re a few tokens richer.'
  1147. gs 'arousal', 'porn', 2, 'exhibitionism'
  1148. gs 'stat'
  1149. else
  1150. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore20,<<rand(0,7)>>.jpg"></center>'
  1151. 'You bite your lip for a second, trying to think of a way to get out of his request. Then, you sigh and show them your rectum. It''s obviously quite used to having objects shoved in, something your audience notices immediately.'
  1152. 'Then your greed overcomes you. They already know... you might as well earn some money by showing them properly, right?'
  1153. 'You pull your ass cheeks aside, giving them a good view of your worn out anus.'
  1154. gs 'arousal', 'porn', 2, 'exhibitionism'
  1155. gs 'stat'
  1156. end
  1157. else
  1158. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore21.jpg"></center>'
  1159. 'You smile to yourself, he''s going to love what you have in store for him!'
  1160. '"I''m sorry", you tell him, explicitly mentioning his username as well. "I can''t right now..."'
  1161. 'Then you turn around, and show him the large plug you currently have shoved inside you. You wiggle your ass seductively at the camera, and hear the donation sound mere seconds later.'
  1162. gs 'arousal', 'porn', 2, 'exhibitionism'
  1163. gs 'stat'
  1164. end
  1165. act 'Continue':gt 'Komp','waitclients'
  1166. end
  1167. act 'Ignore him':
  1168. cls
  1169. gt 'Komp','waitclients'
  1170. end
  1171. end
  1172. if webpopular >= 15 and pcs_ass >= 15 and clientask = 89:
  1173. cls
  1174. gt 'kompMFCtwo'
  1175. end
  1176. if webpopular < 50 and clientask = 88:
  1177. cls
  1178. gt 'kompMFCtwo'
  1179. end
  1180. if webpopular >= 50 and pcs_vag >= 35 and clientask = 87:
  1181. cls
  1182. gt 'kompMFCtwo'
  1183. end
  1184. if webpopular >= 35 and pcs_vag >= 25 and alko >= 8 and clientask = 86:
  1185. cls
  1186. gt 'kompMFCtwo'
  1187. end
  1188. if webpopular >= 50 and pcs_vag > 0 and pcs_ass > 0 and alko >= 8 and sub > 50 and clientask = 85:
  1189. cls
  1190. gt 'kompMFCtwo'
  1191. end
  1192. if backmfc = 0 and webpopular >= 25 and pcs_vag >= 30 and pcs_ass >= 30 and alko >= 8 and clientask = 84:
  1193. cls
  1194. gt 'kompMFCtwo'
  1195. end
  1196. if backmfc = 0 and pcs_vag > 20 and clientask = 83:
  1197. cls
  1198. gt 'kompMFCtwo'
  1199. end
  1200. if webpopular > 25 and backmfc = 0 and sub > 25 and pcs_vag > 10 and prezik > 0 and clientask = 82:
  1201. cls
  1202. gt 'kompMFCtwo'
  1203. end
  1204. if backmfc = 0 and webpopular >= 50 and pcs_ass > 25 and clientask = 81:
  1205. cls
  1206. gt 'kompMFCtwo'
  1207. end
  1208. ! if backmfc = 0 and webpopular >= 50 and pcs_ass > 10 and pcs_vag > 10 and sub > 50 and alko >= 6 and clientask = 80:
  1209. ! cls
  1210. ! gt 'kompMFCtwo'
  1211. ! end
  1212. if backmfc = 0 and clientask = 90:
  1213. cls
  1214. 'One of the visitors asks: "Do you have a vibrator or dildo? I want you to put up a little show..."'
  1215. gt 'kompMFC'
  1216. end
  1217. if topmfc = 1 and clientask < 81:
  1218. act 'Take off your bra':
  1219. cls
  1220. mfcclients = 0
  1221. topmfc = 0
  1222. gs 'stat'
  1223. if backmfc = 1:
  1224. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore4.jpg"></center>'
  1225. end
  1226. if backmfc = 0:
  1227. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore5.jpg"></center>'
  1228. end
  1229. 'Even though no one requested you to do so, you figure showing off your nice boobs might get some more viewers into the channel. You slowly take off your bra and wiggle your breasts seductively at the camera.'
  1230. gs 'arousal', 'porn', 2, 'exhibitionism'
  1231. gs 'stat'
  1232. act 'Continue':gt 'Komp','waitclients'
  1233. end
  1234. end
  1235. if topmfc = 0 and clientask < 81:
  1236. act 'Idly play with your boobs':
  1237. cls
  1238. if webpopular < 15:
  1239. camclients += RAND(3,6)
  1240. elseif webpopular >= 15 and webpopular < 35:
  1241. camclients += RAND(5,10)
  1242. elseif webpopular >= 35 and webpopular < 75:
  1243. camclients += RAND(10,20)
  1244. elseif webpopular >= 75:
  1245. camclients += RAND(15,35)
  1246. end
  1247. if alko >= 4:
  1248. gs 'pain', 2, 'slap', 'breasts'
  1249. end
  1250. chancetips = RAND(0,100)
  1251. if chancetips >= 85:
  1252. tokens += RAND(2,10)
  1253. end
  1254. gs 'stat'
  1255. if alko >= 4:
  1256. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore80.jpg"></center>'
  1257. else
  1258. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore9.jpg"></center>'
  1259. end
  1260. 'You chat with your visitors for a little while, but begin to play with your boobs absent-mindedly in a slow moment. It feels quite nice! You knead your boobs and play with them more and more intently, almost completely forgetting about the camera.'
  1261. gs 'arousal', 'porn', 2, 'exhibitionism'
  1262. gs 'stat'
  1263. act 'Continue':gt 'Komp','waitclients'
  1264. end
  1265. end
  1266. if backmfc = 1 and clientask < 81:
  1267. act 'Take off your panties':
  1268. cls
  1269. mfcclients = 0
  1270. backmfc = 0
  1271. gs 'stat'
  1272. if topmfc = 1:
  1273. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore5.jpg"></center>'
  1274. end
  1275. if topmfc = 0:
  1276. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore6.jpg"></center>'
  1277. end
  1278. 'You know that the fewer clothes you have on, the more visitors will be inclined to check out your channel. You slowly take off your panties in front of the camera, rewarding the viewers already in your channel to a free show when you expose your naked pussy to them.'
  1279. gs 'arousal', 'porn', 2, 'exhibitionism'
  1280. gs 'stat'
  1281. act 'Continue':gt 'Komp','waitclients'
  1282. end
  1283. end
  1284. if backmfc = 0 and clientask < 81:
  1285. act 'Play with your pussy':
  1286. cls
  1287. if webpopular < 15:
  1288. camclients += RAND(5,10)
  1289. elseif webpopular >= 15 and webpopular < 35:
  1290. camclients += RAND(10,15)
  1291. elseif webpopular >= 35 and webpopular < 75:
  1292. camclients += RAND(10,30)
  1293. elseif webpopular >= 75:
  1294. camclients += RAND(15,40)
  1295. end
  1296. chancetips = RAND(0,100)
  1297. if chancetips >= 75:
  1298. tokens += RAND(10,15)
  1299. end
  1300. gs 'stat'
  1301. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore11.jpg"></center>'
  1302. 'You get bored during a slow moment in the chat, and begin to play with your pussy without giving it another thought.'
  1303. '"How does that feel, girl?" one of your visitors asks. "I bet you love fingering yourself, with a bunch of strangers watching you!" another adds.'
  1304. 'Giving them a defensive smile, you shrug and reply with one hand, while you keep rubbing your clit slowly with the other.'
  1305. gs 'arousal', 'porn', 2, 'exhibitionism'
  1306. gs 'arousal', 'vaginal_finger', 2, 'exhibitionism'
  1307. minut -= 2
  1308. gs 'stat'
  1309. if pcs_horny >= 100:
  1310. webpopular -= 1
  1311. mfccum += 1
  1312. pcs_mood = 100
  1313. gs 'stat'
  1314. 'Oh crap! You misjudged your endurance, and suddenly squirm and gasp in front of the camera. You''re having an orgasm!'
  1315. 'When it subsides, you look at your current viewer count. Damn... you just came in front of <<camclients>> users, completely free of charge!'
  1316. $orgasm_or = 'yes'
  1317. gs 'stat'
  1318. end
  1319. act 'Continue':gt 'Komp','waitclients'
  1320. end
  1321. end
  1322. if backmfc = 0 and clientask < 81:
  1323. act'Play with your ass':
  1324. cls
  1325. if webpopular < 15:
  1326. camclients += RAND(5,10)
  1327. elseif webpopular >= 15 and webpopular < 35:
  1328. camclients += RAND(10,15)
  1329. elseif webpopular >= 35 and webpopular < 75:
  1330. camclients += RAND(10,30)
  1331. elseif webpopular >= 75:
  1332. camclients += RAND(15,40)
  1333. end
  1334. if pcs_ass < 10:analplay += 1
  1335. mfcclients = 0
  1336. minut += 2
  1337. pcs_horny += RAND(5,10)
  1338. chancetips = RAND(0,100)
  1339. if chancetips >= 60:
  1340. tokens += RAND(10,20)
  1341. end
  1342. gs 'stat'
  1343. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore45.jpg"></center>'
  1344. 'You put two fingers in your mouth and generously cover them in saliva, and then turn your back to the camera. Much to the appreciation of your viewers, you give them a short preview of what an anal show would look like from you. You finger your anus for the camera for a little while, giving your viewers a happy smile the whole time.'
  1345. gs 'arousal', 'porn', 2, 'exhibitionism'
  1346. gs 'arousal', 'anal_finger', 2, 'exhibitionism'
  1347. minut -= 2
  1348. gs 'stat'
  1349. if pcs_horny >= 100:
  1350. webpopular -= 1
  1351. mfccum += 1
  1352. pcs_mood = 100
  1353. gs 'stat'
  1354. $orgasm_or = 'custom'
  1355. $orgasm_txt = 'It feels too good to stop! Before you know it, your fingers are repeatedly penetrating your ass and you moan excitedly, barely keeping yourself from screaming. You just had an anal orgasm in front of <<camclients>> users, completely free of charge! Oops...'
  1356. gs 'stat'
  1357. end
  1358. act'Continue':gt'Komp','waitclients'
  1359. end
  1360. end
  1361. if topmfc = 0 and pain['nippleR'] < 10 and pain['nippleL'] < 10 and clientask < 81:
  1362. act'Pinch your nipples hard':
  1363. cls
  1364. if webpopular < 15:
  1365. camclients += RAND(5,10)
  1366. elseif webpopular >= 15 and webpopular < 35:
  1367. camclients += RAND(10,15)
  1368. elseif webpopular >= 35 and webpopular < 75:
  1369. camclients += RAND(10,30)
  1370. elseif webpopular >= 75:
  1371. camclients += RAND(15,40)
  1372. end
  1373. mfcclients = 0
  1374. gs 'pain', 2, 'pinch', 'nipples'
  1375. chancetips = RAND(0,100)
  1376. if chancetips >= 75:
  1377. tokens += RAND(20,40)
  1378. end
  1379. gs 'stat'
  1380. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore80.jpg"></center>'
  1381. 'You''re getting too turned on, and need to slow yourself down a little!'
  1382. 'You tightly pinch your nipples and pull hard on them. It hurts a lot, and the sharp pain lowers your excitement by quite a lot. Nevertheless, your viewers enjoy the free show and have no idea you actually did that for your own good.'
  1383. gs 'arousal', 'porn', 2, 'exhibitionism'
  1384. gs 'stat'
  1385. act'Continue':gt'Komp','waitclients'
  1386. end
  1387. end
  1388. if sisterHere > 0 and $loc = 'bedrPar':
  1389. cls
  1390. topmfc = 1
  1391. backmfc = 1
  1392. karta += tokens/2
  1393. gs 'stat'
  1394. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore2.jpg"></center>'
  1395. 'Suddenly you hear the handle of your door creak, and an annoyed voice shouting: "<<$pcs_nickname>>, what the hell!? Why is the door locked? Let me in!"'
  1396. 'Oh crap, it''s your sister! "Sorry everyone, show''s over!" you whisper to the camera, and you slap your laptop shut. You quickly put your clothes back on and open your door, trying to avoid the scrutinizing gaze of your sister.'
  1397. 'When she''s no longer paying attention to you, you open your laptop again and find yourself in the main lobby of MyFreeCams. You''re a bit bummed that you couldn''t get more out of that session, but cash in your earnings.'
  1398. act 'Continue':gt 'Komp','mfc'
  1399. else
  1400. act 'Turn off the webcam':gt 'Komp','startpagemfc'
  1401. end
  1402. end
  1403. if $ARGS[0] = 'bank':
  1404. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/online_bank.jpg"></center>'
  1405. if karta + bankDebtLimit >= 10:
  1406. *pl
  1407. 'You can buy prepaid internet access online through your bank account. 1 hour of internet only costs 10 <b>₽</b>! *'
  1408. *pl
  1409. if karta >= 0:
  1410. 'You have <<karta>> <b>₽</b> in your account.'
  1411. 'You have an overdraft limit of <font color="blue"><<bankDebtLimit>></font>!'
  1412. else
  1413. 'You are overdrawn by <font color="red"><<-1 * karta>> <b>₽</b></font>.'
  1414. 'You have a remaining credit limit of <font color="blue"><<bankDebtLimit + karta>></font>!'
  1415. end
  1416. *pl
  1417. act 'Buy internet time':
  1418. cla
  1419. intinp = input ("How many hours of internet access do you wish to purchase? (1hr = 10 <b>₽</b>)")
  1420. if intinp <= 0 or intinp * 10 > karta + bankDebtLimit:
  1421. 'Invalid amount.'
  1422. else
  1423. karta -= intinp * 10
  1424. internet += intinp
  1425. 'You pay for <<intinp>> hours of prepaid internet access. You have a total of <<internet>> hours of internet access remaining.'
  1426. '<<intinp * 10>> <b>₽</b> was removed from your account to pay for it.'
  1427. end
  1428. act 'Continue': gt 'Komp', 'bank'
  1429. end
  1430. end
  1431. act 'Close your browser':gt 'Komp', 'start'
  1432. end
  1433. --- Komp ---------------------------------