webcam_site.qsrc 22 KB

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