Komp.qsrc 64 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859
  1. # komp
  2. if $ARGS[0] = 'start':
  3. *clr & cla
  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' or $loc = 'anushapt' or $loc = 'artemhome':
  15. internet_store = internet
  16. internet = 100000
  17. act 'Browse the internet':gt 'komp', 'brows'
  18. elseif $loc = 'dachain':
  19. internet_store = internet
  20. internet = 0
  21. else
  22. 'You have <<internet>> hours of prepaid internet access remaining.'
  23. if internet > 0: act 'Browse the internet':gt 'komp', 'brows'
  24. end
  25. act 'Shut your computer down':
  26. gt 'komp', 'fin'
  27. end
  28. end
  29. if $ARGS[0] = 'brows':
  30. *clr & cla
  31. gs 'stat'
  32. act 'Close the browser':
  33. if $loc = 'shulga_room' or $loc = 'anushapt' or $loc = 'artemhome' or $loc = 'dachain':
  34. internet = internet_store
  35. killvar 'internet_store'
  36. end
  37. gt 'komp','start'
  38. end
  39. if internet <= 0:
  40. '<center><b>Browser</b></center>'
  41. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/eror.jpg"></center>'
  42. 'You have no prepaid internet access remaining. You need to buy more, before you can go online again.'
  43. if camwhore = 1 and $loc ! 'shulga_room' and $loc ! 'anushapt':
  44. 'Since MyFreeCams will cover the cost, you can still log on to do a cam show.'
  45. act 'Go to MyFreeCams.org':gt 'komp', 'mfc'
  46. end
  47. else
  48. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
  49. 'You go to your favourite start page, while you try to decide on what you want to see right now.'
  50. 'A blinking banner for a <a href="exec:gt ''komp'',''agent''">Kirsanova Real Estate Agency</a> keeps popping up in the corner.'
  51. if home_owned[1] = 2 and husband = 0:act 'Rent your apartment out':gt 'komp', 'sale'
  52. if $loc ! 'anushapt': act 'Search for porn (1:00)':gt 'komp', 'porno'
  53. act 'Browse a dating website (1:00)':gt 'komp', 'znak'
  54. if hour < 20 and hour > 7:
  55. if $clothingworntype = 'nude':
  56. 'You need to be dressed before searching jobs.'
  57. else
  58. act 'Look for a job online':gt 'komp', 'rabota'
  59. end
  60. end
  61. act 'Search for cable TV services (1:00)':gt 'komp', 'kabtv'
  62. act 'Play an online game':gt 'KGstart'
  63. if fuckornot = 3: act 'Visit ''Fuckable or not'' site': $view_location = 'komp' & gt 'komp', 'fuckornot'
  64. if hotornot = 3: act 'Visit ''Hot or not'' site': $view_location = 'komp' & gt 'komp', 'hotornot'
  65. if bankAccount > 0: act 'Visit your bank, maybe to purchase more online time': gt 'komp', 'bank'
  66. if shantfoto > 0:act 'Find the girl you took photos of in the park on "Assbook"':gt 'komp', 'foto'
  67. if gor_dorm = 7:act 'Read letter from Eugene':gt 'etoexhib', 'pos91'
  68. if camwhore = 1 and $loc ! 'shulga_room' and $loc ! 'anushapt':act 'Go to MyFreeCams.org':gt 'komp', 'mfc'
  69. if (storyline = 1 and SchoolAtestat = 0) or student > 0:act 'Spend time studying':gt 'komp', 'study'
  70. if sucpcinfo = 0 and succubxp > 0: act 'Research the strange feelings you''ve been having': gt 'succubus', 'kompresearch'
  71. end
  72. end
  73. if $ARGS[0] = 'sale':
  74. *clr & cla
  75. minut += 60
  76. elektro += 3
  77. internet -= 1
  78. gs 'stat'
  79. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
  80. 'You go to a popular website where people can post advertisements for free. You could post an advertisement here.'
  81. if obkvsdam >= 1 and home_owned[1] = 2: 'You placed an advertisement to rent out your apartment. You should probably check every once in a while to see if anyone responded.'
  82. if obkvsdam = 0 and home_owned[1] = 2:
  83. act 'Rent out your city residential apartment':obkvsdam = 1 & gt 'komp', 'sale'
  84. elseif obkvsdam > 0:
  85. act 'Check if you got any replies':
  86. cla
  87. if obkvsdam = 1:
  88. 'No one has responded to your offer to rent out your apartment just yet.'
  89. elseif obkvsdam > 1:
  90. if obkvsdam = 2:predsumm = 16000
  91. if obkvsdam = 3:predsumm = 17000
  92. if obkvsdam = 4:predsumm = 18000
  93. if obkvsdam = 5:predsumm = 19000
  94. 'Someone wants to stay in your apartment for a month! They''re offering you <<predsumm>> <b>₽</b> in cash.'
  95. act 'Accept the offer':
  96. sdaday = day
  97. sdamonth = month + 1
  98. if sdamonth > 12:sdamonth = 1
  99. if sdaday > monthsEnd[sdamonth]:sdaday = monthsEnd[sdamonth]
  100. home_owned[1] = 3
  101. karta += predsumm
  102. gt 'komp', 'start'
  103. end
  104. end
  105. act 'Leave this website':gt 'komp', 'brows'
  106. end
  107. end
  108. act 'Leave this website':gt 'komp', 'brows'
  109. end
  110. if $ARGS[0] = 'porno':
  111. *clr & cla
  112. gs 'stat'
  113. if internet <= 0:
  114. '<center><b>Browser</b></center>'
  115. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/eror.jpg"></center>'
  116. 'You have no prepaid internet access remaining. You need to buy more, before you can go online again.'
  117. act '<B>Close the browser</B>':gt 'komp','start'
  118. elseif sisterHere > 0 and sisboytrio = 0 and $loc = 'bedrPar':
  119. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
  120. 'You shouldn''t watch porn with your sister in the room, she would notice for sure!'
  121. act 'Leave this website':gt 'komp', 'brows'
  122. else
  123. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
  124. 'You go to a porn site and browse for a few minutes, trying to find a hot video.'
  125. act 'Watch porn':
  126. *clr & cla
  127. elektro += 3
  128. pcs_mood += rand(10, 20)
  129. internet -= 1
  130. gs 'stat'
  131. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/porno.jpg"></center>'
  132. 'You find a video you think you''d enjoy, and spend some time watching it. Wow, that girl is so lucky...'
  133. gs 'arousal', 'porn', 60
  134. gs 'stat'
  135. act 'The video ends...':gt 'komp', 'porno'
  136. end
  137. if pcs_horny >= 50:act 'Masturbate (0:15)':gt 'komp', 'masturbate'
  138. act 'Leave this website':gt 'komp', 'brows'
  139. end
  140. end
  141. if $ARGS[0] = 'masturbate':
  142. *clr & cla
  143. internet -= 1
  144. elektro += 1
  145. gs 'sweat', 'add', 10
  146. if divanmastr = 0:
  147. divanmastr = 1
  148. stat['mast'] += 1
  149. if pcs_inhib < 30:inhib_exp += rand(1,3)
  150. end
  151. gs 'stat'
  152. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/kompmas.jpg"></center>'
  153. '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.'
  154. '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.'
  155. gs 'arousal', 'masturbate', 15
  156. gs 'stat'
  157. if pcs_horny >= 100:
  158. $orgasm_or = 'yes'
  159. $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!'
  160. gs 'arousal', 'masturbate', -1
  161. gs 'stat'
  162. end
  163. act 'Stop masturbating':divanmastr = 0 & gt 'komp', 'porno'
  164. gs 'arousal', 'end'
  165. gs 'stat'
  166. if pcs_horny >= 50:act 'Masturbate some more (0:15)':gt 'komp', 'masturbate'
  167. end
  168. if $ARGS[0] = 'pasians':
  169. *clr & cla
  170. minut += 20
  171. elektro += 3
  172. pcs_mood += rand(10, 20)
  173. gs 'stat'
  174. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
  175. 'You entertain yourself for about twenty minutes, playing a game of solitaire on the computer.'
  176. act 'Play for another 20 minutes':gt 'komp', 'pasians'
  177. act 'Return to desktop':gt 'komp', 'start'
  178. end
  179. if $ARGS[0] = 'znak':
  180. *clr & cla
  181. minut += 60
  182. pcs_mood += 5
  183. elektro += 3
  184. internet -= 1
  185. gs 'stat'
  186. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
  187. 'You enter a dating site, and immediately see all sorts of profiles of both men and women.'
  188. '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!'
  189. if gor_dorm = 8:
  190. act 'Pick someone suitable for Eugenia':
  191. cla
  192. gor_dorm = 9
  193. '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.'
  194. 'Now the waiting game begins! Let''s hope you picked a nice guy for her...'
  195. act 'Leave this website':gt 'komp', 'brows'
  196. end
  197. elseif curr_home ! 1 and curr_home ! 2 and curr_home ! 3 and curr_home ! 4 and curr_home ! 5:
  198. pcs_mood += rand(5, 10)
  199. 'You spend time looking at the various profiles, but it won''t let you register unless you have your own home and it is set as your current home.'
  200. 'Still, some of the pictures were quite raunchy and the more desperate profiles were really funny.'
  201. else
  202. if pcs_lover < 3:
  203. act 'Look for a kind man':
  204. cla
  205. gs 'boy'
  206. gs 'boyfrend', 'start'
  207. haraklover[lover_number] = 0
  208. 'You find a guy named <<$loverdesc[lover_number]>>, and send him your number after checking out his profile. You hope he will call you!'
  209. act 'Leave this website':gt 'komp', 'brows'
  210. end
  211. act 'Look for a normal guy':
  212. cla
  213. gs 'boy'
  214. gs 'boyfrend', 'start'
  215. haraklover[lover_number] = 1
  216. 'You find a guy named <<$loverdesc[lover_number]>>, and send him your number after checking out his profile. You hope he will call you!'
  217. act 'Leave this website':gt 'komp', 'brows'
  218. end
  219. act 'Look for a strong man':
  220. cla
  221. gs 'boy'
  222. gs 'boyfrend', 'start'
  223. haraklover[lover_number] = 2
  224. 'You find a guy named <<$loverdesc[lover_number]>>, and send him your number after checking out his profile. You hope he will call you!'
  225. act 'Leave this website':gt 'komp', 'brows'
  226. end
  227. end
  228. end
  229. act 'Leave this website':gt 'komp', 'brows'
  230. end
  231. if $ARGS[0] = 'kabtv':
  232. *clr & cla
  233. minut += 60
  234. elektro += 3
  235. internet -= 1
  236. gs 'stat'
  237. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
  238. '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.'
  239. ''
  240. if kabel = 1:
  241. 'You currently have a cable subscription for your TV.'
  242. act 'Cancel your cable subscription (300 <b>₽</b>)':
  243. cla
  244. kabel = 0
  245. karta -= 300
  246. msg '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.'
  247. gt 'komp', 'brows'
  248. end
  249. elseif kabel = 0 and TV = 1:
  250. 'You currently do not have a cable subscription for your TV.'
  251. act 'Get cable services for your TV':
  252. cla
  253. msg 'Unfortunately your TV is too old and crap for cable. You''ll have to get a modern TV first.'
  254. gt 'komp', 'brows'
  255. end
  256. elseif kabel = 0 and TV >= 2:
  257. 'You currently do not have a cable subscription for your TV.'
  258. act 'Get cable services for your TV (300 <b>₽</b> per month)':
  259. cla
  260. kabel = 1
  261. 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.'
  262. gt 'komp', 'brows'
  263. end
  264. else
  265. 'You don''t even have a TV!'
  266. act 'Leave this website':gt 'komp', 'brows'
  267. end
  268. act 'Leave this website':gt 'komp', 'brows'
  269. end
  270. if $ARGS[0] = 'foto':
  271. *clr & cla
  272. gs 'stat'
  273. if internet <= 0:
  274. '<center><b>Browser</b></center>'
  275. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/eror.jpg"></center>'
  276. 'You have no prepaid internet access remaining. You need to buy more, before you can go online again.'
  277. act '<B>Close the browser</B>':gt 'komp','start'
  278. else
  279. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
  280. '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!'
  281. '"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!"'
  282. '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!'
  283. if shantfoto > 0:
  284. act 'Try to find out who she is (1:00)':
  285. cla
  286. minut += 60
  287. elektro += 3
  288. internet -= 1
  289. fotsearchrand = rand(0,10)
  290. if fotsearchrand <= 7:
  291. 'Despite your best efforts, you don''t manage to find the girl this time.'
  292. act 'Go back to the "Assbook" main page':gt 'komp', 'foto'
  293. end
  294. if fotsearchrand > 7:
  295. shantfoto -= 1
  296. 'Despite your best efforts, you don''t manage to... wait, that''s her! You found her!'
  297. gerofotorand = rand(0,100)
  298. if gerofotorand > 30:
  299. '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.'
  300. act 'Go back to the "Assbook" main page':gt 'komp', 'foto'
  301. end
  302. if gerofotorand >= 5 and gerofotorand <= 30:
  303. shantsr += 1
  304. '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.'
  305. '"Why not make her spend some of it on me?" you laugh to yourself, and begin to write a private message.'
  306. '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.'
  307. act 'Go back to the "Assbook" main page':gt 'komp', 'foto'
  308. end
  309. if gerofotorand < 5:
  310. shantbog += 1
  311. '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!'
  312. '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.'
  313. act 'Go back to the "Assbook" main page':gt 'komp', 'foto'
  314. end
  315. end
  316. end
  317. end
  318. act 'Leave this website':gt 'komp', 'brows'
  319. end
  320. end
  321. if $ARGS[0] = 'rabota':
  322. *clr & cla
  323. if internet <= 0:
  324. '<center><b>Browser</b></center>'
  325. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/eror.jpg"></center>'
  326. 'You have no prepaid internet access remaining. You need to buy more, before you can go online again.'
  327. act 'Close the browser':gt 'komp','start'
  328. else
  329. minut += 60
  330. internet -= 1
  331. komprabota = rand(0, 10)
  332. if $loc = 'shulga_room':komprabota = rand(5, 15)
  333. gs 'stat'
  334. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/komp.jpg"></center>'
  335. if komprabota = 0 and gorodokkomp = 0:
  336. '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."'
  337. '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.'
  338. if pcs_apprnc < 120:
  339. 'You consider it for a moment, but decide against it. You''re probably not pretty enough to be an underwear model.'
  340. elseif pcs_apprnc >= 120:
  341. act 'Accept the job and go there':gt 'qjob', 'var1'
  342. end
  343. if hour < 20 and hour > 7:act 'Search for more jobs':gt 'komp', 'rabota'
  344. act 'Leave this website':gt 'komp', 'brows'
  345. elseif komprabota = 1 and gorodokkomp = 0:
  346. '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."'
  347. '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.'
  348. if pcs_apprnc < 120:
  349. 'You consider it for a moment, but decide against it. You''re probably not pretty enough to be an underwear model.'
  350. elseif pcs_apprnc >= 120:
  351. act 'Accept the job and go there':gt 'qjob', 'var2'
  352. end
  353. if hour < 20 and hour > 7:act 'Search for more jobs':gt 'komp', 'rabota'
  354. act 'Leave this website':gt 'komp', 'brows'
  355. elseif komprabota > 1 and komprabota < 5 and gorodokkomp = 0:
  356. '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."'
  357. '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.'
  358. if pcs_apprnc < 60:
  359. 'You consider it for a moment, but decide against it. You''re probably not pretty enough to be a model.'
  360. elseif pcs_apprnc >= 60:
  361. act 'Accept the job and go there':gt 'qjob', 'var3'
  362. end
  363. if hour < 20 and hour > 7:act 'Search for more jobs':gt 'komp', 'rabota'
  364. act 'Leave this website':gt 'komp', 'brows'
  365. elseif komprabota > 4 and komprabota < 8 and camwhore = 0:
  366. 'You find a job vacancy, on a legit looking website. It reads: "Wanted! Webcam models. Flexible working hours. Click for more info."'
  367. act 'Gather more information':
  368. *clr & cla
  369. minut += 5
  370. gs 'stat'
  371. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore1.jpg"></center>'
  372. 'You click the button and get taken to the full job description.'
  373. '<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.'
  374. 'The website will cover all costs during your shows. But 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.'
  375. '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.'
  376. '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.'
  377. 'If you''re interested in becoming a webcam girl, please fill in this questionnaire below.</i>'
  378. if pcs_inhib >= 40 or exhibitionist_lvl > 1 or (pcs_inhib >= 35 and exhibitionist_lvl > 0):
  379. act 'Fill in the questionnaire':
  380. *clr & cla
  381. camwhore = 1
  382. mfcclients = 0
  383. camclients = 0
  384. mfccum = 0
  385. minut += 20
  386. gs 'stat'
  387. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore2.jpg"></center>'
  388. if $pcs_webcamname = '':
  389. 'You consider which name you''d like to register under.'
  390. $pcs_webcamname = input("Which name would you like to use? (Leave blank for <<$pcs_nickname>>)")
  391. if $pcs_webcamname = '':$pcs_webcamname = '<<$pcs_nickname>>'
  392. end
  393. '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.'
  394. '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.'
  395. act 'Leave this website':gt 'komp','brows'
  396. end
  397. act 'Leave this website':gt 'komp','brows'
  398. else
  399. ''
  400. 'You don''t feel comfortable showing of your body.'
  401. end
  402. if hour < 20 and hour > 7:act 'Search for more jobs':gt 'komp','rabota'
  403. act 'Leave this website':gt 'komp','brows'
  404. end
  405. else
  406. 'Unfortunately, you do not find any jobs you would consider doing.'
  407. if hour < 20 and hour > 7:act 'Search for more jobs':gt 'komp','rabota'
  408. act 'Leave this website':gt 'komp','brows'
  409. end
  410. end
  411. end
  412. if $ARGS[0] = 'study':
  413. *clr & cla
  414. minut = minut + 60
  415. elektro = elektro + 3
  416. internet -= 1
  417. intel_exp += 1 + (mentats_dose - rand(0,mentats_dose))
  418. compskl_exp += 1
  419. '<center><b>The Institute for Education Measurement</b></center>'
  420. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/study.jpg"></center>'
  421. 'You spend an hour on the IEM website, reading news articles and educational blogs. You feel a bit smarter afterwards.'
  422. act 'Leave this website':gt'komp','brows'
  423. end
  424. if $ARGS[0] = 'kursak':
  425. *clr & cla
  426. minut += 60
  427. elektro += 3
  428. internet -= 1
  429. pcs_mood -= 10
  430. compskl_exp += 1
  431. kursovik = kursovik + rand(pcs_intel/20,pcs_intel/10)
  432. if kursovik > 100:kursovik = 100
  433. '<center><b>Coursework</b></center>'
  434. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/kursak.jpg"></center>'
  435. 'It may be boring, but it still needs doing! You spend an hour doing coursework, and <<kursovik>>% of it is now finished.'
  436. act 'Leave this website':gt 'komp','brows'
  437. end
  438. if $ARGS[0] = 'agent':
  439. *clr & cla
  440. minut += 60
  441. elektro += 3
  442. internet -= 1
  443. gs 'stat'
  444. gs 'housing', 'rent'
  445. gs 'housing', 'sale'
  446. '<center><b>Kirsanova Real Estate Agency</b></center>'
  447. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/agent.jpg"></center>'
  448. *nl
  449. 'You''re currently at the website of the largest real estate agency in the area, Kirsanova Real Estate Agency.'
  450. '<br>The website shows they have apartments available for rent or purchase in various areas, both in and out of the city. Renting or purchase requires you visit the agency in the city center to fill an application and collect the keys. Rent on all properties is deducted every month on the 25th.'
  451. *nl
  452. '<b>Property listing</b>:'
  453. if ArendHouseSL > 0:
  454. 'You have <B><<ArendHouseSL>> days</B> remaining on the rental of your St. Petersburg apartment.'
  455. *nl
  456. elseif home_owned[1] = 0 and ArendHouseSL = 0:
  457. 'There is an apartment in St. Petersburg residental area available, for rent or puchase.'
  458. 'Rent is: <<$home_rent_txt[1]>> ₽ per month. Current sale price is listed at: <<$home_value_txt[1]>> <b>₽</b>.'
  459. *nl
  460. end
  461. if home_owned[3] = 0:
  462. 'There is a holiday cottage with an adjacent allotment in the communal village for sale.'
  463. 'Current sale price is listed at: <<$home_value_txt[3]>> <b>₽</b>.'
  464. *nl
  465. end
  466. if home_owned[4] > 0 and ArendHouseSL4 > 0:
  467. 'You have <B><<ArendHouseSL4>> days</B> remaining on the rental of your Pushkin apartment.'
  468. *nl
  469. elseif home_owned[4] = 0 and ArendHouseSL4 = 0:
  470. 'There is an apartment in Pushkin area (Old Town) available to rent.'
  471. 'Rent is: <<$home_rent_txt[4]>> <b>₽</b> per month.'
  472. *nl
  473. end
  474. if home_owned[5] = 0:
  475. 'There is a plot in the suburbs available for puchase, with planning permission for a mansion.'
  476. 'Current sale price is listed at: <<$home_value_txt[5]>> <b>₽</b>.'
  477. *nl
  478. end
  479. if karta + bankDebtLimit >= home_rent[1] and home_owned[1] = 1:
  480. act 'Pay rent on St. Petersburg':
  481. cla
  482. karta -= home_rent[1]
  483. ArendHouseSL += ArendHouseSL_due
  484. 'After a very simple procedure, you can now call an apartment in the city residential district home for another 30 days. You have <B><<ArendHouseSL>> days</B> remaining on the rental of your apartment.'
  485. act 'Leave this website':gt 'komp','brows'
  486. end
  487. end
  488. if karta + bankDebtLimit >= home_rent[4] and home_owned[4] > 0:
  489. act 'Pay rent on Pushkin':
  490. cla
  491. karta -= home_rent[4]
  492. ArendHouseSL4 += ArendHouseSL_due
  493. 'After a very simple procedure, you can now call an apartment in Pushkin home for another 30 days. You have <B><<ArendHouseSL4>> days</B> remaining on the rental of your apartment.'
  494. act 'Leave this website':gt 'komp','brows'
  495. end
  496. end
  497. act 'Leave this website':gt 'komp','brows'
  498. end
  499. if $ARGS[0] = 'mfc':
  500. if mesec > 0:
  501. *clr & cla
  502. minut += 2
  503. topmfc = 1
  504. backmfc = 1
  505. tokens = 0
  506. camclients = 0
  507. gs 'stat'
  508. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore2.jpg"></center>'
  509. '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.'
  510. act 'Leave this website':gt 'komp','brows'
  511. elseif sisterHere = 0 or $loc ! 'bedrPar':
  512. act 'Go to your MFC homepage':
  513. *clr & cla
  514. minut += 2
  515. gs 'stat'
  516. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore3.jpg"></center>'
  517. 'You enter your own chatroom on the website. You currently have <<camclients>> viewers.'
  518. act 'Continue':gt 'komp','startpagemfc'
  519. end
  520. act 'Leave this website':
  521. *clr & cla
  522. minut += 2
  523. topmfc = 1
  524. backmfc = 1
  525. tokens = 0
  526. camclients = 0
  527. gs 'stat'
  528. gt 'komp','brows'
  529. end
  530. elseif sisterHere > 0 and $loc = 'bedrPar':
  531. *clr & cla
  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. 'You can''t do any webcam activities with your sister in the room!'
  540. act 'Leave this website':gt 'komp','brows'
  541. end
  542. end
  543. if $ARGS[0] = 'startpagemfc':
  544. if vgape > 10 or agape > 10:
  545. *clr & cla
  546. gs 'stat'
  547. '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.'
  548. act 'Collect your earnings and leave':
  549. karta += tokens * 2
  550. gt 'komp','mfc'
  551. end
  552. else
  553. *clr & cla
  554. gs 'stat'
  555. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore3.jpg"></center>'
  556. 'You casually chat with the <<camclients>> visitors currently in your chatroom. Once you turn on your webcam, things will probably get busier.'
  557. act 'Turn on your webcam':gt 'komp','waitclients'
  558. act 'Collect your earnings and leave':
  559. karta += tokens * 2
  560. gt 'komp','mfc'
  561. end
  562. end
  563. end
  564. if $ARGS[0] = 'waitclients':
  565. gs'family'
  566. *clr & cla
  567. minut += rand(1,4)
  568. if mfccum > 0: mfcdaycum = daystart
  569. mfcclients += 1
  570. $menu_loc = 'komp'
  571. $menu_arg = 'waitclients'
  572. menu_off = 0
  573. if topmfc = 1 and backmfc = 1:
  574. if pcs_apprnc < 100:
  575. if webpopular < 15:
  576. if mfcclients > 5:
  577. camclients -= rand(1,3)
  578. else
  579. camclients += rand(1,3)
  580. end
  581. elseif webpopular >= 15 and webpopular < 35:
  582. if mfcclients > 3:
  583. camclients -= rand(3,5)
  584. else
  585. camclients += rand(3,5)
  586. end
  587. elseif webpopular >= 35 and webpopular < 75:
  588. if mfcclients > 3:
  589. camclients -= rand(4,8)
  590. else
  591. camclients += rand(4,8)
  592. end
  593. elseif webpopular >= 75:
  594. if mfcclients > 3:
  595. camclients -= rand(5,15)
  596. else
  597. camclients += rand(5,15)
  598. end
  599. end
  600. chancetips = rand(0,100)
  601. clientask = rand(20,100)
  602. if chancetips >= 95 and camclients >= 250:
  603. if webpopular >= 50:
  604. tokens += rand(10,30)
  605. else
  606. tokens += rand(1,20)
  607. end
  608. end
  609. else
  610. if webpopular < 15:
  611. if mfcclients > 5:
  612. camclients -= rand(1,3)
  613. else
  614. camclients += rand(3,5)
  615. end
  616. elseif webpopular >= 15 and webpopular < 35:
  617. if mfcclients > 5:
  618. camclients -= rand(3,5)
  619. else
  620. camclients += rand(5,8)
  621. end
  622. elseif webpopular >= 35 and webpopular < 75:
  623. if mfcclients > 5:
  624. camclients -= rand(5,8)
  625. else
  626. camclients += rand(5,12)
  627. end
  628. elseif webpopular >= 75:
  629. if mfcclients > 5:
  630. camclients -= rand(8,12)
  631. else
  632. camclients += rand(8,15)
  633. end
  634. end
  635. chancetips = rand(5,100)
  636. clientask = rand(30,100)
  637. if chancetips >= 95 and camclients >= 200:
  638. if webpopular >= 50:
  639. tokens += rand(10,40)
  640. else
  641. tokens += rand(1,20)
  642. end
  643. end
  644. end
  645. elseif topmfc = 0 and backmfc = 1:
  646. if pcs_apprnc < 100:
  647. if webpopular < 15:
  648. if mfcclients > 3:
  649. camclients -= rand(1,3)
  650. else
  651. camclients += rand(1,3)
  652. end
  653. elseif webpopular >= 15 and webpopular < 35:
  654. if mfcclients > 3:
  655. camclients -= rand(1,5)
  656. else
  657. camclients += rand(1,5)
  658. end
  659. elseif webpopular >= 35 and webpopular < 75:
  660. if mfcclients > 3:
  661. camclients -= rand(5,10)
  662. else
  663. camclients += rand(5,10)
  664. end
  665. elseif webpopular >= 75:
  666. if mfcclients > 3:
  667. camclients -= rand(6,15)
  668. else
  669. camclients += rand(6,15)
  670. end
  671. end
  672. chancetips = rand(5,90)
  673. clientask = rand(30,100)
  674. if chancetips >= 85 and camclients >= 230:
  675. if webpopular >= 50:
  676. tokens += rand(10,35)
  677. else
  678. tokens += rand(1,20)
  679. end
  680. end
  681. else
  682. if webpopular < 15:
  683. if mfcclients > 5:
  684. camclients -= rand(1,3)
  685. else
  686. camclients += rand(3,6)
  687. end
  688. elseif webpopular >= 15 and webpopular < 35:
  689. if mfcclients > 5:
  690. camclients -= rand(3,6)
  691. else
  692. camclients += rand(5,10)
  693. end
  694. elseif webpopular >= 35 and webpopular < 75:
  695. if mfcclients > 5:
  696. camclients -= rand(6,10)
  697. else
  698. camclients += rand(7,12)
  699. end
  700. elseif webpopular >= 75:
  701. if mfcclients > 5:
  702. camclients -= rand(7,12)
  703. else
  704. camclients += rand(10,15)
  705. end
  706. end
  707. chancetips = rand(10,90)
  708. clientask = rand(35,100)
  709. if chancetips >= 85 and camclients >= 200:
  710. if webpopular >= 50:
  711. tokens += rand(15,35)
  712. else
  713. tokens += rand(1,20)
  714. end
  715. end
  716. end
  717. elseif topmfc = 1 and backmfc = 0:
  718. if pcs_apprnc < 100:
  719. if webpopular < 15:
  720. if mfcclients > 3:
  721. camclients -= rand(1,3)
  722. else
  723. camclients += rand(1,3)
  724. end
  725. elseif webpopular >= 15 and webpopular < 35:
  726. if mfcclients > 3:
  727. camclients -= rand(2,5)
  728. else
  729. camclients += rand(2,5)
  730. end
  731. elseif webpopular >= 35 and webpopular < 75:
  732. if mfcclients > 3:
  733. camclients -= rand(5,15)
  734. else
  735. camclients += rand(5,15)
  736. end
  737. elseif webpopular >= 75:
  738. if mfcclients > 3:
  739. camclients -= rand(5,20)
  740. else
  741. camclients += rand(5,20)
  742. end
  743. end
  744. chancetips = rand(10,80)
  745. clientask = rand(30,100)
  746. if chancetips >= 75 and camclients >= 200:
  747. if webpopular >= 50:
  748. tokens += rand(10,40)
  749. else
  750. tokens += rand(1,20)
  751. end
  752. end
  753. else
  754. if webpopular < 15:
  755. if mfcclients > 5:
  756. camclients -= rand(1,3)
  757. else
  758. camclients += rand(4,7)
  759. end
  760. elseif webpopular >= 15 and webpopular < 35:
  761. if mfcclients > 5:
  762. camclients -= rand(4,8)
  763. else
  764. camclients += rand(5,12)
  765. end
  766. elseif webpopular >= 35 and webpopular < 75:
  767. if mfcclients > 5:
  768. camclients -= rand(5,12)
  769. else
  770. camclients += rand(9,15)
  771. end
  772. elseif webpopular >= 75:
  773. if mfcclients > 5:
  774. camclients -= rand(8,15)
  775. else
  776. camclients += rand(15,20)
  777. end
  778. end
  779. chancetips = rand(15,80)
  780. clientask = rand(35,100)
  781. if chancetips >= 75 and camclients >= 170:
  782. if webpopular >= 50:
  783. tokens += rand(15,45)
  784. else
  785. tokens += rand(1,20)
  786. end
  787. end
  788. end
  789. else
  790. if pcs_apprnc < 100:
  791. if webpopular < 15:
  792. if mfcclients > 3:
  793. camclients -= rand(1,4)
  794. else
  795. camclients += rand(1,4)
  796. end
  797. elseif webpopular >= 15 and webpopular < 35:
  798. if mfcclients > 3:
  799. camclients -= rand(3,10)
  800. else
  801. camclients += rand(3,10)
  802. end
  803. elseif webpopular >= 35 and webpopular < 75:
  804. if mfcclients > 3:
  805. camclients -= rand(10,20)
  806. else
  807. camclients += rand(10,20)
  808. end
  809. elseif webpopular >= 75:
  810. if mfcclients > 3:
  811. camclients -= rand(10,30)
  812. else
  813. camclients += rand(10,30)
  814. end
  815. end
  816. chancetips = rand(15,50)
  817. clientask = rand(35,100)
  818. if chancetips >= 45 and camclients >= 150:
  819. if webpopular >= 50:
  820. tokens += rand(20,50)
  821. else
  822. tokens += rand(5,25)
  823. end
  824. end
  825. else
  826. if webpopular < 15:
  827. if mfcclients > 5:
  828. camclients -= rand(1,4)
  829. else
  830. camclients += rand(3,8)
  831. end
  832. elseif webpopular >= 15 and webpopular < 35:
  833. if mfcclients > 5:
  834. camclients -= rand(3,8)
  835. else
  836. camclients += rand(3,15)
  837. end
  838. elseif webpopular >= 35 and webpopular < 75:
  839. if mfcclients > 5:
  840. camclients -= rand(5,12)
  841. else
  842. camclients += rand(10,20)
  843. end
  844. elseif webpopular >= 75:
  845. if mfcclients > 5:
  846. camclients -= rand(8,18)
  847. else
  848. camclients += rand(10,30)
  849. end
  850. end
  851. chancetips = rand(20,50)
  852. clientask = rand(45,100)
  853. if chancetips >= 45 and camclients >= 100:
  854. if webpopular >= 50:
  855. tokens += rand(30,50)
  856. else
  857. tokens += rand(10,30)
  858. end
  859. end
  860. end
  861. end
  862. if camclients <= 0:camclients = 0
  863. gs 'stat'
  864. if topmfc = 1 and backmfc = 1:
  865. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore3.jpg"></center>'
  866. elseif topmfc = 0 and backmfc = 1:
  867. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore4.jpg"></center>'
  868. elseif topmfc = 1 and backmfc = 0:
  869. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore5.jpg"></center>'
  870. else
  871. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore6.jpg"></center>'
  872. end
  873. tokenpay = tokens * 2
  874. 'You take a moment of rest, and just chat casually with your <<camclients>> visitors.'
  875. 'You have earned <<tokens>> tokens so far this session, which amounts to <<tokenpay>> <b>₽</b>.'
  876. act 'Wait for more visitors':gt 'komp','waitclients'
  877. if topmfc = 1 and clientask >= 91:
  878. *clr & cla
  879. gs 'stat'
  880. menu_off = 1
  881. '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...'
  882. act 'Remove your bra':
  883. *clr & cla
  884. webpopular += 1
  885. topmfc = 0
  886. mfcclients -= 1
  887. if webpopular < 15:
  888. tokens += rand(10,25)
  889. elseif webpopular >= 15 and webpopular < 35:
  890. tokens += rand(15,25)
  891. elseif webpopular >= 35 and webpopular < 75:
  892. tokens += rand(25,50)
  893. elseif webpopular >= 75:
  894. tokens += rand(50,150)
  895. end
  896. gs 'stat'
  897. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore7.jpg"></center>'
  898. '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.'
  899. 'While you sit back down and toss your bra to the ground, you hear the donation sound several times. Your visitors enjoyed that!'
  900. gs 'arousal', 'porn', 2, 'exhibitionism'
  901. gs 'stat'
  902. act 'Continue':gt 'komp','waitclients'
  903. end
  904. act 'Tease instead':
  905. *clr & cla
  906. webpopular += rand(-1,1)
  907. mfcclients += rand (-1,1)
  908. if webpopular < 15:
  909. tokens += rand(0,10)
  910. elseif webpopular >= 15 and webpopular < 35:
  911. tokens += rand(0,15)
  912. elseif webpopular >= 35 and webpopular < 75:
  913. tokens += rand(5,30)
  914. elseif webpopular >= 75:
  915. tokens += rand(25,50)
  916. end
  917. gs 'stat'
  918. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/tits2.mp4"></video></center>'
  919. 'Not quite prepared to reveal your breasts you play with them trough your shirt hoping that will appease the crowd.'
  920. gs 'arousal', 'porn', 2, 'exhibitionism'
  921. gs 'stat'
  922. act 'Continue':gt 'komp','waitclients'
  923. end
  924. act 'Give them a brief look':
  925. *clr & cla
  926. webpopular += rand(-1,1)
  927. mfcclients += rand(-1,1)
  928. if webpopular < 15:
  929. tokens += rand(0,15)
  930. elseif webpopular >= 15 and webpopular < 35:
  931. tokens += rand(0,25)
  932. elseif webpopular >= 35 and webpopular < 75:
  933. tokens += rand(5,40)
  934. elseif webpopular >= 75:
  935. tokens += rand(25,75)
  936. end
  937. gs 'stat'
  938. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/undress4.mp4"></video></center>'
  939. 'You playfully lift your top hoping a short viewing will sate them for the time being and encourage them to stay for more.'
  940. gs 'arousal', 'porn', 2
  941. gs 'stat'
  942. act 'Continue':gt 'komp','waitclients'
  943. end
  944. gs 'willpower', 'exhib', 'resist', 'hard'
  945. if will_cost <= pcs_willpwr:
  946. act 'Refuse to take off your bra (<<will_cost>> Willpower)':
  947. *clr & cla
  948. webpopular -= 1
  949. gs 'willpower', 'pay', 'resist'
  950. gs 'stat'
  951. gt 'komp','waitclients'
  952. end
  953. else
  954. act 'Refuse to take off your bra (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  955. end
  956. end
  957. if backmfc = 1 and clientask >= 81 and clientask < 91:
  958. *clr & cla
  959. menu_off = 1
  960. '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.'
  961. act 'Take off your panties':
  962. *clr & cla
  963. mfcclients -= 1
  964. webpopular += 1
  965. backmfc = 0
  966. if webpopular < 15:
  967. tokens += rand(10,25)
  968. elseif webpopular >= 15 and webpopular < 35:
  969. tokens += rand(15,25)
  970. elseif webpopular >= 35 and webpopular < 75:
  971. tokens += rand(25,50)
  972. elseif webpopular >= 75:
  973. tokens += rand(50,150)
  974. end
  975. gs 'stat'
  976. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore8.jpg"></center>'
  977. '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.'
  978. 'As promised, you receive some tokens.'
  979. gs 'arousal', 'porn', 2, 'exhibitionism'
  980. gs 'stat'
  981. act 'Continue':gt 'komp','waitclients'
  982. end
  983. act 'Tease instead':
  984. *clr & cla
  985. webpopular += rand(-1,1)
  986. mfcclients += rand(-1,1)
  987. if webpopular < 15:
  988. tokens += rand(0,15)
  989. elseif webpopular >= 15 and webpopular < 35:
  990. tokens += rand(0,25)
  991. elseif webpopular >= 35 and webpopular < 75:
  992. tokens += rand(5,40)
  993. elseif webpopular >= 75:
  994. tokens += rand(25,75)
  995. end
  996. gs 'stat'
  997. if topmfc = 1:
  998. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/undress2.mp4"></video></center>'
  999. 'Deciding to stay clothed a little longer you feel that you won''t be able to satisfy the crowd without showing at least some skin.'
  1000. 'Standing up you start to dancing flashing your tits and ass to cam.'
  1001. end
  1002. if topmfc = 0:
  1003. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/show5.mp4"></video></center>'
  1004. 'Lowering your panties to emphasize your butt you shake it briefly in an effort to appease the crowd'
  1005. end
  1006. gs 'arousal', 'porn', 2, 'exhibitionism'
  1007. gs 'stat'
  1008. act 'Continue':gt 'komp','waitclients'
  1009. end
  1010. act 'Give them a brief look':
  1011. *clr & cla
  1012. webpopular += rand(-1,1)
  1013. mfcclients += rand(-1,1)
  1014. if webpopular < 15:
  1015. tokens += rand(0,15)
  1016. elseif webpopular >= 15 and webpopular < 35:
  1017. tokens += rand(0,25)
  1018. elseif webpopular >= 35 and webpopular < 75:
  1019. tokens += rand(5,40)
  1020. elseif webpopular >= 75:
  1021. tokens += rand(25,75)
  1022. end
  1023. gs 'stat'
  1024. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/show1.mp4"></video></center>'
  1025. 'You push your panties to the side and bend over to give a short preview of what''s to come before quickly covering up again and hoping it was enough to keep viewers interested.'
  1026. gs 'arousal', 'porn', 2, 'exhibitionism'
  1027. gs 'stat'
  1028. act 'Continue':gt 'komp','waitclients'
  1029. end
  1030. gs 'willpower', 'exhib', 'resist', 'hard'
  1031. if will_cost <= pcs_willpwr:
  1032. act 'Refuse to take off your panties (<<will_cost>> Willpower)':
  1033. *clr & cla
  1034. webpopular -= 1
  1035. gs 'willpower', 'pay', 'resist'
  1036. gs 'stat'
  1037. gt 'komp','waitclients'
  1038. end
  1039. else
  1040. act 'Refuse to take off your panties (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  1041. end
  1042. end
  1043. if topmfc = 0 and clientask >= 95 and clientask < 99:
  1044. menu_off = 1
  1045. *clr & cla
  1046. 'One of the visitors types: "Play with those titties, girl! I''ll pay!"'
  1047. act 'Play with your boobs':
  1048. *clr & cla
  1049. mfcclients = 0
  1050. webpopular += rand(hotcat/2 -2,hotcat/2)
  1051. backmfc = 0
  1052. if webpopular < 15:
  1053. tokens += rand(15,25)
  1054. elseif webpopular >= 15 and webpopular < 35:
  1055. tokens += rand(20,30)
  1056. elseif webpopular >= 35 and webpopular < 75:
  1057. tokens += rand(50,100)
  1058. elseif webpopular >= 75:
  1059. tokens += rand(50,150)
  1060. end
  1061. gs 'stat'
  1062. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore10.jpg"></center>'
  1063. '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.'
  1064. gs 'arousal', 'porn', 2, 'exhibitionism'
  1065. gs 'stat'
  1066. act 'Continue':gt 'komp','waitclients'
  1067. end
  1068. gs 'willpower', 'exhib', 'resist', 'hard'
  1069. if will_cost <= pcs_willpwr:
  1070. act 'Refuse to play with your boobs (<<will_cost>> Willpower)':
  1071. *clr & cla
  1072. webpopular -= 1
  1073. gs 'willpower', 'pay', 'resist'
  1074. gs 'stat'
  1075. gt 'komp','waitclients'
  1076. end
  1077. else
  1078. act 'Refuse to play with your boobs (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  1079. end
  1080. end
  1081. if backmfc = 0 and clientask = 99:
  1082. menu_off = 1
  1083. *clr & cla
  1084. '"Let''s see that sweet cunt of yours again, whore!" one of your visitors says.'
  1085. 'He''s kinda rude about it, but then again... he''s willing to pay.'
  1086. act 'Do it':
  1087. *clr & cla
  1088. mfcclients = 0
  1089. webpopular += rand(hotcat/2 -2,hotcat/2)
  1090. if webpopular < 15:
  1091. tokens += rand(20,25)
  1092. elseif webpopular >= 15 and webpopular < 35:
  1093. tokens += rand(25,50)
  1094. elseif webpopular >= 35 and webpopular < 75:
  1095. tokens += rand(50,100)
  1096. elseif webpopular >= 75:
  1097. tokens += rand(100,150)
  1098. end
  1099. gs 'stat'
  1100. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore12.jpg"></center>'
  1101. '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.'
  1102. gs 'arousal', 'porn', 2, 'exhibitionism'
  1103. gs 'stat'
  1104. if pcs_horny >= 100:
  1105. mfccum += 1
  1106. pcs_mood = 100
  1107. gs 'stat'
  1108. $orgasm_or = 'custom'
  1109. $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!'
  1110. end
  1111. act 'Continue':gt 'komp','waitclients'
  1112. end
  1113. gs 'willpower', 'exhib', 'resist', 'hard'
  1114. if will_cost <= pcs_willpwr:
  1115. act 'Ignore him (<<will_cost>> Willpower)':
  1116. *clr & cla
  1117. webpopular -= 1
  1118. gs 'willpower', 'pay', 'resist'
  1119. gs 'stat'
  1120. gt 'komp','waitclients'
  1121. end
  1122. else
  1123. act 'Ignore him (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  1124. end
  1125. end
  1126. if backmfc = 0 and clientask = 100:
  1127. menu_off = 1
  1128. *clr & cla
  1129. 'One of the visitors asks very politely: "Uh, hi! Could you please show me your vagina up close?"'
  1130. act 'Show him your vagina':
  1131. *clr & cla
  1132. mfcclients = 0
  1133. webpopular += rand(hotcat/2 -2,hotcat/2)
  1134. if webpopular < 15:
  1135. tokens += rand(10,25)
  1136. elseif webpopular >= 15 and webpopular < 35:
  1137. tokens += rand(15,25)
  1138. elseif webpopular >= 35 and webpopular < 75:
  1139. tokens += rand(25,50)
  1140. elseif webpopular >= 75:
  1141. tokens += rand(50,150)
  1142. end
  1143. gs 'stat'
  1144. if analplugIN = 1:
  1145. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore19.jpg"></center>'
  1146. end
  1147. if pcs_vag = 0 and analplugIN = 0:
  1148. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore18.jpg"></center>'
  1149. end
  1150. if pcs_vag > 0 and pcs_vag <= 10 and analplugIN = 0:
  1151. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore13.jpg"></center>'
  1152. end
  1153. if pcs_vag > 10 and pcs_vag <= 15 and analplugIN = 0:
  1154. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore14.jpg"></center>'
  1155. end
  1156. if pcs_vag > 15 and pcs_vag <= 25 and analplugIN = 0:
  1157. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore15.jpg"></center>'
  1158. end
  1159. if pcs_vag > 25 and pcs_vag <= 35 and analplugIN = 0:
  1160. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore16.jpg"></center>'
  1161. end
  1162. if pcs_vag > 35 and analplugIN = 0:
  1163. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore17.jpg"></center>'
  1164. end
  1165. '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!'
  1166. gs 'arousal', 'porn', 2, 'exhibitionism'
  1167. gs 'stat'
  1168. act 'Continue':gt 'komp','waitclients'
  1169. end
  1170. gs 'willpower', 'exhib', 'resist', 'hard'
  1171. if will_cost <= pcs_willpwr:
  1172. act 'Ignore him (<<will_cost>> Willpower)':
  1173. *clr & cla
  1174. webpopular -= 1
  1175. gs 'willpower', 'pay', 'resist'
  1176. gs 'stat'
  1177. gt 'komp','waitclients'
  1178. end
  1179. else
  1180. act 'Ignore him (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  1181. end
  1182. end
  1183. if backmfc = 0 and pcs_ass >= 30 and webpopular >= 50 and clientask = 80:
  1184. menu_off = 1
  1185. *clr & cla
  1186. '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...'
  1187. act 'Show them your battered sphincter':
  1188. *clr & cla
  1189. mfcclients = 0
  1190. webpopular += rand(hotcat/2-1,1+hotcat/2)
  1191. backmfc = 0
  1192. if pcs_apprnc > 100:
  1193. tokens += rand(50,100)
  1194. else
  1195. tokens += rand(40,75)
  1196. end
  1197. if webpopular < 15:
  1198. tokens += rand(25,50)
  1199. elseif webpopular >= 15 and webpopular < 35:
  1200. tokens += rand(50,100)
  1201. elseif webpopular >= 35 and webpopular < 75:
  1202. tokens += rand(100,150)
  1203. elseif webpopular >= 75:
  1204. tokens += rand(100,200)
  1205. end
  1206. gs 'stat'
  1207. if analplugIN = 0:
  1208. if cumsumass > 39:
  1209. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore74.jpg"></center>'
  1210. '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.'
  1211. '"Oh my god, is that sperm!?" someone wonders.'
  1212. '"Definitely! What a whore!" someone else adds.'
  1213. '"I''d love to add my load to that!" a third one laughs.'
  1214. '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.'
  1215. 'At least the visitor who promised to donate did, so you''re a few tokens richer.'
  1216. gs 'arousal', 'porn', 2, 'exhibitionism'
  1217. gs 'stat'
  1218. else
  1219. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore20,<<rand(0,7)>>.jpg"></center>'
  1220. '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.'
  1221. 'Then your greed overcomes you. They already know... you might as well earn some money by showing them properly, right?'
  1222. 'You pull your ass cheeks aside, giving them a good view of your worn out anus.'
  1223. gs 'arousal', 'porn', 2, 'exhibitionism'
  1224. gs 'stat'
  1225. end
  1226. else
  1227. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore21.jpg"></center>'
  1228. 'You smile to yourself, he''s going to love what you have in store for him!'
  1229. '"I''m sorry", you tell him, explicitly mentioning his username as well. "I can''t right now..."'
  1230. '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.'
  1231. gs 'arousal', 'porn', 2, 'exhibitionism'
  1232. gs 'stat'
  1233. end
  1234. act 'Continue':gt 'komp','waitclients'
  1235. end
  1236. gs 'willpower', 'exhib', 'resist', 'hard'
  1237. if will_cost <= pcs_willpwr:
  1238. act 'Ignore him (<<will_cost>> Willpower)':
  1239. *clr & cla
  1240. webpopular -= 1
  1241. gs 'willpower', 'pay', 'resist'
  1242. gs 'stat'
  1243. gt 'komp','waitclients'
  1244. end
  1245. else
  1246. act 'Ignore him (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  1247. end
  1248. end
  1249. if webpopular >= 15 and pcs_ass >= 15 and clientask = 89:
  1250. menu_off = 1
  1251. *clr & cla
  1252. gt 'kompMFCtwo'
  1253. end
  1254. if webpopular < 50 and clientask = 88:
  1255. menu_off = 1
  1256. *clr & cla
  1257. gt 'kompMFCtwo'
  1258. end
  1259. if webpopular >= 50 and pcs_vag >= 35 and clientask = 87:
  1260. menu_off = 1
  1261. *clr & cla
  1262. gt 'kompMFCtwo'
  1263. end
  1264. if webpopular >= 35 and pcs_vag >= 25 and alko >= 4 and clientask = 86:
  1265. menu_off = 1
  1266. *clr & cla
  1267. gt 'kompMFCtwo'
  1268. end
  1269. if webpopular >= 50 and pcs_vag + pcs_ass > 0 and alko >= 4 and clientask = 85:
  1270. menu_off = 1
  1271. *clr & cla
  1272. gt 'kompMFCtwo'
  1273. end
  1274. if backmfc = 0 and webpopular >= 25 and pcs_vag + pcs_ass >= 30 and alko >= 4 and clientask = 84:
  1275. menu_off = 1
  1276. *clr & cla
  1277. gt 'kompMFCtwo'
  1278. end
  1279. if backmfc = 0 and pcs_vag > 20 and clientask = 83:
  1280. menu_off = 1
  1281. *clr & cla
  1282. gt 'kompMFCtwo'
  1283. end
  1284. if webpopular > 25 and backmfc = 0 and sub > 25 and pcs_vag > 10 and prezik > 0 and clientask = 82:
  1285. menu_off = 1
  1286. *clr & cla
  1287. gt 'kompMFCtwo'
  1288. end
  1289. if backmfc = 0 and webpopular >= 50 and pcs_ass > 25 and clientask = 81:
  1290. menu_off = 1
  1291. *clr & cla
  1292. gt 'kompMFCtwo'
  1293. end
  1294. if backmfc = 0 and clientask < 80 and clientask >= 77:
  1295. menu_off = 1
  1296. *clr & cla
  1297. gt 'kompMFCanal'
  1298. end
  1299. if clientask < 77 and clientask >= 74:
  1300. menu_off = 1
  1301. *clr & cla
  1302. gt 'kompMFCoral'
  1303. end
  1304. if backmfc = 0 and clientask => 90 and clientask < 95:
  1305. menu_off = 1
  1306. *clr & cla
  1307. 'One of the visitors asks: "Do you have a vibrator or dildo? I want you to put up a little show..."'
  1308. gt 'kompMFC'
  1309. end
  1310. if clientask < 74:
  1311. act 'Dance':
  1312. menu_off = 1
  1313. *clr & cla
  1314. gs 'stat'
  1315. if topmfc = 1 and backmfc = 1:
  1316. if webpopular < 15:
  1317. camclients += rand(pcs_dancero - 60,pcs_dancero - 55)
  1318. elseif webpopular >= 15 and webpopular < 35:
  1319. camclients += rand(pcs_dancero - 55,pcs_dancero - 45)
  1320. elseif webpopular >= 35 and webpopular < 75:
  1321. camclients += rand(pcs_dancero - 50,pcs_dancero - 42)
  1322. elseif webpopular >= 75:
  1323. camclients += rand(pcs_dancero - 40,pcs_dancero - 25)
  1324. end
  1325. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/strip4.mp4"></video></center>'
  1326. 'Turning on some music you dance eroticiy hoping to entice some viewers.'
  1327. end
  1328. if topmfc = 0 and backmfc = 1:
  1329. if webpopular < 15:
  1330. camclients += rand(pcs_dancero - 55,pcs_dancero - 45)
  1331. elseif webpopular >= 15 and webpopular < 35:
  1332. camclients += rand(pcs_dancero - 50,pcs_dancero - 40)
  1333. elseif webpopular >= 35 and webpopular < 75:
  1334. camclients += rand(pcs_dancero - 45,pcs_dancero - 35)
  1335. elseif webpopular >= 75:
  1336. camclients += rand(pcs_dancero - 40,pcs_dancero - 25)
  1337. end
  1338. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/strip7.mp4"></video></center>'
  1339. 'Turning on some music you dance eroticly hoping to entice some viewers.'
  1340. end
  1341. if topmfc = 1 and backmfc = 0:
  1342. if webpopular < 15:
  1343. camclients += rand(pcs_dancero - 55,pcs_dancero - 45)
  1344. elseif webpopular >= 15 and webpopular < 35:
  1345. camclients += rand(pcs_dancero - 50,pcs_dancero - 40)
  1346. elseif webpopular >= 35 and webpopular < 75:
  1347. camclients += rand(pcs_dancero - 45,pcs_dancero - 35)
  1348. elseif webpopular >= 75:
  1349. camclients += rand(pcs_dancero - 40,pcs_dancero - 25)
  1350. end
  1351. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/strip6.mp4"></video></center>'
  1352. 'Turning on some music you dance eroticly hoping to entice some viewers.'
  1353. end
  1354. if topmfc = 0 and backmfc = 0:
  1355. if webpopular < 15:
  1356. camclients += rand(pcs_dancero - 50,pcs_dancero - 40)
  1357. elseif webpopular >= 15 and webpopular < 35:
  1358. camclients += rand(pcs_dancero - 45,pcs_dancero - 35)
  1359. elseif webpopular >= 35 and webpopular < 75:
  1360. camclients += rand(pcs_dancero - 40,pcs_dancero - 25)
  1361. elseif webpopular >= 75:
  1362. camclients += rand(pcs_dancero - 30,pcs_dancero - 10)
  1363. end
  1364. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/strip5.mp4"></video></center>'
  1365. 'Turning on some music you dance eroticly hoping to entice some viewers.'
  1366. end
  1367. dancero_exp += 1
  1368. gs 'arousal', 'porn', 5
  1369. gs 'stat'
  1370. act 'Continue':gt 'komp','waitclients'
  1371. end
  1372. end
  1373. if topmfc = 1 and backmfc = 1 and clientask < 74:
  1374. act 'Perform a striptease':
  1375. menu_off = 1
  1376. *clr & cla
  1377. gs 'stat'
  1378. if webpopular < 15:
  1379. camclients += rand(pcs_dancero - 50,pcs_dancero - 40)
  1380. elseif webpopular >= 15 and webpopular < 35:
  1381. camclients += rand(pcs_dancero - 45,pcs_dancero - 35)
  1382. elseif webpopular >= 35 and webpopular < 75:
  1383. camclients += rand(pcs_dancero - 40,pcs_dancero - 25)
  1384. elseif webpopular >= 75:
  1385. camclients += rand(pcs_dancero - 30,pcs_dancero - 10)
  1386. end
  1387. '<center><video autoplay loop src="images/locations/city/residential/sauna/sex/striptease4.mp4"></video></center>'
  1388. 'You decide that making a show of stripping yourself might encourage some attention. Repositioning your cam, you stand up and dance as you remove your underwear.'
  1389. dancero_exp += 1
  1390. topmfc = 0
  1391. backmfc = 0
  1392. gs 'arousal', 'porn', 3
  1393. gs 'stat'
  1394. act 'Continue':gt 'komp','waitclients'
  1395. end
  1396. end
  1397. if topmfc = 1 and clientask < 74:
  1398. act 'Take off your bra':
  1399. menu_off = 1
  1400. *clr & cla
  1401. topmfc = 0
  1402. gs 'stat'
  1403. if backmfc = 1:
  1404. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore4.jpg"></center>'
  1405. end
  1406. if backmfc = 0:
  1407. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore5.jpg"></center>'
  1408. end
  1409. '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.'
  1410. gs 'arousal', 'porn', 2, 'exhibitionism'
  1411. gs 'stat'
  1412. act 'Continue':gt 'komp','waitclients'
  1413. end
  1414. end
  1415. if topmfc = 0 and clientask < 74:
  1416. act 'Idly play with your boobs':
  1417. menu_off = 1
  1418. *clr & cla
  1419. if webpopular < 15:
  1420. camclients += rand(3,6)
  1421. elseif webpopular >= 15 and webpopular < 35:
  1422. camclients += rand(5,10)
  1423. elseif webpopular >= 35 and webpopular < 75:
  1424. camclients += rand(10,20)
  1425. elseif webpopular >= 75:
  1426. camclients += rand(15,35)
  1427. end
  1428. if alko >= 4:
  1429. gs 'pain', 2, 'slap', 'breasts'
  1430. end
  1431. chancetips = rand(0,100)
  1432. if chancetips >= 85:
  1433. tokens += rand(2,10)
  1434. end
  1435. gs 'stat'
  1436. if alko >= 4:
  1437. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore80.jpg"></center>'
  1438. else
  1439. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore9.jpg"></center>'
  1440. end
  1441. '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.'
  1442. gs 'arousal', 'porn', 2, 'exhibitionism'
  1443. gs 'stat'
  1444. act 'Continue':gt 'komp','waitclients'
  1445. end
  1446. end
  1447. if backmfc = 1 and clientask < 74:
  1448. act 'Take off your panties':
  1449. menu_off = 1
  1450. *clr & cla
  1451. backmfc = 0
  1452. gs 'stat'
  1453. if topmfc = 1:
  1454. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore5.jpg"></center>'
  1455. end
  1456. if topmfc = 0:
  1457. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore6.jpg"></center>'
  1458. end
  1459. '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.'
  1460. gs 'arousal', 'porn', 2, 'exhibitionism'
  1461. gs 'stat'
  1462. act 'Continue':gt 'komp','waitclients'
  1463. end
  1464. end
  1465. if backmfc = 0 and clientask < 74:
  1466. act 'Play with your pussy':
  1467. menu_off = 1
  1468. *clr & cla
  1469. if webpopular < 15:
  1470. camclients += rand(5,10)
  1471. elseif webpopular >= 15 and webpopular < 35:
  1472. camclients += rand(10,15)
  1473. elseif webpopular >= 35 and webpopular < 75:
  1474. camclients += rand(10,30)
  1475. elseif webpopular >= 75:
  1476. camclients += rand(15,40)
  1477. end
  1478. chancetips = rand(0,100)
  1479. if chancetips >= 75:
  1480. tokens += rand(10,15)
  1481. end
  1482. gs 'stat'
  1483. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore11.jpg"></center>'
  1484. 'You get bored during a slow moment in the chat, and begin to play with your pussy without giving it another thought.'
  1485. '"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.'
  1486. 'Giving them a defensive smile, you shrug and reply with one hand, while you keep rubbing your clit slowly with the other.'
  1487. gs 'arousal', 'porn', 2, 'exhibitionism'
  1488. gs 'arousal', 'vaginal_finger', 2, 'exhibitionism'
  1489. minut -= 2
  1490. gs 'stat'
  1491. if pcs_horny >= 100:
  1492. webpopular -= 1
  1493. mfccum += 1
  1494. pcs_mood = 100
  1495. gs 'stat'
  1496. 'Oh crap! You misjudged your endurance, and suddenly squirm and gasp in front of the camera. You''re having an orgasm!'
  1497. 'When it subsides, you look at your current viewer count. Damn... you just came in front of <<camclients>> users, completely free of charge!'
  1498. $orgasm_or = 'yes'
  1499. gs 'stat'
  1500. end
  1501. act 'Continue':gt 'komp','waitclients'
  1502. end
  1503. end
  1504. if backmfc = 0 and clientask < 74:
  1505. act'Play with your ass':
  1506. menu_off = 1
  1507. *clr & cla
  1508. if webpopular < 15:
  1509. camclients += rand(5,10)
  1510. elseif webpopular >= 15 and webpopular < 35:
  1511. camclients += rand(10,15)
  1512. elseif webpopular >= 35 and webpopular < 75:
  1513. camclients += rand(10,30)
  1514. elseif webpopular >= 75:
  1515. camclients += rand(15,40)
  1516. end
  1517. if pcs_ass < 10:analplay += 1
  1518. mfcclients -= 1
  1519. minut += 2
  1520. pcs_horny += rand(5,10)
  1521. chancetips = rand(0,100)
  1522. if chancetips >= 60:
  1523. tokens += rand(10,20)
  1524. end
  1525. gs 'stat'
  1526. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore45.jpg"></center>'
  1527. '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.'
  1528. gs 'arousal', 'porn', 2, 'exhibitionism'
  1529. gs 'arousal', 'anal_finger', 2, 'exhibitionism'
  1530. minut -= 2
  1531. gs 'stat'
  1532. if pcs_horny >= 100:
  1533. webpopular -= 1
  1534. mfccum += 1
  1535. pcs_mood = 100
  1536. gs 'stat'
  1537. $orgasm_or = 'yes'
  1538. $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...'
  1539. gs 'stat'
  1540. end
  1541. act'Continue':gt'komp','waitclients'
  1542. end
  1543. end
  1544. if topmfc = 0 and pain['nippleR'] < 10 and pain['nippleL'] < 10 and clientask < 74:
  1545. act'Pinch your nipples hard':
  1546. menu_off = 1
  1547. *clr & cla
  1548. if webpopular < 15:
  1549. camclients += rand(5,10)
  1550. elseif webpopular >= 15 and webpopular < 35:
  1551. camclients += rand(10,15)
  1552. elseif webpopular >= 35 and webpopular < 75:
  1553. camclients += rand(10,30)
  1554. elseif webpopular >= 75:
  1555. camclients += rand(15,40)
  1556. end
  1557. mfcclients -= 1
  1558. gs 'pain', 2, 'pinch', 'nipples'
  1559. chancetips = rand(0,100)
  1560. if chancetips >= 75:
  1561. tokens += rand(20,40)
  1562. end
  1563. gs 'stat'
  1564. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore80.jpg"></center>'
  1565. 'You''re getting too turned on, and need to slow yourself down a little!'
  1566. '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.'
  1567. gs 'arousal', 'porn', 2, 'exhibitionism'
  1568. gs 'stat'
  1569. act'Continue':gt'komp','waitclients'
  1570. end
  1571. end
  1572. if sisterHere > 0 and $loc = 'bedrPar':
  1573. *clr & cla
  1574. topmfc = 1
  1575. backmfc = 1
  1576. karta += tokens * 2
  1577. gs 'stat'
  1578. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/camwhore2.jpg"></center>'
  1579. '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!"'
  1580. '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.'
  1581. '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.'
  1582. act 'Continue':gt 'komp','mfc'
  1583. else
  1584. act 'Turn off the webcam':gt 'komp','startpagemfc'
  1585. end
  1586. end
  1587. if $ARGS[0] = 'bank':
  1588. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/online_bank.jpg"></center>'
  1589. if karta + bankDebtLimit >= 10:
  1590. *pl
  1591. 'You can buy prepaid internet access online through your bank account. 1 hour of internet only costs 10 <b>₽</b>! *'
  1592. *pl
  1593. if karta >= 0:
  1594. 'You have <<karta>> <b>₽</b> in your account.'
  1595. 'You have an overdraft limit of <font color="blue"><<bankDebtLimit>></font>!'
  1596. else
  1597. 'You are overdrawn by <font color="red"><<-1 * karta>> <b>₽</b></font>.'
  1598. 'You have a remaining credit limit of <font color="blue"><<bankDebtLimit + karta>></font>!'
  1599. end
  1600. *pl
  1601. act 'Buy internet time':
  1602. cla
  1603. intinp = input ("How many hours of internet access do you wish to purchase? (1hr = 10 <b>₽</b>)")
  1604. if intinp <= 0 or intinp * 10 > karta + bankDebtLimit:
  1605. 'Invalid amount.'
  1606. else
  1607. karta -= intinp * 10
  1608. internet += intinp
  1609. 'You pay for <<intinp>> hours of prepaid internet access. You have a total of <<internet>> hours of internet access remaining.'
  1610. '<<intinp * 10>> <b>₽</b> was removed from your account to pay for it.'
  1611. end
  1612. act 'Continue': gt 'komp', 'bank'
  1613. end
  1614. end
  1615. act 'Close your browser':gt 'komp', 'start'
  1616. end
  1617. if $ARGS[0] = 'fuckornot':
  1618. *clr & cla
  1619. if fuckornot = 2: fuckornot = 3
  1620. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/fuckornot/fuckable_list.jpg"></center>'
  1621. gs 'gschool_groups', 'fuckornot'
  1622. '10: Perfection. - Would let her do whatever she wants to me'
  1623. '9: Smoking Hot. - Would eat her ass'
  1624. '8: Hot. - Would fuck that ass'
  1625. '7: Damn girl. - Bragging rights for fucking.'
  1626. '6: Mos def smashable. - Totally fuckable, fuck buddy material'
  1627. '5: Merely fuckable. - wouldn''t mind smashing it, blowjob buddy material.'
  1628. '4: Almost fuckable. - Doable, in the dark or to get a blowjob from.'
  1629. '3: Unattractive. - Doable, if I get myself drunk first, good match for Petria'
  1630. '2: Fugly. - Has potential compared to a trash bin, even Lesco could do better'
  1631. '1: Hideous. - Wouldn''t touch it with a stick'
  1632. act 'Leave the site':
  1633. if $view_location = 'school':
  1634. gt 'gschool_lessons', 'short_break'
  1635. else
  1636. gt 'komp', 'start'
  1637. end
  1638. end
  1639. end
  1640. if $ARGS[0] = 'hotornot':
  1641. *clr & cla
  1642. if hotornot = 2: hotornot = 3
  1643. '<center><img <<$set_imgh>> src="images/system/image_needed.png"></center>'
  1644. gs 'gschool_groups', 'hotornot'
  1645. '10: Perfection. - Would let him do whatever he wants to me'
  1646. '9: Smoking Hot. - Arm Candy'
  1647. '8: Hot. - Would ride him'
  1648. '7: Damn man. - Bragging rights for fucking.'
  1649. '6: Ridable. - Totally fuckable, fuck buddy material'
  1650. '5: Merely fuckable. - maybe doggy style so I don''t have to look at him.'
  1651. '4: Almost fuckable. - might sit on his face.'
  1652. '3: Unattractive. - Not even Zinaida would be seen with him.'
  1653. '2: Fugly. - Horribly ugly, just being seen with him would lose you social standing.'
  1654. '1: Hideous. - Wouldn''t touch it with a stick, not even Sonia would take his money.'
  1655. act 'Leave the site':
  1656. if $view_location = 'school':
  1657. gt 'gschool_lessons', 'short_break'
  1658. else
  1659. gt 'komp', 'start'
  1660. end
  1661. end
  1662. end
  1663. if $ARGS[0] = 'fin':
  1664. if $loc = 'shulga_room' or $loc = 'anushapt' or $loc = 'artemhome' or $loc = 'dachain':
  1665. internet = internet_store
  1666. killvar 'internet_store'
  1667. end
  1668. gt $loc, $loc_arg
  1669. end
  1670. --- komp ---------------------------------