[added] coded nutlucks fuckable or not website

locations/Komp.qsrc

@@ -72,8 +72,8 @@ if $ARGS[0] = 'brows':
 
 		act 'Search for cable TV services (1:00)':gt 'Komp', 'kabtv'
 		act 'Play an online game':gt 'KGstart'
+		if fuckornot = 3: act 'Visit ''Fuckable or not'' site': $view_location = 'komp' & gt 'komp', 'fuckornot'
 		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 $loc ! 'shulga_room' and $loc ! 'anushapt':act 'Go to MyFreeCams.org':gt 'Komp', 'mfc'
@@ -1582,9 +1582,34 @@ if $ARGS[0] = 'bank':
 	act 'Close your browser':gt 'Komp', 'start'
 end
 
-if $ARGS[0] = 'fin':
-	gt $loc, $metka
+
+
+if $ARGS[0] = 'fuckornot':
+	if fuckornot = 2: fuckornot = 3
+	
+	gs 'gschool_groups', 'fuckornot'
+	
+	'10: Perfection. - Would let her do whatever she wants to me'
+	'9: Smoking Hot. - Would eat her ass'
+	'8: Hot. - Would fuck that ass'
+	'7: Damn girl. - Bragging rights for fucking.'
+	'6: Mos def smashable. - Totally fuckable, fuck buddy material'
+	'5: Merely fuckable. - wouldn''t mind smashing it, blowjob buddy material.'
+	'4: Almost fuckable. - Doable, in the dark or to get a blowjob from.'
+	'3: Unattractive. - Doable, if I get myself drunk first, good match for Petria'
+	'2: Fugly. - Has potential compared to a trash bin, even Lesco could do better'
+	'1: Hideous. - Wouldn''t touch it with a stick'
+	
+	act 'Leave the site':
+		if $view_location = 'school':
+			gt 'gschool_lessons', 'short_break'
+		else
+			gt 'komp', 'start'
+		end
+	end
 end
 
+if $ARGS[0] = 'fin': gt $loc, $metka
+
 --- Komp ---------------------------------
 

locations/gschool_groups.qsrc

@@ -32,6 +32,7 @@ if $ARGS[0] = 'teachers':
 
 	'<<$teach_text>>'
 	'</table></center>'
+	killvar 'i'
 end
 
 if $ARGS[0] = 'nerds':
@@ -56,6 +57,7 @@ if $ARGS[0] = 'nerds':
 
 	'<<$nerd_text>>'
 	'</table></center>'
+	killvar 'i'
 end
 
 if $ARGS[0] = 'jocks':
@@ -80,6 +82,7 @@ if $ARGS[0] = 'jocks':
 
 	'<<$jock_text>>'
 	'</table></center>'
+	killvar 'i'
 end
 
 if $ARGS[0] = 'popular':
@@ -104,6 +107,7 @@ if $ARGS[0] = 'popular':
 
 	'<<$pop_text>>'
 	'</table></center>'
+	killvar 'i'
 end
 
 if $ARGS[0] = 'gopniks':
@@ -128,6 +132,7 @@ if $ARGS[0] = 'gopniks':
 
 	'<<$gop_text>>'
 	'</table></center>'
+	killvar 'i'
 end
 
 if $ARGS[0] = 'outcasts':
@@ -152,6 +157,48 @@ if $ARGS[0] = 'outcasts':
 
 	'<<$oc_text>>'
 	'</table></center>'
+	killvar 'i'
+end
+
+if $ARGS[0] = 'fuckornot':
+	killvar '$fu_text'
+	killvar '$fu_count'
+	j = 11
+	'<center><table cellspacing="3">'
+	:fu_loop_2
+		j -= 1
+		i = 1
+		:fu_loop
+			if fu_count = 6 : $fu_text += '<tr>'
+			
+			if hotcat = j and hotcat_rating_set = 0:
+				fu_count += 1
+				hotcat_rating_set = 1
+				if player_avatar = 1:
+					$fu_text += '' + '<td bgcolor=<<$bcolor2>> align="center"><img  height="100" src="images/avatar.jpg"><br>' + '<<$pcs_nickname>>, <<hotcat>>/10'
+				else
+					$fu_text += '' + '<td bgcolor=<<$bcolor2>> align="center"><img  height="100" src="<<FUNC(''$face_image'')>>"><br>' + '<<$pcs_nickname>>, <<hotcat>>/10'
+				end
+			elseif hotcat ! j or hotcat_rating_set = 1:
+				if hotcat_rating['A<<i>>'] = j:
+					fu_count += 1
+					$fu_text += '' + '<td bgcolor=<<$bcolor2>> align="center"><img  height="100" src="images/pc/npc_headshots/<<i>>.jpg"><br>' + '<<$npc_nickname[''A<<i>>'']>>, <<hotcat_rating[''A<<i>>'']>>/10'
+				end
+			end
+			if fu_count < 6 and hotcat_rating['A<<i>>'] = j:
+				$fu_text += '</td>'
+			elseif fu_count = 6 and hotcat_rating['A<<i>>'] = j:
+				$fu_text +='</td></tr><tr>' & fu_count = 0
+			end
+			if hotcat ! j or hotcat_rating_set = 1: i += 1
+		if i <= aarraynumber:jump 'fu_loop'
+	if j > 1: jump 'fu_loop_2'
+
+	'<<$fu_text>>'
+	'</table></center>'
+	killvar 'hotcat_rating_set'
+	killvar 'i'
+	killvar 'j'
 end
 
 --- gschool_groups ---------------------------------

locations/gschool_lessons.qsrc

@@ -26,6 +26,42 @@ if $ARGS[0] = 'morning':
 			gs 'gschool_lessons', 'uniform_check'
 
 			act 'Follow': gt 'gschool_office', 'principal'
+		elseif late = 0 and fuckornot = 0:
+			fuckornot = 1
+			fuckornot_day = daystart
+			'<center><b><font color="maroon">School Hallway</font></b></center>'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/building/gschool_hall0<<Rand(0,2)>>.jpg"></center>'
+			'You walk past several boys snickering and looking at something on a tablet computer. "Have you guys checked out this site?"'
+			'"Which site." one of the boys asks.'
+			'"Fuckable or not. Some nerds made a web site listing all the girls where you can rate them on how fuckable they are." he says with a laugh.'
+			'A third boys almost grabs the tablet. "What!? Let me see that!" After that the descend into talking about which of the girls they think should be rated higher or lower.'
+			*nl			
+			gs 'gschool_lessons', 'uniform_check'
+			gs 'gschool_schedule'
+			act 'Go to first period': school_period = 0 & gt 'gschool_lessons', 'schedule'
+			act 'Skip first period': school_period = 1 & gt 'gschool_lessons', 'skip'
+
+			act 'Use water cooler': $breaktype = 'first' & gt 'gschool_break', 'watercooler'
+			act 'Go to the girls restroom': $breaktype = 'first' & gt 'gschool_break', 'girls_restroom'
+			act 'Go to the boys restroom': $breaktype = 'first' & gt 'gschool_break', 'boys_restroom'
+		elseif late = 0 and fuckornot = 1 and fuckornot_day < daystart - 2:
+			fuckornot = 2
+			fuckornot_day = daystart
+			'<center><b><font color="maroon">School Hallway</font></b></center>'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/building/gschool_hall0<<Rand(0,2)>>.jpg"></center>'
+			'You see a group of girls clustered around a laptop. "Oh my god that is so disgusting, boys are such pigs." the first one says.'
+			'A second girl nods. "I know right? And the name, so disgusting, they could have at least called it Hot or not."'
+			'A third one responds. "I heard some of the nerds made it and it was called Hot or not, but then some of the other guys found out about it and made them rename it." she says in disgust.'
+			'They are silent for a few moments when the second one asks. "Where did I get rated?" Then they all start talking about where they were rated and where they should have been rated, and of course how disgusting boys are.'
+			*nl			
+			gs 'gschool_lessons', 'uniform_check'
+			gs 'gschool_schedule'
+			act 'Go to first period': school_period = 0 & gt 'gschool_lessons', 'schedule'
+			act 'Skip first period': school_period = 1 & gt 'gschool_lessons', 'skip'
+
+			act 'Use water cooler': $breaktype = 'first' & gt 'gschool_break', 'watercooler'
+			act 'Go to the girls restroom': $breaktype = 'first' & gt 'gschool_break', 'girls_restroom'
+			act 'Go to the boys restroom': $breaktype = 'first' & gt 'gschool_break', 'boys_restroom'
 		else
 			'<center><b><font color="maroon">School Hallway</font></b></center>'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/building/gschool_hall0<<Rand(0,2)>>.jpg"></center>'

locations/gschool_lessonsev1.qsrc

@@ -610,9 +610,14 @@ end
 if $ARGS[0] = 'computer':
 	*clr & cla
 	menu_off = 1
-	if rand(0,5) > 0:
+	if fuckornot = 2 and fuckornot_day < daystart - 1:
+!!ToDo: Needs an image
+		'While working on your computer assignment you get a message from someone, no name is listed. Just has a school ID, you look around to see who might have sent it but no one seems to be paying attention to you, so you can''t tell. All the message says is "Where do you rate?" With a link to a web page.'
+		act 'Ignore it and focus on your school work.': fuckornot_day = daystart + rand(0,2) & gt 'gschool_lessons', 'short_break'
+		act 'Click on the link': $view_location = 'school' & gt 'komp', 'fuckornot'
+	elseif rand(0,5) > 0:
 		school_event_hour = 1
-		scooltiperand = rand(1,17)
+		scooltiperand = rand(1,18)
 		if scooltiperand = 1:
 			pcs_mood += 20
 			gs'stat'
@@ -974,6 +979,11 @@ if $ARGS[0] = 'computer':
 			else
 				act 'Flip him off (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end
+		elseif scooltiperand = 17 and fuckornot = 3:
+!!ToDo: Needs an image
+			'While working on your computer assignment you get a message from someone, no name is listed. Just has a school ID, you look around to see who might have sent it but no one seems to be paying attention to you, so you can''t tell. All the message says is "Did you check your rating lately?'
+			act 'Ignore it and focus on your school work.': fuckornot_day = daystart + rand(0,2) & gt 'gschool_lessons', 'short_break'
+			act 'Visit the ''Fuckable or not'' site': $view_location = 'school' & gt 'komp', 'fuckornot'
 		else
 			gt 'gschool_lessons', 'short_break'
 		end