glife/locations/komp_HF_or_not.qsrc

# komp_HF_or_not

if $ARGS[0] = 'fuckornot':
	*clr & cla
	minut += 5
	gs 'internet_mobile', 'use_internet', $subs, 5

	if fuckornot = 2: fuckornot = 3
	'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/fuckornot/fuckable_list.jpg"></center>'
	gs 'komp_HF_or_not', 'fuckornot_list'

	'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: 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 Petia.'
	'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'
		elseif $view_location = 'school_lesson':
			gt 'gschool_lessons2', 'computer'
		else
			gt 'komp', 'browse'
		end
	end
end


if $ARGS[0] = 'hotornot':
	*clr & cla
	minut += 5
	gs 'internet_mobile', 'use_internet', $subs, 5

	if hotornot = 2: hotornot = 3
	'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/hotornot/hotornot.jpg"></center>'
	gs 'komp_HF_or_not', 'hotornot_list'

	'10: Perfection - Would let him do whatever he wants to me.'
	'9: Smoking Hot - Arm candy.'
	'8: Hot - Would ride him.'
	'7: Damn son - Bragging rights for fucking.'
	'6: Rideable - Totally fuckable. Fuck buddy material'
	'5: Merely fuckable. - Doggy style so I don''t have to look at him.'
	'4: Almost fuckable - Might sit on his face.'
	'3: Unattractive - Not even Zinaida would be seen with him.'
	'2: Fugly - Horribly ugly. Just being seen with him would lose you social standing.'
	'1: Hideous - Wouldn''t touch it with a stick. Not even a whore would take his money.'

	act 'Leave the site':
		if $view_location = 'school':
			killvar 'access'
			gt 'gschool_lessons', 'short_break'
		elseif $view_location = 'school_lesson':
			gt 'gschool_lessons2', 'computer'
		else
			gt 'komp', 'browse'
		end
	end
end


if $ARGS[0] = 'fuckornot_list':
	$fu_text = ''
	fu_count = 0

	'<center><table cellspacing="3">'

	j = 11
	:fu_loop_2
		j -= 1

		i = 1
		:fu_loop
			!!Player
			if pcs_hotcat = j and hotcat_rating_set = 0:
				hotcat_rating_set = 1

				$fu_text += '<td bgcolor=<<$theme[''table_bg_alt'']>> align="center"><img  height="100" src="<<func(''$face_image'')>>"><br>'
				$fu_text += '<<$pcs_nickname>>, <<pcs_hotcat>>/10' + '</td>'

				fu_count += 1
				if fu_count = 6:
					$fu_text += '</tr><tr>'
					fu_count = 0
				end

			!!NPC
			else
				if npc_gender['A<<i>>'] = 1 and npc_hotcat['A<<i>>'] = j and (npc_grupTipe['A<<i>>'] > 0 and npc_grupTipe['A<<i>>'] < 6):

					$fu_text += '' + '<td bgcolor=<<$theme[''table_bg_alt'']>> align="center"><img  height="100" src="images/characters/shared/headshots_main/<<i>>.jpg"><br>' + '<<$npc_usedname[''A<<i>>'']>>, <<npc_hotcat[''A<<i>>'']>>/10' + '</td>'

					fu_count += 1
					if fu_count = 6:
						$fu_text +='</tr><tr>'
						fu_count = 0
					end
				end
			end

			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


if $ARGS[0] = 'hotornot_list':
	$ho_text = ''
	ho_count = 0

	'<center><table cellspacing="3">'

	j = 11
	:ho_loop_2
		j -= 1

		i = 1
		:ho_loop
			if npc_gender['A<<i>>'] = 0 and npc_hotcat['A<<i>>'] = j and (npc_grupTipe['A<<i>>'] > 0 and npc_grupTipe['A<<i>>'] < 6):

				$ho_text += '<td bgcolor=<<$theme[''table_bg_alt'']>> align="center"><img  height="100" src="images/characters/shared/headshots_main/<<i>>.jpg"><br>' + '<<$npc_usedname[''A<<i>>'']>>, <<npc_hotcat[''A<<i>>'']>>/10' + '</td>'

				ho_count += 1
				if ho_count = 6:
					$ho_text +='</tr><tr>'
					ho_count = 0
				end
			end

			i += 1

		if i <= aarraynumber: jump 'ho_loop'

	if j > 1: jump 'ho_loop_2'


	'<<$ho_text>>'
	'</table></center>'

	killvar 'i'
	killvar 'j'
end


!!below this line is new stuff for the fuckable and hot or not lists but adapted for the University so we have one there as well. Check my notes below and make sure I did it correct and make the small changes my notes indicate please, thanks, afterwards you can delete this line.
if $ARGS[0] = 'fuckornot_uni':
	*clr & cla
	minut += 5
	gs 'internet_mobile', 'use_internet', $subs, 5

	'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/fuckornot/fuckable_list.jpg"></center>'
	gs 'komp_HF_or_not', 'fuckornot_uni_list'

	'10: Perfection - Could die happy after tapping that.'
	'9: Angelic - Would hit that anywhere anytime.'
	'8: Smoking Hot - Bragging rights for fucking.'
	'7: Hot - Hot enough for a steady fuck.'
	'6: Doggy bitch - Would totally hit that from behind. Fuck buddy material'
	'5: Barely fuckable - Would let her suck my dick. Blowjob buddy material.'
	'4: Almost fuckable - Would fuck if she wore a bag over her head.'
	'3: Unattractive - Maybe if I was really horny and really drunk.'
	'2: Fugly - I would passout before I got drunk enough to hit that.'
	'1: Hideous - Are you sure it is even a girl?'

	act 'Leave the site': gt 'komp', 'browse'
end

if $ARGS[0] = 'hotornot_uni':
	*clr & cla
	minut += 5
	gs 'internet_mobile', 'use_internet', $subs, 5

	'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/hotornot/hotornot.jpg"></center>'
	gs 'komp_HF_or_not', 'hotornot_uni_list'

	'10: Perfection - His wish is my command.'
	'9: Dreamy - Would let him do whatever he wants to me.'
	'8: Smoking Hot - So hot, would happily have a one night stand.'
	'7: Hot - Would ride him hard and long.'
	'6: Rideable - Totally fuckable. Fuck buddy material'
	'5: Merely fuckable. - Doggy style so I don''t have to look at him.'
	'4: Almost fuckable - Might sit on his face.'
	'3: Unattractive - Almost certainly still a virgin, what girl would want to ride that?'
	'2: Fugly - Horribly ugly. Wouldn''t even be seen with him in public.'
	'1: Hideous - Wouldn''t touch it with a stick. Not even a whore would take his money.'

	act 'Leave the site': gt 'komp', 'browse'
end

if $ARGS[0] = 'fuckornot_uni_list':
	$fu_text = ''
	fu_count = 0

	j = 11
	'<center><table cellspacing="3">'

	:fu_loop_2
		j -= 1
		i  = 1

		:fu_loop
			!!Player
			if pcs_hotcat = j and hotcat_rating_set = 0:
				fu_count += 1
				hotcat_rating_set = 1
				$fu_text += '<td bgcolor=<<$theme[''table_bg_alt'']>> align="center"><img  height="100" src="<<func(''$face_image'')>>"><br>'
				$fu_text += '<<$pcs_nickname>>, <<pcs_hotcat>>/10' + '</td>'

				if fu_count = 6:
					$fu_text += '</tr><tr>'
					fu_count = 0
				end

			end

!!this code needs to be changed to list all the University female NPC''s, check I did this correct
			!!NPC
			if npc_gender['A<<i>>'] = 1 and npc_hotcat['A<<i>>'] = j and npc_uni_active['A<<i>>'] = 1 and $npc_uni_eduType['A<<i>>'] ! 'professor':
				fu_count += 1
				$fu_text += '<td bgcolor=<<$theme[''table_bg_alt'']>> align="center"><img  height="100" src="images/characters/shared/headshots_main/<<i>>.jpg"><br>' + '<<$npc_usedname[''A<<i>>'']>>, <<npc_hotcat[''A<<i>>'']>>/10' + '</td>'

				if fu_count = 6:
					$fu_text +='</tr><tr>'
					fu_count = 0
				end
			end

			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

if $ARGS[0] = 'hotornot_uni_list':
	$ho_text = ''
	ho_count = 0

	j = 11
	'<center><table cellspacing="3">'

	:ho_loop_2
		j -= 1
		i  = 1

		:ho_loop
!!this code needs to be changed to list all the University male NPC''s, check I did this correct
			if npc_gender['A<<i>>'] = 0 and npc_hotcat['A<<i>>'] = j and npc_uni_active['A<<i>>'] = 1 and $npc_uni_eduType['A<<i>>'] ! 'professor':
				ho_count += 1
				$ho_text += '<td bgcolor=<<$theme[''table_bg_alt'']>> align="center"><img  height="100" src="images/characters/shared/headshots_main/<<i>>.jpg"><br>' + '<<$npc_usedname[''A<<i>>'']>>, <<npc_hotcat[''A<<i>>'']>>/10' + '</td>'

				if ho_count = 6:
					$ho_text +='</tr><tr>'
					ho_count = 0
				end
			end

			i += 1

		if i <= aarraynumber: jump 'ho_loop'

	if j > 1: jump 'ho_loop_2'

	'<<$ho_text>>'
	'</table></center>'
	killvar 'i'
	killvar 'j'
end

--- komp_HF_or_not ---------------------------------