1
0

Komp 38 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536
  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. 'Your computer starts up and loads Windows.'
  9. act 'Play Patience (1:00)':gt 'Komp', 'pasians'
  10. if GameCD > 0:act 'Play Disopl':gt 'KGDstart'
  11. if GameCD2 > 0:act 'Play Sunset Dead':gt 'KGZstart'
  12. if GameCD3 > 0:act 'Play Albido':gt 'FSstart'
  13. !!act 'SunReview of the Dead':gt 'KGZstart'
  14. if student > 0 and kursovik < 100:'<a href="exec:GT ''Komp'',''kursak''">Get some of your course work done.</a>'
  15. if $LOC = 'shulga_room':
  16. internet = 100000
  17. act 'Browser':gt 'Komp', 'brows'
  18. else
  19. 'You have <<internet>> hours of Internet access remaining.'
  20. if internet > 0:
  21. act 'Browser':gt 'Komp', 'brows'
  22. end
  23. end
  24. act 'Shut your computer down':
  25. if $LOC = 'shulga_room':
  26. internet = internetS
  27. end
  28. cla
  29. gt 'Komp', 'fin'
  30. end
  31. end
  32. if $ARGS[0] = 'brows':
  33. cls
  34. gs 'stat'
  35. if internet = 0:
  36. '<center><b>Browser</b></center>'
  37. '<center><img src="images/pics/komp/eror.jpg"></center>'
  38. 'You need to buy more Internet access.'
  39. else
  40. '<center><img src="images/pics/komp.jpg"></center>'
  41. 'You go to Google.'
  42. '<a href="exec:GT ''Komp'',''agent''">Site agentsvo property</a>'
  43. act 'Interior design website (1:00)':gt 'Komp', 'remont'
  44. if housr = 1 and husband = 0:act 'Rent your apartment out':gt 'Komp', 'sale'
  45. act 'Porn (1:00)':gt 'Komp', 'porno'
  46. act 'Search for love (1:00)':gt 'Komp', 'znak'
  47. if hour < 20 and hour > 7:act 'Jobs site':gt 'Komp', 'rabota'
  48. act 'Cable TV services (1:00)':gt 'Komp', 'kabtv'
  49. act 'Online gaming':gt 'KGstart'
  50. if bankAccount > 0: act 'Online banking': gt 'Komp', 'bank'
  51. if shantfoto > 0:act 'Search for the heroine you photoed on "Assbook" wesite':gt 'Komp', 'foto'
  52. if gor_dorm = 7:act 'Read letter from Eugene':gt 'etoexhib', 'pos91'
  53. if camwhore = 1:act 'Go to MyFreeCams.org':gt 'Komp', 'mfc'
  54. if SchoolAtestat = 0 or student > 0:act 'Spend time studying':gt 'Komp', 'study'
  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 src="images/pics/komp.jpg"></center>'
  67. 'You log into to a popular free ads website.'
  68. if obkvsdam = 0 and housrA = 1:
  69. act 'Rent out your apartment':obkvsdam = 1 & gt 'Komp', 'sale'
  70. elseif obkvsdam > 0:
  71. act 'Check responses to your ad':
  72. cla
  73. if obkvsdam = 1:
  74. 'No one has responded to your apartment advert'
  75. elseif obkvsdam > 1:
  76. if obkvsdam = 2:predsumm = 7000
  77. if obkvsdam = 3:predsumm = 8000
  78. if obkvsdam = 4:predsumm = 9000
  79. if obkvsdam = 5:predsumm = 10000
  80. 'Wants to stay in your apartment for a month (<<predsumm>> <b>₽</b>).'
  81. act 'Rent it out':
  82. sdaday = day
  83. sdamonth = month + 1
  84. housr = 0
  85. money += predsumm
  86. gt 'Komp', 'start'
  87. end
  88. end
  89. act 'Leave':gt 'Komp', 'brows'
  90. end
  91. end
  92. act 'Leave':gt 'Komp', 'brows'
  93. end
  94. if $ARGS[0] = 'remont':
  95. cla
  96. clr
  97. *clr
  98. minut += 60
  99. elektro += 3
  100. internet -= 1
  101. gs 'stat'
  102. '<center><img src="images/pics/komp.jpg"></center>'
  103. 'You are log in to a local interior designers website.'
  104. if housr = 1:
  105. if rembedr = 0:
  106. act 'Refurbished bedrooms (50,000 <b>₽</b>)':
  107. if money >= 50000:
  108. cla
  109. rembedr = 1
  110. money -= 50000
  111. 'You pay the money and just like magic, it''s all done and looks fabulous.'
  112. else
  113. cla
  114. 'Unfortunately, you do not have enough money.'
  115. end
  116. act 'Leave':gt 'Komp', 'remont'
  117. end
  118. end
  119. if remsitr = 0:
  120. act 'Renovate hall (50,000 <b>₽</b>)':
  121. if money >= 50000:
  122. cla
  123. remsitr = 1
  124. money -= 50000
  125. 'You pay the money and just like magic, it''s all done and looks fabulous.'
  126. else
  127. cla
  128. 'Unfortunately, you do not have enough money.'
  129. end
  130. act 'Leave':gt 'Komp', 'remont'
  131. end
  132. end
  133. if remkorr = 0:
  134. act 'Repair corridor (50,000 <b>₽</b>)':
  135. if money >= 50000:
  136. cla
  137. remkorr = 1
  138. money -= 50000
  139. 'You pay the money and just like magic, it''s all done and looks fabulous.'
  140. else
  141. cla
  142. 'Unfortunately, you do not have enough money.'
  143. end
  144. act 'Leave':gt 'Komp', 'remont'
  145. end
  146. end
  147. if remvanr = 0:
  148. act 'Renovate the bathroom (50,000 <b>₽</b>)':
  149. if money >= 50000:
  150. cla
  151. remvanr = 1
  152. money -= 50000
  153. 'You pay the money and just like magic, it''s all done and looks fabulous.'
  154. else
  155. cla
  156. 'Unfortunately, you do not have enough money.'
  157. end
  158. act 'Leave':gt 'Komp', 'remont'
  159. end
  160. end
  161. if remkuhr = 0:
  162. act 'Renovate a kitchen (50,000 <b>₽</b>)':
  163. if money >= 50000:
  164. cla
  165. remkuhr = 1
  166. money -= 50000
  167. 'You pay the money and just like magic, it''s all done and looks fabulous.'
  168. else
  169. cla
  170. 'Unfortunately, you do not have enough money.'
  171. end
  172. act 'Leave':gt 'Komp', 'remont'
  173. end
  174. end
  175. end
  176. act 'Leave':gt 'Komp', 'brows'
  177. end
  178. if $ARGS[0] = 'porno':
  179. cla
  180. clr
  181. *clr
  182. minut += 60
  183. manna += 5
  184. elektro += 3
  185. willpower += rand(5, 10)
  186. manna += rand(10, 50)
  187. horny += 30
  188. internet -= 1
  189. gs 'stat'
  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 your computer and with one hand begin to fondle your breasts, then click on a link to something really dirty.'
  199. '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 hot and bothered.'
  200. if horny >= 100:
  201. orgasm += 1
  202. horny = 0
  203. 'Suddenly a your muscles tighten and you cum powerfully, moaning gently.'
  204. end
  205. act 'Finish':divanmastr = 0 & gt 'Komp', 'porno'
  206. if horny >= 50:act 'Proceed':dynamic $pornomastr
  207. }
  208. if internet = 0:
  209. '<center><b>Browser</b></center>'
  210. '<center><img src="images/pics/komp/eror.jpg"></center>'
  211. 'You need to buy more Internet access.'
  212. act '<B>Close the browser</B>':gt 'Komp','start'
  213. else
  214. '<center><img src="images/pics/komp.jpg"></center>'
  215. 'You go to a porn site.'
  216. act 'Watch porn':
  217. cla
  218. '<center><img src="images/etogame/porno.jpg"></center>'
  219. 'You spend some time watching porn.'
  220. act 'Finish':gt 'Komp', 'porno'
  221. end
  222. if horny >= 50:act 'Masturbate (1:00)':dynamic $pornomastr
  223. act 'Leave':gt 'Komp', 'brows'
  224. end
  225. end
  226. if $ARGS[0] = 'pasians':
  227. cla
  228. clr
  229. *clr
  230. minut += 20
  231. manna += 5
  232. elektro += 3
  233. willpower += rand(5, 10)
  234. manna += rand(10, 50)
  235. gs 'stat'
  236. '<center><img src="images/pics/komp.jpg"></center>'
  237. 'You entertain yourself for an hour playing solitaire on the computer.'
  238. act 'Play for another 20 minutes':gt 'Komp', 'pasians'
  239. act 'Enough Solitaire':gt 'Komp', 'start'
  240. end
  241. if $ARGS[0] = 'znak':
  242. cla
  243. clr
  244. *clr
  245. minut += 60
  246. manna += 5
  247. elektro += 3
  248. internet -= 1
  249. gs 'stat'
  250. '<center><img src="images/pics/komp.jpg"></center>'
  251. 'You are log on to a dating site.'
  252. 'There''s plenty of hot men, if you''re single.'
  253. if gor_dorm = 8:
  254. act 'Pick someone suitable for Eugenia':
  255. cla
  256. gor_dorm = 9
  257. 'You shovel through dozens of profiles, before choosing a candidate suitable in all regards and send them a message with a proposal to meet.'
  258. 'Now the waiting game, let''s hope it works out for her.'
  259. act 'Leave':gt 'Komp', 'brows'
  260. end
  261. elseif housrA = 0:
  262. manna += 3
  263. willpower += rand(5, 10)
  264. manna += rand(10, 50)
  265. 'You spend time looking at the various profiles, but it won''t let you register unless you have your own home.'
  266. 'Still, some of the pictures were quite raunchy and the more desperate profiles were really funny.'
  267. else
  268. if bfA <= 0:
  269. act 'Look for a kind man':
  270. cla
  271. gs 'boy'
  272. gs 'boyfrend', 'start'
  273. stopboy = 0
  274. harakBoyA = 0
  275. 'You find a guy named <<$boyA>>, check out his profile and send him your number hoping that he will call you.'
  276. act 'Leave':gt 'Komp', 'brows'
  277. end
  278. act 'Look for a normal guy':
  279. cla
  280. gs 'boy'
  281. gs 'boyfrend', 'start'
  282. stopboy = 0
  283. harakBoyA = 1
  284. 'You find a guy named <<$boyA>>, check out his profile and send him your number hoping that he will call you.'
  285. act 'Leave':gt 'Komp', 'brows'
  286. end
  287. act 'Look for a strong man':
  288. cla
  289. gs 'boy'
  290. gs 'boyfrend', 'start'
  291. stopboy = 0
  292. harakBoyA = 2
  293. 'You find a guy named <<$boyA>>, check out his profile and send him your number hoping that he will call you.'
  294. act 'Leave':gt 'Komp', 'brows'
  295. end
  296. end
  297. end
  298. act 'Leave':gt 'Komp', 'brows'
  299. end
  300. if $ARGS[0] = 'kabtv':
  301. cla
  302. clr
  303. *clr
  304. minut += 60
  305. elektro += 3
  306. internet -= 1
  307. gs 'stat'
  308. '<center><img src="images/pics/komp.jpg"></center>'
  309. 'You are log in to the website of the local cable TV provider.'
  310. if kabel = 1:
  311. 'You have a cable TV (subscription: 300 <b>₽</b> per month payable on the 25th)'
  312. act 'Cancel cable TV':
  313. cla
  314. kabel = 0
  315. money -= 300
  316. 'Your cable channels have been canceled, diconnection charge 300 <b>₽</b>'
  317. gt 'Komp', 'kabtv'
  318. end
  319. elseif kabel = 0 and TV = 1:
  320. 'You do not have cable TV'
  321. act 'Connect cable TV':
  322. cla
  323. 'Unfortunately your TV is too old for cable'
  324. gt 'Komp', 'kabtv'
  325. end
  326. elseif kabel = 0 and TV >= 2:
  327. 'You do not have cable TV'
  328. act 'Connect Cable TV (300 <b>₽</b> per month)':
  329. cla
  330. kabel = 1
  331. 'You''re hooked up to cable TV services'
  332. gt 'Komp', 'kabtv'
  333. end
  334. else
  335. 'You don''t even have a TV!'
  336. act 'Leave':gt 'Komp', 'start'
  337. end
  338. act 'Leave':gt 'Komp', 'start'
  339. end
  340. if $ARGS[0] = 'foto':
  341. cla
  342. *clr
  343. elektro += 3
  344. internet -= 1
  345. gs 'stat'
  346. '<center><img src="images/pics/komp.jpg"></center>'
  347. 'You are logged in to the social network site "Assbook."'
  348. if shantfoto > 0:
  349. act 'Search':
  350. cla
  351. minut += 60
  352. fotsearchrand = rand(0, 10)
  353. if fotsearchrand <= 7:
  354. 'You did not find anyone, maybe better luck later.'
  355. act 'Finish':gt 'Komp', 'foto'
  356. end
  357. if fotsearchrand > 7:
  358. shantfoto -= 1
  359. 'You found the heroine from the photo shoot'
  360. gerofotorand = rand(0, 100)
  361. if gerofotorand > 30:
  362. 'Judging by the photos on her page this poor girl and not worth blackmailing.'
  363. act 'Finish':gt 'Komp', 'foto'
  364. end
  365. if gerofotorand >= 5 and gerofotorand <= 30:
  366. shantsr += 1
  367. 'Judging by the photos on her page she is an unknown middle class girl. You send her photo and ask for 5000 <b>₽</b> to be transferred to your account.'
  368. act 'Finish':gt 'Komp', 'foto'
  369. end
  370. if gerofotorand < 5:
  371. shantbog += 1
  372. 'Judging by the photos on her page this lady has a position in society worth protecting. You send her photo and ask for 30,000 <b>₽</b> to be transferred to your account.'
  373. act 'Finish':gt 'Komp', 'foto'
  374. end
  375. end
  376. end
  377. end
  378. act 'Browser':gt 'Komp', 'brows'
  379. end
  380. if $ARGS[0] = 'rabota':
  381. cla
  382. *clr
  383. minut += 60
  384. internet -= 1
  385. komprabota = rand(0, 10)
  386. if $LOC = 'shulga_room':komprabota = rand(5, 15)
  387. gs 'stat'
  388. if internet = 0:
  389. '<center><b>Browser</b></center>'
  390. '<center><img src="images/pics/komp/eror.jpg"></center>'
  391. 'You need to buy more Internet access.'
  392. act '<B>Close the browser</B>':gt 'Komp','start'
  393. else
  394. '<center><img src="images/pics/komp.jpg"></center>'
  395. if komprabota = 0 and gorodokKomp = 0:
  396. 'You find an ad: "Wanted female underwear model, for photoshoot. Pay 2000 <b>₽</b>."'
  397. if vnesh < 120:
  398. 'This knid of work isn''t for you'
  399. elseif vnesh >= 120:
  400. act 'Do it':gt 'qjob', 'var1'
  401. end
  402. if hour < 20 and hour > 7:act 'Search more':gt 'Komp', 'rabota'
  403. act 'Finish':gt 'Komp', 'brows'
  404. elseif komprabota = 1 and gorodokKomp = 0:
  405. 'You find an ad: "Wanted female underwear model, for photoshoot. Pay 2000 <b>₽</b>."'
  406. if vnesh < 120:'This knid of work isn''t for you'
  407. if vnesh >= 120:
  408. act 'Do it':gt 'qjob', 'var2'
  409. end
  410. if hour < 20 and hour > 7:act 'Search more':gt 'Komp', 'rabota'
  411. act 'Finish':gt 'Komp', 'brows'
  412. elseif komprabota > 1 and komprabota < 5 and gorodokKomp = 0:
  413. 'You find an ad: "Artist requires female real life model, well presented, cash, 1000 <b>₽</b>."'
  414. if vnesh < 60:
  415. 'This knid of work isn''t for you'
  416. elseif vnesh >= 60:
  417. act 'Do it':gt 'qjob', 'var3'
  418. end
  419. if hour < 20 and hour > 7:act 'Search more':gt 'Komp', 'rabota'
  420. act 'Finish':gt 'Komp', 'brows'
  421. elseif komprabota > 4 and komprabota < 8 and Intel >= 50 and camwhore = 0:
  422. 'You stumble across on the ad, which says that a website requires webcam models.'
  423. act 'Interest':
  424. cls
  425. minut += 5
  426. gs 'stat'
  427. '<center><img src="images/camwhore/camwhore1.jpg"></center>'
  428. 'Quickly reading through the ad, you know, that for this job you will have to expose your body in front of customers, fulfilling their wishes.'
  429. 'For which, naturally, you will be paid on-line, which the site admin will transfer to your Bank account.'
  430. 'The site prevents access for customers in your region, so the chance of you being seen by someone you know in real life, is very low.'
  431. 'The amount of payment depends on the popularity of your chatroom, the more you will be able to attract users, the more you earn. Basically, it all depends on you.'
  432. act 'Fill in the questionnaire':
  433. cls
  434. camwhore = 1
  435. mfcclients = 0
  436. camclients = 0
  437. mfccum = 0
  438. minut += 20
  439. gs 'stat'
  440. '<center><img src="images/camwhore/camwhore2.jpg"></center>'
  441. 'You go to the website, and register yourself on it as a model. Ten minutes later, the questionnaire has already been approved and you can now earn money as a webcam girl.'
  442. 'It will be necessary for you to have a webcam and if you don''t have one, they are easy to find in local supermarkets.'
  443. act 'Finish':gt 'Komp','brows'
  444. end
  445. act 'Return':gt 'Komp','brows'
  446. end
  447. if hour < 20 and hour > 7:act 'Search More':gt 'Komp','rabota'
  448. act 'Finish':gt 'Komp','brows'
  449. else
  450. 'You did not find anything suitable.'
  451. if hour < 20 and hour > 7:act 'Search More':gt 'Komp','rabota'
  452. act 'Finish':gt 'Komp','brows'
  453. end
  454. end
  455. end
  456. if $ARGS[0] = 'study':
  457. cla
  458. *clr
  459. minut = minut + 60
  460. elektro = elektro + 3
  461. internet -= 1
  462. intel += 1
  463. '<center><b>The Institute for Education Measurement</b></center>'
  464. '<center><img src="images/pics/komp/study.jpg"></center>'
  465. 'You spend an hour reading news and educational websites, you feel a little smarter.'
  466. act 'Finish':gt'Komp','brows'
  467. end
  468. if $ARGS[0] = 'kursak':
  469. cla
  470. *clr
  471. minut += 60
  472. elektro += 3
  473. internet -= 1
  474. manna -= 10
  475. kursovik = kursovik + RAND(intel/20,intel/10)
  476. if kursovik > 100:kursovik = 100
  477. '<center><b>Coursework</b></center>'
  478. '<center><img src="images/pics/komp/kursak.jpg"></center>'
  479. 'You spend an hour on your course work and have now completed <<kursovik>>%.'
  480. act 'Finish':gt 'Komp','brows'
  481. end
  482. if $ARGS[0] = 'agent':
  483. cla
  484. clr
  485. *clr
  486. minut += 60
  487. elektro += 3
  488. internet -= 1
  489. gs 'stat'
  490. '<center><b>CAit estate agency</b></center>'
  491. '<center><img src="images/pics/komp/agent.jpg"></center>'
  492. 'You log on to an estate agents website.'
  493. 'Here you can rent an apartment online for 6000 <b>₽</b>.'
  494. ''
  495. if ArendHouseSL > 0:'You have <B><<ArendHouseSL>> days</B> rental.'
  496. if karta >= 6000 and BuyHous ! 1:
  497. act 'Rent apartment online':
  498. cla
  499. karta -= 6000
  500. housr = 1
  501. BuyHous = 2
  502. ArendHouseSL += 30
  503. 'You get the easy to rent apartment in the residential area for 30 days. Now you have <B><<ArendHouseSL>> days</B> rental.'
  504. act 'Finish':gt 'Komp','brows'
  505. end
  506. end
  507. act 'Finish':gt 'Komp','brows'
  508. end
  509. if $ARGS[0] = 'fin':
  510. gt $locM, $metkaM
  511. end
  512. if $ARGS[0] = 'mfc':
  513. if mesec > 0:
  514. cls
  515. minut += 2
  516. topmfc = 1
  517. backmfc = 1
  518. tokens = 0
  519. camclients = 0
  520. gs 'stat'
  521. '<center><img src="images/camwhore/camwhore2.jpg"></center>'
  522. 'You time of the month, you are too unwell for the show - sick, stomachache , dizzy, generally not the best time to earn money with your body...'
  523. act 'Close tab':gt 'Komp','brows'
  524. elseif sisterHere = 0 or $loc ! 'bedrPar':
  525. act 'Go to your mfc homepage':
  526. cls
  527. minut += 2
  528. gs 'stat'
  529. '<center><img src="images/camwhore/camwhore3.jpg"></center>'
  530. 'You enter your chatroom on the website. At the moment you have <<camclients>> visitors.'
  531. act 'Further':gt 'komp','startpagemfc'
  532. end
  533. act 'Close tab':
  534. cls
  535. minut += 2
  536. topmfc = 1
  537. backmfc = 1
  538. tokens = 0
  539. camclients = 0
  540. gs 'stat'
  541. gt 'Komp','brows'
  542. end
  543. elseif sisterHere > 0 and $loc = 'bedrPar':
  544. cls
  545. minut += 2
  546. topmfc = 1
  547. backmfc = 1
  548. tokens = 0
  549. camclients = 0
  550. gs 'stat'
  551. '<center><img src="images/camwhore/camwhore2.jpg"></center>'
  552. 'You are not alone in the room.'
  553. act 'Close tab':gt 'Komp','brows'
  554. end
  555. end
  556. if $ARGS[0] = 'startpagemfc':
  557. if vgape > 0 or agape > 0:
  558. cls
  559. gs 'stat'
  560. 'You feel too bad to put on a show.'
  561. act 'Close tab':
  562. karta += tokens/2
  563. gt 'Komp','mfc'
  564. end
  565. else
  566. cls
  567. gs 'stat'
  568. '<center><img src="images/camwhore/camwhore3.jpg"></center>'
  569. 'In your chatroom there are <<camclients>> visitors.'
  570. act 'Turn on webcam':gt 'komp','waitclients'
  571. act 'Logout':
  572. karta += tokens/2
  573. gt 'Komp','mfc'
  574. end
  575. end
  576. end
  577. if $ARGS[0] = 'waitclients':
  578. cls
  579. minut = minut + RAND(1,4)
  580. if mfccum = 0:
  581. manna = manna - RAND(0,3)
  582. elseif mfccum = 1:
  583. mfcdaycum = daystart
  584. manna = manna - RAND(1,3)*mfccum
  585. elseif mfccum = 2:
  586. mfcdaycum = daystart
  587. manna = manna - RAND(2,5)*mfccum
  588. elseif mfccum = 3:
  589. mfcdaycum = daystart
  590. manna = manna - RAND(5,8)*mfccum
  591. elseif mfccum = 4:
  592. mfcdaycum = daystart
  593. manna = manna - RAND(5,11)*mfccum
  594. elseif mfccum = 5:
  595. mfcdaycum = daystart
  596. manna = manna - RAND(7,12)*mfccum
  597. elseif mfccum > 5:
  598. mfcdaycum = daystart
  599. manna = manna - RAND(10,20)*mfccum
  600. end
  601. mfcclients += 1
  602. if vnesh < 100:
  603. if topmfc = 1 and backmfc = 1:
  604. if webpopular < 15:
  605. if mfcclients > 3:
  606. camclients -= RAND(1,3)
  607. else
  608. camclients += RAND(1,3)
  609. end
  610. elseif webpopular >= 15 and webpopular < 35:
  611. if mfcclients > 3:
  612. camclients -= RAND(3,5)
  613. else
  614. camclients += RAND(3,5)
  615. end
  616. elseif webpopular >= 35 and webpopular < 75:
  617. if mfcclients > 3:
  618. camclients -= RAND(4,8)
  619. else
  620. camclients += RAND(4,8)
  621. end
  622. elseif webpopular >= 75:
  623. if mfcclients > 3:
  624. camclients -= RAND(5,15)
  625. else
  626. camclients += RAND(5,15)
  627. end
  628. end
  629. chancetips = RAND(0,100)
  630. clientask = RAND(0,100)
  631. if chancetips >= 95 and camclients >= 250:
  632. if webpopular >= 50:
  633. tokens += RAND(10,30)
  634. else
  635. tokens += RAND(1,20)
  636. end
  637. end
  638. end
  639. else
  640. if topmfc = 1 and backmfc = 1:
  641. if webpopular < 15:
  642. if mfcclients > 3:
  643. camclients -= RAND(3,5)
  644. else
  645. camclients += RAND(3,5)
  646. end
  647. elseif webpopular >= 15 and webpopular < 35:
  648. if mfcclients > 3:
  649. camclients -= RAND(5,8)
  650. else
  651. camclients += RAND(5,8)
  652. end
  653. elseif webpopular >= 35 and webpopular < 75:
  654. if mfcclients > 3:
  655. camclients -= RAND(5,12)
  656. else
  657. camclients += RAND(5,12)
  658. end
  659. elseif webpopular >= 75:
  660. if mfcclients > 3:
  661. camclients -= RAND(8,15)
  662. else
  663. camclients += RAND(8,15)
  664. end
  665. end
  666. chancetips = RAND(5,100)
  667. clientask = RAND(5,100)
  668. if chancetips >= 95 and camclients >= 200:
  669. if webpopular >= 50:
  670. tokens += RAND(10,40)
  671. else
  672. tokens += RAND(1,20)
  673. end
  674. end
  675. end
  676. end
  677. if vnesh < 100:
  678. if topmfc = 0 and backmfc = 1:
  679. if webpopular < 15:
  680. if mfcclients > 3:
  681. camclients -= RAND(1,3)
  682. else
  683. camclients += RAND(1,3)
  684. end
  685. elseif webpopular >= 15 and webpopular < 35:
  686. if mfcclients > 3:
  687. camclients -= RAND(1,5)
  688. else
  689. camclients += RAND(1,5)
  690. end
  691. elseif webpopular >= 35 and webpopular < 75:
  692. if mfcclients > 3:
  693. camclients -= RAND(5,10)
  694. else
  695. camclients += RAND(5,10)
  696. end
  697. elseif webpopular >= 75:
  698. if mfcclients > 3:
  699. camclients -= RAND(6,15)
  700. else
  701. camclients += RAND(6,15)
  702. end
  703. end
  704. chancetips = RAND(5,90)
  705. clientask = RAND(5,100)
  706. if chancetips >= 85 and camclients >= 230:
  707. if webpopular >= 50:
  708. tokens += RAND(10,35)
  709. else
  710. tokens += RAND(1,20)
  711. end
  712. end
  713. end
  714. else
  715. if topmfc = 0 and backmfc = 1:
  716. if webpopular < 15:
  717. if mfcclients > 3:
  718. camclients -= RAND(3,6)
  719. else
  720. camclients += RAND(3,6)
  721. end
  722. elseif webpopular >= 15 and webpopular < 35:
  723. if mfcclients > 3:
  724. camclients -= RAND(5,10)
  725. else
  726. camclients += RAND(5,10)
  727. end
  728. elseif webpopular >= 35 and webpopular < 75:
  729. if mfcclients > 3:
  730. camclients -= RAND(7,12)
  731. else
  732. camclients += RAND(7,12)
  733. end
  734. elseif webpopular >= 75:
  735. if mfcclients > 3:
  736. camclients -= RAND(10,15)
  737. else
  738. camclients += RAND(10,15)
  739. end
  740. end
  741. chancetips = RAND(10,90)
  742. clientask = RAND(10,100)
  743. if chancetips >= 85 and camclients >= 200:
  744. if webpopular >= 50:
  745. tokens += RAND(15,35)
  746. else
  747. tokens += RAND(1,20)
  748. end
  749. end
  750. end
  751. end
  752. if vnesh < 100:
  753. if topmfc = 1 and backmfc = 0:
  754. if webpopular < 15:
  755. if mfcclients > 3:
  756. camclients -= RAND(1,3)
  757. else
  758. camclients += RAND(1,3)
  759. end
  760. elseif webpopular >= 15 and webpopular < 35:
  761. if mfcclients > 3:
  762. camclients -= RAND(2,5)
  763. else
  764. camclients += RAND(2,5)
  765. end
  766. elseif webpopular >= 35 and webpopular < 75:
  767. if mfcclients > 3:
  768. camclients -= RAND(5,15)
  769. else
  770. camclients += RAND(5,15)
  771. end
  772. elseif webpopular >= 75:
  773. if mfcclients > 3:
  774. camclients -= RAND(5,20)
  775. else
  776. camclients += RAND(5,20)
  777. end
  778. end
  779. chancetips = RAND(10,80)
  780. clientask = RAND(10,100)
  781. if chancetips >= 75 and camclients >= 200:
  782. if webpopular >= 50:
  783. tokens += RAND(10,40)
  784. else
  785. tokens += RAND(1,20)
  786. end
  787. end
  788. end
  789. else
  790. if topmfc = 1 and backmfc = 0:
  791. if webpopular < 15:
  792. if mfcclients > 3:
  793. camclients -= RAND(4,7)
  794. else
  795. camclients += RAND(4,7)
  796. end
  797. elseif webpopular >= 15 and webpopular < 35:
  798. if mfcclients > 3:
  799. camclients -= RAND(5,12)
  800. else
  801. camclients += RAND(5,12)
  802. end
  803. elseif webpopular >= 35 and webpopular < 75:
  804. if mfcclients > 3:
  805. camclients -= RAND(9,15)
  806. else
  807. camclients += RAND(9,15)
  808. end
  809. elseif webpopular >= 75:
  810. if mfcclients > 3:
  811. camclients -= RAND(15,20)
  812. else
  813. camclients += RAND(15,20)
  814. end
  815. end
  816. chancetips = RAND(15,80)
  817. clientask = RAND(15,100)
  818. if chancetips >= 75 and camclients >= 170:
  819. if webpopular >= 50:
  820. tokens += RAND(15,45)
  821. else
  822. tokens += RAND(1,20)
  823. end
  824. end
  825. end
  826. end
  827. if vnesh < 100:
  828. if topmfc = 0 and backmfc = 0:
  829. if webpopular < 15:
  830. if mfcclients > 3:
  831. camclients -= RAND(1,4)
  832. else
  833. camclients += RAND(1,4)
  834. end
  835. elseif webpopular >= 15 and webpopular < 35:
  836. if mfcclients > 3:
  837. camclients -= RAND(3,10)
  838. else
  839. camclients += RAND(3,10)
  840. end
  841. elseif webpopular >= 35 and webpopular < 75:
  842. if mfcclients > 3:
  843. camclients -= RAND(10,20)
  844. else
  845. camclients += RAND(10,20)
  846. end
  847. elseif webpopular >= 75:
  848. if mfcclients > 3:
  849. camclients -= RAND(10,30)
  850. else
  851. camclients += RAND(10,30)
  852. end
  853. end
  854. chancetips = RAND(15,50)
  855. clientask = RAND(15,100)
  856. if chancetips >= 45 and camclients >= 150:
  857. if webpopular >= 50:
  858. tokens += RAND(20,50)
  859. else
  860. tokens += RAND(5,25)
  861. end
  862. end
  863. end
  864. else
  865. if topmfc = 0 and backmfc = 0:
  866. if webpopular < 15:
  867. if mfcclients > 3:
  868. camclients -= RAND(3,8)
  869. else
  870. camclients += RAND(3,8)
  871. end
  872. elseif webpopular >= 15 and webpopular < 35:
  873. if mfcclients > 3:
  874. camclients -= RAND(3,15)
  875. else
  876. camclients += RAND(3,15)
  877. end
  878. elseif webpopular >= 35 and webpopular < 75:
  879. if mfcclients > 3:
  880. camclients -= RAND(10,20)
  881. else
  882. camclients += RAND(10,20)
  883. end
  884. elseif webpopular >= 75:
  885. if mfcclients > 3:
  886. camclients -= RAND(10,30)
  887. else
  888. camclients += RAND(10,30)
  889. end
  890. end
  891. chancetips = RAND(20,50)
  892. clientask = RAND(20,100)
  893. if chancetips >= 45 and camclients >= 100:
  894. if webpopular >= 50:
  895. tokens += RAND(30,50)
  896. else
  897. tokens += RAND(10,30)
  898. end
  899. end
  900. end
  901. end
  902. if camclients <= 0:camclients = 0
  903. gs 'stat'
  904. if topmfc = 1 and backmfc = 1:
  905. '<center><img src="images/camwhore/camwhore3.jpg"></center>'
  906. end
  907. if topmfc = 0 and backmfc = 1:
  908. '<center><img src="images/camwhore/camwhore4.jpg"></center>'
  909. end
  910. if topmfc = 1 and backmfc = 0:
  911. '<center><img src="images/camwhore/camwhore5.jpg"></center>'
  912. end
  913. if topmfc = 0 and backmfc = 0:
  914. '<center><img src="images/camwhore/camwhore6.jpg"></center>'
  915. end
  916. 'In your chatroom <<camclients>> visitors.'
  917. 'You have <<tokens>> tokens.'
  918. act 'Wait for visitors':gt 'komp','waitclients'
  919. if topmfc = 1 and clientask >= 98:
  920. cls
  921. gs 'stat'
  922. 'It seems, one of the visitors is willing to pay you for you to bare your breasts...'
  923. act 'Remove your bra':
  924. cls
  925. webpopular += 1
  926. minut += 2
  927. topmfc = 0
  928. horny += 5
  929. if webpopular < 15:
  930. tokens += RAND(10,25)
  931. elseif webpopular >= 15 and webpopular < 35:
  932. tokens += RAND(15,25)
  933. elseif webpopular >= 35 and webpopular < 75:
  934. tokens += RAND(25,50)
  935. elseif webpopular >= 75:
  936. tokens += RAND(50,150)
  937. end
  938. gs 'stat'
  939. '<center><img src="images/camwhore/camwhore7.jpg"></center>'
  940. 'You stand up so the camera can see your breasts better, slowly you remove your bra, which immediately earns tokens.'
  941. act 'Carry on':gt 'Komp','waitclients'
  942. end
  943. act 'Ignore':
  944. cls
  945. webpopular -= 1
  946. gt 'Komp','waitclients'
  947. end
  948. end
  949. if backmfc = 1 and clientask >= 96 and clientask < 98:
  950. cls
  951. 'One of the visitors asks you to remove your panties...'
  952. act 'Do it':
  953. cls
  954. mfcclients = 0
  955. webpopular += 1
  956. minut += 2
  957. backmfc = 0
  958. horny += 5
  959. if webpopular < 15:
  960. tokens += RAND(10,25)
  961. elseif webpopular >= 15 and webpopular < 35:
  962. tokens += RAND(15,25)
  963. elseif webpopular >= 35 and webpopular < 75:
  964. tokens += RAND(25,50)
  965. elseif webpopular >= 75:
  966. tokens += RAND(50,150)
  967. end
  968. gs 'stat'
  969. '<center><img src="images/camwhore/camwhore8.jpg"></center>'
  970. 'You slowly pulled off your panties, then briefly adjust the camera, giving a better view of your pussy.'
  971. act 'Carry on':gt 'Komp','waitclients'
  972. end
  973. act 'Ignore':
  974. cls
  975. webpopular -= 1
  976. gt 'Komp','waitclients'
  977. end
  978. end
  979. if topmfc = 0 and clientask >= 94 and clientask < 96:
  980. cls
  981. 'One of the visitors asks you to fondle your Breasts...'
  982. act 'Do it':
  983. cls
  984. mfcclients = 0
  985. webpopular += 1
  986. minut += 2
  987. backmfc = 0
  988. horny += RAND(5,10)
  989. if webpopular < 15:
  990. tokens += RAND(15,25)
  991. elseif webpopular >= 15 and webpopular < 35:
  992. tokens += RAND(20,30)
  993. elseif webpopular >= 35 and webpopular < 75:
  994. tokens += RAND(50,100)
  995. elseif webpopular >= 75:
  996. tokens += RAND(50,150)
  997. end
  998. gs 'stat'
  999. '<center><img src="images/camwhore/camwhore10.jpg"></center>'
  1000. 'You lie down comfortably and start to knead and squeeze your tits, sometimes putting your mouth to a nipple, then to the other...'
  1001. act 'Carry on':gt 'Komp','waitclients'
  1002. end
  1003. act 'Ignore':
  1004. cls
  1005. webpopular -= 1
  1006. gt 'Komp','waitclients'
  1007. end
  1008. end
  1009. if backmfc = 0 and clientask = 93:
  1010. cls
  1011. 'One of the visitors asks you to play with your pussy...'
  1012. act 'Do it':
  1013. cls
  1014. mfcclients = 0
  1015. webpopular += 1
  1016. minut += 2
  1017. horny += RAND(5,10)
  1018. if webpopular < 15:
  1019. tokens += RAND(20,25)
  1020. elseif webpopular >= 15 and webpopular < 35:
  1021. tokens += RAND(25,50)
  1022. elseif webpopular >= 35 and webpopular < 75:
  1023. tokens += RAND(50,100)
  1024. elseif webpopular >= 75:
  1025. tokens += RAND(100,150)
  1026. end
  1027. gs 'stat'
  1028. '<center><img src="images/camwhore/camwhore12.jpg"></center>'
  1029. 'You lie down comfortably and pressing a hand between your legs, you rub your labia back and forth with your fingers.'
  1030. if horny >= 100:
  1031. orgasm += 1
  1032. mfccum += 1
  1033. horny = 0
  1034. manna = mannamax
  1035. gs 'stat'
  1036. 'In the process you suddenly notice, you are approaching orgasm, then you quickly cum.'
  1037. end
  1038. act 'Carry on':gt 'Komp','waitclients'
  1039. end
  1040. act 'Ignore':
  1041. cls
  1042. webpopular -= 1
  1043. gt 'Komp','waitclients'
  1044. end
  1045. end
  1046. if backmfc = 0 and clientask = 92:
  1047. cls
  1048. 'One of the visitors asks you to show him a close-up of your vagina...'
  1049. act 'Do it':
  1050. cls
  1051. mfcclients = 0
  1052. webpopular += 1
  1053. minut += 2
  1054. if webpopular < 15:
  1055. tokens += RAND(10,25)
  1056. elseif webpopular >= 15 and webpopular < 35:
  1057. tokens += RAND(15,25)
  1058. elseif webpopular >= 35 and webpopular < 75:
  1059. tokens += RAND(25,50)
  1060. elseif webpopular >= 75:
  1061. tokens += RAND(50,150)
  1062. end
  1063. gs 'stat'
  1064. if analplugIN = 1:
  1065. '<center><img src="images/camwhore/camwhore19.jpg"></center>'
  1066. end
  1067. if vagina = 0 and analplugIN = 0:
  1068. '<center><img src="images/camwhore/camwhore18.jpg"></center>'
  1069. end
  1070. if vagina > 0 and vagina <= 10 and analplugIN = 0:
  1071. '<center><img src="images/camwhore/camwhore13.jpg"></center>'
  1072. end
  1073. if vagina > 10 and vagina <= 15 and analplugIN = 0:
  1074. '<center><img src="images/camwhore/camwhore14.jpg"></center>'
  1075. end
  1076. if vagina > 15 and vagina <= 25 and analplugIN = 0:
  1077. '<center><img src="images/camwhore/camwhore15.jpg"></center>'
  1078. end
  1079. if vagina > 25 and vagina <= 35 and analplugIN = 0:
  1080. '<center><img src="images/camwhore/camwhore16.jpg"></center>'
  1081. end
  1082. if vagina > 35 and analplugIN = 0:
  1083. '<center><img src="images/camwhore/camwhore17.jpg"></center>'
  1084. end
  1085. 'Doing a request for the client earns you tokens.'
  1086. act 'Carry on':gt 'Komp','waitclients'
  1087. end
  1088. act 'Ignore':
  1089. cls
  1090. webpopular -= 1
  1091. gt 'Komp','waitclients'
  1092. end
  1093. end
  1094. if backmfc = 0 and anus >= 30 and webpopular >= 50 and clientask = 91:
  1095. cls
  1096. 'One of the visitors asks you to push the camera up your ass...'
  1097. act 'To push':
  1098. cls
  1099. mfcclients = 0
  1100. webpopular += 2
  1101. sub += 2
  1102. minut += 2
  1103. backmfc = 0
  1104. horny -= RAND(20,30)
  1105. if vnesh > 100:
  1106. tokens += RAND(50,100)
  1107. else
  1108. tokens += RAND(40,75)
  1109. end
  1110. if webpopular < 15:
  1111. tokens += RAND(25,50)
  1112. elseif webpopular >= 15 and webpopular < 35:
  1113. tokens += RAND(50,100)
  1114. elseif webpopular >= 35 and webpopular < 75:
  1115. tokens += RAND(100,150)
  1116. elseif webpopular >= 75:
  1117. tokens += RAND(100,200)
  1118. end
  1119. gs 'stat'
  1120. if analplugIN = 0:
  1121. if cumsumass > 39:
  1122. '<center><img src="images/camwhore/camwhore74.jpg"></center>'
  1123. 'You turn your ass to the computer and reaching you hand behind you, begin to push, with a feeling of shame, from your rectum follows male sperm...'
  1124. 'Chat is filled with vulgar, and sometimes insulting comments, therefore, you soon stop this humiliating activity...'
  1125. else
  1126. '<center><img src="images/camwhore/camwhore20,<<rand(0,7)>>.jpg"></center>'
  1127. 'You get on your knees and reaching around to you ass, begin to push, with a feeling of shame, wondering how get the cam back out of your rectum.'
  1128. 'But greed overcomes the inconvenience, so you suffer for a couple of seconds, giving customers a better look at your worn out ass...'
  1129. end
  1130. else
  1131. '<center><img src="images/camwhore/camwhore21.jpg"></center>'
  1132. 'You get up from the bed and bending your knees a little, squat down in front of the door, then throw your hands behind your head.'
  1133. 'Your ass is plugged, so you try not to overdo it...'
  1134. end
  1135. act 'Carry on':gt 'Komp','waitclients'
  1136. end
  1137. act 'Ignore':
  1138. cls
  1139. gt 'Komp','waitclients'
  1140. end
  1141. end
  1142. if webpopular >= 15 and anus >= 15 and clientask = 89:
  1143. cls
  1144. gt 'kompMFCtwo'
  1145. end
  1146. if webpopular < 50 and clientask = 88:
  1147. cls
  1148. gt 'kompMFCtwo'
  1149. end
  1150. if webpopular >= 50 and vagina >= 35 and clientask = 87:
  1151. cls
  1152. gt 'kompMFCtwo'
  1153. end
  1154. if webpopular >= 35 and vagina >= 25 and alko >= 8 and clientask = 86:
  1155. cls
  1156. gt 'kompMFCtwo'
  1157. end
  1158. if webpopular >= 50 and vagina > 0 and anus > 0 and alko >= 8 and sub > 50 and clientask = 85:
  1159. cls
  1160. gt 'kompMFCtwo'
  1161. end
  1162. if backmfc = 0 and webpopular >= 25 and vagina >= 30 and anus >= 30 and alko >= 8 and clientask = 84:
  1163. cls
  1164. gt 'kompMFCtwo'
  1165. end
  1166. if backmfc = 0 and vagina > 20 and clientask = 83:
  1167. cls
  1168. gt 'kompMFCtwo'
  1169. end
  1170. if webpopular > 25 and backmfc = 0 and sub > 25 and vagina > 10 and prezik > 0 and clientask = 82:
  1171. cls
  1172. gt 'kompMFCtwo'
  1173. end
  1174. if backmfc = 0 and webpopular >= 50 and anus > 25 and clientask = 81:
  1175. cls
  1176. gt 'kompMFCtwo'
  1177. end
  1178. if backmfc = 0 and webpopular >= 50 and anus > 10 and vagina > 10 and sub > 50 and alko >= 6 and clientask = 80:
  1179. cls
  1180. gt 'kompMFCtwo'
  1181. end
  1182. if backmfc = 0 and clientask = 90:
  1183. cls
  1184. 'One of the visitors asks, "Do you have a vibrator or Dildo..."'
  1185. gt 'kompMFC'
  1186. end
  1187. if topmfc = 1 and clientask < 80:
  1188. act 'Remove your bra':
  1189. cls
  1190. mfcclients = 0
  1191. minut += 2
  1192. topmfc = 0
  1193. horny += 5
  1194. gs 'stat'
  1195. if backmfc = 1:
  1196. '<center><img src="images/camwhore/camwhore4.jpg"></center>'
  1197. end
  1198. if backmfc = 0:
  1199. '<center><img src="images/camwhore/camwhore5.jpg"></center>'
  1200. end
  1201. 'You slowly, on the camera I take off my bra, Stripping my young maiden breast.'
  1202. act 'Further':gt 'Komp','waitclients'
  1203. end
  1204. end
  1205. if topmfc = 0 and clientask < 80:
  1206. act 'Play around with your chest':
  1207. cls
  1208. if webpopular < 15:
  1209. camclients += RAND(3,6)
  1210. elseif webpopular >= 15 and webpopular < 35:
  1211. camclients += RAND(5,10)
  1212. elseif webpopular >= 35 and webpopular < 75:
  1213. camclients += RAND(10,20)
  1214. elseif webpopular >= 75:
  1215. camclients += RAND(15,35)
  1216. end
  1217. minut += 2
  1218. horny += 5
  1219. if alko >= 4:
  1220. gs 'pain', 2, 'slap', 'breasts'
  1221. end
  1222. chancetips = RAND(0,100)
  1223. if chancetips >= 85:
  1224. tokens += RAND(2,10)
  1225. end
  1226. gs 'stat'
  1227. if alko >= 4:
  1228. '<center><img src="images/camwhore/camwhore80.jpg"></center>'
  1229. else
  1230. '<center><img src="images/camwhore/camwhore9.jpg"></center>'
  1231. end
  1232. 'You play with your breasts, lost in fantasy, you completely forget about the camera and focus entirely on having fun.'
  1233. act 'Further':gt 'Komp','waitclients'
  1234. end
  1235. end
  1236. if backmfc = 1 and clientask < 80:
  1237. act 'Remove panties':
  1238. cls
  1239. mfcclients = 0
  1240. minut += 2
  1241. backmfc = 0
  1242. horny += 5
  1243. gs 'stat'
  1244. if topmfc = 1:
  1245. '<center><img src="images/camwhore/camwhore5.jpg"></center>'
  1246. end
  1247. if topmfc = 0:
  1248. '<center><img src="images/camwhore/camwhore6.jpg"></center>'
  1249. end
  1250. 'You slowly, on camera, take your panties off, exposing your crotch.'
  1251. act 'Further':gt 'Komp','waitclients'
  1252. end
  1253. end
  1254. if backmfc = 0 and clientask < 80:
  1255. act 'Play with your pussy':
  1256. cls
  1257. if webpopular < 15:
  1258. camclients += RAND(5,10)
  1259. elseif webpopular >= 15 and webpopular < 35:
  1260. camclients += RAND(10,15)
  1261. elseif webpopular >= 35 and webpopular < 75:
  1262. camclients += RAND(10,30)
  1263. elseif webpopular >= 75:
  1264. camclients += RAND(15,40)
  1265. end
  1266. minut += 2
  1267. horny += 5
  1268. chancetips = RAND(0,100)
  1269. if chancetips >= 75:
  1270. tokens += RAND(10,15)
  1271. end
  1272. gs 'stat'
  1273. '<center><img src="images/camwhore/camwhore11.jpg"></center>'
  1274. 'You with one hand playing with your pussy, another typing in the chat, you are given more tokens.'
  1275. if horny >= 100:
  1276. webpopular -= 1
  1277. orgasm += 1
  1278. mfccum += 1
  1279. horny = 0
  1280. manna = mannamax
  1281. gs 'stat'
  1282. 'It seems, you have not calculated your endurance. Therefore, you cum before <<camclients>> users completely free of charge.'
  1283. end
  1284. act 'Further':gt 'Komp','waitclients'
  1285. end
  1286. end
  1287. if backmfc = 0 and clientask < 80:
  1288. act'Play with your ass':
  1289. cls
  1290. if webpopular < 15:
  1291. camclients += RAND(5,10)
  1292. elseif webpopular >= 15 and webpopular < 35:
  1293. camclients += RAND(10,15)
  1294. elseif webpopular >= 35 and webpopular < 75:
  1295. camclients += RAND(10,30)
  1296. elseif webpopular >= 75:
  1297. camclients += RAND(15,40)
  1298. end
  1299. if anus < 10:analplay += 1
  1300. mfcclients = 0
  1301. minut += 2
  1302. horny += RAND(5,10)
  1303. chancetips = RAND(0,100)
  1304. if chancetips >= 60:
  1305. tokens += RAND(10,20)
  1306. end
  1307. gs 'stat'
  1308. '<center><img src="images/camwhore/camwhore45.jpg"></center>'
  1309. 'You shove two fingers in your mouth and generously cover them in saliva, by turns you gently push them into you ass, watching from the corner of your eye, so you can focus on the cam as the clients prefer it.'
  1310. if horny >= 100:
  1311. webpopular -= 1
  1312. orgasm += 1
  1313. mfccum += 1
  1314. horny = 0
  1315. manna = mannamax
  1316. gs 'stat'
  1317. 'But, it seems, you have under estimated your endurance. Therefore, you cum before <<camclients>> users completely free of charge.'
  1318. end
  1319. act'Further':gt'Komp','waitclients'
  1320. end
  1321. end
  1322. if topmfc = 0 and pain['nippleR'] < 10 and pain['nippleL'] < 10 and clientask < 80:
  1323. act'Pinch your nipples':
  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. mfcclients = 0
  1335. minut += 2
  1336. gs 'pain', 2, 'pinch', 'nipples'
  1337. horny -= RAND(20,50)
  1338. chancetips = RAND(0,100)
  1339. if chancetips >= 75:
  1340. tokens += RAND(20,40)
  1341. end
  1342. gs 'stat'
  1343. '<center><img src="images/camwhore/camwhore80.jpg"></center>'
  1344. 'You tightly squeeze your nipples between your finger tips and pull them aside, feeling sharp pain and drastically lowering your excitement.'
  1345. act'Further':gt'Komp','waitclients'
  1346. end
  1347. end
  1348. if sisterHere > 0 and $loc = 'bedrPar':
  1349. cls
  1350. topmfc = 1
  1351. backmfc = 1
  1352. karta += tokens/2
  1353. gs 'stat'
  1354. '<center><img src="images/camwhore/camwhore2.jpg"></center>'
  1355. 'Suddenly you hear, the clacking handle of your locked door, and a moment later you hear, "<<$nickname>>, let me in!"'
  1356. 'It seems that the show is over for today, so you frantically freshen up...'
  1357. act 'Further':gt 'Komp','mfc'
  1358. else
  1359. act 'Turn off the webcam':gt 'Komp','startpagemfc'
  1360. end
  1361. end
  1362. if $ARGS[0] = 'bank':
  1363. '<center><img src="images/pics/komp/online_bank.jpg"></center>'
  1364. if karta + bankDebtLimit >= 10:
  1365. *pl
  1366. '* You can buy internet access online through your bank account. 1 hour of internet for only 10 <b>₽</b>! *'
  1367. *pl
  1368. if karta >= 0:
  1369. 'You have <<karta>> <b>₽</b> in your account.'
  1370. 'You have an approved credit of <font color="blue"><<bankDebtLimit>></font>!'
  1371. else
  1372. 'You hava a debt of <font color="red"><<-1 * karta>></font> <b>₽</b>.'
  1373. 'You have an approved credit of <font color="blue"><<bankDebtLimit + karta>></font>!'
  1374. end
  1375. *pl
  1376. act 'Buy internet time':
  1377. cla
  1378. intinp = input ("How many hours of internet access do you wish to purchase? (1hr = 10 <b>₽</b>)")
  1379. if intinp <= 0 or intinp * 10 > karta + bankDebtLimit:
  1380. 'Invalid amount.'
  1381. else
  1382. karta -= intinp * 10
  1383. internet += intinp
  1384. 'You paid for <<intinp>> hours of Internet access, you have <<internet>> hours of the Internet access remaining.'
  1385. '<<intinp * 10>> <b>₽</b> were removed from your account.'
  1386. end
  1387. act 'Move away': gt 'Komp', 'bank'
  1388. end
  1389. end
  1390. act 'Exit online banking':gt 'Komp', 'start'
  1391. end
  1392. --- Komp ---------------------------------