1
0

webcam_site.qsrc 22 KB

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