# webcam_site
if $args[0] = 'start':
!count-in the show day:
if webcam_show_day ! daystart: webcam_show_count = 2
cls
minut += 1
gs'stat'
'Video chat with the best girls online!'
'![]()
> src="images/shared/accessories/computer/webcam/webcam.jpg">'
act 'Logout': gt 'Komp', 'start'
gs 'willpower', 'exhib', 'self', 'hard'
if $webcam_name = 0 and will_cost <= pcs_willpwr:
'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.'
act 'Register (<> Willpower)': dynamic $webcam_rega
gs 'willpower', 'pay', 'self'
gs 'stat'
elseif will_cost > pcs_willpwr:
act 'Register (<> Willpower)': '
You don''t have enough willpower to register online..'
else
if $webcam_name > 0: 'Your username: <<$webcam_name>>'
if $webcam_name > 0: 'View your statistics'
if webcam_show_count <= 0:
'You have already done a show today.'
else
act 'Post Show': dynamic $webcam_index
end
act 'Help': dynamic $webcam_help
act 'Change username': dynamic $webcam_rega
end
end
!-----------------------------------------------!
!------Registration page online chat---------!
!-----------------------------------------------!
$webcam_rega = {
cls
minut = minut + 5
gs 'stat'
*nl
'Registering online, please choose a username...'
!$web_gg_name = '<<$pcs_nickname>>'
$webcam_name = input ('Your username')
cla
'Your username: <<$webcam_name>>'
act 'Further': gt 'webcam_site'
!if $webcam_name = 0: $webcam_name = $web_gg_name
}
!-----------------------------------------------!
!-------Page statistics online chat---------!
!-----------------------------------------------!
$webcam_stat = {
cls
minut = minut + 5
gs'stat'
'Your webcam username: <<$webcam_name>>
Number of shows performed: <>
Times stretching: <>
Times stripping: <>
Played with breasts: <>
Masturbated: <>
Dildo in mouth: <>
Dildo in pussy: <>
Dildo in ass: <>
Dildo ass and pussy: <>
Fisting: <>
Anal Fisting: <>
Orgasmed: <>
Squirted: <>
Total time on cam: <> minutes.
Total tips earned: <> ₽.
'
act 'Return': gt 'webcam_site'
}
!-----------------------------------------------!
!-------Help page online chat-------------!
!-----------------------------------------------!
$webcam_help = {
cls
minut = minut + 5
gs'stat'
'
Description of service:
Video conference - this software allows users to conduct real-time video chat via the Web-Camera
After registering, you will be able to broadcast shows, receiving tips from customers.
In order to receive more tips, you need attract more users.
One show per day only.
Things that will increase your tips:
Use dildos, available from your local sex shop (The larger the better).
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.
Orgasming during a show will earn you a bonus tip.
'
act 'To main': gt 'webcam_site'
}
!-----------------------------------------------!
!--------Home online chat-----------!
!-----------------------------------------------!
$webcam_index = {
!act 'Exit': gt 'Komp', 'start'
if hour < 15 or (week < 6 and hour < 19):
if hour < 7:
'It''s too late to start a show. Too many people are asleep.'
else
if week < 6:
'It''s too early to start a show. Too many people are at work.'
else
'Even if it''s the weekend, it''s still too early to start a show.'
end
end
if pav_slut <= 50: 'Maybe that''s for the best. You''re not sure you should be risking someone recognizing you anyway.'
else
my_show_show = 0
my_show_tits = 0
my_show_mast = 0
my_show_throat = 0
my_show_pussy = 0
my_show_anus = 0
my_show_afisting = 0
my_show_vfisting = 0
my_show_dp = 0
my_show_sex = 0
my_show_squirt = 0
my_show_flex = 0
show_counter = 0
my_show_tip_all = 0
my_show_tip = 0
dynamic $webcam_show
end
}
!-----------------------------------------------!
!---------Webcam shows online chat----------------!
!-----------------------------------------------!
!if $args[0] = 'show':
$webcam_show = {
act 'Exit': gt 'Komp', 'start'
my_show_tip_all += my_show_tip
!------------------------------!
!----------Late Show-----------!
!------------------------------!
if show_counter = 4:
*clr
''
'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.'
'You collected <> ₽ during today''s show.'
webcam_show_day = daystart
webcam_show_count -= 1
money += my_show_tip_all
webcam_show_money += my_show_tip_all
webcam_show_time += 60
webcam_show_counter += 1
elektro += 3
internet -= 1
minut += 60
cla
act 'Logout': gt 'webcam_site'
end
!------------------------------!
!-------Continued show--------!
!------------------------------!
if show_counter > 0 and show_counter < 4:
gs'stat'
*clr
''
'The show must go on!'
'You have already collected <> ₽ for the show.'
show_counter += 1
cla
if my_show_show = 0:
act 'Show yourself':
gs'stat'
*clr
''
'You bring your crotch right against the camera and let all your viewers see everything is as it should be.'
my_show_tip = rand(50, 400)
'For this little idea, you have earned <> ₽.'
my_show_show = 1
cla
act 'Further': dynamic $webcam_show
end
end
!------------------------------!
!-----------Boobs-------------!
!------------------------------!
if my_show_tits = 0:
act 'Play with your breasts':
gs'stat'
*clr
''
'At the request of the audience, you play with your breasts.'
my_show_tip = rand(100, 400)
'For this little idea, you have earned <> ₽.'
my_show_tits = 1
webcam_show_tits +=1
cla
act 'Further': dynamic $webcam_show
end
end
!------------------------------!
!---------Masturbation----------!
!------------------------------!
if my_show_mast = 0:
act 'Masturbate':
gs'stat'
*clr
''
'You caress your pussy and ass, stroke your clitoris and rub your nipples.'
my_show_tip = rand(100, 500)
pcs_horny += 30
!orgasm-Bonus Money
if pcs_horny > 100:
'Soon you bring yourself to the limit and cum violently. Your tips sharply increase when this happens.'
webcam_show_orgazm +=1
my_show_tip += rand(50, 500)
pcs_horny = 0
end
'For this little idea, you have earned <> ₽.'
my_show_mast = 1
webcam_show_mast +=1
cla
act 'Further': dynamic $webcam_show
end
end
!-----------------------------------------------!
!-----------Rubber cock in her mouth----------------!
!-----------------------------------------------!
if pcs_throat >= 1 and dildo = 1 and my_show_throat = 0:
act 'Dildo in the mouth':
gs'stat'
*clr
!Average dildo 15cm
if pcs_throat >= 15 and pcs_throat < 25 and middildo = 1:
''
'You get out your big 15cm dildo and start licking it, sucking it, and shoving it into your mouth.'
my_show_tip = rand(100, 500)
if pcs_throat < 25: pcs_throat += 1
end
!Big Dildo 25cm
if pcs_throat >= 25 and pcs_throat < 35 and bigdildo = 1:
*clr
''
'You get out your giant 25cm dildo and begin to rhythmically drive it into your throat.'
my_show_tip = rand(500, 1000)
if pcs_throat < 35: pcs_throat += 1
end
!Huge Dildo 40cm
if pcs_throat >= 35 and maddildo = 1:
*clr
''
'You take out your enormous 40cm dildo and start trusting it into your throat.'
my_show_tip = rand(600, 1400)
end
!normal dildo 10cm
if pcs_throat < 15 and dildo = 1:
''
'You get out your 10cm dildo and start to gently suck it.'
my_show_tip = rand(100, 500)
pcs_throat += 1
end
'For this little idea, you have earned <> ₽.'
my_show_throat = 1
webcam_show_throat +=1
cla
act 'Further': dynamic $webcam_show
end
end
!-----------------------------------------------!
!---------Rubber dick in pussy----------------!
!-----------------------------------------------!
if vgape < 3 and pcs_vag >= 1 and dildo = 1 and my_show_pussy = 0:
act 'Dildo in the pussy':
gs'stat'
*clr
!Average dildo 15cm
if pcs_vag >= 15 and pcs_vag < 25 and middildo = 1:
''
'You get out your big 15cm dildo and begin rhythmically driving it into your pussy.'
my_show_tip = rand(200, 700)
if pcs_vag < 25: pcs_vag += 1
end
!Big Dildo 25cm
if pcs_vag >= 25 and pcs_vag < 35 and bigdildo = 1:
*clr
''
'You get out your giant 25cm dildo and begin rhythmically driving it into your pussy.'
my_show_tip = rand(400, 800)
if pcs_vag < 35: pcs_vag += 1
end
!a giant dildo 40cm
if pcs_vag >= 35 and maddildo = 1:
*clr
''
'You take out your enormous 40cm dildo and start thrusting it into your pussy.'
my_show_tip = rand(700, 1400)
end
!normal dildo 10cm
if pcs_vag < 15 and dildo = 1:
''
'You get out your 10cm dildo and begin rhythmically driving it into your pussy.'
my_show_tip = rand(100, 600)
pcs_vag += 1
end
pcs_horny += 30
!orgasm-Bonus Money
if pcs_horny > 100:
'Soon you bring yourself to the limit and cum violently. Your tips sharply increase when this happens.'
webcam_show_orgazm +=1
my_show_tip += rand(100, 500)
pcs_horny = 0
end
'For this little idea, you have earned <> ₽.'
my_show_pussy = 1
webcam_show_pussy +=1
cla
act 'Further': dynamic $webcam_show
end
end
!-----------------------------------------------!
!---------Rubber dick in the ass----------------!
!-----------------------------------------------!
if agape < 3 and pcs_ass => 1 and dildo = 1 and my_show_anus = 0:
act 'Dildo in the ass':
gs'stat'
*clr
'You part your buttocks' + iif(analplugin = 1, ', remove your anal plug,', '') + ' and begin to massage your anus with your fingers, first one, then two.'
!Butt plug
analplugin = 0
!grease
if lubri > 0:
lubri -= 1
'You squeeze some lube onto your hand and begin to spread it on your hole. After that, you smear a little on your dildo.'
end
!Average dildo 15see
if pcs_ass >= 15 and pcs_ass < 25 and middildo = 1:
''
'You then take your big 15cm dildo and begin rhythmically driving it into your ass.'
my_show_tip = rand(300, 800)
if pcs_ass < 25: pcs_ass += 1
end
!Big Dildo 25see
if pcs_ass >= 25 and pcs_ass < 35 and bigdildo = 1:
*clr
''
'You then take your giant 25cm dildo and begin rhythmically driving it into your ass.'
my_show_tip = rand(500, 1000)
if pcs_ass < 35: pcs_ass += 1
end
!a giant dildo 40see
if pcs_ass >= 35 and maddildo = 1:
*clr
''
'You then take your enormous 40cm dildo and start thrusting it into your ass.'
my_show_tip = rand(700, 1400)
end
!normal dildo 10cm
if pcs_ass < 15 and dildo = 1:
''
'You then take your 10cm dildo and begin rhythmically driving it into your ass.'
my_show_tip = rand(100, 500)
pcs_ass += 1
end
pcs_horny += 30
!orgasm-Bonus Money
if pcs_horny > 100:
'Soon you bring yourself to the limit and cum violently. Your tips sharply increase when this happens.'
webcam_show_orgazm +=1
my_show_tip += rand(100, 500)
pcs_horny = 0
end
'For this little idea, you have earned <> ₽.'
my_show_anus = 1
webcam_show_anus +=1
cla
act 'Further': dynamic $webcam_show
end
end
!------------------------------!
!----Double penetration-----!
!------------------------------!
if agape < 3 and vgape < 3 and pcs_ass >= 20 and pcs_vag >= 20 and my_show_dp = 0:
act 'Dildo in ass and pussy':
gs'stat'
*clr
''
'You part your legs' + iif(analplugin = 1, ', remove your anal plug,', '') + ' and begin massaging yourself with your fingers, first your pussy, then your ass.'
!Butt plug
analplugin = 0
!grease
if lubri > 0:
lubri -= 1
'You then squeeze some lube onto your hand and begin to spread it on them.'
end
'Now ready, you grab a pair of dildos and begin to rhythmically fuck your holes.'
pcs_horny += 30
!orgasm-Bonus Money
if pcs_horny > 100:
'Soon you bring yourself to the limit and cum violently. Your tips sharply increase when this happens.'
webcam_show_orgazm +=1
my_show_tip += rand(100, 600)
pcs_horny = 0
end
my_show_tip = rand(600, 1600)
my_show_dp = 1
webcam_show_dp +=1
'For this little idea, you have earned <> ₽.'
cla
act 'Further': dynamic $webcam_show
end
end
!------------------------------!
!---------Hand in the ass----------!
!------------------------------!
if agape < 3 and pcs_ass >= 30 and my_show_afisting = 0:
act 'Anal fisting':
gs'stat'
*clr
''
'You part your buttocks' + iif(analplugin = 1, ', remove your anal plug,', '') + ' and begin to massage your anus with your fingers, first one, then two.'
!Butt plug
analplugin = 0
!grease
if lubri = 0: agape = 3
if lubri > 0:
lubri -= 1
'You squeeze some lube onto your hand and begin to spread it on your ass.'
end
'Now ready, you slowly begin to push more and more of your hand inside.'
my_show_tip = rand(400, 1800)
my_show_afisting = 1
webcam_show_afisting +=1
if pcs_ass <= 30: pcs_ass +=1
'For this little idea, you have earned <> ₽.'
cla
act 'Further': dynamic $webcam_show
end
end
!------------------------------!
!---------Hand in pussy---------!
!------------------------------!
if vgape < 3 and pcs_vag >= 30 and my_show_vfisting = 0:
act 'Vaginal fisting':
gs'stat'
*clr
''
'You part your legs and begin massaging your hole with your fingers, first one, then two.'
!grease
if lubri = 0: vgape = 3
if lubri > 0:
lubri -= 1
'You squeeze some lube onto your hand and began to smear it on your pussy.'
end
'Now ready, you slowly begin to push more and more of your hand inside.'
my_show_tip = rand(400, 1600)
my_show_vfisting = 1
webcam_show_vfisting +=1
if pcs_vag <= 30: pcs_vag +=1
'For this little idea, you have earned <> ₽.'
cla
act 'Further': dynamic $webcam_show
end
end
!------------------------------!
!---------Sex - Vasily---------!
!------------------------------!
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:
act 'Call Vasily and arrange a sex show':
gs'stat'
*clr
''
'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.'
!Butt plug
analplugin = 0
!grease
if lubri = 0: vgape = 1
if lubri > 0:
lubri -= 1
'He forced lubrication his arms and began to lubricate your charms'
end
'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.'
pcs_horny += 30
!orgasm-Bonus Money
if pcs_horny > 100:
'Soon he bring you to orgasm, and you cum violently. Your tips sharply increase when this happens.'
webcam_show_orgazm +=1
my_show_tip += rand(100, 500)
pcs_horny = 0
end
'Your viewers like all the action. Your view count increases, and your tips rise even faster.'
my_show_tip = rand(800, 2000)
my_show_sex = 1
webcam_show_sex +=1
'For this little idea, you have earned <> ₽.'
cla
act 'Further': dynamic $webcam_show
end
end
!------------------------------!
!-----------Squirt-------------!
!------------------------------!
if webcam_show_counter >= 30 and my_show_squirt = 0:
act 'Squirt':
gs'stat'
*clr
''
'At the request of the audience, you squirt directly at the camera.'
my_show_tip = rand(400, 1200)
'For this little idea, you have earned <> ₽.'
my_show_squirt = 1
webcam_show_squirt +=1
cla
act 'Further': dynamic $webcam_show
end
end
!------------------------------!
!----------Bracing------------!
!------------------------------!
if pcs_danc >= 50 and my_show_flex = 0:
act 'Bracing':
*clr
''
'You show your audience your flexibility.'
my_show_tip = rand(pcs_dancero,pcs_dancero*2)
'For this little idea, you have earned <> ₽.'
my_show_flex = 1
webcam_show_flex +=1
cla
act 'Further': dynamic $webcam_show
end
end
end
!------------------------------!
!----------Start the show-----------!
!------------------------------!
if show_counter = 0:
'You turn on the webcam. It''s time to start the show!'
show_counter = 1
!if dyed and combed bonus money
if pcs_makeup = 1: my_show_tip = rand(10, 50)
if pcs_makeup = 2: my_show_tip = rand(10, 100)
if pcs_makeup = 3: my_show_tip = rand(10, 150)
if pcs_makeup = 4: my_show_tip = rand(10, 200)
if pcs_hairbsh = 1: my_show_tip = rand(10, 200)
cla
act 'Undress':
*clr
''
'You take off your clothes.'
my_show_tip = rand(100, 200)
'For this little idea, you have earned <> ₽.'
cla
act 'Further': dynamic $webcam_show
end
!------------------------------!
!----------STRIPTEASE------------!
!------------------------------!
if pcs_dancero > 10:
act 'Striptease':
gs'stat'
*clr
''
'You slowly undress to the music, gently removing one garment after another.'
!health check
if agape > 2 or vgape > 2 or pcs_sleep < 8:
'You do not feel good. You only manage to dance half as well as usual.'
my_show_tip_mod = 2
else
my_show_tip_mod = 1
end
my_show_tip = (pcs_dancero + pcs_danc/2)/my_show_tip_mod
webcam_show_strip +=1
'For this little idea, you have earned <> ₽.'
cla
act 'Further': dynamic $webcam_show
end
end
end
}
--- webcam_site ---------------------------------