1
0

webcam_site.qsrc 25 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658
  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. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/extrthroat'+rand(1,2)+'.mp4" ></video></center>'
  236. 'You take out your enormous ' + iif(pcs_throat >= 40 and maddildo = 1, '40cm', '35cm') + ' dildo and start trusting it into your throat.'
  237. my_show_tip = rand(600, 1400)
  238. if pcs_throat < 40: pcs_throat += 1
  239. !!Giant dildos 25cm and 30cm
  240. elseif (pcs_throat >= 25 and bigdildo = 1) or (pcs_throat >= 30 and extradildo = 1):
  241. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/bigthroat'+rand(1,3)+'.mp4" ></video></center>'
  242. 'You get out your giant ' + iif(pcs_throat >= 30 and extradildo = 1, '30cm', '25cm') + ' dildo and begin to rhythmically drive it into your throat.'
  243. my_show_tip = rand(500, 1000)
  244. if pcs_throat < 30 or (pcs_throat < 35 and extradildo = 1): pcs_throat += 1
  245. !!Big dildos 15cm and 20cm
  246. elseif (pcs_throat >= 15 and middildo = 1) or (pcs_throat >= 20 and largedildo = 1):
  247. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/midthroat'+rand(1,3)+'.mp4" ></video></center>'
  248. '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.'
  249. my_show_tip = rand(100, 500)
  250. if pcs_throat < 20 or (pcs_throat < 25 and largedildo = 1): pcs_throat += 1
  251. !!Normal dildo 10cm
  252. else
  253. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/throat'+rand(1,3)+'.mp4" ></video></center>'
  254. 'You get out your 10cm dildo and start to gently suck it.'
  255. my_show_tip = rand(100, 500)
  256. if pcs_throat < 15: pcs_throat += 1
  257. end
  258. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  259. my_show_throat = 1
  260. webcam_show_throat +=1
  261. cla
  262. act 'Further': dynamic $webcam_show
  263. end
  264. end
  265. !-----------------------------------------------!
  266. !-------------Rubber dick in pussy--------------!
  267. !-----------------------------------------------!
  268. !! This was updated to include all the dildos as it previously was missing some. Most of the code was left
  269. !! as is with the additional dildos just merged into existing paths for simplicity. If this file is ever
  270. !! added back to the game, there should probably be separate branches for all dildo sizes. At the very
  271. !! least, they should give different tip amounts
  272. 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)):
  273. act 'Dildo in the pussy':
  274. gs'stat'
  275. *clr
  276. !!Enormous dildos 35cm and 40cm
  277. if (pcs_vag >= 35 and superdildo = 1) or (pcs_vag >= 40 and maddildo = 1):
  278. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/extrvagin'+rand(1,2)+'.mp4" ></video></center>'
  279. 'You take out your enormous ' + iif(pcs_vag >= 40 and maddildo = 1, '40cm', '35cm') + ' dildo and start thrusting it into your pussy.'
  280. my_show_tip = rand(700, 1400)
  281. if pcs_vag < 40: pcs_vag += 1
  282. !!Giant dildos 25cm and 30cm
  283. elseif (pcs_vag >= 25 and bigdildo = 1) or (pcs_vag >= 30 and extradildo = 1):
  284. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/bigvagin'+rand(1,3)+'.mp4" ></video></center>'
  285. 'You get out your giant ' + iif(pcs_vag >= 30 and extradildo = 1, '30cm', '25cm') + ' dildo and begin rhythmically driving it into your pussy.'
  286. my_show_tip = rand(400, 800)
  287. if pcs_vag < 30 or (pcs_vag < 35 and extradildo = 1): pcs_vag += 1
  288. !!Big dildos 15cm and 20cm
  289. elseif (pcs_vag >= 15 and middildo = 1) or (pcs_vag >= 20 and largedildo = 1):
  290. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/midvagin'+rand(1,3)+'.mp4" ></video></center>'
  291. 'You get out your big ' + iif(pcs_vag >= 20 and largedildo = 1, '20cm', '15cm') + ' dildo and begin rhythmically driving it into your pussy.'
  292. my_show_tip = rand(200, 700)
  293. if pcs_vag < 20 or (pcs_vag < 25 and largedildo = 1): pcs_vag += 1
  294. !!Normal dildo 10cm
  295. else
  296. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/vagin'+rand(1,3)+'.mp4" ></video></center>'
  297. 'You get out your 10cm dildo and begin rhythmically driving it into your pussy.'
  298. my_show_tip = rand(100, 600)
  299. if pcs_vag < 15: pcs_vag += 1
  300. end
  301. pcs_horny += 30
  302. !orgasm-Bonus Money
  303. if pcs_horny > 100:
  304. 'Soon you bring yourself to the limit and cum violently. Your tips sharply increase when this happens.'
  305. webcam_show_orgazm +=1
  306. my_show_tip += rand(100, 500)
  307. pcs_horny = 0
  308. end
  309. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  310. my_show_pussy = 1
  311. webcam_show_pussy +=1
  312. cla
  313. act 'Further': dynamic $webcam_show
  314. end
  315. end
  316. !-----------------------------------------------!
  317. !---------Rubber dick in the ass----------------!
  318. !-----------------------------------------------!
  319. !! This was updated to include all the dildos as it previously was missing some. Most of the code was left
  320. !! as is with the additional dildos just merged into existing paths for simplicity. If this file is ever
  321. !! added back to the game, there should probably be separate branches for all dildo sizes. At the very
  322. !! least, they should give different tip amounts
  323. 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)):
  324. act 'Dildo in the ass':
  325. gs'stat'
  326. *clr
  327. 'You part your buttocks' + iif(analplugin = 1, ', remove your anal plug,', '') + ' and begin to massage your anus with your fingers, first one, then two.'
  328. !Butt plug
  329. analplugin = 0
  330. !grease
  331. if lubri > 0:
  332. lubri -= 1
  333. 'You squeeze some lube onto your hand and begin to spread it on your hole. After that, you smear a little on your dildo.'
  334. end
  335. !!Enormous dildos 35cm and 40cm
  336. if (pcs_ass >= 35 and superdildo = 1) or (pcs_ass >= 40 and maddildo = 1):
  337. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/extranal'+rand(1,3)+'.mp4" ></video></center>'
  338. 'You then take your enormous ' + iif(pcs_ass >= 40 and maddildo = 1, '40cm', '35cm') + ' dildo and start thrusting it into your ass.'
  339. my_show_tip = rand(700, 1400)
  340. if pcs_ass < 40: pcs_ass += 1
  341. !!Giant dildos 25cm and 30cm
  342. elseif (pcs_ass >= 25 and bigdildo = 1) or (pcs_ass >= 30 and extradildo = 1):
  343. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/biganal'+rand(1,3)+'.mp4" ></video></center>'
  344. 'You then take your giant ' + iif(pcs_ass >= 30 and extradildo = 1, '30cm', '25cm') + ' dildo and begin rhythmically driving it into your ass.'
  345. my_show_tip = rand(500, 1000)
  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. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/midanal'+rand(1,3)+'.mp4" ></video></center>'
  350. 'You then take your big ' + iif(pcs_ass >= 20 and largedildo = 1, '20cm', '15cm') + ' dildo and begin rhythmically driving it into your ass.'
  351. my_show_tip = rand(300, 800)
  352. if pcs_ass < 20 or (pcs_ass < 25 and largedildo = 1): pcs_ass += 1
  353. !normal dildo 10cm
  354. else
  355. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/anal'+rand(1,3)+'.mp4" ></video></center>'
  356. 'You then take your 10cm dildo and begin rhythmically driving it into your ass.'
  357. my_show_tip = rand(100, 500)
  358. if pcs_ass < 15: pcs_ass += 1
  359. end
  360. pcs_horny += 30
  361. !orgasm-Bonus Money
  362. if pcs_horny > 100:
  363. 'Soon you bring yourself to the limit and cum violently. Your tips sharply increase when this happens.'
  364. webcam_show_orgazm +=1
  365. my_show_tip += rand(100, 500)
  366. pcs_horny = 0
  367. end
  368. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  369. my_show_anus = 1
  370. webcam_show_anus +=1
  371. cla
  372. act 'Further': dynamic $webcam_show
  373. end
  374. end
  375. !------------------------------!
  376. !------Double penetration------!
  377. !------------------------------!
  378. !! Might be good to differentiate between different dildo sizes here. In particular, maybe there should
  379. !! be different tip amounts for larger dildos like there are for the single dildo actions.
  380. if max(agape, vgape) < 3 and my_show_dp = 0 and iif(min(pcs_ass, pcs_vag) >= 10, dildo, 0) + iif(min(pcs_ass, pcs_vag) >= 15, middildo, 0) + iif(min(pcs_ass, pcs_vag) >= 20, largedildo, 0) + iif(min(pcs_ass, pcs_vag) >= 25, bigdildo, 0) + iif(min(pcs_ass, pcs_vag) >= 30, extradildo, 0) + iif(min(pcs_ass, pcs_vag) >= 35, superdildo, 0) + iif(min(pcs_ass, pcs_vag) >= 40, maddildo, 0) >= 2:
  381. act 'Dildo in ass and pussy':
  382. gs'stat'
  383. *clr
  384. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/dp'+rand(1,3)+'.mp4" ></video></center>'
  385. 'You part your legs' + iif(analplugin = 1, ', remove your anal plug,', '') + ' and begin massaging yourself with your fingers, first your pussy, then your ass.'
  386. !Butt plug
  387. analplugin = 0
  388. !grease
  389. if lubri > 0:
  390. lubri -= 1
  391. 'You then squeeze some lube onto your hand and begin to spread it on them.'
  392. end
  393. 'Now ready, you grab a pair of dildos and begin to rhythmically fuck your holes.'
  394. pcs_horny += 30
  395. !orgasm-Bonus Money
  396. if pcs_horny > 100:
  397. 'Soon you bring yourself to the limit and cum violently. Your tips sharply increase when this happens.'
  398. webcam_show_orgazm +=1
  399. my_show_tip += rand(100, 600)
  400. pcs_horny = 0
  401. end
  402. my_show_tip = rand(600, 1600)
  403. my_show_dp = 1
  404. webcam_show_dp +=1
  405. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  406. cla
  407. act 'Further': dynamic $webcam_show
  408. end
  409. end
  410. !------------------------------!
  411. !-------Hand in the ass--------!
  412. !------------------------------!
  413. if agape < 3 and pcs_ass >= 30 and my_show_afisting = 0:
  414. act 'Anal fisting':
  415. gs'stat'
  416. *clr
  417. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/afist'+rand(1,2)+'.mp4" ></video></center>'
  418. 'You part your buttocks' + iif(analplugin = 1, ', remove your anal plug,', '') + ' and begin to massage your anus with your fingers, first one, then two.'
  419. !Butt plug
  420. analplugin = 0
  421. !grease
  422. if lubri = 0: agape = 3
  423. if lubri > 0:
  424. lubri -= 1
  425. 'You squeeze some lube onto your hand and begin to spread it on your ass.'
  426. end
  427. 'Now ready, you slowly begin to push more and more of your hand inside.'
  428. my_show_tip = rand(400, 1800)
  429. my_show_afisting = 1
  430. webcam_show_afisting +=1
  431. if pcs_ass <= 30: pcs_ass +=1
  432. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  433. cla
  434. act 'Further': dynamic $webcam_show
  435. end
  436. end
  437. !------------------------------!
  438. !---------Hand in pussy--------!
  439. !------------------------------!
  440. if vgape < 3 and pcs_vag >= 30 and my_show_vfisting = 0:
  441. act 'Vaginal fisting':
  442. gs'stat'
  443. *clr
  444. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/vfist'+rand(1,3)+'.mp4" ></video></center>'
  445. 'You part your legs and begin massaging your hole with your fingers, first one, then two.'
  446. !grease
  447. if lubri = 0: vgape = 3
  448. if lubri > 0:
  449. lubri -= 1
  450. 'You squeeze some lube onto your hand and began to smear it on your pussy.'
  451. end
  452. 'Now ready, you slowly begin to push more and more of your hand inside.'
  453. my_show_tip = rand(400, 1600)
  454. my_show_vfisting = 1
  455. webcam_show_vfisting +=1
  456. if pcs_vag <= 30: pcs_vag +=1
  457. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  458. cla
  459. act 'Further': dynamic $webcam_show
  460. end
  461. end
  462. !------------------------------!
  463. !---------Sex - Vasily---------!
  464. !------------------------------!
  465. 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:
  466. act 'Call Vasily and arrange a sex show':
  467. gs'stat'
  468. *clr
  469. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/sex'+rand(1,5)+'.mp4" ></video></center>'
  470. '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.'
  471. !Butt plug
  472. analplugin = 0
  473. !grease
  474. if lubri = 0: vgape = 1
  475. if lubri > 0:
  476. lubri -= 1
  477. 'He forced lubrication his arms and began to lubricate your charms'
  478. end
  479. '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.'
  480. pcs_horny += 30
  481. !orgasm-Bonus Money
  482. if pcs_horny > 100:
  483. 'Soon he bring you to orgasm, and you cum violently. Your tips sharply increase when this happens.'
  484. webcam_show_orgazm +=1
  485. my_show_tip += rand(100, 500)
  486. pcs_horny = 0
  487. end
  488. 'Your viewers like all the action. Your view count increases, and your tips rise even faster.'
  489. my_show_tip = rand(800, 2000)
  490. my_show_sex = 1
  491. webcam_show_sex +=1
  492. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  493. cla
  494. act 'Further': dynamic $webcam_show
  495. end
  496. end
  497. !------------------------------!
  498. !-----------Squirt-------------!
  499. !------------------------------!
  500. if webcam_show_counter >= 30 and my_show_squirt = 0:
  501. act 'Squirt':
  502. gs'stat'
  503. *clr
  504. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/squirt'+rand(1,2)+'.mp4" ></video></center>'
  505. 'At the request of the audience, you squirt directly at the camera.'
  506. my_show_tip = rand(400, 1200)
  507. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  508. my_show_squirt = 1
  509. webcam_show_squirt +=1
  510. cla
  511. act 'Further': dynamic $webcam_show
  512. end
  513. end
  514. !------------------------------!
  515. !-----------Bracing------------!
  516. !------------------------------!
  517. if pcs_danc >= 50 and my_show_flex = 0:
  518. act 'Bracing':
  519. *clr
  520. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/flex'+rand(1,3)+'.mp4" ></video></center>'
  521. 'You show your audience your flexibility.'
  522. my_show_tip = rand(pcs_dancero,pcs_dancero*2)
  523. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  524. my_show_flex = 1
  525. webcam_show_flex +=1
  526. cla
  527. act 'Further': dynamic $webcam_show
  528. end
  529. end
  530. end
  531. !------------------------------!
  532. !-------Start the show---------!
  533. !------------------------------!
  534. if show_counter = 0:
  535. 'You turn on the webcam. It''s time to start the show!'
  536. show_counter = 1
  537. !if dyed and combed bonus money
  538. if pcs_makeup = 1: my_show_tip = rand(10, 50)
  539. if pcs_makeup = 2: my_show_tip = rand(10, 100)
  540. if pcs_makeup = 3: my_show_tip = rand(10, 150)
  541. if pcs_makeup = 4: my_show_tip = rand(10, 200)
  542. if pcs_hairbsh = 1: my_show_tip = rand(10, 200)
  543. cla
  544. act 'Undress':
  545. *clr
  546. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/undress'+rand(1,7)+'.mp4" ></video></center>'
  547. 'You take off your clothes.'
  548. my_show_tip = rand(100, 200)
  549. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  550. cla
  551. act 'Further': dynamic $webcam_show
  552. end
  553. !------------------------------!
  554. !---------STRIPTEASE-----------!
  555. !------------------------------!
  556. if pcs_dancero > 10:
  557. act 'Striptease':
  558. gs'stat'
  559. *clr
  560. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/strip'+rand(1,7)+'.mp4" ></video></center>'
  561. 'You slowly undress to the music, gently removing one garment after another.'
  562. !health check
  563. if agape > 2 or vgape > 2 or pcs_sleep < 8:
  564. 'You do not feel good. You only manage to dance half as well as you normally could.'
  565. my_show_tip_mod = 2
  566. else
  567. my_show_tip_mod = 1
  568. end
  569. my_show_tip = (pcs_dancero + pcs_danc/2)/my_show_tip_mod
  570. webcam_show_strip +=1
  571. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  572. cla
  573. act 'Further': dynamic $webcam_show
  574. end
  575. end
  576. end
  577. }
  578. --- webcam_site ---------------------------------