WLife-New/locations/mod_wlife_thoughts.qsrc

# mod_wlife_thoughts

if $ARGS[0] = 'whore_0':
	*clr & cla
	minut += 1
	menu_off = 1
	wl_thought['timer'] = daystart
	wl_thought['timer_whore'] = daystart + rand(5,7)
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/bed.jpg"></center>'
	'So much has happened to you in the last weeks that your mind keeps wandering back to everything that happened.'
	'As you''re lying in bed you remember the fateful day when your life had changed and you met Vadim Bely in the streets of Pavlovsk.'

	gs 'willpower', 'misc', 'self', 'hard'
	if will_cost <= pcs_willpwr:
		act 'Try to suppress the memory (<<will_cost>> Willpower)':
			cla & *nl
			minut += 5
			if pcs_mood > 5: pcs_mood = 5
			gs 'willpower', 'pay', 'self'
			gs 'stat'
			'No, you don''t want to think about that and try to force yourself to think about something else, something nice. It''s dragging down your mood, but after a few minutes you have successfully pushed the thought aside. You can still feel it lurking in the depths of your mind and it won''t stay suppressed forever.'
			act 'Continue': gt $loc, $loc_arg
		end
	else
		act 'Try to suppress the memory (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end

	if wl_pictures['start'] = 1:
		act 'Look at the picture on your phone': gt 'mod_wlife_thoughts', 'whore_1', 'picture_yes'
	else
		act 'Think about that day': gt 'mod_wlife_thoughts', 'whore_1', 'picture_no'
	end
end

if $ARGS[0] = 'whore_1':
	*clr & cla
	minut += 1
	wl_thought['whore'] = 1
	gs 'stat'
	if $ARGS[1] = 'picture_yes':
		'<center><img <<$set_imgh>> src="mod/wlife/images/sex/story/start/start.jpg"></center>'
		'You take your phone and open the image an unknown number sent to you the day after your ordeal in the warehouse.'
		'It''s different living through the event and to see yourself getting degraded like this.'
	else
		'<center><img <<$set_imgh>> src="mod/wlife/images/player/bed.jpg"></center>'
	end
	'The roughness of the sex, the pain, how they treated you, everything comes back to you and for a moment you can see every detail of that day clearly before your inner eye. It was degrading and humiliating to be passed around like a toy and get marked as a whore. As if you''re one, you think, but the annoying tiny voice in your head sows doubt immediately. You have now worked several times at the gas station and doesn''t that make everything they wrote on your body true? '+iif(wl_whore['shifts_total'] > wl_whore['shifts_total_minimum'], 'You even worked more shifts than they required of you. They didn''t force you to go there when you didn''t have to.', 'No! You tell yourself. You have only worked the bare minimum and never did more than what they forced you to do.')
	*nl
	'In the end you wrestle with yourself about one question that all of your thoughts boil down to: Is the degrading stuff they wrote on you true or not?'

	act 'No, that''s not the real you':
		cla & *nl
		minut += 1
		pcs_mood = 100
		wl_stats['acceptance'] -= 2
		'"No," you whisper. It''s not true. You aren''t a whore and you have to keep reminding yourself of that fact.'
		'You don''t feel better about your situation, but about yourself.'

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

	act 'Yes, that''s the real you':
		cla & *nl
		minut += 1
		if pcs_mood > 5: pcs_mood = 5
		wl_stats['acceptance'] += 3
		'Yes it is, you have become a whore and even so, nobody can see the degrading writing anymore, it feels like it''s still there.'
		'You don''t feel better about yourself, but you accept your new role and the situation you''re in a little bit more.'

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

if $ARGS[0] = 'pissing':
	*clr & cla
	minut += 1
	menu_off = 1
	wl_thought['timer'] = daystart
	wl_thought['timer_pissing'] = daystart + rand(5,7)
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/bed.jpg"></center>'
	'The moment you lay down in bed images from your first visit at the gynecologist rise up from the unconscious part of your mind. Especially memories of the moment, when he watched you urinating.'

	gs 'willpower', 'misc', 'self', 'hard'
	if will_cost <= pcs_willpwr:
		act 'Try to suppress the memory (<<will_cost>> Willpower)':
			cla & *nl
			minut += 5
			if pcs_mood > 5: pcs_mood = 5
			gs 'willpower', 'pay', 'self'
			gs 'stat'
			'No, you don''t want to think about that and try to force yourself to think about something else, something nice. It''s dragging down your mood, but after a few minutes you have successfully pushed the thought aside. You can still feel it lurking in the depths of your mind and it won''t stay suppressed forever.'

			act 'Continue': gt $loc, $loc_arg
		end
	else
		act 'Try to suppress the memory (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end

	act 'Remember it':
		*clr & cla
		minut += 5
		wl_thought['pissing'] = 1
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/wlife/images/locations/clinic/pissing.jpg"></center>'
		'He watched you pee and for a moment it''s like you can feel his burning gaze on you. It was so humiliating to be watched while doing such a private thing. You can feel a blush creeping up your neck and your cheeks turning warm at the mere thought of it. At the same time your pussy...'

		act '... doesn''t react at all (Dislike it)':
			cla & *nl
			$wl_fetish['pissing'] = 'no'
			'... doesn''t react at all. If it happens again you''ll hold your nose and go through with it if you have no other choice, but it isn''t turning you on in any way.'

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

		act '... tingles pleasantly (Like it)':
			cla & *nl
			$wl_fetish['pissing'] = 'yes'
			if pcs_horny < 40: pcs_horny += 40
			gs 'stat'
			'... tingles pleasantly. Your pussy is wet just from thinking about it. It''s such a humiliating act and you may have never thought about it before, but you can''t deny the fact that you feel aroused by the thought of somebody watching you piss.'

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

if $ARGS[0] = 'rim_whore':
	*clr & cla
	minut += 1
	menu_off = 1
	wl_thought['timer'] = daystart
	wl_thought['rimjob'] = 2
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/bed.jpg"></center>'
	'When you lie down in bed the question you have avoided all day pops into your mind and this time you can''t seem to ignore it again.'

	act 'Remember it':
		*clr & cla
		minut += 5
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/wlife/images/prostitution/normal/sex/rimjob/rimjob.jpg"></center>'
		'You gave a stranger a rimjob... again. Not for the first time, not even for the second time, but for the third time. The Bely''s forced you to be a street whore, but not a hooker that licks her clients assholes. You decided to become that all on your own. You sigh and shake your head in disbeliefe about your own behavior. Why didn''t you say no? What in gods name made you stick out your tongue and lick an asshole.... an asshole... You shake your head again and let out a frustrated groan. It was the money! It has to be the money. You tell yourself. But was it?'

		act 'Yes, it was the money (Dislike it)':
			cla & *nl
			$wl_fetish['rimjob'] = 'no'
			'It''s the money and self preservation plays a role as well. It''s always a good idea to not piss off your client. If that means licking an asshole, you swallow your pride and do it.'

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

		act 'No, it was more than just the money (Like it)':
			cla & *nl
			$wl_fetish['rimjob'] = 'yes'
			if pcs_horny < 40: pcs_horny += 40
			gs 'stat'
			'You have to accept the fact that it was more than just the money that made you do it. It''s hard to face that fact, but you can''t lie to yourself. You hide so much from your family and friends, being honest with yourself is more important than ever. And the truth is: You like it. Sure the money is nice, but something inside you get''s turned on by the humiliating and degrading act of licking a strangers ass.'

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

if $ARGS[0] = 'ass_to_mouth':
	*clr & cla
	minut += 1
	menu_off = 1
	wl_thought['timer'] = daystart
	wl_thought['timer_atm'] = daystart + rand(5,7)
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/bed.jpg"></center>'
	'The moment you lay down in bed your mind conjures up images from one of your last shift at the highway. There was an ass, your tongue, your finger...'

	gs 'willpower', 'misc', 'self', 'hard'
	if will_cost <= pcs_willpwr:
		act 'Try to suppress the memory (<<will_cost>> Willpower)':
			cla & *nl
			minut += 5
			if pcs_mood > 5: pcs_mood = 5
			gs 'willpower', 'pay', 'self'
			gs 'stat'
			'No, you don''t want to think about that and try to force yourself to think about something else, something nice. It''s dragging down your mood, but after a few minutes you have successfully pushed the thought aside. You can still feel it lurking in the depths of your mind and it won''t stay suppressed forever.'

			act 'Continue': gt $loc, $loc_arg
		end
	else
		act 'Try to suppress the memory (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end

	act 'Remember it':
		*clr & cla
		minut += 5
		wl_thought['atm'] = 2
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/wlife/images/prostitution/normal/sex/rimjob/finger.jpg"></center>'
		'Your right index finger touches your lips and you open your mouth to let it slip into it without really thinking about what you''re doing. Only when you swirl your tongue around it, you realize that you''re repeating what you did after rimming one of your last clients. "Shit," you mumble and look at your finger like it''s a foreign object. It was in some guys ass and in your mouth. What the fuck were you thinking? You ask yourself and wipe the saliva covered finger on the sheets. You should have done something similar, when you were with your client, instead of putting it into your mouth.'
		*nl
		'You lay on your bed for a few more minutes thinking about what you did. Is it really so bad? Your''re already rimming people for money'+iif($wl_fetish['rimjob'] = 'yes', ' and you even get turned on by it. Isn''t this the next logical step? You ask yourself.', ', but you don''t even like that. There is no way you would like ass-to-mouth if you hate giving somebody a rimjob.')

		act 'You hate it':
			cla & *nl
			$wl_fetish['atm'] = 'no'
			'There is no way in hell that something like this will ever turn you on. Doing it for money? Yes, fine that is something you can go along with, but that''s it.'

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

		if $wl_fetish['rimjob'] = 'yes':
			act 'You like it':
				cla & *nl
				$wl_fetish['atm'] = 'yes'
				if pcs_horny < 40: pcs_horny += 40
				gs 'stat'
				'You shrug. What''s the difference between licking an ass and taking something from it into your mouth? There isn''t for you. Your pussy even tingles a bit, when you think about a guy making you suck his dick, after fucking your ass.'

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

if $ARGS[0] = 'passport':
	*clr & cla
	minut += 1
	menu_off = 1
	wl_thought['passport'] = 1
	wl_thought['timer'] = daystart
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/passport_hold.jpg"></center>'
	'When you sit down on your bed, you remember the passport Volya gave you. You pull it out of your '+iif(bag = 1, 'purse', 'pocket')+' to take a closer look at it. If you hadn''t known that it''s fake, you would have assumed it''s real. There is no difference between this one and your real one. It even feels used like it was already a few years old and not brand new.'

	act 'Open it':
		*clr & cla
		minut += 5
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/wlife/images/player/passport_open.jpg"></center>'
		'You open it and take a more detailed look at your alter ego. Her name is <<$wl_names[''first'']>> <<$wl_names[''last'']>> and she was born on the 11th of April. It''s a bit strange to see your face next to a different name, but that represents your current situation quite well. Sometimes you have the feeling that there are two of you: The whore <<$wl_names[''first'']>> and your old self <<$pcs_firstname>>. Both share the same <<$pcs_haircol>> hair, <<$pcs_eyecol>> eyes, the same face and body. Suddenly a question pops into your mind. <i>Who am I really?</i>'
		*nl
		'You push the thought aside. The question is of course ridiculous. You are <<$pcs_firstname>> not the whore <<$wl_names[''first'']>>. <i>Or am I?</i> Annoyed with yourself you roll your eyes. "Shut up brain," you whisper to yourself. But the question doesn''t go away. It''s as if some part of you wants an answer. You roll the question around in your head. Who are you deep inside?'

		act '<<$pcs_firstname>>':
			cla & *nl
			minut += 1
			pcs_mood = 100
			wl_stats['acceptance'] -= 2
			'What a stupid thing to think about. You''re of course <<$pcs_firstname>>. You put the fake passport back inside your '+iif(bag = 1, 'purse', 'pocket')+' and don''t waste another second thinking about it.'

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

		act '<<$wl_names[''first'']>>':
			cla & *nl
			minut += 1
			if pcs_mood > 10: pcs_mood = 10
			wl_stats['acceptance'] += 3
			'You''re more her, the whore, than your old self, you finally admit to yourself. It doesn''t make yourself feel good to admit it, but you''re accepting your situation a bit more.'

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

if $ARGS[0] = 'volya_car_bj':
	*clr & cla
	minut += 1
	menu_off = 1
	wl_thought['timer'] = daystart
	wl_volya['status'] = 4
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/bed.jpg"></center>'
	'The events of the last few days rise up from your memories the moment you lie down and come to rest. You remember Volya and the blowjob you gave him in the car.'
	if npc_rel['A904'] < 30:
		'What have you done? You ask yourself and shake your head. At best you don''t like him, maybe even hate him'+iif($wl_virgin ! '', ' and it doesn''t matter that you already slept with him. That was to prepare yourself for your new line of work.', '.')
		'He''s one of Belys men, worse he''s your pimp and yes he promised to help you, but what has he really done? Ziltch! But when this is all true. Why did you do it? To be on good terms with him or is there some part of you that does like him?'
	elseif npc_rel['A904'] >= 30 and npc_rel['A904'] < 70:
		'What have you done? You ask yourself. It''s not as if you dislike him'+iif($wl_virgin ! '', ' and sure you have already slept with him, but that was a totally different situation. You had to get your virginity out of the way before you started working.', '.')+' But he''s your pimp now and is it really a good idea to get involved with him like that?'
	elseif npc_rel['A904'] >= 70:
		'Wasn''t it inevitable? You are quite fond of him'+iif($wl_virgin ! '', ' and you already slept with him.', '.')+' Wasn''t this the logical consequence? But he''s still part of Vadim''s gang and maybe it''s a bad idea to get involved with him?'
	end
	*nl
	'All your thoughts and doubts boil down to one simple question. How do you feel about Volya? Do you like him? Do you trust him? You ask yourself.'

	if npc_rel['A904'] <= 70:
		act 'You can''t stand the guy':
			cla & *nl
			wl_volya['relationship'] = 0
			'You can''t stand him and probably never will. You can''t put your finger on it, but there is something about him that prevents you from trusting him.'

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

	act 'He''s growing on you':
		cla & *nl
		wl_volya['relationship'] = 1
		'Maybe you were wrong about him. He promised to help you and even if he hasn''t done anything to help you yet, you''re starting to trust and like him.'

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

	if npc_rel['A904'] > 30:
		act 'You like him':
			cla & *nl
			wl_volya['relationship'] = 2
			'There is no question about it, you like and trust him. He will definitely help you.'

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

if $ARGS[0] = 'volya_car_sex':
	*clr & cla
	minut += 1
	menu_off = 1
	wl_thought['timer'] = daystart
	wl_volya['status'] = 6
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/bed.jpg"></center>'
	'One thing led to another and you slept with Volya.'

	act 'You don''t like him':
		cla & *nl
		wl_volya['relationship'] = 0
		'It''s all transactional. You keep him on your side, so that he''ll keep helping you. If that means sleeping with him on occasion, so be it. Sometimes the tiny nagging voice in your head asks you if you''re unfair to him, but you push it aside and ignore it.'

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

	act 'You do like him':
		cla & *nl
		wl_volya['relationship'] = 2
		'It''s time to acknowledge that you like him despite of who he works for. Sometimes the tiny nagging voice in your head asks you if you can really trust him, but you push it aside and ignore it.'

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

if $ARGS[0] = 'shura_bj':
	*clr & cla
	minut += 1
	menu_off = 1
	wl_thought['timer'] = daystart
	if wl_adrian['status'] < 3: wl_homeless['good'] += 1
	wl_shura['status'] = 10
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/bed.jpg"></center>'
	'Your mind wanders back to when you gave Shura a blowjob behind the warehouse. You '+iif(wl_shura['relationship'] = 0, 'didn''t like him,', 'weren''t overly fond of him')+' before it happened and you still aren''t quite sure how you feel about him. Was it just a pity fuck that you offered him after hearing the story about his former girlfriend or was it more than that? You ask yourself.'

	act 'Pity fuck':
		cla & *nl
		wl_shura['relationship'] = 0
		'You don''t have to think long before you reach a conclusion. You only took pity on him. Nothing more nothing less. He may be into you and wants more, but that isn''t a road you want to go down with him.'

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

	act 'More than that':
		cla & *nl
		wl_shura['relationship'] = 2
		'You don''t have to think long before you reach a conclusion. You like him even after all that has happened between you two, you can''t deny the fact that there is at least a friendship growing between you.'

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

if $ARGS[0] = 'piss_whore':
	*clr & cla
	minut += 1
	menu_off = 1
	wl_thought['timer'] = daystart
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/bed.jpg"></center>'
	'The moment you lay down in bed images from your last encounter with Iosif rise up inside your mind. There is especially one you can''t seem to shake.'

	act 'Remember it':
		*clr & cla
		'<center><img <<$set_imgh>> src="mod/wlife/images/sex/iosif/warehouse/piss_whore.jpg"></center>'
		'He pissed on you. The smell, the feeling of the warm liquid hitting your skin, everything of that moment returns for a second. At first you reacted shocked and disgusted and that''s...'

		act 'Still the case (Dislike it)':
			cla & *nl
			$wl_fetish['pissed_on'] = 'no'
			'... still the case. If it happens again you''ll hold your nose and go through with it if you have no other choice, but it isn''t turning you on in any way.'

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

		act 'Not the case anymore (Like it)':
			cla & *nl
			$wl_fetish['pissed_on'] = 'yes'
			if wl_adrian['status'] < 3: wl_homeless['bad'] += 2
			if pcs_horny < 100: pcs_horny = 100
			'... not the case anymore. You can feel it between your legs. Your pussy is wet just from thinking about it. It''s such a degrading act and maybe it''s your new life that''s slowly changing you, but you can''t deny the fact that you like it.'

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

if $ARGS[0] = 'homeless_aftermath':
	*clr & cla
	minut += 1
	menu_off = 1
	wl_adrian['timer'] = daystart + rand(2,5)
	wl_thought['timer'] = daystart
	wl_thought['homeless'] = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/bed.jpg"></center>'
	'Your mind wanders back to the time when you had sex with a homeless man. The smell, the feeling of him inside you returns for a second when you lay down on your bed. It was disgusting in so many ways, but... You push the thought away. There is no but in this situation. You don''t want to do it ever again.'
	'You try to think about something else, anything else, but you don''t seem to able to shake that one stray thought always finding a way back into your mind whenever you push it away. There was one small, one teeny-tiny nice thing. The rest was disgusting, vile and horrible! You have to remind yourself, but you still feel good about the man''s reaction. You gave him hope for a short time and a good memory for the rest of his messed up life. When he thought this '+iif($pcs_firstname = 'Sasha' or $pcs_nickname = 'Sasha', 'Tatiana', 'Sasha')+' was back, he couldn''t have been more happy. You sigh annoyed about yourself. As if that is going to make up for the fact of how disgusting that was... But was it? Not again! You think getting angry at yourself. What the fuck is wrong with you? But that can''t stop the other teeny-tiny voice in the back of your head from asking if that isn''t something you like and if you don''t want to go back there?'

	act 'No, absolutely not':
		cla & *nl
		wl_homeless['good'] -= 1
		wl_homeless['bad'] -= 1
		'Of course you don''t want to go back to this rotten place! What a stupid question to ask yourself. You will never do it again, unless Georgiy forces you to.'

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

	act 'No, but helping that man felt nice':
		cla & *nl
		wl_homeless['good'] += 1
		pcs_mood = 100
		gs 'stat'
		'OK, it felt nice to give him a good time. You finally acknowledge that warm and fuzzy feeling inside you, even if the whole situation was disgusting. It feels good to be the one small sliver of hope in his life, but that doesn''t mean you will ever go back there on your own...'

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

	act 'Maybe...':
		*clr & cla
		wl_homeless['bad'] += 1
		if pcs_horny < 60: pcs_horny = 60
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/wlife/images/player/pussy_wet.jpg"></center>'
		'"Shit," you murmur when you push your hand between your legs and feel wetness. This can''t be true? Can it? Does it really turn you on being degraded like this? You shake your head in disbeliefe and pull your hand back. It was disgusting and vile, you tell yourself several times, but that doesn''t stop the tingling sensation between your legs.'

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

if $ARGS[0] = 'sacha':
	*clr & cla
	minut += 1
	menu_off = 1
	wl_thought['timer'] = daystart
	wl_thought['sacha'] = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/bed.jpg"></center>'
	'You gave somebody a blowjob... for drugs. You don''t even want to think about it being somebody you knew before your life changed so dramatically. Isn''t it enough that you sell your body? Do you now have to do it for drugs? You ask yourself. Is there no line you will not cross? Is sex only a means to an end for you or was it wrong to kneel done in the dirt for some weed?'

	act 'No, all sex is transactional':
		cla & *nl
		wl_drugs['sex'] = 1
		wl_stats['acceptance'] += 3
		minut += 2
		gs 'stat'
		'Why should there be a difference? Sucking somebody off for money and then using it to pay for drugs is the same as sucking somebody off for drugs. Sex is just sex. It''s not like somebody got hurt. It was a simple mutual and beneficial transaction. Nothing more and nothing less. In the end it doesn''t matter if you fuck somebody for money, drugs, happiness or even love. It''s all transactional.'

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

	act 'Yes, it was wrong (blocks further sex with him for drugs)':
		cla & *nl
		wl_drugs['sex'] = -1
		wl_stats['acceptance'] -= 2
		minut += 2
		gs 'stat'
		'This was a line you shouldn''t have crossed. The Belys forced you into prostitution, but nobody pressured you into buying drugs and especially not to use your body to get it. In this moment you swear to yourself you''ll never use your body like this again. Fucking for money? Fine, you have to do it to survive, but you won''t do it again for drugs.'

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


if $ARGS[0] = 'BDSM':
	*clr & cla
	minut += 1
	menu_off = 1
	wl_thought['timer'] = daystart
	wl_thought['BDSM'] = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/bed.jpg"></center>'
	'You can''t stop yourself from thinking about what happened with Irina. The flogging, the pain, her, your arousal, all comes back in this moment. You remember how wet you became during your encounter with Irina. She told you, you would like the pain. But did you? Or did you get wet because of her?'

	act 'It was only Irina (Dislike BDSM)':
		cla & *nl
		$wl_fetish['BDSM'] = 'no'
		'It was her and only her. The pain was too much and if somebody else would have done it to you, you would have hated every second of it.'

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

	act 'It was both (Like BDSM)':
		*clr & cla
		$wl_fetish['BDSM'] = 'yes'
		if pcs_horny < 100: pcs_horny = 100
		'<center><video autoplay loop src="mod/wlife/images/punishment/whip/tits/escalation_3.mp4"></video></center>'
		'You grab your nipple and pinch it. The sharp pain forces the memories to the surface and for a moment you''re back at her place, chained to the ceiling, helpless and aroused like crazy by it. A low moan escapes your mouth, when you remember how your tits felt, how red they looked at the end and how exquisite every touch of Irina... No... how exquisite every touch of your Mistress was.'

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

--- mod_wlife_thoughts ---------------------------------