# NPCChanger
if $ARGS[0] = 'Start':
n = 1
o = 10
gs 'NPCChanger', 'NPCLoop'
end
if $ARGS[0] = 'NPCLoop':
*clr
clr
cla
'*** THIS IS A WORK IN PROGRESS ***'
if n = 0:
n = 1
o = 10
end
:LoopNPC
if o > aarraynumber:
o = aarraynumber
end
if n =< o:
gs 'NPCChanger', 'npcdisplay'
n +=1
jump 'LoopNPC'
end
'
'
!!*nl 'o = <> & n = <>'
*p 'Next 10 '
*p 'Previous 10 '
*nl
*p 'Skip 50 '
*p 'Back 50 '
*nl
*p 'Select an NPC to modify'
*nl '*** THIS IS A WORK IN PROGRESS ***'
act 'Done':gt $loc
end
if $ARGS[0] = 'next10':
o += 10
gs 'NPCChanger', 'NPCLoop'
end
if $ARGS[0] = 'next50':
o += 50
n = (o - 10)
gs 'NPCChanger', 'NPCLoop'
end
if $ARGS[0] = 'back10':
o -= 10
n = (o - 10)
gs 'NPCChanger', 'NPCLoop'
end
if $ARGS[0] = 'back50':
o -= 50
n = (o - 10)
gs 'NPCChanger', 'NPCLoop'
end
if $ARGS[0] = 'npcdisplay':
*nl 'NPC[A<>] = '
if $npc_firstname['A<>'] = 0:
*p ''
else
*p '<<$npc_firstname[''A<>'']>>'
end
if $npc_firstname['A<>'] = $npc_nickname['A<>'] or $npc_nickname['A<>'] = 0:
*p''
else
*p ' "<<$npc_nickname[''A<>'']>>"'
end
if $npc_lastname['a<>'] = 0:
*p ''
else
*p ' <<$npc_lastname[''A<>'']>>'
end
end
if $ARGS[0] = 'selection':
s = input("Which NPC do you want to edit? Enter #")
!!cla
!!*clr
if s = '':
n = (o - 10)
gt 'NPCChanger', 'NPCLoop'
else
gt 'NPCChanger', 'selection2'
end
end
if $ARGS[0] = 'selection2':
'NPC first name: <<$npc_firstname[''A<>'']>> Change'
'NPC nickname: <<$npc_nickname[''A<>'']>> Change'
'NPC last name: <<$npc_lastname[''A<>'']>> Change'
'NPC used name: <<$npc_usedname[''A<>'']>> Change'
'NPC date of birth: <>'']>> Change'
'NPC DNA: <<$npc_dna[''A<>'']>>'
'NPC description: <<$npc_notes[''A<>'']>>'
if npc_gender['A<>'] = 0:
'NPC gender: Male'
'NPC dick length: <>'']>>cm'
'NPC dick description: <<$npc_thdick[''A<>'']>>'
else
'NPC gender: Female'
end
if $npc_dad['A<>'] = 'U':
'NPC father: Unknown'
else
$npcf = $npc_dad['A<>']
'NPC father: <<$npc_firstname[''<<$npcf>>'']>>'
end
if $npc_mom['A<>'] = 'U':
'NPC mother: Unknown'
else
$npcm = $npc_mom['A<>']
'NPC mother: <<$npc_firstname[''<<$npcm>>'']>>'
end
act 'Done':
n = (o - 10)
gt 'NPCChanger', 'NPCLoop'
end
end
if $ARGS[0] = 'editf':
$npc_firstname['A<>'] = input('Enter new first name')
gt 'NPCChanger', 'selection2'
end
if $ARGS[0] = 'editn':
$npc_nickname['A<>'] = input('Enter new nickname')
gt 'NPCChanger', 'selection2'
end
if $ARGS[0] = 'editl':
$npc_lastname['A<>'] = input('Enter new last name')
gt 'NPCChanger', 'selection2'
end
if $ARGS[0] = 'editu':
$npc_usedname['A<>'] = input('Enter new used name')
gt 'NPCChanger', 'selection2'
end
if $ARGS[0] = 'editd':
npc_dob['A<>'] = input('Enter new date of birth (yyyymmdd)')
gt 'NPCChanger', 'selection2'
end
--- NPCChanger ---------------------------------