WLife-New/locations/mod_wlife_punishment.qsrc

# mod_wlife_punishment

if $ARGS[0] = 'start':
	menu_off = 1
	gs 'stat'
	if wl_stats['loyalty'] > 60 and wl_demand['party'] = 0 and wl_homeless['status'] > 0:
		gt 'mod_wlife_punishment', 'punish_no'
	else
		gt 'mod_wlife_punishment', 'punish_yes'
	end
end

if $ARGS[0] = 'punish_no':
	*clr & cla
	minut += 5
	wl_stats['loyalty'] -= 5
	wl_irina['punish_in_row'] = 0
	gs 'mod_wlife_functions', 'reputation_check'
	gs 'pain', 8, 'head', 'slap'
	gs 'pain', 4, 'hair', 'stretch'
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/georgiy_bely_angry.jpg"></center>'
	'He suddenly hits you'+iif(wl_bad['status_punishment'] = 1, ' again.', '.')+' You stumble and let out a cry of pain as you fall to the ground. "You should be glad, that you have been such a <<$wl_stats[''loyalty'']>> whore in the past, but fuck up enough times and even you will have to '+iif(wl_bad['whip'] = 0, 'do ''community service'',"', 'go to Irina,"')+' he curls his fingers into a fist. "And now fuck off before I change my mind."'
	'"Thank you," you say meekly and get back up on your feet.'

	wl_bad['status_punishment'] = 0
	wl_bad['work'] = 0
	wl_bad['lump_sum'] = 0
	wl_bad['medical'] = 0
	wl_bad['iosif'] = 0
	wl_bad['earnings'] = 0
	wl_bad['prison'] = 0
	wl_bad['total_debt'] = 0
	wl_bad['homeless_slut'] = 0

	act 'Hurry out of the warehouse': wl_bad['status_punishment'] = 0 & gt 'mod_wlife_warehouse', 'street'
end

if $ARGS[0] = 'punish_yes':
	*clr & cla
	gs 'pain', 8, 'head', 'slap'
	gs 'pain', 4, 'hair', 'stretch'
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/georgiy_bely_angry.jpg"></center>'
	'He suddenly hits you'+iif(wl_bad['status_punishment'] = 1, ' again.', '.')+' You stumble and let out a cry of pain as you fall to the ground. "I have had it with you <<$pcs_nickname>>. '+iif(wl_bad['status_punishment'] = 0 and wl_demand['party'] = 0, 'I have never seen such an <<$wl_stats[''loyalty'']>> whore in all my life and there will be consequences for your actions <<$pcs_nickname>>', 'If you aren''t able to do as you''re told, you''ll have to carry the consequences for your behavior.')
	if wl_bad['whip'] > 0:
		'He grabs your hair with one hand and one of your arms with the other. "Get up," he says coldly and pulls you on your feet. Thankfully he tugs you upwards mostly by pulling on your arm and not your hair. "Follow me, it''s time to go to Irina."'
	elseif (wl_homeless['counter_freely'] > 3 or wl_homeless['counter_forced'] > 7) and wl_irina['status'] > 2:
		wl_bad['whip'] = 1
		'He grabs your hair with one hand and one of your arms with the other. "Get up," he says coldly and pulls you on your feet. Thankfully he tugs you upwards mostly by pulling on your arm and not your hair. "Follow me, it''s time for you to learn what will happen to you if you don''t learn to behave." He pulls you all the way through the old house and the adjacent warehouse while he continues to talk. "It seems doing ''community service'' has no effect on you. That''s why I have to take more drastic measures."'
	else
		'He grabs your hair with one hand and one of your arms with the other. "Get up," he says coldly and pulls you on your feet. Thankfully he tugs you upwards mostly by pulling on your arm and not your hair. "Follow me, '+iif(wl_homeless['status'] = 0, 'it''s time for you to learn what will happen to you if you don''t learn to behave."', 'it''s time for an hour of ''community service''."')
	end

	wl_bad['status_punishment'] = 0
	*nl
	'He lists the reasons for your punishment as you follow him out of the room:'
	if wl_demand['party'] = 1:
		wl_demand['party'] = 0
		wl_georgiy['timer_week'] = 0
		'- You missed Vadim''s party'
	end
	if wl_bad['work'] = 1: wl_bad['work'] = 0 & '- You didn''t work enough shifts'
	if wl_bad['lump_sum'] = 1: wl_bad['lump_sum'] = 0 & '- You didn''t pay him enough money this week'
	if wl_bad['medical'] = 1: wl_bad['medical'] = 0 & '- You missed your medical exam'
	if wl_bad['iosif'] = 1: wl_bad['iosif'] = 0 & '- You ignored Iosif'
	if wl_bad['earnings'] = 1: wl_bad['earnings'] = 0 & '- You didn''t earn enough money in the last few weeks'
	if wl_bad['prison'] = 1: wl_bad['prison'] = 0 & '- You didn''t work at the prison'
	if wl_bad['homeless_slut'] = 1: wl_bad['homeless_slut'] = 0 & '- You fucked the homeless'
	if wl_bad['total_debt'] = 1:
		wl_bad['total_debt'] = 0 & '- You have too much debt'
		*nl
		'He also takes all the money you have to reduce your debt.'
		if money >= wl_debt['amount']:
			money -= wl_debt['amount']
			wl_debt['amount'] = 0
		else
			wl_stats['respect'] += 1
			wl_debt['amount'] -= money
			money = 0
		end
	end
	if wl_bad['total_debt'] = 2: '- You have too much debt'

	act 'Continue':
		if wl_bad['total_debt'] = 2:
			gt 'mod_wlife_punishment', 'sale'
		elseif wl_irina['punish_in_row'] > 2:
			gt 'mod_wlife_punishment', 'dead'
		elseif wl_stats['loyalty'] <= -100:
			gt 'mod_wlife_punishment', iif(rand(0,1) = 1, 'dead', 'sale')
		elseif wl_bad['whip'] > 0:
			gt 'mod_wlife_punishment', 'whip_switch'
		elseif wl_homeless['status'] = 0:
			gt 'mod_wlife_punishment', 'homeless_intro_1'
		elseif wl_homeless['status'] = 1:
			gt 'mod_wlife_punishment', 'homeless_first_0'
		else
			$wl_homeless['sex'] = 'forced' & gt 'mod_wlife_punishment', 'homeless_regular'
		end
	end
end

if $ARGS[0] = 'sale':
	*clr & cla
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/sale.jpg"></center>'
	'You vanish without a trace. Your parents and your friends were clueless and the police, paid of by the Bely''s, looked the other way. You end up somewhere in a cheap brothel in western Europe in which you have to work every day until you''re too broken to be useful anymore. The Belys sold you'+iif(wl_bad['total_debt'] = 2, ' to recover some of the money you owed them.', ', because they couldn''t trust you anymore.')

	act 'This didn''t happen (Cheat to continue playing)':
		if wl_bad['total_debt'] = 2: wl_bad['total_debt'] = 0 & wl_debt['amount'] = 0
		if wl_stats['loyalty'] < 0: wl_stats['loyalty'] = 0
		if wl_irina['punish_in_row'] > 0: wl_irina['punish_in_row'] = 0

		gt 'mod_wlife_warehouse', 'street'
	end
end

if $ARGS[0] = 'dead':
	*clr & cla
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/dead.jpg"></center>'
	iif(wl_irina['punish_in_row'] > 2, 'Irina''s final punishment was too much and', 'You vanish without a trace. Your parents and your friends were clueless and the police, paid of by the Bely''s, looked the other way. In the end')+' your body was never found.'

	act 'This didn''t happen (Cheat to continue playing)':
		if wl_bad['total_debt'] = 2: wl_bad['total_debt'] = 0 & wl_debt['amount'] = 0
		if wl_stats['loyalty'] < 0: wl_stats['loyalty'] = 0
		if wl_irina['punish_in_row'] > 0: wl_irina['punish_in_row'] = 0

		gt 'mod_wlife_warehouse', 'street'
	end
end

!!------ Introduction ------

if $ARGS[0] = 'homeless_intro_0':
	*clr & cla
	minut += 3
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/locations/warehouse/hallway.jpg"></center>'
	'"I''m always skeptical if we get a new whore," he tells you as you try to keep up with his long strides. "You would think that the girls who come to us, because they are down on their luck, would be the best candidates, but that isn''t the case. Can you imagine why?"'
	'You ponder the question, but he doesn''t seem to be in a hurry and gives you a few moments as you pass through the hallway of the old house. There are a dozen reasons you can think of. They could underestimate what the job entails or want to quit when they found a good paying normal job.'

	act 'Don''t say anything':
		cla & *nl
		minut += 2
		wl_stats['loyalty'] -= 1
		gs 'stat'
		'"I don''t know," you say and he stops for a moment. "If I ask you a question, give me an answer <<$pcs_nickname>>. It''s not optional. Or are you too stupid? I need whores that are obedient but also quick on their feet. You need to handle any situation out there. If I wanted brain dead fuckmeat, I would pick up some drugged up bitches of the street."'
		'"I''m sorry Sir," you reply and look down to your feet. "Won''t happen again."'
		'He takes a few seconds to appreciate your submissive display before supplying the answer for the question himself. "At some point they want to quit, because they find a ''real'' job or a husband or Jesus or some other bullshit. I prefer whores like you, who from day one understand that you do this job for the rest of your life."'

		act 'Follow him outside': gt 'mod_wlife_punishment', 'homeless_intro_1'
	end

	act 'Underestimate what the job entails':
		cla & *nl
		minut += 2
		gs 'stat'
		'"True," he replies, "but did you really know how a life of a street whore really was before you have started to work for me?" You shake your head. "See, the reason is that at some point they want to quit, because they find a ''real'' job or a husband or Jesus or some other bullshit," he explains. "I prefer whores like you, who from day one understand that you do this job for the rest of your life."'

		act 'Follow him outside': gt 'mod_wlife_punishment', 'homeless_intro_1'
	end

	act 'Find a normal job':
		cla & *nl
		minut += 2
		wl_stats['respect'] += 1
		gs 'stat'
		'He throws you a quick and cold smile. "Good <<$pcs_nickname>>. I see that you''re beginning to understand. You''re exactly right, at some point they want to quit, because they find a ''real'' job or a husband or Jesus or some other bullshit," he explains. "I prefer whores like you, who from day one understand that you do this job for the rest of your life."'

		act 'Follow him outside': gt 'mod_wlife_punishment', 'homeless_intro_1'
	end
end

if $ARGS[0] = 'homeless_intro_1':
	*clr & cla
	minut += 3
	wl_homeless['status'] = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/locations/homeless/outside_'+iif(hour > 19 or hour < 6, 'night', 'day')+'.jpg"></center>'
	'"Sir, may I ask where we are going?" you inquire as you follow him outside the warehouse. He gives a sign to one of his guys who immediately starts to follow you as he answers your question. "We''re going for a little walk. It''s not far."'
	*nl
	'You walk in silence for a few minutes through the old abandoned area of Pavlovsk''s Industrial Area. Except for the clothing factory nothing has survived the end of the Soviet Union nearly 20 years ago and most of the old factories and warehouses are empty. Most, but not all. You can see lights coming out of dirty or broken window here and there. You finally stop in front of an old factory that has been transformed into a makeshift home for several homeless people. Some are sitting outside drinking while you can see others hanging out inside through the open doors.'

	act 'Let your eyes wander':
		*clr & cla
		minut += 5
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/wlife/images/locations/homeless/homeless_'+iif(hour > 19 or hour < 6, 'night', 'day')+'.jpg"></center>'
		'You probably can''t fall any lower than those people. They have given up, lost all hope. You can see it in their eyes, when one of the men looks at you for a split second. Judging from the empty vodka bottles and needles only alcohol and drugs help them to escape their dismal lives.'
		'"Can you guess why I brought you here?" he asks. You tilt your head a bit to the side and again take in the surroundings. "You want to show me, how I would end if I '+iif(wl_bad['status_punishment'] = 1, 'keep misbehaving', 'misbehave')+'? You will ruin my life and I''ll live the rest of my days like her?" you answer pointing towards a woman a few years older than you that is rummaging through the trash.'
		'He shakes his head and fixes his cold menacing eyes on you. "No, if it ever comes to that, you''ll end in an unmarked grave," he states matter-of-factly.'
		'Your eyes grow wide and you stare at him shocked. He''s joking right? Right? But he doesn''t need to repeat the threat for you to believe it. His cold eyes tell you the truth. '+iif(wl_bad['status_punishment'] = 1, '"And if you don''t start to obey us...," he pauses to let the threat sink in, "we will', '"But if you keep obeying us like you have until now, we will never')+' find ourselves in a situation in which this will be necessary."'
		'You let that sink in for a while before another thought pops up in your head that distracts you from your gruesome possible fate. He didn''t tell you why you''re here.'

		act 'Ask him':
			*clr & cla
			minut += 3
			gs 'stat'
			'<center><img <<$set_imgh>> src="mod/wlife/images/characters/georgiy_bely.jpg"></center>'
			'"Because this will be your punishment if you ever misbehave'+iif(wl_bad['status_punishment'] = 1, ' again,', '')+'," he answers without explaining it. You take another look around and then back to him. "I give you a hint <<$pcs_nickname>>. We already covered capital punishment, but apart from that how can the government punish people?"'
			'You shrug. "Maybe a fine or prison?"'
			'"Sure and what about community service?" he asks. Community service? You repeat in your head and you have no idea what he means by that. How could you... you freeze and stare at him, when you realize what he''s saying. No, no, absolutely not. That can''t be what he means. "That''s right," he answers your unspoken question. Your thoughts must have been clearly visible on your face. "If you don''t behave, you will entertain one of them. Do your good deed for the day."'
			'"What the fuck? That''s disgusting," you blurt out, but he stops you before you can say anything else. "That''s right. It is vile and disgusting and if you don''t want to do human trash that''s riddled with diseases, '+iif(wl_bad['status_punishment'] = 1, 'learn to fucking obey and do what you are fucking told."', 'keep obeying like you did."')+' he says, turns around and walks away leaving your shocked self behind.'
			wl_bad['status_punishment'] = 0

			act 'Continue': gt 'mod_wlife_warehouse', 'homeless_outside'
		end
	end
end

!!------ First community service ------

if $ARGS[0] = 'homeless_first_0':
	*clr & cla
	minut += 5
	wl_homeless['status'] = 2
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/locations/homeless/outside_'+iif(hour > 19 or hour < 6, 'night', 'day')+'.jpg"></center>'
	'"Please, something other than that," you beg and plead with Georgiy all the way to the old factory. "Anything else!" you continue to beg as tears are starting to well up.'
	'"Than you should have behaved yourself. It''s not as if I want you to do it, but you''re forcing my hand," he tells you angrily. "It''s your own fault. So don''t blame me."'
	'Several conflicting emotions are battling inside you. One part of you wants to draw a line in the sand to stop this madness once and for all, another voice urges you to get a hold of yourself and get it over with and another part wants to lay down on the hard concrete floor and cry.'
	'"Here we are," he says and points towards the run-down building. "Get to work."'

	gs 'willpower', 'misc', 'self', 'hard'
	will_cost = will_cost * 2
	if will_cost <= pcs_willpwr:
		act 'Get a hold of yourself (<<will_cost>> Willpower)':
			cla & *nl
			minut += 2
			wl_stats['loyalty'] += 10
			wl_stats['respect'] -= 10
			gs 'willpower', 'misc', 'self', 'hard'
			will_cost = will_cost * 2
			gs 'willpower', 'pay', 'self'
			gs 'stat'
			'"Fine," you say blinking away the tears and putting as much confidence and indifference into your voice as you can muster. "I messed up and I will carry the consequences," you tell him and walk towards the building without saying another word and hope you somehow find a clean hobo inside.'

			act 'Continue': gt 'mod_wlife_punishment', 'homeless_first_1'
		end
	else
		act 'Get a hold of yourself (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end

	gs 'willpower', 'misc', 'self', 'hard'
	will_cost = will_cost * 3
	if will_cost <= pcs_willpwr:
		act 'Draw a line (<<will_cost>> Willpower)':
			cla & *nl
			minut += 2
			wl_stats['loyalty'] -= 10
			wl_stats['respect'] += 10
			gs 'willpower', 'misc', 'self', 'hard'
			will_cost = will_cost * 3
			gs 'willpower', 'pay', 'self'
			gs 'stat'
			'"No, I won''t do it," you scream pulling away from him. "This is it. I draw the line here. Do whatever you want with me, but I won''t go in there and fuck a hobo."'
			'There is no reaction from Georgiy. He doesn''t hit you, doesn''t say anything, he''s just looking at you. With every second that passes you get more and more the feeling that you made a mistake, a huge one. Should you back down and do it or stand up for yourself and walk away from this? You ask yourself while staring into Georgiy''s expressionless face.'

			act 'Back down':
				cla & *nl
				'"Fine," you say drawing out the word and without saying another word you turn around and ...'

				act 'Look for the cleanest hobo you can find': gt 'mod_wlife_punishment', 'homeless_first_1'
			end
			act 'Walk away': gt 'mod_wlife_punishment', 'dead'
		end
	else
		act 'Tell him you won''t do it (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end

	act 'Cry':
		cla & *nl
		minut += 2
		wl_stats['respect'] += 2
		gs 'stat'
		'"Fine," you manage to say between loud sobs as you rub away the tears running down your cheeks. Without saying another word you walk away from him as fast as you can. You hope that you find somebody that is at least not completely disgusting.'

		act 'Continue': gt 'mod_wlife_punishment', 'homeless_first_1'
	end
end

if $ARGS[0] = 'homeless_first_1':
	*clr & cla
	minut += 5
	wl_homeless['timer'] = daystart
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/prostitution/homeless/set_1/cock_0.jpg"></center>'
	'At first you walk directly towards the entrance of the old factory, but quickly take a turn and walk around the corner to look for someone that is more isolated from the rest of the group. You hasten your steps and hold your nose, when you pass by an old man that is sleeping in his own puke. "Fuck," you whisper when you can smell the stench from ten meters away.'
	'Halfway around the factory you walk past a rusty chain-link fence when you spot something out of the corner of your eye... Was that a cock? You to a double take and yes, you were right. There are two legs sticking out of a huge cardboard box and between them a huge cock. What a twist of fate.'

	act 'Step closer':
		*clr & cla
		minut += 3
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/wlife/images/prostitution/homeless/set_1/squat.jpg"></center>'
		'Nobody is around except Georgiy''s henchman. He keeps his distance, but is constantly following you to make sure that you do what you have to do. You take a last look around before pushing the fence a little bit to the side and open up a big enough gap to slip through.'
		'You take a carefully sniff, when you tiptoe closer, and wriggle your nose. It''s not as bad as you had expected, but still it smells like cold sweat, urine and other stuff you can''t identify. But there is no other way than to go through with it. You squat down next time to him to take a closer look.'

		act 'Continue':
			*clr & cla
			minut += 2
			gs 'stat'
			'<center><img <<$set_imgh>> src="mod/wlife/images/prostitution/homeless/set_1/homeless_asleep.jpg"></center>'
			'He''s black which does and doesn''t surprise you at the same time. There aren''t many people of color in Russia, so to see one is very rare, but at the same time your society doesn''t treat them very well. It''s much easier for them to end out on the street.'
			'Judging from the empty vodka bottle next to him he''s passed out and a huge fresh stain on his dirty pants explains why his cock is out in the open. He masturbated only minutes ago.'
			'A part of you hoped that it would be over quick. Some guy who maybe didn''t touch a woman for years would have been easy to take over the edge within minutes. But this could take a while. Should you go and look for another candidate? Probably not a good idea, you guess as you remember the last guy you saw covered in his own puke. At least you can be next to him without constantly retching.'

			if wl_status['condoms'] > 0:
				'You quickly check your '+iif(bag = 1, 'purse', 'pockets')+' and breath out a sigh of relief when you find a condom.'

				act 'Use a condom':
					cla & *nl
					gs 'mod_wlife_functions', 'remove_condom'
					$wl_homeless['condom'] = 'yes'
					'You take '+iif(wl_status['condoms'] = 1, 'your only condom', 'one of your condoms')+' and look at his cock. You could get him hard, put on the condom and give him a handjob and hopefully bring him over the edge before he wakes up. But given that you have a condom a blowjob could yield faster results.'

					act 'Give him a handjob': gt 'mod_wlife_punishment_sex', 'homeless_first_0', 'hj'
					gs 'willpower', 'bj', 'self', 'easy'
					if will_cost <= pcs_willpwr:
						act 'Give him a blowjob (<<will_cost>> Willpower)':
							gs 'willpower', 'pay', 'self'
							gt 'mod_wlife_punishment_sex', 'homeless_first_0', 'bj'
						end
					else
						act 'Give him a blowjob (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
					end
				end

				gs 'mod_wlife_functions', 'will_unprotected', 'self', 'hard'
				if will_cost <= pcs_willpwr:
					act 'Don''t use a condom (<<will_cost>> Willpower)':
						cla & *nl
						wl_stats['unprotected'] += 1
						wl_homeless['bad'] += 2
						$wl_homeless['condom'] = 'no'
						gs 'willpower', 'pay', 'self'
						gs 'stat'
						'You take a condom out and look at it for a split second before putting it back. The tiny voice in the back of your head scream ''WHY?'' but you ignore it for the moment.'
						'The safest option would be to give him a handjob and hopefully take him over the edge before he wakes up and realize what''s going on. A blowjob could yield faster results, but you''ll probably never get that taste out of your mouth.'

						act 'Give him a handjob': gt 'mod_wlife_punishment_sex', 'homeless_first_0', 'hj'
						gs 'willpower', 'bj', 'self', 'hard'
						if will_cost <= pcs_willpwr:
							act 'Give him a blowjob (<<will_cost>> Willpower)':
								gs 'willpower', 'pay', 'self'
								gt 'mod_wlife_punishment_sex', 'homeless_first_0', 'bj'
							end
						else
							act 'Give him a blowjob (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
						end
					end
				else
					act 'Don''t use a condom (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
				end
			else
				$wl_homeless['condom'] = 'forgot'
				'You quickly check your '+iif(bag = 1, 'purse', 'pockets')+' and if you don''t find what you are looking for you check it again and again and again. "Shit, shit, shit," you say when you realize that you don''t have any condoms with you. You don''t have any other choice but to do it without one.'
				'The safest option would be to give him a handjob and hopefully take him over the edge before he wakes up and realize what''s going on. A blowjob could yield faster results, but you probably will never get that taste out of your mouth.'

				act 'Give him a handjob': gt 'mod_wlife_punishment_sex', 'homeless_first_0', 'hj'
				gs 'willpower', 'bj', 'self', 'hard'
				if will_cost <= pcs_willpwr:
					act 'Give him a blowjob (<<will_cost>> Willpower)': gt 'mod_wlife_punishment_sex', 'homeless_first_0', 'bj'
				else
					act 'Give him a blowjob (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
				end
			end
		end
	end
end

!!------ Decision event: Adrian (1) ------

if $ARGS[0] = 'adrian_first_0':
	*clr & cla
	minut += 5
	menu_off = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/adrian_mikhailov_1.jpg"></center>'
	if wl_adrian_temp = 0:
		'Small towns like Pavlovsk have its upsides compared to the anonymous big city, but sometimes it''s just too small. You learn that anew, when you walk down a street in the '+iif($loc = 'pav_residential', 'residential', iif($loc = 'pav_commercial', 'commercial', 'industrial'))+' area. A man is sitting on the floor, an old hat sits in front of him. Some passers-by throw a few rubles into it, but most ignore him. You give him a quick glance and your heart skips a beat. Shit, shit, shit! It''s him! It''s the homeless guy Georgiy made you have sex with.'
		'What should you do? Keep walking? Turn around? Talk to him? Your racing mind asks as you quickly take a look around. The street is clear, you could cross it and avoid him or should you talk to him to see if he remembers you and what happened? He was pretty drunk, so there is a chance that he forgot everything.'

		act 'Avoid him':
			*clr & cla
			minut += 5
			wl_stats['acceptance'] -= 1
			wl_homeless['good'] -= 1
			wl_homeless['bad'] -= 1
			wl_adrian['timer'] = daystart + rand(2,5)
			wl_adrian_temp = 1
			gs 'stat'
			'<center><img <<$set_imgh>> src="mod/wlife/images/player/turn_'+iif(daystage = 5, 'night', 'day')+'.jpg"></center>'
			'You don''t want to take any chances and walk in the opposite direction before crossing the street in a safe distance. You take a last look over your shoulder and ...'

			act '... hope you''ll never see him again':
				wl_stats['acceptance'] -= 1
				wl_homeless['good'] = -1
				wl_homeless['bad'] = -1
				gt $loc, $loc_arg
			end

			act '... think that someday you''ll be ready to talk to him': wl_stats['acceptance'] += 1 & gt $loc, $loc_arg
		end
	else
		'You sigh, when you turn around a corner and see the homeless guy again. Pavlovsk is just too damn small and you realize, that you won''t be able to avoid him forever. You take a look around and see nobody else in the vicinity. This is the chance to talk to him.'
	end

	act 'Talk to him':
		*clr & cla
		minut += 5
		wl_adrian['status'] = 2
		killvar 'wl_adrian_temp'
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/wlife/images/characters/adrian_mikhailov_0.jpg"></center>'
		'What do you say to a homeless guy you recently slept with? You ask yourself as you walk'+iif(ShoHeels > 3, ' with clicking heels ', ' ')+'up to him.'
		'<i>Hi, nice to meet you again. I don''t know if you remember me, you were pretty drunk, but I''m the girl you banged the other day,</i> you think and snort quietly. Yeah right, that will probably be a good idea. You still haven''t figured out what to say, when you reach him. "Uhm... Hi," you greet him. Shocked his eyes grow wide. "I thought I imagined it," he says while he squints to take a better look at you.'
		'"No, you didn''t," you assure him as you nervously rub your left elbow with your right hand and take another look around, but the coast is still clear. "I...," you take a second to think about what you want to say next, but you still have no idea. "Sorry, I really have no idea what to say," you continue with a sigh. "I shouldn''t have done this." His gaze shifts to the ground and your last words really seem to break his spirit.'
		'Great, now he thinks you regret sleeping with him. You do'+iif(wl_homeless['good'] < 0 and wl_homeless['bad'] < 0, ', obviously.', ', probably.')+' But it isn''t a good conversation starter to crush his confidence. Should you set the record straight?'

		act 'No':
			cla & *nl
			minut += 2
			gs 'stat'
			wl_homeless['good'] -= 2
			'You don''t say anything and it takes him a few moments to summon the courage to look back up to you. "But why did you do it in the first place if you regret it now? I would never have expected a girl like you and a guy like me... I''m not great boyfriend material."'
			'You think about it for a few moments trying to come up with a believable alternative to the truth, but you can''t think of something off the top of your head.'

			act 'Tell him the truth': gt 'mod_wlife_punishment', 'adrian_first_1'
		end

		act 'Yes':
			*clr & cla
			minut += 3
			gs 'stat'
			'<center><img <<$set_imgh>> src="mod/wlife/images/characters/adrian_mikhailov_0.jpg"></center>'
			wl_homeless['good'] += 2
			'"Sorry, that came out wrong. What I meant was that I shouldn''t have talked to you without knowing what to say," you explain. He shakes his head without looking up. "It''s OK," he says in a low voice. "You don''t have to lie. I can deal with it." He clearly can''t and you interject to reassure him. "I didn''t lie. If you don''t want to believe that, fine don''t believe it, but it''s the truth." He looks up and a hint of a smile tugs the corners of his mouth upwards. "OK," he replies with a bit more strength in his voice. "But why did you do it in the first place? Not that I''m ungrateful, but I would never have expected a girl like you and a guy like me... I''m not great boyfriend material."'
			'You think about it for a few moments trying to come up with a believable alternative to the truth, but you can''t think of something off the top of your head.'

			act 'Tell him the truth': gt 'mod_wlife_punishment', 'adrian_first_1'
		end
	end
end

if $ARGS[0] = 'adrian_first_1':
	*clr & cla
	minut += 15
	wl_adrian['timer'] = daystart + rand(3,7)
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/adrian_mikhailov_0.jpg"></center>'
	'You obviously don''t tell him the whole truth. Incriminating the Belys isn''t a very smart idea if you want to live a long and healthy life. So you tell him the gist of it. That somebody forced you to do it. If you have expected that this would again crush his spirit, you would have been right, but this time he doesn''t wallow in self-pity. Instead he pities you and you don''t know what''s worse. Seeing a man like him, completely down on his luck, pitying you isn''t doing great things to your self-esteem.'
	'"That guy forced you?" he asks after listing to your story. "I''m sorry that happened to you," he adds'+iif($wl_adrian['condom'] = 'forced', ', but doesn''t say anything about taking the condom off'+iif($wl_adrian['creampie'] = 'no', ' or coming inside you even after you begged him not to.', '') ,'.')+' "I didn''t really remember much." For a moment you''re tempted to tell him in detail what happened, what he did and how it was for you to be with him, but you quickly discard the idea. It would accomplish nothing.'
	*nl
	'It seems you run out of time, a group of girls a few years younger than you walk around the corner. You don''t know them, but they probably go to your school and you don''t want to take any chances. You '+iif(money >= 20, 'take out a few rubles and put them into his hat as you', 'lean forward a bit and')+' whisper, "please, don''t tell anybody about this, OK?" He looks sheepish and whispers back, "I already told some of my friends. I''m sorry'+iif(money >= 20, '," and adds more loudly, "thank you for your generosity."', '."')
	if money >= 20: money -= 20
	gs 'stat'

	act 'Leave':
		*clr & cla
		minut += 5
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/wlife/images/player/turn_'+iif(daystage = 5, 'night', 'day')+'.jpg"></center>'
		'His last words stay with you for the next minutes. Not only did random guys on the Internet seen what you did, people here in Pavlovsk know about it too. It''s basically impossible that they recognize you, but the thought alone is...'

		act 'Horrifying':
			cla & *nl
			minut += 5
			wl_stats['acceptance'] -= 1
			wl_homeless['good'] -= 1
			wl_homeless['bad'] -= 3
			gs 'stat'
			'...horrifying. You shiver and take a look over your shoulder almost expecting to see a bunch of homeless guys following you. It''s of course ridiculous, you know that, but you can''t stop the unconscious part of mind from imagining the worst case scenario. You hasten your steps, lower your gaze and wrap your arms around your upper body as you leave the area as quickly as possible.'

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

		act 'Arousing':
			cla & *nl
			minut += 5
			wl_stats['acceptance'] += 2
			wl_homeless['bad'] += 2
			if pcs_horny < 60: pcs_horny = 60
			gs 'stat'
			'...arousing. You take a look over your shoulder almost expecting to see a bunch of homeless guys following you. It''s of course ridiculous, you know that, but you can''t stop the unconscious part of mind from imagining how they pull you into a dark alley, their dirty hands roaming over every inch of your body, pulling out their filthy cocks... Stop it! You give your head a mental shake. That''s not something that turns you on, you tell yourself as your wet pussy screams the exact opposite.'

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

!!------ Decision event: Adrian (2) ------

if $ARGS[0] = 'adrian_second_0':
	*clr & cla
	minut += 5
	menu_off = 1
	wl_adrian['timer'] = daystart + rand(2,5)
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/adrian_mikhailov_1.jpg"></center>'
	'"Hello," a familiar voice calls out behind you. It''s the homeless guy again. His lips are curled up into a tentative smile and he waves to you with a bottle in his hand. Nobody is nearby, you could take a moment to talk to him. Even if somebody would come by, it would be highly unlikely that they would see you.'

	act 'Ignore him':
		*clr & cla
		minut += 5
		wl_homeless['good'] -= 1
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/wlife/images/player/turn_'+iif(daystage = 5, 'night', 'day')+'.jpg"></center>'
		'You immediately look away, when you recognize him and hasten your steps. You don''t want to deal with him today.'

		gs 'mod_wlife_punishment', 'adrian_second_actions'
	end

	act 'Smile, but keep going':
		*clr & cla
		minut += 5
		wl_homeless['good'] += 1
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/wlife/images/player/turn_'+iif(daystage = 5, 'night', 'day')+'.jpg"></center>'
		'You respond with a smile and wave back, but keep going without saying anything. Still, when you throw a quick glance over your shoulder you see that his smile has grown even wider, a consequence of your friendly attitude towards him.'

		gs 'mod_wlife_punishment', 'adrian_second_actions'
	end

	act 'Go to him': wl_adrian['status'] = 3 & gt 'mod_wlife_punishment', 'adrian_second_1'
end

if $ARGS[0] = 'adrian_second_actions':
	*nl
	'As you keep walking the annoying voice in your head questions your motives. Did you only walk away, because you have to be somewhere?'+iif(sunweather = 1, ' ', ' Is it the bad weather? ')+'Or is there a more deep-seated reason behind it?'

	act 'Nothing in particular': minut += 5 & gt $loc, $loc_arg

	if wl_homeless['bad'] > 0:
		act 'You''re confused by your degrading thoughts':
			cla & *nl
			wl_stats['acceptance'] += 1
			wl_homeless['bad'] += 2
			'It''s really not a good idea to be near him. Your afraid it will again trigger your fucked up imagination. Fucking a bum, being degraded like this seems to have awoken something deep inside you. Something you don''t want to let out.'

			act 'Continue': minut += 5 & gt $loc, $loc_arg
		end
	end

	act 'You find him disgusting':
		cla & *nl
		wl_homeless['good'] -= 2
		wl_homeless['bad'] -= 2
		'It''s not a big secret. You find him disgusting and you don''t want to come near him or any other homeless people.'

		act 'Continue': minut += 5 & gt $loc, $loc_arg
	end
end

if $ARGS[0] = 'adrian_second_1':
	*clr & cla
	minut += 5
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/adrian_mikhailov_0.jpg"></center>'
	'He takes a big gulp out of the vodka bottle as he looks up to you with glassy eyes. "I never thought I would see you again," he says slurring his words. It''s a miracle that he even can sit up straight much less talk.'
	'"Pavlovsk is pretty small," you shrug'+iif(wl_shura['status'] > 8, ', like Shura, maybe he''s rubbing off on you.', '.')+' "We were destined to bump into each other again at some point."'
	'"That''s not...," he burps loudly, "... not what I mean. You shouldn''t be here, talking to a guy like me."'
	'"You were the one that said ''hello''," you remind him with a slight grin. "That''s true, definitely true," he murmurs as he again shakes his head. "Shouldn''t have done that, should have stayed away. Stayed away from you and from '+iif($pcs_firstname = 'Sasha' or $pcs_nickname = 'Sasha', 'Tatiana', 'Sasha')+'." There it is again. That name. He called you by it on the fateful day, when you crawled into his cardboard home. "Should have stayed away," he says and you doubt he''s still speaking to you. Something, some memory has him devastated.'
	'"Who is '+iif($pcs_firstname = 'Sasha' or $pcs_nickname = 'Sasha', 'Tatiana', 'Sasha')+'? Why should you have stayed away from her and from me?"'
	'"No...," he violently shakes his head and repeats the word several times.'
	'You squat down in front of him to be able to look him in the eye. "What happened between you and '+iif($pcs_firstname = 'Sasha' or $pcs_nickname = 'Sasha', 'Tatiana', 'Sasha')+'?"'
	'His eyes meet yours and you can see how hesitant he is to talk about this topic. After a few moments of silence have passed between you, he offers his bottle to you.'

	gs 'willpower', 'alcohol', 'resist', 'easy'
	if will_cost <= pcs_willpwr:
		act 'Decline (<<will_cost>> Willpower)':
			wl_temp = 0
			gs 'willpower', 'pay', 'resist'
			gt 'mod_wlife_punishment', 'adrian_second_2'
		end
	else
		act 'Decline (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end
	act 'Take a sip': wl_temp = 1 & gt 'mod_wlife_punishment', 'adrian_second_2'
end

if $ARGS[0] = 'adrian_second_2':
	*clr & cla
	minut += 5
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/adrian_mikhailov_0.jpg"></center>'
	if wl_temp = 0:
		'Probably not a very smart idea to share a bottle with a hobo. "No, thanks," you say.'
	else
		wl_homeless['bad'] += 1
		gs 'drugs', 'alcohol', 'vodka', 1
		'Sharing a bottle of booze with him is probably OK since you already '+iif($wl_adrian['condom'] ! 'yes' and $wl_adrian['scene'] = 'bj', 'had his unwashed dick in your mouth', 'done much worse things')+'. You take a sip and hand the bottle back as the cheap vodka burns in your throat.'
	end
	gs 'stat'
	'"So, who is '+iif($pcs_firstname = 'Sasha' or $pcs_nickname = 'Sasha', 'Tatiana', 'Sasha')+'?" you ask again as he takes another sip from his bottle.'
	'"My girlfriend," he sighs and his whole body seems to deflate, his shoulder and head slump down. "I was always the outcast in school as the only black kid. I had some friends, but wherever I went I got the impression that their parents didn''t want them to hang out with me," he says making a pause here and there to collect his thoughts. "'+iif($pcs_firstname = 'Sasha' or $pcs_nickname = 'Sasha', 'Tatiana', 'Sasha')+' transfered here, when her parents moved to Pavlovsk and we just clicked. It was like love at first sight. We spend more and more time together, but one day her father caught us in her bed." When he takes another sip to steady himself you ask, "I guess he wasn''t very happy about that?" He shakes his head. "No, he wasn''t. Bashed my head in." He pulls his greasy hair back a bit and reveals a long scar on the right side of his head. Your eyes widen a bit as you can''t stop yourself from staring at it. It''s massive. He should be dead. "Your lucky that you survived," you say, but he scoffs. "Lucky, yeah right." He shakes his head and offers you the bottle again. '+iif(wl_temp = 1, '"Want more?"', '"You sure you don''t want some?"')

	gs 'willpower', 'alcohol', 'resist', iif(wl_temp > 0, '', 'easy')
	if will_cost <= pcs_willpwr:
		act 'Decline '+iif(wl_temp > 0, 'this time', 'again')+' (<<will_cost>> Willpower)':
			gs 'willpower', 'pay', 'resist'
			gt 'mod_wlife_punishment', 'adrian_second_3'
		end
	else
		act 'Decline (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end
	act 'Take '+iif(wl_temp > 0, 'another', 'a')+' sip': wl_temp += 1 & wl_quick_temp = 1 & gt 'mod_wlife_punishment', 'adrian_second_3'
end

if $ARGS[0] = 'adrian_second_3':
	*clr & cla
	minut += 10
	'<center><img <<$set_imgh>> src="mod/wlife/images/characters/adrian_mikhailov_0.jpg"></center>'
	if wl_quick_temp = 0:
		'"No, thanks," you say. '+iif(wl_temp > 0, '"I had enough."', '"I''m good."')
	else
		gs 'drugs', 'alcohol', 'vodka', 1
		'"Thanks," you say taking an even bigger sip than the first time.'
	end
	killvar 'wl_quick_temp'
	gs 'stat'
	'"When I woke up at the hospital a few days later, the police came and put me in handcuffs," he continues. "Her father pressured '+iif($pcs_firstname = 'Sasha' or $pcs_nickname = 'Sasha', 'Tatiana', 'Sasha')+' to go to the police and accuse me of raping her."'
	'"Oh... I''m so sorry," you say and it becomes more and more clear why he''s living on the street. "Did she ever come forward and told the truth?"'
	'"Yeah, five years later, when she moved out of her parents house," he answers. "Five years?" you ask. "That means... you went to prison?"'
	'He never had a chance, you think, when he nods. Underage white girl accuses a black guy of raping her, there was no other way how this could have ended. "And what happened next? What''s with your parents?" He shrugs, but doesn''t elaborate. Instead he tries to stand up on his shaky legs. Without thinking you steady him, when he nearly falls over. "Whoa," you say as a mixture of booze and sweat assaults your nostrils. "Do you think it''s a good idea to walk around like this?"'
	'"You don''t have to help me," he says and shakes you off. "I only need to get to my stuff." You watch him stumble for a few meters before stopping him, when he can''t go in a straight line. This time he puts an arm around you and leans into you. "It''s only a few meters," he says and points with a shaking hand away from the main road towards the other end of the alley.'

	act 'Help him':
		*clr & cla
		minut += 10
		if $loc = 'pav_residential' or $loc = 'pav_commercial': minut += 15
		gs 'sweat', 'add', 40
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/wlife/images/prostitution/homeless/set_1/help.jpg"></center>'
		'His stuff isn''t anyway near the end of the alley. You have to walk all the way to the abandoned factory and his home made out of cardboard. He could have told you, that you had to walk all the way here, you think as he takes his arm of your shoulder and stumbles into the factory. "Wait here," he says and vanishes inside the building.'
		'And wait you do. You pull out your phone to pass the time, when he doesn''t return after a few minutes. After having waited a few minutes more you realize that you can still smell him. Oh my god, it''s your clothes, isn''t it? You take a cautious sniff. "Great," you sigh. They reek. He has left his stench all over your top.'
		*nl
		'He finally returns with a giant backpack, that he pushes inside his box and sits down next to it. "Here," he says and holds out the bottle. "Take the rest... as a thank you."'

		gs 'willpower', 'alcohol', 'resist', iif(wl_temp > 1, 'hard', 'easy')
		if will_cost <= pcs_willpwr:
			act 'Decline (<<will_cost>> Willpower)':
				gs 'willpower', 'pay', 'resist'
				gt 'mod_wlife_punishment', 'adrian_second_4'
			end
		else
			act 'Decline (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
		act 'Drink the rest': wl_temp += 1 & wl_quick_temp = 1 & gt 'mod_wlife_punishment', 'adrian_second_4'
	end
end

if $ARGS[0] = 'adrian_second_4':
	*clr & cla
	minut += 5
	'<center><img <<$set_imgh>> src="mod/wlife/images/prostitution/homeless/set_1/cock_0.jpg"></center>'
	if wl_quick_temp = 0:
		'"No, thanks," you say. '+iif(wl_temp > 0, '"I had enough."', '"I''m good."')+' He shrugs and drinks the rest himself.'
	else
		gs 'drugs', 'alcohol', 'vodka', 1
		'"Thanks," you say emptying the bottle.'
	end
	killvar 'wl_quick_temp'
	gs 'stat'
	*nl
	'It''s time to go and you turn around, but he stops you. "I''m Adrian by the way," he says. "<<$wl_names[''street'']>>," you '+iif($wl_names['street'] ! $pcs_nickname, 'lie thinking it would be best not to tell him your real name, since', 'say telling him your real name thinking it doesn''t matter even if')+' he lives in Pavlovsk.'
	*nl
	'You walk away from him and take one last look over your should. What the actual fuck... He has his cock out and in his hands. Couldn''t he have waited until you have left? For a few seconds you stare at his hand moving up and done his shaft.'
	if wl_homeless['good'] < 1 and wl_homeless['bad'] < 1:
		'But you have learned one thing from all that happened in the last days, fucking the homeless is not something you will ever do again without being forced to.'
		act 'Leave':
			killvar 'wl_temp'
			$wl_homeless['like'] = 0
			gt 'mod_wlife_warehouse', 'homeless_outside'
		end
	elseif wl_homeless['good'] < wl_homeless['bad']:
		pcs_horny += 100
		iif(wl_temp > 0, 'The alcohol seems to have went straight to your head, but also to other, lower places. ', '')+'The urges you developed over the last few days rush to the surface and you want nothing more than to go to him, rip his clothes of and push his long, hard, dirty cock inside you.'
		gs 'willpower', 'resist', 'sex', iif(wl_homeless['bad'] > 4, 'hard', iif(wl_homeless['bad'] > 2, 'medium', 'easy'))
		if will_cost <= pcs_willpwr:
			act 'Resist your urges (<<will_cost>> Willpower)':
				cla & *nl
				$wl_homeless['like'] = 0
				killvar 'wl_temp'
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				'You purge the thoughts from your mind. Fucking the homeless is not something you will ever do again without being forced to.'

				act 'Leave': gt 'mod_wlife_warehouse', 'homeless_outside'
			end
		else
			act 'Resist your urges (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
		act 'Give in to your urges':
			*clr & cla
			minut += 2
			$wl_homeless['like'] = 2
			gs 'boystat', 'A910'
			gs 'arousal', 'foreplay', -6
			gs 'stat'
			'<center><video autoplay loop src="mod/wlife/images/prostitution/homeless/set_1/walk.mp4"></video></center>'
			'What are you doing? You ask yourself, when you turn around and '+iif(ShoHeels < 4, 'walk', 'click')+' back to him'+iif(ShoHeels < 4, '', ' on your heels')+'. Fucking him isn''t something you should do, but you can''t resist the burning desire between your legs anymore. "<<$wl_names[''street'']>>?" Adrian asks, when your shadow falls over his face. "I...," he stammers and moves his hand away from his cock.'
			'"Lets go inside," you tell him not wanting to get caught outside with him.'
			*nl
			'He''s way to drunk and horny to argue with you and with your help gets back up from the cold ground.'
			if wl_status['condoms'] > 0:
				'As you walk inside the building, you ask yourself if you should use a condom '+iif($wl_adrian['condom'] = 'yes', 'again', 'this time')+' or do it bareback '+iif($wl_adrian['condom'] = 'yes', 'this time.', 'again.')
				act 'Use a condom':
					$wl_homeless['condom'] = 'yes'
					gs 'mod_wlife_functions', 'remove_condom'
					gt 'mod_wlife_punishment_sex', 'adrian_bad'
				end

				gs 'mod_wlife_functions', 'will_unprotected', 'self', iif(alko > 5, 'easy', 'hard')
				if will_cost <= pcs_willpwr:
					act 'Don''t use a condom (<<will_cost>> Willpower)':
						$wl_homeless['condom'] = 'no'
						gs 'willpower', 'pay', 'self'
						gt 'mod_wlife_punishment_sex', 'adrian_bad'
					end
				else
					act 'Don''t use a condom (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
				end
			else
				'For a second you think about using a condom, but then you remember you don''t have any condoms with you and your only option is to fuck him raw.'
				$wl_homeless['condom'] = 'forgot'
				act 'Don''t use a condom': gt 'mod_wlife_punishment_sex', 'adrian_bad'
			end
		end
	else
		'Isn''t it sad that he''s all alone? That he will maybe never have anyone again in his life. A warm fuzzy feeling in your heart lets you take a step back towards him. You could be that person for today.'
		gs 'willpower', 'resist', 'hj', iif(wl_homeless['good'] > 4, 'hard', iif(wl_homeless['good'] > 2, 'medium', 'easy'))
		if will_cost <= pcs_willpwr:
			act 'Resist your feelings (<<will_cost>> Willpower)':
				cla & *nl
				$wl_homeless['like'] = 0
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				'You purge the thoughts from your mind. ''Helping'' the homeless is not something you will ever do again without being forced to.'

				act 'Leave': gt 'mod_wlife_warehouse', 'homeless_outside'
			end
		else
			act 'Resist your feelings (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
		act 'Help him':
			$wl_homeless['like'] = 1
			gt 'mod_wlife_punishment_sex', 'adrian_good'
		end
	end
end

!!------ Scene Selection ------

if $ARGS[0] = 'homeless_regular':
	if $wl_homeless['sex'] = 'freely':
		wl_homeless['counter_freely'] += 1
		if wl_bad['whip'] > 0 and rand(0,3) = 3: wl_bad['homeless_slut'] = 1 & wl_bad['status_punishment'] = 1
	else
		wl_homeless['counter_forced'] += 1
	end
	wl_homeless['timer'] = daystart
	wl_homeless_rand = rand(0,1)
	if wl_homeless['status'] = 2 or (wl_homeless['status'] > 3 and wl_homeless_rand = 0):
		gt 'mod_wlife_punishment', 'homeless_solo_0'
	elseif wl_homeless['status'] = 3 or (wl_homeless['status'] > 3 and wl_homeless_rand = 1):
		gt 'mod_wlife_punishment', 'homeless_threesome_0'
!!	elseif wl_homeless['status'] = 4 or (wl_homeless['status'] > 4 and wl_homeless_rand = 2)
!!		gt 'mod_wlife_punishment', 'homeless_adrian'
	end
end

!!------ Regular: Solo ------

if $ARGS[0] = 'homeless_solo_0':
	*clr & cla
	minut += rand(8,16)
	if wl_homeless['status'] < 3: wl_homeless['status'] = 3
	if $wl_homeless['like'] = 2: gs 'arousal', 'foreplay', -10, 'humiliation', iif($wl_homeless['scene'] ! 'forced', 'prostitution', '')
	gs 'stat'
	'<center><video autoplay loop src="mod/wlife/images/prostitution/homeless/set_2/start.mp4"></video></center>'
	'After a few minutes of walking around, you finally found a potential candidate. He''s alone and even if he smells like a public toilet, it''s still better than many of the other men you have seen today. Like most of them he''s drunk or high or both. Sprawled out on a dirty mattress he doesn''t really seem aware of his surroundings.'

	if $wl_homeless['sex'] ! 'forced':
		act 'Change your mind':
			if $wl_homeless['like'] = 2: gs 'arousal', 'end'
			gt 'mod_wlife_warehouse', 'homeless_outside'
		end
	else
		act 'Get on with it': gt 'mod_wlife_punishment', 'homeless_solo_1'
	end

	if $wl_homeless['like'] = 1 and $wl_homeless['sex'] ! 'forced':
		act 'Make him feel good': gt 'mod_wlife_punishment', 'homeless_solo_1'
	elseif $wl_homeless['like'] = 2 and $wl_homeless['sex'] ! 'forced':
		act 'Approach him':
			*clr & cla
			minut += 2
			wl_homeless['payment'] = rand(5,80)
			money += wl_homeless['payment']
			gs 'arousal', 'foreplay', -10, 'humiliation', 'prostitution'
			gs 'stat'
			'<center><video autoplay loop src="mod/wlife/images/prostitution/homeless/set_2/negotiation_'+rand(0,1)+'.mp4"></video></center>'
			'"Are you awake?" you say as you march in and when he doesn''t wake up you tap his side with your foot. "Hey? Can you hear me?"'
			'"What?" he frowns and looks up at you.'+iif($wl_homeless['counter'] < 10, '"Leave me alone!"', '"Oh... aren''t you that whore? Some of the other guys told me about you."')
			if $wl_homeless['counter'] < 10:
				'"Ok," you shrug. "Thought you might want to fuck, but if you don''t want to," you say in fake indifference and walk a few meters away.'
				'"What? Hey, babe come back. I didn''t mean it," he shouts after you. You stop, but don''t turn around, as if you have to think about it. "Fine," you finally say. "But you have to pay me."'
				'He scoffs. "Do I look like I can pay?" he asks. "I can give you...," he rummages inside his pants. "<<wl_homeless[''payment'']>> <b>₽</b>, I don''t have more," he says disappointed.'
			else
				'"Yeah, that''s me. How much do you got?"'
				'He rummages around in his stained pants and pulls a few rubles out.'+iif(rand(0,1) = 0, ' He slowly starts to count it and after nearly a minute says, "<<wl_homeless[''payment'']>> <b>₽</b>. ', ' He holds up the money without counting it. "')+'Is that enough?"'
			end
			'You fake thinking about it for a few seconds, but the warm tingling sensation between your legs is all the answer you need. "Yeah, that''s enough."'
			'"Really?" He slurs and a drunken grin takes shape on his face. "Sure, I take your dirty cock for it," you reply.'
			gs 'mod_wlife_punishment', 'homeless_solo_condom'
		end
	end
end

if $ARGS[0] = 'homeless_solo_1':
	*clr & cla
	minut += 2
	if $wl_homeless['like'] = 2: gs 'arousal', 'foreplay', -10, 'humiliation', iif($wl_homeless['sex'] ! 'forced', 'prostitution', '')
	gs 'stat'
	'<center><video autoplay loop src="mod/wlife/images/prostitution/homeless/set_2/undress.mp4"></video></center>'
	if rand(0,2) < 2:
		if ($wl_homeless['like'] = 1 and $wl_homeless['sex'] ! 'forced') or $wl_homeless['sex'] = 'forced':
			'You don''t take any chances, this is the one you''ll fuck today. You drop to your knees on the dirty mattress and grab his pants with both hands. That pulls him out of his doze and his eyes open wide in surprise as he sees you between his legs. "'+iif($wl_homeless['counter'] < 10, '"What''s happening?" he slurs, but doesn''t try to stop you. "It''s alright, I''m here to make you feel good. Just let it happen," you answer', '"Oh... aren''t you that chick? Some of the other guys told me about you. The one who fucks guys like us?" You nod')+' and try not to show your disgust. A drunken grin takes shape on his face, when he can''t believe his luck.'

			gs 'mod_wlife_punishment', 'homeless_solo_condom'
		else
			gt 'mod_wlife_punishment_sex', 'homeless_solo'
		end
	else
		if ($wl_homeless['like'] = 1 and $wl_homeless['sex'] ! 'forced') or $wl_homeless['sex'] = 'forced':
			'You don''t take any chances, this is the one you''ll fuck today. You drop to your knees on the dirty mattress and grab his pants with both hands. That pulls him out of his doze and his eyes open wide in surprise as he sees you between his legs. "'+iif($wl_homeless['counter'] < 10, '"What''s happening?" he slurs, but doesn''t try to stop you. "It''s alright, I''m here to make you feel good. Just let it happen," you answer', '"Oh... aren''t you that chick? Some of the other guys told me about you. The one who fucks guys like us?" You nod')+' and try not to show your disgust. A drunken grin takes shape on his face, when he can''t believe his luck.'
			'You are getting between his legs to pull down his pants, when he asks you, "could you kiss me?" The way he asks it of you is kinda sweet like a little boy who hasn''t found his confidence yet, but maybe living on the street without a job, without hope has destroyed every ounce of confidence he could ever build up in his life.'

			gs 'willpower', 'misc', 'resist', iif($wl_homeless['like'] = 1, 'hard', 'easy')
			if will_cost <= pcs_willpwr:
				act 'Don''t kiss him (<<will_cost>> Willpower)':
					cla & *nl
					if $wl_homeless['like'] = 1 and pcs_mood > 10: pcs_mood -= 10
					gs 'willpower', 'pay', 'resist'
					gs 'stat'
					'"Sorry, but kissing is something special I reserve for my only a very few in my life," you '+iif($wl_whore['kiss'] = 'yes', 'lie', 'say')+'. "It has nothing to do with you."'
					'He looks down clearly disappointed, but doesn''t say anything.'

					act 'Continue': gt 'mod_wlife_punishment_sex', 'homeless_solo'
				end
			else
				act 'Don''t kiss him (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end

			act 'Kiss him': gt 'mod_wlife_punishment', 'homeless_solo_kiss'
		else
			'You are getting between his legs to pull down his pants, when he asks you, "could you kiss me?" The way he asks it of you is kinda sweet like a little boy who hasn''t found his confidence yet, but maybe living on the street without a job, without hope destroy every ounce of confidence he could ever build up in his life.'

			gs 'willpower', 'prostitution', 'resist', iif($wl_whore['kiss'] = 'yes', 'hard', 'easy')
			if will_cost <= pcs_willpwr:
				act 'Don''t kiss him (<<will_cost>> Willpower)':
					cla & *nl
					gs 'willpower', 'pay', 'resist'
					gs 'stat'
					'"Sorry, but I don''t kiss customers," you '+iif($wl_whore['kiss'] = 'yes', 'lie', 'say')+'. "It has nothing to do with you, it''s a general rule."'
					'He looks down clearly disappointed, but doesn''t say anything.'

					act 'Continue': gt 'mod_wlife_punishment_sex', 'homeless_solo'
				end
			else
				act 'Don''t kiss him (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end

			act 'Kiss him': gt 'mod_wlife_punishment', 'homeless_solo_kiss'
		end
	end
end

if $ARGS[0] = 'homeless_solo_kiss':
	*clr & cla
	minut += 2
	wl_kiss_temp = 1
	if $wl_homeless['like'] = 2 and $wl_homeless['scene'] ! 'forced' and $wl_whore['kiss'] ! 'yes': $wl_whore['kiss'] = 'yes'
	gs 'arousal', 'kiss', iif($wl_homeless['like'] = 2, -10, -2), 'humiliation', iif($wl_homeless['sex'] ! 'forced' and $wl_homeless['like'] = 2, 'prostitution', '')
	gs 'stat'
	'<center><video autoplay loop src="mod/wlife/images/prostitution/homeless/set_2/kiss.mp4"></video></center>'
	'"Sure, '+iif($wl_homeless['like'] = 2 and $wl_homeless['scene'] ! 'forced', 'you paid for it','why not')+'," you reply and crawl the short distance to him. It''s only a kiss. You have already done worse with men like him. Can''t be so bad? You couldn''t have been more wrong. The breath odor is more than disgusting. He probably hasn''t seen a toothbrush or a dentist in the last year. You give him a quick peck on the lips, but that doesn''t seem to satisfy him. "No, that isn''t a kiss. Get back here," he commands you. Agreeing to his request seems to have given him some of his confidence back.'
	'You can''t explain it, but it just turns you on to be ordered around and do stuff that no normal decent girl would ever do in her life.'
	'This time you push your tongue inside his mouth. The assault on your taste buds is brutal. Alcohol and cigarettes are the more pleasant stuff you can taste. It''s a miracle how you manage to not retch and keep your cool. Each second feels like an eternity and you can bear with it for maybe three or four before you have to pull back.'

	act 'Continue': gt 'mod_wlife_punishment_sex', 'homeless_solo'
end

if $ARGS[0] = 'homeless_solo_condom':
	if wl_status['condoms'] > 0:
		act 'Use a condom':
			$wl_homeless['condom'] = 'yes'
			gs 'mod_wlife_functions', 'remove_condom'
			if $wl_homeless['sex'] ! 'forced' and $wl_homeless['like'] = 2:
				gt 'mod_wlife_punishment', 'homeless_solo_1'
			else
				gt 'mod_wlife_punishment_sex', 'homeless_solo'
			end
		end

		gs 'mod_wlife_functions', 'will_unprotected', 'self', iif($wl_homeless['counter'] >= 10, 'medium', 'hard')
		if will_cost <= pcs_willpwr:
			act 'Don''t use a condom (<<will_cost>> Willpower)':
				$wl_homeless['condom'] = 'no'
				gs 'willpower', 'pay', 'self'
				if $wl_homeless['sex'] ! 'forced' and $wl_homeless['like'] = 2:
					gt 'mod_wlife_punishment', 'homeless_solo_1'
				else
					gt 'mod_wlife_punishment_sex', 'homeless_solo'
				end
			end
		else
			act 'Don''t use a condom (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	else
		'You don''t have any condoms with you and your only option is to fuck him raw.'
		$wl_homeless['condom'] = 'forgot'
		if $wl_homeless['sex'] ! 'forced' and $wl_homeless['like'] = 1:
			act 'Leave':
				if wl_kiss_temp = 1: killvar 'wl_kiss_temp' & gs 'arousal', 'end'
				gt 'mod_wlife_warehouse', 'homeless_threesome'
			end

			gs 'mod_wlife_functions', 'will_unprotected', 'self', iif($wl_homeless['counter'] >= 10, 'medium', 'hard')
			if will_cost <= pcs_willpwr:
				act 'Don''t use a condom (<<will_cost>> Willpower)':
					gs 'willpower', 'pay', 'self'
					gt 'mod_wlife_punishment_sex', 'homeless_solo'
				end
			else
				act 'Don''t use a condom (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end
		elseif $wl_homeless['sex'] = 'forced' or $wl_homeless['like'] = 2:
			act 'Don''t use a condom':
				if $wl_homeless['sex'] ! 'forced' and $wl_homeless['like'] = 2:
					gt 'mod_wlife_punishment', 'homeless_solo_1'
				else
					gt 'mod_wlife_punishment_sex', 'homeless_solo'
				end
			end
		end
	end
end

!!------ Regular: Threesome ------

if $ARGS[0] = 'homeless_threesome_0':
	*clr & cla
	minut += rand(8,16)
	if rand(0,1) = 1:
		$wl_rand = 'ass'
	else
		$wl_rand = 'tits'
	end
	gs 'stat'
	'<center><video autoplay loop src="mod/wlife/images/prostitution/homeless/set_3/start_0.mp4"></video></center>'
	'You encounter two homeless people outside a closed store, when you walk towards the abandoned factory. "Damn, look at '+iif($wl_rand = 'ass', 'that ass', 'those tits')+'," one of the men says to the other as you pass them.'
	if $wl_homeless['like'] = 1:
		if pcs_mood < 80: pcs_mood += 20
		'You stop in your tracks'+iif(wl_homeless['status'] < 4, ' as an idea takes shape in your head. Should you help two at the same time? Would that really make a difference? You have already done it with one, wouldn''t two be more efficient than helping them one at a time?', '. You shrug and turn around. You have already helped two hobos at the same time. Why not do it again? It''s way more efficient than helping them one at a time.')
	elseif $wl_homeless['like'] = 2:
		if pcs_horny < 60: pcs_horny = 60
		'You stop in your tracks'+iif(wl_homeless['status'] < 4, ' as an idea takes shape in your head. Should you do it with two? Would that really make a difference? You have already done it with one, wouldn''t two only double the fun? A flash of heat emanates from your cunt at the thought of not only riding one but two hobo-cocks.', '. You have already done it with two hobos at the same time, you think with a shrug. There is no reason why you couldn''t do it again.')
	else
		'You stop in your tracks and sigh. They don''t look as horrible as some of the others'+iif(wl_homeless['status'] < 4, '.', ' and you already have done it with two hobos at the same time.')+' What''s worse? Two half-decent men or a potentially complete disgusting one? You sigh again and turn around.'
	end

	if $wl_homeless['sex'] ! 'forced':
		act 'Change your mind':
			if $wl_homeless['like'] = 2: gs 'arousal', 'end'
			gt 'mod_wlife_warehouse', 'homeless_outside'
		end
	else
		act 'Get on with it': gt 'mod_wlife_punishment', 'homeless_threesome_1'
	end

	if $wl_homeless['like'] = 1 and $wl_homeless['sex'] ! 'forced':
		act 'Make them feel good': gt 'mod_wlife_punishment', 'homeless_threesome_1'
	elseif $wl_homeless['like'] = 2 and $wl_homeless['sex'] ! 'forced':
		act 'Fuck them for a few rubles': gt 'mod_wlife_punishment', 'homeless_threesome_1'
	end
end

if $ARGS[0] = 'homeless_threesome_1':
	*clr & cla
	minut += 3
	if $wl_homeless['like'] = 2: gs 'arousal', 'foreplay', -6, 'humiliation', iif($wl_homeless['sex'] ! 'forced', 'prostitution', '')
	gs 'stat'
	'<center><video autoplay loop src="mod/wlife/images/prostitution/homeless/set_3/start_1.mp4"></video></center>'
	if $wl_homeless['like'] ! 2:
		'They look surprised, when you turn around and greet them with a '+iif($wl_homeless['like'] = 1, 'honest', 'forced')+' smile. "I can''t help but notice, you seem to like my '+iif($wl_rand = 'tits', 'tits', 'ass')+'," you say as you walk back to them. One of them looks '+iif($wl_homeless['counter'] < 10, 'down, clearly not confident enough to talk to you.', 'at you pensive as if he''s searching his memory for something.')+' The other one glowers at you. "And? Do you have a problem with that?"'
		iif($wl_homeless['counter'] < 10, '"Quite the contrary," you '+iif($wl_homeless['like'] = 0, 'lie', 'say')+'. "Do you want to take a closer look at '+iif($wl_rand = 'tits', 'them', 'it')+'?"', '. "Wait, wait," the other one stops him and puts his hand on his arm. "It''s her," he says and throws you an inquiring glance. "Aren''t you?" You nod. "Who?" the other one asks confused. "The girl who sleeps with guys like us."')
		'His eyes grow wide. "Really?" he asks not sure if '+iif($wl_homeless['counter'] < 10, 'you are', 'his friend is')+' serious. "If you don''t believe '+iif($wl_homeless['counter'] < 10, 'me', 'him')+', I can prove it to you. Do you have a more private place we can go to?"'
		'The men look at each other shrugging at the same time and it''s obvious what''s going on inside their heads. What do they have to lose? They point at a nearby building. "We can go there."'
	else
		iif($wl_rand = 'tits', 'You turn around and grab both of your tits with your hands.', 'You look over your shoulder and give your ass a hard slap.')+' "You like that?" you ask and flash a toothy grin, when they look at you with utter disbelieve.'
		iif($wl_homeless['counter'] < 10, '"What?" one of the guys asks confused. "I asked if you like what you see? You can have it if you want?"', '"Fuck, it''s her," one of the guys says. "You know, the girl that puts out for guys like us." The other guy looks at him as if he has lost his mind. "He is right, you know. You can have me if you want," you assure him.')
		if $wl_homeless['scene'] ! 'forced':
			wl_homeless['payment'] = rand(15,160)
			money += wl_homeless['payment']
			'"But it will cost you," you add and you can see the happiness drain from their eyes. You give them a reassuring smile. "Don''t worry, I''m cheap. How much do you guys have?" you ask, but already know that you''ll accept any offer they make. It doesn''t take them long to count the few rubles they have. "<<wl_homeless[''payment'']>>?"'
			'You take a second, but not to think about it, but to enjoy the feeling between your legs. Offering yourself for a few rubles has already made your pussy wet and ready to get pounded. "OK, hand it over," you finally reply and grab the money without counting it.'
		end
		'"Do you have a more private place we can go to?" you ask. The men look at each other, before pointing at a nearby building. "We can go there."'
	end
	killvar '$wl_rand'

	if wl_homeless['status'] < 4 or rand(0,2) = 2:
		act 'Wait for them to get up': gt 'mod_wlife_punishment', 'homeless_threesome_2a'
	else
		act 'Walk with them': gt 'mod_wlife_punishment', 'homeless_threesome_2b'
	end
end

if $ARGS[0] = 'homeless_threesome_2a':
	*clr & cla
	minut += 6
	if $wl_homeless['like'] = 2: gs 'arousal', 'foreplay', -12, 'humiliation', iif($wl_homeless['sex'] ! 'forced', 'prostitution', '')
	gs 'stat'
	'<center><video autoplay loop src="mod/wlife/images/prostitution/homeless/set_3/walk_0.mp4"></video></center>'
	'"Come on, get up," one of the guys says, when his friend takes way to long to collect his things.'+iif($wl_homeless['like'] = 2, ' You understand his impatiens. Your pussy screams to be filled and you can barely resist the urge to push your fingers into your own wetness.', iif($wl_homeless['like'] = 0, ' You can''t decide if you are annoyed by the delay or thankful for it. One half of you wants to get it done as quickly as possible, but the other half is glad for another second in which you don''t have to touch their unwashed bodies.', ' "Take all the time you need," you say and patiently wait for them to get ready to move. You''re here to help them and a bit of a delay doesn''t matter.'))

	act 'Walk with them': gt 'mod_wlife_punishment', 'homeless_threesome_2b'
end

if $ARGS[0] = 'homeless_threesome_2b':
	*clr & cla
	'<center><video autoplay loop src="mod/wlife/images/prostitution/homeless/set_3/walk_1.mp4"></video></center>'
	if $wl_homeless['like'] < 4 or rand(0,3) = 3:
		gs 'fame', 'pav', 'prostitute', rand(0,2)
		minut += 6
		if $wl_homeless['like'] = 2: gs 'arousal', 'foreplay', -12, 'humiliation', iif($wl_homeless['sex'] ! 'forced', 'prostitution', '')
		'It takes you way longer than expected to reach your destination. They were pointing in the general direction you had to go and not the nearby building. You have to listen to them chatting about what they are going to do with you and it''s utterly degrading'+iif($wl_homeless['like'] = 2, ', but at the same time turns you on like crazy', iif($wl_homeless['like'] = 1, ', but if helping them requires some discomfort, you are willing to endure it.', '.'))
		*nl
		'Several cars pass by as you walk through the streets of the industrial area and a jolt of panic'+iif($wl_homeless['like'] = 2, ' and arousal ', ' ')+'shots up your spin. Each time the same thoughts go through your head. Did they know you? Did they recognize you?'
		*nl
	else
		minut += 2
		if $wl_homeless['like'] = 2: gs 'arousal', 'foreplay', -4, 'humiliation', iif($wl_homeless['sex'] ! 'forced', 'prostitution', '')
	end
	gs 'stat'
	'The two homeless lead you through the courtyard of an old, but not abandoned apartment complex at the edge of the industrial area. "Are you sure about this?" you asks worried as you approach a back entrance. '+iif($wl_homeless['like'] = 2, 'Even if the thought turns you on, y', 'Y')+'ou really don''t want to get caught. "The door leads into the cellar. We are sleeping here for months, nobody ever goes down there," one of the guys reassures you while the other one sees something interesting in one of the nearby dumpsters. "Take a look at that, it''s still half full," he says and pulls out a '+iif(rand(0,1), 'vodka bottle', 'cigarette package')+'. The other guy immediately turns around, but you grab both of them and pull them towards the door. "The trash will still be here later," you say and hurry them inside to avoid prying eyes.'
	*nl

	if wl_status['condoms'] > 1:
		'As you follow them through the building deep into the cellar there is only one thing you have to decide. Do you use condoms?'
		act 'Use condoms':
			$wl_homeless['condom'] = 'yes'
			gs 'mod_wlife_functions', 'remove_condom'
			gs 'mod_wlife_functions', 'remove_condom'
			gt 'mod_wlife_punishment_sex', 'homeless_threesome'
		end

		gs 'mod_wlife_functions', 'will_unprotected', 'self', iif($wl_homeless['counter'] >= 10, 'medium', 'hard')
		if will_cost <= pcs_willpwr:
			act 'Don''t use condoms (<<will_cost>> Willpower)':
				$wl_homeless['condom'] = 'no'
				wl_stats['unprotected'] += 2
				gs 'willpower', 'pay', 'self'
				gt 'mod_wlife_punishment_sex', 'homeless_threesome'
			end
		else
			act 'Don''t use condoms (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	else
		'You don''t have enough condoms with you and your only option is to fuck them bareback.'
		$wl_homeless['condom'] = 'forgot'
		if $wl_homeless['sex'] ! 'forced' and $wl_homeless['like'] = 1:
			act 'Leave': gt 'mod_wlife_warehouse', 'homeless_outside'

			gs 'mod_wlife_functions', 'will_unprotected', 'self', iif($wl_homeless['counter'] >= 10, 'medium', 'hard')
			if will_cost <= pcs_willpwr:
				act 'Don''t use condoms (<<will_cost>> Willpower)':
					wl_stats['unprotected'] += 2
					gs 'willpower', 'pay', 'self'
					gt 'mod_wlife_punishment_sex', 'homeless_threesome'
				end
			else
				act 'Don''t use condoms (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end
		elseif $wl_homeless['sex'] = 'forced' or $wl_homeless['like'] = 2:
			act 'Don''t use condoms': gt 'mod_wlife_punishment_sex', 'homeless_threesome'
		end
	end
end

!!------ Whipping ------

if $ARGS[0] = 'whip_switch':
	minut += rand(25,35)
	wl_irina['punish_in_row'] += 1
	if wl_irina['punish_in_row'] = 1 and wl_irina['status'] > 2 and ((rand(0,2) = 2 and wl_irina['punish_status'] > 2) or wl_irina['punish_status'] = 0):
		gt 'mod_wlife_irina_punishment', 'whip_tits'
	else
		gt 'mod_wlife_irina_punishment', 'whip_pussy_0'
	end
end

--- mod_wlife_punishment ---------------------------------