1
0

NPCChanger.qsrc 3.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146
  1. # NPCChanger
  2. if $ARGS[0] = 'Start':
  3. n = 1
  4. o = 10
  5. gs 'NPCChanger', 'NPCLoop'
  6. end
  7. if $ARGS[0] = 'NPCLoop':
  8. *clr
  9. clr
  10. cla
  11. '*** THIS IS A WORK IN PROGRESS ***'
  12. if n = 0:
  13. n = 1
  14. o = 10
  15. end
  16. :LoopNPC
  17. if o > aarraynumber:
  18. o = aarraynumber
  19. end
  20. if n =< o:
  21. gs 'NPCChanger', 'npcdisplay'
  22. n +=1
  23. jump 'LoopNPC'
  24. end
  25. '<hr>'
  26. !!*nl 'o = <<o>> & n = <<n>>'
  27. *p '<a href="exec:gt ''NPCChanger'', ''next10'' ">Next 10</a> '
  28. *p '<a href="exec:gt ''NPCChanger'', ''back10'' ">Previous 10</a> '
  29. *nl
  30. *p '<a href="exec:gt ''NPCChanger'', ''next50'' ">Skip 50</a> '
  31. *p '<a href="exec:gt ''NPCChanger'', ''back50'' ">Back 50</a> '
  32. *nl
  33. *p '<a href="exec:gt ''NPCChanger'', ''selection'' ">Select an NPC to modify</a>'
  34. *nl '*** THIS IS A WORK IN PROGRESS ***'
  35. act 'Done':gt $loc
  36. end
  37. if $ARGS[0] = 'next10':
  38. o += 10
  39. gs 'NPCChanger', 'NPCLoop'
  40. end
  41. if $ARGS[0] = 'next50':
  42. o += 50
  43. n = (o - 10)
  44. gs 'NPCChanger', 'NPCLoop'
  45. end
  46. if $ARGS[0] = 'back10':
  47. o -= 10
  48. n = (o - 10)
  49. gs 'NPCChanger', 'NPCLoop'
  50. end
  51. if $ARGS[0] = 'back50':
  52. o -= 50
  53. n = (o - 10)
  54. gs 'NPCChanger', 'NPCLoop'
  55. end
  56. if $ARGS[0] = 'npcdisplay':
  57. *nl 'NPC[A<<n>>] = '
  58. if $npc_firstname['A<<n>>'] = 0:
  59. *p ''
  60. else
  61. *p '<<$npc_firstname[''A<<n>>'']>>'
  62. end
  63. if $npc_firstname['A<<n>>'] = $npc_nickname['A<<n>>'] or $npc_nickname['A<<n>>'] = 0:
  64. *p''
  65. else
  66. *p ' "<<$npc_nickname[''A<<n>>'']>>"'
  67. end
  68. if $npc_lastname['a<<n>>'] = 0:
  69. *p ''
  70. else
  71. *p ' <<$npc_lastname[''A<<n>>'']>>'
  72. end
  73. end
  74. if $ARGS[0] = 'selection':
  75. s = input("Which NPC do you want to edit? Enter #")
  76. !!cla
  77. !!*clr
  78. if s = '':
  79. n = (o - 10)
  80. gt 'NPCChanger', 'NPCLoop'
  81. else
  82. gt 'NPCChanger', 'selection2'
  83. end
  84. end
  85. if $ARGS[0] = 'selection2':
  86. 'NPC first name: <<$npc_firstname[''A<<s>>'']>> <a href="exec:gt ''NPCChanger'', ''editf''">Change</a>'
  87. 'NPC nickname: <<$npc_nickname[''A<<s>>'']>> <a href="exec:gt ''NPCChanger'', ''editn''">Change</a>'
  88. 'NPC last name: <<$npc_lastname[''A<<s>>'']>> <a href="exec:gt ''NPCChanger'', ''editl''">Change</a>'
  89. 'NPC used name: <<$npc_usedname[''A<<s>>'']>> <a href="exec:gt ''NPCChanger'', ''editu''">Change</a>'
  90. 'NPC date of birth: <<npc_dob[''A<<s>>'']>> <a href="exec:gt ''NPCChanger'', ''editd''">Change</a>'
  91. 'NPC DNA: <<$npc_dna[''A<<s>>'']>>'
  92. 'NPC description: <<$npc_notes[''A<<s>>'']>>'
  93. if npc_gender['A<<s>>'] = 0:
  94. 'NPC gender: Male'
  95. 'NPC dick length: <<npc_dick[''A<<s>>'']>>cm'
  96. 'NPC dick description: <<$npc_thdick[''A<<s>>'']>>'
  97. else
  98. 'NPC gender: Female'
  99. end
  100. if $npc_dad['A<<s>>'] = 'U':
  101. 'NPC father: Unknown'
  102. else
  103. $npcf = $npc_dad['A<<s>>']
  104. 'NPC father: <<$npc_firstname[''<<$npcf>>'']>>'
  105. end
  106. if $npc_mom['A<<s>>'] = 'U':
  107. 'NPC mother: Unknown'
  108. else
  109. $npcm = $npc_mom['A<<s>>']
  110. 'NPC mother: <<$npc_firstname[''<<$npcm>>'']>>'
  111. end
  112. act 'Done':
  113. n = (o - 10)
  114. gt 'NPCChanger', 'NPCLoop'
  115. end
  116. end
  117. if $ARGS[0] = 'editf':
  118. $npc_firstname['A<<s>>'] = input('Enter new first name')
  119. gt 'NPCChanger', 'selection2'
  120. end
  121. if $ARGS[0] = 'editn':
  122. $npc_nickname['A<<s>>'] = input('Enter new nickname')
  123. gt 'NPCChanger', 'selection2'
  124. end
  125. if $ARGS[0] = 'editl':
  126. $npc_lastname['A<<s>>'] = input('Enter new last name')
  127. gt 'NPCChanger', 'selection2'
  128. end
  129. if $ARGS[0] = 'editu':
  130. $npc_usedname['A<<s>>'] = input('Enter new used name')
  131. gt 'NPCChanger', 'selection2'
  132. end
  133. if $ARGS[0] = 'editd':
  134. npc_dob['A<<s>>'] = input('Enter new date of birth (yyyymmdd)')
  135. gt 'NPCChanger', 'selection2'
  136. end
  137. --- NPCChanger ---------------------------------