iWhore/locations/mod_iwhore.qsrc

# mod_iwhore
!input mod entry point here. this will be checked on every location, please keep it clean and brief to avoid game lag

!pav_residential BEGIN
if $curloc = 'pav_residential' and fame['pav_slut'] > 200 and hour > 6 and hour < 18 and rand(1, 10) < 6 and new_whore < 1 and new_whore_day ! daystart:
	'A guy approaches you, a hungry look in his eyes. "Hey sexy, you look like a girl that knows her way in life." He laughs and licks his lips while looking you over. "I got some money, and if you have some time, how about we go someplace quiet and have some fun?"'

	act 'approach': gt 'mod_iwhore_begin', 'easymoney'
	act 'Decline':gt 'pav_residential'
end

if $curloc = 'pav_residential' and fame['pav_slut'] > 200 and hour > 6 and hour < 18 and rand(1, 10) < 6 and new_whore >= 1 and new_whore =< 4 and new_whore_day ! daystart:
	'A guy approaches you, a hungry look in his eyes. "Hey sexy, you look like a girl that knows her way in life." He laughs and licks his lips while looking you over. "I got some money, and if you have some time, how about we go someplace quiet and have some fun?"'

	act 'approach': gt 'mod_iwhore_begin', 'habits'
	act 'Decline':gt 'pav_residential'
end

if $curloc = 'pav_residential' and fame['pav_slut'] > 200 and hour > 6 and hour < 18 and rand(1, 10) < 6 and new_whore = 5 and new_whore_day ! daystart:
	'As you walk in the street a car approaches you; a man through the car windows call for your attention. "Hey sexy, you look like a girl that knows her way in life." He laughs and licks his lips while looking you over. "I got some money, and if you have some time, how about we go some quiet place and have some fun?"'

	act 'approach': gt 'mod_iwhore_begin', 'hookup'
	act 'Decline':gt 'pav_residential'
end

!HIGHWAY
if $curloc = 'road' and nroad = 20 and fame['pav_slut'] > 200 and new_whore >= 7 and PCloStyle = 4 and gennadij_mem ! 1:
!	if inna_varvara_pimp >= 13: gs 'mod_iwhore_dincollect', 'whore_check_pro'
	act 'Go to work': gt 'mod_iwhore_highway', 'start'
end

!pav_residential

if $curloc = 'pav_residential' and fame['pav_slut'] > 200 and new_whore >= 45 and gennadij_mem ! 1:
	killvar 'ms_temp'
	killvar 'ms_ender'
	killvar 'gfy_rand'
	gs 'mod_iwhore_dincollect' , 'hooking'

	if hour > 6 and hour < 18:
		if hooked_walk =< 2:
			'A <a href="exec:minut += 1 & gt ''mod_iwhore_mainstreet'', ''hookedcar''">guy in a car</a> approaches you, a hungry look in his eyes. "Hey sexy, you look like a girl that knows her way around a cock." He laughs and licks his lips while looking you over. "I got some money, and if you have some time, how about we go someplace quiet and have some fun?"'
		elseif hooked_walk >= 3 and hooked_walk =< 5:
			'A <a href="exec:minut += 1 & gt ''mod_iwhore_mainstreet'', ''hooked''">guy</a> approaches you, a hungry look in his eyes. "Hey sexy, you look like a girl that knows her way around a cock." He laughs and licks his lips while looking you over. "I got some money, and if you have some time, how about we go someplace quiet and have some fun?"'
		else
			act 'Catch some attention': gt 'mod_iwhore_mainstreet', 'mshooker'
		end
	elseif hour < 6 or hour >= 18:
		if hooked_walk =< 3:
			'A <a href="exec:minut += 1 & gt ''mod_iwhore_mainstreet'', ''hookedcar''">guy in a car</a> approaches you, a hungry look in his eyes. "Hey sexy, you look like a girl that knows her way around a cock." He laughs and licks his lips while looking you over. "I got some money, and if you have some time, how about we go someplace quiet and have some fun?"'
		elseif hooked_walk >= 3 and hooked_walk =< 7:
			'A <a href="exec:minut += 1 & gt ''mod_iwhore_mainstreet'', ''hooked''">guy</a> approaches you, a hungry look in his eyes. "Hey sexy, you look like a girl that knows her way around a cock." He laughs and licks his lips while looking you over. "I got some money, and if you have some time, how about we go someplace quiet and have some fun?"'
		else
!			act 'Catch some attention': gt 'mod_iwhore_mainstreet', 'mshooker'
			act 'Catch some attention':
				if meth_man >= 1 and rapewhore_count = 5 and rand (0,10) >= 3 and hour >= 18 and hour =< 20 and new_gh_whore >= 2:
					gt 'mod_iwhore_jenna', 'skip_it'
!					gt 'mod_iwhore_jenna', 'beast'
				else
					gt 'mod_iwhore_mainstreet', 'mshooker'
				end
			end
		end
	else
		''
	end
end

if $curloc = 'pav_residential' and gennadij_hunter = 1 and gennadij_day < daystart:
	if rand(1,100) < 15: gt 'mod_iwhore_jenna', 'stabbed'
end


if $curloc = 'pav_residential' and fame['pav_slut'] > 200 and new_whore >= 45 and gennadij_mem = 1 and inna_varvara_pimp < 1 and pcs_was_trauma < 1 and pcs_awake_trauma < 1:

	if hour >= 18 and hour < 23:
		act 'Catch some attention':gt 'mod_iwhore_jenna', 'vivid'
	else
		''
	end
end


!POD_EZD!!!!!!!!!!!!!!!SCHOOLGIRL
if $curloc = 'pod_ezd' and $ARGS[0] = 'etaj_2' and home_owned[2] = 1 and gennadij_mem = 1 and inna_varvara_pimp = 1:
	gt 'mod_iwhore_begin', 'inna'
end

!ETOEXHIB!!!!!!!!!!!!!!!TGSTART
if $curloc = 'etoexhib' and $ARGS[0] = 'pos51' and home_owned[1] > 0 and gennadij_mem = 1 and inna_varvara_pimp = 1:
	gt 'mod_iwhore_begin', 'inna'
end

if $curloc = 'pav_residential' and gennadij_prey = 1 and gennadij_day < daystart and inna_varvara_pimp = 5:
	if hour >= 10 and hour < 18: inna_varvara_pimp = 6 & gt 'mod_iwhore_begin', 'message'
end
!pav_complexb
if $curloc = 'pav_complex' and $ARGS[0] = 'start':
	act 'Nearby complex':gt 'mod_iwhore_innapodz', 'etaj_1'
	'Your complex is not the only <a href="exec:minut += 3 & gt ''mod_iwhore_innapodz'', ''etaj_1''">one</a>.'

end

!pav_complexb2!!!!!!INNAPT
!if $curloc = 'pav_complexb2' and $ARGS[0] = 'etaj_5' and inna_varvara_pimp >= 2:
!	if inna_varvara_pimp > 10:
!		act 'Inna''s apartment':gt 'mod_iwhore_innapt', 'start'
!	elseif inna_varvara_pimp = 4:
!		act 'Slip the signed photo':gt 'mod_iwhore_begin', 'slipped'
!	elseif inna_varvara_pimp = 5 or inna_varvara_pimp = 6:
!		act '...':gt 'mod_iwhore_begin', 'slipped'
!	elseif inna_varvara_pimp = 8 or inna_varvara_pimp = 9:
!		act '...':gt 'mod_iwhore_begin', 'slipped'
!	elseif inna_varvara_pimp = 10:
!		gt 'mod_iwhore_begin', 'pimp'
!	else
!		act 'Look for the woman':gt 'mod_iwhore_begin', 'start'
!	end
!end


!pav_commercial

if $curloc = 'pav_commercial' and fame['pav_slut'] > 200 and new_whore >= 45 and gennadij_mem ! 1:
	killvar 'ms_temp'
	killvar 'ms_ender'
	killvar 'gfy_rand'
	gs 'mod_iwhore_dincollect' , 'hooking'
	if hour > 6 and hour < 18:
		if hooked_walk =< 2:
			'A <a href="exec:minut += 1 & gt ''mod_iwhore_mainstreet'', ''hookedcar''">guy in a car</a> approaches you, a hungry look in his eyes. "Hey sexy, you look like a girl that knows her way around a cock." He laughs and licks his lips while looking you over. "I got some money, and if you have some time, how about we go someplace quiet and have some fun?"'
		elseif hooked_walk >= 3 and hooked_walk =< 5:
			'A <a href="exec:minut += 1 & gt ''mod_iwhore_mainstreet'', ''hooked''">guy</a> approaches you, a hungry look in his eyes. "Hey sexy, you look like a girl that knows her way around a cock." He laughs and licks his lips while looking you over. "I got some money, and if you have some time, how about we go someplace quiet and have some fun?"'
		else
			act 'Catch some attention': gt 'mod_iwhore_mainstreet', 'mshooker'
		end
	elseif hour < 6 or hour >= 18:
		if hooked_walk =< 3:
			'A <a href="exec:minut += 1 & gt ''mod_iwhore_mainstreet'', ''hookedcar''">guy in a car</a> approaches you, a hungry look in his eyes. "Hey sexy, you look like a girl that knows her way around a cock." He laughs and licks his lips while looking you over. "I got some money, and if you have some time, how about we go someplace quiet and have some fun?"'
		elseif hooked_walk >= 3 and hooked_walk =< 7:
			'A <a href="exec:minut += 1 & gt ''mod_iwhore_mainstreet'', ''hooked''">guy</a> approaches you, a hungry look in his eyes. "Hey sexy, you look like a girl that knows her way around a cock." He laughs and licks his lips while looking you over. "I got some money, and if you have some time, how about we go someplace quiet and have some fun?"'
		else
			act 'Catch some attention': gt 'mod_iwhore_mainstreet', 'mshooker'
		end
	else

	end

end

if $curloc = 'pav_commercial' and gennadij_hunter = 1 and gennadij_day < daystart:
	if rand(1,100) < 15: gt 'mod_iwhore_jenna', 'stabbed'
end
!PARK
if $curloc = 'pav_park' and fame['pav_slut'] > 200 and new_whore >= 45 and gennadij_mem ! 1:
	killvar 'hook_park'
	act 'Catch some attention': gt 'mod_iwhore_park', 'parkhooker'
end

if $curloc = 'pav_park' and inna_varvara_pimp = 7:

	act 'Look behind the bench': gt 'mod_iwhore_begin', 'message'
end

!HERESTARTTHEENTRY!UPDATE3!
!if $curloc = 'pav_park':
if $curloc = 'pav_park' and $ARGS[0] = 'start':
!RussMeyerTribute!
	if meth_man = 1 and (hour < 6 or hour >= 18) and gennadij_mem ! 1 and Krestovoz_pimp_protection ! 1 and mosol =< 40:
		'Far from people eyes, in the deep of the park, there''s a <a href="exec:minut += 1 & gt ''mod_iwhore_methman'', ''running_meth''">fountain</a> where people can rest and drink some water.'
	else
		'Far from people eyes, in the deep of the park, there''s a <a href="exec:minut += 1 & gt ''mod_iwhore_fountain'', ''start''">fountain</a> where people can rest and drink some water.'
	end
end

if $curloc = 'pav_park' and $ARGS[0] = 'start' and new_whore >= 30 and  meth_man < 1 and $clothingworntype = 'danilovich_outfits' and $shoeworntype = 'danilovich' and daybeplacer_pav_park = daystart and (hour < 6 or hour >= 18) and gennadij_mem ! 1:
	gt 'mod_iwhore_methman', 'running_meth'
end


!BATH
if $curloc = 'pav_residential':
	'You can see the <a href="exec:minut += 1 & gt ''mod_iwhore_pbath'', ''start''">public restrooms</a>, they are not fee free... .'
end
!THERAPIST!
if $curloc = 'therapist' and $args[0] = '':

	if pcs_was_trauma > 0:
		act 'Deal with losing the baby':
			cla
			*clr
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/room.jpg"></center>'
			$therapy = 'loss'
			'"I would like some help dealing with my beatings and losing my child."'
			'"I think the best way to do that would be hypnotherapy."'
			act 'Regular therapy':
				cls
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/therapy1.jpg"></center>'
				minut += 60
				pcs_was_trauma -= 1
				gs 'stat'

				'You talk about your traumatic issues, and Dr. Pavlov makes some suggestions, and asks some pointed questions. Although he makes you uncomfortable, it somehow makes you feel better about yourself.'
				if pcs_was_trauma = 0:
					'You were able to give the events a place in your life and you are finally ready to move on.'
				end
				'"Please, visit me again if you have any further problems, I will be glad to help!" Says Dr. Pavlov, as he escort you out of his door.'
				act 'Leave':gt $loc
			end
			act 'Hypnotherapy':gt 'mod_iwhore_therapy', 'hypno'
		end
	end
	if pcs_awake_trauma > 0:
		act 'Deal with your awakening':
			cla
			*clr
			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/room.jpg"></center>'
			$therapy = 'trauma'
			'"I would like some help dealing with my beatings and awakening."'
			'"I think the best way to do that would be hypnotherapy."'
			act 'Regular therapy':
				cls
				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/clinic/therapist/therapy1.jpg"></center>'
				minut += 60
				pcs_awake_trauma -= 1
				gs 'stat'

				'You talk about your traumatic issues, and Dr. Pavlov makes some suggestions, and asks some pointed questions. Although he makes you uncomfortable, it somehow makes you feel better about yourself.'
				if pcs_awake_trauma = 0:
					'You were able to give the events a place in your life and you are finally ready to move on.'
				end
				'"Please, visit me again if you have any further problems, I will be glad to help!" Says Dr. Pavlov, as he escort you out of his door.'
				act 'Leave':gt $loc
			end
			act 'Hypnotherapy':gt 'mod_iwhore_therapy', 'hypno'
		end
	end
end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!HOOKING RAND!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!	if PCloStyle = 4:
!	d'approached'	hooked_walk = rand(0,50)--->[d 0,5]	(51)	ratio = 6/51 ---> 0,117
!	d'work'			hooked_walk = 	  (5,50)--->[d 0,9]	(45)	ratio =	10/45---> 0,222
!	n'approached'	hooked_walk = rand(0,50)--->[n 0,7] (51)  	ratio = 8/51 ---> 0,156
!	n'work'			hooked_walk = 	  (7,50)--->[n 0,12](43) 	ratio = 13/43 ---> 0,302
!	else
!	d'approached'	hooked_walk = rand(0,70)--->[d 0,5]	(71)	ratio = 6/71 ---> 0,084
!	d'work'			hooked_walk =	 (5,70)--->[d 0,9]	(65)	ratio = 10/65---> 0,153
!	n'approached'	hooked_walk = rand(0,70)--->[n 0,7]	(71) 	ratio = 8/71 ---> 0,112
!	n'work'			hooked_walk =	 (4,70)--->[n 0,12](58)  	ratio = 13/58---> 0,224
!	end
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!






!entry point 1: if player is on bed, create a new link to make her sleepy
!if $curloc = 'bed2' and $args[0] = '':
!	if pcs_sleep > 80:
!		'[mod]... But You can make yourself <a href="exec:pcs_sleep=0&gt $curloc">sleepy!</a>'
!	else
!		'[mod]... And you are already sleepy.'
!	end
!end


!entry point 2: goto school directly from room
!Note that location name are case sensetive. you can use lcase() or ucase() to prevent bug
!if lcase($curloc) = 'bedrpar' or ucase($curloc) = 'KORRPAR':
!		act '[mod]<font color = green><b>Go to school</b></font>': minut += 1 & gt 'gschool_grounds', 'main'
!end


!entry point 3: replace exit room act in apartment

!if $curloc = 'bedrPar':
!	delact 'Exit the room'
!	act 'Exit the room':
!		msg 'Now mod isample will send you to school directly'
!		minut += 1 & gt 'gschool_grounds', 'main'
!	end
!end

!entry point 4: access in-mod location
!if $curloc = 'pav_residential':
!	act '[mod]Chase the rabbit':
!		gt 'mod_isample_pav_residential'
!	end
!end

!if $curloc = 'city_residential':
!	act '[mod]Jump into rabit hole':
!		*clr & cla
!		'[mod]Suddenly, everything blank out'
!		gs 'mod_isample_street'
!	end
!end
--- mod_iwhore ---------------------------------