wlife/locations/mod_wlife_temp.qsrc

!!This file is to keep already written events that in the end didn''t fit the situation to maybe use them in some other part of the mod

!!------ Regular party ------
	
if $ARGS[0] = 'party_mingle':
	if wl_party['status'] = 2:
		wl_party['status'] = 3
!!ToDo: New slutty outfit comments
	else
		pcs_mood += rand(-2,4)
		minut += rand(20,40)

		wl_temp = rand(0,5)
		if wl_temp = 0 and wl_party['status'] = 1:
			
		elseif wl_temp = 1 and wl_party['status'] = 1:
				
		elseif (wl_temp = 2 or wl_temp = 3) and wl_party['status'] = 1:
			
		elseif wl_temp = 4 and wl_party['status'] = 1:
			
		elseif wl_temp = 5 and wl_party['status'] = 1:
			
		end
		
		wl_temp = rand(1,10)
		if wl_party['status'] = 0 or wl_temp < 8:
			act 'Continue': gt 'mod_wlife_demands', 'party_hub'
		elseif wl_temp = 8:	
			act 'Continue': gt 'mod_wlife_demands', 'party_tip'
		elseif wl_temp > 8:
			'<br>One of the guys takes the chance to approach you when you stand by yourself.' 
			act 'Talk to him': wl_temp = 0 & gt 'mod_wlife_demands', 'party_prost_act'	
		end
	end	
end

if $ARGS[0] = 'party_hub':
	*clr & cla
	killvar 'wl_temp'
	if wl_party['status'] = 0: 
		wl_party['status'] = 1
	elseif wl_party['status'] = 2: 
		wl_party['status'] = 3
	end
	'<center><img <<$set_imgh>> src="mod/wlife/images/prostitution/party/alone.jpg"></center>'
!!ToDo	
	*nl
!!ToDo: This text has to be expanded if more to do is added
	'You have a moment to yourself right now. You could just mingle with the boys, talk to them and see where that leads you. Or you could take a more aggressive approach and overtly flirt with them to offer your services. There is also an open bar where you could get a drink.'
	
	act 'Mingle': gt 'mod_wlife_demands', 'party_mingle'
	
	if wl_stats['acceptance'] < 60:
		if wl_stats['acceptance'] < 20:
			'<br>You haven''t accepted your live as a whore and are very hesitant to solicit one of the guys.'
			gs 'willpower', 'prostitution', 'self', 'hard'
		elseif wl_stats['acceptance'] < 40:
			'<br>You haven''t accepted your live as a whore, but you are slowly getting used to it and it get''s a bit easier to solicit one of the guys.'
			gs 'willpower', 'prostitution', 'self'
		else
			'<br>You haven''t fully accepted your live as a whore, but you are getting there. It''s easy to bring yourself to solicit one of the guys.'
			gs 'willpower', 'prostitution', 'self'
		end
		if will_cost <= pcs_willpwr:
			act 'Flirt (<<will_cost>> Willpower)': 
				gs 'willpower', 'pay', 'self'
				gt 'mod_wlife_demands', 'party_flirt'
			end
		else
			act 'Flirt <font color="red">(<<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
	else
		act 'Flirt': gt 'mod_wlife_demands', 'party_flirt'
	end
	act 'Go to the bar': gt 'mod_wlife_demands', 'party_bar'
	if hour = 23 or hour < 6: gt 'mod_wlife_demands', 'party_end'
end

if $ARGS[0] = 'party_flirt':
	*clr & cla
	minut += rand(20,40)
	wl_party_slut_counter += 1
	gs 'arousal', 'foreplay', -6
	gs 'arousal', 'end'
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/prostitution/party/mingle_'+rand(0,2)+'.jpg"></center>'
	'The whole time you walk around the room some part of you is touching one of the guys. Be it your hand that admiringly touches a musceled arm, your hips pushing into a groping hand or your whole body that stands a little to close to somebody. And when this isn''t obvious enough you dish out compliments spiced with sexual innuendo.'
	*nl
	wl_temp = rand(1,10)
	if wl_stats['respect'] < -60:
		wl_temp += rand(1,2)
		'They are clearly not surprised by your behaviour. It''s obvious that they think you''re nothing more than a total whore that fucks and does anything for money.'
	elseif wl_stats['respect'] < -30:
		wl_temp += 1
		'They aren''t surprised by your behaviour. It''s obvious that they think you''re a depraved slut that does mostly anything for the right price.'
	elseif wl_stats['respect'] < 30:
		if wl_stats['respect'] > 0:
			wl_temp -= rand(0,1)
		else
			wl_temp += rand(0,1)
		end
		'They aren''t sure what to think about your behaviour. It''s obvious that they believe you''re a cool chick that does what she has to do.'
	elseif wl_stats['respect'] < 60:
		wl_temp -= 1
		'They are a bit surprised by your behaviour. It''s obvious that they think you''re a good girl that is living this live not by choice.'
	else
		wl_temp -= rand(1,2)
		'They are clearly surprised by your behaviour. It''s obvious that they think you''re a decent woman that is doing this because she has too.'
	end
	if wl_temp < 5:
		'<br>This time you strike out. For the moment none of the guys seems to be interested in you.'
		act 'Continue': gt 'mod_wlife_demands', 'party_hub'
	else
		'<br>One of the guys is clearly interested in you and approaches you when you stand by yourself for a moment.' 
		act 'Talk to him': wl_temp = 1 & gt 'mod_wlife_demands', 'party_prost_act'	
	end
	killvar 'wl_temp'
end

if $ARGS[0] = 'party_bar':
	*clr & cla
	minut += 1
	gs 'stat'
!!Image path
		
end	

if $ARGS[0] = 'party_prost_act':	
!!ToDo: Random selection of one of the sex scenes

	if wl_temp = 0:
		gt 'mod_wlife_demands', 'party_prost_start'
	else
		gt 'mod_wlife_demands', 'party_prost_condom'
	end
end

if $ARGS[0] = 'party_prost_start':
	*clr & cla
	minut += rand(2,4)
	gs 'stat'
	'...'
	
	gs 'willpower', 'prostitution', 'resist', 'hard'
	if will_cost <= pcs_willpwr:
		act 'Shake your head (<<will_cost>> Willpower)':
			
		end
	else
		act 'Shake your head <font color="red">(<<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end
	act 'Accept': gt 'mod_wlife_demands', 'party_prost_condom'
end	
	
if $ARGS[0] = 'party_prost_condom':
	*clr & cla
	minut += rand(2,4)
	gs 'stat'

end

if $ARGS[0] = 'party_prost_end':
	*clr & cla
	minut += rand(2,4)
	gs 'stat'
!!ToDo: Money ... demand (1), poor girl (2), ignore (3)	

end

if $ARGS[0] = 'party_end':

!!ToDo: volya picks her up, maybe add the night fuck scene video in a car as a possible end for the evening, also equip your old clothes .. maybe undressing triggers sex
!!	gs 'clothing', 'wear_last_worn' and gs 'underwear', 'wear'

end








if $ARGS[0] = 'warehouse_prostitution':
	*clr & cla
	menu_off = 1
	minut += 2
	gs 'stat'
	if wl_gang['status'] = 1: wl_gang['status'] = 2
	gs 'mod_wlife_functions', 'rng'
	wl_temp = rand(1,10)
	if wl_temp <= 3:
		wl_gang['scene'] = 0
		wl_gang['boys'] = 1
	elseif wl_temp <= 6:	
		wl_gang['scene'] = 1
		wl_gang['boys'] = 1
	elseif wl_temp <= 8:	
		wl_gang['scene'] = 0
		wl_gang['boys'] = 2
	elseif wl_temp <= 10:	
		wl_gang['scene'] = 1
		wl_gang['boys'] = 2
	end	
	gs 'mod_wlife_functions', 'gang_prostitution', wl_gang['scene'], wl_gang['boys']
	killvar 'wl_temp'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/warehouse_guys.jpg"></center>'
	'The warehouse is full of guys, when you return from your weekly check-in with Georgiy. You only make it halfway through the hall before '+iif(wl_temp <= 6, 'a guy stops', 'two guys stop')+' you.'
	if wl_gang['counter'] > rand(4,20):
		if wl_temp <= 6:
			if rand(0,1) = 0:
				'You immediately recognize him as one of the guys that bought your services in the last few weeks. "Hi, <<$wl_boyname[1]>>," you greet the approaching man. "How are you?"'
				'"Hi <<pcs_nickname>>, I''m a bit stressed," he tells you and pulls out a few bills. "Are you free at the moment? I need to blow of some steam and I could really need a good time," he asks you.'
			else
				'"Hey <<$pcs_nickname>>," <<$wl_boyname[1]>> greets you. He''s one of the guys you serviced in the last weeks. "How about you, me and my cock in your '+iif(wl_rand <= 3, 'mouth', 'snatch')+'?" he ashs you with a boyish grin. "Doesn''t that sound like a great idea?"'
			end
		else
			if rand(0,1) = 0:
				'"Damn <<$pcs_nickname>>, long time no see," one of the guys says. "Hi <<$wl_boyname[1]>>, who is your friend?" you ask while the other guy looks at every inch of your body except your eyes. "<<$wl_boyname[2]>>, I told him what a great fuck you are. How about you don''t make me a liar and take care of us?"'
			else
				'"<<$wl_boyname[1], $wl_boyname[2], let me guess you wanna fuck me tonight?" you ask the two approaching men. "'+iif(wl_temp <= 8, 'No, we don''t have much time. Only a blowjob tonight.', 'Yeah, like always.')+'" <<$wl_boyname[1]>> says.' 
			end
		end
	else
		if wl_temp <= 6:
			if rand(0,2) < 2:
				'"Hey," the guy says. "I have seen you around for a few weeks now. Aren''t you Georgiy''s new whore?"'
				iif(wl_stats['acceptance'] > 60, 'You slightly shrug. "Yes," you answer. There is no point in denying what you are. "B', 'You sigh internally, but plaster a smile on your face. "Yeah, b')+'ut I prefer <<$pcs_nickname>> over whore."'
				'He grins. "Sure, <<$pcs_nickname>>. Maybe we should get together to know each other a bit better." You send him a questioning look, but you have no doubt what he''s about to demand from you. "Maybe my dick could meet your '+iif(wl_temp <= 6, 'your mouth?"', 'your pussy?"')			
			else
				'"Hi, I don''t think we have met yet," the man says and holds out his hand like a gentleman, "<<$wl_boyname[1]>>."'
				'"<<$pcs_nickname>>," you reply while shaking his hand. Your pleasant surprise about his behavior quickly vanishes, when he says. "I don''t know how to say it in a nice way, so I''ll just blurt it out. Are you up for some fun?"'
			end
		else
			if rand(0,1) = 0:
				'"You''re one of our girls...," one of the guys says with a sweet smile. "But I''m afraid I don''t know your name."'
				'"<<$pcs_nickname>>," you answer and respond with a smile of your own.'
				'"Nice to meet you <<$pcs_nickname>>. I''m <<$wl_boyname[1]>> and that''s <<$wl_boyname[2]>>."'
				iif(rand(0,1) = 0, '"Get to the point <<$wl_boyname[1]>>," <<$wl_boyname[2]>>) says rolling his eyes. "We want '+iif(wl_temp <= 6, 'you to blow us', 'to fuck you')+'."', '"Shut up <<$wl_boyname[1]>>, you don''t have to be so fucking nice to the whores," he tells his friend before shifting towards you. "So whore, do you want to earn some rubles?"')
			else
				'"Well, well...," one of the guys grins while their gazes wander over every inch of your body. "Who have we here?" the other one asks.'
				'"<<pcs_firstname>>, but you can call me <<pcs_nickname>>," you introduce yourself. '+iif(rand(0,1), '"Do you want something? I was on my way out."', '"Can I help you with something?"')
				'"Yeah, maybe <<pcs_nickname>>. You''re one of Georgiy''s girls, aren''t you?" he says directing his question towards your tits. You nod, but wonder if he can even see that with his gaze fixed on your goods. "How about you show us a good time?"'				
			end
		end
	end
	
	*nl
	'Number of clients: <<wl_gang[''boys'']>>'
	'Payment: <<wl_gang[''payment'']>> <b>₽</b>'
	'Act: '+iif(wl_client['scene'] = 0, 'Blowjob', 'Sex')
	
	if wl_gang['condom'] = 0:
		gs 'mod_wlife_functions', 'will_unprotected', 'self'
		if will_cost <= pcs_willpwr:
			act 'Insist on a condom (<<will_cost>> Willpower)':
				gs 'mod_wlife_functions', 'will_unprotected', 'self'
				gs 'willpower', 'pay', 'self'
				gt 'mod_wlife_gang', 'condom'
			end
		else
			act 'Insist on 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_gang['condom'] = 1:
		wl_gang['condom'] = 2
		'<br>You think about asking for a condom, but you quickly discard the idea after what happened last time.'
	end
	gs 'willpower', 'prostitution', 'self'
	if will_cost <= pcs_willpwr:
		act 'Demand more money (<<will_cost>> Willpower)':
			gs 'willpower', 'prostitution', 'self'
			gs 'willpower', 'pay', 'self'
			if (wl_gang['rand'] = 6 and rand(1,10) = 1) or (wl_gang['rand'] = 5 and rand(1,10) < 4) or (wl_gang['rand'] = 4 and rand(1,10) < 8) or (wl_gang['rand'] = 3 or rand(1,10) < 10):
				if wl_gang['scene'] = 0 and wl_gang['boys'] = 1:
					wl_gang['bonus'] = 50
				elseif (wl_gang['scene'] = 1 and and wl_gang['boys'] = 1) or (wl_gang['scene'] = 0 and wl_gang['boys'] = 2)
					wl_gang['bonus'] = 100
				else
					wl_gang['bonus'] = 200
				end
				gt 'mod_wlife_gang', 'warehouse_prostitution_success'
			else
				gt 'mod_wlife_gang', 'warehouse_prostitution_failure'		
			end
		end
	else
		act 'Demand more money (<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_stats['acceptance'] > 60:
		gs 'willpower', 'prostitution', 'self', 'hard'
	elseif wl_stats['acceptance'] > 30:
		gs 'willpower', 'prostitution', 'self', 'medium'
	else
		gs 'willpower', 'prostitution', 'self', 'easy'
	end
	if will_cost <= pcs_willpwr:
		act 'Decline (<<will_cost>> Willpower)': 
			minut += 1
			wl_stats['respect'] += rand(0,1)
			gs 'willpower', 'pay', 'resist'
			gs 'stat'
			if wl_gang['decline'] = 0:
				cla & *nl
				wl_stats['respect'] += 1
				wl_gang['decline'] = 1
				'You shake your head and send '+iif(wl_gang['boys'] = 1, 'him', 'them')+' an apologetic smile as you explain to them that you aren''t working tonight. '+iif(wl_gang['boys'] = 1, 'He grumbles', 'They grumble')+' a bit, clearly disappointed by your decision, but you get the feeling that declining the opportunity to sell yourself earned you some respect with '+iif(wl_gang['boys'] = 1, 'him', 'them')+'.'
			
				act 'Leave': gt 'mod_wlife_warehouse', 'street'
			else
				gt 'mod_wlife_warehouse', 'street'
			end
		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 'Accept':
		wl_gang['bonus'] = 0
		gt 'mod_wlife_gang', 'warehouse_prostitution_success'
	end
end

if $ARGS[0] = 'warehouse_prostitution_success':
	*clr & cla
	minut += 1
	wl_stats['respect'] += wl_gang['respect']
	money += wl_gang['payment']
	money += wl_gang['bonus']
	gs 'stat'
		
!!ToDo: Text 		
	act 'Follow them': gt 'mod_wlife_gang_sex', 'warehouse_prostitution_start'
end

if $ARGS[0] = 'warehouse_prostitution_failure':
	*clr & cla
	minut += 1
	gs 'stat'
!!ToDo: Finish	
end

if $ARGS[0] = 'condom':
	*clr & cla
	minut += 2
	wl_stats['respect'] += 2
	wl_stats['loyalty'] -= 5
	wl_nicholai['condom'] = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/player/warehouse_guys.jpg"></center>'
	'The second you mention condoms you want to snatch your words out of the air and swallow them back down. "A condom?" He frowns and anger flares up inside his eyes. He seems deeply offended by the question. "Why? Do I look like some diseased fuck?"'
	'"No, no... of course not," you hastily reply. "I would never assume that. It''s just my routine to use a condom," you '+iif(wl_stats['unprotected'] > 20, 'lie', 'say')+', but that explanation doesn''t seem to satisfy him. He angrily shakes his head and points his finger at you. "Maybe the cheap street whore should shut the fuck up, get off her high horse and be glad that she doesn''t have to fuck some unwashed trucker for a change," he growls and walks away before you can say another word.'
	
	act 'Leave the warehouse': minut += 1 & gt 'mod_wlife_warehouse', 'street'
end