TigorCat/locations/mod_public_WC_rab_talk.qsrc

# mod_public_WC_rab_talk
if $ARGS[0] = 'Artem':
	CLOSE ALL
	$menu_loc = 'mod_public_WC_rab'
	*clr & cla
	'<center><img <<$set_imgh>> src="mod/public_WC/lisrab/Artem/Artem.jpg"></center>'
	act 'Leave': gt $loc, $loc_arg

	if pcs_humint <= 40 or pcs_intel <= 50:
		act 'ask: How can I help you?':
			slova -= 5
			if slova < 0:
				gt 'mod_public_WC_kara', '0sliv'
			else
				gt 'mod_public_WC_rab_talk', 'Artem_task'
			end
		end
	end
	if pcs_humint <= 60 or pcs_intel <= 70:
		act 'ask: Do you need something?':
			slova -= 4
			if slova < 0:
				gt 'mod_public_WC_kara', '0sliv'
			else
				gt 'mod_public_WC_rab_talk', 'Artem_task'
			end
		end
	end
	if pcs_humint <= 80 or pcs_intel <= 90:
		act 'ask: You need something?':
			slova -= 3
			if slova < 0:
				gt 'mod_public_WC_kara', '0sliv'
			else
				gt 'mod_public_WC_rab_talk', 'Artem_task'
			end
		end
	end
	if pcs_humint > 80 or pcs_intel > 90:
		act 'ask: What to do?':
			slova -= 2
			if slova < 0:
				gt 'mod_public_WC_kara', '0sliv'
			else
				gt 'mod_public_WC_rab_talk', 'Artem_task'
			end
		end
	end
	If Alove >= 10 and Vania = 0 and Tolik = 0:
		act 'Honey, if you can''t use your cock, use your toungue.':
			minut += 10
			slova -= 9
			Alove += rand(1,5)
			if slova < 0:
				gt 'mod_public_WC_kara', '0sliv'
			else
				cla
				temp = rand (0,100)
				if temp + Alove >= 50:
					'Yes, let''s do this!'
					act 'Start undressing': gt 'mod_public_WC_rab_sex','Artemsecretcuni'
				else
					'No, I''m not sure I allowed to.'
					act 'Make an upset expression' : gt $loc, $loc_arg
				end
			end
		end
	end
	If Alove >= 20 and Vania = 0 and Tolik = 0:
		act 'Kiss him':
			'He kisses me back'
			Alove += rand(0,1)
			gs 'arousal', 'kiss', 10
			gs 'stat'
			gt $loc, $loc_arg
		end
		act 'Honey, lets do 69.':
			minut += 10
			cla
			temp = rand (0,100)
			if temp + Alove >= 50:
				Alove += rand(1,5)
				'Yes, let''s do this'
				act 'Start undressing Artem': gt 'mod_public_WC_rab_sex','Artemsecret69'
			else
				'No, I''m not sure I allowed to.'
				act 'Make an upset expression' : gt $loc, $loc_arg
			end
		end
	end

	If Alove >= 30 and Vania = 0 and Tolik = 0:
		act 'I don''t wanna hear anything, we will fuck!.':
			minut += 10
			Alove += rand(4,7)
			act 'Pounce on Artem' : gt 'mod_public_WC_rab_sex','Artemsecretsex'
		end

	elseIf Alove >= 30 and Avirgin = 0:
		If hour <= 10 or hour >= 19:
			act 'I don''t wanna hear anything, we will fuck! Let''s go to the storage, nobody there now.':
				minut += 10
				Alove += rand(4,7)
				*clr & cla
				dick = 18
				npc_dick[$npclastgenerated] = dick
				gs 'npcgeneratec', 0, 'Artem', 26
				$boy[0] = $npclastgenerated
				$boydesc[0] = $npc_usedname[$npclastgenerated]
				gs 'boyStat', $npclastgenerated
				temp = rand(1,10)
				'<center><video autoplay loop src="mod/public_WC/lisrab/alove/tease/skladsex.mp4"></video></center>'
				'I''ll hop on Artem!'
				stat['vaginal'] += 1

				guy += 1

				gs 'arousal', 'vaginal', rand(10,20)
				gs 'stat'
				temp = rand(1,4)
				if temp = 1: Alove += 1
				act 'Continue pleasure':
					*clr & cla
					temp = rand(1,24)
					'<center><video autoplay loop src="mod/public_WC/lisrab/tolik/2/tolik<<temp>>.mp4"></video></center>'
					'Oh yes!!! Artem, I''m so glad you decided!'
					gs 'sweat', 'add', 15
					spafinloc = 0
					cumnostd = 1
					cumarrkno =  1
					sparrvol = 20
					cumarrcpt = 20
					gs 'cum_call', 'vaginal', 'Artem'
					gs 'cuminsidereact', 'Artem'
					gs 'cum_manage'
					gs 'stat'
					act 'Freshen up' : gt 'mod_public_WC_rab', 'sklad'
				end
			end
		end
	end
	If Alove >= 50 and Vania = 0 and Tolik = 0:
		act 'Please make me free from this place.':
			'Of course, my love.'
			if week = 1 and hour > 6 and hour < 13:
				'I will lead you to the end of the forest near village Gadukino!'
				'Let''s go!'
				act 'Let''s go, my love':
					Alove -= 10
					minut += rand(45,80)
					if Tolik ! 4: Tolik = 0
					if Vania ! 4: Vania = 0
					if Artem ! 4: Artem  = 0
					gt 'gadforest', 'forest_outskirts'
				end
				act 'My love, we need some more time together':
					Alove += rand(1,4)
					'He kisses me back'
					gs 'arousal', 'kiss', 20
					gs 'stat'
					gt $loc, $loc_arg
				end
			else
				'Next monday you will be free.'
				'I will lead you to the end of the forest near village Gadukino!'
			end
		end
	end
	if Artemsecret = 1 and Vania = 0 and Tolik = 0:
		act 'Try to lure Artem to more than just a blow job.':
			minut += 10
			if succubusQW > 2:
				cla
				'He cannot resist my succubus spells. Artem rushes at me and undresses.'
				Alove += 20
				act 'continue': gt 'mod_public_WC_rab_sex','Artemsecretsex'
			else
				if exhibitionist_lvl > 1:
					act 'Flash your pussy':
						if pcs_apprnc >= 120: Alove += rand(2,3)
						menu_off = 1
						inhib_exp += 2
						gs 'flash', 'pussy', 'outdoors', 5
						gs 'stat'
						'What is it, what is it for?'
						act 'Smile' : gt $loc, $loc_arg
					end
				end
				act 'Playfuly ask "Why are you ignoring my pussy?"':
					slova -= 4
					if pcs_apprnc >= 120: Alove += rand(1,2)
					if slova < 0:
						gt 'mod_public_WC_kara', '0sliv'
					else
						cla
						'I do not ignore anything, you are not in my taste'
						act 'Smile' : gt $loc, $loc_arg
					end
				end
				if pcs_horny > 50 and pcs_inhib >= 60:
					act 'Lower the pants. Wet your finger in your juices and lick your finger in front of Artem':
						'Artem is confused'
						gs 'flash', 'pussy', 'outdoors', 1
						Alove += rand(0,1)
						if pcs_apprnc >= 120: Alove += rand(0,3)
						inhib_exp += 2
						pcs_horny += 10
						gs 'arousal', 'vaginal_finger', 3, 'exhibitionism', 'sub'
						gs 'stat'
						act 'Smile' : gt $loc, $loc_arg
					end
				end
			end
		end
	end
	if pcs_inhib >= 40:
		act 'tease Artem':
			minut += 3
			pcs_inhib += rand(0,1)
			gs 'flash', 'exhibitionism', 1
			gs 'stat'
			'<center><video autoplay loop src="mod/public_WC/lisrab/alove/tease/tease1.mp4"></video></center>'
			if pcs_apprnc >= 120:
				'Well, I like what I see'
				mood += rand(0,1)
				temp = rand(1,4)
				if temp = 1: Alove += 1
			else
				'Cover up, women'
				mood += rand(0,1)
			end
		end
	end
end

if $ARGS[0] = 'Vania':
	CLOSE ALL
	$menu_loc = 'mod_public_WC_rab'
	*clr & cla
	'<center><img <<$set_imgh>> src="mod/public_WC/lisrab/vania/vania.jpg"></center>'
	act 'Leave': gt $loc, $loc_arg

	if pcs_humint <= 40 or pcs_intel <= 50:
		act 'ask: How can I help you?':
			slova -= 5
			if slova < 0:
				gt 'mod_public_WC_kara', '0sliv'
			else
				gt 'mod_public_WC_rab_talk', 'Vania_task'
			end
		end
	end
	if pcs_humint <= 60 or pcs_intel <= 70:
		act 'ask: Do you need something?':
			slova -= 4
			if slova < 0:
				gt 'mod_public_WC_kara', '0sliv'
			else
				gt 'mod_public_WC_rab_talk', 'Vania_task'
			end
		end
	end
	if pcs_humint <= 80 or pcs_intel <= 90:
		act 'ask: You need something?':
			slova -= 3
			if slova < 0:
				gt 'mod_public_WC_kara', '0sliv'
			else
				gt 'mod_public_WC_rab_talk', 'Vania_task'
			end
		end
	end
	if pcs_humint > 80 or pcs_intel > 90:
		act 'ask: What to do?':
			slova -= 2
			if slova < 0:
				gt 'mod_public_WC_kara', '0sliv'
			else
				gt 'mod_public_WC_rab_talk', 'Vania_task'
			end
		end
	end
	if siga <= 0:
		act 'Ask Vanya for a cigarette':
			cla
			'<center><img <<$set_imgh>> src="mod/public_WC/lisrab/vania/vania.jpg"></center>'
			'"Give me a cigarette?"'
			slova -= 3
			if slova < 0: gt 'mod_public_WC_kara', '0sliv'
			'Of course, but you need to pay. He gives a cigarette.'
			act 'take it and smoke':
				*clr & cla
				'<center><img <<$set_imgh>> src="mod/public_WC/lisrab/r_events/13_smoke/take.jpg"></center>'
				minut += 2
				siga += 1
				gs 'drugs','smoke'
				gs 'stat'
				'Vania undress his pants. Stroke his dick few times and say: "Suck it".'
				act 'Start to suck':
					*clr & cla
					'<center><video autoplay loop src="mod/public_WC/lisrab/r_events/13_smoke/pay.mp4"></video></center>'
					gs 'arousal', 'bj', rand(8,15), 'sub', 'rough'

					stat['bj'] += 1
					gs 'stat'
					act 'continue':
						*clr & cla
						'<center><img <<$set_imgh>> src="mod/public_WC/lisrab/r_events/13_smoke/fin ('+rand(1,2)+').jpg"></center>'
						spafinloc = 12
						gs 'cum_manage'
						spafinloc = 11
						gs 'cum_manage'
						gs 'stat'
						act 'finish my cigarette':
							*clr & cla
							'<center><img <<$set_imgh>> src="mod/public_WC/lisrab/r_events/13_smoke/smoke.jpg"></center>'
							act 'continue': gt $loc, $loc_arg
						end
					end
				end
			end
			act 'leave it': gt $loc, $loc_arg
		end
	end
	if pcs_inhib >= 40:
		act 'tease Vania':
			*clr & cla
			minut += 3
			pcs_inhib += rand(0,1)
			gs 'flash', 'exhibitionism', 1
			gs 'stat'
			temp = rand(1,3)
			if temp = 1:
				'<center><img <<$set_imgh>> src="mod/public_WC/lisrab/alove/tease/teasel1.jpg"></center>'
			else
				'<center><video autoplay loop src="mod/public_WC/lisrab/alove/tease/teasel<<temp>>.mp4"></video></center>'
			end
			'"Ow, yes!" Vania jump on me and starts to undress me.'
			act 'continue': gt 'mod_public_WC_rab_sex', 'Vaniasex'
		end
	end

	if vurok = 0:
		gs 'willpower', 'humiliation', 'self', 'hard'
		if will_cost <= pcs_willpwr:
			act 'I want you to be my master Master (<<will_cost>> Willpower)':
				cla
				gs 'willpower', 'pay', 'self'
				gs 'stat'

				'Vania greens and I see some evil flame in his eyes'
				'"Betsi, I am going to make you a perfect woman!"'

				act 'Go with Vania': gt 'mod_public_WC_rab_Mayster', 'start'
			end
		else
			act 'I want you to be my master Master (<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

if $ARGS[0] = 'Tolik':
	CLOSE ALL
	$menu_loc = 'mod_public_WC_rab'
	*clr & cla
	'<center><img <<$set_imgh>> src="mod/public_WC/lisrab/tolik/tolik.jpg"></center>'
	act 'Leave': gt $loc, $loc_arg

	if pcs_humint <= 40 or pcs_intel <= 50:
		act 'ask: How can I help you?':
			slova -= 5
			if slova < 0:
				gt 'mod_public_WC_kara', '0sliv'
			else
				gt 'mod_public_WC_rab_talk', 'Tolik_task'
			end
		end
	end
	if pcs_humint <= 60 or pcs_intel <= 70:
		act 'ask: Do you need something?':
			slova -= 4
			if slova < 0:
				gt 'mod_public_WC_kara', '0sliv'
			else
				gt 'mod_public_WC_rab_talk', 'Tolik_task'
			end
		end
	end
	if pcs_humint <= 80 or pcs_intel <= 90:
		act 'ask: You need something?':
			slova -= 3
			if slova < 0:
				gt 'mod_public_WC_kara', '0sliv'
			else
				gt 'mod_public_WC_rab_talk', 'Tolik_task'
			end
		end
	end
	if pcs_humint > 80 or pcs_intel > 90:
		act 'ask: What to do?':
			slova -= 2
			if slova < 0:
				gt 'mod_public_WC_kara', '0sliv'
			else
				gt 'mod_public_WC_rab_talk', 'Tolik_task'
			end
		end
	end
	if pcs_inhib >= 40:
		act 'tease Tolik':
			minut += 3
			pcs_inhib += rand(0,1)
			gs 'flash', 'exhibitionism', 1
			gs 'stat'
			'<center><video autoplay loop src="mod/public_WC/lisrab/alove/tease/tease1.mp4"></video></center>'
			'"Cover up, women! You aren''t whore!", Tolik slaps me.'
			mood -= rand(5,10)
			brak += 1
			gs 'pain', 1, 'cheeks', 'slap'
		end
	end
end

if $ARGS[0] = 'Artem_task':
	CLOSE ALL
	$menu_loc = 'mod_public_WC_rab'
	cla
	temp = rand (1,3)
	if temp = 1: pcs_humint += 1
	temp = rand(0,100)
	if temp >= 50:
		*clr & cla
		'Yes, I need help!'
		temp= rand(1,6)
		'<center><video autoplay loop src="mod/public_WC/lisrab/need_help/c<<temp>>.mp4"></video></center>'
		'I started to do what he needs.'
		act 'Go further': gt 'mod_public_WC_rab_sex', 'start'
	else
		temp = rand (1,3)
		if firstclean = 2: temp = rand (1,4)
		if temp = 1:
			if task1 < 1:
				'Chopp some woods'
				task1 = 1
			else
				temp += 1
			end
		end
		if temp = 2:
			if task2 < 1:
				'Wash the dishes'
				task2 = 1
			else
				temp += 1
			end
		end
		if temp = 3:
			if task3 < 1:
				'Make something to eat today'
				task3 = 1
			else
				temp += 1
			end
		end
		if temp = 4:
			if task6 < 1:
				'Clean the yard'
				task6 = 1
			else
				temp += 1
			end
		end
		if temp = 5:
			'I have no tasks for you'
		end


		if pcs_humint <= 40 or pcs_intel <= 50 and temp ! 5:
			act 'Ok, I will do':
				slova -= 3
				if slova < 0:
					gt 'mod_public_WC_kara', '0sliv'
				else
					gt $loc, $loc_arg
				end
			end
		end
		if pcs_humint <= 60 or pcs_intel <= 70 and temp ! 5:
			act 'Ok, I''ll do':
				slova -= 3
				if slova < 0:
					gt 'mod_public_WC_kara', '0sliv'
				else
					gt $loc, $loc_arg
				end
			end
		end
		if pcs_humint <= 80 or pcs_intel <= 90:
			act 'Ok':
				slova -= 1
				if slova < 0:
					gt 'mod_public_WC_kara', '0sliv'
				else
					gt $loc, $loc_arg
				end
			end
		elseif temp = 5:
			act 'Ok':
				slova -= 1
				if slova < 0:
					gt 'mod_public_WC_kara', '0sliv'
				else
					gt $loc, $loc_arg
				end
			end
		end
		if pcs_humint > 80 or pcs_intel > 90:
			act 'Nod "yes"':
				slova -= 0
				if slova < 0:
					gt 'mod_public_WC_kara', '0sliv'
				else
					gt $loc, $loc_arg
				end
			end
		end
	end
end

if $ARGS[0] = 'Vania_task':
	CLOSE ALL
	$menu_loc = 'mod_public_WC_rab'
	cla
	temp = rand (1,3)
	if temp = 1: pcs_humint += 1
	temp = rand(0,100)
	if temp >= 20:
		*clr & cla
		'Yes, I need help!'
		temp= rand(1,6)
		'<center><video autoplay loop src="mod/public_WC/lisrab/need_help/c<<temp>>.mp4"></video></center>'
		'I started to do what he needs.'
		act 'Go further': gt 'mod_public_WC_rab_sex', 'start'
	else
		'Make something to eat'
		if task3 = 0:
			task3 = 1
		end
		if pcs_humint <= 40 or pcs_intel <= 50:
			act 'Oh, I will do':
				slova -= 3
				if slova < 0:
					gt 'mod_public_WC_kara', '0sliv'
				else
					gt $loc, $loc_arg
				end
			end
		end
		if pcs_humint <= 60 or pcs_intel <= 70:
			act 'Ok, I''ll do':
				slova -= 3
				if slova < 0:
					gt 'mod_public_WC_kara', '0sliv'
				else
					gt $loc, $loc_arg
				end
			end
		end
		if pcs_humint <= 80 or pcs_intel <= 90:
			act 'Ok':
				slova -= 1
				if slova < 0:
					gt 'mod_public_WC_kara', '0sliv'
				else
					gt $loc, $loc_arg
				end
			end
		end
		if pcs_humint > 80 or pcs_intel > 90:
			act 'Nod "yes"':
				slova -= 0
				if slova < 0:
					gt 'mod_public_WC_kara', '0sliv'
				else
					gt $loc, $loc_arg
				end
			end
		end
	end
end

if $ARGS[0] = 'Tolik_task':
	CLOSE ALL
	$menu_loc = 'mod_public_WC_rab'
	cla
	temp = rand (1,3)
	if temp = 1: pcs_humint += 1
	temp = rand(0,100)
	if temp >= 80:
		*clr & cla
		'Yes, I need help!'
		temp= rand(1,6)
		'<center><video autoplay loop src="mod/public_WC/lisrab/need_help/c<<temp>>.mp4"></video></center>'
		'I started to do what he needs.'
		act 'Go further': gt 'mod_public_WC_rab_sex', 'start'
	else
		temp = rand (1,6)
		if temp = 6: temp = 7
		if firstclean = 2: temp = rand (1,7)


		if temp = 1:
			if task1 >= 1: temp += 1
		end
		if temp = 2:
			if task2 >= 1: temp += 1
		end
		if temp = 3:
			if task3 >= 1: temp += 1
		end
		if temp = 4:
			if task4 >= 1: temp += 1
		end
		if temp = 5:
			if month >= 5 and month <= 9:
				if task5 >= 1: temp += 1
			else
				temp += 1
			end
		end
		if temp = 6:
			if task6 >= 1: temp += 1
		end
		if temp = 7:
			if task7 >= 1: temp += 1
		end


		if temp = 1:
			'Chopp some woods'
			task1 = 1
		elseif temp = 2:
			'Wash the dishes'
			task2 = 1
		elseif temp =3:
			'Make something to eat today'
			task3 = 1
		elseif temp =4:
			if pcs_sewng >= 55:
				'Made a shirt for me'
				tkan += 15
				task4 = 1
			else
				'Make something to eat today'
				task3 = 1
			end
		elseif temp =5:
			'Gather grapes'
			task5 = 1
		elseif temp =6:
			'Clean the yard'
			task6 = 1
		elseif temp =7:
			'Wash our clothes'
			task7 = 1
		elseif temp = 8:
			'I don''t know what task to give you right now, Betsi. But I like your effort.'
			slova += 5
		end

		if pcs_humint <= 40 or pcs_intel <= 50 and temp ! 7:
			act 'Oh, I will do':
				slova -= 3
				if slova < 0:
					gt 'mod_public_WC_kara', '0sliv'
				else
					gt $loc, $loc_arg
				end
			end
		end
		if pcs_humint <= 60 or pcs_intel <= 70 and temp ! 7:
			act 'Ok, I''ll do':
				slova -= 3
				if slova < 0:
					gt 'mod_public_WC_kara', '0sliv'
				else
					gt $loc, $loc_arg
				end
			end
		end
		if pcs_humint <= 80 or pcs_intel <= 90:
			act 'Ok':
				slova -= 1
				if slova < 0:
					gt 'mod_public_WC_kara', '0sliv'
				else
					gt $loc, $loc_arg
				end
			end
		elseif temp = 7:
			act 'Ok':
				slova -= 1
				if slova < 0:
					gt 'mod_public_WC_kara', '0sliv'
				else
					gt $loc, $loc_arg
				end
			end
		end
		if pcs_humint > 80 or pcs_intel > 90:
			act 'Nod "yes"':
				slova -= 0
				if slova < 0:
					gt 'mod_public_WC_kara', '0sliv'
				else
					gt $loc, $loc_arg
				end
			end
		end
	end
end

--- mod_public_WC_rab_talk ---------------------------------