1
0

webcam_site 21 KB

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