Komp 31 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241
  1. # Komp
  2. if $ARGS[0] = 'start':
  3. cla
  4. clr
  5. elektro += 5
  6. gs 'stat'
  7. '<center><img src="images/pics/komp.jpg"></center>'
  8. 'With the computer happily welcomes you start window.'
  9. act 'Play Patience (0:15)':gt 'Komp', 'pasians'
  10. if GameCD > 0:act 'Play Disopl':gt 'KGDstart'
  11. if GameCD2 > 0:act 'Play Sunset Dead':gt 'KGZstart'
  12. if GameCD3 > 0:act 'Play Albido':gt 'FSstart'
  13. !!act 'SunReview of the Dead':gt 'KGZstart'
  14. if internet > 0:
  15. internet = internetM / 60
  16. 'You''ve got <<internet>> hours of Internet'
  17. act 'Browser':gt 'Komp', 'brows'
  18. end
  19. if karta >= 10:
  20. 'You can pay online through your bank account. 1 hour internet costs 10 rubles. On account of <<karta>>rubles.'
  21. act 'Pay online bank account':
  22. cla
  23. intinp = input ("How much money to put on the internet? (h = 10 rubles)")
  24. if intinp <= 0 or intinp * 10 > karta:
  25. 'Invalid amount.'
  26. elseif intinp * 10 <= karta:
  27. inttime = intinp * 10
  28. karta -= inttime
  29. internetM += intinp * 60
  30. internet = internetM / 60
  31. 'You paid <<inttime>> hours of Internet, you now have <<internet>> hours of the Internet. Your account was removed <<intinp>> rubles.'
  32. end
  33. act 'Get out of the payment system':gt 'Komp', 'start'
  34. end
  35. end
  36. act 'Shut down the computer':
  37. cla
  38. gt 'Komp', 'fin'
  39. end
  40. end
  41. if $ARGS[0] = 'brows':
  42. cla
  43. clr
  44. *clr
  45. gs 'stat'
  46. '<center><img src="images/pics/komp.jpg"></center>'
  47. 'You entered into a search engine.'
  48. '<a href="exec:GT ''Komp'',''agent''">Site agentsvo property</a>'
  49. act 'Apartment repair site (0:15)':gt 'Komp', 'remont'
  50. if housr = 1 and husband = 0:act 'Rent your apartment':gt 'Komp', 'sale'
  51. act 'Porno (0:15)':gt 'Komp', 'porno'
  52. act 'Singles (0:15)':gt 'Komp', 'znak'
  53. if hour < 20 and hour > 7:act 'Jobs.su':gt 'Komp', 'rabota'
  54. act 'Cable TV services (0:15)':gt 'Komp', 'kabtv'
  55. act 'Online game':gt 'KGstart'
  56. if shantfoto > 0:act 'Search photos heroine in "In the ass."':gt 'Komp', 'foto'
  57. if gor_dorm = 7:act 'Read letter from Evgeniya':gt 'etoexhib', 'pos91'
  58. if camwhore = 1:act 'Go to MyFreeCams.org':gt 'Komp', 'mfc'
  59. if student > 0:act 'The Institute for Education Measurement':gt 'Komp', 'study'
  60. act 'Exit the browser':gt 'Komp', 'start'
  61. if internet = 0:
  62. cls
  63. '<center><b>Browser</b></center>'
  64. '<center><img src="images/pics/komp/eror.jpg"></center>'
  65. 'You need to fill up online.'
  66. end
  67. act '<B>Quit your browser</B>':gt 'Komp','start'
  68. end
  69. if $ARGS[0] = 'sale':
  70. cla
  71. clr
  72. *clr
  73. minut += 60
  74. internetM -= 60
  75. elektro += 3
  76. internet -= 1
  77. gs 'stat'
  78. '<center><img src="images/pics/komp.jpg"></center>'
  79. 'You are logged in to the site for free ads.'
  80. if obkvsdam = 0 and housrA = 1:
  81. act 'Rent out your apartment':obkvsdam = 1 & gt 'Komp', 'sale'
  82. elseif obkvsdam > 0:
  83. act 'Check responses to your ad':
  84. cla
  85. if obkvsdam = 1:
  86. 'No one has responded to your apartment ad'
  87. elseif obkvsdam > 1:
  88. if obkvsdam = 2:predsumm = 7000
  89. if obkvsdam = 2:predsumm = 8000
  90. if obkvsdam = 2:predsumm = 9000
  91. if obkvsdam = 2:predsumm = 10000
  92. 'Want to stay in your apartment for a month (<<predsumm>> rubles).'
  93. act 'Rent':
  94. sdaday = day
  95. sdamonth = month + 1
  96. housr = 0
  97. money += predsumm
  98. gt 'Komp', 'start'
  99. end
  100. end
  101. act 'Leave':gt 'Komp', 'brows'
  102. end
  103. end
  104. act 'Leave':gt 'Komp', 'brows'
  105. end
  106. if $ARGS[0] = 'remont':
  107. cla
  108. clr
  109. *clr
  110. minut += 60
  111. internetM -= 60
  112. elektro += 3
  113. internet -= 1
  114. gs 'stat'
  115. '<center><img src="images/pics/komp.jpg"></center>'
  116. 'You are logged in apartment repairs.'
  117. if housr = 1:
  118. if rembedr = 0:
  119. act 'Refurbished bedrooms (50,000 rubles)':
  120. if money >= 50000:
  121. cla
  122. rembedr = 1
  123. money -= 50000
  124. 'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
  125. else
  126. cla
  127. 'Unfortunately, you will not have enough money.'
  128. end
  129. act 'Leave':gt 'Komp', 'remont'
  130. end
  131. end
  132. if remsitr = 0:
  133. act 'Renovate hall (50,000 rubles)':
  134. if money >= 50000:
  135. cla
  136. remsitr = 1
  137. money -= 50000
  138. 'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
  139. else
  140. cla
  141. 'Unfortunately, you will not have enough money.'
  142. end
  143. act 'Leave':gt 'Komp', 'remont'
  144. end
  145. end
  146. if remkorr = 0:
  147. act 'Repair corridor (50,000 rubles)':
  148. if money >= 50000:
  149. cla
  150. remkorr = 1
  151. money -= 50000
  152. 'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
  153. else
  154. cla
  155. 'Unfortunately, you will not have enough money.'
  156. end
  157. act 'Leave':gt 'Komp', 'remont'
  158. end
  159. end
  160. if remvanr = 0:
  161. act 'Renovate the bathroom (50,000 rubles)':
  162. if money >= 50000:
  163. cla
  164. remvanr = 1
  165. money -= 50000
  166. 'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
  167. else
  168. cla
  169. 'Unfortunately, you will not have enough money.'
  170. end
  171. act 'Leave':gt 'Komp', 'remont'
  172. end
  173. end
  174. if remkuhr = 0:
  175. act 'Renovate a kitchen (50,000 rubles)':
  176. if money >= 50000:
  177. cla
  178. remkuhr = 1
  179. money -= 50000
  180. 'You pay for repairs and you did it the same, just Dzhumshut Ravshan and wizards.'
  181. else
  182. cla
  183. 'Unfortunately, you will not have enough money.'
  184. end
  185. act 'Leave':gt 'Komp', 'remont'
  186. end
  187. end
  188. end
  189. act 'Leave':gt 'Komp', 'brows'
  190. end
  191. if $ARGS[0] = 'porno':
  192. cla
  193. clr
  194. *clr
  195. minut += 60
  196. internetM -= 60
  197. manna += 5
  198. elektro += 3
  199. willpower += rand(5, 10)
  200. manna += rand(10, 50)
  201. horny += 30
  202. internet -= 1
  203. gs 'stat'
  204. '<center><img src="images/pics/komp.jpg"></center>'
  205. 'You went to a porn site.'
  206. $pornomastr = {
  207. cls
  208. minut += 15
  209. sweat += 1
  210. horny += rand(10, 25)
  211. if divanmastr = 0:divanmastr = 1 & mastr += 1
  212. gs 'stat'
  213. '<center><img src="images/pics/kompmas.jpg"></center>'
  214. 'You get comfortable in front of the computer with one hand and began to fondle her breasts, a finger of the other hand you started rubbing and stroking a small bump between his legs that responded to the touch of pleasant languor covering your entire body.'
  215. if horny >= 100:
  216. orgasm += 1
  217. horny = 0
  218. 'Suddenly a nice cramp brought your body and you covered powerful orgasm from which you groan.'
  219. end
  220. act 'Finish':divanmastr = 0 & gt 'Komp', 'porno'
  221. if horny >= 50:act 'Proceed':dynamic $pornomastr
  222. }
  223. act 'Watch porn':
  224. cla
  225. '<center><img src="images/etogame/porno.jpg"></center>'
  226. 'You spend some time watching porn.'
  227. act 'Finish':gt 'Komp', 'porno'
  228. end
  229. if horny >= 50:act 'Masturbate (0:15)':dynamic $pornomastr
  230. act 'Leave':gt 'Komp', 'brows'
  231. end
  232. if $ARGS[0] = 'pasians':
  233. cla
  234. clr
  235. *clr
  236. minut += 20
  237. manna += 5
  238. elektro += 3
  239. willpower += rand(5, 10)
  240. manna += rand(10, 50)
  241. gs 'stat'
  242. '<center><img src="images/pics/komp.jpg"></center>'
  243. 'You entertained for an hour unfolding of solitaire on the computer.'
  244. act 'Lay another 20 minutes':gt 'Komp', 'pasians'
  245. act 'Close Solitaire':gt 'Komp', 'start'
  246. end
  247. if $ARGS[0] = 'znak':
  248. cla
  249. clr
  250. *clr
  251. minut += 60
  252. internetM -= 60
  253. manna += 5
  254. elektro += 3
  255. internet -= 1
  256. gs 'stat'
  257. '<center><img src="images/pics/komp.jpg"></center>'
  258. 'You are logged on to a dating site.'
  259. 'Selection of boys is only possible if there is no boyfriend.'
  260. if bfA <= 0:
  261. act 'To pick up a guy with a gentle disposition':
  262. cla
  263. gs 'boy'
  264. gs 'boyfrend', 'start'
  265. stopboy = 0
  266. harakBoyA = 0
  267. 'You wrote a guy named <<$boyA>>and talked with him and left him number hoping that he will call you.'
  268. act 'Leave':gt 'Komp', 'brows'
  269. end
  270. act 'To pick up a guy with a common character':
  271. cla
  272. gs 'boy'
  273. gs 'boyfrend', 'start'
  274. stopboy = 0
  275. harakBoyA = 1
  276. 'You wrote a guy named <<$boyA>>and talked with him and left him number hoping that he will call you.'
  277. act 'Leave':gt 'Komp', 'brows'
  278. end
  279. act 'To pick up a guy with a strong character':
  280. cla
  281. gs 'boy'
  282. gs 'boyfrend', 'start'
  283. stopboy = 0
  284. harakBoyA = 2
  285. 'You wrote a guy named <<$boyA>>and talked with him and left him number hoping that he will call you.'
  286. act 'Leave':gt 'Komp', 'brows'
  287. end
  288. end
  289. if gor_dorm = 8:
  290. act 'Pick of suitors for Eugenia':
  291. cla
  292. gor_dorm = 9
  293. 'You shoveled dozens of profiles, Before choosing a suitable in all respects candidates and sent them a letter with a proposal to meet.'
  294. 'Now we have to wait her turn, what_is-anything with them or not.'
  295. act 'Leave':gt 'Komp', 'brows'
  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. internetM -= 60
  306. elektro += 3
  307. internet -= 1
  308. gs 'stat'
  309. '<center><img src="images/pics/komp.jpg"></center>'
  310. 'You are logged in to the website provider of cable TV.'
  311. if kabel = 1:
  312. 'Do you have a cable TV (subscription fee of 300 rubles per month lifted the 25th day of)'
  313. act 'Abandon cable TV':
  314. cla
  315. kabel = 1
  316. money -= 300
  317. 'You have disconnected cable channels, paying the current month'
  318. gt 'Komp', 'kabtv'
  319. end
  320. elseif kabel = 0 and TV = 1:
  321. 'You do not have a cable TV'
  322. act 'Connect cable TV':
  323. cla
  324. 'Unfortunately for viewing cable television requires a more modern TV'
  325. gt 'Komp', 'kabtv'
  326. end
  327. elseif kabel = 0 and TV >= 2:
  328. 'You do not have a cable TV'
  329. act 'Connect Cable TV (300 rubles per month)':
  330. cla
  331. kabel = 1
  332. 'You hooked up cable TV services'
  333. gt 'Komp', 'kabtv'
  334. end
  335. else
  336. 'You don''t even own a TV yet!'
  337. act 'Leave':gt 'Komp', 'start'
  338. act 'Leave':gt 'Komp', 'start'
  339. end
  340. if $ARGS[0] = 'foto':
  341. cla
  342. *clr
  343. internetM -= 60
  344. elektro += 3
  345. internet -= 1
  346. gs 'stat'
  347. '<center><img src="images/pics/komp.jpg"></center>'
  348. 'You are logged in to the social network "in the ass."'
  349. if shantfoto > 0:
  350. act 'Search':
  351. cla
  352. minut += 60
  353. fotsearchrand = rand(0, 10)
  354. if fotsearchrand <= 7:
  355. 'You did not find anyone, maybe better luck later.'
  356. act 'Finish':gt 'Komp', 'foto'
  357. end
  358. if fotsearchrand > 7:
  359. shantfoto -= 1
  360. 'You found the heroine a photo shoot'
  361. gerofotorand = rand(0, 100)
  362. if gerofotorand > 30:
  363. 'Judging by the photos on her page this poor girl and take her with nothing.'
  364. act 'Finish':gt 'Komp', 'foto'
  365. end
  366. if gerofotorand >= 5 and gerofotorand <= 30:
  367. shantsr += 1
  368. 'Judging by the photos on her page is non-existent girl from the middle classes. You send her photo and asked to be transferred to your account 5000.'
  369. act 'Finish':gt 'Komp', 'foto'
  370. end
  371. if gerofotorand < 5:
  372. shantbog += 1
  373. 'Judging by the photos on her page is very secured lady. You send her photo and asked to be transferred to your account 30000.'
  374. act 'Finish':gt 'Komp', 'foto'
  375. end
  376. end
  377. end
  378. end
  379. act 'Browser':gt 'Komp', 'brows'
  380. end
  381. if $ARGS[0] = 'rabota':
  382. cla
  383. *clr
  384. minut += 60
  385. internetM -= 60
  386. internet -= 1
  387. komprabota = rand(0, 10)
  388. gs 'stat'
  389. '<center><img src="images/pics/komp.jpg"></center>'
  390. if komprabota = 0 and gorodokKomp = 0:
  391. 'You found an ad:"Wanted girl model looks for advertising underwear, cash on filming zavershinii 2000 rubles."'
  392. if vnesh < 30:
  393. 'But you are under this description does not fit'
  394. elseif vnesh >= 30:
  395. act 'Go at':gt 'qjob', 'var1'
  396. end
  397. if hour < 20 and hour > 7:act 'Search more':gt 'Komp', 'rabota'
  398. act 'Finish':gt 'Komp', 'brows'
  399. elseif komprabota = 1 and gorodokKomp = 0:
  400. 'You found an ad:"Wanted girl model looks for advertising underwear, cash on filming zavershinii 2000 rubles."'
  401. if vnesh < 30:'But you are under this description does not fit'
  402. if vnesh >= 30:
  403. act 'Go at':gt 'qjob', 'var2'
  404. end
  405. if hour < 20 and hour > 7:act 'Search more':gt 'Komp', 'rabota'
  406. act 'Finish':gt 'Komp', 'brows'
  407. elseif komprabota > 1 and komprabota < 5 and gorodokKomp = 0:
  408. 'You found an ad:"The artist is required naturschitsa, simpotichnoy appearance, cash 1, 000 rubles."'
  409. if vnesh < 15:
  410. 'But you are under this description does not fit'
  411. elseif vnesh >= 15:
  412. act 'Go at':gt 'qjob', 'var3'
  413. end
  414. if hour < 20 and hour > 7:act 'Search more':gt 'Komp', 'rabota'
  415. act 'Finish':gt 'Komp', 'brows'
  416. elseif komprabota > 4:
  417. 'You did not find anything suitable.'
  418. if hour < 20 and hour > 7:act 'Search more':gt 'Komp', 'rabota'
  419. act 'Finish':gt 'Komp', 'brows'
  420. elseif komprabota > 4 and komprabota < 8 and StoryLine > 0 and Suspeh >= 90 and camwhore = 0:
  421. 'You stumbled on the ad, which says, that one of the thematic websites require web models.'
  422. act 'Interest':
  423. cls
  424. minut += 5
  425. gs 'stat'
  426. '<center><img src="images/camwhore/camwhore1.jpg"></center>'
  427. 'Quickly walking up the look of the ad, you know, what is this job you will have to expose her body in front of customers, fulfilling their wishes.'
  428. 'For which, naturally, you will pay virtual currency, which management of the site will transfer real money to your Bank account.'
  429. 'Resource of English language and registration from the CIS are prohibited there, so the chance, what who-you know in real life, very few.'
  430. 'The amount of payment depends on the popularity of your room, the more you will be able to attract users, the more you earn, that is, it all depends on you.'
  431. act 'To fill in the questionnaire':
  432. cls
  433. camwhore += 1
  434. minut += 20
  435. gs 'stat'
  436. '<center><img src="images/camwhore/camwhore2.jpg"></center>'
  437. 'Go to the website, you have registered yourself on it as a model. Ten minutes later, the questionnaire had already been approved and you can now earn money web model'
  438. act 'Finish':gt 'Komp','brows'
  439. end
  440. act 'Return':gt 'Komp','brows'
  441. end
  442. if hour < 20 and hour > 7:act 'Search More':gt 'Komp','rabota'
  443. act '<B>Finish</B>':gt 'Komp','brows'
  444. else
  445. 'We did not find anything suitable.'
  446. if hour < 20 and hour > 7:act 'Search More':gt 'Komp','rabota'
  447. act '<B>Finish</B>':gt 'Komp','brows'
  448. end
  449. end
  450. if $ARGS[0] = 'kursak':
  451. cla
  452. *clr
  453. minut += 60
  454. internetM += 60
  455. elektro += 3
  456. internet -= 1
  457. manna -= 10
  458. kursovik = kursovik + RAND(intel/20,intel/10)
  459. if kursovik > 100:kursovik = 100
  460. '<center><b>Coursework</b></center>'
  461. '<center><img src="images/pics/komp/kursak.jpg"></center>'
  462. 'You were an hour over the course work and prepare it on <<kursovik>>%.'
  463. act '<B>Finish</B>':gt 'Komp','start'
  464. end
  465. if $ARGS[0] = 'agent':
  466. cla
  467. clr
  468. *clr
  469. minut += 60
  470. internetM += 60
  471. elektro += 3
  472. internet -= 1
  473. gs 'stat'
  474. '<center><b>CAit estate agency</b></center>'
  475. '<center><img src="images/pics/komp/agent.jpg"></center>'
  476. 'You are logged in estate agency.'
  477. 'Here you can rent an apartment online in 6000 rubles.'
  478. ''
  479. if ArendHouseSL > 0:'You have <B><<ArendHouseSL>> days</B> rental.'
  480. if karta >= 6000 and BuyHous ! 1:
  481. act 'Apartment for rent online':
  482. cla
  483. karta -= 6000
  484. housr = 1
  485. BuyHous = 2
  486. ArendHouseSL += 30
  487. 'You get easy to rent an apartment in a residential area on the 30 days. Now you <B><<ArendHouseSL>> days</B> rental.'
  488. act '<B>Finish</B>':gt 'Komp','start'
  489. end
  490. end
  491. act '<B>Finish</B>':gt 'Komp','brows'
  492. end
  493. if $ARGS[0] = 'fin':
  494. gt $locM, $metkaM
  495. end
  496. if $ARGS[0] = 'mfc':
  497. if sisterHere = 0:
  498. act 'Go to your mfc startpage':
  499. cls
  500. minut += 2
  501. gs 'stat'
  502. '<center><img src="images/camwhore/camwhore3.jpg"></center>'
  503. 'You walked to your room on the website. At the moment you <<camclients>> visitors.'
  504. act 'Further':gt 'komp','startpagemfc'
  505. end
  506. act 'Close tab':
  507. cls
  508. minut += 2
  509. topmfc = 1
  510. backmfc = 1
  511. tokens = 0
  512. camclients = 0
  513. gs 'stat'
  514. gt 'Komp','brows'
  515. end
  516. elseif sisterHere > 0:
  517. cls
  518. minut += 2
  519. topmfc = 1
  520. backmfc = 1
  521. tokens = 0
  522. camclients = 0
  523. gs 'stat'
  524. '<center><img src="images/camwhore/camwhore2.jpg"></center>'
  525. 'You are not alone in the room.'
  526. act 'Close tab':gt 'Komp','brows'
  527. elseif mesec > 0:
  528. cls
  529. minut += 2
  530. topmfc = 1
  531. backmfc = 1
  532. tokens = 0
  533. camclients = 0
  534. gs 'stat'
  535. '<center><img src="images/camwhore/camwhore2.jpg"></center>'
  536. 'You month, but because you have too unwell for the show - sick, stomach hurts, dizzy, generally, not the best time to earn your money body...'
  537. act 'Close tab':gt 'Komp','brows'
  538. end
  539. end
  540. if $ARGS[0] = 'startpagemfc':
  541. if vgape > 0 or agape > 0:
  542. cls
  543. gs 'stat'
  544. 'You feel bad too, to put on a show.'
  545. act 'Close tab':
  546. karta += tokens/2
  547. gt 'Komp','mfc'
  548. end
  549. else
  550. cls
  551. gs 'stat'
  552. '<center><img src="images/camwhore/camwhore3.jpg"></center>'
  553. 'In your room <<camclients>> visitors.'
  554. act 'To enable the webcam':gt 'komp','waitclients'
  555. act 'Logout':
  556. karta += tokens/2
  557. gt 'Komp','mfc'
  558. end
  559. end
  560. end
  561. if $ARGS[0] = 'waitclients':
  562. cls
  563. minut += 2
  564. manna -= 2
  565. willpower -= RAND(1,3)
  566. if vnesh < 25:
  567. if topmfc = 1 and backmfc = 1:
  568. if webpopular < 15:
  569. camclients += RAND(1,3)
  570. elseif webpopular >= 15 and webpopular < 35:
  571. camclients += RAND(3,5)
  572. elseif webpopular >= 35 and webpopular < 75:
  573. camclients += RAND(4,8)
  574. elseif webpopular >= 75:
  575. camclients += RAND(5,15)
  576. end
  577. chancetips = RAND(0,100)
  578. clientask = RAND(0,100)
  579. if chancetips >= 95:
  580. tokens += RAND(1,20)
  581. end
  582. end
  583. else
  584. if topmfc = 1 and backmfc = 1:
  585. if webpopular < 15:
  586. camclients += RAND(3,5)
  587. elseif webpopular >= 15 and webpopular < 35:
  588. camclients += RAND(5,8)
  589. elseif webpopular >= 35 and webpopular < 75:
  590. camclients += RAND(5,12)
  591. elseif webpopular >= 75:
  592. camclients += RAND(8,15)
  593. end
  594. chancetips = RAND(1,100)
  595. clientask = RAND(1,100)
  596. if chancetips >= 95:
  597. tokens += RAND(1,20)
  598. end
  599. end
  600. end
  601. if vnesh < 25:
  602. if topmfc = 0 and backmfc = 1:
  603. if webpopular < 15:
  604. camclients += RAND(1,3)
  605. elseif webpopular >= 15 and webpopular < 35:
  606. camclients += RAND(1,5)
  607. elseif webpopular >= 35 and webpopular < 75:
  608. camclients += RAND(5,10)
  609. elseif webpopular >= 75:
  610. camclients += RAND(6,15)
  611. end
  612. chancetips = RAND(2,90)
  613. clientask = RAND(5,100)
  614. if chancetips >= 85:
  615. tokens += RAND(1,20)
  616. end
  617. end
  618. else
  619. if topmfc = 0 and backmfc = 1:
  620. if webpopular < 15:
  621. camclients += RAND(3,6)
  622. elseif webpopular >= 15 and webpopular < 35:
  623. camclients += RAND(5,10)
  624. elseif webpopular >= 35 and webpopular < 75:
  625. camclients += RAND(7,12)
  626. elseif webpopular >= 75:
  627. camclients += RAND(10,15)
  628. end
  629. chancetips = RAND(2,90)
  630. clientask = RAND(10,100)
  631. if chancetips >= 85:
  632. tokens += RAND(1,20)
  633. end
  634. end
  635. end
  636. if vnesh < 25:
  637. if topmfc = 1 and backmfc = 0:
  638. if webpopular < 15:
  639. camclients += RAND(1,3)
  640. elseif webpopular >= 15 and webpopular < 35:
  641. camclients += RAND(2,5)
  642. elseif webpopular >= 35 and webpopular < 75:
  643. camclients += RAND(5,15)
  644. elseif webpopular >= 75:
  645. camclients += RAND(5,20)
  646. end
  647. chancetips = RAND(4,80)
  648. clientask = RAND(7,100)
  649. if chancetips >= 75:
  650. tokens += RAND(1,20)
  651. end
  652. end
  653. else
  654. if topmfc = 1 and backmfc = 0:
  655. if webpopular < 15:
  656. camclients += RAND(4,7)
  657. elseif webpopular >= 15 and webpopular < 35:
  658. camclients += RAND(5,12)
  659. elseif webpopular >= 35 and webpopular < 75:
  660. camclients += RAND(9,15)
  661. elseif webpopular >= 75:
  662. camclients += RAND(15,20)
  663. end
  664. chancetips = RAND(3,80)
  665. clientask = RAND(15,100)
  666. if chancetips >= 75:
  667. tokens += RAND(1,20)
  668. end
  669. end
  670. end
  671. if vnesh < 25:
  672. if topmfc = 0 and backmfc = 0:
  673. if webpopular < 15:
  674. camclients += RAND(1,4)
  675. elseif webpopular >= 15 and webpopular < 35:
  676. camclients += RAND(3,10)
  677. elseif webpopular >= 35 and webpopular < 75:
  678. camclients += RAND(10,20)
  679. elseif webpopular >= 75:
  680. camclients += RAND(10,30)
  681. end
  682. chancetips = RAND(6,50)
  683. clientask = RAND(10,100)
  684. if chancetips >= 45:
  685. tokens += RAND(1,20)
  686. end
  687. end
  688. else
  689. if topmfc = 0 and backmfc = 0:
  690. if webpopular < 15:
  691. camclients += RAND(3,8)
  692. elseif webpopular >= 15 and webpopular < 35:
  693. camclients += RAND(3,15)
  694. elseif webpopular >= 35 and webpopular < 75:
  695. camclients += RAND(10,20)
  696. elseif webpopular >= 75:
  697. camclients += RAND(10,30)
  698. end
  699. chancetips = RAND(4,50)
  700. clientask = RAND(20,100)
  701. if chancetips >= 45:
  702. tokens += RAND(1,20)
  703. end
  704. end
  705. end
  706. gs 'stat'
  707. if topmfc = 1 and backmfc = 1:
  708. '<center><img src="images/camwhore/camwhore3.jpg"></center>'
  709. end
  710. if topmfc = 0 and backmfc = 1:
  711. '<center><img src="images/camwhore/camwhore4.jpg"></center>'
  712. end
  713. if topmfc = 1 and backmfc = 0:
  714. '<center><img src="images/camwhore/camwhore5.jpg"></center>'
  715. end
  716. if topmfc = 0 and backmfc = 0:
  717. '<center><img src="images/camwhore/camwhore6.jpg"></center>'
  718. end
  719. 'In your room <<camclients>> visitors.'
  720. 'You have <<tokens>> tokens.'
  721. act 'Wait for visitors':gt 'komp','waitclients'
  722. if topmfc = 1 and clientask >= 98:
  723. cls
  724. gs 'stat'
  725. 'It seems, one of the visitors willing to pay you for, so you bared Breasts...'
  726. act 'To remove a bra':
  727. cls
  728. webpopular += 1
  729. minut += 2
  730. topmfc = 0
  731. horny += 5
  732. if webpopular < 15:
  733. tokens += RAND(10,25)
  734. elseif webpopular >= 15 and webpopular < 35:
  735. tokens += RAND(15,25)
  736. elseif webpopular >= 35 and webpopular < 75:
  737. tokens += RAND(25,50)
  738. elseif webpopular >= 75:
  739. tokens += RAND(50,150)
  740. end
  741. gs 'stat'
  742. '<center><img src="images/camwhore/camwhore7.jpg"></center>'
  743. 'You stood up and so, so the camera could see better Breasts, slowly removed her bra, what immediately got the tokens.'
  744. act 'Further':gt 'Komp','waitclients'
  745. end
  746. act 'Ignore':
  747. cls
  748. webpopular -= 1
  749. gt 'Komp','waitclients'
  750. end
  751. end
  752. if backmfc = 1 and clientask >= 96 and clientask < 98:
  753. cls
  754. 'One of the visitors asks you to remove your panties...'
  755. act 'Do':
  756. cls
  757. webpopular += 1
  758. minut += 2
  759. backmfc = 0
  760. horny += 5
  761. if webpopular < 15:
  762. tokens += RAND(10,25)
  763. elseif webpopular >= 15 and webpopular < 35:
  764. tokens += RAND(15,25)
  765. elseif webpopular >= 35 and webpopular < 75:
  766. tokens += RAND(25,50)
  767. elseif webpopular >= 75:
  768. tokens += RAND(50,150)
  769. end
  770. gs 'stat'
  771. '<center><img src="images/camwhore/camwhore8.jpg"></center>'
  772. 'You slowly pulled off her panties, then briefly brought the camera, giving a better look at her pussy.'
  773. act 'Further':gt 'Komp','waitclients'
  774. end
  775. act 'Ignore':
  776. cls
  777. webpopular -= 1
  778. gt 'Komp','waitclients'
  779. end
  780. end
  781. if topmfc = 0 and clientask >= 94 and clientask < 96:
  782. cls
  783. 'One of the visitors asks you to fondle your Breasts...'
  784. act 'Do':
  785. cls
  786. webpopular += 1
  787. minut += 2
  788. backmfc = 0
  789. horny += RAND(5,10)
  790. if webpopular < 15:
  791. tokens += RAND(15,25)
  792. elseif webpopular >= 15 and webpopular < 35:
  793. tokens += RAND(20,30)
  794. elseif webpopular >= 35 and webpopular < 75:
  795. tokens += RAND(50,100)
  796. elseif webpopular >= 75:
  797. tokens += RAND(50,150)
  798. end
  799. gs 'stat'
  800. '<center><img src="images/camwhore/camwhore10.jpg"></center>'
  801. 'You lie down comfortably and start to knead and squeeze his hands over his chest, sometimes putting his mouth to one nipple, then to the second...'
  802. if horny >= 100:
  803. orgasm += 1
  804. horny = 0
  805. manna = mannamax
  806. gs 'stat'
  807. 'But the excitement is so great, what you are not able to sustain them, but because capacete hand between her legs and then cum.'
  808. end
  809. act 'Further':gt 'Komp','waitclients'
  810. end
  811. act 'Ignore':
  812. cls
  813. webpopular -= 1
  814. gt 'Komp','waitclients'
  815. end
  816. end
  817. if backmfc = 0 and clientask = 93:
  818. cls
  819. 'One of the visitors asks you to play with her pussy...'
  820. act 'Do':
  821. cls
  822. webpopular += 1
  823. minut += 2
  824. horny += RAND(5,10)
  825. if webpopular < 15:
  826. tokens += RAND(20,25)
  827. elseif webpopular >= 15 and webpopular < 35:
  828. tokens += RAND(25,50)
  829. elseif webpopular >= 35 and webpopular < 75:
  830. tokens += RAND(50,100)
  831. elseif webpopular >= 75:
  832. tokens += RAND(100,150)
  833. end
  834. gs 'stat'
  835. '<center><img src="images/camwhore/camwhore12.jpg"></center>'
  836. 'You lie down comfortably and passing a hand between her legs, are the fingers rubbing her labia.'
  837. if horny >= 100:
  838. orgasm += 1
  839. horny = 0
  840. manna = mannamax
  841. gs 'stat'
  842. 'In the process you yourself on notice, as the approaching wave of orgasm, but because roughly cum.'
  843. end
  844. act 'Further':gt 'Komp','waitclients'
  845. end
  846. act 'Ignore':
  847. cls
  848. webpopular -= 1
  849. gt 'Komp','waitclients'
  850. end
  851. end
  852. if backmfc = 0 and clientask = 92:
  853. cls
  854. 'One of the visitors asks you to show him the closer your vagina...'
  855. act 'Do':
  856. cls
  857. webpopular += 1
  858. minut += 2
  859. if webpopular < 15:
  860. tokens += RAND(10,25)
  861. elseif webpopular >= 15 and webpopular < 35:
  862. tokens += RAND(15,25)
  863. elseif webpopular >= 35 and webpopular < 75:
  864. tokens += RAND(25,50)
  865. elseif webpopular >= 75:
  866. tokens += RAND(50,150)
  867. end
  868. gs 'stat'
  869. if analplugIN = 1:
  870. '<center><img src="images/camwhore/camwhore19.jpg"></center>'
  871. end
  872. if vagina = 0 and analplugIN = 0:
  873. '<center><img src="images/camwhore/camwhore18.jpg"></center>'
  874. end
  875. if vagina > 0 and vagina <= 10 and analplugIN = 0:
  876. '<center><img src="images/camwhore/camwhore13.jpg"></center>'
  877. end
  878. if vagina > 10 and vagina <= 15 and analplugIN = 0:
  879. '<center><img src="images/camwhore/camwhore14.jpg"></center>'
  880. end
  881. if vagina > 15 and vagina <= 25 and analplugIN = 0:
  882. '<center><img src="images/camwhore/camwhore15.jpg"></center>'
  883. end
  884. if vagina > 25 and vagina <= 35 and analplugIN = 0:
  885. '<center><img src="images/camwhore/camwhore16.jpg"></center>'
  886. end
  887. if vagina > 35 and analplugIN = 0:
  888. '<center><img src="images/camwhore/camwhore17.jpg"></center>'
  889. end
  890. 'You do a request to the client for the coveted tokens.'
  891. act 'Further':gt 'Komp','waitclients'
  892. end
  893. act 'Ignore':
  894. cls
  895. webpopular -= 1
  896. gt 'Komp','waitclients'
  897. end
  898. end
  899. if backmfc = 0 and anus >= 30 and webpopular >= 50 and clientask = 91:
  900. cls
  901. 'One of the visitors asks you to push on camera ass...'
  902. act 'To push':
  903. cls
  904. webpopular += 2
  905. sub += 2
  906. minut += 2
  907. backmfc = 0
  908. horny -= RAND(20,30)
  909. if vnesh > 25:
  910. tokens += RAND(50,100)
  911. else
  912. tokens += RAND(40,75)
  913. end
  914. if webpopular < 15:
  915. tokens += RAND(25,50)
  916. elseif webpopular >= 15 and webpopular < 35:
  917. tokens += RAND(50,100)
  918. elseif webpopular >= 35 and webpopular < 75:
  919. tokens += RAND(100,150)
  920. elseif webpopular >= 75:
  921. tokens += RAND(100,200)
  922. end
  923. gs 'stat'
  924. if analplugIN = 0:
  925. if cumanus > 0:
  926. '<center><img src="images/camwhore/camwhore74.jpg"></center>'
  927. 'You turn your ass to the computer and extending his arms buttocks, begin to push, with shame feeling, as from your rectum follows the male sperm...'
  928. 'Chat is broken from vulgar, and sometimes insulting comments, therefore, you soon stop this humiliating lesson...'
  929. else
  930. '<center><img src="images/camwhore/camwhore20,'+rand(0,7)+'.jpg"></center>'
  931. 'You gettin ` on your knees and extending his arms buttocks, begin to push, with shame feeling, how to get out of your rectum.'
  932. 'But greed overcomes the inconvenience, so you suffer a couple of seconds, giving foreigners a better look at your worn out ass...'
  933. end
  934. else
  935. '<center><img src="images/camwhore/camwhore21.jpg"></center>'
  936. 'You get up from the bed and bending the knees a little, squat down in front of the door, throwing his hands behind his head.'
  937. 'Your ass is butt plug, so you try not to overdo it, so she jumped...'
  938. end
  939. act 'Further':gt 'Komp','waitclients'
  940. end
  941. act 'Ignore':
  942. cls
  943. gt 'Komp','waitclients'
  944. end
  945. end
  946. if webpopular >= 15 and anus >= 15 and clientask = 89:
  947. cls
  948. gt 'kompMFCtwo'
  949. end
  950. if webpopular < 50 and clientask = 88:
  951. cls
  952. gt 'kompMFCtwo'
  953. end
  954. if webpopular >= 50 and vagina >= 35 and clientask = 87:
  955. cls
  956. gt 'kompMFCtwo'
  957. end
  958. if webpopular >= 35 and vagina >= 25 and alko >= 8 and clientask = 86:
  959. cls
  960. gt 'kompMFCtwo'
  961. end
  962. if webpopular >= 50 and vagina > 0 and anus > 0 and alko >= 8 and sub > 50 and clientask = 85:
  963. cls
  964. gt 'kompMFCtwo'
  965. end
  966. if backmfc = 0 and webpopular >= 25 and vagina >= 30 and anus >= 30 and alko >= 8 and clientask = 84:
  967. cls
  968. gt 'kompMFCtwo'
  969. end
  970. if backmfc = 0 and vagina > 20 and clientask = 83:
  971. cls
  972. gt 'kompMFCtwo'
  973. end
  974. if webpopular > 25 and backmfc = 0 and sub > 25 and vagina > 10 and prezik > 0 and clientask = 82:
  975. cls
  976. gt 'kompMFCtwo'
  977. end
  978. if backmfc = 0 and webpopular >= 50 and anus > 25 and clientask = 81:
  979. cls
  980. gt 'kompMFCtwo'
  981. end
  982. if backmfc = 0 and webpopular >= 50 and anus > 10 and vagina > 10 and sub > 50 and alko >= 6 and clientask = 80:
  983. cls
  984. gt 'kompMFCtwo'
  985. end
  986. if backmfc = 0 and clientask = 90:
  987. cls
  988. 'One of the visitors asked, do you have a vibrator or Dildo...'
  989. gt 'kompMFC'
  990. end
  991. if topmfc = 1 and clientask < 80:
  992. act 'To remove a bra':
  993. cls
  994. minut += 2
  995. topmfc = 0
  996. horny += 5
  997. gs 'stat'
  998. if backmfc = 1:
  999. '<center><img src="images/camwhore/camwhore4.jpg"></center>'
  1000. end
  1001. if backmfc = 0:
  1002. '<center><img src="images/camwhore/camwhore5.jpg"></center>'
  1003. end
  1004. 'You slowly, on the camera I take off my bra, Stripping his young maiden breast.'
  1005. act 'Further':gt 'Komp','waitclients'
  1006. end
  1007. end
  1008. if topmfc = 0 and clientask < 80:
  1009. act 'Play around with the chest':
  1010. cls
  1011. if webpopular < 15:
  1012. camclients += RAND(3,6)
  1013. elseif webpopular >= 15 and webpopular < 35:
  1014. camclients += RAND(5,10)
  1015. elseif webpopular >= 35 and webpopular < 75:
  1016. camclients += RAND(10,20)
  1017. elseif webpopular >= 75:
  1018. camclients += RAND(15,35)
  1019. end
  1020. minut += 2
  1021. horny += 5
  1022. if alko >= 4:
  1023. nippain = 1
  1024. end
  1025. chancetips = RAND(0,100)
  1026. if chancetips >= 85:
  1027. tokens += RAND(2,10)
  1028. end
  1029. gs 'stat'
  1030. if alko >= 4:
  1031. '<center><img src="images/camwhore/camwhore80.jpg"></center>'
  1032. else
  1033. '<center><img src="images/camwhore/camwhore9.jpg"></center>'
  1034. end
  1035. 'You played with my Breasts, deliberately pretending, completely forgot about the camera and focus is entirely on having fun.'
  1036. if horny >= 100:
  1037. webpopular -= 1
  1038. orgasm += 1
  1039. horny = 0
  1040. manna = mannamax
  1041. gs 'stat'
  1042. 'But, It seems, you have not calculated your endurance, and therefore, unable to resist, run a hand between her legs and cumming in front of <<camclients>> users completely free of charge.'
  1043. end
  1044. act 'Further':gt 'Komp','waitclients'
  1045. end
  1046. end
  1047. if backmfc = 1 and clientask < 80:
  1048. act 'Remove panties':
  1049. cls
  1050. minut += 2
  1051. backmfc = 0
  1052. horny += 5
  1053. gs 'stat'
  1054. if topmfc = 1:
  1055. '<center><img src="images/camwhore/camwhore5.jpg"></center>'
  1056. end
  1057. if topmfc = 0:
  1058. '<center><img src="images/camwhore/camwhore6.jpg"></center>'
  1059. end
  1060. 'You slowly, on camera, panties came off, exposing my crotch.'
  1061. act 'Further':gt 'Komp','waitclients'
  1062. end
  1063. end
  1064. if backmfc = 0 and clientask < 80:
  1065. act 'Play with the pussy':
  1066. cls
  1067. if webpopular < 15:
  1068. camclients += RAND(5,10)
  1069. elseif webpopular >= 15 and webpopular < 35:
  1070. camclients += RAND(10,15)
  1071. elseif webpopular >= 35 and webpopular < 75:
  1072. camclients += RAND(10,30)
  1073. elseif webpopular >= 75:
  1074. camclients += RAND(15,40)
  1075. end
  1076. minut += 2
  1077. horny += 5
  1078. chancetips = RAND(0,100)
  1079. if chancetips >= 75:
  1080. tokens += RAND(10,15)
  1081. end
  1082. gs 'stat'
  1083. '<center><img src="images/camwhore/camwhore11.jpg"></center>'
  1084. 'You with one hand playing with her pussy, another printing in the chat, so you were given tokens for more.'
  1085. if horny >= 100:
  1086. webpopular -= 1
  1087. orgasm += 1
  1088. horny = 0
  1089. manna = mannamax
  1090. gs 'stat'
  1091. 'But, It seems, you have not calculated your endurance, Wherefore came before <<camclients>> users completely free of charge.'
  1092. end
  1093. act 'Further':gt 'Komp','waitclients'
  1094. end
  1095. end
  1096. gs 'family'
  1097. if sisterHere = 0:
  1098. act 'To turn off the webcam':gt 'Komp','startpagemfc'
  1099. elseif sisterHere > 0:
  1100. cls
  1101. topmfc = 1
  1102. backmfc = 1
  1103. karta += tokens/2
  1104. gs 'stat'
  1105. '<center><img src="images/camwhore/camwhore2.jpg"></center>'
  1106. 'Suddenly you hear, how clacking handle locked doors, and a moment later you hear persistent "Light, let me in!"'
  1107. 'It seems, the show is over for today, so you start frantically to freshen up...'
  1108. act 'Further':gt 'Komp','mfc'
  1109. end
  1110. end
  1111. --- Komp ---------------------------------