wlife/locations/mod_wlife.qsrc

# mod_wlife

!!Save Update
gs 'mod_wlife_saveupdater', 'check'

if week = 1 and wl_timer['week_check'] ! daystart:
	wl_timer['week'] += 1
	wl_timer['week_check'] = daystart
	
	if wl_status['hotel'] = 1 and wl_status['hotel_bill'] > 0:
		if karta > wl_status['hotel_bill']:
			karta -= wl_status['hotel_bill']
			'<br> <<wl_status[''hotel_bill'']>> <b>₽</b> was automatically debited from your bank account to pay your hotel bill.'	
			hotelroom1day += 7
		elseif wl_status['hotel_bill'] > 0 and wl_status['main'] > -1:
			wl_debt['amount'] += wl_status['hotel_bill']
			hotelroom1day += 7
			'<br> <<wl_status[''hotel_bill'']>> <b>₽</b> was added to your debt to pay your hotel bill.'
		end
		wl_status['hotel_bill'] = 3500	
	end
end

!!Condoms
wl_status['condoms'] = prezik + prezikcount

!!Location Checks
if wl_status['hotel'] = 1 and $loc = 'HotelRoom': 
	gt 'mod_wlife_hotelroom', 'room'
elseif $curloc = 'gschool_lessons4' and $ARGS[0] = 'shower2' and $wl_brand['text_pubic'] ! '':
	gs 'mod_wlife_misc', 'school_shower'
end
	
if wl_status['main'] = -1:
	if $loc = 'city_industrial_train' and $menu_loc = 'city_industrial_train' and $metka = 'outside' and $menu_arg = 'outside' and menu_off = 0:
		'<br>You can take a bus at the local terminal to the '+iif(money < 75, 'gas station', '<a href="exec: minut += 35 & money -= 75 & gt ''mod_wlife_highway'', ''outside''">gas station</a>')+' near the highway between St. Petersburg and Moscow. The bus ride and a short walk to the gas station will take 35 minutes and cost 75 <b>₽</b>.'+iif(money < 75, ' You don''t have enough money.', '')
	elseif $loc = 'city_industrial_train' and $menu_loc = 'city_industrial_train' and $metka = 'outside' and $menu_arg = 'outside' and menu_off = 0 and (PCloStyle ! 4 or ShoHeels < 4):
		'<br>You could take the bus to the gas station, but you need to wear high heels and appropriate clothing to work there.'
	elseif wl_homeless['status'] > 0 and $loc = 'pav_industrial' and $menu_loc = 'pav_industrial' and $menu_arg = '' and $ARGS[0] = '' and menu_off = 0:
		'<br>Go to the <a href="exec: minut += 8 & gt ''mod_wlife_warehouse'', ''homeless_outside''">homeless</a>.'
	end
	
	if wl_sacha['status'] > 3 and wl_whore['pav_timer_hour'] ! hour and rand(-20,70) < minut and $curloc ! 'mod_wlife_solicitation' and $curloc ! 'shop' and menu_off = 0 and $loc = $curloc: gs 'mod_wlife_solicitation', 'chance'
	
	pl '<br><center><img height = 60 src="mod/wlife/images/objects/banner.png"></center>'
	pl 'To restore ''Whore Life'' <a href="exec: wl_status[''main''] = wl_status[''stored''] & clr & gs ''stat''">click here</a>.'	
	
	if wl_georgiy['payment_method'] = 1 and PCloStyle = 4 and ShoHeels > 3 and (($metka = 'street' and $loc = 'mod_wlife_warehouse') or ($metka = '' and ($loc = 'pav_commcenter' or $loc = 'pav_residential' or $loc = 'pav_industrial' or $loc = 'pav_commercial' or $loc = 'pav_train' or $loc = 'liam')) or ($metka = 'start' and ($loc = 'pav_complex' or $loc = 'pav_park'))) and hour > 6 and hour < 23 and $curloc ! 'shop' and menu_off = 0 and $loc = $curloc:
		pl '<center><a href="exec: gt ''mod_wlife_solicitation'', ''search''"><img title="Click to start working in Pavlovsk." height = 80 src="mod/wlife/images/objects/prostitute.png"></a></center>'
	end
elseif wl_status['main'] > -1:
	!!Street Events
	if wl_status['main'] = 0 and $loc = 'pav_residential' and $menu_loc = 'pav_residential' and $menu_arg = '' and $ARGS[0] = '' and menu_off = 0 and wl_timer['main'] < daystart and hour > 6 and hour < 20:
		if wl_status['start'] = 1:
			gt 'mod_wlife_story', 'start_1'
		elseif wl_status['start'] = 2:
			gt 'mod_wlife_story', 'start_2'
		elseif wl_status['start'] = 3:
			gt 'mod_wlife_story', 'start_3'
		elseif wl_status['start'] = 4 and week < 7:
			gt 'mod_wlife_story', 'start_4'
		end
	elseif wl_status['main'] > 8 and wl_iosif['tattoo'] = 1 and tatvag = 0 and $loc = 'pav_residential' and $menu_loc = 'pav_residential' and $menu_arg = '' and $metka = '' and menu_off = 0 and (((hour = 7 or hour = 8) and kanukuli = 0 and SchoolAtestat = 0 and SchoolBlock = 0 and week < 6) or (hour > 6 and (SchoolBlock > 0 or SchoolAtestat > 0))):
		gt 'mod_wlife_tattoo_piercing', 'tattoo_0'
	elseif wl_status['main'] > 0 and (($loc = 'pav_residential' and $menu_loc = 'pav_residential') or ($loc = 'pav_commercial' and $menu_loc = 'pav_commercial') or ($loc = 'pav_industrial' and $menu_loc = 'pav_industrial')) and $menu_arg = '' and $ARGS[0] = '' and menu_off = 0:
		if wl_status['main'] = 6 and wl_police['timer'] < daystart and hour > 6 and hour < 19 and week ! 7:
			gt 'mod_wlife_story', 'police_aftermath'
		elseif ((wl_georgiy['timer_day'] ! 0 and (wl_georgiy['timer_day'] + 7) < daystart) or (wl_georgiy['timer_day'] = 0 and wl_status['main'] = 5 and (wl_timer['main'] + 6) < daystart)) and hour > 6 and hour < 23: 
			gt 'mod_wlife_georgiy', 'check_in'
		elseif wl_homeless['video_count'] > 0 and wl_adrian['status'] = 1 and wl_adrian['timer'] < daystart and hour > 14 and hour < 20 and sunWeather > 0: 
			gt 'mod_wlife_punishment', 'adrian_first_0'
		elseif wl_adrian['status'] = 2 and wl_adrian['timer'] < daystart and hour > 14 and hour < 20 and sunWeather > 0:
			gt 'mod_wlife_punishment', 'adrian_second_0'
		end
	end

	if wl_status['main'] > 9 and wl_whore['pav_timer_hour'] ! hour and rand(-20,70) < minut and $curloc ! 'mod_wlife_solicitation' and $curloc ! 'shop' and menu_off = 0 and $loc = $curloc: gs 'mod_wlife_solicitation', 'chance'
	
	!!Clinic
	if wl_medical['timer_week'] = 2 and week = 1:
		wl_medical['timer_week'] = 1
		wl_medical['timer_day'] = daystart
	elseif wl_medical['timer_week'] = 1 and week = 1 and wl_medical['timer_day'] ! daystart:
		wl_medical['timer_week'] = 0
	elseif week > 1 and week < 7 and $loc = 'pav_clinic' and $menu_arg = '' and menu_off = 0: 
		if wl_medical['status'] = 1:
			act 'Visit Doctor Mikhailov': gt 'mod_wlife_clinic', 'first_visit'		
		elseif wl_medical['status'] > 1 and wl_medical['timer_week'] = 0: 
			act 'Go to your bi-weekly medical examination': wl_temp = 0 & gt 'mod_wlife_clinic', 'check'
		elseif wl_medical['status'] > 1 and (pcs_apprnc = -10 or cumcondslip > 0 or (thinkpreg = 1 and knowpreg = 0 and preg = 1)):
			act 'Visit Doctor Mikhailov': wl_temp = 1 & gt 'mod_wlife_clinic', 'check'
		end
		if wl_medical['status'] > 1:
			if knowpreg = 1 and preg = 1 and pregchem < 1863: act 'Get an abortion': wl_temp = 2 & gt 'mod_wlife_clinic', 'abortion'
			if SchoolAtestat = 0 and Gspravka < 3 and motherKnowSpravka = 0: act 'Ask Doctor Mikhailov for a referral': wl_temp = 3 & gt 'mod_wlife_clinic', 'check'
		end
	end
		
	!!Locations
	if menu_off = 0 and $loc = 'pav_complex' and $metka = 'start' and $menu_arg ! 'garages' and wl_volya['apartment'] = 1: 
		if (wl_status['main'] < 9 and $wl_virgin = 'asked' and (pcs_vag = 0 or anal = 0)) or (((hour = 18 and minut >= 30) or hour = 19) and wl_demand['party'] = 1 and wl_georgiy['timer_week'] = week):
			'<br>The apartment where <a href="exec: minut += 2 & gt ''mod_wlife_volya'', ''apartment_entrance''">Volya</a> lives is nearby.'
			act 'Visit Volya': minut += 2 & gt 'mod_wlife_volya', 'apartment_entrance'
		elseif $curloc ! 'mod_wlife_solicitation' and menu_off = 0:
			'<br>You don''t have a reason to visit Volya right now.'
		end
	elseif $loc = 'pav_industrial' and $menu_loc = 'pav_industrial' and $menu_arg = '' and $ARGS[0] = '' and menu_off = 0 and wl_status['main'] > 4: 
		'<br>A street leads to Vadim Bely''s <a href="exec: minut += 5 & gt ''mod_wlife_warehouse'', ''street''">warehouse</a>.'
	elseif $loc = 'pav_park' and $menu_loc = 'pav_park' and $menu_arg = 'start' and $metka = 'start' and menu_off = 0 and wl_drugs['status'] > 0 and hour > 21:
		'<br>'+iif(wl_drugs['status'] = 1, 'A young man', 'Sacha')+' is selling <a href="exec: minut += 2 & gt ''mod_wlife_sacha'', ''park''">weed</a> for Shura near one of the gates.'
	elseif $curloc = 'shop' and $shoplocation = 'main' and hour > 7 and hour < 21: 
		if wl_status['usb'] = 1: gs 'mod_wlife_misc', 'usb_drive'
		if wl_status['hotel'] = 1 and wl_status['coffee_maker'] = 1: 
			gs 'mod_wlife_misc', 'coffee_maker'
		elseif wl_status['coffee_maker'] = 2:
			gs 'mod_wlife_misc', 'coffee'
		end
	elseif ($curloc = 'Komp' or $curloc = 'komp') and wl_investigation['maxim'] = 4 and $ARGS[0] = 'start' and $loc ! 'shulga_room' and $loc ! 'anushapt' and $loc ! 'artemhome':
		gs 'mod_wlife_misc', 'komp_maxim'
	elseif $loc = 'city_industrial_train' and $menu_loc = 'city_industrial_train' and $metka = 'outside' and $menu_arg = 'outside' and menu_off = 0 and wl_georgiy['payment_method'] = 1 and PCloStyle = 4 and ShoHeels > 3:
		'<br>You can take a bus at the local terminal to the '+iif(money < 75, 'gas station', '<a href="exec: minut += 35 & money -= 75 & gt ''mod_wlife_highway'', ''outside''">gas station</a>')+' near the highway between St. Petersburg and Moscow. The bus ride and a short walk to the gas station will take 35 minutes and cost 75 <b>₽</b>.'+iif(money < 75, ' You don''t have enough money.', '')
	elseif $loc = 'city_industrial_train' and $menu_loc = 'city_industrial_train' and $metka = 'outside' and $menu_arg = 'outside' and menu_off = 0 and wl_georgiy['payment_method'] = 1 and (PCloStyle ! 4 or ShoHeels < 4):
		'<br>You could take the bus to the gas station, but you need to wear high heels and appropriate clothing to work there.'
	end

	!!Location Checks	
	if menu_off = 0 and $loc = $wl_loc[0] and $metka = $wl_loc[1] and $menu_arg ! 'garages':
		if wl_status['main'] >= 5 and wl_whore['shifts_message'] = 1 and wl_whore['pirsA'] = 0:
			if hour = 16 and PCloStyle = 4 and ShoHeels > 3: 
!!ToDo: Activate if done if wl_party['status'] > 1 and wl_vadim['timer'] < daystart: gt 'mod_wlife_vadim', 'pick_up'
				'Volya is waiting for you in his <a href="exec: minut += 1 & gt ''mod_wlife_volya'', ''shift_start''">car</a>.'
			elseif hour = 16 and (PCloStyle ! 4 or ShoHeels < 4):
				'Volya is waiting for you in his car, but you have to wear an appropriate outfit and heels.'
			elseif hour < 16:
				'Volya will pick you up between 16:00 and 17:00. You''ll have to wear an appropriate outfit and heels.'
			end
		elseif wl_status['main'] >= 5 and wl_whore['shifts_message'] = 1 and wl_whore['pirsA'] > 0:
			if hour = 16 and PCloStyle = 4 and ShoHeels > 3 and pirsA < 10000: 
				'Volya is waiting for you in his <a href="exec: minut += 1 & gt ''mod_wlife_volya'', ''shift_start''">car</a>.'
			elseif hour = 16 and (PCloStyle ! 4 or ShoHeels < 4 or pirsA = 10000):
				'Volya is waiting for you in his car, but you have to wear an appropriate outfit, heels and your tongue piercing.'
			elseif hour < 16:
				'Volya will pick you up between 16:00 and 17:00. You''ll have to wear an appropriate outfit, heels and your tongue piercing.'
			end
		end
	elseif (($menu_loc = 'HotelHole' and $menu_arg = '') or ($loc = 'mod_wlife_hotelroom' and $metka = 'room')) and menu_off = 0:
		if wl_okoro['week'] = week and hour < 22: 
			'<br>Léon will be back in his hotel room at 22:00.'
		elseif wl_okoro['week'] = week and hour > 21: 
			act 'Go to Léon''s room': minut += 3 & gt 'mod_wlife_okoro', 'leon_hotel'
		end
		if wl_maxim['week'] = week and hour < 21: 
			'<br>Maxim will be back in his hotel room at 21:00.'
		elseif wl_maxim['week'] = week and hour > 20: 
			act 'Go to Maxim''s room': minut += 3 & gt 'mod_wlife_maxim', 'start'
		end	
	elseif ($loc = 'koorpar' or $loc = 'mod_BroMod_korrPar' or $loc = 'korr' or $loc = 'korr2x') and wl_status['school_grades'] > 10 and wl_status['school_grades_warning'] = 0 and menu_off = 0:	
	elseif ($loc = 'korrPar' or $loc = 'mod_BroMod_korrPar') and wl_mother['knows'] = 1 and wl_status['hotel'] = 0:
		gt 'mod_wlife_mother', 'mother_knows'
	elseif ($loc = 'korrPar' or $loc = 'mod_BroMod_korrPar') and wl_status['school_expelled'] = 1 and wl_status['hotel'] = 0:
		gt 'mod_wlife_mother', 'mother_school'
	elseif ((wl_mother['clothes_timer_inside'] ! daystart and ($loc = 'korrPar' or $loc = 'mod_BroMod_korrPar') and $metka = '' and hour = 16 and minut < 45 and mother_go = 0) or (wl_mother['clothes_timer_outside'] ! daystart and $loc = 'pav_complex' and $metka = 'start' and ((hour = 15 and minut > 30 and mother_go = 0) or (hour = 16 and minut > 30 and mother_go = 1)))) and menu_off = 0 and wl_whore['shifts_message'] = 1 and indorf = 0 and week < 7 and PCloStyle = 4 and wl_mother['acceptance_clothes'] < 2 and wl_mother['clothes_timer'] ! daystart:
		if $loc = 'pav_complex':
			wl_mother['clothes_timer_outside'] = daystart
		else
			wl_mother['clothes_timer_inside'] = daystart
		end
		if rand(1,100) > (90 - wl_mother['clothes_chance']): 
			wl_mother['clothes_chance'] = 0
			gt 'mod_wlife_mother', 'mother_shift_start'
		else
			wl_mother['clothes_chance'] += rand(3,6)
		end
	elseif wl_status['main'] > 8 and wl_iosif['tattoo'] = 1 and tatvag = 0 and $loc = 'pav_residential' and $menu_loc = 'pav_residential' and $menu_arg = '' and $metka = '' and menu_off = 0 and (((hour = 7 or hour = 8) and kanukuli = 0 and SchoolAtestat = 0 and SchoolBlock = 0 and week < 6) or (hour > 6 and (SchoolBlock > 0 or SchoolAtestat > 0))):
		gt 'mod_wlife_tattoo_piercing', 'tattoo_0'
	end

	!!Checks:
	if wl_prison['status'] = 1 and wl_prison['shift'] = 0 and week = 7 and hour < 20 and wl_bad['prison'] = 0:
!!ToDo: This prison variable has to updated if more prison days are done		
		wl_bad['prison'] = 1
	elseif wl_status['main'] >= 5 and wl_whore['shifts_message'] = 1 and hour > 16 and menu_off = 0:
		gt 'mod_wlife_phone', 'volya_missed'
	end

	!!Story & Phone/Menu
	if wl_status['start'] = 0 and wl_status['main'] = 0 and storyline = 1:
		pl '<br><center><img height = 60 src="mod/wlife/images/objects/banner.png"></center>'
		if pcs_inhib > 10:
			pl 'To start ''Whore Life'' read the newspaper on your parents kitchen table.'	
			if ($loc = 'kuhrPar' or $loc = 'mod_BroMod_kuhrPar') and menu_off = 0: '<br>On the kitchen table lies the <a href="exec: gt ''mod_wlife_story'', ''start_0''">current edition</a> of the local newspaper.'
		else
			pl 'Your inhibition is too high at the moment for the mod to start ''Whore Life'', it needs to be below 90.'
		end	
	elseif wl_status['start'] > 0 and wl_status['main'] = 0:
		pl '<br><center><img height = 60 src="mod/wlife/images/objects/banner.png"></center>'
		pl 'Continue with your life in Pavlovsk...'
	elseif wl_status['main'] = 2 and hour > 7 and wl_timer['main'] ! daystart and rand(0,2) = 1 and menu_off = 0: 
		gt 'mod_wlife_phone', 'start_aftermath_picture'
	elseif wl_status['main'] = 3 and hour > 14 and hour < 23 and wl_timer['main'] ! daystart and rand(0,2) = 1 and menu_off = 0:
		wl_timer['main'] = daystart
		gt 'mod_wlife_phone', 'start_aftermath_volya'
	elseif wl_status['main'] = 2 or wl_status['main'] = 3:
		pl '<br><center><img height = 60 src="mod/wlife/images/objects/banner.png"></center>'
		pl 'Wait for Volya to call you.'
	elseif wl_status['main'] = 4 and week = 1 and wl_timer['main'] ! daystart:
		wl_timer['startday'] = daystart
		wl_timer['main'] = daystart
		wl_status['main'] = 5
	elseif wl_status['main'] = 4 and (week ! 1 or (wl_timer['main'] = daystart and week = 1)):
		pl '<br><center><img height = 60 src="mod/wlife/images/objects/banner.png"></center>'
		pl 'Your new life as a whore will begin '+iif(week = 7, 'tomorrow.', 'next monday.')	
	elseif wl_thought['homeless'] = 1 and wl_homeless['video_count'] = 0 and wl_homeless['timer'] ! daystart and hour > 14 and menu_off = 0:
		gt 'mod_wlife_phone', 'homeless_aftermath'
	elseif wl_okoro['week'] = week and wl_okoro['timer'] ! daystart and InSleep = 0 and menu_off = 0:
		gt 'mod_wlife_phone', 'leon_reminder'
	elseif $wl_brand['type'] ! '' and wl_brand['timer'] < daystart and wl_passport_pay = 0 and hour > 14 and menu_off = 0:
		gt 'mod_wlife_phone', 'passport_pay'
	elseif wl_status['main'] >= 5 and $curloc ! 'mod_wlife_phone' and $curloc ! 'phone_selfies':
		pl '<br><center><img height = 60 src="mod/wlife/images/objects/banner.png"></center>'
		if week < 7 and wl_georgiy['payment_method'] = 1:
			pl 'You have to pay Georgiy <<wl_georgiy[''lump_sum'']>> <b>₽</b> every Sunday.'
		elseif week < 7 and wl_georgiy['payment_method'] = 0:
			pl 'You have to work <<wl_whore[''shifts_week'']>> shifts for Mr. Bely and have worked <<wl_whore[''shifts_done'']>> this week.'+iif(wl_whore['shifts_message'] = 0, ' If you want to work at the gas station, you have to send Volya a message before 16:00.', iif(hour < 17, '<br>Volya will pick you up in <<$wl_loc[2]>> between 16:00 and 17:00.', ''))			
		elseif week = 7 and wl_georgiy['timer_day'] ! daystart:
			pl 'You have to report to Georgiy after 20:00 at the warehouse. You '+iif(wl_georgiy['payment_method'] = 0, iif(wl_whore['shifts_done'] < wl_whore['shifts_week'], 'haven''t', 'have')+' fulfilled this weeks obligation.', 'have to pay him <<wl_georgiy[''lump_sum'']>> <b>₽</b>.')
		elseif week = 7 and wl_georgiy['timer_day'] = daystart and wl_georgiy['payment_method'] = 0:	
			pl 'You have reported to Georgiy. Next week you have to work <<wl_whore[''shifts_week'']>> shifts.'
		end
		
		if wl_georgiy['timer_week'] > week and wl_demand['party'] = 1:
			pl 'You have to go to the party at Vadim Bely''s house next Saturday.'
		elseif wl_georgiy['timer_week'] = week and wl_demand['party'] = 1 and wl_party_warning_day ! daystart and hour > 12 and hour < 19 and menu_off = 0:
			gt 'mod_wlife_phone', 'volya_party_warning'
		elseif wl_georgiy['timer_week'] = week and wl_demand['party'] = 1:
			pl '<font color="red">You have to go to Volya''s apartment today (19:00) to get ready for the party at Vadim Bely''s house</font>.'
		end
		
		$wl_status_msg = '<br><center><table><tr>'
			
		if menu_off = 0:
			$wl_status_msg += '<td><a href="exec: minut += 1 & gt ''mod_wlife_phone'', ''start''"><img title="Click to open up the phone/menu of the mod." height = 80 src="mod/wlife/images/objects/phone_allowed'+iif(night_mode ! 3 and (($location_type = 'public_outdoors' and daystage = 5) or night_mode = 1 or night_mode = 2), '_night', '')+'.png"></a></td>'
		else
			$wl_status_msg += '<td><img title="You have no time to use your phone at the moment." height = 80 src="mod/wlife/images/objects/phone_forbidden'+iif(night_mode ! 3 and (($location_type = 'public_outdoors' and daystage = 5) or night_mode = 1 or night_mode = 2), '_night', '')+'.png"></td>'	
		end
		
		if wl_debt['amount'] > 0: 
			$wl_debt_tooltip = 'You owe <<wl_debt[''amount'']>> ₽.'
			$wl_debt_msg = $wl_debt_tooltip + iif(wl_georgiy['payment_method'] = 0, ' Your share of your income is reduced by 20 percentage points until you have paid your debts.', '')
			$wl_status_msg += '<td><a href="exec: msg $wl_debt_msg"><img title="<<$wl_debt_tooltip>>" height = 80 src="mod/wlife/images/objects/debt'+iif(night_mode ! 3 and (($location_type = 'public_outdoors' and daystage = 5) or night_mode = 1 or night_mode = 2), '_night', '')+'.png"></a></td>'
		end
		
		if wl_medical['timer_week'] = 0 and wl_medical['status'] = 1:
			$wl_status_msg += '<td><a href="exec: msg ''You have to go to Doctor Mikhailov. You can find him in his office at the small clinic in Pavlovsk from Tuesday till Saturday.''"><img title="You have to visit Doctor Mikhailov at the clinic in Pavlovsk." height = 80 src="mod/wlife/images/objects/doc'+iif(night_mode ! 3 and (($location_type = 'public_outdoors' and daystage = 5) or night_mode = 1 or night_mode = 2), '_night', '')+'.png"></a></td>'
		elseif wl_medical['timer_week'] = 0 and wl_medical['status'] > 1:
			$wl_status_msg += '<td><a href="exec: msg ''You have to go to your bi-weekly medical examination. You can find Doctor Mikhailov in his office at the small clinic in Pavlovsk from Tuesday till Saturday.''"><img title="You have to go to your bi-weekly medical exam." height = 80 src="mod/wlife/images/objects/doc'+iif(night_mode ! 3 and (($location_type = 'public_outdoors' and daystage = 5) or night_mode = 1 or night_mode = 2), '_night', '')+'.png"></a></td>'	
		end
		
		if wl_iosif['timer'] = 1 and wl_iosif['timer_call'] = daystart: $wl_status_msg += '<td><a href="exec: msg ''You have to go to the warehouse tonight (23:00) to meet up with Iosif.''"><img title="You have to go to the warehouse tonight (23:00) to meet up with Iosif." height = 80 src="mod/wlife/images/objects/info'+iif(night_mode ! 3 and (($location_type = 'public_outdoors' and daystage = 5) or night_mode = 1 or night_mode = 2), '_night', '')+'.png"></a></td>'
		
		if wl_okoro['status'] = 6 and wl_okoro['week'] = week: $wl_status_msg += '<td><a href="exec: msg ''You can go to the hotel near the train station tonight (22:00) to meet Léon Okoro.''"><img title="You can go to the hotel near the train station tonight (22:00) to meet Léon Okoro." height = 80 src="mod/wlife/images/objects/info'+iif(night_mode ! 3 and (($location_type = 'public_outdoors' and daystage = 5) or night_mode = 1 or night_mode = 2), '_night', '')+'.png"></a></td>'
		
		if wl_maxim['status'] > 2 and wl_maxim['week'] = week:
			$wl_status_msg += '<td><a href="exec: msg ''You can go to the hotel near the train station tonight (21:00) to meet Maxim.''"><img title="You can go to the hotel near the train station tonight (21:00) to meet Maxim." height = 80 src="mod/wlife/images/objects/info'+iif(night_mode ! 3 and (($location_type = 'public_outdoors' and daystage = 5) or night_mode = 1 or night_mode = 2), '_night', '')+'.png"></a></td>'
		elseif wl_maxim['week'] > week and wl_maxim['day'] ! daystart:
			wl_maxim['week'] = 0
		end
		
		if wl_georgiy['payment_method'] = 1 and PCloStyle = 4 and ShoHeels > 3 and (($metka = 'street' and $loc = 'mod_wlife_warehouse') or ($metka = '' and ($loc = 'pav_commcenter' or $loc = 'pav_residential' or $loc = 'pav_industrial' or $loc = 'pav_commercial' or $loc = 'pav_train' or $loc = 'liam')) or ($metka = 'start' and ($loc = 'pav_complex' or $loc = 'pav_park'))) and hour > 6 and hour < 23 and $curloc ! 'shop' and menu_off = 0 and $loc = $curloc:
			$wl_status_msg += '<td><a href="exec: gt ''mod_wlife_solicitation'', ''search''"><img title="Click to start working in Pavlovsk." height = 80 src="mod/wlife/images/objects/prostitute.png"></a></td>'
		end
		
		if wl_whore['pirsA'] = 0:
			if PCloStyle = 4 and ShoHeels > 3: $wl_status_msg += '<td><img title="Your outfit suits a whore perfectly." height = 80 src="mod/wlife/images/objects/whore'+iif(night_mode ! 3 and (($location_type = 'public_outdoors' and daystage = 5) or night_mode = 1 or night_mode = 2), '_night', '')+'.png"></td>'
		else
			if PCloStyle = 4 and ShoHeels > 3 and pirsA = wl_whore['pirsA']: $wl_status_msg += '<td><img title="Your outfit suits a whore perfectly." height = 80 src="mod/wlife/images/objects/whore'+iif(night_mode ! 3 and (($location_type = 'public_outdoors' and daystage = 5) or night_mode = 1 or night_mode = 2), '_night', '')+'.png"></td>'
		end
				
		$wl_status_msg += '</tr></table></center><br><br>'
		pl $wl_status_msg
	end

	!!School
	if wl_status >= 5 and wl_status['school_expelled'] = 0 and SchoolBlock = 0 and SchoolAtestat < 1:
		if schoolprogul > 0:
			pcs_grades -= 5
			schoolprogul = 0
			wl_status['school_skip'] += 1
		elseif wl_status['school_skip'] = 9:
			wl_status['school_expelled'] = 1
		elseif schoolPredupr > 0:
			schoolPredupr = 0
		end

		if pcs_grades < 20 and wl_status['school_timer'] ! daystart and kanikuli = 0 and week < 6 and wl_status['school_grades'] < 20:
			wl_status['school_grades'] += 1
			wl_status['school_timer'] = daystart
		elseif wl_status['school_grades'] = 20 and wl_status['school'] = 0:
			wl_status['school_expelled'] = 1
		end
	end
	
	if ($loc = 'korrPar' or $loc = 'mod_BroMod_korrPar' or $loc = 'korr' or $loc = 'korr2x') and wl_status['school_expelled'] < 2:
		if wl_status['school_grades'] > 9 and wl_status['school_grades_warning'] = 0 and menu_off = 0:
			gt 'mod_wlife_misc', 'school_grades'
		elseif wl_status['school_skip'] > ((wl_status['school_skip_warning'] * 3) + 2) and wl_status['school_skip_warning'] < 2 and menu_off = 0:
			gt 'mod_wlife_misc', 'school_skip'
		elseif wl_status['school_expelled'] = 1:
			gt 'mod_wlife_misc', 'school_expelled'
		end
	end
	
	!!Iosif and Maxim checks
	if wl_iosif['timer'] = 1 and hour > 8 and hour < 16 and menu_off = 0 and wl_iosif['timer_call'] ! daystart: 
		gt 'mod_wlife_phone', 'iosif_missed'
	elseif wl_iosif['call_avoid'] > 2 and hour > 8 and hour < 16 and menu_off = 0:
		gt 'mod_wlife_phone', 'iosif_avoid'
	elseif wl_iosif['status'] = 3 and wl_iosif['timer_whore'] < daystart and wl_iosif['timer'] ! 1 and hour > 14 and hour < 21 and rand(0,2) = 1 and menu_off = 0 and wl_georgiy['timer_week'] ! week:
		gt 'mod_wlife_phone', 'iosif_work_first'
	elseif wl_iosif['status'] > 3 and wl_iosif['timer_whore'] < daystart and wl_iosif['timer'] ! 1 and hour > 14 and hour < 21 and rand(0,2) = 1 and menu_off = 0 and wl_georgiy['timer_week'] ! week:
		gt 'mod_wlife_phone', 'iosif_work_regular'
	elseif wl_pictures['iosif_3'] = 1 and hour > 20 and menu_off = 0:
		gt 'mod_wlife_phone', 'iosif_party_pic'
	elseif wl_maxim['status'] > 1 and wl_maxim['timer'] < daystart and hour > 13 and hour < 22 and week > 1 and week < 5 and menu_off = 0: 
		gt 'mod_wlife_maxim', 'call'
	end

	!!Thoughts & Okoro phone calls
	if (($curloc = 'bed2' and $menu_loc = 'bed2') or ($curloc = 'mod_BroMod_bed2' and $menu_loc = 'mod_BroMod_bed2')) and $menu_arg = '' and menu_off = 0 and InSleep = 0 and (hour > 19 or hour < 8) and wl_thought['timer'] ! daystart:
		if (wl_timer['startday'] + 14) < daystart and wl_thought['whore'] = 0 and wl_thought['timer_whore'] < daystart and wl_status['main'] > 4: 
			gt 'mod_wlife_thoughts', 'whore_0'
		elseif wl_medical['status'] = 2 and wl_thought['pissing'] = 0 and wl_thought['timer_pissing'] < daystart and $wl_fetish['pissing'] ! 'blocked':
			gt 'mod_wlife_thoughts', 'pissing'
		elseif wl_thought['rimjob'] = 1:
			gt 'mod_wlife_thoughts', 'rim_whore'	
		elseif wl_passport = 1 and wl_thought['passport'] = 0: 
			gt 'mod_wlife_thoughts', 'passport'
		elseif wl_volya['status'] = 3: 
			gt 'mod_wlife_thoughts', 'volya_car_bj'
		elseif wl_volya['status'] = 5 and wl_volya['relationship'] = 1: 
			gt 'mod_wlife_thoughts', 'volya_car_sex'
		elseif wl_volya['status'] = 5 and wl_volya['relationship'] ! 1:
			wl_volya['status'] = 6
		elseif wl_shura['status'] = 9:
			gt 'mod_wlife_thoughts', 'shura_bj'
		elseif wl_iosif['pissing'] = 1 and $wl_fetish['pissed_on'] = '':
			gt 'mod_wlife_thoughts', 'piss_whore'
		elseif wl_homeless['status'] > 1 and wl_thought['homeless'] = 0:
			gt 'mod_wlife_thoughts', 'homeless_aftermath'
		elseif wl_thought['atm'] = 1 and wl_thought['timer_atm'] < daystart:
			gt 'mod_wlife_thoughts', 'ass_to_mouth'
!!ToDo: Prostitution in pavlovsk 
!!	elseif wl_thought['pav_total'] > 0 and wl_thought['pav_prost'] = 0:
!!		gt 'mod_wlife_thoughts', 'pav_prost'
		elseif wl_thought['sacha'] = 0 and wl_sacha['status'] = 2:
			gt 'mod_wlife_thoughts', 'sacha'
		elseif wl_okoro['status'] = 2 and (wl_timer['startday'] + 49) < daystart and wl_okoro['timer'] ! daystart and week ! 7:
			gt 'mod_wlife_phone', 'okoro'
		end
	end

	if pav_prostitute >= 50 and wl_whore['pav_timer_hour'] ! hour and (rand(-20,70) - (pav_prostitute/5)) < minut and $curloc ! 'mod_wlife_solicitation' and $curloc ! 'shop' and menu_off = 0 and $loc = $curloc: gs 'mod_wlife_solicitation', 'chance'
	
	if pav_prostitute >= 100 and pcs_inhib > 60 and PCloStyle = 4 and ShoHeels > 3 and (($metka = 'street' and $loc = 'mod_wlife_warehouse') or ($metka = '' and ($loc = 'gdk' or $loc = 'pav_residential' or $loc = 'pav_industrial' or $loc = 'pav_commercial' or $loc = 'pavtrain' or $loc = 'liam')) or ($metka = 'start' and ($loc = 'pav_complex' or $loc = 'pav_park'))) and hour > 6 and hour < 23 and $curloc ! 'shop' and menu_off = 0 and $loc = $curloc:
		pl '<center><a href="exec: gt ''mod_wlife_solicitation'', ''search''"><img title="Click to start working in Pavlovsk." height = 80 src="mod/wlife/images/objects/prostitute.png"></a></center>'
		act 'Search for clients': gt 'mod_wlife_solicitation', 'search'	
	end


end

!!Removes the vanilla Vadim Bely
if npc_QW['A113'] ! 2:
	npc_QW['A113'] = 2
	killvar 'belfirstweek'
	killvar 'belgangPay'
	killvar 'daybelixsex'
	killvar 'belgangday'
	killvar 'belgangPayweekAmount'
	killvar 'belgangPayweek'
	killvar 'belgangPayextension'
	killvar 'belgangProstitute'
end

!!Blocks vanilla prostitution event in the residential area
if pav_residential_prost_day ! daystart: pav_residential_prost_day = daystart

--- mod_wlife ---------------------------------