glife/locations/npc_finder.qsrc

# npc_finder

*clr
gs 'obj_din', 'cheattabs'
'<center><a href="exec: gt ''npc_finder'', ''finder''">Enter the ID of the character.</a></center>'
*nl
'<center><a href="exec: gt ''npc_finder'', ''finderDNA''">Enter the DNA of the character.</a></center>'

if $ARGS[0] = 'finder':
	$looking = input ('ID (like <i>A17</i>)')
	if $looking ! '': gt 'npc_finder'
end

if $ARGS[0] = 'finderDNA':
	$looking = input ('DNA (like <i>1594378993</i>)')
	if $looking ! '' and isnum($looking):
		killvar 'npctemp'
		:npcdnafinder
			if val($looking) = val($mid($npc_dna['A<<npctemp>>'], 1, 10)): $npctemp = 'A<<npctemp>>'
			if $npctemp = '':
				if val($looking) = val($mid($npc_dna['B<<npctemp>>'], 1, 10)): $npctemp = 'B<<npctemp>>'
			end
			if $npctemp = '':
				if val($looking) = val($mid($npc_dna['C<<npctemp>>'], 1, 10)): $npctemp = 'C<<npctemp>>'
			end
		if npctemp < arrsize('$npc_dna') and $npctemp = '': npctemp += 1 & jump 'npcdnafinder'
		$looking = $npctemp
		killvar 'npctemp'
	end
	if $looking = '': msg 'Can''t find this NPC' & killvar 'looking' & exit
	gt 'npc_finder'
end

if $looking ! '':
	'<br><br>'
	'Found character:'
	if $mid($looking,1,1) = 'A':
		if $npc_pic[$looking] = '':
			'<center><img src="images/characters/shared/headshots_main/big<<mid($looking,2)>>.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="<<$npc_pic[$looking]>>"></center>'
		end
	else
		'<center><img <<$set_imgh>> src="images/system/phone/icons/<<$npc_pic[$looking]>>"></center>'
	end
	'<br>ID: <<$looking>>'
	'DNA string: <<$npc_dna[$looking]>>'
	'Name: <<$npc_firstname[$looking]>>'+ iif($npc_nickname[$looking] ! '', ' "<<$npc_nickname[$looking]>>" ',' ') +'<<$npc_lastname[$looking]>> (<<$npc_usedname[$looking]>>)'
	if npc_dob[$looking] > 0: 'Birthday (YYYY-MM-DD): <<mid(npc_dob[$looking],1,4)>>-<<mid(npc_dob[$looking],5,2)>>-<<mid(npc_dob[$looking],7,2)>>'
	if npc_intel[$looking] > 0: 'Intelligence: <<npc_intel[$looking]>>'
	if npc_grupTipe[$looking] >= 0: 'Social group: <<npc_grupTipe[$looking]>>'
	if npc_sexskill[$looking] >= 0: 'Sex skill: <<npc_sexskill[$looking]>>'
	if npc_rep[$looking] > 0: ' 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 npc_hotcat[$looking] > 0: 'Hotness rating: <<npc_hotcat[$looking]>>'
	if npc_apprnc[$looking] > 0: 'Appearance value: <<npc_apprnc[$looking]>>'
	if nnpc_heightpc_rep[$looking] > 0: '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:
			'<center><img src="images/characters/shared/headshots_main/big<<npctemp>>.jpg"></center>'
			'<br><a href="exec:$looking = ''A<<npctemp>>'' & gt ''npc_finder''">ID: A<<npctemp>></a>'
			'DNA string: <<$npc_dna[''A<<npctemp>>'']>>'
			'Name: <<$npc_firstname[''A<<npctemp>>'']>>'+ iif($npc_nickname['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

--- npc_finder ---------------------------------