Browse Source

Merge remote-tracking branch 'Anjuna/master'

Kevin_Smarts 11 months ago
parent
commit
752d66b665
3 changed files with 147 additions and 7 deletions
  1. 1 0
      glife.qproj
  2. 7 7
      locations/Komp.qsrc
  3. 139 0
      locations/komp_assbook.qsrc

+ 1 - 0
glife.qproj

@@ -330,6 +330,7 @@
 		<Location name="kompMFCanal"/>
 		<Location name="kompMFCoral"/>
 		<Location name="komp_HF_or_not"/>
+		<Location name="komp_assbook"/>
 		<Location name="mirror"/>
 		<Location name="stol"/>
 		<Location name="kit_din"/>

+ 7 - 7
locations/Komp.qsrc

@@ -56,9 +56,7 @@ if $ARGS[0] = 'browse':
 	gs 'stat'
 	menu_off = 0
 	
-	act 'Close the browser':
-		gt 'komp','start'
-	end
+	act 'Close the browser': gt 'komp','start'
 	
 	!! TODO: Update
 	!! check if the original account still valid?
@@ -85,7 +83,7 @@ if $ARGS[0] = 'browse':
 		if $access['noporn'] = 1:
 			"<b><<$access['noporn']>></b>"
 		end
-		if  camwhore = 1 and access['nocamshow'] = 1 and mc_inventory['tech_webcam'] = 1: 
+		if camwhore = 1 and access['nocamshow'] = 1 and mc_inventory['tech_webcam'] = 1: 
 			"<b><<$access['nocamshow']>></b>"
 		end
 		if func('homes_properties', 'is_property_of_status', 'owned', 'city_apartment') and husband = 0: act 'Rent your apartment out': gt 'komp', 'sale'
@@ -104,13 +102,15 @@ if $ARGS[0] = 'browse':
 
 		act 'Search for cable TV services (1:00)': gt 'komp', 'kabtv'
 		act 'Play an online game': gt 'KGstart'
+		act 'Check social media on Assbook': gt 'komp_assbook', 'main'
+		if shantfoto > 0: act 'Find the girl you took photos of in the park': gt 'komp_assbook', 'blackmail'
+
 		if fuckornot = 3: act 'Visit ''Fuckable or not'' site': $view_location = 'komp' & gt 'komp_HF_or_not', 'fuckornot'
 		if hotornot >= 2: act 'Visit ''Hot or not'' site': $view_location = 'komp' & gt 'komp_HF_or_not', 'hotornot'
-!!new code make sure it will work please
+
 		if fuckornot_uni = 1: act 'Visit ''Fuckable or not'' University site': $view_location = 'komp' & gt 'komp_HF_or_not', 'fuckornot_uni'
 		if hotornot_uni = 1: act 'Visit ''Hot or not'' University site': $view_location = 'komp' & gt 'komp_HF_or_not', 'hotornot_uni'
 		!!if bankAccount > 0: act 'Visit your bank, maybe to purchase more online time': gt 'komp', 'bank'
-		if shantfoto > 0: act 'Find the girl you took photos of in the park on "Assbook"': gt 'komp', 'foto'
 		if gor_dorm = 7: act 'Read letter from Eugene': gt 'etoexhib', 'pos91'
 		if camwhore = 1 and access['nocamshow'] = 0 and mc_inventory['tech_webcam'] = 1: act 'Go to MyFreeCams.org': gt 'komp_camgirl', 'start'
 		if (mid($start_type,1,2) = 'sg' and SchoolAtestat = 0) or func('uniutil', 'student', 'enrolled'): act 'Spend time studying': gt 'komp', 'study'
@@ -119,7 +119,7 @@ if $ARGS[0] = 'browse':
 end
 
 if $ARGS[0] = 'sale':
-	*clr & cla	
+	*clr & cla
 	!! 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"?

+ 139 - 0
locations/komp_assbook.qsrc

@@ -0,0 +1,139 @@
+# komp_assbook
+
+if $ARGS[0] = 'main' or $ARGS[0] = '':
+	gs 'stat'
+	$subs = $access['subscription']
+
+	act 'Close Assbook': gt 'komp', 'browse'
+
+	'<center><b>Assbook</b></center>'
+	if subscription[$subs] < 1:
+		'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/eror.jpg"></center>'
+		'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 'komp','start'
+	else
+		'<center><img <<$set_imgh>> src="images/system/image_needed.jpg"></center>'
+		'You''re currently on Russia''s biggest social network site, "Assbook". Almost everyone has an account here'
+		*nl
+		if $assbook['account_name'] = '':
+			'Click here to log in or <a href="exec:gt ''komp_assbook'', ''signup'' ">sign up</a>'
+		else
+			'Click here to <a href="exec:gt ''komp_assbook'', ''login'' ">log in</a> or signup'
+			act 'Go to your page': gt 'komp_assbook', 'login'
+		end
+		
+		if shantfoto > 0: act 'Find the girl you took photos of in the park': gt 'komp_assbook', 'blackmail'
+		act 'Read more about Assbook': gt 'komp_assbook', 'mission_statements'
+	end
+end
+
+
+if $ARGS[0] = 'signup':
+	'<center><b>Assbook</b></center>'
+	'<center><img <<$set_imgh>> src="images/system/image_needed.jpg"></center>'
+	'You consider which name you''d like to register under.'
+	$assbook['account_name'] = input('Which name would you like to use? (Leave blank for <<$pcs_nickname>>)')
+	if $assbook['account_name'] = '': $assbook['account_name'] = '<<$pcs_nickname>>'
+	'You fill in your personal details and within a few moments you''ve created an account. You can even upload photos to your own page.'
+	minut += 5
+	elektro += 1
+	gs 'internet_mobile', 'use_internet', $subs, 5
+	act 'Go back to the main page': gt 'komp_assbook', 'main'
+end
+
+if $ARGS[0] = 'login':
+	'<center><img <<$set_imgh>> src="images/system/image_needed.jpg"></center>'
+	
+	'This content is WIP.'
+	
+	act 'Go back to the main page': gt 'komp_assbook', 'main'
+end
+
+
+if $ARGS[0] = 'mission_statements':
+	'Introducing Assbook: Where Connections Speak Louder than Words!'
+	'Dive into the vibrant and dynamic world of Assbook, your passport to a digital realm filled with the rich tapestry of Russian culture, diverse communities, and unparalleled social interactions. Here''s why Assbook is the social media platform you''ve been waiting for:'
+	*nl
+	'<b>Cultural Richness:</b>'
+	'Assbook isn''t just a social media site; it''s a celebration of Russian culture. Immerse yourself in a community that cherishes the arts, history, and the unique traditions that make Russia a tapestry of diversity. From captivating stories to stunning visuals, Assbook is your window into the soul of this extraordinary nation.'
+	*nl
+	'<b>Connect with a Purpose:</b>'
+	'Unlike other social media platforms, Assbook is designed to foster meaningful connections. Engage in discussions that matter, share experiences, and find like-minded individuals who appreciate the depth of human interaction. From intellectual debates to heartfelt conversations, Assbook encourages connections that go beyond the surface.'
+	*nl
+	'<b>Visual Storytelling:</b>'
+	'Capture and share your life''s moments through Assbook''s visually immersive experience. Whether it''s breathtaking landscapes, artistic expressions, or snapshots of everyday life, let your images tell the story. With an emphasis on visual storytelling, Assbook transforms your feed into a canvas of emotions, sparking connections through the power of imagery.'
+	*nl
+	'<b>Privacy and Security:</b>'
+	'Your online safety is our top priority. Assbook employs state-of-the-art security measures to ensure that your personal information remains private. Enjoy a worry-free social experience, knowing that your data is in safe hands.'
+	*nl
+	'<b>Community-driven Features:</b>'
+	'Assbook is constantly evolving based on user feedback. Have a suggestion or a feature you''d love to see? Our community-driven approach means that your voice matters. Shape the platform to suit your needs and make Assbook your own.'
+	*nl
+	'<b>Exclusive Events and Groups:</b>'
+	'Discover and participate in exclusive events and groups tailored to your interests. From cultural meet-ups to niche communities, Assbook provides a platform for you to connect with people who share your passions.'
+	*nl
+	'<b>Assbook for Business:</b>'
+	'Entrepreneurs and businesses, take note! Assbook offers a unique platform for networking, brand promotion, and reaching your target audience. Leverage the power of the Assbook community to elevate your brand and connect with potential customers.'
+	*nl
+	'Join the Assbook revolution today and experience social media in a way that transcends the ordinary. Embrace the beauty of Russian culture, forge lasting connections, and make Assbook your digital home!'
+
+	act 'Go back to the main page': gt 'komp_assbook', 'main'
+end
+
+
+if $ARGS[0] = 'blackmail':
+	gs 'stat'
+
+	'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/komp.jpg"></center>'
+	'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!'
+	'"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!"'
+	'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!'
+
+	act 'Try to find out who she is (1:00)':
+		cla
+		minut += 60
+		elektro += 6
+		gs 'internet_mobile', 'use_internet', $subs, 60
+		fotsearchrand = rand(0,10)
+
+		if 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 'komp_assbook', 'main'
+		end
+
+		if fotsearchrand > 7:
+			shantfoto -= 1
+			'Despite your best efforts, you don''t manage to... wait, that''s her! You found her!'
+			gerofotorand = rand(0,100)
+
+			if 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 'komp_assbook', 'main'
+			end
+
+			if gerofotorand >= 5 and gerofotorand <= 30:
+				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.'
+				'"Why not make her spend some of it on me?" you laugh to yourself, and begin to write a private message.'
+				'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.'
+
+				act 'Go back to the "Assbook" main page': gt 'komp_assbook', 'main'
+			end
+
+			if gerofotorand < 5:
+				shantbog += 1
+				'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!'
+				'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.'
+
+				act 'Go back to the "Assbook" main page': gt 'komp_assbook', 'main'
+			end
+		end
+	end
+
+	act 'Go back to the "Assbook" main page': gt 'komp_assbook', 'main'
+end
+
+
+--- komp_assbook ---------------------------------