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. 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. if pcs_throat >= 1 and dildo = 1 and my_show_throat = 0:
  226. act 'Dildo in the mouth':
  227. gs'stat'
  228. *clr
  229. !Average dildo 15cm
  230. if pcs_throat >= 15 and pcs_throat < 25 and middildo = 1:
  231. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/midthroat'+rand(1,3)+'.mp4" ></video></center>'
  232. 'You get out your big 15cm dildo and start licking it, sucking it, and shoving it into your mouth.'
  233. my_show_tip = rand(100, 500)
  234. if pcs_throat < 25: pcs_throat += 1
  235. end
  236. !Big Dildo 25cm
  237. if pcs_throat >= 25 and pcs_throat < 35 and bigdildo = 1:
  238. *clr
  239. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/bigthroat'+rand(1,3)+'.mp4" ></video></center>'
  240. 'You get out your giant 25cm dildo and begin to rhythmically drive it into your throat.'
  241. my_show_tip = rand(500, 1000)
  242. if pcs_throat < 35: pcs_throat += 1
  243. end
  244. !Huge Dildo 40cm
  245. if pcs_throat >= 35 and maddildo = 1:
  246. *clr
  247. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/extrthroat'+rand(1,2)+'.mp4" ></video></center>'
  248. 'You take out your enormous 40cm dildo and start trusting it into your throat.'
  249. my_show_tip = rand(600, 1400)
  250. end
  251. !normal dildo 10cm
  252. if pcs_throat < 15 and dildo = 1:
  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. 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. if vgape < 3 and pcs_vag >= 1 and dildo = 1 and my_show_pussy = 0:
  269. act 'Dildo in the pussy':
  270. gs'stat'
  271. *clr
  272. !Average dildo 15cm
  273. if pcs_vag >= 15 and pcs_vag < 25 and middildo = 1:
  274. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/midvagin'+rand(1,3)+'.mp4" ></video></center>'
  275. 'You get out your big 15cm dildo and begin rhythmically driving it into your pussy.'
  276. my_show_tip = rand(200, 700)
  277. if pcs_vag < 25: pcs_vag += 1
  278. end
  279. !Big Dildo 25cm
  280. if pcs_vag >= 25 and pcs_vag < 35 and bigdildo = 1:
  281. *clr
  282. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/bigvagin'+rand(1,3)+'.mp4" ></video></center>'
  283. 'You get out your giant 25cm dildo and begin rhythmically driving it into your pussy.'
  284. my_show_tip = rand(400, 800)
  285. if pcs_vag < 35: pcs_vag += 1
  286. end
  287. !a giant dildo 40cm
  288. if pcs_vag >= 35 and maddildo = 1:
  289. *clr
  290. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/extrvagin'+rand(1,2)+'.mp4" ></video></center>'
  291. 'You take out your enormous 40cm dildo and start thrusting it into your pussy.'
  292. my_show_tip = rand(700, 1400)
  293. end
  294. !normal dildo 10cm
  295. if pcs_vag < 15 and dildo = 1:
  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. 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. if agape < 3 and pcs_ass => 1 and dildo = 1 and my_show_anus = 0:
  320. act 'Dildo in the ass':
  321. gs'stat'
  322. *clr
  323. 'You part your buttocks' + iif(analplugin = 1, ', remove your anal plug,', '') + ' and begin to massage your anus with your fingers, first one, then two.'
  324. !Butt plug
  325. analplugin = 0
  326. !grease
  327. if lubri > 0:
  328. lubri -= 1
  329. 'You squeeze some lube onto your hand and begin to spread it on your hole. After that, you smear a little on your dildo.'
  330. end
  331. !Average dildo 15see
  332. if pcs_ass >= 15 and pcs_ass < 25 and middildo = 1:
  333. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/midanal'+rand(1,3)+'.mp4" ></video></center>'
  334. 'You then take your big 15cm dildo and begin rhythmically driving it into your ass.'
  335. my_show_tip = rand(300, 800)
  336. if pcs_ass < 25: pcs_ass += 1
  337. end
  338. !Big Dildo 25see
  339. if pcs_ass >= 25 and pcs_ass < 35 and bigdildo = 1:
  340. *clr
  341. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/biganal'+rand(1,3)+'.mp4" ></video></center>'
  342. 'You then take your giant 25cm dildo and begin rhythmically driving it into your ass.'
  343. my_show_tip = rand(500, 1000)
  344. if pcs_ass < 35: pcs_ass += 1
  345. end
  346. !a giant dildo 40see
  347. if pcs_ass >= 35 and maddildo = 1:
  348. *clr
  349. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/extranal'+rand(1,3)+'.mp4" ></video></center>'
  350. 'You then take your enormous 40cm dildo and start thrusting it into your ass.'
  351. my_show_tip = rand(700, 1400)
  352. end
  353. !normal dildo 10cm
  354. if pcs_ass < 15 and dildo = 1:
  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. 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. if agape < 3 and vgape < 3 and pcs_ass >= 20 and pcs_vag >= 20 and my_show_dp = 0:
  379. act 'Dildo in ass and pussy':
  380. gs'stat'
  381. *clr
  382. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/toys/dp'+rand(1,3)+'.mp4" ></video></center>'
  383. 'You part your legs' + iif(analplugin = 1, ', remove your anal plug,', '') + ' and begin massaging yourself with your fingers, first your pussy, then your ass.'
  384. !Butt plug
  385. analplugin = 0
  386. !grease
  387. if lubri > 0:
  388. lubri -= 1
  389. 'You then squeeze some lube onto your hand and begin to spread it on them.'
  390. end
  391. 'Now ready, you grab a pair of dildos and begin to rhythmically fuck your holes.'
  392. pcs_horny += 30
  393. !orgasm-Bonus Money
  394. if pcs_horny > 100:
  395. 'Soon you bring yourself to the limit and cum violently. Your tips sharply increase when this happens.'
  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 part your buttocks' + iif(analplugin = 1, ', remove your anal plug,', '') + ' and begin to massage your anus with your fingers, first one, then two.'
  417. !Butt plug
  418. analplugin = 0
  419. !grease
  420. if lubri = 0: agape = 3
  421. if lubri > 0:
  422. lubri -= 1
  423. 'You squeeze some lube onto your hand and begin to spread it on your ass.'
  424. end
  425. 'Now ready, you slowly begin to push more and more of your hand inside.'
  426. my_show_tip = rand(400, 1800)
  427. my_show_afisting = 1
  428. webcam_show_afisting +=1
  429. if pcs_ass <= 30: pcs_ass +=1
  430. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  431. cla
  432. act 'Further': dynamic $webcam_show
  433. end
  434. end
  435. !------------------------------!
  436. !---------Hand in pussy---------!
  437. !------------------------------!
  438. if vgape < 3 and pcs_vag >= 30 and my_show_vfisting = 0:
  439. act 'Vaginal fisting':
  440. gs'stat'
  441. *clr
  442. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/vfist'+rand(1,3)+'.mp4" ></video></center>'
  443. 'You part your legs and begin massaging your hole with your fingers, first one, then two.'
  444. !grease
  445. if lubri = 0: vgape = 3
  446. if lubri > 0:
  447. lubri -= 1
  448. 'You squeeze some lube onto your hand and began to smear it on your pussy.'
  449. end
  450. 'Now ready, you slowly begin to push more and more of your hand inside.'
  451. my_show_tip = rand(400, 1600)
  452. my_show_vfisting = 1
  453. webcam_show_vfisting +=1
  454. if pcs_vag <= 30: pcs_vag +=1
  455. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  456. cla
  457. act 'Further': dynamic $webcam_show
  458. end
  459. end
  460. !------------------------------!
  461. !---------Sex - Vasily---------!
  462. !------------------------------!
  463. 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:
  464. act 'Call Vasily and arrange a sex show':
  465. gs'stat'
  466. *clr
  467. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/sex'+rand(1,5)+'.mp4" ></video></center>'
  468. '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.'
  469. !Butt plug
  470. analplugin = 0
  471. !grease
  472. if lubri = 0: vgape = 1
  473. if lubri > 0:
  474. lubri -= 1
  475. 'He forced lubrication his arms and began to lubricate your charms'
  476. end
  477. '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.'
  478. pcs_horny += 30
  479. !orgasm-Bonus Money
  480. if pcs_horny > 100:
  481. 'Soon he bring you to orgasm, and you cum violently. Your tips sharply increase when this happens.'
  482. webcam_show_orgazm +=1
  483. my_show_tip += rand(100, 500)
  484. pcs_horny = 0
  485. end
  486. 'Your viewers like all the action. Your view count increases, and your tips rise even faster.'
  487. my_show_tip = rand(800, 2000)
  488. my_show_sex = 1
  489. webcam_show_sex +=1
  490. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  491. cla
  492. act 'Further': dynamic $webcam_show
  493. end
  494. end
  495. !------------------------------!
  496. !-----------Squirt-------------!
  497. !------------------------------!
  498. if webcam_show_counter >= 30 and my_show_squirt = 0:
  499. act 'Squirt':
  500. gs'stat'
  501. *clr
  502. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/squirt'+rand(1,2)+'.mp4" ></video></center>'
  503. 'At the request of the audience, you squirt directly at the camera.'
  504. my_show_tip = rand(400, 1200)
  505. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  506. my_show_squirt = 1
  507. webcam_show_squirt +=1
  508. cla
  509. act 'Further': dynamic $webcam_show
  510. end
  511. end
  512. !------------------------------!
  513. !----------Bracing------------!
  514. !------------------------------!
  515. if pcs_danc >= 50 and my_show_flex = 0:
  516. act 'Bracing':
  517. *clr
  518. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/flex'+rand(1,3)+'.mp4" ></video></center>'
  519. 'You show your audience your flexibility.'
  520. my_show_tip = rand(pcs_dancero,pcs_dancero*2)
  521. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  522. my_show_flex = 1
  523. webcam_show_flex +=1
  524. cla
  525. act 'Further': dynamic $webcam_show
  526. end
  527. end
  528. end
  529. !------------------------------!
  530. !----------Start the show-----------!
  531. !------------------------------!
  532. if show_counter = 0:
  533. 'You turn on the webcam. It''s time to start the show!'
  534. show_counter = 1
  535. !if dyed and combed bonus money
  536. if pcs_makeup = 1: my_show_tip = rand(10, 50)
  537. if pcs_makeup = 2: my_show_tip = rand(10, 100)
  538. if pcs_makeup = 3: my_show_tip = rand(10, 150)
  539. if pcs_makeup = 4: my_show_tip = rand(10, 200)
  540. if pcs_hairbsh = 1: my_show_tip = rand(10, 200)
  541. cla
  542. act 'Undress':
  543. *clr
  544. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/undress'+rand(1,7)+'.mp4" ></video></center>'
  545. 'You take off your clothes.'
  546. my_show_tip = rand(100, 200)
  547. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  548. cla
  549. act 'Further': dynamic $webcam_show
  550. end
  551. !------------------------------!
  552. !----------STRIPTEASE------------!
  553. !------------------------------!
  554. if pcs_dancero > 10:
  555. act 'Striptease':
  556. gs'stat'
  557. *clr
  558. '<center><video autoplay loop src="images/shared/accessories/computer/webcam/strip'+rand(1,7)+'.mp4" ></video></center>'
  559. 'You slowly undress to the music, gently removing one garment after another.'
  560. !health check
  561. if agape > 2 or vgape > 2 or pcs_sleep < 8:
  562. 'You do not feel good. You only manage to dance half as well as usual.'
  563. my_show_tip_mod = 2
  564. else
  565. my_show_tip_mod = 1
  566. end
  567. my_show_tip = (pcs_dancero + pcs_danc/2)/my_show_tip_mod
  568. webcam_show_strip +=1
  569. 'For this little idea, you have earned <<my_show_tip>> <b>₽</b>.'
  570. cla
  571. act 'Further': dynamic $webcam_show
  572. end
  573. end
  574. end
  575. }
  576. --- webcam_site ---------------------------------