:: computer[menu]
	<<ret 'Shut your computer down'>>	
	<<image "pc/items/accessories/computer/komp.jpg">>
	
	<<if $location.furniture.computer.webcam>>
		<<act 'Uninstall Webcam'>>
			<<run $inventory.inc('webcam')>>
			<<run $location.updateFurniture('computer',{webcam:false})>>
			<<refresh>>
		<</act>>
	<<elseif $inventory.get('webcam') > 0>>
		<<act 'Install Webcam'>>
			<<run $inventory.dec('webcam')>>
			<<run $location.updateFurniture('computer',{webcam:true})>>
			<<refresh>>
		<</act>>
	<</if>>

	<<if !setup.hasInternet()>>
		<p>
			<<negative>>
				Your current location has no online access. Features that rely on an active internet connection are not available.
			<</negative>>
		</p>
	<<else>>
		<<act 'Browser'>>
			<<gt 'computer_browse'>>
		<</act>>

		
	<</if>>

	<!--
	<<act 'Play Solitaire (0:20)'>>
		<<gt 'computer_pasians'>>
	<</act>>-->

	<!--
	<<if getvar("$AlbinaQW['flashdrive']") == 1>>
		<<if $loc == 'dachain' or $loc == 'sitr' or $loc == 'bedr' or $loc == 'bedr2x' or ($loc == 'uni_dorm' and $loc_arg == 'dorm_room') or ($loc == 'city_mansion_residence_2' and $loc_arg == 'yoffice') or ($loc == 'pav_shared_apt' and $loc_arg == 'pcsRoom') or ($loc == 'mey_home' and $loc_arg == '3') or ($loc == 'city_house_res_misc' and $loc_arg == 'livroom') or $loc == 'nichBedroomServant' or (getvar("$locat['Anya_inroom']") == 0 and $loc == 'bedrPar')>>
			<<act 'Check Albina`s flash drive'>>
				<<gt 'albina_house_events' 'flash_drive'>>
			<</act>>
		<</if>>
	<</if>>
	<<if getvar("$GameCD") > 0>>
		<<act 'Play Disopl'>>
			<<gt 'KGDstart'>>
		<</act>>

	<</if>>
	<<if getvar("$GameCD2") > 0>>
		<<act 'Play Sunset Dead'>>
			<<gt 'KGZstart'>>
		<</act>>

	<</if>>
	<<if getvar("$GameCD3") > 0>>
		<<act 'Play Albido'>>
			<<gt 'FSstart'>>
		<</act>>
	<</if>>-->

:: computer_sale[event]
	<!-- !! TODO: Update time and internet-->
	<!-- !! IMPORTANT: What happens if an activity takes more time than the minutes Sveta has? We just say "You tried, but could not finish"?-->
	<<if $access['metered'] and getvar("$subscription["+$subs+"]") < 15>>
		<p>You check the website, but realise that subscription[$subs] minutes won't be enough to fill out all the forms.</p>
	<<else>>
		<<set $time.minutes += 30>>
		<<set $elektro += 3>>
		
		<<image "pc/items/accessories/computer/komp.jpg">>
		You go to a popular website where people can post advertisements for free. You could post an advertisement here.
		<<if getvar("$obkvsdam") >= 1 and setup.func('homes_properties', 'property_status', 'city_apartment') == 2>>
			You placed an advertisement to rent out your apartment. You should probably check every once in a while to see if anyone responded.

		<</if>>
		<<if getvar("$obkvsdam") == 0 and setup.func('homes_properties', 'property_status', 'city_apartment') == 2>>
			<<actCLA 'Rent out your city residential apartment'>>
				<<set $obkvsdam = 1>> <<gt 'computer_sale'>>
			<</actCLA>>
		<<elseif getvar("$obkvsdam") > 0>>
			<<actCLA 'Check if you got any replies'>>
				<<if getvar("$obkvsdam") == 1>>
					No one has responded to your offer to rent out your apartment just yet.
				<<elseif getvar("$obkvsdam") > 1>>
					<<set $predsum = 14000 + ($obkvsdam * 1000)>>
					<p>Someone wants to stay in your apartment for a month! They're offering you predsumm <b>₽</b> in cash.</p>
					<<actCLA 'Accept the offer'>>
						<<gs 'homes_properties' 'tenants_move_in' 'city_apartment' iif(month + 1 > 12, 1, month + 1) MIN(day, monthsEnd[$tenant_endmonth])>>
						<<set $finances.bank += $predsumm>>
						<<gt 'computer'>>
					<</actCLA>>
					<<set $predsum to null>>
				<</if>>
				<<act 'Leave this website'>>
					<<gt 'computer_browse'>>
				<</act>>
			<</actCLA>>
		<</if>>
	<</if>>
	<<act 'Leave this website'>>
		<<gt 'computer_browse'>>
	<</act>>
<</if>>





:: computer_kabtv[event]
	<<set $time.minutes += 5>>
	<<set $elektro += 3>>
	
	<<image "pc/items/accessories/computer/komp.jpg">>
	<p>You check out the website of the local cable TV provider. A subscription for cable TV costs 300 <b>₽</b> per month, payable on the 25th.</p>
	<p></p>
	<<if getvar("$kabel") == 1>>
		You currently have a cable subscription for your TV.
		<<actCLA 'Cancel your cable subscription (300 <b>₽</b>)'>>
			<<set $kabel = 0>>
			<<set $finances.bank -= 300>>
			<<msg 'Your subscription has been cancelled and you can no longer watch the extra channels. The cable firm charges a one-time fee of 300 <b>₽</b> for disconnecting you.'>>
			<<gt 'computer_browse'>>
		<</actCLA>>
	<<elseif getvar("$kabel") == 0 and getvar("$TV") == 1>>
		You currently do not have a cable subscription for your TV.
		<<actCLA 'Get cable services for your TV'>>
			<<msg 'Unfortunately your TV is too old and crap for cable. You""ll have to get a modern TV first.'>>
			<<gt 'computer_browse'>>
		<</actCLA>>
	<<elseif getvar("$kabel") == 0 and getvar("$TV") >= 2>>
		You currently do not have a cable subscription for your TV.
		<<actCLA 'Get cable services for your TV (300 <b>₽</b> per month)'>>
			<<set $kabel = 1>>
			<<set $time.minutes += 10>>
			
			<<msg 'Soon after you fill out the form, you get a confirmation message that your sign-up was successful. You should have the extra channels on your TV now.'>>
			<<gt 'computer_browse'>>
		<</actCLA>>
	<<else>>
		<p>You don't even have a TV!</p>
		<<act 'Leave this website'>>
			<<gt 'computer_browse'>>
		<</act>>
	<</if>>
	<<act 'Leave this website'>>
		<<gt 'computer_browse'>>
	<</act>>
<</if>>
:: computer_foto[event]
	<<if getvar("$subscription["+$subs+"]") < 1>>
		<center><b>Browser</b></center>
		<<image "pc/items/accessories/computer/eror.jpg">>
		'You have no internet access, '+iif(access['metered'], ' you have to buy more minutes.', ' maybe you forgot to pay the internet bill?')
		<<act '<B>Close the browser</B>'>>
			<<gt 'computer'>>
		<</act>>
	<<else>>
		<<image "pc/items/accessories/computer/komp.jpg">>
		<p>You're currently on Russia's biggest social network site, "Assbook". Almost everyone has an account here, probably including the girl you took that photo of the other day!</p>
		<p>"Maybe if I can find her, I can blackmail her", you think to yourself. "This photo is very raunchy, after all... I bet she would hate to see it published, if she's important!"</p>
		<p>You can't help but rub your pussy every now and then while you look at it. You'll probably keep a copy of this for yourself, either way!</p>
		<<if getvar("$shantfoto") > 0>>
			<<actCLA 'Try to find out who she is (1:00)'>>
				<<set $time.minutes += 60>>
				<<set $elektro += 6>>
				
				<<set $fotsearchrand = rand(0,10)>>
				<<if getvar("$fotsearchrand") <= 7>>
					Despite your best efforts, you don't manage to find the girl this time.
					<<act 'Go back to the "Assbook" main page'>>
						<<gt 'computer_foto'>>
					<</act>>
				<</if>>
				<<if getvar("$fotsearchrand") > 7>>
					<<set $shantfoto -= 1>>
					<p>Despite your best efforts, you don't manage to... wait, that's her! You found her!</p>
					<<set $gerofotorand = rand(0,100)>>
					<<if getvar("$gerofotorand") > 30>>
						Your dreams of making a fortune are quickly shattered when you check out her profile. Cheap clothes, few friends, lives in a poor district of the city... this girl is not worth blackmailing.
						<<act 'Go back to the "Assbook" main page'>>
							<<gt 'computer_foto'>>
						<</act>>
					<</if>>
					<<if getvar("$gerofotorand") >= 5 and getvar("$gerofotorand") <= 30>>
						<<set $shantsr += 1>>
						When you click through her profile, you estimate she's an unknown middle class girl. Still, she has a lot of friends and the outfits she's wearing in her photos look stylish... she has money to spend.
						<p>"Why not make her spend some of it on me?" you laugh to yourself, and begin to write a private message.</p>
						<p>You send her a copy of the photo with the private message, and tell her to transfer a very modest amount of 5,000 <b>₽</b> to your bank account. If she doesn't want that photo to be sent to her entire friends list (which you secured before sending the message), the money needs to be on your bank account within 48 hours.</p>
						<<act 'Go back to the "Assbook" main page'>>
							<<gt 'computer_foto'>>
						<</act>>
					<</if>>
					<<if getvar("$gerofotorand") < 5>>
						<<set $shantbog += 1>>
						<p>You can barely believe it when you read her profile, this girl is a celebrity! It would be a major scandal if this photo got published!</p>
						<p>You send her a copy of the photo with a private message, telling her to transfer 30,000 <b>₽</b> to your bank account. If she doesn't want that photo to be sent to the press, the money needs to be on your bank account within 48 hours.</p>
						<<act 'Go back to the "Assbook" main page'>>
							<<gt 'computer_foto'>>
						<</act>>
					<</if>>
				<</if>>
			<</actCLA>>
		<</if>>
		<<act 'Leave this website'>>
			<<gt 'computer_browse'>>
		<</act>>
	<</if>>
<</if>>

:: computer_study[event]
	<<set $time.minutes += 30>>
	<<set $elektro += 3>>
	
	<<run $pc.skillExperienceGain('intelligence',1 + (mentats_dose - rand(0,mentats_dose)))>>
	<<run $pc.skillExperienceGain('computer',1)>>
	<center><b>The Institute for Education Measurement</b></center>
	<<image "pc/items/accessories/computer/study.jpg">>
	You spend an hour on the IEM website, reading news articles and educational blogs. You feel a bit smarter afterwards.
	<<act 'Leave this website'>>
		<<gt 'computer_browse'>>
	<</act>>
<</if>>
:: computer_agent[event]
	<<set $time.minutes += 30>>
	<<set $elektro += 3>>
	
	<<gs 'housing' 'rent'>>
	<<gs 'housing' 'sale'>>
	<center><b>Kirsanova Real Estate Agency</b></center>
	<<image "pc/items/accessories/computer/agent.jpg">>
	You're currently at the website of the largest real estate agency in the area, Kirsanova Real Estate Agency.
	<br>The website shows they have apartments available for rent or purchase in various areas, both in and out of the city. Renting or purchase requires you visit the agency in the city center to fill an application and collect the keys. Rent on all properties is deducted every month on the 25th.
	<b>Property listing</b>:
	<<if setup.func('homes_properties', 'is_property_of_status', 'rented', 'city_apartment')>>
		<<if setup.func('homes_properties', 'get_rent_days', 'city_apartment') > 0>>
			You have <B><<func(''homes_properties'', ''get_rent_days'', ''city_apartment'')>> days</B> remaining on the rental of your St. Petersburg apartment.
		<</if>>
		<<if $finances.bankAvailable >= setup.func('homes_properties', 'get_rent_amount', 'city_apartment')>>
			<<actCLA 'Pay rent on St. Petersburg'>>
				<<gs 'homes_properties' 'pay_rent' 'city_apartment' 'card'>>
				After a very simple procedure, you can now call an apartment in the city residential district home for another month. You have <B><<func(''homes_properties'', ''get_rent_days'', ''city_apartment'')>> days</B> remaining on the rental of your apartment.
				<<act 'Leave this website'>>
					<<gt 'computer_browse'>>
				<</act>>
			<</actCLA>>
		<</if>>
	<<elseif setup.func('homes_properties', 'has_access', 'city_apartment') == 0>>
		There is an apartment in St. Petersburg residental area available, for rent or puchase.
		<p>Rent is: setup.func('homes_properties', 'get_rent_amount', 'city_apartment')<b>₽</b> per month. Current sale price is listed at: setup.func('homes_properties', 'get_property_sales_price', 'city_apartment') <b>₽</b>.</p>
	<</if>>
	<<if setup.func('homes_properties', 'has_access', 'village_cottage') == 0>>
		There is a holiday cottage with an adjacent allotment in the communal village for sale.
		<p>Current sale price is listed at: setup.func('homes_properties', 'get_property_sales_price', 'village_cottage') <b>₽</b>.</p>
	<</if>>
	<<if setup.func('homes_properties', 'is_property_of_status', 'rented', 'old_town_apartment')>>
		<<if setup.func('homes_properties', 'get_rent_days', 'old_town_apartment') >= 0>>
			You have <B><<func(''homes_properties'', ''get_rent_days'', ''old_town_apartment'')>> days</B> remaining on the rental of your Pushkin apartment.
		<</if>>
		<<if $finances.bankAvailable >= setup.func('homes_properties', 'get_rent_amount', 'old_town_apartment')>>
			<<actCLA 'Pay rent on Pushkin'>>
				<<gs 'homes_properties' 'pay_rent' 'old_town_apartment' 'card'>>
				After a very simple procedure, you can now call an apartment in Pushkin home for another month. You have <B><<func(''homes_properties'', ''get_rent_days'', ''old_town_apartment'')>> days</B> remaining on the rental of your apartment.
				<<act 'Leave this website'>>
					<<gt 'computer_browse'>>
				<</act>>
			<</actCLA>>
		<</if>>
	<<elseif setup.func('homes_properties', 'has_access', 'old_town_apartment') == 0>>
		There is an apartment in Pushkin area (Old Town) available to rent.
		<p>Rent is: setup.func('homes_properties', 'get_rent_amount', 'old_town_apartment')<b>₽</b> per month.</p>
	<</if>>
	<<if setup.func('homes_properties', 'has_access', 'matryona_mansion') == 0>>
		There is a plot in the suburbs available for puchase, with planning permission for a mansion.
		<p>Current sale price is listed at: setup.func('homes_properties', 'get_property_sales_price', 'matryona_mansion') <b>₽</b>.</p>
	<</if>>
	<<act 'Leave this website'>>
		<<gt 'computer_browse'>>
	<</act>>
<</if>>

:: computer_bank[event]
	<<image "pc/items/accessories/computer/online_bank.jpg">>
	<<if $finances.bankAvailable >= 10>>
		 * $pl
		<p>You can buy prepaid internet access online through your bank account. 1 hour of internet only costs 10 <b>₽</b>! *</p>
		 * $pl
		<<if $finances.bank >= 0>>
			<p>You have karta <b>₽</b> in your account.</p>
			<!-- FAILED TO CONVERT
				'You have an overdraft limit of <font color="blue"><<bankDebtLimit>></font>!'
			-----
				<<set ERROR: FAILED TO CONVERT LITERAL: """'You have an overdraft limit of <font color""" = ERROR: FAILED TO CONVERT LITERAL: """"blue"><<bankDebtLimit>><""" / ERROR: FAILED TO CONVERT LITERAL: """font>!'""">>

			-->
			<<warn "CONVERSION ERROR 9a220b64286b0988d8f273a837f6d12c">>
		<<else>>
			<!-- FAILED TO CONVERT
				'You are overdrawn by <font color="red"><<-1 * karta>> <b>₽</b></font>.'
			-----
				<<set ERROR: FAILED TO CONVERT LITERAL: """'You are overdrawn by <font color""" = ERROR: FAILED TO CONVERT LITERAL: """"red"><<""" - 1 * ERROR: FAILED TO CONVERT LITERAL: """karta>> <b>₽<""" / ERROR: FAILED TO CONVERT LITERAL: """b><""" / ERROR: FAILED TO CONVERT LITERAL: """font>.'""">>

			-->
			<<warn "CONVERSION ERROR ac2462f7bdc2bd796377d882cae5b387">>
			<!-- FAILED TO CONVERT
				'You have a remaining credit limit of <font color="blue"><<bankDebtLimit + karta>></font>!'
			-----
				<<set ERROR: FAILED TO CONVERT LITERAL: """'You have a remaining credit limit of <font color""" = ERROR: FAILED TO CONVERT LITERAL: """"blue"><<bankDebtLimit""" + ERROR: FAILED TO CONVERT LITERAL: """karta>><""" / ERROR: FAILED TO CONVERT LITERAL: """font>!'""">>

			-->
			<<warn "CONVERSION ERROR e37b59c0d34f20940f02a507fc3e6fb9">>
		<</if>>
		 * $pl
		<!-- !! TODO: This needs to be updated-->
		<<actCLA 'Buy internet time'>>
			<!-- FAILED TO CONVERT
				intinp = input ("How many hours of internet access do you wish to purchase? (1hr = 10 <b>₽</b>)")
			-----
				<<set $intinp = input ("How many hours of internet access do you wish to purchase? (ERROR: FAILED TO CONVERT LITERAL: """1hr = 10 <b>₽<""" / ERROR: FAILED TO CONVERT LITERAL: """b>""")")>>

			-->
			<<warn "CONVERSION ERROR ad5397d5723ed1c3be1b420356877311">>
			<<if getvar("$intinp") <= 0 or $intinp * 10 > $finances.bankAvailable>>
				Invalid amount.
			<<else>>
				<<set $finances.bank -= $intinp * 10>>
				<<set $internet += $intinp>>
				You pay for <<intinp>> hours of prepaid internet access. You have a total of <<internet>> hours of internet access remaining.
				<p>intinp * 10 <b>₽</b> was removed from your account to pay for it.</p>
			<</if>>
			<<act 'Continue'>>
				<<gt 'computer_bank'>>
			<</act>>
		<</actCLA>>
	<</if>>
	<<act 'Close your browser'>>
		<<gt 'computer_browse'>>
	<</act>>
<</if>>
:: computer_fuckornot[event]
	<<set $time.minutes += 5>>
	
	<<if getvar("$fuckornot") == 2>>
		<<set $fuckornot = 3>>

	<</if>>
	<<image "pc/items/accessories/computer/fuckornot/fuckable_list.jpg">>
	<<gs 'gschool_groups' 'fuckornot'>>
	<p>10: Perfection - Would let her do whatever she wants to me.</p>
	<p>9: Smoking Hot - Would eat her ass.</p>
	<p>8: Hot - Would fuck that ass.</p>
	<p>7: Damn girl - Bragging rights for fucking.</p>
	<p>6: Smashable - Totally fuckable. Fuck buddy material</p>
	<p>5: Merely fuckable - Wouldn't mind smashing it. Blowjob buddy material.</p>
	<p>4: Almost fuckable - Doable in the dark or to get a blowjob from.</p>
	<p>3: Unattractive - Doable if I get myself drunk first. Good match for Petia.</p>
	<p>2: Fugly - Has potential compared to a trash bin. Even Lesco could do better.</p>
	<p>1: Hideous - Wouldn't touch it with a stick.</p>
	<<actCLA 'Leave the site'>>
		<<if $view_location == 'school'>>
			<<gt 'gschool_lessons' 'short_break'>>
		<<else>>
			<<gt 'computer_browse'>>
		<</if>>
	<</actCLA>>
<</if>>
:: computer_hotornot[event]
	<<set $time.minutes += 5>>
	
	<<if getvar("$hotornot") == 2>>
		<<set $hotornot = 3>>

	<</if>>
	<<image "system/image_needed.png">>
	<<gs 'gschool_groups' 'hotornot'>>
	<p>10: Perfection - Would let him do whatever he wants to me.</p>
	<p>9: Smoking Hot - Arm candy.</p>
	<p>8: Hot - Would ride him.</p>
	<p>7: Damn son - Bragging rights for fucking.</p>
	<p>6: Rideable - Totally fuckable. Fuck buddy material</p>
	<p>5: Merely fuckable. - Doggy style so I don't have to look at him.</p>
	<p>4: Almost fuckable - Might sit on his face.</p>
	<p>3: Unattractive - Not even Zinaida would be seen with him.</p>
	<p>2: Fugly - Horribly ugly. Just being seen with him would lose you social standing.</p>
	<p>1: Hideous - Wouldn't touch it with a stick. Not even a whore would take his money.</p>
	<<actCLA 'Leave the site'>>
		<<if $view_location == 'school'>>
			<<set $access to null>>
			<<gt 'gschool_lessons' 'short_break'>>
		<<else>>
			<<gt 'computer_browse'>>
		<</if>>
	<</actCLA>>
<</if>>
