1
0

webcam_site.qsrc 26 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665
  1. # webcam_site
  2. if $args[0] = 'start':
  3. !count-in the show day:
  4. if webcam_show_day ! daystart: webcam_show_count = 2
  5. cls
  6. minut += 1
  7. gs'stat'
  8. '<center>Video chat with the best girls online!</center>'
  9. '<center><img <<$set_imgh>> src="images/shared/accessories/computer/webcam/webcam.jpg"></center>'
  10. act 'Logout': gt 'Komp', 'start'
  11. gs 'willpower', 'exhib', 'self', 'hard'
  12. if $webcam_name = 0 and will_cost <= pcs_willpwr:
  13. '<center>If you are beautiful and you want to earn a little, revealing yourself, you need to have a webcam and go through a simple registration.</center>'
  14. act 'Register (<<will_cost>> Willpower)': dynamic $webcam_rega
  15. gs 'willpower', 'pay', 'self'
  16. gs 'stat'
  17. elseif will_cost > pcs_willpwr:
  18. act 'Register (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to register online.</font>.'
  19. else
  20. if $webcam_name > 0: '<center>Your username: <<$webcam_name>></center>'
  21. if $webcam_name > 0: '<center><a href="exec: dynamic $webcam_stat">View your statistics</a></center>'
  22. if webcam_show_count <= 0:
  23. 'You have already done a show today.'
  24. else
  25. act 'Post Show': dynamic $webcam_index
  26. end
  27. act 'Help': dynamic $webcam_help
  28. act 'Change username': dynamic $webcam_rega
  29. end
  30. end
  31. !-----------------------------------------------!
  32. !--------Registration page online chat----------!
  33. !-----------------------------------------------!
  34. $webcam_rega = {
  35. cls
  36. minut = minut + 5
  37. gs 'stat'
  38. *nl
  39. 'Registering online, please choose a username...'
  40. !$web_gg_name = '<<$pcs_nickname>>'
  41. $webcam_name = input ('Your username')
  42. cla
  43. 'Your username: <<$webcam_name>>'
  44. act 'Further': gt 'webcam_site'
  45. !if $webcam_name = 0: $webcam_name = $web_gg_name
  46. }
  47. !-----------------------------------------------!
  48. !---------Page statistics online chat-----------!
  49. !-----------------------------------------------!
  50. $webcam_stat = {
  51. cls
  52. minut = minut + 5
  53. gs'stat'
  54. 'Your webcam username: <<$webcam_name>>
  55. Number of shows performed: <<webcam_show_counter>>
  56. Times stretching: <<webcam_show_flex>>
  57. Times stripping: <<webcam_show_strip>>
  58. Played with breasts: <<webcam_show_tits>>
  59. Masturbated: <<webcam_show_mast>>
  60. Dildo in mouth: <<webcam_show_throat>>
  61. Dildo in pussy: <<webcam_show_pussy>>
  62. Dildo in ass: <<webcam_show_anus>>
  63. Dildo ass and pussy: <<webcam_show_dp>>
  64. Fisting: <<webcam_show_vfisting>>
  65. Anal Fisting: <<webcam_show_afisting>>
  66. Orgasmed: <<webcam_show_orgazm>>
  67. Squirted: <<webcam_show_squirt>>
  68. <hz>
  69. Total time on cam: <<webcam_show_time>> minutes.
  70. Total tips earned: <<webcam_show_money>> <b>₽</b>.
  71. '
  72. act 'Return': gt 'webcam_site'
  73. }
  74. !-----------------------------------------------!
  75. !-------------Help page online chat-------------!
  76. !-----------------------------------------------!
  77. $webcam_help = {
  78. cls
  79. minut = minut + 5
  80. gs'stat'
  81. '
  82. Description of service:
  83. Video conference - this software allows users to conduct real-time video chat via the Web-Camera
  84. After registering, you will be able to broadcast shows, receiving tips from customers.
  85. In order to receive more tips, you need attract more users.
  86. One show per day only.
  87. Things that will increase your tips:
  88. Use dildos, available from your local sex shop (The larger the better).
  89. Self-fisting earns lots of tips, but for this you need lubricant and the ability to take it. Otherwise, you will cause yourself a lot of pain, and you will not be able to put on a show when in pain.
  90. Orgasming during a show will earn you a bonus tip.
  91. '
  92. act 'To main': gt 'webcam_site'
  93. }
  94. !-----------------------------------------------!
  95. !--------------Home online chat-----------------!
  96. !-----------------------------------------------!
  97. $webcam_index = {
  98. !act 'Exit': gt 'Komp', 'start'
  99. if hour < 15 or (week < 6 and hour < 19):
  100. if hour < 7:
  101. 'It''s too late to start a show. Too many people are asleep.'
  102. else
  103. if week < 6:
  104. 'It''s too early to start a show. Too many people are at work.'
  105. else
  106. 'Even if it''s the weekend, it''s still too early to start a show.'
  107. end
  108. end
  109. if pav_slut <= 50: 'Maybe that''s for the best. You''re not sure you should be risking someone recognizing you anyway.'
  110. else
  111. my_show_show = 0
  112. my_show_tits = 0
  113. my_show_mast = 0
  114. my_show_throat = 0
  115. my_show_pussy = 0
  116. my_show_anus = 0
  117. my_show_afisting = 0
  118. my_show_vfisting = 0
  119. my_show_dp = 0
  120. my_show_sex = 0
  121. my_show_squirt = 0
  122. my_show_flex = 0
  123. show_counter = 0
  124. my_show_tip_all = 0
  125. my_show_tip = 0
  126. dynamic $webcam_show
  127. end
  128. }
  129. !-----------------------------------------------!
  130. !---------Webcam shows online chat--------------!
  131. !-----------------------------------------------!
  132. !if $args[0] = 'show':
  133. $webcam_show = {
  134. act 'Exit': gt 'Komp', 'start'
  135. my_show_tip_all += my_show_tip
  136. !------------------------------!
  137. !----------Late Show-----------!
  138. !------------------------------!
  139. if show_counter = 4:
  140. *clr
  141. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/end'+rand(1,2)+'.mp4"></video></center>'
  142. 'You are already super tired, and the viewers need to take a breather after your super-duper show. It''s time to call it a day.'
  143. 'You collected <<my_show_tip_all>> <b>₽</b> during today''s show.'
  144. webcam_show_day = daystart
  145. webcam_show_count -= 1
  146. money += my_show_tip_all
  147. webcam_show_money += my_show_tip_all
  148. webcam_show_time += 60
  149. webcam_show_counter += 1
  150. elektro += 3
  151. internet -= 1
  152. minut += 60
  153. cla
  154. act 'Logout': gt 'webcam_site'
  155. end
  156. !------------------------------!
  157. !--------Continued show--------!
  158. !------------------------------!
  159. if show_counter > 0 and show_counter < 4:
  160. gs'stat'
  161. *clr
  162. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/show'+rand(5,7)+'.mp4" ></video></center>'
  163. 'The show must go on!'
  164. 'You have already collected <<my_show_tip_all>> <b>₽</b> for the show.'
  165. show_counter += 1
  166. cla
  167. if my_show_show = 0:
  168. act 'Show yourself':
  169. gs'stat'
  170. *clr
  171. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/show'+rand(1,4)+'.mp4" ></video></center>'
  172. 'You bring your crotch right against the camera and let all your viewers see everything is as it should be.'
  173. my_show_tip = rand(50, 400)
  174. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  175. my_show_show = 1
  176. cla
  177. act 'Further': dynamic $webcam_show
  178. end
  179. end
  180. !------------------------------!
  181. !------------Boobs-------------!
  182. !------------------------------!
  183. if my_show_tits = 0:
  184. act 'Play with your breasts':
  185. gs'stat'
  186. *clr
  187. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/tits'+rand(1,4)+'.mp4" ></video></center>'
  188. 'At the request of the audience, you play with your breasts.'
  189. my_show_tip = rand(100, 400)
  190. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  191. my_show_tits = 1
  192. webcam_show_tits +=1
  193. cla
  194. act 'Further': dynamic $webcam_show
  195. end
  196. end
  197. !------------------------------!
  198. !---------Masturbation---------!
  199. !------------------------------!
  200. if my_show_mast = 0:
  201. act 'Masturbate':
  202. gs'stat'
  203. *clr
  204. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/mast'+rand(1,9)+'.mp4" ></video></center>'
  205. 'You caress your pussy and ass, stroke your clitoris and rub your nipples.'
  206. my_show_tip = rand(100, 500)
  207. pcs_horny += 30
  208. !orgasm-Bonus Money
  209. if pcs_horny > 100:
  210. 'Soon you bring yourself to the limit and cum violently. Your tips sharply increase when this happens.'
  211. webcam_show_orgazm +=1
  212. my_show_tip += rand(50, 500)
  213. pcs_horny = 0
  214. end
  215. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  216. my_show_mast = 1
  217. webcam_show_mast +=1
  218. cla
  219. act 'Further': dynamic $webcam_show
  220. end
  221. end
  222. !-----------------------------------------------!
  223. !-----------Rubber cock in her mouth------------!
  224. !-----------------------------------------------!
  225. !! This was updated to include all the dildos as it previously was missing some. Most of the code was left
  226. !! as is with the additional dildos just merged into existing paths for simplicity. If this file is ever
  227. !! added back to the game, there should probably be separate branches for all dildo sizes. At the very
  228. !! least, they should give different tip amounts
  229. if my_show_throat = 0 and (dildo = 1 or (pcs_throat >= 15 and middildo = 1) or (pcs_throat >= 20 and largedildo = 1) or (pcs_throat >= 25 and bigdildo = 1) or (pcs_throat >= 30 and extradildo = 1) or (pcs_throat >= 35 and superdildo = 1) or (pcs_throat >= 40 and maddildo = 1)):
  230. act 'Dildo in the mouth':
  231. gs'stat'
  232. *clr
  233. !!Enormous dildos 35cm and 40cm
  234. if (pcs_throat >= 35 and superdildo = 1) or (pcs_throat >= 40 and maddildo = 1):
  235. *clr
  236. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/extrthroat'+rand(1,2)+'.mp4" ></video></center>'
  237. 'You take out your enormous ' + iif(pcs_throat >= 40 and maddildo = 1, '40cm', '35cm') + ' dildo and start trusting it into your throat.'
  238. my_show_tip = rand(600, 1400)
  239. if pcs_throat < 40: pcs_throat += 1
  240. !!Giant dildos 25cm and 30cm
  241. elseif (pcs_throat >= 25 and bigdildo = 1) or (pcs_throat >= 30 and extradildo = 1):
  242. *clr
  243. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/bigthroat'+rand(1,3)+'.mp4" ></video></center>'
  244. 'You get out your giant ' + iif(pcs_throat >= 30 and extradildo = 1, '30cm', '25cm') + ' dildo and begin to rhythmically drive it into your throat.'
  245. my_show_tip = rand(500, 1000)
  246. if pcs_throat < 30 or (pcs_throat < 35 and extradildo = 1): pcs_throat += 1
  247. !!Big dildos 15cm and 20cm
  248. elseif (pcs_throat >= 15 and middildo = 1) or (pcs_throat >= 20 and largedildo = 1):
  249. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/midthroat'+rand(1,3)+'.mp4" ></video></center>'
  250. 'You get out your big ' + iif(pcs_throat >= 20 and largedildo = 1, '20cm', '15cm') + ' dildo and start licking it, sucking it, and shoving it into your mouth.'
  251. my_show_tip = rand(100, 500)
  252. if pcs_throat < 20 or (pcs_throat < 25 and largedildo = 1): pcs_throat += 1
  253. !!Normal dildo 10cm
  254. else
  255. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/throat'+rand(1,3)+'.mp4" ></video></center>'
  256. 'You get out your 10cm dildo and start to gently suck it.'
  257. my_show_tip = rand(100, 500)
  258. if pcs_throat < 15: pcs_throat += 1
  259. end
  260. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  261. my_show_throat = 1
  262. webcam_show_throat +=1
  263. cla
  264. act 'Further': dynamic $webcam_show
  265. end
  266. end
  267. !-----------------------------------------------!
  268. !-------------Rubber dick in pussy--------------!
  269. !-----------------------------------------------!
  270. !! This was updated to include all the dildos as it previously was missing some. Most of the code was left
  271. !! as is with the additional dildos just merged into existing paths for simplicity. If this file is ever
  272. !! added back to the game, there should probably be separate branches for all dildo sizes. At the very
  273. !! least, they should give different tip amounts
  274. if vgape < 3 and my_show_pussy = 0 and (dildo = 1 or (pcs_vag >= 15 and middildo = 1) or (pcs_vag >= 20 and largedildo = 1) or (pcs_vag >= 25 and bigdildo = 1) or (pcs_vag >= 30 and extradildo = 1) or (pcs_vag >= 35 and superdildo = 1) or (pcs_vag >= 40 and maddildo = 1)):
  275. act 'Dildo in the pussy':
  276. gs'stat'
  277. *clr
  278. !!Enormous dildos 35cm and 40cm
  279. if (pcs_vag >= 35 and superdildo = 1) or (pcs_vag >= 40 and maddildo = 1):
  280. *clr
  281. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/extrvagin'+rand(1,2)+'.mp4" ></video></center>'
  282. 'You take out your enormous ' + iif(pcs_vag >= 40 and maddildo = 1, '40cm', '35cm') + ' dildo and start thrusting it into your pussy.'
  283. my_show_tip = rand(700, 1400)
  284. if pcs_vag < 40: pcs_vag += 1
  285. !!Giant dildos 25cm and 30cm
  286. elseif (pcs_vag >= 25 and bigdildo = 1) or (pcs_vag >= 30 and extradildo = 1):
  287. *clr
  288. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/bigvagin'+rand(1,3)+'.mp4" ></video></center>'
  289. 'You get out your giant ' + iif(pcs_vag >= 30 and extradildo = 1, '30cm', '25cm') + ' dildo and begin rhythmically driving it into your pussy.'
  290. my_show_tip = rand(400, 800)
  291. if pcs_vag < 30 or (pcs_vag < 35 and extradildo = 1): pcs_vag += 1
  292. !!Big dildos 15cm and 20cm
  293. elseif (pcs_vag >= 15 and middildo = 1) or (pcs_vag >= 20 and largedildo = 1):
  294. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/midvagin'+rand(1,3)+'.mp4" ></video></center>'
  295. 'You get out your big ' + iif(pcs_vag >= 20 and largedildo = 1, '20cm', '15cm') + ' dildo and begin rhythmically driving it into your pussy.'
  296. my_show_tip = rand(200, 700)
  297. if pcs_vag < 20 or (pcs_vag < 25 and largedildo = 1): pcs_vag += 1
  298. !!Normal dildo 10cm
  299. else
  300. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/vagin'+rand(1,3)+'.mp4" ></video></center>'
  301. 'You get out your 10cm dildo and begin rhythmically driving it into your pussy.'
  302. my_show_tip = rand(100, 600)
  303. if pcs_vag < 15: pcs_vag += 1
  304. end
  305. pcs_horny += 30
  306. !orgasm-Bonus Money
  307. if pcs_horny > 100:
  308. 'Soon you bring yourself to the limit and cum violently. Your tips sharply increase when this happens.'
  309. webcam_show_orgazm +=1
  310. my_show_tip += rand(100, 500)
  311. pcs_horny = 0
  312. end
  313. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  314. my_show_pussy = 1
  315. webcam_show_pussy +=1
  316. cla
  317. act 'Further': dynamic $webcam_show
  318. end
  319. end
  320. !-----------------------------------------------!
  321. !---------Rubber dick in the ass----------------!
  322. !-----------------------------------------------!
  323. !! This was updated to include all the dildos as it previously was missing some. Most of the code was left
  324. !! as is with the additional dildos just merged into existing paths for simplicity. If this file is ever
  325. !! added back to the game, there should probably be separate branches for all dildo sizes. At the very
  326. !! least, they should give different tip amounts
  327. if agape < 3 and my_show_anus = 0 and (dildo = 1 or (pcs_ass >= 15 and middildo = 1) or (pcs_ass >= 20 and largedildo = 1) or (pcs_ass >= 25 and bigdildo = 1) or (pcs_ass >= 30 and extradildo = 1) or (pcs_ass >= 35 and superdildo = 1) or (pcs_ass >= 40 and maddildo = 1)):
  328. act 'Dildo in the ass':
  329. gs'stat'
  330. *clr
  331. 'You part your buttocks' + iif(analplugin = 1, ', remove your anal plug,', '') + ' and begin to massage your anus with your fingers, first one, then two.'
  332. !Butt plug
  333. analplugin = 0
  334. !grease
  335. if lubri > 0:
  336. lubri -= 1
  337. 'You squeeze some lube onto your hand and begin to spread it on your hole. After that, you smear a little on your dildo.'
  338. end
  339. if pcs_ass < 40: pcs_ass += 1
  340. !!Giant dildos 25cm and 30cm
  341. elseif (pcs_ass >= 25 and bigdildo = 1) or (pcs_ass >= 30 and extradildo = 1):
  342. *clr
  343. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/extranal'+rand(1,3)+'.mp4" ></video></center>'
  344. 'You then take your enormous ' + iif(pcs_ass >= 40 and maddildo = 1, '40cm', '35cm') + ' dildo and start thrusting it into your ass.'
  345. my_show_tip = rand(700, 1400)
  346. if pcs_ass < 30 or (pcs_ass < 35 and extradildo = 1): pcs_ass += 1
  347. !!Big dildos 15cm and 20cm
  348. elseif (pcs_ass >= 15 and middildo = 1) or (pcs_ass >= 20 and largedildo = 1):
  349. *clr
  350. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/biganal'+rand(1,3)+'.mp4" ></video></center>'
  351. 'You then take your giant ' + iif(pcs_ass >= 30 and extradildo = 1, '30cm', '25cm') + ' dildo and begin rhythmically driving it into your ass.'
  352. my_show_tip = rand(500, 1000)
  353. if pcs_ass < 35: pcs_ass += 1
  354. !Average dildo 15cm
  355. elseif pcs_ass >= 15 and middildo = 1:
  356. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/midanal'+rand(1,3)+'.mp4" ></video></center>'
  357. 'You then take your big ' + iif(pcs_ass >= 20 and largedildo = 1, '20cm', '15cm') + ' dildo and begin rhythmically driving it into your ass.'
  358. my_show_tip = rand(300, 800)
  359. if pcs_ass < 20 or (pcs_ass < 25 and largedildo = 1): pcs_ass += 1
  360. !normal dildo 10cm
  361. else
  362. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/anal'+rand(1,3)+'.mp4" ></video></center>'
  363. 'You then take your 10cm dildo and begin rhythmically driving it into your ass.'
  364. my_show_tip = rand(100, 500)
  365. if pcs_ass < 15: pcs_ass += 1
  366. end
  367. pcs_horny += 30
  368. !orgasm-Bonus Money
  369. if pcs_horny > 100:
  370. 'Soon you bring yourself to the limit and cum violently. Your tips sharply increase when this happens.'
  371. webcam_show_orgazm +=1
  372. my_show_tip += rand(100, 500)
  373. pcs_horny = 0
  374. end
  375. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  376. my_show_anus = 1
  377. webcam_show_anus +=1
  378. cla
  379. act 'Further': dynamic $webcam_show
  380. end
  381. end
  382. !------------------------------!
  383. !------Double penetration------!
  384. !------------------------------!
  385. !! Might be good to differentiate between different dildo sizes here. In particular, maybe there should
  386. !! be different tip amounts for larger dildos like there are for the single dildo actions.
  387. if agape < 3 and vgape < 3 and my_show_dp = 0 and ((pcs_ass >= 15 and pcs_vag >= 15 and dildo = 1 and middildo = 1) or (pcs_ass >= 20 and pcs_vag >= 20 and largedildo = 1 and (middildo = 1 or dildo = 1)) or (pcs_ass >= 25 and pcs_vag >= 25 and bigdildo = 1 and (largedildo = 1 or middildo = 1 or dildo = 1)) or (pcs_ass >= 30 and pcs_vag >= 30 and extradildo = 1 and (bigdildo = 1 or largedildo = 1 or middildo = 1 or dildo = 1)) or (pcs_ass >= 35 and pcs_vag >= 35 and superdildo = 1 and (extradildo = 1 or bigdildo = 1 or largedildo = 1 or middildo = 1 or dildo = 1)) or (pcs_ass >= 40 and pcs_vag >= 40 and maddildo = 1 and (superdildo = 1 or extradildo = 1 or bigdildo = 1 or largedildo = 1 or middildo = 1 or dildo = 1))):
  388. act 'Dildo in ass and pussy':
  389. gs'stat'
  390. *clr
  391. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/dp'+rand(1,3)+'.mp4" ></video></center>'
  392. 'You part your legs' + iif(analplugin = 1, ', remove your anal plug,', '') + ' and begin massaging yourself with your fingers, first your pussy, then your ass.'
  393. !Butt plug
  394. analplugin = 0
  395. !grease
  396. if lubri > 0:
  397. lubri -= 1
  398. 'You then squeeze some lube onto your hand and begin to spread it on them.'
  399. end
  400. 'Now ready, you grab a pair of dildos and begin to rhythmically fuck your holes.'
  401. pcs_horny += 30
  402. !orgasm-Bonus Money
  403. if pcs_horny > 100:
  404. 'Soon you bring yourself to the limit and cum violently. Your tips sharply increase when this happens.'
  405. webcam_show_orgazm +=1
  406. my_show_tip += rand(100, 600)
  407. pcs_horny = 0
  408. end
  409. my_show_tip = rand(600, 1600)
  410. my_show_dp = 1
  411. webcam_show_dp +=1
  412. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  413. cla
  414. act 'Further': dynamic $webcam_show
  415. end
  416. end
  417. !------------------------------!
  418. !-------Hand in the ass--------!
  419. !------------------------------!
  420. if agape < 3 and pcs_ass >= 30 and my_show_afisting = 0:
  421. act 'Anal fisting':
  422. gs'stat'
  423. *clr
  424. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/afist'+rand(1,2)+'.mp4" ></video></center>'
  425. 'You part your buttocks' + iif(analplugin = 1, ', remove your anal plug,', '') + ' and begin to massage your anus with your fingers, first one, then two.'
  426. !Butt plug
  427. analplugin = 0
  428. !grease
  429. if lubri = 0: agape = 3
  430. if lubri > 0:
  431. lubri -= 1
  432. 'You squeeze some lube onto your hand and begin to spread it on your ass.'
  433. end
  434. 'Now ready, you slowly begin to push more and more of your hand inside.'
  435. my_show_tip = rand(400, 1800)
  436. my_show_afisting = 1
  437. webcam_show_afisting +=1
  438. if pcs_ass <= 30: pcs_ass +=1
  439. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  440. cla
  441. act 'Further': dynamic $webcam_show
  442. end
  443. end
  444. !------------------------------!
  445. !---------Hand in pussy--------!
  446. !------------------------------!
  447. if vgape < 3 and pcs_vag >= 30 and my_show_vfisting = 0:
  448. act 'Vaginal fisting':
  449. gs'stat'
  450. *clr
  451. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/vfist'+rand(1,3)+'.mp4" ></video></center>'
  452. 'You part your legs and begin massaging your hole with your fingers, first one, then two.'
  453. !grease
  454. if lubri = 0: vgape = 3
  455. if lubri > 0:
  456. lubri -= 1
  457. 'You squeeze some lube onto your hand and began to smear it on your pussy.'
  458. end
  459. 'Now ready, you slowly begin to push more and more of your hand inside.'
  460. my_show_tip = rand(400, 1600)
  461. my_show_vfisting = 1
  462. webcam_show_vfisting +=1
  463. if pcs_vag <= 30: pcs_vag +=1
  464. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  465. cla
  466. act 'Further': dynamic $webcam_show
  467. end
  468. end
  469. !------------------------------!
  470. !---------Sex - Vasily---------!
  471. !------------------------------!
  472. if $loc='shulga_room' and npc_rel['A11'] >= 100 and week >= 6 and hour >= 15 and vgape < 3 and agape < 3 and pcs_vag >= 1 and my_show_sex = 0:
  473. act 'Call Vasily and arrange a sex show':
  474. gs'stat'
  475. *clr
  476. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/sex'+rand(1,5)+'.mp4" ></video></center>'
  477. 'Vasily ' + iif(analplugin = 1, 'pulls your anal plug out of your ass and ', '') + 'begins to stroke between your legs, massaging your holes with his fingers.'
  478. !Butt plug
  479. analplugin = 0
  480. !grease
  481. if lubri = 0: vgape = 1
  482. if lubri > 0:
  483. lubri -= 1
  484. 'He forced lubrication his arms and began to lubricate your charms'
  485. end
  486. 'For 30 minutes, the two of you fuck on camera, honoring the chat and performing the whims of spectators. Sometimes he fucks you quickly, sometimes slowly, sometimes in your pussy, sometimes in your ass. You even blow him for a bit.'
  487. pcs_horny += 30
  488. !orgasm-Bonus Money
  489. if pcs_horny > 100:
  490. 'Soon he bring you to orgasm, and you cum violently. Your tips sharply increase when this happens.'
  491. webcam_show_orgazm +=1
  492. my_show_tip += rand(100, 500)
  493. pcs_horny = 0
  494. end
  495. 'Your viewers like all the action. Your view count increases, and your tips rise even faster.'
  496. my_show_tip = rand(800, 2000)
  497. my_show_sex = 1
  498. webcam_show_sex +=1
  499. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  500. cla
  501. act 'Further': dynamic $webcam_show
  502. end
  503. end
  504. !------------------------------!
  505. !-----------Squirt-------------!
  506. !------------------------------!
  507. if webcam_show_counter >= 30 and my_show_squirt = 0:
  508. act 'Squirt':
  509. gs'stat'
  510. *clr
  511. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/squirt'+rand(1,2)+'.mp4" ></video></center>'
  512. 'At the request of the audience, you squirt directly at the camera.'
  513. my_show_tip = rand(400, 1200)
  514. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  515. my_show_squirt = 1
  516. webcam_show_squirt +=1
  517. cla
  518. act 'Further': dynamic $webcam_show
  519. end
  520. end
  521. !------------------------------!
  522. !-----------Bracing------------!
  523. !------------------------------!
  524. if pcs_danc >= 50 and my_show_flex = 0:
  525. act 'Bracing':
  526. *clr
  527. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/flex'+rand(1,3)+'.mp4" ></video></center>'
  528. 'You show your audience your flexibility.'
  529. my_show_tip = rand(pcs_dancero,pcs_dancero*2)
  530. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  531. my_show_flex = 1
  532. webcam_show_flex +=1
  533. cla
  534. act 'Further': dynamic $webcam_show
  535. end
  536. end
  537. end
  538. !------------------------------!
  539. !-------Start the show---------!
  540. !------------------------------!
  541. if show_counter = 0:
  542. 'You turn on the webcam. It''s time to start the show!'
  543. show_counter = 1
  544. !if dyed and combed bonus money
  545. if pcs_makeup = 1: my_show_tip = rand(10, 50)
  546. if pcs_makeup = 2: my_show_tip = rand(10, 100)
  547. if pcs_makeup = 3: my_show_tip = rand(10, 150)
  548. if pcs_makeup = 4: my_show_tip = rand(10, 200)
  549. if pcs_hairbsh = 1: my_show_tip = rand(10, 200)
  550. cla
  551. act 'Undress':
  552. *clr
  553. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/undress'+rand(1,7)+'.mp4" ></video></center>'
  554. 'You take off your clothes.'
  555. my_show_tip = rand(100, 200)
  556. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  557. cla
  558. act 'Further': dynamic $webcam_show
  559. end
  560. !------------------------------!
  561. !---------STRIPTEASE-----------!
  562. !------------------------------!
  563. if pcs_dancero > 10:
  564. act 'Striptease':
  565. gs'stat'
  566. *clr
  567. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/strip'+rand(1,7)+'.mp4" ></video></center>'
  568. 'You slowly undress to the music, gently removing one garment after another.'
  569. !health check
  570. if agape > 2 or vgape > 2 or pcs_sleep < 8:
  571. 'You do not feel good. You only manage to dance half as well as you normally could.'
  572. my_show_tip_mod = 2
  573. else
  574. my_show_tip_mod = 1
  575. end
  576. my_show_tip = (pcs_dancero + pcs_danc/2)/my_show_tip_mod
  577. webcam_show_strip +=1
  578. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  579. cla
  580. act 'Further': dynamic $webcam_show
  581. end
  582. end
  583. end
  584. }
  585. --- webcam_site ---------------------------------