WLife-New/locations/mod_wlife.qsrc

# mod_wlife

!! Registering the mod_wlife_hotelroom as a home location with the main game 
if $func('homes_properties', 'get_property_code', 'mod_wlife_hotelroom') ! 'HotelRoom': 
	gs 'homes_properties_attr', 'add_new_home_location', 'mod_wlife_hotelroom', '', 'HotelRoom'
end

!! Checking if the player is in Pavlovsk 
!! To make some if/elseif easier to read. It is also easier to add new locations in this one place
wl_in_pavlovsk = ($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')

!! Checking if the player is in City 
!! To make some if/elseif checks easier to read
wl_in_city = ($loc = 'city_center' and $menu_loc = 'city_center') or ($loc = 'city_residential' and $menu_loc = 'city_residential') or ($loc = 'city_industrial' and $menu_loc = 'city_industrial') or ($loc = 'city_redlight' and $menu_loc = 'city_redlight') or ($loc = 'city_suburbs' and $menu_loc = 'city_suburbs') or ($loc_arg = 'outside' and $loc = 'city_industrial_train' and $menu_loc = 'city_industrial_train')


!!Inhibition Fix
if wl_inhib_fix > pcs_inhib: inhib_exp += 10

!! Family dog
if $status['dog'] ! 'blocked' and menu_off = 0:
	if ((($loc = 'korrPar' or $loc = 'mod_BroMod_korrPar' or $loc = 'korr' or $loc = 'korr2x') and $loc_arg = '') or ($loc = 'mod_wlife_hotelroom' and $loc_arg = 'start')) and rex['status'] = 0:
		gt 'mod_wlife_rex', 'name'
	elseif ((($loc = 'korrPar' or $loc = 'mod_BroMod_korrPar' or $loc = 'korr' or $loc = 'korr2x') and $loc_arg = '') or ($loc = 'mod_wlife_hotelroom' and $loc_arg = 'start')) and hour > 5 and $curloc = $loc:
		if STRPOS($MAINTXT,"'pet_dog'") > 0:
			$temp = replace($MAINTXT,"'pet_dog'","'mod_wlife_rex'")
			*clr
			$temp
		else
			'<br>Your dog <a href="exec: gt ''mod_wlife_rex'', ''start''"><<$rex[''name'']>></a> is lying on the floor.<br>'
		end
	elseif ((($loc = 'mod_BroMod_korrPar') and $loc_arg = '') or ($loc = 'mod_wlife_hotelroom' and $loc_arg = 'start')) and hour < 6 and $curloc = $loc:
		'<br><<$rex[''name'']>> is sleeping in his dog basket.<br>'
	elseif $loc = 'gaddvor' and $loc_arg = '' and hour > 7 and hour < 20:
		if rex['gadukino_day'] ! daystart:
			rex['relationship'] += 2
			rex['gadukino_day'] = daystart
		end
		'<br><a href="exec: gt ''mod_wlife_rex'', ''gadukino''"><<$rex[''name'']>></a> is running around in the garden.'
	end

	if $curloc = 'shop' and $shoplocation = 'main' and hour > 7 and hour < 21: gs 'mod_wlife_misc', 'dog_items'
end

if (locat['Fam_inGad'] = 0 and (locat['Mom_athome'] = 1 or locat['Mother'] = 1 or locat['Fam_livingroom'] = 1)) or ((locat['Anya_Gad'] = 0 and (locat['Anya'] < 6 or locat['Anya'] = 9 or locat['Anya'] = 11 or locat['Anya'] = 12 or locat['Anya'] = 15 or locat['Anya'] = 16 or locat['Anya'] = 19 or locat['Anya'] = 23 or locat['Anya_inroom'] = 1))):
	wl_status['apartment_empty'] = 0
else
	wl_status['apartment_empty'] = 1
end

if rex['timer_day'] ! daystart and $status['dog'] ! 'blocked': gs 'mod_wlife_functions', 'rex_status'

!!Weekly Timer
if week = 1 and wl_timer['week_check'] ! daystart:
	wl_timer['week'] += 1
	wl_timer['week_check'] = daystart

	if wl_status['hotel'] = 1:
		if wl_status['hotel_bill'] > 0 and 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.'
		elseif wl_status['hotel_bill'] > 0 and wl_status['hotel_bill'] > 0 and wl_status['main'] > -1:
			wl_debt['amount'] += wl_status['hotel_bill']
			'<br> <<wl_status[''hotel_bill'']>> <b>₽</b> was added to your debt to pay your hotel bill.'
		end
		hotelRoomDays['pav_hotel'] += 7
		if hotelRoom['pav_hotel'] ! 1: hotelRoom['pav_hotel'] = 1
		if func('homes_properties', 'has_access', 'pavlovsk_hotel') = 0: func('homes_properties', 'give_access', 'pavlovsk_hotel')
		wl_status['hotel_bill'] = 3500
	end
end

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

!!Location Checks
if wl_status['hotel'] = 1 and $loc = 'HotelRoom' and $hotel = 'pav_hotel':
	gt 'mod_wlife_hotelroom', 'start'
elseif wl_status['hotel'] = 1 and $loc = 'pav_market' and $loc_arg = '' and menu_off = 0 and $curloc = $loc:
	act 'Go to your hotel room': minut += 2 & gt 'mod_wlife_hotelroom', 'start'
elseif $curloc = 'gschool_lessons4' and $ARGS[0] = 'shower2' and $wl_brand['text_pubic'] ! '':
	gs 'mod_wlife_misc', 'school_shower'
elseif $wl_fetish['piss_drinking'] = 'yes' and wl_timer['pissing_self'] ! daystart and ($loc = 'vanrPar' or $loc = 'vanr2x' or $loc = 'vanr' or ($loc = 'mod_wlife_hotelroom' and $loc_arg = 'bathroom')):
	'<br>You could take a few minutes to <a href="exec: gt ''mod_wlife_misc_sex'', ''piss_self_0''">piss on yourself</a> before taking a shower or a bath.'
end

if wl_status['main'] = -1:
	if $loc = 'city_industrial_train' and $menu_loc = 'city_industrial_train' and $loc_arg = '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 $loc_arg = '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: gs ''mod_wlife_cheatmenu'', ''restore'' & gs ''stat''">click here</a>.'

	if wl_georgiy['payment_method'] = 1 and PCloStyle = 4 and ShoHeels > 3 and (($loc_arg = 'street' and $loc = 'mod_wlife_warehouse') or ($loc_arg = '' and ($loc = 'pav_commcenter' or $loc = 'pav_residential' or $loc = 'pav_industrial' or $loc = 'pav_commercial' or $loc = 'pav_market' or $loc = 'pushkin')) or ($loc_arg = '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 $loc_arg = '' and menu_off = 0 and (((hour = 7 or hour = 8) and kanikuli = 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 wl_in_pavlovsk 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
	elseif wl_status['main'] > 0 and (wl_in_pavlovsk or wl_in_city) and $menu_arg = '' and $ARGS[0] = '' and menu_off = 0:
		if ((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'
		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 and func('homes_properties', 'is_current_home', 'parents_home') ! 0: act 'Ask Doctor Mikhailov for a referral': wl_temp = 3 & gt 'mod_wlife_clinic', 'check'
		end
	end

	!!Location Checks 1
	if menu_off = 0 and $loc = 'pav_complex' and $loc_arg = 'start' and $menu_arg ! 'garages' and $curloc ! 'gopnik_initiation' 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 $loc_arg = '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''">'+iif(wl_sacha['cocaine_talk'] = 0, 'weed', 'drugs')+'</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 $loc_arg = '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 $loc_arg = '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.'
	elseif (wl_irina['status'] = 1 or wl_irina['status'] = 2) and wl_irina['timer'] < daystart and menu_off = 0 and week < 5 and wl_iosif['timer'] = 0:
		if wl_status['school_expelled'] < 2 and SchoolBlock = 0 and SchoolAtestat < 1 and $loc = 'gschool_lunch' and $loc_arg = 'break':
			gt 'mod_wlife_irina', 'school'
		elseif ($loc = 'korrPar' or $loc = 'mod_BroMod_korrPar' or $loc = 'korr' or $loc = 'korr2x' or ($loc = 'mod_wlife_hotelroom' and $loc_arg = 'start')) and hour > 13 and (wl_status['school_expelled'] = 2 or SchoolBlock = 1 or SchoolAtestat > 0):
			gt 'mod_wlife_irina', 'not_school'
		end
	end

	!!Location Checks 2
	if menu_off = 0 and $loc = $wl_loc[0] and $loc_arg = $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 = 'pav_hotel' and $menu_arg = '') or ($loc = 'mod_wlife_hotelroom' and $loc_arg = 'start')) and menu_off = 0 and (wl_okoro['week'] = week or wl_maxim['week'] = week):
		if wl_okoro['week'] = week and hour < 22 and wl_okoro['status'] = 6:
			'<br>Léon will be back in his hotel room at 22:00.'
		elseif wl_okoro['week'] = week and hour > 21 and wl_okoro['status'] = 6:
			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 wl_okoro['status'] = 10 and wl_okoro['week'] = week and $loc = 'city_suburbs':
		if hour > 21 or (hour = 21 and minut > 40):
			act 'Visit Henri and Léon Okoro': gt 'mod_wlife_okoro', 'reunion_0'
		else
			'<br>The Okoro brothers will be back around 22:00.'
		end
	elseif ($loc = 'korrPar' or $loc = 'mod_BroMod_korrPar' or $loc = 'korr' or $loc = 'korr2x' or ($loc = 'mod_wlife_hotelroom' and $loc_arg = 'start')) and wl_status['detective'] = 5 and wl_iosif['katharina'] > 0 and wl_crime['katharina_murder'] > 0 and wl_timer['detective'] < daystart and menu_off = 0:
		gt 'mod_wlife_iosif', 'vase'
	elseif ($loc = 'korrPar' or $loc = 'mod_BroMod_korrPar' or $loc = 'korr' or $loc = 'korr2x' or ($loc = 'mod_wlife_hotelroom' and $loc_arg = 'start')) and wl_okoro['status'] = 9 and (wl_okoro['timer'] + 14) < daystart and hour > 13 and week < 4 and menu_off = 0:
		gt 'mod_wlife_okoro', 'gift_basket'
	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 $loc_arg = '' and hour = 16 and minut < 45 and locat['Mom_cafe_sex'] = 0) or (wl_mother['clothes_timer_outside'] ! daystart and $loc = 'pav_complex' and $loc_arg = 'start' and ((hour = 15 and minut > 30 and locat['Mom_cafe_sex'] = 0) or (hour = 16 and minut > 30 and locat['Mom_cafe_sex'] = 1)))) and menu_off = 0 and wl_whore['shifts_message'] = 1 and locat['Fam_inGad'] = 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 $loc_arg = '' and menu_off = 0 and (((hour = 7 or hour = 8) and kanikuli = 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

	!!Vase:
	if wl_status['detective'] = 7 and ((($loc = 'bedrPar' or $loc = 'mod_BroMod_bedrPar' or $loc = 'bedr' or $loc = 'bedr2x') and $loc_arg = '') or ($loc = 'mod_wlife_hotelroom' and $loc_arg = 'start')) and menu_off = 0: 'On your dresser stands a <a href="exec: gt ''mod_wlife_misc'', ''vase''">heavy vase</a>.'

	!!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 mid($start_type,1,2) = 'sg':
		pl '<br><center><img height = 60 src="mod/wlife/images/objects/banner.png"></center>'
		if pcs_inhib > 20:
			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 80.'
		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>'
		elseif wl_okoro['status'] = 10 and wl_okoro['week'] = week:
			$wl_status_msg += '<td><a href="exec: msg ''You can go to the suburbs of St. Petersburg tonight (22:00) to meet the Okoro brothers.''"><img title="You can go to the suburbs of the city (22:00) to meet the Okoro brothers." 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>'
		end

		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 (($loc_arg = 'street' and $loc = 'mod_wlife_warehouse') or ($loc_arg = '' and ($loc = 'pav_commcenter' or $loc = 'pav_residential' or $loc = 'pav_industrial' or $loc = 'pav_commercial' or $loc = 'pav_market' or $loc = 'pushkin')) or ($loc_arg = '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['main'] >= 5 and wl_status['school_expelled'] = 0 and SchoolBlock = 0 and SchoolAtestat < 1 and hour > 14:
		if schoolprogul > 0:
			gs 'grades', 'grade_award', 'school', 'math', -20
			gs 'grades', 'grade_award', 'school', 'rus', -20
			gs 'grades', 'grade_award', 'school', 'lit', -20
			gs 'grades', 'grade_award', 'school', 'art', -20
			gs 'grades', 'grade_award', 'school', 'bio', -20
			gs 'grades', 'grade_award', 'school', 'pe', -20
			gs 'grades', 'grade_award', 'school', 'eng', -20
			gs 'grades', 'grade_award', 'school', 'geo', -20
			gs 'grades', 'grade_award', 'school', 'sci', -20
			gs 'grades', 'grade_award', 'school', 'shop', -20
			gs 'grades', 'grade_award', 'school', 'comp', -20
			gs 'grades', 'grade_award', 'school', 'mus', -20
			gs 'grades', 'grade_award', 'school', 'his', -20
			schoolprogul = 0
			wl_status['school_skip'] += 1
		elseif wl_status['school_skip'] = 9:
			wl_status['school_expelled'] = 1
		elseif schoolPredupr > 0:
			schoolPredupr = 0
		end
		gs 'grades', 'grade above', 'school',0
		gs 'grades', 'grade above', 'school',30

		if (class['school_grades_above_0'] - class['school_grades_above_30']) > 1 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' or $loc = 'mod_wlife_hotelroom') 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 and wl_okoro['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'
		elseif wl_thought['BDSM'] = 0 and wl_irina['status'] > 1:
			gt 'mod_wlife_thoughts', 'BDSM'
		end
	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 ---------------------------------