[added] New feature in cheat menu, helps to recall NPC information. Also displays every blood relative in game (so far only works for 'A' designation though).

locations/DNA.qsrc

@@ -41,30 +41,32 @@ if $ARGS[0] = 'relate':
 	!!paternal grandfather ID
 	temp2[6] = $mid ($ARGS[2], 67, 10)
 	
+	killvar 'gen_relationship'
+	
 	if temp1[0] = temp2[1] or temp1[0] = temp2[2] or temp2[0] = temp1[1] or temp2[0] = temp1[2]:
-		'Parent-child relation'
+		$gen_relationship += 'Parent-child relationship. '
 		if temp1[0] = temp2[1] or temp1[0] = temp2[2]:
 			!!temp1 is the parent, temp2 is child
-			if temp2[1] = temp2[5] or temp2[2] = temp2[4]:'Child is the result of incest (parent is also grandparent)'
-			if temp2[3] = temp2[5] and temp2[4] = temp2[6]:'Child is result of incest with close family member (sibling)'
-			if temp2[3] = temp2[5] or temp2[4] = temp2[6]:'Child is result of incest with close family member (half sibling)'
+			if temp2[1] = temp2[5] or temp2[2] = temp2[4]: $gen_relationship += 'Child is the result of incest (parent is also grandparent)'
+			if temp2[3] = temp2[5] and temp2[4] = temp2[6]: $gen_relationship += 'Child is result of incest with close family member (sibling)'
+			if temp2[3] = temp2[5] or temp2[4] = temp2[6]:$gen_relationship += 'Child is result of incest with close family member (half sibling)'
 		elseif temp2[0] = temp1[1] or temp2[0] = temp1[2]:
 			!!temp2 is the parent, temp1 is child
-			if temp1[1] = temp1[5] or temp1[2] = temp1[4]:'Child is the result of incest (parent is also grandparent)'
-			if temp1[3] = temp1[5] and temp1[4] = temp1[6]:'Child is result of incest with close family member (sibling)'
-			if temp1[3] = temp1[5] or temp1[4] = temp1[6]:'Child is result of incest with close family member (half sibling)'
+			if temp1[1] = temp1[5] or temp1[2] = temp1[4]: $gen_relationship += 'Child is the result of incest (parent is also grandparent)'
+			if temp1[3] = temp1[5] and temp1[4] = temp1[6]: $gen_relationship += 'Child is result of incest with close family member (sibling)'
+			if temp1[3] = temp1[5] or temp1[4] = temp1[6]: $gen_relationship += 'Child is result of incest with close family member (half sibling)'
 		end
 	elseif temp1[0] = temp2[3] or temp1[0] = temp2[4] or temp1[0] = temp2[5] or temp1[0] = temp2[6] or temp2[0] = temp1[3] or temp2[0] = temp1[4] or temp2[0] = temp1[5] or temp2[0] = temp1[6]:
-		'Grandparent-grandchild relation'
+		$gen_relationship += 'Grandparent-grandchild relationship.'
 	elseif temp1[1] = temp2[1] or temp1[2] = temp2[2]:
-		'Sibling relation'
-		if temp1[1] = temp2[1] and temp1[2] = temp2[2]:'Full sibling'
-		if temp1[1] ! temp2[1] or temp1[2] ! temp2[2]:'Half sibling'
+		$gen_relationship += 'Sibling relation'
+		if temp1[1] = temp2[1] and temp1[2] = temp2[2]: $gen_relationship += 'Full sibling'
+		if temp1[1] ! temp2[1] or temp1[2] ! temp2[2]: $gen_relationship += 'Half sibling'
 	elseif temp1[1] ! temp2[1] and temp1[2] ! temp2[2]:
 		if temp1[3] = temp2[3] and temp1[4] = temp2[4] or temp1[3] = temp2[5] and temp1[4] = temp2[6]:
-			'first cousins'
+			$gen_relationship += 'first cousins'
 		elseif temp1[3] = temp2[3] or temp1[4] = temp2[4] or temp1[3] = temp2[5] or temp1[4] = temp2[6]:
-			'distand blood relation'
+			$gen_relationship += 'distand blood relation'
 		end
 	end
 	killvar 'temp1'

locations/NPCFinder.qsrc

@@ -0,0 +1,65 @@
+*clr
+'<a href="exec: gt ''NPCFinder'', ''finder''">Enter the ID of the character.</a>'
+if $ARGS[0] = 'finder':
+	$looking = input ('ID (like <i>A17</i>)')
+	gt 'NPCFinder'
+end
+
+if $looking ! '':
+	'<br><br>'
+	'Found character:'
+	'<br>'
+	'<<$npc_pic[''<<looking>>'']>>'
+	'DNA string: <<$npc_dna[''<<$looking>>'']>>'
+	'Name: <<$npc_firstname[''<<$looking>>'']>> "<<$npc_nickname[''<<$looking>>'']>>" <<$npc_lastname[''<<$looking>>'']>> (<<$npc_usedname[''<<$looking>>'']>>)'
+	if npc_dob['<<$looking>>'] ! '': 'Birthday (YYYY-MM-DD): <<mid(npc_dob[''<<$looking>>''],1,4)>>-<<mid(npc_dob[''<<$looking>>''],5,2)>>-<<mid(npc_dob[''<<$looking>>''],7,2)>>'
+	'Intelligence: <<npc_intel[''<<$looking>>'']>>'
+	if npc_grupTipe['<<$looking>>'] ! '': 'Social group: <<npc_grupTipe[''<<$looking>>'']>>'
+	if npc_sexskill['<<$looking>>'] ! '': 'Sex skill: <<npc_sexskill[''<<$looking>>'']>>'
+	if npc_rep['<<$looking>>'] ! '': ' Reputation in school: <<npc_rep[''<<$looking>>'']>>'
+	if npc_haircol['<<$looking>>'] = 0:
+		'Natural hair color: black (<<npc_haircol[''<<$looking>>'']>>)'
+	elseif npc_haircol['<<$looking>>'] = 1:
+		'Natural hair color: brown (<<npc_haircol[''<<$looking>>'']>>)'
+	elseif npc_haircol['<<$looking>>'] = 2:
+		'Natural hair color: read (<<npc_haircol[''<<$looking>>'']>>)'
+	else
+		'Natural hair color: blonde (<<npc_haircol[''<<$looking>>'']>>)'
+	end
+	if hotcat_rating['<<$looking>>'] ! '': 'Hotness rating: <<hotcat_rating[''<<$looking>>'']>>'
+	'Appearance value: <<npc_apprnc[''<<$looking>>'']>>'
+	'Height: <<npc_height[''<<$looking>>'']>>'
+	if npc_gender['<<$looking>>'] = 0:
+		'Gender: male'
+		'Dick thickness: <<$npc_thdick[''<<$looking>>'']>>'
+		'Dick length: <<npc_dick[''<<$looking>>'']>>'
+		'Potential: <<npc_spermpot[''<<$looking>>'']>> (default is 10000)'
+	else
+		'Gender: female'
+		'Breast size: <<npc_bust[''<<$looking>>'']>>'
+	end
+	if npc_herpes['<<$looking>>'] > 0: $npcvendisease += 'herpes; '
+	if npc_syth['<<$looking>>'] > 0: $npcvendisease += 'syphilis; '
+	if npc_gon['<<$looking>>'] > 0: $npcvendisease += 'gonorrhea; '
+	if npc_thrush['<<$looking>>'] > 0: $npcvendisease += 'yeast infection; '
+	if $npcvendisease = '': $npcvendisease = 'none'
+	'Veneral diseases: <<$npcvendisease>>'
+	'Sexual acts with PC: <<npc_sex[''$looking'']>>'
+	'Perversion: <<npc_perv[''$looking'']>>'
+	'Notes: <<$npc_notes[''<<$looking>>'']>>'
+	''
+	'Found relationships:'
+	npctemp = 0
+	:relationshipfinder
+		gs 'DNA','relate', $npc_dna['<<$looking>>'], $npc_dna['A<<npctemp>>']
+		if $gen_relationship ! '' and 'A<<npctemp>>' ! '<<$looking>>':
+			'<br>ID: A<<npctemp>>'
+			'DNA string: <<$npc_dna[''A<<npctemp>>'']>>'
+			'Name: <<$npc_firstname[''A<<npctemp>>'']>> "<<$npc_nickname[''A<<npctemp>>'']>>" <<$npc_lastname[''A<<npctemp>>'']>> (<<$npc_usedname[''A<<npctemp>>'']>>)'
+			'Relationship type: <<$gen_relationship>>'
+		end
+	if npctemp < aarraynumber: npctemp += 1 & jump 'relationshipfinder'
+	killvar 'npctemp'
+	killvar 'npcvendisease'
+	killvar 'looking'
+end

locations/obj_din.qsrc

@@ -164,6 +164,12 @@ if $ARGS[0] = 'cheattabs':
 	else
 		$cheat_tab_list += '<th><a href="exec:menu_page = 9 & gs ''NPCChanger'', ''Start''">NPC Editor</a></th>'
 	end
+	
+	if menu_page = 15:
+		$cheat_tab_list += '<th>NPC Finder</th>'
+	else
+		$cheat_tab_list += '<th><a href="exec:menu_page = 15 & gs ''NPCFinder''">NPC Finder</a></th>'
+	end
 
 	$cheat_tab_list += '<tr>'