iWhore/locations/mod_iwhore_dincollect.qsrc

# mod_iwhore_dincollect
!!!!!!!!!!!!BATH!!!!!!!!!!!!!!!

if $ARGS[0] = 'tampon':

	if sanpad > 0 and (mesec > 0 or (placebopart > 2 and pillcon < 40000)) and isprokp = 0 and isprok = 0 and $pantyworntype ! 'none':
		act 'Use a sanitary pad (0:05)':
			cla
			*clr
			sanpad -= 1
			isprokp = 1
			minut += 5
			pcs_mood -= 5
			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash3.jpg"></center>'
			*nl
			'You use a sanitary pad.'
			act 'Finish':gt $loc, $loc_arg
		end
	end
	if tampon > 0 and (mesec > 0 or (placebopart > 2 and pillcon < 40000)) and isprok = 0 and isprokp = 0:
		act 'Use a tampon (0:05)':
			cla
			*clr
			tampon -= 1
			isprok = 1
			minut += 5
			pcs_mood -= 5
			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash3.jpg"></center>'
			*nl
			'You use a tampon.'
			act 'Finish':gt $loc, $loc_arg
		end
	end
end

if $ARGS[0] = 'quickwash':

	if spdirty > 0:
		act 'Quick wash (0:15)':
			cla
			*clr

			cumspclnt = 4
			gs 'cum_cleanup'
			if pcs_sweat < 30:
				pcs_sweat = 15 + rand(0,4)
			else
				pcs_sweat -= 10 + rand(0,4)
			end
			minut += 15
			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash5.jpg"></center>'
			*nl
			'You give yourself a catlick, thus removing any traces of cum.'

			act 'Finish':gt $loc, $loc_arg
		end
	end

!	gs 'din_van', 'pblc_pee'
end

if $ARGS[0] = 'wearpan':

	if $pantyworntype = 'none':
		act 'Wear panties': gt 'panties', 'view_panty_list', 'bathroom'
	end

	if $braworntype = 'none':
		act 'Wear a bra': gt 'bras', 'view_bra_list', 'bathroom'
	end
end

if $ARGS[0] = 'bteeth':
	if pcs_breath ! 1:
		act 'Brush your teeth (0:05)':
			cla
			*clr
			minut += 5
			cumspclnt = 2
			gs 'cum_cleanup'
			pcs_breath = 1
			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brushteeth.jpg"></center>'
			*nl
			'You brush your teeth and now they are clean and minty fresh.'
			act 'Finish':gt $loc, $loc_arg
		end
	end
end

if $ARGS[0] = 'removepan':

	if $pantyworntype ! 'none' and $braworntype ! 'none':
		act 'Remove underwear':
			gs 'underwear', 'remove'
			gt $loc, $loc_arg
		end
	end

	if $pantyworntype ! 'none':
		act 'Remove panties':
			gs 'panties', 'remove'
			gt $loc, $loc_arg
		end
	end

	if $braworntype ! 'none':
		act 'Remove bra':
			gs 'bras', 'remove'
			gt $loc, $loc_arg
		end
	end
end

if $ARGS[0] = 'showerdin':

	if hypnoAddict = 0:
		cumspclnt = 1
	else
		cumspclnt = 18
	end
	gs 'cum_cleanup'
	pcs_hairbsh = 0
	pcs_makeup = 1
	if pcs_sweat > 10: pcs_sweat = 10 + rand(0,4)
	if false_lashes >= 1:
		if rand(0,4) <= 2:
			'You''re careful enough that your false lashes make it through relatively unscathed.'
		else
			'Unfortunately, your false lashes don''t make it through the shower.'
			false_lashes = 0
			pcs_lashes = pcs_naturallashes
		gs 'AppearanceSystem', 'UpdateBaseAppearnce'
		end
	end
end

if $ARGS[0] = 'enema':
	if klisma = 1 and (klismaday ! daystart or arrpos('sparrloc', 3) ! -1):
		act 'Give yourself an enema (0:05)':
			cla
			*clr
			cumspclnt = 7
			gs 'cum_cleanup'
			minut += 5
			klismaday = daystart
			klismaday1 = 1

			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/klisma.jpg"></center>'
			*nl
			'You give yourself an enema, feeling clean down there. Your ass is now ready for anal sex without any awkward surprises.'

			act 'Finish':gt $loc, $loc_arg
		end
	end
end &! --- enema ---

if $ARGS[0] = 'toymanage':
	if analplug = 1 and analplugin = 1:
		act 'Remove your butt plug (0:05)':
			cla
			*clr
			minut += 5
			analplugIN = 0

			if pcs_ass < 30:pcs_ass += 1

			'<center><img <<$set_imgh>> src="images/pc/body/analplug.jpg"></center>'
			*nl
			'You squat and tug gently at the butt plug, gasping as you push it out of you. You can''t help but feel a bit empty, now that it''s out.' & !!0.2.6: Removed unneccessary var check

			act 'Finish':gt $loc, $loc_arg
		end
	elseif analplug = 1 and analplugin = 0 and klismaday = daystart:
		act 'Insert your butt plug (0:05)':
			cla
			*clr
			minut += 5
			analplugIN = 1

			if pcs_ass < 10:pcs_ass += 5
			if pcs_ass >= 10 and pcs_ass < 20:pcs_ass += rand(1, 2)
			if pcs_ass >= 20 and pcs_ass < 30:pcs_ass += rand(0, 1)

			'<center><img <<$set_imgh>> src="images/pc/body/analplug.jpg"></center>'
			*nl
			if butpluguse > 0:'You squat and gently rub the butt plug against your anus, after lubricating it with a bit of saliva. After a short while, you''ve relaxed enough to be able to push it in. Once it''s in you give it a few gentle tugs, wondering if anyone will catch you wearing it today.'
			if butpluguse = 0:butpluguse = 1 & '"If I''m not going to use it, then why did I buy it?" you ask yourself. You look at the butt plug for a while, thinking "It is necessary to start developing my ass, so I could have great adventures someday... you could even say huge and thick adventures with crimson heads, uh, now I got carried away..." You''re slightly embarrassed at the thought for a second, but are then overcome by your horny fantasies. Determined to get the plug all the way in, you slowly press it against your asshole after lubricating it with a bit of saliva. It hurts a bit at first, but once the thickest part is in the rest follows rather easily. Patting yourself on your ass once it''s in, you wonder if anyone will notice you''re wearing it today and then immediately feel naughty for even having thought that.'

			act 'Finish':gt $loc, $loc_arg
		end
	end

	if vibrator = 1 and vibratorIN = 1:
		act 'Remove the vibrator (0:05)':
			cla
			*clr
			minut += 5
			vibratorIN = 0

			if pcs_vag < 30:pcs_vag += 1

			'<center><img <<$set_imgh>> src="images/shared/accessories/toys/vibrator.jpg"></center>'
			*nl
			'You spread your legs and take the vibrator out of your pussy, letting out a slight moan as you do so. You feel somewhat empty now.'

			act 'Finish':gt $loc, $loc_arg
		end
	elseif vibrator = 1 and vibratorIN = 0 and pcs_vag ! 0:
		act 'Insert the vibrator in your vagina (0:05)':
			cla
			*clr
			minut += 5
			vibratorIN = 1

			if pcs_vag < 30:pcs_vag += 2

			'<center><img <<$set_imgh>> src="images/shared/accessories/toys/vibrator.jpg"></center>'
			*nl
			'You spread your legs and slowly insert the vibrator in your pussy, wondering if anyone will notice you wearing it today.'

			act 'Finish':gt $loc, $loc_arg
		end
	end
end &! --- enema ---

if $ARGS[0] = 'basin':

	if cumloc[11] = 1 or cumloc[12] = 1:
		act 'Clean the sperm from your face (0:10)':
			cla
			*clr
			pcs_makeup = 1
			cumspclnt = 9
			gs 'cum_cleanup'
			cumspclnt = 13
			gs 'cum_cleanup'
			if pcs_sweat > 19 : pcs_sweat -= 5
			minut += 10
			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/facesp.jpg"></center>'
			*nl
			'You clean your face and get rid of any trace of cum.'

			act 'Finish':gt $loc, $loc_arg
		end
	end

	if body_write > 0 or face_write > 0:
		act 'Wash the writings off your body (0:10)':
			cla
			*clr
			body_write = 0
			face_write = 0
			minut += 10
			gs'stat'

			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash1.jpg"></center>'
			*nl
			'You wash off the indecent inscriptions on your body.'

			act 'Finish':gt $loc, $loc_arg
		end
	end

	if pcs_makeup ! 1:
		act 'Wash off cosmetics (0:10)':
			cla
			pcs_makeup = 1
			cumspclnt = 9
			gs 'cum_cleanup'
			cumspclnt = 11
			gs 'cum_cleanup'
			minut += 10
			*nl
			'You wash off your makeup.'

			act 'Finish':gt $loc, $loc_arg
		end
	end

	if false_lashes >= 1:
		act 'Remove false lashes (0:05)':
			cla
			'You carefully peel off the glued-on strip, careful to protect your natural lashes.'
			lashsavechance = rand(0,4)
			if lashsavechance = 4:
				'These lashes still look to be in pretty good shape; you could probably use them again.'
				if pcs_lashes = 4:fakelashesmink += 1
				if pcs_lashes = 3:fakelashesplain += 1
			end
			pcs_lashes = pcs_naturallashes
			false_lashes = 0
			minut += 5
			gs 'AppearanceSystem', 'UpdateBaseAppearnce'
			act 'Finish':gt $loc, $loc_arg
		end
	end

	if (cumloc[6] = 1 or cumloc[7] = 1):
		act 'Clean semen stains from your clothing':
			*clr & cla
			cumspclnt = 6
			gs 'cum_cleanup'
			minut = minut + 15
			gs 'stat'

			'<center><img <<$set_imgh>> src="images/shared/sex/cum/frotsp.jpg"></center>'
			'You take fifteen minutes to thoroughly rinse the semen stains out of your clothes. By the time you''re done, all the evidence that remains of them are some quickly drying damp spots.'
			act 'Finish': gt $loc, $loc_arg
		end
	end

	if klisma = 1 and (klismaday ! daystart or arrpos('sparrloc', 3) ! -1):
		act 'Give yourself an enema (0:05)':
			*clr & cla
			pcs_horny += 10
			cumspclnt = 7
			gs 'cum_cleanup'
			minut += 5
			klismaday = daystart
			klismaday1= 1
			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/klisma.jpg"></center>'
			'You give yourself an enema, feeling clean down there. Your ass is now ready for anal sex without any awkward surprises.'
			act 'Finish':gt $loc, $loc_arg
		end
	end

	if analplug = 1 and analplugin = 1:
		act 'Take out your butt plug (0:05)':
			*clr & cla
			minut += 5
			analplugIN = 0
			if pcs_ass < 30:pcs_ass += 1

			'<center><img <<$set_imgh>> src="images/pc/body/analplug.jpg"></center>'
			'You squat and tug gently at the butt plug, gasping as you push it out of you. You can''t help but feel a bit empty, now that it''s out.'
			act 'Finish':gt $loc, $loc_arg
		end
	elseif analplug = 1 and analplugin = 0 and klismaday = daystart:
		act 'Wear your butt plug (0:05)':
			*clr & cla
			minut += 5
			analplugIN = 1
			if pcs_ass < 10:pcs_ass = pcs_ass + 5
			if pcs_ass >= 10 and pcs_ass < 20:pcs_ass += rand(1, 2)
			if pcs_ass >= 20 and pcs_ass < 30:pcs_ass += rand(0, 1)

			'<center><img <<$set_imgh>> src="images/pc/body/analplug.jpg"></center>'
			if butpluguse > 0:'You squat and gently rub the butt plug against your anus, after lubricating it with a bit of saliva. After a short while, you''ve relaxed enough to be able to push it in. Once it''s in you give it a few gentle tugs, wondering if anyone will catch you wearing it today.'
			if butpluguse = 0:butpluguse = 1 & '"If I''m not going to use it, then why did I buy it?" you ask yourself. You look at the butt plug for a while, thinking "It is necessary to start developing my ass, so I could have great adventures someday... you could even say huge and thick adventures with crimson heads, uh, now I got carried away..." You''re slightly embarrassed at the thought for a second, but are then overcome by your horny fantasies. Determined to get the plug all the way in, you slowly press it against your asshole after lubricating it with a bit of saliva. It hurts a bit at first, but once the thickest part is in the rest follows rather easily. Patting yourself on your ass once it''s in, you wonder if anyone will notice you''re wearing it today and then immediately feel naughty for even having thought that.'

			act 'Finish':gt $loc, $loc_arg
		end
	end


	if vibrator = 1 and vibratorIN = 1:
		act 'Remove the vibrator (0:05)':
			*clr & cla
			minut += 5
			vibratorIN = 0
			if pcs_vag < 30:pcs_vag += 1
			'<center><img <<$set_imgh>> src="images/shared/accessories/toys/vibrator.jpg"></center>'
			'You spread your legs and take the vibrator out of your pussy, letting out a slight moan as you do so. You feel somewhat empty now.'
			act 'Finish':gt $loc, $loc_arg
		end
	elseif vibrator = 1 and vibratorIN = 0 and pcs_vag > 0:
		act 'Insert the vibrator in your vagina (0:05)':
			*clr & cla
			minut += 5
			vibratorIN = 1
			if pcs_vag < 30:pcs_vag += 2
			'<center><img <<$set_imgh>> src="images/shared/accessories/toys/vibrator.jpg"></center>'
			'You spread your legs and slowly insert the vibrator in your pussy, wondering if anyone will notice you wearing it today.'
			act 'Finish':gt $loc, $loc_arg
		end
	end
end

if $ARGS[0] = 'toymanage':
	if analplug = 1 and analplugin = 1:
		act 'Remove your butt plug (0:05)':
			cla
			*clr
			minut += 5
			analplugIN = 0

			if pcs_ass < 30:pcs_ass += 1

			'<center><img <<$set_imgh>> src="images/pc/body/analplug.jpg"></center>'
			*nl
			'You squat and tug gently at the butt plug, gasping as you push it out of you. You can''t help but feel a bit empty, now that it''s out.' & !!0.2.6: Removed unneccessary var check

			act 'Finish':gt $loc, $loc_arg
		end
	elseif analplug = 1 and analplugin = 0 and klismaday = daystart:
		act 'Insert your butt plug (0:05)':
			cla
			*clr
			minut += 5
			analplugIN = 1

			if pcs_ass < 10:pcs_ass += 5
			if pcs_ass >= 10 and pcs_ass < 20:pcs_ass += rand(1, 2)
			if pcs_ass >= 20 and pcs_ass < 30:pcs_ass += rand(0, 1)

			'<center><img <<$set_imgh>> src="images/pc/body/analplug.jpg"></center>'
			*nl
			if butpluguse > 0:'You squat and gently rub the butt plug against your anus, after lubricating it with a bit of saliva. After a short while, you''ve relaxed enough to be able to push it in. Once it''s in you give it a few gentle tugs, wondering if anyone will catch you wearing it today.'
			if butpluguse = 0:butpluguse = 1 & '"If I''m not going to use it, then why did I buy it?" you ask yourself. You look at the butt plug for a while, thinking "It is necessary to start developing my ass, so I could have great adventures someday... you could even say huge and thick adventures with crimson heads, uh, now I got carried away..." You''re slightly embarrassed at the thought for a second, but are then overcome by your horny fantasies. Determined to get the plug all the way in, you slowly press it against your asshole after lubricating it with a bit of saliva. It hurts a bit at first, but once the thickest part is in the rest follows rather easily. Patting yourself on your ass once it''s in, you wonder if anyone will notice you''re wearing it today and then immediately feel naughty for even having thought that.'

			act 'Finish':gt $loc, $loc_arg
		end
	end

	if vibrator = 1 and vibratorIN = 1:
		act 'Remove the vibrator (0:05)':
			cla
			*clr
			minut += 5
			vibratorIN = 0

			if pcs_vag < 30:pcs_vag += 1

			'<center><img <<$set_imgh>> src="images/shared/accessories/toys/vibrator.jpg"></center>'
			*nl
			'You spread your legs and take the vibrator out of your pussy, letting out a slight moan as you do so. You feel somewhat empty now.'

			act 'Finish':gt $loc, $loc_arg
		end
	elseif vibrator = 1 and vibratorIN = 0 and pcs_vag ! 0:
		act 'Insert the vibrator in your vagina (0:05)':
			cla
			*clr
			minut += 5
			vibratorIN = 1

			if pcs_vag < 30:pcs_vag += 2

			'<center><img <<$set_imgh>> src="images/shared/accessories/toys/vibrator.jpg"></center>'
			*nl
			'You spread your legs and slowly insert the vibrator in your pussy, wondering if anyone will notice you wearing it today.'

			act 'Finish':gt $loc, $loc_arg
		end
	end
end

if $ARGS[0] = 'enemaold':
	!this is the old enema din_van
	cumspclnt = 7
	gs 'cum_cleanup'
	minut += 5
	klismaday = daystart
	klismaday1= 1
	if $ARGS[1]='':
		*p 'You give yourself an enema, feeling clean down there. Your ass is now ready for anal sex without any awkward surprises.'
	elseif $ARGS[1]!' ':
		*p '<<$ARGS[1]>>'
	end
end &! --- enema ---

if $ARGS[0] = 'brit':
	if shave_menu = 1  and stanok > 1:
		if pcs_leghair > 3 or (pubestyle = 1 and pcs_pubes > 3) or (pubestyle >= 2 and pubestyle <=7 and pcs_pubes > 11) or (pubestyle = 8 and pcs_pubes > 11) or (pubestyle = 9 and pcs_pubes > 20) or (pubestyle = 10 and pcs_pubes > 26):
			if pubestyle > 0:
				act 'Shave yourself (0:15)':
					*clr & cla
					minut += 15
					pcs_leghair = 0
					if pubestyle = 1 and pcs_pubes > 3:
						pcs_pubes = 0
					elseif (pubestyle >= 2 and pubestyle <=7) and pcs_pubes > 11:
						pcs_pubes = 11
					elseif pubestyle = 8 and pcs_pubes > 11:
						pcs_pubes = 16
					elseif pubestyle = 9 and pcs_pubes > 20:
						pcs_pubes = 20
					elseif pubestyle = 10 and pcs_pubes > 26:
						pcs_pubes = 26
					end
					pcs_horny += 5
					stanok -= 2
					if rand(0, 5) = 0:gt 'vann', 'brit1'
					if $loc ='Gadbana':
						'<center><video src="images/shared/home/bathroom/shave.mp4"></center>'
					else
						'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
					end
					*nl
					if daystart < 10 and mid($start_type,1,2) ! 'sg':
						'You can''t shake off the fact that you''re a girl now, so you decide it''d be best to shave your legs. You begin to lather your legs, still marveling at how soft and round they are. Then you take the razor in your hand and begin to shave your legs.'
						'You feel really awkward, never having done this before as a guy. Luckily, you had more than enough experience with shaving your face and technically this isn''t really all that different. So in the end you get a pretty decent job done.'
					elseif daystart < 30 and mid($start_type,1,2) ! 'sg':
						pcs_mood += 10
						'With a newfound routine you lather up your legs and start shaving, careful not to miss a spot. After washing away the foam you softly glide your hands over your smooth legs, feeling good to know that you don''t need to hide your legs in pants. Maybe you should wear a skirt tomorrow?'
					elseif pubestyle = 1:
						'You lather up your legs and crotch and carefully shave them. Once you''re finished you gently glide your hands over your smooth pussy and legs, enjoying the smooth feeling and getting slightly more aroused by the touch.'
					elseif pubestyle >= 2 and pubestyle <=7:
						'You lather up your legs and carefully shave them. Once you''re finished gliding your hands over your smooth legs, ensuring you didn''t miss a spot, you spend some time cleaning up the area around your neatly trimed and styled patch of pussy hair as well.'
					elseif pubestyle = 8:
						'You lather up your legs and carefully shave them. Once you''re finished gliding your hands over your smooth legs, ensuring you didn''t miss a spot, you spend some time shaving off the stubble around your small patch of hair tidy as well.'
					elseif pubestyle >= 9:
						'You lather up your legs and carefully shave them. Once you''re finished gliding your hands over your smooth legs, ensuring you didn''t miss a spot, you spend some time trimming back your small neat bush as well.'
					elseif pubestyle >= 10:
						'You lather up your legs and carefully shave them. Once you''re finished gliding your hands over your smooth legs, ensuring you didn''t miss a spot, you spend some time trimming back your  bush as well.'
					end
					dynamic $dryOff
				end
			end
		end
	elseif shave_menu = 2 and stanok > 0:
		if pcs_pubes > 3:
			if pubestyle = 1:
				act 'Shave your pussy (0:10)':
					*clr & cla
					minut += 10
					pcs_pubes = 0
					pcs_horny += 5
					stanok -= 1
					if rand(0, 5) = 5:gt 'vann', 'brit1'
					'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
					*nl
					'You lather your crotch with some soapy water and carefully shave your pubic hair. After shaving you can''t help but run your fingers over your pussy, enjoying the smooth feeling and getting slightly more aroused by the touch.'
					dynamic $dryOff
				end
			elseif (pubestyle >= 2 and pubestyle <= 7) and pcs_pubes > 15:
				act 'Trim your pussy (0:10)':
					*clr & cla
					'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave4.jpg"></center>'
					*nl
					if pcs_pubes >= 20:
						'You carefully shave away the hair at the edges of your pussy, trimming it all away until there is only a neatly styled bush left at the top.'
					else
						'You carefully shave away the stubble at the edges of your pussy, careful to only trim and maintain the neatly styled bush you have at the top.'
					end
					minut += 10
					pcs_pubes = 11
					pcs_horny += 5
					stanok -= 1
					if rand(0, 5) = 5:gt 'vann', 'brit1'
					dynamic $dryOff
				end
			elseif pubestyle = 8 and pcs_pubes > 19:
				act 'Trim your pubic hair (0:10)':
					*clr & cla
					minut += 10
					pcs_pubes = 19
					pcs_horny += 5
					stanok -= 1
					if rand(0, 5) = 5:gt 'vann', 'brit1'
					'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave4.jpg"></center>'
					*nl
					'You spend some time trimming back your pubic hair, not shaving it away completely but careful to make it neat and tidy.'
					dynamic $dryOff
				end
			elseif pubestyle = 9 and pcs_pubes >= 25:
				act 'Trim your bush (0:10)':
					*clr & cla
					minut += 10
					pcs_pubes = 21
					pcs_horny += 5
					stanok -= 1
					if rand(0, 5) = 5:gt 'vann', 'brit1'
					'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave4.jpg"></center>'
					*nl
					'You spend some time trimming back your light bush of pubic hair, tidying it up and keeping your bikini line nice and clean.'
					dynamic $dryOff
				end
			elseif pubestyle = 10 and pcs_pubes >= 30:
				act 'Trim back your bush (0:10)':
					*clr & cla
					minut += 10
					pcs_pubes = 26
					pcs_horny += 5
					stanok -= 1
					if rand(0, 5) = 5:gt 'vann', 'brit1'
					'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave4.jpg"></center>'
					*nl
					'You spend some time trimming back your thick bush of pubic hair, tidying it up and keeping your bikini line nice and clean.'
					dynamic $dryOff
				end
			end
		end
	elseif shave_menu = 3 and stanok > 0:
		if pcs_leghair > 3:
			act 'Shave your legs (0:05)':
				*clr & cla
				minut += 5
				pcs_leghair = 0
				pcs_horny += 5
				stanok -= 1
				if rand(0, 5) = 5:gt 'vann', 'brit1'
				'<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave.jpg"></center>'
				*nl
				if daystart < 10 and mid($start_type,1,2) ! 'sg':
					'You can''t shake off the fact that you''re a girl now, so you decide it''d be best to shave your legs. You begin to lather your legs, still marveling at how soft and round they are. Then you take the razor in your hand and begin to shave your legs.'
					'You feel really awkward, never having done this before as a guy. Luckily, you had more than enough experience with shaving your face and technically this isn''t really all that different. So in the end you get a pretty decent job done.'
				elseif daystart < 30 and mid($start_type,1,2) ! 'sg':
					pcs_mood += 10
					'With a newfound routine you lather up your legs and start shaving, careful not to miss a spot. After washing away the foam you softly glide your hands over your smooth legs, feeling good to know that you don''t need to hide your legs in pants. Maybe you should wear a skirt tomorrow?'
				else
					'You lather your legs up with some soapy water and shave your legs. After a few swift movements, your legs are smooth as silk. The feeling of your smooth legs turns you on a little.'
				end
				dynamic $dryOff
			end
		end
	end
end

if $ARGS[0] = 'dryOff':
	act 'Get out and dry off':
		mirror_steam = hour & gt $loc, $loc_arg
	end
end

if $ARGS[0] = 'pir_title':
	cla
	*clr
	'<center><b>Available piercings - select one by clicking the image</b></center>'
	*nl
end
if $ARGS[0] = 'pirTongue':
	gs 'mod_iwhore_dincollect' , 'pir_title'
!	gs 'mod_iwhore_dincollect' , 'pirManage'
	i = 1
	:looptongue_pir
		if dyneval('RESULT = PirsA<<i>>_owned') = 1:*p '<a href="exec:pirsA = <<i>> & pierWearCount += 1 & gs ''mod_iwhore_dincollect'' , ''pirManage''"><img src="images/pc/body/piercings/a<<i>>.jpg" 	height="250" ></a>'
		i += 1
	if i <= 4:jump 'looptongue_pir'
end
if $ARGS[0] = 'pirLip':
	gs 'mod_iwhore_dincollect' , 'pir_title'
	i = 1
	:looplip_pir
		if dyneval('RESULT = PirsB<<i>>_owned') = 1:*p '<a href="exec:pirsB = <<i>> & pierWearCount += 1 & gs ''mod_iwhore_dincollect'' , ''pirManage''"><img src="images/pc/body/piercings/b<<i>>.jpg" 	height="250" ></a>'
		i += 1
	if i <= 6:jump 'looplip_pir'
end
if $ARGS[0] = 'pirEars':
	gs 'mod_iwhore_dincollect' , 'pir_title'
	i = 1
	:loopears_pir
		if dyneval('RESULT = PirsC<<i>>_owned') = 1:*p '<a href="exec:pirsC = <<i>> & pierWearCount += 1 & gs ''mod_iwhore_dincollect'' , ''pirManage''"><img src="images/pc/body/piercings/c<<i>>.jpg" 	height="250" ></a>'
		i += 1
	if i <= 24:jump 'loopears_pir'
end
if $ARGS[0] = 'pirNose':
	gs 'mod_iwhore_dincollect' , 'pir_title'
	i = 1
	:loopnose_pir
		if dyneval('RESULT = PirsD<<i>>_owned') = 1:*p '<a href="exec:pirsD = <<i>> & pierWearCount += 1 & gs ''mod_iwhore_dincollect'' , ''pirManage''"><img src="images/pc/body/piercings/d<<i>>.jpg" 	height="250" ></a>'
		i += 1
	if i <= 7:jump 'loopnose_pir'
end
if $ARGS[0] = 'pirBrow':
	gs 'mod_iwhore_dincollect' , 'pir_title'
	i = 1
	:loopbrow_pir
		if dyneval('RESULT = PirsE<<i>>_owned') = 1:*p '<a href="exec:pirsE = <<i>> & pierWearCount += 1 & gs ''mod_iwhore_dincollect'' , ''pirManage''"><img src="images/pc/body/piercings/e<<i>>.jpg" 	height="250" ></a>'
		i += 1
	if i <= 2:jump 'loopbrow_pir'
end
if $ARGS[0] = 'pirNips':
	gs 'mod_iwhore_dincollect' , 'pir_title'
	i = 1
	:loopnipple_pir
		if dyneval('RESULT = PirsF<<i>>_owned') = 1:*p '<a href="exec:pirsF = <<i>> & pierWearCount += 1 & gs ''mod_iwhore_dincollect'' , ''pirManage''"><img src="images/pc/body/piercings/f<<i>>.jpg" 	height="250" ></a>'
		i += 1
	if i <= 4:jump 'loopnipple_pir'
end
if $ARGS[0] = 'pirNavel':
	gs 'mod_iwhore_dincollect' , 'pir_title'
	i = 1
	:loopnavel_pir
		if dyneval('RESULT = PirsN<<i>>_owned') = 1:*p '<a href="exec:pirsN = <<i>> & pierWearCount += 1 & gs ''mod_iwhore_dincollect'' , ''pirManage''"><img src="images/pc/body/piercings/n<<i>>.jpg" 	height="250" ></a>'
		i += 1
	if i <= 4:jump 'loopnavel_pir'
end
if $ARGS[0] = 'pirPubic':
	gs 'mod_iwhore_dincollect' , 'pir_title'
	i = 1
	:looppubic_pir
		if dyneval('RESULT = PirsG<<i>>_owned') = 1:*p '<a href="exec:pirsG = <<i>> & pierWearCount += 1 & gs ''mod_iwhore_dincollect'' , ''pirManage''"><img src="images/pc/body/piercings/g<<i>>.jpg" 	height="250" ></a>'
		i += 1
	if i <= 7:jump 'looppubic_pir'
end
if $ARGS[0] = 'pirManage':
	cls
	*nl
	if pirsA > 0:
		if pirsA < 10000:
			'<center><a href="exec:pirsA = 10000 & pierWearCount -= 1 & gs ''mod_iwhore_dincollect'' , ''pirManage''">Remove tongue piercing</a>.</center>'
		else
			'<center><a href="exec:gs ''mod_iwhore_dincollect'' , ''pirTongue''">Insert tongue piercing</a>.</center>'
		end
		*nl
	end
	if pirsB > 0:
		if pirsB < 10000:
			'<center><a href="exec:pirsB = 10000 & pierWearCount -= 1 & gs ''mod_iwhore_dincollect'' , ''pirManage''">Remove lip piercing</a>.</center>'
		else
			'<center><a href="exec:gs ''mod_iwhore_dincollect'' , ''pirLip''">Insert lip piercing</a>.</center>'
		end
		*nl
	end
	if pirsC > 0:
		if pirsC < 10000:
			'<center><a href="exec:pirsC = 10000 & pierWearCount -= 1 & gs ''mod_iwhore_dincollect'' , ''pirManage''">Remove ear piercings</a>.</center>'
		else
			'<center><a href="exec:gs ''mod_iwhore_dincollect'' , ''pirEars''">Insert ear piercings</a>.</center>'
		end
		*nl
	end
	if pirsD > 0:
		if pirsD < 10000:
			'<center><a href="exec:pirsD = 10000 & pierWearCount -= 1 & gs ''mod_iwhore_dincollect'' , ''pirManage''">Remove nose piercing</a>.</center>'
		else
			'<center><a href="exec:gs ''mod_iwhore_dincollect'' , ''pirNose''">Insert nose piercing</a>.</center>'
		end
		*nl
	end
	if pirsE > 0:
		if pirsE < 10000:
			'<center><a href="exec:pirsE = 10000 & pierWearCount -= 1 & gs ''mod_iwhore_dincollect'' , ''pirManage''">Remove eyebrow piercing</a>.</center>'
		else
			'<center><a href="exec:gs ''mod_iwhore_dincollect'' , ''pirBrow''">Insert eyebrow piercing</a>.</center>'
		end
		*nl
	end
	if pirsF > 0:
		if pirsF < 10000:
			'<center><a href="exec:pirsF = 10000 & pierWearCount -= 1 & gs ''mod_iwhore_dincollect'' , ''pirManage''">Remove nipple piercings</a>.</center>'
		else
			'<center><a href="exec:gs ''mod_iwhore_dincollect'' , ''pirNips''">Insert nipple piercings</a>.</center>'
		end
		*nl
	end
	if pirsN > 0:
		if pirsN < 10000:
			'<center><a href="exec:pirsN = 10000 & pierWearCount -= 1 & gs ''mod_iwhore_dincollect'' , ''pirManage''">Remove navel piercing</a>.</center>'
		else
			'<center><a href="exec:gs ''mod_iwhore_dincollect'' , ''pirNavel''">Insert navel piercing</a>.</center>'
		end
		*nl
	end
	if pirsG > 0:
		if pirsG < 10000:
			'<center><a href="exec:pirsG = 10000 & pierWearCount -= 1 & gs ''mod_iwhore_dincollect'' , ''pirManage''">Remove pussy piercings</a>.</center>'
		else
			'<center><a href="exec:gs ''mod_iwhore_dincollect'' , ''pirPubic''">Insert pussy piercings</a>.</center>'
		end
		*nl
	end

	act'<b>Back</b>':gt $loc, $loc_arg
end

!!!!!!!!!!!!!!!CLIENT!!!!!!!!!!!!!!!!!!!!!!!

if $ARGS[0] = 'client':
	you_blow_him = 0
	if want_stall ! 0:
		'The <a href="exec:minut += 1 & gt ''mod_iwhore_pbath'', ''client''">client</a> looks impatiently... ."Come on bitch, it''s not that you are not a whore anymore with the make up...move your ass." He laughs and licks his lips while looking you over.'
		act 'Serve the man': gt 'mod_iwhore_pbath', 'client'
	else
		''
	end

end

!!!!!!!!!!!!!CONDOM/DISEASE!!!!!!!!!!!!!!

if $ARGS[0] = 'venerasiak':

	tipvenerarand = rand(0, 10)
	if protect = 1:
		venrand = rand(0, 1000)
		if venrand = 1000: gs 'mod_iwhore_dincollect' , 'veneradinitog'
	else
		venrand = rand(0, 100)
		if venrand >= 80: gs 'mod_iwhore_dincollect' , 'veneradinitog'
	end

end

if $ARGS[0] = 'veneradinitog':

	if cheatHealth = 0:
		if tipvenerarand = 8:
			!!herpes
			if rand(1, 100) > 90:
				if GerpesOnce = 0:
					GerpesOnce = 1
					Venera += 1
					Gerpes += 1
					GenHerpes = 1

				end
			end
		elseif tipvenerarand = 7:
			!!syphilis
			if rand(1, 100) > 95: Venera += 1
			if SifacOnce = 0:
				SifacOnce = 1
				Sifilis += 1
			end
		elseif tipvenerarand >= 5 and tipvenerarand < 7:
			!!gonorrhea/triper
			if rand(1, 100) > 95: Venera += 1
			if TriperOnce = 0:
				TriperOnce = 1
				Triper += 1
			end
		elseif tipvenerarand < 5:
			!!candidiasis/thrush
			if rand(1, 100) > 85:
				if KandidozOnce = 0:
					KandidozOnce = 1
					Kandidoz += 1
				end
			end
		end
	end

end

if $ARGS[0] = 'venerasiakOral':

	tipvenerarand = rand(0, 10)
	if protect = 1:
		venrand = rand(0, 1000)
		if venrand = 1000: gs 'mod_iwhore_dincollect' , 'veneradinitogOral'
	else
		venrand = rand(0, 100)
		if venrand >= 80: gs 'mod_iwhore_dincollect' , 'veneradinitogOral'
	end
end

if $ARGS[0] = 'veneradinitogOral':

	if cheatHealth = 0:
		if tipvenerarand >= 5 and tipvenerarand < 7:
			if rand(1, 100) > 95: Venera += 1
			if TriperOnce = 0:
				TriperOnce = 1
				TriperOral += 1
				if rand (0,100) < 15: TriperOralSigns = 1
			end
		elseif tipvenerarand = 7:
			if rand(0,1) = 1:
				!!syphilis
				if rand(1, 100) > 95: Venera += 1
				if SifacOnce = 0:
					SifacOnce = 1
					Sifilis += 1
				end
			end
		elseif tipvenerarand < 5:
			!!candidiasis/thrush
			if rand(1, 100) > 85:
				if KandidozOnce = 0:
					KandidozOnce = 1
					Kandidoz += 1
				end
			end
		elseif tipvenerarand = 8:
			!!herpes
			if rand(1, 100) > 90:
				if GerpesOnce = 0:
					GerpesOnce = 1
					Venera += 1
					Gerpes += 1
					OrHerpes = 1
				end
			end
		end
	end

end

!! From dinsex: gs 'dinsex', 'pc_puts_condom'
if $ARGS[0] = 'prezik':
	protect = iif(prezik > 0,1,0)
	vidageday -= 1 &! the people guess that you are a bit more older than you are in fact do you have condoms?
	if prezik > 0:
		if rand(1,prezik) <= badprezik:
			badprezik -= 1
			noprotect = 1
			sexcontra = 7
			*p 'You take your '+iif(preziktype = 2,'sabotaged ','')+ 'condom and put it on <<$xyr>> <<dick>> centimeter dick.'
		else
			sexcontra = 3
			*p 'You take your condom and put it on <<$xyr>> <<dick>> centimeter dick.'
			noprotect = 0
		end
		prezik -= 1
		sexcontra = iif(preziktype = 2,7,sexcontra)
	else
		sexcontra = 0
		!! the hormonal contraception is still taken in account
	end
end &! --- pc_puts_condom ---

if $ARGS[0] = 'prezik1':
	if prezik > 0:
		if badprezik > 0:
			if rand(1,prezik) <= badprezik: badprezik -= 1 & noprotect = 1 & protect = 1
		else
			noprotect = 0 & protect = 1
		end
		prezik -= 1
	elseif prezik < 0:
		prezik = 0
		noprotect = 1 & protect = 0
	end
end




!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!!!!!!!!!!!!!!!!!!SEXMANAGEMENT!!!!!!!!!!!!!!!!!!!!!!!!!
!! gs 'mod_iwhore_dincollect','wantanal'
!! gs 'mod_iwhore_dincollect','wantanal', 'lubri'
!! passed as parameters: call like gs 'mod_iwhore_dincollect','wantanal',5,'prostitution', 'unknown'
if $ARGS[0] = 'wantanal':
	$bwa_boy = iif($ARGS[1] = '',$boydesc,$ARGS[1])
	if analplugin = 1:
		'<<$bwa_boy>> pulls the plug out of your narrow and tight ass, after playing a little with it.'
		analplugout = 1
		gs 'arousal','anal_vibe',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
	else
		''
		gs 'arousal','foreplay',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
	end
	if $ARGS[2] = 'lubri':
		lubri +=1
		pcs_horny += 10
		'<<$bwa_boy>> takes a tube of lubricant, squeezes a little on <<$xyr>> palm and rubs your anus.'
		gs 'arousal', 'anal_finger', 1,'lube'
	else
		if lubri = 0:
			pcs_horny += 5
			'You have no lube, <<$bwa_boy>> spits on his fingers and using saliva he massages your anus.'
			gs 'arousal', 'anal_finger', 1
		elseif lubri > 0:
			pcs_horny += 10
			if rand(0,2) = 0:
				'You take a tube of lubricant and hand it to <<$bwa_boy>>, he squeezes a little on his palm and rubs your anus.'
			elseif rand(0,1) = 0:
				'You squeeze anal lube on your hand and begin to smear it in your ass. Then you give the guy a tube and <<$xe>> starts lucricating <<$xyr>> cock.'
			else
				'You squeeze anal lube on your hand and begin to smear it in your ass. Then you give it to <<$xem>> and <<$xe>> smears it on <<$xyr>> dick'
			end
			gs 'arousal', 'anal_finger', 1,'lube'
			'Your ass in now ready to be penetrated; hopefully this will be more pleasant.'
		end
			'<<$boydesc>> tucks a finger into your anus, then a second one .'
		if pcs_ass < 10:'When <<$xec>> inserts three fingers into your ass you groan in pain.'
		if pcs_ass >= 10:'<<$xec>> starts to stretch your anus with three fingers.'
		'When <<$boydesc>> feel it''s time to start he pulls <<$xyr>> fingers out of your ass. You spread your butt and help his member with your hand to accomodate in the right place easily ..."The bitch is ready uh?" Grunting, he shoves <<$xem>> pushing <<$xyr>> hard cock up your ass, balls deep in a single thrust. '
		if (agrdif + altdif) >= 20:'You hiss in pain, biting your lip nearly hard enough to draw blood when <<$xyr>> <<dick>> centimeter dick reach the end of your ass. <<$boydesc>> stops for a moment, but he''s not giving your ass the time to adjust to <<$xyr>> cock in it, it''s more about your tightness....'
		if (agrdif + altdif) <  20:'You moan when <<$xyr>> <<dick>> centimeter dick enters your ass and wait for him to see if he wants to have the peace...'
	end
	killvar '$bwa_boy'
end &! --- boy_wants_anal ---

!! replacement of "dynamic $analsex"
!! replacement of "dynamic $analsex2"
!! replacement of "dynamic $analsexrude"
!! this procedure calls 'cum_call','anus',$boy,1
!! use gs 'dinSex','boy_wants_anal'[,'lubri'] together with gs 'dinsex','analsex'
!! use gs 'mod_iwhore_dincollect','boy_wants_anal'[,'lubri'] together with gs 'mod_iwhore_dincollect','analsex',15,'prostitution', 'unknown'

!! passed as parameters: call like gs 'mod_iwhore_dincollect','analsex',15,'prostitution', 'unknown'
if $ARGS[0] = 'analsex':
	frost = 0 &! the sex heats

	gs 'arousal','anal',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]

	if (agrdif + altdif) >= 30:
		if pcs_makeup > 1:pcs_makeup = 0
		'You cry and bite your lip when <<dick>> centimeter cock begins to fuck your ass on (! full force !). Your ass feels like it is on fire and all you want is for this torture to be over quickly.'
	elseif (agrdif + altdif) >= 20 and (agrdif + altdif) < 30:
		pcs_horny += 10
		'You start to moan rhythmically in time with <<$xyr>> cock''s movements inside you. You feel like your anus is stretched with each trust but it feel pleasant; when <<$boydesc>> takes a puse to rest you continue on your own... .'
	end
	'...'
end &! --- analsex ---



!! gs 'mod_iwhore_dincollect', 'after_anal','boy',$boydesc
if $ARGS[0] = 'afteranal':
	if analplugout = 1:
		if $ARGS[1] = 'boy':
			analplugin = 1
			pcs_horny += 5
			gs 'arousal','anal_vibe',1,'prostitution', 'unknown'
			'<<$ARGS[2]>> takes your butt plug and he puts it back into your anus. He grins: "Continue your training"'
		end
		if $ARGS[1] = 'girl':
			analplugin = 1
			pcs_horny += 5
			gs 'arousal','anal_vibe',1,'prostitution', 'unknown'
			'<<$ARGS[2]>> takes your butt plug and she puts it back into your anus. She grins: "Continue your training"'
		end
		if $ARGS[1] = 'pc':
			analplugin = 1
			pcs_horny += 10
			gs 'arousal','anal_vibe',1,'prostitution', 'unknown'
			'You take your butt plug and put it back into your anus. You grin: "I have to keep my butt trained"'
		end
		if $ARGS[1] = 'no_plug':
			analplugin = 0
			'You take your butt plug and put it into your purse. Your anus has to rest for a while now.'
		end
		killvar 'analplugout'
	end
end &! --- after_anal ---

!! replacement of  "dynamic $sexstart2"
!! replacement of  "dynamic $sexstart3"
!! replacement of  "dynamic $sexstart4"
!! this procedure calls 'arousal','vaginal', so the rest of the parameters for arousal should be
!! passed as parameters: call like gs 'dinsex','vaginal_sex',10,'rough','sub'
!! passed as parameters: call like gs 'mod_iwhore_dincollect','vaginalsex',15,'prostitution', 'unknown'


!! passed as parameters: call like gs 'mod_iwhore_dincollect','wantvaginal',5,'prostitution', 'unknown'

if $ARGS[0] = 'wantvaginal':
	$bwa_boy = iif($ARGS[1] = '',$boydesc,$ARGS[1])
	'<<$boydesc>>'
	if vibratorIN = 1:
		',play a little with your vibrator before take it out from your soaking pussy.'
		vibratorOUT = 1
		pcs_horny += 15
		gs 'arousal','vaginal_vibe',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
	else
		'start to wet your pussy knowing that afterall a wet kitten is the best option for both.'
		pcs_horny += 5
		gs 'arousal','foreplay',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
	end
	killvar '$bwa_boy'

end &! --- boy_wants_anal ---

!! passed as parameters: call like gs 'mod_iwhore_dincollect','vaginalsex',15,'prostitution', 'unknown'

if $ARGS[0] = 'vaginalsex':
	frost = 0 &! the sex heats
	if pcs_vag > 0:
		gs 'arousal','vaginal',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
		$temp_mens = iif(cycle <= 0,' and menstruation blood leaks from your vagina','')
		if (vgrdif + vltdif) >= 30: 'You groan in pain when <<$boydesc>> penetrates you, tears flowed from your eyes and it feels like someone drove a red hot poker in your vagina. You cry and moan while <<$xyr>> strong <<dick>> centimeter dick fucks your pussy<<$temp_mens>>.'
		if (vgrdif + vltdif) >= 20 and (vgrdif + vltdif) < 30: 'You bite your lip in pain when <<$boydesc>> enters, it is very painful. You are frowning and moaning in pain while <<$xyr>> strong <<dick>> centimeter dick fucks your pussy<<$temp_mens>>.'
		if cycle <= 0: $temp_mens = ' even though' + $temp_mens
		if (vgrdif + vltdif) >= 12 and (vgrdif + vltdif) < 20: 'You winced at the sudden pain when <<$boydesc>> enters, it hurt but gradually it became quite tolerable. You are trying to get aroused while <<$xyr>> <<dick>> centimeter dick fucks your pussy<<$temp_mens>>, but you did not succeed.'
		if (vgrdif + vltdif) >= 7 and (vgrdif + vltdif) < 12: 'You are startled by the feeling that your pussy is stretching when <<$boydesc>> enters you. It feels good when <<$xyr>> <<dick>> centimeter dick fucks your pussy<<$temp_mens>>.'
		if (vgrdif + vltdif) >=  2 and (vgrdif + vltdif) < 7: 'You are startled by the feeling that your pussy is stretching as <<$boydesc>> enters you. It feels good when <<$xyr>> strong <<dick>> centimeter dick fucks your pussy. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling decreased a little and remains like that until the end<<$temp_mens>>.'
		if (vgrdif + vltdif) >= -3 and (vgrdif + vltdif) < 2: 'You flinched from a pleasant feeling when your pussy is stretched by <<$xyr>> dick. It feels good when <<$xyr>> <<dick>> centimeter dick fucks your pussy<<$temp_mens>>. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling became unbearable and your entire body is covered with hot waves of orgasm You scream with pleasure.'
		if (vgrdif + vltdif) <  -3: 'You feel  <<$xyr>> penis entering your pussy. This gives you a nice tingling feeling between your legs , but <<$xyr>> <<dick>> cm dick  is significantly less than what your pussy needs .This is not enough for you. Gradually a pleasant warmth and some pulsations started building up in your stomach. Then the feeling decreased a little and remains like that until the end<<$temp_mens>>.'
	else
		$temp_mens = iif(cycle <= 0,' and menstruation blood leaks from your vagina','')
		pcs_horny = 0
		pcs_mood -= 15
		pcs_willpwr -= 15
		'You were biting your <<$liptalk>> in pain and tears started to flow from your eyes when <<$boydesc>> penetrates you, breaking your hymen. You moan while crying and <<$xyr>> <<dick>> centimeter dick fucks your bloody pussy.'
		gs 'arousal','vaginal',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
	end
	killvar '$temp_mens'
end


!! gs 'mod_iwhore_dincollect', 'aftervaginal','boy',$boydesc
!! gs 'mod_iwhore_dincollect', 'aftervaginal','girl'
!! gs 'mod_iwhore_dincollect', 'aftervaginal','pc'
!! gs 'mod_iwhore_dincollect', 'aftervaginal','no_plug'
if $ARGS[0] = 'aftervaginal':
	if vibratorOUT = 1:
		if $ARGS[1] = 'boy':
			vibratorIN = 1
			pcs_horny += 5
			gs 'arousal','vaginal_vibe',1,'prostitution', 'unknown'
			'<<$ARGS[2]>> takes your vibrator and he puts it back into your pussy. "Hehehe...let''s put it back."'
		end
		if $ARGS[1] = 'girl':
			vibratorIN = 1
			pcs_horny += 5
			gs 'arousal','vaginal_vibe',1,'prostitution', 'unknown'
			'<<$ARGS[2]>> takes your vibrator and he puts it back into your pussy. "Hehehe...let''s put it back."'
		end
		if $ARGS[1] = 'pc':
			vibratorIN = 1
			pcs_horny += 10
			gs 'arousal','vaginal_vibe',1,'prostitution', 'unknown'
			'You take your vibrator and put it back into your pussy. You grin: "I have to discharge the battery."'
		end
		if $ARGS[1] = 'no_plug':
			vibratorIN = 0
			'Your vibrator has to recharge.'
		end
		killvar 'vibratorOUT'
	end
end &! --- after_anal ---



!! passed as parameters: call like gs 'mod_iwhore_dincollect','oralsex',5,'prostitution', 'unknown'
if $ARGS[0] = 'oralsex':
	frost = 0 &! the sex heats
	tperbjran = rand(0, 3)
	if tperbjran = 0:$tperbj = 'You wraps your <<$liptalk>> around <<$xyr>> <<dick>>cm member.'
	if tperbjran = 1:$tperbj = 'Your <<$liptalk>> engulf the purple head of <<$xyr>> <<dick>>cm member.'
	if tperbjran = 2:$tperbj = 'You plant your <<$liptalk>> on the bulbous tip of <<$xyr>> <<dick>>cm cock and greedily slide your mouth down along <<$xyr>> throbbing maleness.'
	if tperbjran = 3:$tperbj = 'The <<dick>> centimeters dick rests between your <<$liptalk>> then you slightly part them and allow the delicious invador to slide into your mouth.'

	tperbjran = rand(0, 2)
	if tperbjran = 0:$tperbj2 = 'You give <<$xyr>> face a sultry look while <<$xyr>> cock rests in your mouth then you greedily lean forwards, taking <<$xyr>> tasty penis deeper in your mouth and lustfully start to bob your head back and forth along <<$xyr>> <<dick>>cm tool.'
	if tperbjran = 1:$tperbj2 = 'You playfully roll your tongue around the engorged boner and start giving one hell of a blowjob, swallowing the whole length down your throat and making lewd slurping noises everytime you hilt.'
	if tperbjran = 2:$tperbj2 = 'That hard cock between your <<$liptalk>> is definitely yummy! You just can''t hold back and hungrily take the whole length in your mouth until its tip is resting at the entrance of your throat, you grin and relax your muscles to let it in, deepthroating this <<dick>>cm cock like there''s no tomorrow.'
	'<<$tperbj>> <<$tperbj2>>'
	gs 'arousal','foreplay',ARGS[1],$ARGS[2],$ARGS[3],$ARGS[4],$ARGS[5],$ARGS[6],$ARGS[7],$ARGS[8]
	killvar 'tperbjran'
	killvar '$tperbj2'
	killvar '$tperbj'
end



!! use gs 'dinsex','enema'

!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!PEE!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!
!gs 'din_van', 'pblc_pee'-----gs 'din_van', 'pblc_pee_end'

if $ARGS[0] = 'pblc_pee':
	act '...':
		*clr
		cla
		'<center><img <<$set_imgh>> src="images/pc/pee/pee-public/' + rand(1,11) + '.jpg"></center>'
		rand_pee = rand(0,7)
		if rand_pee = 0:
			'Settling into the toilet seat you pull out your phone and begin checking for messages and doing other things to occupy the time until the stream slows to a trickle and finally stops.'
		elseif rand_pee = 1:
			'While relaxing your bladder and beginning to pee you decide to reflect on your recent interactions with the people in your life. "What do they think of me? Do they talk behind my back?" You continue contemplating until your body signals that the flow has ended.'
		elseif rand_pee = 2:
			'You nearly piss yourself as you rush to seat yourself onto the toilet. Unable to hold back the flood anymore, your body releases a seemingly endless stream as you moan quietly in relief, thankful that you made it in time.'
		elseif rand_pee = 3:
			'Immediately up entering the restroom, your nostrils are assaulted by the most heinous stench. Knowing that you have no other option, you try to suppress your gags as you sit in a stall and do your business.'
		elseif rand_pee = 4:
			*clr
			'<center><img <<$set_imgh>> src="images/pc/pee/pee-public/Hovercraft' + rand(1,2) + '.jpg"></center>'
			'You enter the stall and groan in disgust at the sight of the gross facilities. Realizing that you have no choice, you decided to "hovercraft" it. Instead of sitting down on the filthy seat, you hover your ass above the bowl before letting go of the pee you''d been holding, not caring if all of the stream gets into the toilet or elsewhere.'
		else
			!!Graffiti trigger text
			rand_pee = rand(0,21)
			'As you sit down to relieve your bladder you get distracted reading some of the graffiti on the wall of the stall; there aren''t many but your focus falls on:'
!			$rand_girl = func('gschool_randperson', 1, '', 1, 1, 1, 1, 1, 0)
			if rand_pee = 0:
				'Albina and her Starlettes are a bunch of dirty whores.'
			elseif rand_pee = 1:
				'Hi babe, why don''t you call me and try some new experience? Sing it: 00-1027-444-XXX....'
			elseif rand_pee = 2:
				'Do not throw condoms in the toilet, help yourself and keep that place clean!'
			elseif rand_pee = 3:
				'If you''re on the rag, check the seat when you get up and WIPE IT OFF!!! No one wants a nasty seat!'
			elseif rand_pee = 4:
				'If you smell fish, it''s probably your dirty twat! Hahaha!'
			elseif rand_pee = 5:
				'Shave your punani, bitches! No one likes digging through a forest, LOL.'
			elseif rand_pee = 6:
				'Shaved pussies stink and are prone to infection! Don''t believe the lies!'
			elseif rand_pee = 7:
				'Fight the Patriarchy!'
			elseif rand_pee = 8:
				'Tampons vs. Pads, cast your vote! Below this text are hash marks indicating various girl''s preference. One person also wrote “Freebleeder for life!” Ewww.'
			elseif rand_pee = 9:
				'Use the water when you finished!'
			elseif rand_pee = 10:
				'You''re beautiful! Believe that!'
			elseif rand_pee = 11:
				'Putin is a chauvinist pig!'
			elseif rand_pee = 12:
				'Suck dick! It''s good for you!'
			elseif rand_pee = 13:
				'"I''ll pull out, I swear! is the most dangerous lie you can believe." This text is followed by a crude drawing of a pregnant woman.'
			elseif rand_pee = 14:
				'Cut back on the perfume, ladies. It smells like a unicorn farted in here.'
			elseif rand_pee = 15:
				'<<$pcs_firstname>> <<$pcs_lastname>> is a slut and everyone knows it! "WHAT? Stupid cunt if i find you!..."'
			elseif rand_pee = 16:
				'Men are like pantyhose; They either run, cling, or don''t fit right in the crotch!'
			elseif rand_pee = 17:
				'Gopnik guys are SO HOT!!!'
			elseif rand_pee = 18:
				'I just want to know who was the one who put some panties on the church offer chest... . You are my myth!!!'
			elseif rand_pee = 19:
				'Butt sex is the best sex!'
			elseif rand_pee = 20:
				'I just wrote on the wall. Take THAT, society!'
			else
				'Never quit loving your clit.'
			end
		end

!!If PC is on her period and using tampon, then the following options should appear as well as the standard "Finish and wipe" act:
!!This may require an addition check to see if the PC has a purse since I think they need that to carry tampons with them.
		if isprok = 1 and tampon > 0:
			act 'Change tampon':
				*clr
				cla
				'<center><img <<$set_imgh>> src="images/pc/pee/period/tampon/' + rand(1,12) + '.jpg"></center>'
				'Reaching down and taking the string between your fingers, you slowly pull the used tampon from your vagina. You wrap it in toilet paper to be thrown in the trash bin. Opening your purse, you retrieve a fresh one before unpackaging it and carefully inserting it into you.'

				gs 'din_van', 'pblc_pee_end'
			end
		end

!!If PC is on her period and using pad, then the following options should appear as well as the standard "Finish and wipe" act:
!!This may require an addition check to see if the PC has a purse since I think they need that to carry pads with them.
		if isprokp = 1 and sanpad > 0:
			act 'Change pad':
				*clr
				cla
				'<center><img <<$set_imgh>> src="images/pc/pee/period/pad/' + rand(1,6) + '.jpg"></center>'
				'Checking your pad, you decide it''s time for a new one. You carefully peel it off of your panties before folding it into thirds and setting it aside to be thrown away. Digging in your bag, you pull out a fresh pad, unpackage it, peel off the adhesive strip, and place it into your underwear. Finally, you wrap the wings around the sides of the gusset to make sure it is nice and secure.'

				gs 'din_van', 'pblc_pee_end'
			end
		end

		gs 'din_van', 'pblc_pee_end'
	end
end

if $ARGS[0] = 'gh_first':

	act '...Shoo!...Pervert!...':
		*clr
		cla
		'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/first0.jpg"></center>'
		gs 'stat'
		'"...You better watch out!!!...." The man disappear frightened by your yelling leaving you on your business...'
		act 'Pants up.':
			*clr
			cla
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/end'+rand(0,1)+'.mp4"></video></center>'
			gs 'stat'
			'"...That''s it...Molesting a lady when she''s on the toilet... UMMPPHH!!!...."'
			act 'Leave': gt $locM, $locM_arg
		end
	end
	act 'Grab his penis and make a manly voice...':
		*clr
		cla
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/first1.jpg"></center>'
		if rand (0,2) >= 1:
			'"...Nice..."...'
			act '...':
				*clr
				cla
				gs 'stat'
				'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/first0.jpg"></center>'
				'"AAAAAAAHHHHHHHH!!!!"....you hear the man loud and escaping from your trick.... . You can hear the dor slamming from the other side; you are free to return to your business...."...hehehe...."'
				act 'Pants up.':
					*clr
					cla
					gs 'stat'
					'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/end'+rand(0,1)+'.mp4"></video></center>'
					'"...That''s it...Molesting a lady when she''s on the toilet... UMMPPHH!!!...."'
					act 'Leave': gt $locM, $locM_arg
				end
			end
		else
			'"...Nice..." ...'
			act '...':
				*clr
				cla
				gs 'stat'
				'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/first1.jpg"></center>'
				'Despite your attempt the cock doesn''t disappear, and the man start to feel comfortable..."...Oooohhh keep going...good boy"...'
				act 'Reveal yourself...: "...Is everything fine?..."':
					*clr
					cla
					gs 'stat'
					'<center><img <<$set_imgh>> src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/first0.jpg"></center>'
					'Earing your real voice the man retract his penis..."Uhh?...What the...who are you? What are you doing in tha man''s bath?..."..."...Hey you are the one in the wrong bath!..."..."What? Do you mean...? ...I-i''m sorry..."..."...Mistakes happens..."...'
					wait 8000
					nl
					'"...M-miss? How many time do you need in the bath?...""...What do you mean?...""...If you are in the right bath i cannot enter..."..."...None of your business..."..."...S-sorry..."...."...Leave me in peace and i''ll be quick..."'
					act 'Pants up.':
						*clr
						cla
						gs 'stat'
						'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/end'+rand(0,1)+'.mp4"></video></center>'
						'"...what a dumb..."'
						act 'Leave': gt $locM, $locM_arg
					end
				end
				act '...Stay silent...':
					*clr
					cla
					gs 'stat'
					'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/ynyn.mp4"></video></center>'
					'...'
					act '...taste it...':
						*clr
						cla
						guy += 1
						gloryhole += 1
						pcs_throat += 1
						money += 100
						if new_gh_whore < 1: new_gh_whore = 1
						'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/taste.mp4"></video></center>'
						'"...Good boy...jerk yourself, i want you to feel pleasure too..."'
						act '...''...''...':
							*clr
							cla
							gs 'arousal', 'bj', 5, 'unknown'
							gs 'stat'
							'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/bj/vbjpassion3.mp4"></video></center>'
							'"...Ooohhh such a passion, only man know how to please a man...if only there''s no wall between us....uhhhhh....keep stroking your self, i want you to spurt your jizz on the dirty floor....mmmmm...."...''...i see those last part quite difficult...''..."...Uhhh I can''t hold it anymore...."'
							act 'swallow':
								*clr
								cla
								gs 'arousal', 'end'
								swallow += 1
								spafinloc = 12
								gs 'cum_manage'
								gs 'stat'
								'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/bj/vswa27.mp4"></video></center>'
								'....'
								act 'Pants up.':
									*clr
									cla
									'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/end'+rand(0,1)+'.mp4"></video></center>'
									'You were to dress up when you ear the man speaking from the other side "...We can meet sometime, ''you know?...Are you those famous "Artem?"..." ..."..."... "... You are the silent tipe, don''t you? Ok my little tease, think about it... ." Finally the man leaves...  "Pheww...I guess he doesn''t suspect anything..."'
									act 'Leave': gt $locM, $locM_arg
								end
							end
							act 'step back':
								*clr
								cla
								gs 'arousal', 'end'
								spafinloc = 11
								facial += 1
								gs 'cum_manage'
								gs 'stat'
								'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/bj/vfacial3.mp4"></video></center>'
								'...'
								act 'Pants up.':
									*clr
									cla
									'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/end'+rand(0,1)+'.mp4"></video></center>'
									'You were to dress up when you ear the man speaking from the other side "...We can meet sometime, ''you know?...Are you those famous "Artem?"..." ..."..."... "... You are the silent tipe, don''t you? Ok my little tease, think about it... ." Finally the man leaves...  "Pheww...I guess he doesn''t suspect anything..."'
									act 'Leave': gt $locM, $locM_arg
								end
							end
						end
					end
					act 'leave':
						*clr
						cla
						'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/end'+rand(0,1)+'.mp4"></video></center>'
						'"... UMMPPHH!!!...."'
						act 'Leave': gt $locM, $locM_arg
					end
				end
			end
		end
	end
	act '...''...what to do?...''...':
		*clr
		cla
		gs 'stat'
		'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/ynyn.mp4"></video></center>'
		'...You wonder...'
		act '...taste it...':
			*clr
			cla
			guy += 1
			gloryhole += 1
			pcs_throat += 1
			money += 100
			if new_gh_whore < 1: new_gh_whore = 1
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/taste.mp4"></video></center>'
			'"...Good girl, keep going...work for the bill..."'
			act '...':
				*clr
				cla
				gs 'arousal', 'bj', 5, 'unknown'
				gs 'stat'
				'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/bj/vbjpassion3.mp4"></video></center>'
				'"...That''s it, you are a pro, don''t you?..."'
				act 'swallow':
					*clr
					cla
					gs 'arousal', 'end'
					swallow += 1
					spafinloc = 12
					gs 'cum_manage'
					gs 'stat'
					'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/bj/vswa27.mp4"></video></center>'
					'"...Owww...i relly need it... . Drink it all..."'
					act 'Pants up.':
						*clr
						cla
						'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/end'+rand(0,1)+'.mp4"></video></center>'
						'"...I guess he''s satisfied, and money are always welcome...does he really think i am a pro?..."'
						act 'Leave': gt $locM, $locM_arg
					end
				end
				act 'step back':
					*clr
					cla
					gs 'arousal', 'end'
					spafinloc = 11
					facial += 1
					gs 'cum_manage'
					gs 'stat'
					'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/gh/single/cum/bj/vfacial3.mp4"></video></center>'
					'"...Good girl..."'
					act 'Pants up.':
						*clr
						cla
						'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/end'+rand(0,1)+'.mp4"></video></center>'
						'..."...I''d really like to see this art paint, but i think this is outside the rules...isn''t it? Well...to the next... . " With his balls empty the man finally leaves... "...I guess he''s satisfied, and money are always welcome..."'
						act 'Leave': gt $locM, $locM_arg
					end
				end
			end
		end
		act 'leave':
			*clr
			cla
			'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/end'+rand(0,1)+'.mp4"></video></center>'
			'"...No way!!!...."'
			act 'Leave': gt $locM, $locM_arg
		end
	end
!	if new_gh_whore >= 2:
!		act 'Blow Him': gt 'mod_iwhore_pbath', 'blowjob'
!		act 'Jerk Him': gt 'mod_iwhore_pbath', 'jerkoff'
!	end
end

!!!!!!!!!!!!!!!!!
!!!MASTURBATION!!
!!!!!!!!!!!!!!!!!

if $ARGS[0] = 'contmast':

	*clr & cla
	pcs_mood += 5
	gs 'stat'
	'<center><video autoplay loop src="mod/iwhore/images/locations/pavlovsk/publicrest/bath/mast/mast'+rand(0,5)+'.mp4"></video></center>'
	if pcs_horny <= 60:
		'You are starting to feel warm and you insert your finger in your pussy.'
		gs 'arousal', 'masturbate', 5
		gs 'stat'
	else
		'You are starting to feel warm and you insert your finger in your pussy. You keep fingering your pussy and before long you are breathing heavily and start to moan.'
		gs 'arousal', 'masturbate', 5
		gs 'stat'
	end
	if pcs_horny >= 90:
		act 'Climax':
			cls
			*clr & cla
			pcs_mood += 15
			pcs_willpwr += 15
			if pcs_inhib < 40:inhib_exp += rand(1,3)
			gs 'stat'
			'<center><video autoplay loop src="images/locations/pavlovsk/community/bathroom/womens/sex/orgasm.mp4"></video></center>'
			$orgasm_or = 'custom'
			$orgasm_txt = 'As your pussy gets wet you pulls you panties down and slip your fingers inside of yourself. You start finger fucking yourself, with in a few minutes a powerful orgasm rocks your body. Leaving you gasping and trembling as you recover.'
			gs 'arousal', 'masturbate', 2
			gs 'arousal', 'end'
			gs 'stat'
			act 'Leave Stall': gt $locM, $locM_arg
		end
	else
		act 'Continue': gt 'mod_iwhore_dincollect', 'contmast'
	end
	act 'Stop':
		*clr & cla
		gs 'arousal', 'end'
		gs 'stat'
		'You decide that you shouldn''t continue and stop yourself from finishing.'
		act 'Leave Stall':gt $locM, $locM_arg
	end
end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!HOOKING!!!!!!!!!!!!!!!!

if $ARGS[0] = 'hooking':
	if PCloStyle = 4:
		hooked_walk = rand(0,50)
	else
		hooked_walk = rand(0,70)
	end
end
!!!!!!!!!!!!!PROTECTION!!!!!!!!!!!!!
if $ARGS[0] = 'whore_check_pro':
	if Krestovoz_pimp_day >= daystart:
		Krestovoz_pimp_protection = 1
	else
		killvar 'Krestovoz_pimp_standard'
		Krestovoz_pimp_protection = 0
	end
end
!!!!!!!!!!!!!PROTECTION!!!!!!!!!!!!!
if $ARGS[0] = 'whore_check_anal':
	if Krestovoz_pimp_protection = 1 and Krestovoz_pimp_standard = 1:
		money += 260
	else
		money += 350
	end
end
if $ARGS[0] = 'whore_check_vag':
	if Krestovoz_pimp_protection = 1 and Krestovoz_pimp_standard = 1:
		money += 225
	else
		money += 300
	end
end
if $ARGS[0] = 'whore_check_oral':
	if Krestovoz_pimp_protection = 1 and Krestovoz_pimp_standard = 1:
		money += 190
	else
		money += 250
	end
end
if $ARGS[0] = 'whore_check_fastender':
	if Krestovoz_pimp_protection = 1 and Krestovoz_pimp_standard = 1:
		money += 160
	else
		money += 220
	end
end

if $ARGS[0] = 'whore_check_ghole':
	if Krestovoz_pimp_protection = 1 and Krestovoz_pimp_standard = 1:
		money += 80
	else
		money += 100
	end
end
!			gs 'mod_iwhore_dincollect', 'whore_check_oral'
!			gs 'mod_iwhore_dincollect', 'whore_check_vag'
!			gs 'mod_iwhore_dincollect', 'whore_check_anal'
!			gs 'mod_iwhore_dincollect', 'whore_check_ghole'

if $ARGS[0] = 'renewal':

	if GuardianLoc[hour] = 0:
		*clr & cla
		'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/Krestovoz/renew0.jpg"></center>'
		if inna_varvara_pimp = 15:
			'Inna: "This is your first week: totally free from charge... ."'
		else
			if money >= 3000:
				'Inna: "Ok honey what do you prefer a standard renewal or a normal one?"'
			else
				'Inna: "Honey you can only make normal choice without money"'
			end
		end
	elseif GuardianLoc[hour] = 1:
		*clr & cla
		'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/mieszko/renew0.jpg"></center>'
		if inna_varvara_pimp = 15:
			'Mechislav: "I''m aware that''s your first week; don''t worry i know this one is free for you."'
		else
			if money >= 3000:
				'Mechislav: "What do you prefer <<$pcs_nickname>>, a standard renewal or a normal one?"'
			else
				'Mechislav: "Normal choice without money..."'
			end
		end

	elseif GuardianLoc[hour] = 2:
		*clr & cla
		'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/gavriil/gav1.jpg"></center>'
		if inna_varvara_pimp = 15:
			'Gavriil: "The first week is free <<$pcs_nickname>>; our services are at your disposal."'
		else
			if money >= 3000:
				'Gavriil: "Sure <<$pcs_nickname>>, a standard renewal or a normal one?"'
			else
				'Gavriil: "If you forgot your money, you can came back later. Just don''t work without protection... ."'
			end
		end
	elseif GuardianLoc[hour] = 3:
		*clr & cla
		'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/yana/renew0.jpg"></center>'
		if inna_varvara_pimp = 15:
			'Yana: "...<<$pcs_nickname>>..."<br>"...Yana..."<br>Yana: "...Are you excited for your first week?"<br>"...None of your business..."<br>Yana: "...Ok ok...no need to be upset...if you are ready to start your free tryout...just let me know."'
		else
			'Yana: "Hi <<$pcs_nickname>>...time to renew isn''t it? You know the rules honey..."'
		end
	elseif GuardianLoc[hour] = 4:
		*clr & cla
		'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/doc/renew0.jpg"></center>'

		if inna_varvara_pimp = 15:
			'Doc: "Uhmmm...Did Inna tricked you? Because you are late to try the first week...ok ok...none of my business. I''ll check Yana''s purse later... . The first week is some kind of...initiation you know? Free of charge... all services for free...a good welcoming isn''t it?"'
		else
			if money >= 3000:
				'Doc: "Take your time to chose <<$pcs_nickname>>... . The main thing is that you are protected."'
			else
				'Doc: "You can only make normal choice without money...do not worry, he main thing is that you are protected."'
			end
		end

	else
		''
	end

	if inna_varvara_pimp >= 15:
		if inna_varvara_pimp = 15:
			new_whore = 51
			act 'Free week':
				Krestovoz_pimp_day = daystart + 7
				gs 'mod_iwhore_dincollect','renewed'
			end
		else
			if money >= 3000:
				act 'Prepaid week(Pay 3000)':
					money -= 3000
					Krestovoz_pimp_day = daystart + 7
					gs 'mod_iwhore_dincollect','renewed'
				end
			end
			if money >= 12000:
				act 'Prepaid month(Pay 12000)':
					money -= 12000
					Krestovoz_pimp_day = daystart + 30
					gs 'mod_iwhore_dincollect','renewed'
				end
			end
			act 'Normal week (standard)':
				Krestovoz_pimp_standard = 1
				Krestovoz_pimp_day = daystart + 7
				gs 'mod_iwhore_dincollect','renewed'
			end
			act 'Normal month (standard)':
				Krestovoz_pimp_standard = 1
				Krestovoz_pimp_day = daystart + 30
				gs 'mod_iwhore_dincollect','renewed'
			end
		end

	else
		''
	end

	act '"..."':gt 'mod_iwhore_innapt','guardian_room'

end
if $ARGS[0] = 'renewed':

	if GuardianLoc[hour] = 0:
		*clr & cla
		'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/Krestovoz/renew0.jpg"></center>'
		'Inna: "Signed honey; now go and make some money for your beloved Inna... . And remember to spread open wide your butt when doing anal..."'
	elseif GuardianLoc[hour] = 1:
		*clr & cla
		'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/mieszko/renew1.jpg"></center>'
		'Mechislav: "All signed <<$pcs_nickname>>...can i help you with something else?"'
	elseif GuardianLoc[hour] = 2:
		*clr & cla
		'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/gavriil/gav1.jpg"></center>'
		'"Gavriil: "Ok <<$pcs_nickname>>...everything is in the right place; for any problem you know where i''m."'
	elseif GuardianLoc[hour] = 3:
		*clr & cla
		'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/doc/renew0.jpg"></center>'
		'Doc: "Perfect <<$pcs_nickname>>...this could seems a little of complicated but we have to had things well recorded."'
	elseif GuardianLoc[hour] = 4:
		*clr & cla
		'<center><img <<$set_imgh>> src="mod/iwhore/images/characters/pavlovsk/resident/yana/renew1.jpg"></center>'
		if Krestovoz_pimp_day = daystart + 30:
			'Yana: "Good baby!...Work hard!"'
		else
			'Yana: "Bitch for a week ...uh? Signed honey..."'
		end
	else
		''
	end

	act '"..."':gt 'mod_iwhore_innapt','guardian_room'

end


if $ARGS[0] = 'whore_check_pay':

! 160---->120
! 180---->135
! 200---->150
! 240---->180
! 250---->187,5
! 260---->195
! 300---->225
! 350---->262,5

! 250---->190
! 300---->225
! 350---->260
end


!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!HOOKING RAND!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!	if PCloStyle = 4:
!	d'approached'	hooked_walk = rand(0,50)--->[d 0,5]	(51)	ratio = 6/51 ---> 0,117
!	d'work'			hooked_walk = 	  (5,50)--->[d 0,9]	(45)	ratio =	10/45---> 0,222
!	n'approached'	hooked_walk = rand(0,50)--->[n 0,7] (51)  	ratio = 8/51 ---> 0,156
!	n'work'			hooked_walk = 	  (7,50)--->[n 0,12](43) 	ratio = 13/43 ---> 0,302
!	else
!	d'approached'	hooked_walk = rand(0,70)--->[d 0,5]	(71)	ratio = 6/71 ---> 0,084
!	d'work'			hooked_walk =	 (5,70)--->[d 0,9]	(65)	ratio = 10/65---> 0,153
!	n'approached'	hooked_walk = rand(0,70)--->[n 0,7]	(71) 	ratio = 8/71 ---> 0,112
!	n'work'			hooked_walk =	 (4,70)--->[n 0,12](58)  	ratio = 13/58---> 0,224
!	end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
--- mod_iwhore_dincollect ---------------------------------